nendo 0.3.2 → 0.3.3

Sign up to get free protection for your applications and to get access to all the features.
Files changed (17) hide show
  1. data/bin/nendo +10 -16
  2. data/example/deep-loop1.nnd +15 -0
  3. data/example/deep-loop2.nnd +14 -0
  4. data/example/scratch.nnd +18 -0
  5. data/example/tak.nnd +9 -8
  6. data/example/twitterTL.nnd +38 -0
  7. data/lib/debug/syslog.nndc +44 -37
  8. data/lib/init.nnd +199 -24
  9. data/lib/init.nndc +14951 -11951
  10. data/lib/nendo.rb +1872 -1736
  11. data/lib/srfi-1.nnd +1416 -0
  12. data/lib/srfi-1.nndc +17592 -0
  13. data/lib/text/html-lite.nndc +3044 -2481
  14. data/lib/text/tree.nndc +191 -179
  15. data/test/nendo_spec.rb +1566 -0
  16. data/test/srfi-1-test.nnd +652 -0
  17. metadata +23 -7
data/lib/text/tree.nndc CHANGED
@@ -3,226 +3,238 @@
3
3
  # generated "nendo -c src" command.
4
4
  #
5
5
 
6
- callProcedure( 'require',
6
+ trampCall(
7
+ delayCall( 'require',
7
8
  begin
8
9
  if @global_lisp_binding.has_key?('_require') then
9
- @_require
10
+ trampCall(@_require)
10
11
  else raise NameError.new( "Error: undefined variable _require", "_require" ) end
11
12
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:10"] + __e.backtrace ) ; raise __e
12
13
  end ,
13
14
  Cell.new(
14
15
  "stringio"
15
16
  ))
17
+ )
16
18
  #--------------------
17
19
 
20
+ trampCall(
18
21
  begin
19
- @global_lisp_binding['_write_MIMARKtree'] = true
22
+ def self._write_MIMARKtree_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
23
+ @global_lisp_binding['_write_MIMARKtree'] = self.method( :_write_MIMARKtree_METHOD )
20
24
  @_write_MIMARKtree =
21
- Proc.new { |_tree,*__rest__| _out = __rest__[0] ;
22
- begin
23
- ___lambda = lambda { |_out|
24
- begin
25
- ___lambda = lambda { |_loop|
26
- _loop =
27
- Proc.new { |_tree|
28
- if (
29
- callProcedure( 'null?',
30
- begin
31
- if @global_lisp_binding.has_key?('_null_QUMARK') then
32
- @_null_QUMARK
33
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
34
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:17"] + __e.backtrace ) ; raise __e
35
- end ,
36
- Cell.new(
25
+ trampCall(
26
+ Proc.new { |_tree,*__rest__| _out = __rest__[0] ;
27
+ begin
28
+ ___lambda = lambda { |_out|
29
+ begin
30
+ ___lambda = lambda { |_loop|
31
+ _loop =
32
+ Proc.new { |_tree|
33
+ if (
34
+ trampCall( self._null_QUMARK_METHOD( 'null?',
37
35
  begin
38
- _tree
39
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
40
- end
41
- ))
42
- ) then
43
- begin
44
- true
45
- end
46
- else
47
- if (
48
- callProcedure( 'pair?',
36
+ if @global_lisp_binding.has_key?('_null_QUMARK') then
37
+ trampCall(@_null_QUMARK)
38
+ else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
39
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:17"] + __e.backtrace ) ; raise __e
40
+ end ,
41
+ Cell.new(
49
42
  begin
50
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
51
- @_pair_QUMARK
52
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
53
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
54
- end ,
55
- Cell.new(
43
+ trampCall(_tree)
44
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
45
+ end
46
+ )))
47
+ ) then
48
+ begin
49
+ true
50
+ end
51
+ else
52
+ if (
53
+ trampCall( self._pair_QUMARK_METHOD( 'pair?',
56
54
  begin
57
- _tree
58
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
59
- end
60
- ))
61
- ) then
62
- begin
63
- callProcedure( 'write-tree',
64
- begin
65
- if @global_lisp_binding.has_key?('_write_MIMARKtree') then
66
- @_write_MIMARKtree
67
- else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
68
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
69
- end ,
70
- Cell.new(
71
- callProcedure( 'car',
72
- begin
73
- if @global_lisp_binding.has_key?('_car') then
74
- @_car
75
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
76
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
77
- end ,
78
- Cell.new(
55
+ if @global_lisp_binding.has_key?('_pair_QUMARK') then
56
+ trampCall(@_pair_QUMARK)
57
+ else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
58
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
59
+ end ,
60
+ Cell.new(
61
+ begin
62
+ trampCall(_tree)
63
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
64
+ end
65
+ )))
66
+ ) then
67
+ begin
68
+ trampCall( self._write_MIMARKtree_METHOD( 'write-tree',
69
+ begin
70
+ if @global_lisp_binding.has_key?('_write_MIMARKtree') then
71
+ trampCall(@_write_MIMARKtree)
72
+ else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
73
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
74
+ end ,
75
+ Cell.new(
76
+ trampCall( self._car_METHOD( 'car',
79
77
  begin
80
- _tree
81
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
82
- end
83
- )) ,Cell.new(
78
+ if @global_lisp_binding.has_key?('_car') then
79
+ trampCall(@_car)
80
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
81
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
82
+ end ,
83
+ Cell.new(
84
+ begin
85
+ trampCall(_tree)
86
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
87
+ end
88
+ ))) ,Cell.new(
89
+ begin
90
+ trampCall(_out)
91
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
92
+ end
93
+ ))))
94
+ delayCall( 'loop',
84
95
  begin
85
- _out
96
+ trampCall(_loop)
86
97
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
87
- end
88
- )))
89
- callProcedure( 'loop',
90
- begin
91
- _loop
92
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
93
- end ,
94
- Cell.new(
95
- callProcedure( 'cdr',
96
- begin
97
- if @global_lisp_binding.has_key?('_cdr') then
98
- @_cdr
99
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
100
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
101
- end ,
102
- Cell.new(
98
+ end ,
99
+ Cell.new(
100
+ trampCall( self._cdr_METHOD( 'cdr',
103
101
  begin
104
- _tree
105
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
106
- end
107
- ))
108
- ))
109
- end
110
- else
111
- if (
112
- true
113
- ) then
114
- begin
115
- begin
116
- _out.print(
102
+ if @global_lisp_binding.has_key?('_cdr') then
103
+ trampCall(@_cdr)
104
+ else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
105
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
106
+ end ,
107
+ Cell.new(
117
108
  begin
118
- _tree
109
+ trampCall(_tree)
119
110
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
120
111
  end
121
- )
122
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
123
- end
124
- end
125
- else
126
- Nil.new
127
- end
128
- end
129
- end
130
- }
131
- callProcedure( 'loop',
112
+ )))
113
+ ))
114
+ end
115
+ else
116
+ if (
117
+ true
118
+ ) then
119
+ begin
120
+ begin
121
+ trampCall(_out).print(
122
+ begin
123
+ trampCall(_tree)
124
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
125
+ end
126
+ )
127
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
128
+ end
129
+ end
130
+ else
131
+ Cell.new()
132
+ end
133
+ end
134
+ end
135
+ }
136
+ delayCall( 'loop',
137
+ begin
138
+ trampCall(_loop)
139
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
140
+ end ,
141
+ Cell.new(
142
+ begin
143
+ trampCall(_tree)
144
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
145
+ end
146
+ ))
147
+ } ; ___lambda.call(
148
+ nil
149
+ )
150
+ end
151
+ } ; ___lambda.call(
152
+ if (
153
+ trampCall( self._null_QUMARK_METHOD( 'null?',
132
154
  begin
133
- _loop
134
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
155
+ if @global_lisp_binding.has_key?('_null_QUMARK') then
156
+ trampCall(@_null_QUMARK)
157
+ else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
158
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:17"] + __e.backtrace ) ; raise __e
135
159
  end ,
136
160
  Cell.new(
137
161
  begin
138
- _tree
139
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
162
+ trampCall(_out)
163
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
140
164
  end
141
- ))
142
- } ; ___lambda.call(
143
- nil
144
- )
145
- end
146
- } ; ___lambda.call(
147
- if (
148
- callProcedure( 'null?',
165
+ )))
166
+ ) then
149
167
  begin
150
- if @global_lisp_binding.has_key?('_null_QUMARK') then
151
- @_null_QUMARK
152
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
153
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:17"] + __e.backtrace ) ; raise __e
154
- end ,
155
- Cell.new(
156
- begin
157
- _out
158
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
159
- end
160
- ))
161
- ) then
162
- begin
163
- STDOUT
164
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:14"] + __e.backtrace ) ; raise __e
165
- end
166
- else
167
- callProcedure( 'car',
168
- begin
169
- if @global_lisp_binding.has_key?('_car') then
170
- @_car
171
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
172
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
173
- end ,
174
- Cell.new(
168
+ trampCall(STDOUT)
169
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:14"] + __e.backtrace ) ; raise __e
170
+ end
171
+ else
172
+ delayCall( 'car',
175
173
  begin
176
- _out
174
+ if @global_lisp_binding.has_key?('_car') then
175
+ trampCall(@_car)
176
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
177
177
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
178
- end
179
- ))
180
- end
181
- )
182
- end
183
- }
178
+ end ,
179
+ Cell.new(
180
+ begin
181
+ trampCall(_out)
182
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
183
+ end
184
+ ))
185
+ end
186
+ )
187
+ end
188
+ }
189
+ )
184
190
  end
191
+ )
185
192
  #--------------------
186
193
 
194
+ trampCall(
187
195
  begin
188
- @global_lisp_binding['_tree_MIMARK_GTMARKstring'] = true
196
+ def self._tree_MIMARK_GTMARKstring_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
197
+ @global_lisp_binding['_tree_MIMARK_GTMARKstring'] = self.method( :_tree_MIMARK_GTMARKstring_METHOD )
189
198
  @_tree_MIMARK_GTMARKstring =
190
- Proc.new { |_tree|
191
- begin
192
- ___lambda = lambda { |_sio|
193
- callProcedure( 'write-tree',
194
- begin
195
- if @global_lisp_binding.has_key?('_write_MIMARKtree') then
196
- @_write_MIMARKtree
197
- else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
198
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
199
- end ,
200
- Cell.new(
201
- begin
202
- _tree
203
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
204
- end ,Cell.new(
199
+ trampCall(
200
+ Proc.new { |_tree|
201
+ begin
202
+ ___lambda = lambda { |_sio|
203
+ trampCall( self._write_MIMARKtree_METHOD( 'write-tree',
205
204
  begin
206
- _sio
205
+ if @global_lisp_binding.has_key?('_write_MIMARKtree') then
206
+ trampCall(@_write_MIMARKtree)
207
+ else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
207
208
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
208
- end
209
- )))
210
- begin
211
- _sio.string(
212
- )
213
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:25"] + __e.backtrace ) ; raise __e
214
- end
215
- } ; ___lambda.call(
209
+ end ,
210
+ Cell.new(
211
+ begin
212
+ trampCall(_tree)
213
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
214
+ end ,Cell.new(
215
+ begin
216
+ trampCall(_sio)
217
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
218
+ end
219
+ ))))
216
220
  begin
217
- StringIO.new(
218
- ""
221
+ trampCall(_sio).string(
219
222
  )
220
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:23"] + __e.backtrace ) ; raise __e
223
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:25"] + __e.backtrace ) ; raise __e
221
224
  end
222
- )
223
- end
224
- }
225
+ } ; ___lambda.call(
226
+ begin
227
+ trampCall(StringIO).new(
228
+ ""
229
+ )
230
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:23"] + __e.backtrace ) ; raise __e
231
+ end
232
+ )
233
+ end
234
+ }
235
+ )
225
236
  end
237
+ )
226
238
 
227
239
 
228
240
  # -------------------------------------------------------