Mercurial > urweb
view tests/subforms.ur @ 1904:686fa4e7f397
xml/parse: Accept entity files on the command line
Signed-off-by: Anders Kaseorg <andersk@mit.edu>
---
Makefile.am | 2 +-
xml/parse.sml | 4 +---
2 files changed, 2 insertions(+), 4 deletions(-)
author | Anders Kaseorg <andersk@mit.edu> |
---|---|
date | Fri, 22 Nov 2013 09:36:14 -0500 |
parents | 16b34dc2e29c |
children |
line wrap: on
line source
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>