nendo 0.3.3 → 0.3.4

Sign up to get free protection for your applications and to get access to all the features.
Files changed (25) hide show
  1. data/bin/nendo +2 -2
  2. data/emacs/nendo-mode.el +126 -0
  3. data/example/KyotoCabinet/kcbench.rb +20 -0
  4. data/example/KyotoCabinet/kcbench1.nnd +29 -0
  5. data/example/KyotoCabinet/kcbench2.nnd +30 -0
  6. data/example/KyotoCabinet/kcbench3.nnd +31 -0
  7. data/example/export-lisp-functions.rb +20 -0
  8. data/example/scratch.nnd +8 -17
  9. data/example/tak_ruby_version.rb +14 -0
  10. data/lib/debug/syslog.nndc +1 -1
  11. data/lib/init.nnd +334 -202
  12. data/lib/init.nndc +5691 -4128
  13. data/lib/nendo/test.nnd +165 -0
  14. data/lib/nendo/test.nndc +1635 -0
  15. data/lib/nendo.rb +248 -37
  16. data/lib/srfi-1.nnd +15 -24
  17. data/lib/srfi-1.nndc +1247 -1607
  18. data/lib/text/html-lite.nnd +1 -1
  19. data/lib/text/html-lite.nndc +171 -171
  20. data/lib/text/tree.nndc +2 -2
  21. data/test/nendo_spec.rb +1281 -981
  22. data/test/nendo_util.nnd +98 -0
  23. data/test/srfi-1-test.nnd +28 -0
  24. data/test/textlib.nnd +24 -0
  25. metadata +13 -3
data/lib/nendo/test.nndc ADDED
@@ -0,0 +1,1635 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
5
+
6
+ trampCall(
7
+ begin
8
+ def self.__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
9
+ @global_lisp_binding['__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD )
10
+ @__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK =
11
+ trampCall(
12
+ "test.record"
13
+ )
14
+ end
15
+ )
16
+ #--------------------
17
+
18
+ trampCall(
19
+ begin
20
+ def self.__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
21
+ @global_lisp_binding['__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD )
22
+ @__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK =
23
+ trampCall(
24
+ begin
25
+ trampCall(STDOUT)
26
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:40"] + __e.backtrace ) ; raise __e
27
+ end
28
+ )
29
+ end
30
+ )
31
+ #--------------------
32
+
33
+ trampCall(
34
+ begin
35
+ def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
36
+ @global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
37
+ @__ASMARKdiscrepancy_MIMARKlist_ASMARK =
38
+ trampCall(
39
+ Cell.new()
40
+ )
41
+ end
42
+ )
43
+ #--------------------
44
+
45
+ trampCall(
46
+ begin
47
+ def self._test_MIMARKrecord_MIMARKfile_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
48
+ @global_lisp_binding['_test_MIMARKrecord_MIMARKfile'] = self.method( :_test_MIMARKrecord_MIMARKfile_METHOD )
49
+ @_test_MIMARKrecord_MIMARKfile =
50
+ trampCall(
51
+ Proc.new { |_file|
52
+ begin
53
+ def self.__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
54
+ @global_lisp_binding['__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD )
55
+ @__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK =
56
+ trampCall(
57
+ begin
58
+ trampCall(_file)
59
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:43"] + __e.backtrace ) ; raise __e
60
+ end
61
+ )
62
+ end
63
+ }
64
+ )
65
+ end
66
+ )
67
+ #--------------------
68
+
69
+ trampCall(
70
+ begin
71
+ def self._test_MIMARKoutput_MIMARKfile_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
72
+ @global_lisp_binding['_test_MIMARKoutput_MIMARKfile'] = self.method( :_test_MIMARKoutput_MIMARKfile_METHOD )
73
+ @_test_MIMARKoutput_MIMARKfile =
74
+ trampCall(
75
+ Proc.new { |_file|
76
+ begin
77
+ def self.__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
78
+ @global_lisp_binding['__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD )
79
+ @__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK =
80
+ trampCall(
81
+ begin
82
+ trampCall(_file)
83
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:44"] + __e.backtrace ) ; raise __e
84
+ end
85
+ )
86
+ end
87
+ }
88
+ )
89
+ end
90
+ )
91
+ #--------------------
92
+
93
+ trampCall(
94
+ begin
95
+ def self.__ASMARKtest_MIMARKcounts_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
96
+ @global_lisp_binding['__ASMARKtest_MIMARKcounts_ASMARK'] = self.method( :__ASMARKtest_MIMARKcounts_ASMARK_METHOD )
97
+ @__ASMARKtest_MIMARKcounts_ASMARK =
98
+ trampCall(
99
+ trampCall( self._vector_METHOD( 'vector',
100
+ begin
101
+ if @global_lisp_binding.has_key?('_vector') then
102
+ trampCall(@_vector)
103
+ else raise NameError.new( "Error: undefined variable _vector", "_vector" ) end
104
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:46"] + __e.backtrace ) ; raise __e
105
+ end ,
106
+ Cell.new(
107
+ 0 ,Cell.new(
108
+ 0 ,Cell.new(
109
+ 0 ,Cell.new(
110
+ 0
111
+ ))))))
112
+ )
113
+ end
114
+ )
115
+ #--------------------
116
+
117
+ trampCall(
118
+ begin
119
+ def self._test_MIMARKcount_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
120
+ @global_lisp_binding['_test_MIMARKcount_PLMARK_PLMARK'] = self.method( :_test_MIMARKcount_PLMARK_PLMARK_METHOD )
121
+ @_test_MIMARKcount_PLMARK_PLMARK =
122
+ trampCall(
123
+ Proc.new { ||
124
+ delayCall( 'vector-set!',
125
+ begin
126
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
127
+ trampCall(@_vector_MIMARKset_EXMARK)
128
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
129
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
130
+ end ,
131
+ Cell.new(
132
+ begin
133
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
134
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
135
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
136
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
137
+ end ,Cell.new(
138
+ 0 ,Cell.new(
139
+ trampCall( self.__PLMARK_METHOD( '+',
140
+ begin
141
+ if @global_lisp_binding.has_key?('__PLMARK') then
142
+ trampCall(@__PLMARK)
143
+ else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
144
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
145
+ end ,
146
+ Cell.new(
147
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
148
+ begin
149
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
150
+ trampCall(@_vector_MIMARKref)
151
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
152
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
153
+ end ,
154
+ Cell.new(
155
+ begin
156
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
157
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
158
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
159
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
160
+ end ,Cell.new(
161
+ 0
162
+ )))) ,Cell.new(
163
+ 1
164
+ ))))
165
+ ))))
166
+ }
167
+ )
168
+ end
169
+ )
170
+ #--------------------
171
+
172
+ trampCall(
173
+ begin
174
+ def self._test_MIMARKpass_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
175
+ @global_lisp_binding['_test_MIMARKpass_PLMARK_PLMARK'] = self.method( :_test_MIMARKpass_PLMARK_PLMARK_METHOD )
176
+ @_test_MIMARKpass_PLMARK_PLMARK =
177
+ trampCall(
178
+ Proc.new { ||
179
+ delayCall( 'vector-set!',
180
+ begin
181
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
182
+ trampCall(@_vector_MIMARKset_EXMARK)
183
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
184
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
185
+ end ,
186
+ Cell.new(
187
+ begin
188
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
189
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
190
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
191
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
192
+ end ,Cell.new(
193
+ 1 ,Cell.new(
194
+ trampCall( self.__PLMARK_METHOD( '+',
195
+ begin
196
+ if @global_lisp_binding.has_key?('__PLMARK') then
197
+ trampCall(@__PLMARK)
198
+ else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
199
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
200
+ end ,
201
+ Cell.new(
202
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
203
+ begin
204
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
205
+ trampCall(@_vector_MIMARKref)
206
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
207
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
208
+ end ,
209
+ Cell.new(
210
+ begin
211
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
212
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
213
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
214
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
215
+ end ,Cell.new(
216
+ 1
217
+ )))) ,Cell.new(
218
+ 1
219
+ ))))
220
+ ))))
221
+ }
222
+ )
223
+ end
224
+ )
225
+ #--------------------
226
+
227
+ trampCall(
228
+ begin
229
+ def self._test_MIMARKfail_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
230
+ @global_lisp_binding['_test_MIMARKfail_PLMARK_PLMARK'] = self.method( :_test_MIMARKfail_PLMARK_PLMARK_METHOD )
231
+ @_test_MIMARKfail_PLMARK_PLMARK =
232
+ trampCall(
233
+ Proc.new { ||
234
+ delayCall( 'vector-set!',
235
+ begin
236
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
237
+ trampCall(@_vector_MIMARKset_EXMARK)
238
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
239
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
240
+ end ,
241
+ Cell.new(
242
+ begin
243
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
244
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
245
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
246
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
247
+ end ,Cell.new(
248
+ 2 ,Cell.new(
249
+ trampCall( self.__PLMARK_METHOD( '+',
250
+ begin
251
+ if @global_lisp_binding.has_key?('__PLMARK') then
252
+ trampCall(@__PLMARK)
253
+ else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
254
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
255
+ end ,
256
+ Cell.new(
257
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
258
+ begin
259
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
260
+ trampCall(@_vector_MIMARKref)
261
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
262
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
263
+ end ,
264
+ Cell.new(
265
+ begin
266
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
267
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
268
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
269
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
270
+ end ,Cell.new(
271
+ 2
272
+ )))) ,Cell.new(
273
+ 1
274
+ ))))
275
+ ))))
276
+ }
277
+ )
278
+ end
279
+ )
280
+ #--------------------
281
+
282
+ trampCall(
283
+ begin
284
+ def self._test_MIMARKabort_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
285
+ @global_lisp_binding['_test_MIMARKabort_PLMARK_PLMARK'] = self.method( :_test_MIMARKabort_PLMARK_PLMARK_METHOD )
286
+ @_test_MIMARKabort_PLMARK_PLMARK =
287
+ trampCall(
288
+ Proc.new { ||
289
+ delayCall( 'vector-set!',
290
+ begin
291
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
292
+ trampCall(@_vector_MIMARKset_EXMARK)
293
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
294
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
295
+ end ,
296
+ Cell.new(
297
+ begin
298
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
299
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
300
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
301
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
302
+ end ,Cell.new(
303
+ 3 ,Cell.new(
304
+ trampCall( self.__PLMARK_METHOD( '+',
305
+ begin
306
+ if @global_lisp_binding.has_key?('__PLMARK') then
307
+ trampCall(@__PLMARK)
308
+ else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
309
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
310
+ end ,
311
+ Cell.new(
312
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
313
+ begin
314
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
315
+ trampCall(@_vector_MIMARKref)
316
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
317
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
318
+ end ,
319
+ Cell.new(
320
+ begin
321
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
322
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
323
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
324
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
325
+ end ,Cell.new(
326
+ 3
327
+ )))) ,Cell.new(
328
+ 1
329
+ ))))
330
+ ))))
331
+ }
332
+ )
333
+ end
334
+ )
335
+ #--------------------
336
+
337
+ trampCall(
338
+ begin
339
+ def self._format_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
340
+ @global_lisp_binding['_format_MIMARKsummary'] = self.method( :_format_MIMARKsummary_METHOD )
341
+ @_format_MIMARKsummary =
342
+ trampCall(
343
+ Proc.new { ||
344
+ delayCall( 'sprintf',
345
+ begin
346
+ if @global_lisp_binding.has_key?('_sprintf') then
347
+ trampCall(@_sprintf)
348
+ else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
349
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:57"] + __e.backtrace ) ; raise __e
350
+ end ,
351
+ Cell.new(
352
+ "Total: %5d tests, %5d passed, %5d failed, %5d aborted.
353
+ " ,Cell.new(
354
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
355
+ begin
356
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
357
+ trampCall(@_vector_MIMARKref)
358
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
359
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
360
+ end ,
361
+ Cell.new(
362
+ begin
363
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
364
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
365
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
366
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
367
+ end ,Cell.new(
368
+ 0
369
+ )))) ,Cell.new(
370
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
371
+ begin
372
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
373
+ trampCall(@_vector_MIMARKref)
374
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
375
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
376
+ end ,
377
+ Cell.new(
378
+ begin
379
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
380
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
381
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
382
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
383
+ end ,Cell.new(
384
+ 1
385
+ )))) ,Cell.new(
386
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
387
+ begin
388
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
389
+ trampCall(@_vector_MIMARKref)
390
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
391
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
392
+ end ,
393
+ Cell.new(
394
+ begin
395
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
396
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
397
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
398
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
399
+ end ,Cell.new(
400
+ 2
401
+ )))) ,Cell.new(
402
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
403
+ begin
404
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
405
+ trampCall(@_vector_MIMARKref)
406
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
407
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
408
+ end ,
409
+ Cell.new(
410
+ begin
411
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
412
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
413
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
414
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
415
+ end ,Cell.new(
416
+ 3
417
+ ))))
418
+ ))))))
419
+ }
420
+ )
421
+ end
422
+ )
423
+ #--------------------
424
+
425
+ trampCall(
426
+ begin
427
+ def self._read_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
428
+ @global_lisp_binding['_read_MIMARKsummary'] = self.method( :_read_MIMARKsummary_METHOD )
429
+ @_read_MIMARKsummary =
430
+ trampCall(
431
+ Proc.new { ||
432
+ if (
433
+ if (
434
+ trampCall( self._not_METHOD( 'not',
435
+ begin
436
+ if @global_lisp_binding.has_key?('_not') then
437
+ trampCall(@_not)
438
+ else raise NameError.new( "Error: undefined variable _not", "_not" ) end
439
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
440
+ end ,
441
+ Cell.new(
442
+ trampCall( self._eq_QUMARK_METHOD( 'eq?',
443
+ begin
444
+ if @global_lisp_binding.has_key?('_eq_QUMARK') then
445
+ trampCall(@_eq_QUMARK)
446
+ else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
447
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
448
+ end ,
449
+ Cell.new(
450
+ false ,Cell.new(
451
+ trampCall( self._string_QUMARK_METHOD( 'string?',
452
+ begin
453
+ if @global_lisp_binding.has_key?('_string_QUMARK') then
454
+ trampCall(@_string_QUMARK)
455
+ else raise NameError.new( "Error: undefined variable _string_QUMARK", "_string_QUMARK" ) end
456
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:64"] + __e.backtrace ) ; raise __e
457
+ end ,
458
+ Cell.new(
459
+ begin
460
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
461
+ trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
462
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
463
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
464
+ end
465
+ )))
466
+ ))))
467
+ )))
468
+ ) then
469
+ begin
470
+ trampCall(File).exist?(
471
+ begin
472
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
473
+ trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
474
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
475
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
476
+ end
477
+ )
478
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:65"] + __e.backtrace ) ; raise __e
479
+ end
480
+ else
481
+ false
482
+ end
483
+ ) then
484
+ begin
485
+ trampCall( self._with_MIMARKopen_METHOD( 'with-open',
486
+ begin
487
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
488
+ trampCall(@_with_MIMARKopen)
489
+ else raise NameError.new( "Error: undefined variable _with_MIMARKopen", "_with_MIMARKopen" ) end
490
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
491
+ end ,
492
+ Cell.new(
493
+ begin
494
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
495
+ trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
496
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
497
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
498
+ end ,Cell.new(
499
+ Proc.new { |_f|
500
+ begin
501
+ ___lambda = lambda { |_m|
502
+ if (
503
+ begin
504
+ trampCall(_m)
505
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
506
+ end
507
+ ) then
508
+ begin
509
+ trampCall( self._for_MIMARKeach_METHOD( 'for-each',
510
+ begin
511
+ if @global_lisp_binding.has_key?('_for_MIMARKeach') then
512
+ trampCall(@_for_MIMARKeach)
513
+ else raise NameError.new( "Error: undefined variable _for_MIMARKeach", "_for_MIMARKeach" ) end
514
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:70"] + __e.backtrace ) ; raise __e
515
+ end ,
516
+ Cell.new(
517
+ Proc.new { |_i|
518
+ trampCall( self._vector_MIMARKset_EXMARK_METHOD( 'vector-set!',
519
+ begin
520
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
521
+ trampCall(@_vector_MIMARKset_EXMARK)
522
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
523
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
524
+ end ,
525
+ Cell.new(
526
+ begin
527
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
528
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
529
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
530
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
531
+ end ,Cell.new(
532
+ begin
533
+ trampCall(_i)
534
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
535
+ end ,Cell.new(
536
+ trampCall( self._to_MIMARKi_METHOD( 'to-i',
537
+ begin
538
+ if @global_lisp_binding.has_key?('_to_MIMARKi') then
539
+ trampCall(@_to_MIMARKi)
540
+ else raise NameError.new( "Error: undefined variable _to_MIMARKi", "_to_MIMARKi" ) end
541
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
542
+ end ,
543
+ Cell.new(
544
+ trampCall( self._rxmatch_MIMARKsubstring_METHOD( 'rxmatch-substring',
545
+ begin
546
+ if @global_lisp_binding.has_key?('_rxmatch_MIMARKsubstring') then
547
+ trampCall(@_rxmatch_MIMARKsubstring)
548
+ else raise NameError.new( "Error: undefined variable _rxmatch_MIMARKsubstring", "_rxmatch_MIMARKsubstring" ) end
549
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
550
+ end ,
551
+ Cell.new(
552
+ begin
553
+ trampCall(_m)
554
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
555
+ end ,Cell.new(
556
+ trampCall( self.__PLMARK_METHOD( '+',
557
+ begin
558
+ if @global_lisp_binding.has_key?('__PLMARK') then
559
+ trampCall(@__PLMARK)
560
+ else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
561
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:77"] + __e.backtrace ) ; raise __e
562
+ end ,
563
+ Cell.new(
564
+ begin
565
+ trampCall(_i)
566
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
567
+ end ,Cell.new(
568
+ 1
569
+ ))))
570
+ ))))
571
+ )))
572
+ )))))
573
+ } ,Cell.new(
574
+ Cell.new(0,Cell.new(1,Cell.new(2,Cell.new(3))))
575
+ ))))
576
+ end
577
+ end
578
+ } ; ___lambda.call(
579
+ trampCall( self._rxmatch_METHOD( 'rxmatch',
580
+ begin
581
+ if @global_lisp_binding.has_key?('_rxmatch') then
582
+ trampCall(@_rxmatch)
583
+ else raise NameError.new( "Error: undefined variable _rxmatch", "_rxmatch" ) end
584
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:68"] + __e.backtrace ) ; raise __e
585
+ end ,
586
+ Cell.new(
587
+ Regexp.new( "Total:\\s+(\\d+)\\s+tests,\\s+(\\d+)\\s+passed,\\s+(\\d+)\\s+failed,\\s+(\\d+)\\s+aborted") ,Cell.new(
588
+ begin
589
+ trampCall(_f).readline.chomp(
590
+ )
591
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:68"] + __e.backtrace ) ; raise __e
592
+ end
593
+ ))))
594
+ )
595
+ end
596
+ }
597
+ ))))
598
+ end
599
+ end
600
+ begin
601
+ ___lambda = lambda { |_orig_MIMARKabort|
602
+ trampCall( self._vector_MIMARKset_EXMARK_METHOD( 'vector-set!',
603
+ begin
604
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
605
+ trampCall(@_vector_MIMARKset_EXMARK)
606
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
607
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
608
+ end ,
609
+ Cell.new(
610
+ begin
611
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
612
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
613
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
614
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
615
+ end ,Cell.new(
616
+ 3 ,Cell.new(
617
+ trampCall( self.__PLMARK_METHOD( '+',
618
+ begin
619
+ if @global_lisp_binding.has_key?('__PLMARK') then
620
+ trampCall(@__PLMARK)
621
+ else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
622
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:77"] + __e.backtrace ) ; raise __e
623
+ end ,
624
+ Cell.new(
625
+ begin
626
+ trampCall(_orig_MIMARKabort)
627
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
628
+ end ,Cell.new(
629
+ 1
630
+ ))))
631
+ )))))
632
+ trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
633
+ begin
634
+ if @global_lisp_binding.has_key?('_write_MIMARKsummary') then
635
+ trampCall(@_write_MIMARKsummary)
636
+ else raise NameError.new( "Error: undefined variable _write_MIMARKsummary", "_write_MIMARKsummary" ) end
637
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:78"] + __e.backtrace ) ; raise __e
638
+ end ,
639
+ Cell.new(
640
+ )))
641
+ delayCall( 'vector-set!',
642
+ begin
643
+ if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
644
+ trampCall(@_vector_MIMARKset_EXMARK)
645
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
646
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
647
+ end ,
648
+ Cell.new(
649
+ begin
650
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
651
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
652
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
653
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
654
+ end ,Cell.new(
655
+ 3 ,Cell.new(
656
+ begin
657
+ trampCall(_orig_MIMARKabort)
658
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
659
+ end
660
+ ))))
661
+ } ; ___lambda.call(
662
+ trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
663
+ begin
664
+ if @global_lisp_binding.has_key?('_vector_MIMARKref') then
665
+ trampCall(@_vector_MIMARKref)
666
+ else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
667
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:76"] + __e.backtrace ) ; raise __e
668
+ end ,
669
+ Cell.new(
670
+ begin
671
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
672
+ trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
673
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
674
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
675
+ end ,Cell.new(
676
+ 3
677
+ ))))
678
+ )
679
+ end
680
+ }
681
+ )
682
+ end
683
+ )
684
+ #--------------------
685
+
686
+ trampCall(
687
+ begin
688
+ def self._write_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
689
+ @global_lisp_binding['_write_MIMARKsummary'] = self.method( :_write_MIMARKsummary_METHOD )
690
+ @_write_MIMARKsummary =
691
+ trampCall(
692
+ Proc.new { ||
693
+ if (
694
+ trampCall( self._string_QUMARK_METHOD( 'string?',
695
+ begin
696
+ if @global_lisp_binding.has_key?('_string_QUMARK') then
697
+ trampCall(@_string_QUMARK)
698
+ else raise NameError.new( "Error: undefined variable _string_QUMARK", "_string_QUMARK" ) end
699
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:82"] + __e.backtrace ) ; raise __e
700
+ end ,
701
+ Cell.new(
702
+ begin
703
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
704
+ trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
705
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
706
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
707
+ end
708
+ )))
709
+ ) then
710
+ begin
711
+ delayCall( 'with-open',
712
+ begin
713
+ if @global_lisp_binding.has_key?('_with_MIMARKopen') then
714
+ trampCall(@_with_MIMARKopen)
715
+ else raise NameError.new( "Error: undefined variable _with_MIMARKopen", "_with_MIMARKopen" ) end
716
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
717
+ end ,
718
+ Cell.new(
719
+ begin
720
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
721
+ trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
722
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
723
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
724
+ end ,Cell.new(
725
+ Proc.new { |_f|
726
+ begin
727
+ trampCall(_f).printf(
728
+ "%s" ,
729
+ trampCall( self._format_MIMARKsummary_METHOD( 'format-summary',
730
+ begin
731
+ if @global_lisp_binding.has_key?('_format_MIMARKsummary') then
732
+ trampCall(@_format_MIMARKsummary)
733
+ else raise NameError.new( "Error: undefined variable _format_MIMARKsummary", "_format_MIMARKsummary" ) end
734
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
735
+ end ,
736
+ Cell.new(
737
+ )))
738
+ )
739
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
740
+ end
741
+ } ,Cell.new(
742
+ "w"
743
+ ))))
744
+ end
745
+ end
746
+ }
747
+ )
748
+ end
749
+ )
750
+ #--------------------
751
+
752
+ trampCall(
753
+ begin
754
+ def self._test_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
755
+ @global_lisp_binding['_test'] = self.method( :_test_METHOD )
756
+ @_test =
757
+ trampCall(
758
+ Proc.new { |_msg,_expect,_thunk,*__rest__| _compare = __rest__[0] ;
759
+ begin
760
+ ___lambda = lambda { |_cmp,_f|
761
+ begin
762
+ trampCall(_f).printf(
763
+ "test %s, expects %s ==> " ,
764
+ begin
765
+ trampCall(_msg)
766
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
767
+ end ,
768
+ trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
769
+ begin
770
+ if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
771
+ trampCall(@_write_MIMARKto_MIMARKstring)
772
+ else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
773
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
774
+ end ,
775
+ Cell.new(
776
+ begin
777
+ trampCall(_expect)
778
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
779
+ end
780
+ )))
781
+ )
782
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
783
+ end
784
+ begin
785
+ trampCall(_f).flush(
786
+ )
787
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:103"] + __e.backtrace ) ; raise __e
788
+ end
789
+ trampCall( self._test_MIMARKcount_PLMARK_PLMARK_METHOD( 'test-count++',
790
+ begin
791
+ if @global_lisp_binding.has_key?('_test_MIMARKcount_PLMARK_PLMARK') then
792
+ trampCall(@_test_MIMARKcount_PLMARK_PLMARK)
793
+ else raise NameError.new( "Error: undefined variable _test_MIMARKcount_PLMARK_PLMARK", "_test_MIMARKcount_PLMARK_PLMARK" ) end
794
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:93"] + __e.backtrace ) ; raise __e
795
+ end ,
796
+ Cell.new(
797
+ )))
798
+ begin
799
+ ___lambda = lambda { |_r|
800
+ if (
801
+ trampCall( callProcedure( 'cmp',
802
+ begin
803
+ trampCall(_cmp)
804
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:95"] + __e.backtrace ) ; raise __e
805
+ end ,
806
+ Cell.new(
807
+ begin
808
+ trampCall(_expect)
809
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
810
+ end ,Cell.new(
811
+ begin
812
+ trampCall(_r)
813
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
814
+ end
815
+ ))))
816
+ ) then
817
+ begin
818
+ begin
819
+ trampCall(_f).printf(
820
+ "ok
821
+ "
822
+ )
823
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
824
+ end
825
+ trampCall( self._test_MIMARKpass_PLMARK_PLMARK_METHOD( 'test-pass++',
826
+ begin
827
+ if @global_lisp_binding.has_key?('_test_MIMARKpass_PLMARK_PLMARK') then
828
+ trampCall(@_test_MIMARKpass_PLMARK_PLMARK)
829
+ else raise NameError.new( "Error: undefined variable _test_MIMARKpass_PLMARK_PLMARK", "_test_MIMARKpass_PLMARK_PLMARK" ) end
830
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:97"] + __e.backtrace ) ; raise __e
831
+ end ,
832
+ Cell.new(
833
+ )))
834
+ end
835
+ else
836
+ if (
837
+ true
838
+ ) then
839
+ begin
840
+ begin
841
+ trampCall(_f).printf(
842
+ "ERROR: GOT %s
843
+ " ,
844
+ trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
845
+ begin
846
+ if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
847
+ trampCall(@_write_MIMARKto_MIMARKstring)
848
+ else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
849
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
850
+ end ,
851
+ Cell.new(
852
+ begin
853
+ trampCall(_r)
854
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
855
+ end
856
+ )))
857
+ )
858
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
859
+ end
860
+ begin
861
+ def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
862
+ @global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
863
+ @__ASMARKdiscrepancy_MIMARKlist_ASMARK =
864
+ trampCall(
865
+ trampCall( self._cons_METHOD( 'cons',
866
+ begin
867
+ if @global_lisp_binding.has_key?('_cons') then
868
+ trampCall(@_cons)
869
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
870
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
871
+ end ,
872
+ Cell.new(
873
+ trampCall( self._list_METHOD( 'list',
874
+ begin
875
+ if @global_lisp_binding.has_key?('_list') then
876
+ trampCall(@_list)
877
+ else raise NameError.new( "Error: undefined variable _list", "_list" ) end
878
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
879
+ end ,
880
+ Cell.new(
881
+ begin
882
+ trampCall(_msg)
883
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
884
+ end ,Cell.new(
885
+ begin
886
+ trampCall(_expect)
887
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
888
+ end ,Cell.new(
889
+ begin
890
+ trampCall(_r)
891
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
892
+ end
893
+ ))))) ,Cell.new(
894
+ begin
895
+ if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
896
+ trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
897
+ else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
898
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
899
+ end
900
+ ))))
901
+ )
902
+ end
903
+ trampCall( self._test_MIMARKfail_PLMARK_PLMARK_METHOD( 'test-fail++',
904
+ begin
905
+ if @global_lisp_binding.has_key?('_test_MIMARKfail_PLMARK_PLMARK') then
906
+ trampCall(@_test_MIMARKfail_PLMARK_PLMARK)
907
+ else raise NameError.new( "Error: undefined variable _test_MIMARKfail_PLMARK_PLMARK", "_test_MIMARKfail_PLMARK_PLMARK" ) end
908
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:102"] + __e.backtrace ) ; raise __e
909
+ end ,
910
+ Cell.new(
911
+ )))
912
+ end
913
+ else
914
+ Cell.new()
915
+ end
916
+ end
917
+ begin
918
+ trampCall(_f).flush(
919
+ )
920
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:103"] + __e.backtrace ) ; raise __e
921
+ end
922
+ true
923
+ } ; ___lambda.call(
924
+ trampCall( callProcedure( 'thunk',
925
+ begin
926
+ trampCall(_thunk)
927
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:94"] + __e.backtrace ) ; raise __e
928
+ end ,
929
+ Cell.new(
930
+ )))
931
+ )
932
+ end
933
+ } ; ___lambda.call(
934
+ begin
935
+ ___lambda = lambda { |___gensym__da296d116d489ba951dcd8991bd44f36a977a621_20004|
936
+ if (
937
+ trampCall( self._null_QUMARK_METHOD( 'null?',
938
+ begin
939
+ if @global_lisp_binding.has_key?('_null_QUMARK') then
940
+ trampCall(@_null_QUMARK)
941
+ else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
942
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:143"] + __e.backtrace ) ; raise __e
943
+ end ,
944
+ Cell.new(
945
+ begin
946
+ trampCall(___gensym__da296d116d489ba951dcd8991bd44f36a977a621_20004)
947
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
948
+ end
949
+ )))
950
+ ) then
951
+ begin
952
+ if @global_lisp_binding.has_key?('_equal_QUMARK') then
953
+ trampCall(@_equal_QUMARK)
954
+ else raise NameError.new( "Error: undefined variable _equal_QUMARK", "_equal_QUMARK" ) end
955
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:89"] + __e.backtrace ) ; raise __e
956
+ end
957
+ else
958
+ delayCall( 'car',
959
+ begin
960
+ if @global_lisp_binding.has_key?('_car') then
961
+ trampCall(@_car)
962
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
963
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
964
+ end ,
965
+ Cell.new(
966
+ begin
967
+ trampCall(___gensym__da296d116d489ba951dcd8991bd44f36a977a621_20004)
968
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
969
+ end
970
+ ))
971
+ end
972
+ } ; ___lambda.call(
973
+ begin
974
+ trampCall(_compare)
975
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:89"] + __e.backtrace ) ; raise __e
976
+ end
977
+ )
978
+ end ,
979
+ begin
980
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
981
+ trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
982
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
983
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:90"] + __e.backtrace ) ; raise __e
984
+ end
985
+ )
986
+ end
987
+ }
988
+ )
989
+ end
990
+ )
991
+ #--------------------
992
+
993
+ trampCall(
994
+ begin
995
+ def self._test_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
996
+ @global_lisp_binding['_test_ASMARK'] = self.method( :_test_ASMARK_METHOD )
997
+ @_test_ASMARK =
998
+ trampCall(
999
+ LispMacro.new { |_msg,_expect,_form,*__rest__| _compare = __rest__[0] ;
1000
+ trampCall( self._cons_METHOD( 'cons',
1001
+ begin
1002
+ if @global_lisp_binding.has_key?('_cons') then
1003
+ trampCall(@_cons)
1004
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1005
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1006
+ end ,
1007
+ Cell.new(
1008
+ :"test" ,Cell.new(
1009
+ trampCall( self._cons_METHOD( 'cons',
1010
+ begin
1011
+ if @global_lisp_binding.has_key?('_cons') then
1012
+ trampCall(@_cons)
1013
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1014
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1015
+ end ,
1016
+ Cell.new(
1017
+ begin
1018
+ trampCall(_msg)
1019
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
1020
+ end ,Cell.new(
1021
+ trampCall( self._cons_METHOD( 'cons',
1022
+ begin
1023
+ if @global_lisp_binding.has_key?('_cons') then
1024
+ trampCall(@_cons)
1025
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1026
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1027
+ end ,
1028
+ Cell.new(
1029
+ begin
1030
+ trampCall(_expect)
1031
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
1032
+ end ,Cell.new(
1033
+ trampCall( self._cons_METHOD( 'cons',
1034
+ begin
1035
+ if @global_lisp_binding.has_key?('_cons') then
1036
+ trampCall(@_cons)
1037
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1038
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1039
+ end ,
1040
+ Cell.new(
1041
+ trampCall( self._cons_METHOD( 'cons',
1042
+ begin
1043
+ if @global_lisp_binding.has_key?('_cons') then
1044
+ trampCall(@_cons)
1045
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1046
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1047
+ end ,
1048
+ Cell.new(
1049
+ :"lambda" ,Cell.new(
1050
+ trampCall( self._cons_METHOD( 'cons',
1051
+ begin
1052
+ if @global_lisp_binding.has_key?('_cons') then
1053
+ trampCall(@_cons)
1054
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1055
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1056
+ end ,
1057
+ Cell.new(
1058
+ Cell.new() ,Cell.new(
1059
+ trampCall( self._cons_METHOD( 'cons',
1060
+ begin
1061
+ if @global_lisp_binding.has_key?('_cons') then
1062
+ trampCall(@_cons)
1063
+ else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1064
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1065
+ end ,
1066
+ Cell.new(
1067
+ begin
1068
+ trampCall(_form)
1069
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
1070
+ end ,Cell.new(
1071
+
1072
+ ))))
1073
+ ))))
1074
+ )))) ,Cell.new(
1075
+ begin
1076
+ trampCall(_compare)
1077
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
1078
+ end
1079
+ ))))
1080
+ ))))
1081
+ ))))
1082
+ ))))
1083
+ }
1084
+ )
1085
+ end
1086
+ )
1087
+ #--------------------
1088
+
1089
+ trampCall(
1090
+ begin
1091
+ def self._make_MIMARKpadding_MIMARKstring_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1092
+ @global_lisp_binding['_make_MIMARKpadding_MIMARKstring'] = self.method( :_make_MIMARKpadding_MIMARKstring_METHOD )
1093
+ @_make_MIMARKpadding_MIMARKstring =
1094
+ trampCall(
1095
+ Proc.new { |_num,_char|
1096
+ delayCall( 'string-join',
1097
+ begin
1098
+ if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
1099
+ trampCall(@_string_MIMARKjoin)
1100
+ else raise NameError.new( "Error: undefined variable _string_MIMARKjoin", "_string_MIMARKjoin" ) end
1101
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:114"] + __e.backtrace ) ; raise __e
1102
+ end ,
1103
+ Cell.new(
1104
+ trampCall( self._map_METHOD( 'map',
1105
+ begin
1106
+ if @global_lisp_binding.has_key?('_map') then
1107
+ trampCall(@_map)
1108
+ else raise NameError.new( "Error: undefined variable _map", "_map" ) end
1109
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:115"] + __e.backtrace ) ; raise __e
1110
+ end ,
1111
+ Cell.new(
1112
+ Proc.new { |_x|
1113
+ begin
1114
+ trampCall(_char)
1115
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:116"] + __e.backtrace ) ; raise __e
1116
+ end
1117
+ } ,Cell.new(
1118
+ trampCall( self._range_METHOD( 'range',
1119
+ begin
1120
+ if @global_lisp_binding.has_key?('_range') then
1121
+ trampCall(@_range)
1122
+ else raise NameError.new( "Error: undefined variable _range", "_range" ) end
1123
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:117"] + __e.backtrace ) ; raise __e
1124
+ end ,
1125
+ Cell.new(
1126
+ begin
1127
+ trampCall(_num)
1128
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:117"] + __e.backtrace ) ; raise __e
1129
+ end
1130
+ )))
1131
+ ))))
1132
+ ))
1133
+ }
1134
+ )
1135
+ end
1136
+ )
1137
+ #--------------------
1138
+
1139
+ trampCall(
1140
+ begin
1141
+ def self._test_MIMARKsection_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1142
+ @global_lisp_binding['_test_MIMARKsection'] = self.method( :_test_MIMARKsection_METHOD )
1143
+ @_test_MIMARKsection =
1144
+ trampCall(
1145
+ Proc.new { |_msg|
1146
+ begin
1147
+ ___lambda = lambda { |_f,_msglen|
1148
+ begin
1149
+ trampCall(_f).printf(
1150
+ "<%s>%s
1151
+ " ,
1152
+ begin
1153
+ trampCall(_msg)
1154
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1155
+ end ,
1156
+ trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
1157
+ begin
1158
+ if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
1159
+ trampCall(@_make_MIMARKpadding_MIMARKstring)
1160
+ else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
1161
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
1162
+ end ,
1163
+ Cell.new(
1164
+ trampCall( self._max_METHOD( 'max',
1165
+ begin
1166
+ if @global_lisp_binding.has_key?('_max') then
1167
+ trampCall(@_max)
1168
+ else raise NameError.new( "Error: undefined variable _max", "_max" ) end
1169
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
1170
+ end ,
1171
+ Cell.new(
1172
+ 5 ,Cell.new(
1173
+ trampCall( self.__MIMARK_METHOD( '-',
1174
+ begin
1175
+ if @global_lisp_binding.has_key?('__MIMARK') then
1176
+ trampCall(@__MIMARK)
1177
+ else raise NameError.new( "Error: undefined variable __MIMARK", "__MIMARK" ) end
1178
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
1179
+ end ,
1180
+ Cell.new(
1181
+ 77 ,Cell.new(
1182
+ begin
1183
+ trampCall(_msglen)
1184
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
1185
+ end
1186
+ ))))
1187
+ )))) ,Cell.new(
1188
+ "-"
1189
+ ))))
1190
+ )
1191
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
1192
+ end
1193
+ begin
1194
+ trampCall(_msg)
1195
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1196
+ end
1197
+ } ; ___lambda.call(
1198
+ begin
1199
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
1200
+ trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
1201
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
1202
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:120"] + __e.backtrace ) ; raise __e
1203
+ end ,
1204
+ trampCall( self._string_MIMARKlength_METHOD( 'string-length',
1205
+ begin
1206
+ if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1207
+ trampCall(@_string_MIMARKlength)
1208
+ else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1209
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:121"] + __e.backtrace ) ; raise __e
1210
+ end ,
1211
+ Cell.new(
1212
+ begin
1213
+ trampCall(_msg)
1214
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1215
+ end
1216
+ )))
1217
+ )
1218
+ end
1219
+ }
1220
+ )
1221
+ end
1222
+ )
1223
+ #--------------------
1224
+
1225
+ trampCall(
1226
+ begin
1227
+ def self._test_MIMARKstart_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1228
+ @global_lisp_binding['_test_MIMARKstart'] = self.method( :_test_MIMARKstart_METHOD )
1229
+ @_test_MIMARKstart =
1230
+ trampCall(
1231
+ Proc.new { |_msg|
1232
+ begin
1233
+ ___lambda = lambda { |_s|
1234
+ begin
1235
+ ___lambda = lambda { |_pad|
1236
+ begin
1237
+ ___lambda = lambda { |_f|
1238
+ begin
1239
+ trampCall(_f).printf(
1240
+ "%s%s" ,
1241
+ begin
1242
+ trampCall(_s)
1243
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:129"] + __e.backtrace ) ; raise __e
1244
+ end ,
1245
+ begin
1246
+ trampCall(_pad)
1247
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:129"] + __e.backtrace ) ; raise __e
1248
+ end
1249
+ )
1250
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1251
+ end
1252
+ begin
1253
+ trampCall(_f).flush(
1254
+ )
1255
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:137"] + __e.backtrace ) ; raise __e
1256
+ end
1257
+ trampCall( self._read_MIMARKsummary_METHOD( 'read-summary',
1258
+ begin
1259
+ if @global_lisp_binding.has_key?('_read_MIMARKsummary') then
1260
+ trampCall(@_read_MIMARKsummary)
1261
+ else raise NameError.new( "Error: undefined variable _read_MIMARKsummary", "_read_MIMARKsummary" ) end
1262
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:131"] + __e.backtrace ) ; raise __e
1263
+ end ,
1264
+ Cell.new(
1265
+ )))
1266
+ begin
1267
+ trampCall(_f).printf(
1268
+ "
1269
+ "
1270
+ )
1271
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1272
+ end
1273
+ begin
1274
+ def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1275
+ @global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
1276
+ @__ASMARKdiscrepancy_MIMARKlist_ASMARK =
1277
+ trampCall(
1278
+ Cell.new()
1279
+ )
1280
+ end
1281
+ begin
1282
+ ___lambda = lambda { |_msglen|
1283
+ begin
1284
+ trampCall(_f).printf(
1285
+ "Testing %s %s
1286
+ " ,
1287
+ begin
1288
+ trampCall(_msg)
1289
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
1290
+ end ,
1291
+ trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
1292
+ begin
1293
+ if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
1294
+ trampCall(@_make_MIMARKpadding_MIMARKstring)
1295
+ else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
1296
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1297
+ end ,
1298
+ Cell.new(
1299
+ trampCall( self._max_METHOD( 'max',
1300
+ begin
1301
+ if @global_lisp_binding.has_key?('_max') then
1302
+ trampCall(@_max)
1303
+ else raise NameError.new( "Error: undefined variable _max", "_max" ) end
1304
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1305
+ end ,
1306
+ Cell.new(
1307
+ 5 ,Cell.new(
1308
+ trampCall( self.__MIMARK_METHOD( '-',
1309
+ begin
1310
+ if @global_lisp_binding.has_key?('__MIMARK') then
1311
+ trampCall(@__MIMARK)
1312
+ else raise NameError.new( "Error: undefined variable __MIMARK", "__MIMARK" ) end
1313
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1314
+ end ,
1315
+ Cell.new(
1316
+ 70 ,Cell.new(
1317
+ begin
1318
+ trampCall(_msglen)
1319
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1320
+ end
1321
+ ))))
1322
+ )))) ,Cell.new(
1323
+ "-"
1324
+ ))))
1325
+ )
1326
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1327
+ end
1328
+ begin
1329
+ trampCall(_f).flush(
1330
+ )
1331
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:137"] + __e.backtrace ) ; raise __e
1332
+ end
1333
+ } ; ___lambda.call(
1334
+ trampCall( self._string_MIMARKlength_METHOD( 'string-length',
1335
+ begin
1336
+ if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1337
+ trampCall(@_string_MIMARKlength)
1338
+ else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1339
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
1340
+ end ,
1341
+ Cell.new(
1342
+ begin
1343
+ trampCall(_msg)
1344
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
1345
+ end
1346
+ )))
1347
+ )
1348
+ end
1349
+ begin
1350
+ trampCall(_msg)
1351
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
1352
+ end
1353
+ } ; ___lambda.call(
1354
+ begin
1355
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
1356
+ trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
1357
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
1358
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:128"] + __e.backtrace ) ; raise __e
1359
+ end
1360
+ )
1361
+ end
1362
+ } ; ___lambda.call(
1363
+ trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
1364
+ begin
1365
+ if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
1366
+ trampCall(@_make_MIMARKpadding_MIMARKstring)
1367
+ else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
1368
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1369
+ end ,
1370
+ Cell.new(
1371
+ trampCall( self._max_METHOD( 'max',
1372
+ begin
1373
+ if @global_lisp_binding.has_key?('_max') then
1374
+ trampCall(@_max)
1375
+ else raise NameError.new( "Error: undefined variable _max", "_max" ) end
1376
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1377
+ end ,
1378
+ Cell.new(
1379
+ 3 ,Cell.new(
1380
+ trampCall( self.__MIMARK_METHOD( '-',
1381
+ begin
1382
+ if @global_lisp_binding.has_key?('__MIMARK') then
1383
+ trampCall(@__MIMARK)
1384
+ else raise NameError.new( "Error: undefined variable __MIMARK", "__MIMARK" ) end
1385
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1386
+ end ,
1387
+ Cell.new(
1388
+ 65 ,Cell.new(
1389
+ trampCall( self._string_MIMARKlength_METHOD( 'string-length',
1390
+ begin
1391
+ if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1392
+ trampCall(@_string_MIMARKlength)
1393
+ else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1394
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
1395
+ end ,
1396
+ Cell.new(
1397
+ begin
1398
+ trampCall(_s)
1399
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:129"] + __e.backtrace ) ; raise __e
1400
+ end
1401
+ )))
1402
+ ))))
1403
+ )))) ,Cell.new(
1404
+ " "
1405
+ ))))
1406
+ )
1407
+ end
1408
+ } ; ___lambda.call(
1409
+ trampCall( self._sprintf_METHOD( 'sprintf',
1410
+ begin
1411
+ if @global_lisp_binding.has_key?('_sprintf') then
1412
+ trampCall(@_sprintf)
1413
+ else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
1414
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:126"] + __e.backtrace ) ; raise __e
1415
+ end ,
1416
+ Cell.new(
1417
+ "Testing %s ... " ,Cell.new(
1418
+ begin
1419
+ trampCall(_msg)
1420
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
1421
+ end
1422
+ ))))
1423
+ )
1424
+ end
1425
+ }
1426
+ )
1427
+ end
1428
+ )
1429
+ #--------------------
1430
+
1431
+ trampCall(
1432
+ begin
1433
+ def self._test_MIMARKend_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1434
+ @global_lisp_binding['_test_MIMARKend'] = self.method( :_test_MIMARKend_METHOD )
1435
+ @_test_MIMARKend =
1436
+ trampCall(
1437
+ Proc.new { ||
1438
+ begin
1439
+ ___lambda = lambda { |_f|
1440
+ if (
1441
+ trampCall( self._null_QUMARK_METHOD( 'null?',
1442
+ begin
1443
+ if @global_lisp_binding.has_key?('_null_QUMARK') then
1444
+ trampCall(@_null_QUMARK)
1445
+ else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
1446
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:143"] + __e.backtrace ) ; raise __e
1447
+ end ,
1448
+ Cell.new(
1449
+ begin
1450
+ if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
1451
+ trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
1452
+ else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
1453
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
1454
+ end
1455
+ )))
1456
+ ) then
1457
+ begin
1458
+ trampCall(_f).printf(
1459
+ "passed.
1460
+ "
1461
+ )
1462
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
1463
+ end
1464
+ else
1465
+ begin
1466
+ begin
1467
+ trampCall(_f).printf(
1468
+ "failed.
1469
+ discrepancies found. Errors are:
1470
+ "
1471
+ )
1472
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
1473
+ end
1474
+ trampCall( self._for_MIMARKeach_METHOD( 'for-each',
1475
+ begin
1476
+ if @global_lisp_binding.has_key?('_for_MIMARKeach') then
1477
+ trampCall(@_for_MIMARKeach)
1478
+ else raise NameError.new( "Error: undefined variable _for_MIMARKeach", "_for_MIMARKeach" ) end
1479
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:147"] + __e.backtrace ) ; raise __e
1480
+ end ,
1481
+ Cell.new(
1482
+ Proc.new { |_r|
1483
+ begin
1484
+ trampCall(_f).printf(
1485
+ "test %s: expects %s => got %s
1486
+ " ,
1487
+ trampCall( self._first_METHOD( 'first',
1488
+ begin
1489
+ if @global_lisp_binding.has_key?('_first') then
1490
+ trampCall(@_first)
1491
+ else raise NameError.new( "Error: undefined variable _first", "_first" ) end
1492
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:149"] + __e.backtrace ) ; raise __e
1493
+ end ,
1494
+ Cell.new(
1495
+ begin
1496
+ trampCall(_r)
1497
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1498
+ end
1499
+ ))) ,
1500
+ trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
1501
+ begin
1502
+ if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
1503
+ trampCall(@_write_MIMARKto_MIMARKstring)
1504
+ else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
1505
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1506
+ end ,
1507
+ Cell.new(
1508
+ trampCall( self._second_METHOD( 'second',
1509
+ begin
1510
+ if @global_lisp_binding.has_key?('_second') then
1511
+ trampCall(@_second)
1512
+ else raise NameError.new( "Error: undefined variable _second", "_second" ) end
1513
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:150"] + __e.backtrace ) ; raise __e
1514
+ end ,
1515
+ Cell.new(
1516
+ begin
1517
+ trampCall(_r)
1518
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1519
+ end
1520
+ )))
1521
+ ))) ,
1522
+ trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
1523
+ begin
1524
+ if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
1525
+ trampCall(@_write_MIMARKto_MIMARKstring)
1526
+ else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
1527
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1528
+ end ,
1529
+ Cell.new(
1530
+ trampCall( self._third_METHOD( 'third',
1531
+ begin
1532
+ if @global_lisp_binding.has_key?('_third') then
1533
+ trampCall(@_third)
1534
+ else raise NameError.new( "Error: undefined variable _third", "_third" ) end
1535
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1536
+ end ,
1537
+ Cell.new(
1538
+ begin
1539
+ trampCall(_r)
1540
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1541
+ end
1542
+ )))
1543
+ )))
1544
+ )
1545
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
1546
+ end
1547
+ } ,Cell.new(
1548
+ trampCall( self._reverse_METHOD( 'reverse',
1549
+ begin
1550
+ if @global_lisp_binding.has_key?('_reverse') then
1551
+ trampCall(@_reverse)
1552
+ else raise NameError.new( "Error: undefined variable _reverse", "_reverse" ) end
1553
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:152"] + __e.backtrace ) ; raise __e
1554
+ end ,
1555
+ Cell.new(
1556
+ begin
1557
+ if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
1558
+ trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
1559
+ else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
1560
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
1561
+ end
1562
+ )))
1563
+ ))))
1564
+ end
1565
+ end
1566
+ if (
1567
+ begin
1568
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
1569
+ trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
1570
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
1571
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:154"] + __e.backtrace ) ; raise __e
1572
+ end
1573
+ ) then
1574
+ begin
1575
+ trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
1576
+ begin
1577
+ if @global_lisp_binding.has_key?('_write_MIMARKsummary') then
1578
+ trampCall(@_write_MIMARKsummary)
1579
+ else raise NameError.new( "Error: undefined variable _write_MIMARKsummary", "_write_MIMARKsummary" ) end
1580
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:155"] + __e.backtrace ) ; raise __e
1581
+ end ,
1582
+ Cell.new(
1583
+ )))
1584
+ end
1585
+ end
1586
+ delayCall( 'length',
1587
+ begin
1588
+ if @global_lisp_binding.has_key?('_length') then
1589
+ trampCall(@_length)
1590
+ else raise NameError.new( "Error: undefined variable _length", "_length" ) end
1591
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
1592
+ end ,
1593
+ Cell.new(
1594
+ begin
1595
+ if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
1596
+ trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
1597
+ else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
1598
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
1599
+ end
1600
+ ))
1601
+ } ; ___lambda.call(
1602
+ begin
1603
+ if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
1604
+ trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
1605
+ else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
1606
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:142"] + __e.backtrace ) ; raise __e
1607
+ end
1608
+ )
1609
+ end
1610
+ }
1611
+ )
1612
+ end
1613
+ )
1614
+ #--------------------
1615
+
1616
+ trampCall(
1617
+ begin
1618
+ def self._test_MIMARKmodule_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1619
+ @global_lisp_binding['_test_MIMARKmodule'] = self.method( :_test_MIMARKmodule_METHOD )
1620
+ @_test_MIMARKmodule =
1621
+ trampCall(
1622
+ Proc.new { |_module_MIMARKname|
1623
+ begin
1624
+ trampCall(_module_MIMARKname)
1625
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:163"] + __e.backtrace ) ; raise __e
1626
+ end
1627
+ }
1628
+ )
1629
+ end
1630
+ )
1631
+
1632
+
1633
+ # -------------------------------------------------------
1634
+ # [EOF]
1635
+ # -------------------------------------------------------