30 lines
608 B
Text
30 lines
608 B
Text
$ erubis -l scheme example.escheme
|
|
(let ((_buf '())) (define (_add x) (set! _buf (cons x _buf))) (_add "<html>
|
|
<body>\n")
|
|
|
|
(let ((user "Erubis")
|
|
(items '("<aaa>" "b&b" "\"ccc\""))
|
|
(i 0))
|
|
|
|
(_add " <p>Hello ")(_add user)(_add "!</p>
|
|
<table>\n")
|
|
|
|
(for-each
|
|
(lambda (item)
|
|
(set! i (+ i 1))
|
|
|
|
(_add " <tr bgcolor=\"")(_add (if (= (modulo i 2) 0) "#FFCCCC" "#CCCCFF"))(_add "\">
|
|
<td>")(_add i)(_add "</td>
|
|
<td>")(_add item)(_add "</td>
|
|
</tr>\n")
|
|
|
|
) ; lambda end
|
|
items) ; for-each end
|
|
|
|
(_add " </table>\n")
|
|
|
|
) ; let end
|
|
|
|
(_add " </body>
|
|
</html>\n")
|
|
(reverse _buf))
|