Re: [gforth] Working example of tasker.fs use

[Jerry DeLisle]

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