v2/test/53.ck

   1 // 53.ck : one event broadcast
   2
   3 // the event
   4 Event e;
   5
   6 // handler
   7 fun int hi( Event e, string id )
   8 {
   9     while( true )
  10     {
  11         // wait on event
  12         e => now;
  13         <<<id>>>;
  14     }
  15 }
  16
  17 // spork
  18 spork ~ hi( e, "yo" );
  19 spork ~ hi( e, "hi" );
  20 spork ~ hi( e, "hello" );
  21 spork ~ hi( e, "hey come back here!" );
  22
  23 // infinite time loop
  24 while( true )
  25 {
  26     // advance time
  27     1::second => now;
  28     // broadcast all waiting shreds
  29     e.broadcast();
  30 }