stampedShare/test.icl

   1 module test
   2
   3 import iTasks.Internal.IWorld
   4 import System.Time
   5 import iTasks
   6
   7 sh = sharedStore "bork2" ({Timespec|tv_sec=0,tv_nsec=0}, 42)
   8
   9 Start w = doTasks t w
  10
  11 t = viewSharedInformation [] sh
  12         -&&- updateSharedInformation [] (
  13                           sdsTranslate "" (\p->((), p))
  14                         (sdsStamp sh ticker (\x y->(x, y))))
  15
  16 // This gives you 100% cpu because you get updates very fast
  17 //t = viewSharedInformation [] ticker
  18
  19 ticker = sdsFocus {start={tv_sec=0,tv_nsec=0},interval={Timespec|tv_sec=0,tv_nsec=1000000}} iworldTimespec