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