diff options
author | 2009-04-05 10:48:11 -0400 | |
---|---|---|
committer | 2009-04-05 10:48:11 -0400 | |
commit | 3b2a5f0903f59d0a58de4201ab4f16d34423bf25 (patch) | |
tree | 0a616d813984767dcc70ab5fe7b6409237851fc5 /demo/threads.ur | |
parent | 2521a87414f0027e8fcef6b80fa414a5e0c20272 (diff) |
Threads demo
Diffstat (limited to 'demo/threads.ur')
-rw-r--r-- | demo/threads.ur | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/demo/threads.ur b/demo/threads.ur new file mode 100644 index 00000000..ac6d8cee --- /dev/null +++ b/demo/threads.ur @@ -0,0 +1,17 @@ +fun main () = + buf <- Buffer.create; + let + fun loop prefix delay = + let + fun loop' n = + Buffer.write buf (prefix ^ ": Message #" ^ show n); + sleep delay; + loop' (n + 1) + in + loop' + end + in + return <xml><body onload={spawn (loop "A" 5000 0); spawn (loop "B" 3000 100)}> + <dyn signal={Buffer.render buf}/> + </body></xml> + end |