stampedShare/test.icl

   1 module test
   2
   3 import iTasks.Extensions.DateTime
   4 import System.Time
   5 import iTasks
   6
   7 sh = sharedStore "bork1" ({DateTime|year=0,mon=0,day=0,hour=0,min=0,sec=0}, 42)
   8 sh` = sharedStore "bork2" ({Timespec|tv_sec=0,tv_nsec=0}, 42)
   9
  10 Start w = doTasks t w
  11
  12 t     =  viewSharedInformation [] sh
  13         -&&- updateSharedInformation [] (dateTimeStampedShare sh)
  14         -&&- viewSharedInformation [] sh`
  15         -&&- updateSharedInformation [] (timespecStampedShare sh`)