2021-04-22 16:04:06 +00:00
|
|
|
#lang typed/syndicate
|
2018-08-14 19:43:51 +00:00
|
|
|
|
|
|
|
;; Expected Output
|
|
|
|
;; query: 0
|
|
|
|
;; query: 19
|
|
|
|
|
|
|
|
(define-type-alias ds-type
|
|
|
|
(U (Tuple String Int)
|
|
|
|
(Observe ★/t)))
|
|
|
|
|
2019-01-25 15:51:46 +00:00
|
|
|
(run-ground-dataspace ds-type
|
2018-08-14 19:43:51 +00:00
|
|
|
(spawn ds-type
|
|
|
|
(start-facet querier
|
|
|
|
(define/query-value key 0 (tuple "key" (bind v Int)) (+ v 1))
|
|
|
|
(assert (tuple "query" (ref key)))))
|
|
|
|
(spawn ds-type
|
|
|
|
(start-facet client
|
|
|
|
(assert (tuple "key" 18))
|
|
|
|
(during (tuple "query" (bind v Int))
|
|
|
|
(on start
|
2019-01-25 15:51:46 +00:00
|
|
|
(printf "query: ~v\n" v))))))
|