home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / afc / afc-dir / tasker_all.lha / Tasker_Examples.lha / Examples / Tasker_Example1.e < prev    next >
Text File  |  1998-04-11  |  767b  |  35 lines
  1. /*
  2.  
  3.   Tasker example 1  -  by Andrea Galimberti  -  (C) Brighting Brain Brothers
  4.  
  5. */
  6.  
  7. MODULE 'AFC/tasker'
  8.  
  9. -> tasks can only access global variables
  10. DEF sharedvar
  11.  
  12. PROC simpletask()
  13.   WHILE sharedvar<$8000000 DO sharedvar++
  14.   Wait(NIL)  -> that IS TO say: wait TO be killed
  15. ENDPROC
  16.  
  17.  
  18. PROC main() HANDLE
  19.   DEF myt:PTR TO tasker
  20.  
  21.   NEW myt.tasker('simpletask')  -> name OF the task
  22.  
  23.   myt.code({simpletask})  -> what code TO use
  24.   WriteF('starting task...(press RETURN TO end)\n')
  25.   myt.start()  -> starting task
  26.  
  27.   Inp(IF stdin THEN stdin ELSE stdout)
  28.   WriteF('The shared variable now equals \d\n', sharedvar)
  29.  
  30. EXCEPT DO
  31.   END myt  -> killing task (you can stop() it IF you don't need TO END
  32.            -> the whole OBJECT (maybe TO restart it again later))
  33. ENDPROC
  34.  
  35.