Ur/Web: tests/subforms.ur annotate

subforms working

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 30 Apr 2009 13:47:46 -0400
parents	8323c1beef2e
children	16b34dc2e29c

rev	line source
adamc@758	1 fun handler' ls =
adamc@758	2 case ls of
adamc@758	3 Nil => <xml/>
adamc@758	4 \| Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>
adamc@758	5
adamc@758	6 fun handler r = return <xml><body>
adamc@759	7 {[r.A]}<br/>
adamc@759	8 {handler' r.Sub}
adamc@759	9 {[r.C]}
adamc@758	10 </body></xml>
adamc@758	11
adamc@758	12 fun main () = return <xml><body>
adamc@758	13 <form>
adamc@758	14 <textbox{#A}/><br/>
adamc@758	15 <subforms{#Sub}>
adamc@758	16 <entry>
adamc@758	17 <textbox{#A}/><br/>
adamc@758	18 <textbox{#B}/><br/>
adamc@758	19 <textbox{#Sub}/><br/>
adamc@758	20 </entry>
adamc@759	21
adamc@759	22 <entry>
adamc@759	23 <textbox{#A}/><br/>
adamc@759	24 <textbox{#B}/><br/>
adamc@759	25 <textbox{#Sub}/><br/>
adamc@759	26 </entry>
adamc@758	27 </subforms>
adamc@758	28 <textbox{#C}/><br/>
adamc@758	29 <submit action={handler}/>
adamc@758	30 </form>
adamc@758	31 </body></xml>

Mercurial > urweb