diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-08 20:34:21 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-08 20:34:21 -0400 |
| commit | 2b9a7afa2abf672396d5ee38d9301f88b9a06dff (patch) | |
| tree | 8c31380919fec41eaf59c882a30eec7106838f6c /tests/rpcM.ur | |
| parent | d8d9309a0242408460488de0c44029d74c7b3113 (diff) | |
Conversion of functions to CPS, to facilitate ServerCall
Diffstat (limited to 'tests/rpcM.ur')
| -rw-r--r-- | tests/rpcM.ur | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/rpcM.ur b/tests/rpcM.ur new file mode 100644 index 00000000..4cd4b86b --- /dev/null +++ b/tests/rpcM.ur @@ -0,0 +1,33 @@ +datatype list t = Nil | Cons of t * list t + +sequence s + +fun main () : transaction page = + let + fun getIndices srcs = + case srcs of + Nil => return Nil + | Cons (src, srcs') => + i <- nextval s; + set src i; + ls <- getIndices srcs'; + return (Cons (i, ls)) + + fun show ls = + case ls of + Nil => <xml/> + | Cons (x, ls') => <xml>{[x]}<br/>{show ls'}</xml> + in + src1 <- source 0; + src2 <- source 1; + s <- source Nil; + return <xml><body> + <button value="Get It On!" + onclick={ns <- getIndices (Cons (src1, Cons (src2, Nil))); + set s ns}/><br/> + <br/> + #1: <dyn signal={n <- signal src1; return <xml>{[n]}</xml>}/><br/> + #2: <dyn signal={n <- signal src2; return <xml>{[n]}</xml>}/><br/> + Current: <dyn signal={ns <- signal s; return (show ns)}/> + </body></xml> + end |