Mercurial > urweb

comparison tests/subforms.ur @ 761:16b34dc2e29c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<input type='hidden'>
author Adam Chlipala <adamc@hcoop.net>
date Thu, 30 Apr 2009 14:48:23 -0400
parents 67cd8326f743
children
comparison
equal deleted inserted replaced
760:21f6d2e65685 761:16b34dc2e29c
1 fun handler' ls = 1 fun handler' ls =
2 case ls of 2 case ls of
3 Nil => <xml/> 3 Nil => <xml/>
4 | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml> 4 | Cons (r, ls) => <xml><li>{[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>
5 5
6 fun handler r = return <xml><body> 6 fun handler r = return <xml><body>
7 {[r.A]}<br/> 7 {[r.A]}<br/>
8 {handler' r.Sub} 8 {handler' r.Sub}
9 {[r.C]} 9 {[r.C]}
12 fun main () = return <xml><body> 12 fun main () = return <xml><body>
13 <form> 13 <form>
14 <textbox{#A}/><br/> 14 <textbox{#A}/><br/>
15 <subforms{#Sub}> 15 <subforms{#Sub}>
16 <entry> 16 <entry>
17 <hidden{#Nam} value="Sparky"/>
17 <textbox{#A}/><br/> 18 <textbox{#A}/><br/>
18 <textbox{#B}/><br/> 19 <textbox{#B}/><br/>
19 <textbox{#Sub}/><br/> 20 <textbox{#Sub}/><br/>
20 </entry> 21 </entry>
21 22
22 <entry> 23 <entry>
24 <hidden{#Nam} value="Snarky"/>
23 <textbox{#A}/><br/> 25 <textbox{#A}/><br/>
24 <textbox{#B}/><br/> 26 <textbox{#B}/><br/>
25 <textbox{#Sub}/><br/> 27 <textbox{#Sub}/><br/>
26 </entry> 28 </entry>
27 </subforms> 29 </subforms>