simple-cross-layer.rkt

2017-09-25 23:54:19 +01:00 · 2017-09-25 23:54:19 +01:00 · e41290c509
parent 6c4ae38499
commit e41290c509
1 changed files with 11 additions and 0 deletions
--- a/racket/syndicate/examples/actor/simple-cross-layer.rkt
+++ b/racket/syndicate/examples/actor/simple-cross-layer.rkt
@ -0,0 +1,11 @@
+#lang syndicate
+
+(assertion-struct greeting (text))
+
+(spawn (assert (greeting "Hello from an outer dataspace actor!")))
+(spawn (on (asserted (greeting $t))
+           (printf "Outer dataspace: ~a\n" t)))
+
+(dataspace (spawn (assert (outbound (greeting "Hello from an inner dataspace actor!"))))
+           (spawn (on (asserted (inbound (greeting $t)))
+                      (printf "Inner dataspace: ~a\n" t))))