nendo 0.2.0 → 0.3.0
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.
- data/bin/nendo +37 -2
- data/example/cgi/dekamoji.cgi +100 -0
- data/example/cgi/sample.cgi +32 -0
- data/{sample → example}/exit.nnd +0 -0
- data/{sample → example}/fact.nnd +2 -2
- data/{sample → example}/fizzbuzz1.nnd +2 -2
- data/example/html-lite-sample.nnd +51 -0
- data/{sample → example}/scratch.nnd +1 -5
- data/{sample → example}/tak.nnd +0 -0
- data/lib/init.nnd +171 -30
- data/lib/init.nndc +3736 -2009
- data/lib/nendo.rb +322 -127
- data/lib/text/html-lite.nnd +231 -0
- data/lib/text/html-lite.nndc +2652 -0
- data/lib/text/tree.nnd +23 -0
- data/lib/text/tree.nndc +215 -0
- metadata +14 -7
data/lib/text/tree.nnd
ADDED
|
@@ -0,0 +1,23 @@
|
|
|
1
|
+
;;;
|
|
2
|
+
;;; test/tree.scm - lightweight text generation
|
|
3
|
+
;;;
|
|
4
|
+
;;; Public Domain.
|
|
5
|
+
;;; $Id: tree.scm,v 1.5 2003-07-05 03:29:12 shirok Exp $
|
|
6
|
+
;;;
|
|
7
|
+
|
|
8
|
+
(require "stringio")
|
|
9
|
+
|
|
10
|
+
(define (write-tree tree . out)
|
|
11
|
+
(let1 out (if (null? out)
|
|
12
|
+
STDOUT
|
|
13
|
+
(car out))
|
|
14
|
+
(let loop ((tree tree))
|
|
15
|
+
(cond ((null? tree))
|
|
16
|
+
((pair? tree) (write-tree (car tree) out) (loop (cdr tree)))
|
|
17
|
+
(else
|
|
18
|
+
(out.print tree))))))
|
|
19
|
+
|
|
20
|
+
(define (tree->string tree)
|
|
21
|
+
(let1 sio (StringIO.new "")
|
|
22
|
+
(write-tree tree sio)
|
|
23
|
+
(sio.string)))
|
data/lib/text/tree.nndc
ADDED
|
@@ -0,0 +1,215 @@
|
|
|
1
|
+
|
|
2
|
+
callProcedure( 'require',
|
|
3
|
+
begin
|
|
4
|
+
if (self.instance_variables.include?(:@_require)) then
|
|
5
|
+
@_require
|
|
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
|
|
8
|
+
end ,
|
|
9
|
+
Cell.new(
|
|
10
|
+
"stringio"
|
|
11
|
+
))
|
|
12
|
+
#--------------------
|
|
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(
|
|
31
|
+
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?',
|
|
43
|
+
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(
|
|
50
|
+
begin
|
|
51
|
+
_tree
|
|
52
|
+
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(
|
|
73
|
+
begin
|
|
74
|
+
_tree
|
|
75
|
+
rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
|
|
76
|
+
end
|
|
77
|
+
)) ,Cell.new(
|
|
78
|
+
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(
|
|
97
|
+
begin
|
|
98
|
+
_tree
|
|
99
|
+
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(
|
|
111
|
+
begin
|
|
112
|
+
_tree
|
|
113
|
+
rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:18"] + __e.backtrace ) ; raise __e
|
|
114
|
+
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(
|
|
131
|
+
begin
|
|
132
|
+
_tree
|
|
133
|
+
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',
|
|
162
|
+
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
|
|
167
|
+
end ,
|
|
168
|
+
Cell.new(
|
|
169
|
+
begin
|
|
170
|
+
_out
|
|
171
|
+
rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:16"] + __e.backtrace ) ; raise __e
|
|
172
|
+
end
|
|
173
|
+
))
|
|
174
|
+
end
|
|
175
|
+
)
|
|
176
|
+
end
|
|
177
|
+
}
|
|
178
|
+
#--------------------
|
|
179
|
+
|
|
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(
|
|
192
|
+
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(
|
|
207
|
+
begin
|
|
208
|
+
StringIO.new(
|
|
209
|
+
""
|
|
210
|
+
)
|
|
211
|
+
rescue => __e ; __e.set_backtrace( ["./lib/text/tree.nnd:21"] + __e.backtrace ) ; raise __e
|
|
212
|
+
end
|
|
213
|
+
)
|
|
214
|
+
end
|
|
215
|
+
}
|
metadata
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
--- !ruby/object:Gem::Specification
|
|
2
2
|
name: nendo
|
|
3
3
|
version: !ruby/object:Gem::Version
|
|
4
|
-
version: 0.
|
|
4
|
+
version: 0.3.0
|
|
5
5
|
platform: ruby
|
|
6
6
|
authors:
|
|
7
7
|
- Kiyoka Nishiyama
|
|
@@ -9,7 +9,7 @@ autorequire:
|
|
|
9
9
|
bindir: bin
|
|
10
10
|
cert_chain: []
|
|
11
11
|
|
|
12
|
-
date: 2010-
|
|
12
|
+
date: 2010-04-12 00:00:00 +09:00
|
|
13
13
|
default_executable: nendo
|
|
14
14
|
dependencies: []
|
|
15
15
|
|
|
@@ -24,14 +24,21 @@ extra_rdoc_files:
|
|
|
24
24
|
files:
|
|
25
25
|
- bin/nendo
|
|
26
26
|
- emacs/nendo-mode.el
|
|
27
|
+
- example/cgi/dekamoji.cgi
|
|
28
|
+
- example/cgi/sample.cgi
|
|
29
|
+
- example/exit.nnd
|
|
30
|
+
- example/fact.nnd
|
|
31
|
+
- example/fizzbuzz1.nnd
|
|
32
|
+
- example/html-lite-sample.nnd
|
|
33
|
+
- example/scratch.nnd
|
|
34
|
+
- example/tak.nnd
|
|
27
35
|
- lib/init.nnd
|
|
28
36
|
- lib/init.nndc
|
|
29
37
|
- lib/nendo.rb
|
|
30
|
-
-
|
|
31
|
-
-
|
|
32
|
-
-
|
|
33
|
-
-
|
|
34
|
-
- sample/tak.nnd
|
|
38
|
+
- lib/text/html-lite.nnd
|
|
39
|
+
- lib/text/html-lite.nndc
|
|
40
|
+
- lib/text/tree.nnd
|
|
41
|
+
- lib/text/tree.nndc
|
|
35
42
|
- README
|
|
36
43
|
has_rdoc: true
|
|
37
44
|
homepage: http://github.com/kiyoka/nendo
|