23 lines
777 B
Racket
23 lines
777 B
Racket
#lang syndicate/core
|
|
;; Demonstrate wildcard assertions.
|
|
;; One actor asserts everything except inbound/outbound assertions (which break
|
|
;; the ground VM). It therefore *subscribes* to everything too.
|
|
|
|
(require syndicate/pretty)
|
|
|
|
(actor (lambda (e s)
|
|
(printf "Subscriber - Aggregate\n")
|
|
(syndicate-pretty-print s)
|
|
(printf "Subscriber - Patch\n")
|
|
(syndicate-pretty-print e)
|
|
(newline)
|
|
(if (patch? e)
|
|
(transition (update-interests s e) '())
|
|
#f))
|
|
trie-empty
|
|
(patch-seq (assert ?)
|
|
(retract (outbound ?))
|
|
(retract (observe (inbound ?)))
|
|
(retract (inbound ?)) ;; not actually required for the purposes of this demo
|
|
))
|