blob: f6876bd88c2f3bfadb742321edcfad1c6e5a1ae3 (
plain)
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
27
28
29
30
31
32
33
|
fun handler' ls =
case ls of
Nil => <xml/>
| Cons (r, ls) => <xml><li>{[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>
fun handler r = return <xml><body>
{[r.A]}<br/>
{handler' r.Sub}
{[r.C]}
</body></xml>
fun main () = return <xml><body>
<form>
<textbox{#A}/><br/>
<subforms{#Sub}>
<entry>
<hidden{#Nam} value="Sparky"/>
<textbox{#A}/><br/>
<textbox{#B}/><br/>
<textbox{#Sub}/><br/>
</entry>
<entry>
<hidden{#Nam} value="Snarky"/>
<textbox{#A}/><br/>
<textbox{#B}/><br/>
<textbox{#Sub}/><br/>
</entry>
</subforms>
<textbox{#C}/><br/>
<submit action={handler}/>
</form>
</body></xml>
|
