File: example.escheme

package info (click to toggle)
ruby-erubis 2.7.0-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,260 kB
  • sloc: ruby: 8,758; ansic: 97; makefile: 72; php: 17
file content (26 lines) | stat: -rw-r--r-- 421 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
<?scheme
(let ((user "Erubis")
      (items '("<aaa>" "b&b" "\"ccc\""))
      (i 0))
 ?>
<p>Hello @!{user}@!</p>
<table>
  <tbody>
<?scheme
  (for-each
   (lambda (item)
     (set! i (+ i 1))
 ?>
    <tr bgcolor="@!{(if (= (modulo i 2) 0) "#FFCCCC" "#CCCCFF")}@">
      <td>@!{i}@</td>
      <td>@!{item}@</td>
    </tr>
<?scheme
   ) ; lambda end
   items) ; for-each end
 ?>
  </tbody>
</table>
<?scheme
) ; let end
?>