example.escheme 421 B

1234567891011121314151617181920212223242526
  1. <?scheme
  2. (let ((user "Erubis")
  3. (items '("<aaa>" "b&b" "\"ccc\""))
  4. (i 0))
  5. ?>
  6. <p>Hello @!{user}@!</p>
  7. <table>
  8. <tbody>
  9. <?scheme
  10. (for-each
  11. (lambda (item)
  12. (set! i (+ i 1))
  13. ?>
  14. <tr bgcolor="@!{(if (= (modulo i 2) 0) "#FFCCCC" "#CCCCFF")}@">
  15. <td>@!{i}@</td>
  16. <td>@!{item}@</td>
  17. </tr>
  18. <?scheme
  19. ) ; lambda end
  20. items) ; for-each end
  21. ?>
  22. </tbody>
  23. </table>
  24. <?scheme
  25. ) ; let end
  26. ?>