43 lines
1.1 KiB
Racket
43 lines
1.1 KiB
Racket
#lang syndicate/actor
|
|
|
|
(require syndicate/firewall)
|
|
|
|
(struct m (b) #:prefab)
|
|
(struct a (v) #:prefab)
|
|
|
|
(actor (on (message (m $b))
|
|
(printf "Message: ~v\n" b))
|
|
(on (asserted (a $v))
|
|
(printf "Asserted: ~v\n" v))
|
|
(on (retracted (a $v))
|
|
(printf "Retracted: ~v\n" v)))
|
|
|
|
(firewall [(allow (m 'ok1))
|
|
(allow (m 'ok2))]
|
|
(on-start (send! (m 'ok1))
|
|
(send! (m 'ok2))
|
|
(send! (m 'must-not-allow))))
|
|
|
|
(firewall [(allow (m ?))
|
|
(forbid (m 'must-not-allow))]
|
|
(on-start (send! (m 'ok1))
|
|
(send! (m 'ok2))
|
|
(send! (m 'must-not-allow))))
|
|
|
|
(firewall [(allow (a 'ok1))
|
|
(allow (a (list ?)))
|
|
(forbid (a (list 'forbidden)))
|
|
(allow (a 'ok2))]
|
|
(assert (a 'ok1))
|
|
(assert (a 'ok2))
|
|
(assert (a (list 'ok3)))
|
|
(assert (a (list 'forbidden))))
|
|
|
|
(firewall [(allow (a 'ok-wild1))
|
|
(allow (a 'ok-wild2))]
|
|
(assert (a _)))
|
|
|
|
(firewall [(allow (a 'ok-kid))]
|
|
(assert (a 'forbidden-parent))
|
|
(on-start (actor (assert (a _)))))
|