nendo 0.6.4 → 0.6.5

Sign up to get free protection for your applications and to get access to all the features.
Files changed (24) hide show
  1. checksums.yaml +15 -0
  2. data/Rakefile +20 -18
  3. data/VERSION.yml +1 -1
  4. data/lib/nendo/init.nndc +269 -269
  5. data/lib/nendo/nendo/experimental.nnd +69 -1
  6. data/lib/nendo/nendo/experimental.nndc +1814 -933
  7. data/lib/nendo/nendo/test.nndc +16 -16
  8. data/lib/nendo/rfc/json.nndc +6 -6
  9. data/lib/nendo/ruby/builtin_functions.rb +2 -0
  10. data/lib/nendo/ruby/core.rb +1 -1
  11. data/lib/nendo/ruby/printer.rb +2 -0
  12. data/lib/nendo/srfi-1.nnd +20 -5
  13. data/lib/nendo/srfi-1.nndc +1814 -1706
  14. data/lib/nendo/srfi-2.nndc +154 -154
  15. data/lib/nendo/srfi-26.nndc +433 -433
  16. data/lib/nendo/text/html-lite.nndc +46 -46
  17. data/lib/nendo/util/combinations.nndc +213 -213
  18. data/lib/nendo/util/list.nndc +294 -294
  19. data/lib/nendo/util/match.nnd +1 -1
  20. data/lib/nendo/util/match.nndc +5724 -5724
  21. data/test/nendo-util-test.nnd +121 -0
  22. data/test/nendo_spec.rb +5 -0
  23. data/test/rspec_formatter_for_emacs.rb +1 -0
  24. metadata +66 -17
data/lib/nendo/text/html-lite.nndc CHANGED
@@ -11,18 +11,18 @@ trampCall(
11
11
  trampCall(
12
12
  Proc.new { |_c|
13
13
  begin
14
- ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30184|
14
+ ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192|
15
15
  if (
16
16
  begin
17
- ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30190|
17
+ ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30198|
18
18
  if (
19
19
  begin
20
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30190)
20
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30198)
21
21
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
22
22
  end
23
23
  ) then
24
24
  begin
25
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30190)
25
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30198)
26
26
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
27
27
  end
28
28
  else
@@ -41,7 +41,7 @@ trampCall(
41
41
  [
42
42
  "<" ,
43
43
  begin
44
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30184)
44
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192)
45
45
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
46
46
  end
47
47
  ]
@@ -56,15 +56,15 @@ trampCall(
56
56
  else
57
57
  if (
58
58
  begin
59
- ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30191|
59
+ ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30199|
60
60
  if (
61
61
  begin
62
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30191)
62
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30199)
63
63
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
64
64
  end
65
65
  ) then
66
66
  begin
67
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30191)
67
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30199)
68
68
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
69
69
  end
70
70
  else
@@ -83,7 +83,7 @@ trampCall(
83
83
  [
84
84
  ">" ,
85
85
  begin
86
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30184)
86
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192)
87
87
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
88
88
  end
89
89
  ]
@@ -98,15 +98,15 @@ trampCall(
98
98
  else
99
99
  if (
100
100
  begin
101
- ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192|
101
+ ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30200|
102
102
  if (
103
103
  begin
104
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192)
104
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30200)
105
105
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
106
106
  end
107
107
  ) then
108
108
  begin
109
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192)
109
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30200)
110
110
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
111
111
  end
112
112
  else
@@ -125,7 +125,7 @@ trampCall(
125
125
  [
126
126
  "&" ,
127
127
  begin
128
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30184)
128
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192)
129
129
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
130
130
  end
131
131
  ]
@@ -140,15 +140,15 @@ trampCall(
140
140
  else
141
141
  if (
142
142
  begin
143
- ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30193|
143
+ ___lambda = lambda { |___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30201|
144
144
  if (
145
145
  begin
146
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30193)
146
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30201)
147
147
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
148
148
  end
149
149
  ) then
150
150
  begin
151
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30193)
151
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30201)
152
152
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
153
153
  end
154
154
  else
@@ -167,7 +167,7 @@ trampCall(
167
167
  [
168
168
  "\"" ,
169
169
  begin
170
- trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30184)
170
+ trampCall(___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30192)
171
171
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
172
172
  end
173
173
  ]
@@ -303,9 +303,9 @@ trampCall(
303
303
  ___lambda = lambda { |_type|
304
304
  if (
305
305
  begin
306
- def self.___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
307
- @global_lisp_binding['___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195'] = self.method( :___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195_METHOD )
308
- @___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195 =
306
+ def self.___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
307
+ @global_lisp_binding['___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203'] = self.method( :___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203_METHOD )
308
+ @___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203 =
309
309
  trampCall(
310
310
  begin
311
311
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 97 );
@@ -368,9 +368,9 @@ trampCall(
368
368
  end ,
369
369
  [
370
370
  begin
371
- if @global_lisp_binding.has_key?('___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195') then
372
- trampCall(@___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195)
373
- else raise NameError.new( "Error: undefined variable ___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195", "___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30195" ) end
371
+ if @global_lisp_binding.has_key?('___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203') then
372
+ trampCall(@___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203)
373
+ else raise NameError.new( "Error: undefined variable ___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203", "___gensym__95685ec818bb762effb7679d4635458e28ab89ab_30203" ) end
374
374
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
375
375
  end
376
376
  ]
@@ -906,7 +906,7 @@ trampCall(
906
906
  Proc.new { |_attr,_args|
907
907
  if (
908
908
  begin
909
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 39 );
909
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 265 );
910
910
  _not(
911
911
  begin
912
912
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 126 );
@@ -1138,7 +1138,7 @@ trampCall(
1138
1138
  ) then
1139
1139
  begin
1140
1140
  begin
1141
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1141
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1142
1142
  _cons(
1143
1143
  :"begin" ,
1144
1144
  begin
@@ -1157,7 +1157,7 @@ trampCall(
1157
1157
  if (
1158
1158
  if (
1159
1159
  begin
1160
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 39 );
1160
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 265 );
1161
1161
  _not(
1162
1162
  begin
1163
1163
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 111 );
@@ -1254,11 +1254,11 @@ trampCall(
1254
1254
  end ,
1255
1255
  [
1256
1256
  begin
1257
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1257
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1258
1258
  _cons(
1259
1259
  :"define" ,
1260
1260
  begin
1261
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1261
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1262
1262
  _cons(
1263
1263
  begin
1264
1264
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 153 );
@@ -1281,21 +1281,21 @@ trampCall(
1281
1281
  ))
1282
1282
  end ,
1283
1283
  begin
1284
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1284
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1285
1285
  _cons(
1286
1286
  begin
1287
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1287
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1288
1288
  _cons(
1289
1289
  :"make-html-element" ,
1290
1290
  begin
1291
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1291
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1292
1292
  _cons(
1293
1293
  begin
1294
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1294
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1295
1295
  _cons(
1296
1296
  :"quote" ,
1297
1297
  begin
1298
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1298
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1299
1299
  _cons(
1300
1300
  begin
1301
1301
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 153 );
@@ -1312,11 +1312,11 @@ trampCall(
1312
1312
  )
1313
1313
  end ,
1314
1314
  begin
1315
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1315
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1316
1316
  _cons(
1317
1317
  LispKeyword.new( "empty?" ) ,
1318
1318
  begin
1319
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1319
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1320
1320
  _cons(
1321
1321
  true ,
1322
1322
  Cell.new()
@@ -1336,11 +1336,11 @@ trampCall(
1336
1336
  )
1337
1337
  end ,
1338
1338
  begin
1339
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1339
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1340
1340
  _cons(
1341
1341
  :"export" ,
1342
1342
  begin
1343
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1343
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1344
1344
  _cons(
1345
1345
  begin
1346
1346
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 153 );
@@ -1411,11 +1411,11 @@ trampCall(
1411
1411
  end ,
1412
1412
  [
1413
1413
  begin
1414
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1414
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1415
1415
  _cons(
1416
1416
  :"define" ,
1417
1417
  begin
1418
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1418
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1419
1419
  _cons(
1420
1420
  begin
1421
1421
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 153 );
@@ -1438,21 +1438,21 @@ trampCall(
1438
1438
  ))
1439
1439
  end ,
1440
1440
  begin
1441
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1441
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1442
1442
  _cons(
1443
1443
  begin
1444
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1444
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1445
1445
  _cons(
1446
1446
  :"make-html-element" ,
1447
1447
  begin
1448
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1448
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1449
1449
  _cons(
1450
1450
  begin
1451
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1451
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1452
1452
  _cons(
1453
1453
  :"quote" ,
1454
1454
  begin
1455
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1455
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1456
1456
  _cons(
1457
1457
  begin
1458
1458
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 153 );
@@ -1481,11 +1481,11 @@ trampCall(
1481
1481
  )
1482
1482
  end ,
1483
1483
  begin
1484
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1484
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1485
1485
  _cons(
1486
1486
  :"export" ,
1487
1487
  begin
1488
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 71 );
1488
+ embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 102 );
1489
1489
  _cons(
1490
1490
  begin
1491
1491
  embedBacktraceInfo( "./lib/nendo/text/html-lite.nnd", 153 );