On 12/12/2014 02:47 PM, Bernd Paysan wrote:
Am Freitag, 12. Dezember 2014, 13:26:49 schrieb Jerry DeLisle:
The one example use of tasker.fs I have found does not work.
Can anyone point me to or provide a working example.
Regards,
Jerry
$1000 newtask constant test-task
: .x 10 0 do i . loop ;
: test test-task activate .x ;
Tried it:
test .x 00 11 22 33 44 55 66 77 88 99 ok
This also works with the unix/pthread.fs tasker (same API), but tasker.fs is
cooperative, unix/pthread.fs is using pthreads.
OK Got it figured out.
[IFDEF] my-code
my-code
[ENDIF]
marker my-code
require tasker.fs
1000 newtask constant bg1
1000 newtask constant bg2
variable counter1
variable counter2
: (task1) begin counter1 @ 1+ counter1 ! pause again ;
: (task2) begin counter2 @ 1+ counter2 ! pause again ;
: start-task1 bg1 activate (task1) ;
: start-task2 bg2 activate (task2) ;
: show counter1 ? ." " counter2 ? ;
Thanks much,
Jerry
