nendo 0.3.2 → 0.3.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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
  # -------------------------------------------------------