Mercurial > urweb
comparison demo/roundTrip.ur @ 908:ed06e25c70ef
Convert to requiring explicit 'rpc' marker
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 22 Aug 2009 12:55:18 -0400 |
parents | 15ddd64a5113 |
children |
comparison
equal
deleted
inserted
replaced
907:5fe49effbc83 | 908:ed06e25c70ef |
---|---|
19 Buffer.write buf ("(" ^ v.1 ^ ", " ^ show v.2 ^ ", " ^ show v.3 ^ ")"); | 19 Buffer.write buf ("(" ^ v.1 ^ ", " ^ show v.2 ^ ", " ^ show v.3 ^ ")"); |
20 receiver () | 20 receiver () |
21 | 21 |
22 fun sender s n f = | 22 fun sender s n f = |
23 sleep 2000; | 23 sleep 2000; |
24 writeBack (s, n, f); | 24 rpc (writeBack (s, n, f)); |
25 sender (s ^ "!") (n + 1) (f + 1.23) | 25 sender (s ^ "!") (n + 1) (f + 1.23) |
26 in | 26 in |
27 return <xml><body onload={spawn (receiver ()); sender "" 0 0.0}> | 27 return <xml><body onload={spawn (receiver ()); sender "" 0 0.0}> |
28 <dyn signal={Buffer.render buf}/> | 28 <dyn signal={Buffer.render buf}/> |
29 </body></xml> | 29 </body></xml> |