nendo 0.5.2 → 0.5.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (22) hide show
  1. data/benchmark/benchmark.nnd +27 -5
  2. data/lib/debug/syslog.nndc +24 -18
  3. data/lib/init.nnd +12 -28
  4. data/lib/init.nndc +18733 -14143
  5. data/lib/nendo/experimental.nnd +120 -0
  6. data/lib/nendo/experimental.nndc +1069 -0
  7. data/lib/nendo/test.nndc +1122 -879
  8. data/lib/nendo.rb +67 -16
  9. data/lib/rfc/json.nndc +486 -375
  10. data/lib/srfi-1.nndc +12775 -9853
  11. data/lib/srfi-2.nndc +810 -552
  12. data/lib/srfi-26.nndc +2615 -1838
  13. data/lib/text/html-lite.nndc +2286 -1737
  14. data/lib/text/tree.nndc +136 -103
  15. data/lib/util/combinations.nndc +4747 -3436
  16. data/lib/util/list.nndc +3417 -2355
  17. data/lib/util/match.nndc +53574 -36147
  18. data/test/nendo-util-test.nnd +318 -32
  19. data/test/nendo_spec.rb +65 -12
  20. data/test/rspec_formatter_for_emacs.rb +25 -0
  21. data/test/syntax_spec.rb +2 -0
  22. metadata +86 -12
data/lib/text/tree.nndc CHANGED
@@ -4,17 +4,20 @@
4
4
  #
5
5
 
6
6
  trampCall(
7
- delayCall( '_require', 'require',
8
- begin
9
- if @global_lisp_binding.has_key?('_require') then
10
- trampCall(@_require)
11
- else raise NameError.new( "Error: undefined variable _require", "_require" ) end
12
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:10"] + __e.backtrace ) ; raise __e
13
- end ,
14
- [
15
- "stringio"
16
- ]
17
- )
7
+ begin
8
+ embedBacktraceInfo( "./lib/text/tree.nnd", 10 );
9
+ delayCall( '_require', 'require',
10
+ begin
11
+ if @global_lisp_binding.has_key?('_require') then
12
+ trampCall(@_require)
13
+ else raise NameError.new( "Error: undefined variable _require", "_require" ) end
14
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:10"] + __e.backtrace ) ; raise __e
15
+ end ,
16
+ [
17
+ "stringio"
18
+ ]
19
+ )
20
+ end
18
21
  )
19
22
  #--------------------
20
23
 
@@ -32,60 +35,78 @@ trampCall(
32
35
  _loop =
33
36
  Proc.new { |_tree|
34
37
  if (
35
- _null_QUMARK(
36
- begin
37
- trampCall(_tree)
38
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
39
- end
40
- )
38
+ begin
39
+ embedBacktraceInfo( "./lib/text/tree.nnd", 17 );
40
+ _null_QUMARK(
41
+ begin
42
+ trampCall(_tree)
43
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
44
+ end
45
+ )
46
+ end
41
47
  ) then
42
48
  begin
43
49
  true
44
50
  end
45
51
  else
46
52
  if (
47
- _pair_QUMARK(
48
- begin
49
- trampCall(_tree)
50
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
51
- end
52
- )
53
+ begin
54
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
55
+ _pair_QUMARK(
56
+ begin
57
+ trampCall(_tree)
58
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
59
+ end
60
+ )
61
+ end
53
62
  ) then
54
63
  begin
55
- trampCall( self._write_MIMARKtree_METHOD( 'write-tree',
56
- begin
57
- if @global_lisp_binding.has_key?('_write_MIMARKtree') then
58
- trampCall(@_write_MIMARKtree)
59
- else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
60
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
61
- end ,
62
- [
63
- _car(
64
+ begin
65
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
66
+ trampCall( self._write_MIMARKtree_METHOD( 'write-tree',
67
+ begin
68
+ if @global_lisp_binding.has_key?('_write_MIMARKtree') then
69
+ trampCall(@_write_MIMARKtree)
70
+ else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
71
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
72
+ end ,
73
+ [
74
+ begin
75
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
76
+ _car(
77
+ begin
78
+ trampCall(_tree)
79
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
80
+ end
81
+ )
82
+ end ,
64
83
  begin
65
- trampCall(_tree)
66
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
84
+ trampCall(_out)
85
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
67
86
  end
68
- ) ,
69
- begin
70
- trampCall(_out)
71
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
72
- end
73
- ]
74
- ))
75
- delayCall( '_loop', 'loop',
76
- begin
77
- trampCall(_loop)
78
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
79
- end ,
80
- [
81
- _cdr(
87
+ ]
88
+ ))
89
+ end
90
+ begin
91
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
92
+ delayCall( '_loop', 'loop',
93
+ begin
94
+ trampCall(_loop)
95
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
96
+ end ,
97
+ [
82
98
  begin
83
- trampCall(_tree)
84
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
99
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
100
+ _cdr(
101
+ begin
102
+ trampCall(_tree)
103
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
104
+ end
105
+ )
85
106
  end
86
- )
87
- ]
88
- )
107
+ ]
108
+ )
109
+ end
89
110
  end
90
111
  else
91
112
  if (
@@ -108,50 +129,59 @@ trampCall(
108
129
  end
109
130
  end
110
131
  }
111
- delayCall( '_loop', 'loop',
112
- begin
113
- trampCall(_loop)
114
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
115
- end ,
116
- [
117
- begin
118
- trampCall(_tree)
119
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
120
- end
121
- ]
122
- )
132
+ begin
133
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
134
+ delayCall( '_loop', 'loop',
135
+ begin
136
+ trampCall(_loop)
137
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
138
+ end ,
139
+ [
140
+ begin
141
+ trampCall(_tree)
142
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
143
+ end
144
+ ]
145
+ )
146
+ end
123
147
  } ; ___lambda.call(
124
148
  nil
125
149
  )
126
150
  end
127
151
  } ; ___lambda.call(
128
152
  if (
129
- _null_QUMARK(
130
- begin
131
- trampCall(_out)
132
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
133
- end
134
- )
153
+ begin
154
+ embedBacktraceInfo( "./lib/text/tree.nnd", 17 );
155
+ _null_QUMARK(
156
+ begin
157
+ trampCall(_out)
158
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
159
+ end
160
+ )
161
+ end
135
162
  ) then
136
163
  begin
137
164
  trampCall(STDOUT)
138
165
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:14"] + __e.backtrace ) ; raise __e
139
166
  end
140
167
  else
141
- delayCall( '_car', 'car',
142
- begin
143
- if @global_lisp_binding.has_key?('_car') then
144
- trampCall(@_car)
145
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
146
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
147
- end ,
148
- [
149
- begin
150
- trampCall(_out)
151
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
152
- end
153
- ]
154
- )
168
+ begin
169
+ embedBacktraceInfo( "./lib/text/tree.nnd", 18 );
170
+ delayCall( '_car', 'car',
171
+ begin
172
+ if @global_lisp_binding.has_key?('_car') then
173
+ trampCall(@_car)
174
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
175
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
176
+ end ,
177
+ [
178
+ begin
179
+ trampCall(_out)
180
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
181
+ end
182
+ ]
183
+ )
184
+ end
155
185
  end
156
186
  )
157
187
  end
@@ -170,24 +200,27 @@ trampCall(
170
200
  Proc.new { |_tree|
171
201
  begin
172
202
  ___lambda = lambda { |_sio|
173
- trampCall( self._write_MIMARKtree_METHOD( 'write-tree',
174
- begin
175
- if @global_lisp_binding.has_key?('_write_MIMARKtree') then
176
- trampCall(@_write_MIMARKtree)
177
- else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
178
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
179
- end ,
180
- [
181
- begin
182
- trampCall(_tree)
183
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
184
- end ,
185
- begin
186
- trampCall(_sio)
187
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
188
- end
189
- ]
190
- ))
203
+ begin
204
+ embedBacktraceInfo( "./lib/text/tree.nnd", 24 );
205
+ trampCall( self._write_MIMARKtree_METHOD( 'write-tree',
206
+ begin
207
+ if @global_lisp_binding.has_key?('_write_MIMARKtree') then
208
+ trampCall(@_write_MIMARKtree)
209
+ else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
210
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
211
+ end ,
212
+ [
213
+ begin
214
+ trampCall(_tree)
215
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
216
+ end ,
217
+ begin
218
+ trampCall(_sio)
219
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
220
+ end
221
+ ]
222
+ ))
223
+ end
191
224
  begin
192
225
  trampCall(_sio).string(
193
226
  )