nendo 0.5.2 → 0.5.3

Sign up to get free protection for your applications and to get access to all the features.
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
  )