nendo 0.3.1 → 0.3.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (15) hide show
  1. data/bin/nendo +83 -14
  2. data/emacs/nendo-mode.el +7 -0
  3. data/example/cgi/dekamoji.cgi +74 -55
  4. data/example/fact.nnd +2 -5
  5. data/example/fizzbuzz1.nnd +5 -3
  6. data/example/nqueen.nnd +71 -0
  7. data/example/scratch.nnd +1 -2
  8. data/lib/debug/syslog.nnd +1 -1
  9. data/lib/debug/syslog.nndc +9 -0
  10. data/lib/init.nnd +248 -16
  11. data/lib/init.nndc +7194 -4456
  12. data/lib/nendo.rb +220 -50
  13. data/lib/text/html-lite.nndc +74 -57
  14. data/lib/text/tree.nndc +9 -0
  15. metadata +6 -12
data/lib/text/html-lite.nndc CHANGED
@@ -1,21 +1,25 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
1
5
 
2
6
  begin
3
7
  @global_lisp_binding['_html_MIMARKescape'] = true
4
8
  @_html_MIMARKescape =
5
9
  Proc.new { |_c|
6
10
  begin
7
- ___lambda = lambda { |___gensym__10068|
11
+ ___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20023|
8
12
  if (
9
13
  begin
10
- ___lambda = lambda { |___gensym__10074|
14
+ ___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20029|
11
15
  if (
12
16
  begin
13
- ___gensym__10074
17
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20029
14
18
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
15
19
  end
16
20
  ) then
17
21
  begin
18
- ___gensym__10074
22
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20029
19
23
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
20
24
  end
21
25
  else
@@ -27,12 +31,12 @@
27
31
  if @global_lisp_binding.has_key?('_eqv_QUMARK') then
28
32
  @_eqv_QUMARK
29
33
  else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
30
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:497"] + __e.backtrace ) ; raise __e
34
+ rescue => __e ; __e.set_backtrace( ["./lib/text/html-lite.nnd:143"] + __e.backtrace ) ; raise __e
31
35
  end ,
32
36
  Cell.new(
33
37
  "<" ,Cell.new(
34
38
  begin
35
- ___gensym__10068
39
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20023
36
40
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
37
41
  end
38
42
  )))
@@ -45,15 +49,15 @@
45
49
  else
46
50
  if (
47
51
  begin
48
- ___lambda = lambda { |___gensym__10075|
52
+ ___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20030|
49
53
  if (
50
54
  begin
51
- ___gensym__10075
55
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20030
52
56
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
53
57
  end
54
58
  ) then
55
59
  begin
56
- ___gensym__10075
60
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20030
57
61
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
58
62
  end
59
63
  else
@@ -65,12 +69,12 @@
65
69
  if @global_lisp_binding.has_key?('_eqv_QUMARK') then
66
70
  @_eqv_QUMARK
67
71
  else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
68
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:497"] + __e.backtrace ) ; raise __e
72
+ rescue => __e ; __e.set_backtrace( ["./lib/text/html-lite.nnd:143"] + __e.backtrace ) ; raise __e
69
73
  end ,
70
74
  Cell.new(
71
75
  ">" ,Cell.new(
72
76
  begin
73
- ___gensym__10068
77
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20023
74
78
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
75
79
  end
76
80
  )))
@@ -83,15 +87,15 @@
83
87
  else
84
88
  if (
85
89
  begin
86
- ___lambda = lambda { |___gensym__10076|
90
+ ___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20031|
87
91
  if (
88
92
  begin
89
- ___gensym__10076
93
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20031
90
94
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
91
95
  end
92
96
  ) then
93
97
  begin
94
- ___gensym__10076
98
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20031
95
99
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
96
100
  end
97
101
  else
@@ -103,12 +107,12 @@
103
107
  if @global_lisp_binding.has_key?('_eqv_QUMARK') then
104
108
  @_eqv_QUMARK
105
109
  else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
106
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:497"] + __e.backtrace ) ; raise __e
110
+ rescue => __e ; __e.set_backtrace( ["./lib/text/html-lite.nnd:143"] + __e.backtrace ) ; raise __e
107
111
  end ,
108
112
  Cell.new(
109
113
  "&" ,Cell.new(
110
114
  begin
111
- ___gensym__10068
115
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20023
112
116
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
113
117
  end
114
118
  )))
@@ -121,15 +125,15 @@
121
125
  else
122
126
  if (
123
127
  begin
124
- ___lambda = lambda { |___gensym__10077|
128
+ ___lambda = lambda { |___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20032|
125
129
  if (
126
130
  begin
127
- ___gensym__10077
131
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20032
128
132
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
129
133
  end
130
134
  ) then
131
135
  begin
132
- ___gensym__10077
136
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20032
133
137
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
134
138
  end
135
139
  else
@@ -141,12 +145,12 @@
141
145
  if @global_lisp_binding.has_key?('_eqv_QUMARK') then
142
146
  @_eqv_QUMARK
143
147
  else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
144
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:497"] + __e.backtrace ) ; raise __e
148
+ rescue => __e ; __e.set_backtrace( ["./lib/text/html-lite.nnd:143"] + __e.backtrace ) ; raise __e
145
149
  end ,
146
150
  Cell.new(
147
151
  "\"" ,Cell.new(
148
152
  begin
149
- ___gensym__10068
153
+ ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20023
150
154
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
151
155
  end
152
156
  )))
@@ -236,13 +240,20 @@
236
240
  @global_lisp_binding['__ASMARKdoctype_MIMARKalist_ASMARK'] = true
237
241
  @__ASMARKdoctype_MIMARKalist_ASMARK =
238
242
  Cell.new(Cell.new(Cell.new(LispKeyword.new( "strict" ),Cell.new(LispKeyword.new( "html" ),Cell.new(LispKeyword.new( "html-strict" ),Cell.new(LispKeyword.new( "html-4.01" ),Cell.new(LispKeyword.new( "html-4.01-strict" )))))),Cell.new(false,Cell.new("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"
239
- \"http://www.w3.org/TR/html4/strict.dtd\">\n"))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "transitional" ),Cell.new(LispKeyword.new( "html-transitional" ),Cell.new(LispKeyword.new( "html-4.01-transitional" )))),Cell.new(false,Cell.new("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
240
- \"http://www.w3.org/TR/html4/loose.dtd\">\n"))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "frameset" ),Cell.new(LispKeyword.new( "html-frameset" ),Cell.new(LispKeyword.new( "html-4.01-frameset" )))),Cell.new(false,Cell.new("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\"
241
- \"http://www.w3.org/TR/html4/frameset.dtd\">\n"))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.0-strict" ),Cell.new(LispKeyword.new( "xhtml-1.0" ))),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
242
- \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n"))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.0-transitional" )),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"
243
- \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n"))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.0-frameset" )),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\"
244
- \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">\n"))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.1" )),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\"
245
- \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">\n"))))))))))
243
+ \"http://www.w3.org/TR/html4/strict.dtd\">
244
+ "))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "transitional" ),Cell.new(LispKeyword.new( "html-transitional" ),Cell.new(LispKeyword.new( "html-4.01-transitional" )))),Cell.new(false,Cell.new("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
245
+ \"http://www.w3.org/TR/html4/loose.dtd\">
246
+ "))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "frameset" ),Cell.new(LispKeyword.new( "html-frameset" ),Cell.new(LispKeyword.new( "html-4.01-frameset" )))),Cell.new(false,Cell.new("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\"
247
+ \"http://www.w3.org/TR/html4/frameset.dtd\">
248
+ "))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.0-strict" ),Cell.new(LispKeyword.new( "xhtml-1.0" ))),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
249
+ \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
250
+ "))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.0-transitional" )),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"
251
+ \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">
252
+ "))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.0-frameset" )),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\"
253
+ \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">
254
+ "))),Cell.new(Cell.new(Cell.new(LispKeyword.new( "xhtml-1.1" )),Cell.new(true,Cell.new("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\"
255
+ \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">
256
+ "))))))))))
246
257
  end
247
258
  #--------------------
248
259
 
@@ -254,8 +265,8 @@
254
265
  ___lambda = lambda { |_type|
255
266
  if (
256
267
  begin
257
- @global_lisp_binding['___gensym__10079'] = true
258
- @___gensym__10079 =
268
+ @global_lisp_binding['___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034'] = true
269
+ @___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034 =
259
270
  callProcedure( 'find',
260
271
  begin
261
272
  if @global_lisp_binding.has_key?('_find') then
@@ -310,9 +321,9 @@
310
321
  end ,
311
322
  Cell.new(
312
323
  begin
313
- if @global_lisp_binding.has_key?('___gensym__10079') then
314
- @___gensym__10079
315
- else raise NameError.new( "Error: undefined variable ___gensym__10079", "___gensym__10079" ) end
324
+ if @global_lisp_binding.has_key?('___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034') then
325
+ @___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034
326
+ else raise NameError.new( "Error: undefined variable ___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034", "___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034" ) end
316
327
  rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
317
328
  end
318
329
  ))
@@ -793,7 +804,7 @@
793
804
  if @global_lisp_binding.has_key?('_call_MIMARKwith_MIMARKvalues') then
794
805
  @_call_MIMARKwith_MIMARKvalues
795
806
  else raise NameError.new( "Error: undefined variable _call_MIMARKwith_MIMARKvalues", "_call_MIMARKwith_MIMARKvalues" ) end
796
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:556"] + __e.backtrace ) ; raise __e
807
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
797
808
  end ,
798
809
  Cell.new(
799
810
  Proc.new { ||
@@ -817,7 +828,7 @@
817
828
  if @global_lisp_binding.has_key?('_not') then
818
829
  @_not
819
830
  else raise NameError.new( "Error: undefined variable _not", "_not" ) end
820
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:702"] + __e.backtrace ) ; raise __e
831
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
821
832
  end ,
822
833
  Cell.new(
823
834
  callProcedure( 'null?',
@@ -899,7 +910,7 @@
899
910
  if @global_lisp_binding.has_key?('_call_MIMARKwith_MIMARKvalues') then
900
911
  @_call_MIMARKwith_MIMARKvalues
901
912
  else raise NameError.new( "Error: undefined variable _call_MIMARKwith_MIMARKvalues", "_call_MIMARKwith_MIMARKvalues" ) end
902
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:556"] + __e.backtrace ) ; raise __e
913
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
903
914
  end ,
904
915
  Cell.new(
905
916
  Proc.new { ||
@@ -944,7 +955,8 @@
944
955
  _name
945
956
  rescue => __e ; __e.set_backtrace( ["./lib/text/html-lite.nnd:131"] + __e.backtrace ) ; raise __e
946
957
  end ,Cell.new(
947
- "\n>"
958
+ "
959
+ >"
948
960
  )))))))))
949
961
  }
950
962
  )))
@@ -1033,7 +1045,7 @@
1033
1045
  if @global_lisp_binding.has_key?('_cons') then
1034
1046
  @_cons
1035
1047
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1036
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1048
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1037
1049
  end ,
1038
1050
  Cell.new(
1039
1051
  :"begin" ,Cell.new(
@@ -1060,7 +1072,7 @@
1060
1072
  if @global_lisp_binding.has_key?('_not') then
1061
1073
  @_not
1062
1074
  else raise NameError.new( "Error: undefined variable _not", "_not" ) end
1063
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:702"] + __e.backtrace ) ; raise __e
1075
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1064
1076
  end ,
1065
1077
  Cell.new(
1066
1078
  callProcedure( 'eq?',
@@ -1157,7 +1169,7 @@
1157
1169
  if @global_lisp_binding.has_key?('_cons') then
1158
1170
  @_cons
1159
1171
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1160
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1172
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1161
1173
  end ,
1162
1174
  Cell.new(
1163
1175
  :"define" ,Cell.new(
@@ -1166,7 +1178,7 @@
1166
1178
  if @global_lisp_binding.has_key?('_cons') then
1167
1179
  @_cons
1168
1180
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1169
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1181
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1170
1182
  end ,
1171
1183
  Cell.new(
1172
1184
  callProcedure( 'make-scheme-name',
@@ -1194,7 +1206,7 @@
1194
1206
  if @global_lisp_binding.has_key?('_cons') then
1195
1207
  @_cons
1196
1208
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1197
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1209
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1198
1210
  end ,
1199
1211
  Cell.new(
1200
1212
  callProcedure( 'cons',
@@ -1202,7 +1214,7 @@
1202
1214
  if @global_lisp_binding.has_key?('_cons') then
1203
1215
  @_cons
1204
1216
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1205
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1217
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1206
1218
  end ,
1207
1219
  Cell.new(
1208
1220
  :"make-html-element" ,Cell.new(
@@ -1211,7 +1223,7 @@
1211
1223
  if @global_lisp_binding.has_key?('_cons') then
1212
1224
  @_cons
1213
1225
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1214
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1226
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1215
1227
  end ,
1216
1228
  Cell.new(
1217
1229
  callProcedure( 'cons',
@@ -1219,7 +1231,7 @@
1219
1231
  if @global_lisp_binding.has_key?('_cons') then
1220
1232
  @_cons
1221
1233
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1222
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1234
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1223
1235
  end ,
1224
1236
  Cell.new(
1225
1237
  :"quote" ,Cell.new(
@@ -1228,7 +1240,7 @@
1228
1240
  if @global_lisp_binding.has_key?('_cons') then
1229
1241
  @_cons
1230
1242
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1231
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1243
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1232
1244
  end ,
1233
1245
  Cell.new(
1234
1246
  callProcedure( 'car',
@@ -1259,7 +1271,7 @@
1259
1271
  if @global_lisp_binding.has_key?('_cons') then
1260
1272
  @_cons
1261
1273
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1262
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1274
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1263
1275
  end ,
1264
1276
  Cell.new(
1265
1277
  :"export" ,Cell.new(
@@ -1268,7 +1280,7 @@
1268
1280
  if @global_lisp_binding.has_key?('_cons') then
1269
1281
  @_cons
1270
1282
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1271
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1283
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1272
1284
  end ,
1273
1285
  Cell.new(
1274
1286
  callProcedure( 'make-scheme-name',
@@ -1338,7 +1350,7 @@
1338
1350
  if @global_lisp_binding.has_key?('_cons') then
1339
1351
  @_cons
1340
1352
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1341
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1353
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1342
1354
  end ,
1343
1355
  Cell.new(
1344
1356
  :"define" ,Cell.new(
@@ -1347,7 +1359,7 @@
1347
1359
  if @global_lisp_binding.has_key?('_cons') then
1348
1360
  @_cons
1349
1361
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1350
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1362
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1351
1363
  end ,
1352
1364
  Cell.new(
1353
1365
  callProcedure( 'make-scheme-name',
@@ -1375,7 +1387,7 @@
1375
1387
  if @global_lisp_binding.has_key?('_cons') then
1376
1388
  @_cons
1377
1389
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1378
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1390
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1379
1391
  end ,
1380
1392
  Cell.new(
1381
1393
  callProcedure( 'cons',
@@ -1383,7 +1395,7 @@
1383
1395
  if @global_lisp_binding.has_key?('_cons') then
1384
1396
  @_cons
1385
1397
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1386
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1398
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1387
1399
  end ,
1388
1400
  Cell.new(
1389
1401
  :"make-html-element" ,Cell.new(
@@ -1392,7 +1404,7 @@
1392
1404
  if @global_lisp_binding.has_key?('_cons') then
1393
1405
  @_cons
1394
1406
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1395
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1407
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1396
1408
  end ,
1397
1409
  Cell.new(
1398
1410
  callProcedure( 'cons',
@@ -1400,7 +1412,7 @@
1400
1412
  if @global_lisp_binding.has_key?('_cons') then
1401
1413
  @_cons
1402
1414
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1403
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1415
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1404
1416
  end ,
1405
1417
  Cell.new(
1406
1418
  :"quote" ,Cell.new(
@@ -1409,7 +1421,7 @@
1409
1421
  if @global_lisp_binding.has_key?('_cons') then
1410
1422
  @_cons
1411
1423
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1412
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1424
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1413
1425
  end ,
1414
1426
  Cell.new(
1415
1427
  callProcedure( 'car',
@@ -1440,7 +1452,7 @@
1440
1452
  if @global_lisp_binding.has_key?('_cons') then
1441
1453
  @_cons
1442
1454
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1443
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1455
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1444
1456
  end ,
1445
1457
  Cell.new(
1446
1458
  :"export" ,Cell.new(
@@ -1449,7 +1461,7 @@
1449
1461
  if @global_lisp_binding.has_key?('_cons') then
1450
1462
  @_cons
1451
1463
  else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1452
- rescue => __e ; __e.set_backtrace( ["./lib/init.nnd:698"] + __e.backtrace ) ; raise __e
1464
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1453
1465
  end ,
1454
1466
  Cell.new(
1455
1467
  callProcedure( 'make-scheme-name',
@@ -3157,3 +3169,8 @@
3157
3169
  ))
3158
3170
  end
3159
3171
  end
3172
+
3173
+
3174
+ # -------------------------------------------------------
3175
+ # [EOF]
3176
+ # -------------------------------------------------------
data/lib/text/tree.nndc CHANGED
@@ -1,3 +1,7 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
1
5
 
2
6
  callProcedure( 'require',
3
7
  begin
@@ -219,3 +223,8 @@
219
223
  end
220
224
  }
221
225
  end
226
+
227
+
228
+ # -------------------------------------------------------
229
+ # [EOF]
230
+ # -------------------------------------------------------
metadata CHANGED
@@ -1,12 +1,7 @@
1
1
  --- !ruby/object:Gem::Specification
2
2
  name: nendo
3
3
  version: !ruby/object:Gem::Version
4
- prerelease: false
5
- segments:
6
- - 0
7
- - 3
8
- - 1
9
- version: 0.3.1
4
+ version: 0.3.2
10
5
  platform: ruby
11
6
  authors:
12
7
  - Kiyoka Nishiyama
@@ -14,7 +9,7 @@ autorequire:
14
9
  bindir: bin
15
10
  cert_chain: []
16
11
 
17
- date: 2010-04-30 00:00:00 +09:00
12
+ date: 2010-05-27 00:00:00 +09:00
18
13
  default_executable: nendo
19
14
  dependencies: []
20
15
 
@@ -35,6 +30,7 @@ files:
35
30
  - example/fact.nnd
36
31
  - example/fizzbuzz1.nnd
37
32
  - example/html-lite-sample.nnd
33
+ - example/nqueen.nnd
38
34
  - example/scratch.nnd
39
35
  - example/tak.nnd
40
36
  - lib/debug/syslog.nnd
@@ -60,20 +56,18 @@ required_ruby_version: !ruby/object:Gem::Requirement
60
56
  requirements:
61
57
  - - ">="
62
58
  - !ruby/object:Gem::Version
63
- segments:
64
- - 0
65
59
  version: "0"
60
+ version:
66
61
  required_rubygems_version: !ruby/object:Gem::Requirement
67
62
  requirements:
68
63
  - - ">="
69
64
  - !ruby/object:Gem::Version
70
- segments:
71
- - 0
72
65
  version: "0"
66
+ version:
73
67
  requirements: []
74
68
 
75
69
  rubyforge_project:
76
- rubygems_version: 1.3.6
70
+ rubygems_version: 1.3.4
77
71
  signing_key:
78
72
  specification_version: 3
79
73
  summary: Nendo is a dialect of Lisp.