syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

racket/syndicate/examples/actor/flip-flop.rkt

This commit is contained in:
Tony Garnock-Jones 2017-09-15 20:34:16 +01:00
parent 516f6a5cd2
commit a82b428f44
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
racket/syndicate/examples/actor/flip-flop.rkt Normal file
View File

@ -0,0 +1,23 @@
#lang syndicate
(require/activate syndicate/drivers/timestate)
(assertion-struct active ())
(message-struct toggle ())
(spawn* (define (active-state)
(react (assert (active))
(stop-when (message (toggle))
(inactive-state))))
(define (inactive-state)
(react (stop-when (message (toggle))
(active-state))))
(inactive-state))
(spawn (on (asserted (active)) (printf "Flip-flop is active\n"))
(on (retracted (active)) (printf "Flip-flop is inactive\n"))
(field [next-toggle-time (current-inexact-milliseconds)])
(on (asserted (later-than (next-toggle-time)))
(send! (toggle))
(next-toggle-time (+ (next-toggle-time) 1000))))