syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
syndicate-2017/racket/syndicate/examples/example-quit-world.rkt

38 lines
1.3 KiB
Racket
Raw Normal View History

#lang syndicate -> #lang syndicate/core; first half of fix for #17.
2017-08-10 19:04:45 +00:00
#lang syndicate/core
Rename "network" to "dataspace" throughout
2016-04-07 07:42:54 +00:00
;; Demonstrates quit-dataspace.
quit-world action
2015-10-23 23:49:30 +00:00
(require (only-in racket/port read-bytes-line-evt))
(define (spawn-command-listener)
swap the meaning of spawn and actor in racket syndicate
2017-02-15 23:18:19 +00:00
(actor (lambda (e s)
quit-world action
2015-10-23 23:49:30 +00:00
(match e
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
[(message (inbound (inbound (external-event _ (list #"quit")))))
quit-world action
2015-10-23 23:49:30 +00:00
(printf "Quitting just the leaf actor.\n")
(quit)]
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
[(message (inbound (inbound (external-event _ (list #"quit-dataspace")))))
Rename "network" to "dataspace" throughout
2016-04-07 07:42:54 +00:00
(printf "Terminating the whole dataspace.\n")
(transition s (quit-dataspace))]
quit-world action
2015-10-23 23:49:30 +00:00
[_ #f]))
(void)
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
(sub (inbound (inbound
(external-event (read-bytes-line-evt (current-input-port) 'any) ?))))))
quit-world action
2015-10-23 23:49:30 +00:00
(define (spawn-ticker)
(define (sub-to-alarm)
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
(sub (inbound (inbound
(external-event (alarm-evt (+ (current-inexact-milliseconds) 1000)) ?)))))
swap the meaning of spawn and actor in racket syndicate
2017-02-15 23:18:19 +00:00
(actor (lambda (e s)
quit-world action
2015-10-23 23:49:30 +00:00
(match e
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
[(message (inbound (inbound (external-event _ _))))
quit-world action
2015-10-23 23:49:30 +00:00
(printf "Tick!\n")
(transition s
(list (retract ?)
(sub-to-alarm)))]
[_ #f]))
(void)
(sub-to-alarm)))
Rename "network" to "dataspace" throughout
2016-04-07 07:42:54 +00:00
(printf "Type 'quit' or 'quit-dataspace'.\n")
spawn-dataspace --> dataspace-actor
2017-02-25 16:16:25 +00:00
(dataspace-actor (spawn-command-listener)
Rename "network" to "dataspace" throughout
2016-04-07 07:42:54 +00:00
(spawn-ticker))