syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
syndicate-2017/racket/typed/examples/roles/ping-pong.rkt

21 lines
499 B
Racket
Raw Normal View History

simple example
2018-07-31 18:46:36 +00:00
#lang typed/syndicate/roles
;; Expected Output
;; pong: 8339
(define-type-alias ds-type
messages
2018-09-12 21:03:19 +00:00
(U (Message (Tuple String Int))
simple example
2018-07-31 18:46:36 +00:00
(Observe (Tuple String ★/t))))
Don't use syndicate's action-collecting module-begin Implicitly starting a dataspace with top-level actions is a hole for the type system, which needs to know the type of possible assertions. Instead, provide `run-ground-dataspace` for kicking off the program.
2019-01-25 15:51:46 +00:00
(run-ground-dataspace ds-type
simple example
2018-07-31 18:46:36 +00:00
(spawn ds-type
(start-facet echo
messages
2018-09-12 21:03:19 +00:00
(on (message (tuple "ping" (bind x Int)))
(send! (tuple "pong" x)))))
simple example
2018-07-31 18:46:36 +00:00
(spawn ds-type
(start-facet serve
messages
2018-09-12 21:03:19 +00:00
(on start
(send! (tuple "ping" 8339)))
(on (message (tuple "pong" (bind x Int)))
Don't use syndicate's action-collecting module-begin Implicitly starting a dataspace with top-level actions is a hole for the type system, which needs to know the type of possible assertions. Instead, provide `run-ground-dataspace` for kicking off the program.
2019-01-25 15:51:46 +00:00
(printf "pong: ~v\n" x)))))