syndicate-2017/racket/syndicate/examples/example-wildcard-assertion-...

#lang syndicate/core
;; Demonstrate almost-wildcard assertions.
;; One actor subscribes to everything except inbound assertions - and so initially sees itself.
;; The other advertises everything except subscriptions and inbound/outbound assertions.
;; The first actor's aggregate view of the dataspace then includes everything
;; except inbound assertions.

(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 (sub ?)
                  (unsub (inbound ?))))

(actor (lambda (e s)
         (printf "Asserter\n")
         (syndicate-pretty-print e)
         (newline)
         #f)
       (void)
       (patch-seq (assert ?)
                  (retract (observe ?))
                  (retract (outbound ?))
                  (retract (inbound ?))))
#lang syndicate -> #lang syndicate/core; first half of fix for #17. 2017-08-10 19:04:45 +00:00			`#lang syndicate/core`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00			`;; Demonstrate almost-wildcard assertions.`
Split dataspaces in to relay and mux sublayers. This is a major change to the previous design, and also a change with respect to the semantics in the ESOP 2016 paper. All the complexity of echo-cancellation is stripped out of the core dataspace semantics, and the relaying protocol is changed from one constructor, `at-meta`, to two, `inbound` and `outbound`. The relay connecting a dataspace to its container is now completely symmetric with the contained actors: it initially asserts interest in what it is to relay, just like any other actor would. Dataspaces no longer treat relaying specially. This commit has updated all (I think) of the non-graphical examples. The graphical code remains to be done in a following commit. 2016-07-30 17:02:07 +00:00			`;; One actor subscribes to everything except inbound assertions - and so initially sees itself.`
			`;; The other advertises everything except subscriptions and inbound/outbound assertions.`
Rename "network" to "dataspace" throughout 2016-04-07 07:42:54 +00:00			`;; The first actor's aggregate view of the dataspace then includes everything`
Split dataspaces in to relay and mux sublayers. This is a major change to the previous design, and also a change with respect to the semantics in the ESOP 2016 paper. All the complexity of echo-cancellation is stripped out of the core dataspace semantics, and the relaying protocol is changed from one constructor, `at-meta`, to two, `inbound` and `outbound`. The relay connecting a dataspace to its container is now completely symmetric with the contained actors: it initially asserts interest in what it is to relay, just like any other actor would. Dataspaces no longer treat relaying specially. This commit has updated all (I think) of the non-graphical examples. The graphical code remains to be done in a following commit. 2016-07-30 17:02:07 +00:00			`;; except inbound assertions.`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00
Alpha convert: prospect -> syndicate 2016-04-01 23:53:46 +00:00			`(require syndicate/pretty)`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00
swap the meaning of spawn and actor in racket syndicate 2017-02-15 23:18:19 +00:00			`(actor (lambda (e s)`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00			`(printf "Subscriber - Aggregate\n")`
Alpha convert: prospect -> syndicate 2016-04-01 23:53:46 +00:00			`(syndicate-pretty-print s)`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00			`(printf "Subscriber - Patch\n")`
Alpha convert: prospect -> syndicate 2016-04-01 23:53:46 +00:00			`(syndicate-pretty-print e)`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00			`(newline)`
			`(if (patch? e)`
			`(transition (update-interests s e) '())`
			`#f))`
Switch Syndicate implementation from route.rkt to trie.rkt. 2016-03-12 16:54:31 +00:00			`trie-empty`
Split dataspaces in to relay and mux sublayers. This is a major change to the previous design, and also a change with respect to the semantics in the ESOP 2016 paper. All the complexity of echo-cancellation is stripped out of the core dataspace semantics, and the relaying protocol is changed from one constructor, `at-meta`, to two, `inbound` and `outbound`. The relay connecting a dataspace to its container is now completely symmetric with the contained actors: it initially asserts interest in what it is to relay, just like any other actor would. Dataspaces no longer treat relaying specially. This commit has updated all (I think) of the non-graphical examples. The graphical code remains to be done in a following commit. 2016-07-30 17:02:07 +00:00			`(patch-seq (sub ?)`
			`(unsub (inbound ?))))`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00
swap the meaning of spawn and actor in racket syndicate 2017-02-15 23:18:19 +00:00			`(actor (lambda (e s)`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00			`(printf "Asserter\n")`
Alpha convert: prospect -> syndicate 2016-04-01 23:53:46 +00:00			`(syndicate-pretty-print e)`
Demos of wildcard assertions 2016-02-03 04:01:08 +00:00			`(newline)`
			`#f)`
			`(void)`
			`(patch-seq (assert ?)`
			`(retract (observe ?))`
Split dataspaces in to relay and mux sublayers. This is a major change to the previous design, and also a change with respect to the semantics in the ESOP 2016 paper. All the complexity of echo-cancellation is stripped out of the core dataspace semantics, and the relaying protocol is changed from one constructor, `at-meta`, to two, `inbound` and `outbound`. The relay connecting a dataspace to its container is now completely symmetric with the contained actors: it initially asserts interest in what it is to relay, just like any other actor would. Dataspaces no longer treat relaying specially. This commit has updated all (I think) of the non-graphical examples. The graphical code remains to be done in a following commit. 2016-07-30 17:02:07 +00:00			`(retract (outbound ?))`
			`(retract (inbound ?))))`