Ur/Web: tests/threads.ur annotate

Server-side 'onError'

author	Adam Chlipala <adam@chlipala.net>
date	Tue, 07 Sep 2010 08:28:07 -0400
parents	2197f0e24a9f
children

rev	line source
adamc@728	1 fun main () =
adamc@728	2 buf <- Buffer.create;
adamc@728	3 let
adamc@728	4 fun loop1 () =
adamc@728	5 Buffer.write buf "A";
adamc@728	6 sleep 9;
adamc@728	7 loop1 ()
adamc@728	8
adamc@728	9 fun loop2 () =
adamc@728	10 Buffer.write buf "B";
adamc@728	11 sleep 9;
adamc@728	12 error <xml>Darn</xml>
adamc@728	13 loop2 ()
adamc@728	14 in
adamc@728	15 return <xml><body onload={spawn (loop1 ()); loop2 ()}>
adamc@728	16 <dyn signal={Buffer.render buf}/>
adamc@728	17 </body></xml>
adamc@728	18 end

Mercurial > urweb