annotate tests/threads.ur @ 1132:d4cd54a4ea06

First attempt to switch to Automake, to get shared libraries built in OSX
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Jan 2010 09:56:08 -0500
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