nendo 0.3.0 → 0.3.1

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 (12) hide show
  1. data/bin/nendo +33 -2
  2. data/example/cgi/dekamoji.cgi +78 -43
  3. data/lib/debug/syslog.nnd +42 -0
  4. data/lib/debug/syslog.nndc +53 -0
  5. data/lib/init.nnd +61 -9
  6. data/lib/init.nndc +9674 -9037
  7. data/lib/nendo.rb +99 -10
  8. data/lib/text/html-lite.nnd +3 -2
  9. data/lib/text/html-lite.nndc +2864 -2357
  10. data/lib/text/tree.nnd +4 -2
  11. data/lib/text/tree.nndc +183 -177
  12. metadata +17 -6
data/lib/text/tree.nnd CHANGED
@@ -1,9 +1,11 @@
1
+ ;;-*- mode: nendo; syntax: scheme -*-;;
1
2
  ;;;
2
- ;;; test/tree.scm - lightweight text generation
3
+ ;;; text/tree.scm - lightweight text generation
3
4
  ;;;
4
5
  ;;; Public Domain.
5
- ;;; $Id: tree.scm,v 1.5 2003-07-05 03:29:12 shirok Exp $
6
+ ;;; $Id:
6
7
  ;;;
8
+ ;;; ported for Nendo language by Kiyoka Nishiyama.
7
9
 
8
10
  (require "stringio")
9
11
 
data/lib/text/tree.nndc CHANGED
@@ -1,215 +1,221 @@
1
1
 
2
2
  callProcedure( 'require',
3
3
  begin
4
- if (self.instance_variables.include?(:@_require)) then
4
+ if @global_lisp_binding.has_key?('_require') then
5
5
  @_require
6
6
  else raise NameError.new( "Error: undefined variable _require", "_require" ) end
7
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:8"] + __e.backtrace ) ; raise __e
7
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:10"] + __e.backtrace ) ; raise __e
8
8
  end ,
9
9
  Cell.new(
10
10
  "stringio"
11
11
  ))
12
12
  #--------------------
13
13
 
14
- @_write_MIMARKtree =
15
- Proc.new { |_tree,*__rest__| _out = __rest__[0] ;
16
- begin
17
- ___lambda = lambda { |_out|
18
- begin
19
- ___lambda = lambda { |_loop|
20
- _loop =
21
- Proc.new { |_tree|
22
- if (
23
- callProcedure( 'null?',
24
- begin
25
- if (self.instance_variables.include?(:@_null_QUMARK)) then
26
- @_null_QUMARK
27
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
28
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:15"] + __e.backtrace ) ; raise __e
29
- end ,
30
- Cell.new(
14
+ begin
15
+ @global_lisp_binding['_write_MIMARKtree'] = true
16
+ @_write_MIMARKtree =
17
+ Proc.new { |_tree,*__rest__| _out = __rest__[0] ;
18
+ begin
19
+ ___lambda = lambda { |_out|
20
+ begin
21
+ ___lambda = lambda { |_loop|
22
+ _loop =
23
+ Proc.new { |_tree|
24
+ if (
25
+ callProcedure( 'null?',
31
26
  begin
32
- _tree
33
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
34
- end
35
- ))
36
- ) then
37
- begin
38
- true
39
- end
40
- else
41
- if (
42
- callProcedure( 'pair?',
27
+ if @global_lisp_binding.has_key?('_null_QUMARK') then
28
+ @_null_QUMARK
29
+ else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
30
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:17"] + __e.backtrace ) ; raise __e
31
+ end ,
32
+ Cell.new(
43
33
  begin
44
- if (self.instance_variables.include?(:@_pair_QUMARK)) then
45
- @_pair_QUMARK
46
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
47
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
48
- end ,
49
- Cell.new(
34
+ _tree
35
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
36
+ end
37
+ ))
38
+ ) then
39
+ begin
40
+ true
41
+ end
42
+ else
43
+ if (
44
+ callProcedure( 'pair?',
50
45
  begin
51
- _tree
46
+ if @global_lisp_binding.has_key?('_pair_QUMARK') then
47
+ @_pair_QUMARK
48
+ else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
52
49
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
53
- end
54
- ))
55
- ) then
56
- begin
57
- callProcedure( 'write-tree',
58
- begin
59
- if (self.instance_variables.include?(:@_write_MIMARKtree)) then
60
- @_write_MIMARKtree
61
- else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
62
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
63
- end ,
64
- Cell.new(
65
- callProcedure( 'car',
66
- begin
67
- if (self.instance_variables.include?(:@_car)) then
68
- @_car
69
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
70
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
71
- end ,
72
- Cell.new(
50
+ end ,
51
+ Cell.new(
52
+ begin
53
+ _tree
54
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
55
+ end
56
+ ))
57
+ ) then
58
+ begin
59
+ callProcedure( 'write-tree',
60
+ begin
61
+ if @global_lisp_binding.has_key?('_write_MIMARKtree') then
62
+ @_write_MIMARKtree
63
+ else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
64
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
65
+ end ,
66
+ Cell.new(
67
+ callProcedure( 'car',
73
68
  begin
74
- _tree
69
+ if @global_lisp_binding.has_key?('_car') then
70
+ @_car
71
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
75
72
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
76
- end
77
- )) ,Cell.new(
73
+ end ,
74
+ Cell.new(
75
+ begin
76
+ _tree
77
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
78
+ end
79
+ )) ,Cell.new(
80
+ begin
81
+ _out
82
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
83
+ end
84
+ )))
85
+ callProcedure( 'loop',
78
86
  begin
79
- _out
80
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
81
- end
82
- )))
83
- callProcedure( 'loop',
84
- begin
85
- _loop
86
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
87
- end ,
88
- Cell.new(
89
- callProcedure( 'cdr',
90
- begin
91
- if (self.instance_variables.include?(:@_cdr)) then
92
- @_cdr
93
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
94
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
95
- end ,
96
- Cell.new(
87
+ _loop
88
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
89
+ end ,
90
+ Cell.new(
91
+ callProcedure( 'cdr',
97
92
  begin
98
- _tree
93
+ if @global_lisp_binding.has_key?('_cdr') then
94
+ @_cdr
95
+ else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
99
96
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
100
- end
101
- ))
102
- ))
103
- end
104
- else
105
- if (
106
- true
107
- ) then
108
- begin
109
- begin
110
- _out.print(
97
+ end ,
98
+ Cell.new(
111
99
  begin
112
100
  _tree
113
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
101
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
114
102
  end
115
- )
116
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
117
- end
118
- end
119
- else
120
- Nil.new
121
- end
122
- end
123
- end
124
- }
125
- callProcedure( 'loop',
126
- begin
127
- _loop
128
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
129
- end ,
130
- Cell.new(
103
+ ))
104
+ ))
105
+ end
106
+ else
107
+ if (
108
+ true
109
+ ) then
110
+ begin
111
+ begin
112
+ _out.print(
113
+ begin
114
+ _tree
115
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
116
+ end
117
+ )
118
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
119
+ end
120
+ end
121
+ else
122
+ Nil.new
123
+ end
124
+ end
125
+ end
126
+ }
127
+ callProcedure( 'loop',
131
128
  begin
132
- _tree
129
+ _loop
133
130
  rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
134
- end
135
- ))
136
- } ; ___lambda.call(
137
- nil
138
- )
139
- end
140
- } ; ___lambda.call(
141
- if (
142
- callProcedure( 'null?',
143
- begin
144
- if (self.instance_variables.include?(:@_null_QUMARK)) then
145
- @_null_QUMARK
146
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
147
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:15"] + __e.backtrace ) ; raise __e
148
- end ,
149
- Cell.new(
150
- begin
151
- _out
152
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
153
- end
154
- ))
155
- ) then
156
- begin
157
- STDOUT
158
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:12"] + __e.backtrace ) ; raise __e
159
- end
160
- else
161
- callProcedure( 'car',
131
+ end ,
132
+ Cell.new(
133
+ begin
134
+ _tree
135
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:20"] + __e.backtrace ) ; raise __e
136
+ end
137
+ ))
138
+ } ; ___lambda.call(
139
+ nil
140
+ )
141
+ end
142
+ } ; ___lambda.call(
143
+ if (
144
+ callProcedure( 'null?',
162
145
  begin
163
- if (self.instance_variables.include?(:@_car)) then
164
- @_car
165
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
166
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
146
+ if @global_lisp_binding.has_key?('_null_QUMARK') then
147
+ @_null_QUMARK
148
+ else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
149
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:17"] + __e.backtrace ) ; raise __e
167
150
  end ,
168
151
  Cell.new(
169
152
  begin
170
153
  _out
171
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
154
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
172
155
  end
173
156
  ))
174
- end
175
- )
176
- end
177
- }
157
+ ) then
158
+ begin
159
+ STDOUT
160
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:14"] + __e.backtrace ) ; raise __e
161
+ end
162
+ else
163
+ callProcedure( 'car',
164
+ begin
165
+ if @global_lisp_binding.has_key?('_car') then
166
+ @_car
167
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
168
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
169
+ end ,
170
+ Cell.new(
171
+ begin
172
+ _out
173
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
174
+ end
175
+ ))
176
+ end
177
+ )
178
+ end
179
+ }
180
+ end
178
181
  #--------------------
179
182
 
180
- @_tree_MIMARK_GTMARKstring =
181
- Proc.new { |_tree|
182
- begin
183
- ___lambda = lambda { |_sio|
184
- callProcedure( 'write-tree',
185
- begin
186
- if (self.instance_variables.include?(:@_write_MIMARKtree)) then
187
- @_write_MIMARKtree
188
- else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
189
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:22"] + __e.backtrace ) ; raise __e
190
- end ,
191
- Cell.new(
183
+ begin
184
+ @global_lisp_binding['_tree_MIMARK_GTMARKstring'] = true
185
+ @_tree_MIMARK_GTMARKstring =
186
+ Proc.new { |_tree|
187
+ begin
188
+ ___lambda = lambda { |_sio|
189
+ callProcedure( 'write-tree',
192
190
  begin
193
- _tree
194
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:22"] + __e.backtrace ) ; raise __e
195
- end ,Cell.new(
196
- begin
197
- _sio
198
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:22"] + __e.backtrace ) ; raise __e
199
- end
200
- )))
201
- begin
202
- _sio.string(
203
- )
204
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:23"] + __e.backtrace ) ; raise __e
205
- end
206
- } ; ___lambda.call(
191
+ if @global_lisp_binding.has_key?('_write_MIMARKtree') then
192
+ @_write_MIMARKtree
193
+ else raise NameError.new( "Error: undefined variable _write_MIMARKtree", "_write_MIMARKtree" ) end
194
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
195
+ end ,
196
+ Cell.new(
197
+ begin
198
+ _tree
199
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
200
+ end ,Cell.new(
201
+ begin
202
+ _sio
203
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:24"] + __e.backtrace ) ; raise __e
204
+ end
205
+ )))
207
206
  begin
208
- StringIO.new(
209
- ""
207
+ _sio.string(
210
208
  )
211
- rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:21"] + __e.backtrace ) ; raise __e
209
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:25"] + __e.backtrace ) ; raise __e
212
210
  end
213
- )
214
- end
215
- }
211
+ } ; ___lambda.call(
212
+ begin
213
+ StringIO.new(
214
+ ""
215
+ )
216
+ rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:23"] + __e.backtrace ) ; raise __e
217
+ end
218
+ )
219
+ end
220
+ }
221
+ end
metadata CHANGED
@@ -1,7 +1,12 @@
1
1
  --- !ruby/object:Gem::Specification
2
2
  name: nendo
3
3
  version: !ruby/object:Gem::Version
4
- version: 0.3.0
4
+ prerelease: false
5
+ segments:
6
+ - 0
7
+ - 3
8
+ - 1
9
+ version: 0.3.1
5
10
  platform: ruby
6
11
  authors:
7
12
  - Kiyoka Nishiyama
@@ -9,7 +14,7 @@ autorequire:
9
14
  bindir: bin
10
15
  cert_chain: []
11
16
 
12
- date: 2010-04-12 00:00:00 +09:00
17
+ date: 2010-04-30 00:00:00 +09:00
13
18
  default_executable: nendo
14
19
  dependencies: []
15
20
 
@@ -32,6 +37,8 @@ files:
32
37
  - example/html-lite-sample.nnd
33
38
  - example/scratch.nnd
34
39
  - example/tak.nnd
40
+ - lib/debug/syslog.nnd
41
+ - lib/debug/syslog.nndc
35
42
  - lib/init.nnd
36
43
  - lib/init.nndc
37
44
  - lib/nendo.rb
@@ -42,6 +49,8 @@ files:
42
49
  - README
43
50
  has_rdoc: true
44
51
  homepage: http://github.com/kiyoka/nendo
52
+ licenses: []
53
+
45
54
  post_install_message:
46
55
  rdoc_options:
47
56
  - --charset=UTF-8
@@ -51,20 +60,22 @@ required_ruby_version: !ruby/object:Gem::Requirement
51
60
  requirements:
52
61
  - - ">="
53
62
  - !ruby/object:Gem::Version
63
+ segments:
64
+ - 0
54
65
  version: "0"
55
- version:
56
66
  required_rubygems_version: !ruby/object:Gem::Requirement
57
67
  requirements:
58
68
  - - ">="
59
69
  - !ruby/object:Gem::Version
70
+ segments:
71
+ - 0
60
72
  version: "0"
61
- version:
62
73
  requirements: []
63
74
 
64
75
  rubyforge_project:
65
- rubygems_version: 1.3.1
76
+ rubygems_version: 1.3.6
66
77
  signing_key:
67
- specification_version: 2
78
+ specification_version: 3
68
79
  summary: Nendo is a dialect of Lisp.
69
80
  test_files: []
70
81