syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make #lang syndicate equivalent to #lang syndicate/actor. Fixes #17.

This commit is contained in:
Tony Garnock-Jones 2017-08-10 15:17:28 -04:00
parent c9996d53ae
commit b3a745dbcb
115 changed files with 118 additions and 114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/ircd/channel.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require "protocol.rkt") (require "protocol.rkt")
(require "message.rkt") (require "message.rkt")

2
examples/ircd/config.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/reload) (require/activate syndicate/reload)
(require/activate syndicate/supervise) (require/activate syndicate/supervise)

2
examples/ircd/main.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/reload) (require/activate syndicate/reload)

2
examples/ircd/protocol.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out ircd-listener) (provide (struct-out ircd-listener)
(struct-out ircd-motd) (struct-out ircd-motd)

2
examples/ircd/session.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/set) (require racket/set)
(require racket/string) (require racket/string)

2
examples/netstack/incremental-highlevel/arp.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; ARP protocol, http://tools.ietf.org/html/rfc826 ;; ARP protocol, http://tools.ietf.org/html/rfc826
;; Only does ARP-over-ethernet. ;; Only does ARP-over-ethernet.

2
examples/netstack/incremental-highlevel/demo-config.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstration stack configuration for various hosts. ;; Demonstration stack configuration for various hosts.
(require racket/match) (require racket/match)

2
examples/netstack/incremental-highlevel/ethernet.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Ethernet driver ;; Ethernet driver
(provide (struct-out ethernet-packet) (provide (struct-out ethernet-packet)

2
examples/netstack/incremental-highlevel/fetchurl.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/drivers/timer) (require/activate syndicate/drivers/timer)
(require/activate "ethernet.rkt") (require/activate "ethernet.rkt")

2
examples/netstack/incremental-highlevel/ip.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out ip-packet) (provide (struct-out ip-packet)
ip-address->hostname ip-address->hostname

2
examples/netstack/incremental-highlevel/main.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)

2
examples/netstack/incremental-highlevel/port-allocator.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; UDP/TCP port allocator ;; UDP/TCP port allocator
(provide spawn-port-allocator (provide spawn-port-allocator

2
examples/netstack/incremental-highlevel/tcp.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out tcp-address) (provide (struct-out tcp-address)
(struct-out tcp-handle) (struct-out tcp-handle)

2
examples/netstack/incremental-highlevel/udp.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out udp-remote-address) (provide (struct-out udp-remote-address)
(struct-out udp-handle) (struct-out udp-handle)

2
examples/operational-transformation/syndicate-multiserver.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/file) (require racket/file)
(require racket/serialize) (require racket/serialize)

2
examples/operational-transformation/syndicate-server.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/file) (require racket/file)
(require racket/serialize) (require racket/serialize)

2
examples/platformer/hll-main.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require 2htdp/image) (require 2htdp/image)
(require 2htdp/planetcute) (require 2htdp/planetcute)

2
examples/webchat/server/account.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/set) (require racket/set)

2
examples/webchat/server/api.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/reload) (require/activate syndicate/reload)
(require/activate syndicate/supervise) (require/activate syndicate/supervise)

2
examples/webchat/server/config.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/cmdline) (require racket/cmdline)
(require racket/port) (require racket/port)

2
examples/webchat/server/contacts.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/reload) (require/activate syndicate/reload)
(require/activate syndicate/supervise) (require/activate syndicate/supervise)

2
examples/webchat/server/conversation.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/port) (require racket/port)
(require markdown) (require markdown)

2
examples/webchat/server/duplicate.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide stop-when-duplicate) (provide stop-when-duplicate)

2
examples/webchat/server/main.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/reload) (require/activate syndicate/reload)

2
examples/webchat/server/pages.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/dict) (require racket/dict)
(require racket/port) (require racket/port)

2
examples/webchat/server/qa.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide ask-question!) (provide ask-question!)

2
examples/webchat/server/script-compiler.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/file) (require racket/file)
(require racket/port) (require racket/port)

2
examples/webchat/server/static-content.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/file) (require racket/file)
(require racket/runtime-path) (require racket/runtime-path)

2
examples/webchat/server/testdata.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require "protocol.rkt") (require "protocol.rkt")

2
examples/webchat/server/trust.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/set) (require racket/set)

2
racket/syndicate-gl/examples/basic.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/set) (require racket/set)
(require 2htdp/image) (require 2htdp/image)

2
racket/syndicate-gl/examples/clock-face.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Compare to "ezd" clock-face example from: J. F. Bartlett, “Don’t ;; Compare to "ezd" clock-face example from: J. F. Bartlett, “Don’t
;; Fidget with Widgets, Draw!,” Palo Alto, California, DEC WRL ;; Fidget with Widgets, Draw!,” Palo Alto, California, DEC WRL
;; Research Report 91/6, May 1991. ;; Research Report 91/6, May 1991.

2
racket/syndicate-gl/examples/many.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Multiple animated sprites. ;; Multiple animated sprites.
;; ;;
;; 2016-12-12 With the current implementations of (a) Syndicate's ;; 2016-12-12 With the current implementations of (a) Syndicate's

2
racket/syndicate/big-bang/timestate.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Big-bang specific timestate implementation with compatible protocol. ;; Big-bang specific timestate implementation with compatible protocol.
(provide (struct-out later-than) (provide (struct-out later-than)

2
racket/syndicate/broker/server.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Generic relay for WebSockets/TCP/etc-based participation in a network. ;; Generic relay for WebSockets/TCP/etc-based participation in a network.
(provide spawn-broker-server (provide spawn-broker-server

2
racket/syndicate/drivers/config.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Monitor configuration files. ;; Monitor configuration files.
(provide (struct-out config) (provide (struct-out config)

2
racket/syndicate/drivers/filesystem.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Filesystem change monitor driver ;; Filesystem change monitor driver
(provide (struct-out file-content) (provide (struct-out file-content)

2
racket/syndicate/drivers/gui.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Driver for Racket's GUI. ;; Driver for Racket's GUI.
(require racket/class) (require racket/class)

2
racket/syndicate/drivers/irc.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Dreadfully simplified IRC client driver. ;; Dreadfully simplified IRC client driver.
(provide (struct-out irc-connection) (provide (struct-out irc-connection)

2
racket/syndicate/drivers/line-reader.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out tcp-channel-line)) (provide (struct-out tcp-channel-line))

2
racket/syndicate/drivers/smtp.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out/defaults [make-smtp-account-config smtp-account-config]) (provide (struct-out/defaults [make-smtp-account-config smtp-account-config])
(rename-out [smtp-account-config <smtp-account-config>]) (rename-out [smtp-account-config <smtp-account-config>])

2
racket/syndicate/drivers/timestate.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(provide (struct-out later-than) (provide (struct-out later-than)
stop-when-timeout stop-when-timeout

2
racket/syndicate/drivers/web.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; More general web driver: supports normal HTTP as well as websockets. ;; More general web driver: supports normal HTTP as well as websockets.
(provide (struct-out web-virtual-host) (provide (struct-out web-virtual-host)

2
racket/syndicate/examples/actor/bank-account.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Hello-worldish "bank account" example. ;; Hello-worldish "bank account" example.
(struct account (balance) #:prefab) (struct account (balance) #:prefab)

2
racket/syndicate/examples/actor/big-bang.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/big-bang) (require syndicate/big-bang)
(require racket/math) (require racket/math)

2
racket/syndicate/examples/actor/box-and-client.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Simple mutable box and count-to-infinity box client. ;; Simple mutable box and count-to-infinity box client.
(struct set-box (new-value) #:transparent) (struct set-box (new-value) #:transparent)

2
racket/syndicate/examples/actor/broadcast-messages.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrate sending a message to multiple receivers. ;; Demonstrate sending a message to multiple receivers.
(struct envelope (destination message) #:prefab) (struct envelope (destination message) #:prefab)

2
racket/syndicate/examples/actor/chain.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/drivers/timestate) (require/activate syndicate/drivers/timestate)

2
racket/syndicate/examples/actor/chat-client.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/chat-multiroom-topic-persist.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Evolution of chat-multiroom-topic.rkt to support persistent room topics. ;; Evolution of chat-multiroom-topic.rkt to support persistent room topics.
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)

2
racket/syndicate/examples/actor/chat-multiroom-topic.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Evolution of chat-multiroom.rkt to support room topics. ;; Evolution of chat-multiroom.rkt to support room topics.
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)

2
racket/syndicate/examples/actor/chat-multiroom.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Evolution of chat-simplified-internals2.rkt to support multiple rooms. ;; Evolution of chat-simplified-internals2.rkt to support multiple rooms.
;; Uses the approach of modifying the protocol to include a room name. ;; Uses the approach of modifying the protocol to include a room name.

2
racket/syndicate/examples/actor/chat-no-quit-world-no-nesting.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/chat-no-quit-world.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/chat-simplified-internals.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/chat-simplified-internals2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/chat.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/double-click.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates debouncer-like functionality. ;; Demonstrates debouncer-like functionality.
(require syndicate/big-bang) (require syndicate/big-bang)

2
racket/syndicate/examples/actor/echo.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/protocol/advertise) (require syndicate/protocol/advertise)
(require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/tcp)

2
racket/syndicate/examples/actor/example-action-after-suspension.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Test case for a bug relating to use of parameters to accumulate ;; Test case for a bug relating to use of parameters to accumulate
;; actions across react/suspend when an intermediate parameterization ;; actions across react/suspend when an intermediate parameterization
;; for current-dataflow-subject-id has taken place. ;; for current-dataflow-subject-id has taken place.

2
racket/syndicate/examples/actor/example-assertion-spike.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; ;;
;; Test case for a problem written up on 25 Oct 2016 in my research ;; Test case for a problem written up on 25 Oct 2016 in my research
;; journal. ;; journal.

2
racket/syndicate/examples/actor/example-bug-query-scope.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates a (fixed) bug in define/query-value scoping. ;; Demonstrates a (fixed) bug in define/query-value scoping.
;; ;;
;; Buggy output: ;; Buggy output:

2
racket/syndicate/examples/actor/example-bug-rising-edge-true.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates a bug: rising-edge of a predicate that starts off true ;; Demonstrates a bug: rising-edge of a predicate that starts off true
;; yields a crash. ;; yields a crash.
;; ;;

2
racket/syndicate/examples/actor/example-during-criterion-snapshotting.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Illustrates a (now fixed) bug where mutation altering a ;; Illustrates a (now fixed) bug where mutation altering a
;; subscription caused the `retracted` half of a during instance to be ;; subscription caused the `retracted` half of a during instance to be
;; lost. ;; lost.

2
racket/syndicate/examples/actor/example-filesystem.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/drivers/filesystem) (require/activate syndicate/drivers/filesystem)
(require racket/file) (require racket/file)

2
racket/syndicate/examples/actor/example-glitch.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrate FRP-like "glitching" ;; Demonstrate FRP-like "glitching"
;; ;;
;; Based on an example from the FRP survey of Bainomugisha et al. ;; Based on an example from the FRP survey of Bainomugisha et al.

2
racket/syndicate/examples/actor/example-multiple-suspension-resumption.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Shows that the checks enforcing single-use suspension-resumption are working. ;; Shows that the checks enforcing single-use suspension-resumption are working.
(spawn #:name 'shouldnt-work (spawn #:name 'shouldnt-work

2
racket/syndicate/examples/actor/example-partial-retraction.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Illustrates the response of asserted / retracted / during to ;; Illustrates the response of asserted / retracted / during to
;; observation of assertions discarding some of their dimensions. ;; observation of assertions discarding some of their dimensions.

2
racket/syndicate/examples/actor/example-responsibility-transfer-1.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates glitch preservation in during/spawn. ;; Demonstrates glitch preservation in during/spawn.
;; ;;
;; Previously, `spawn` was expanded in place into the new actor's ;; Previously, `spawn` was expanded in place into the new actor's

2
racket/syndicate/examples/actor/example-responsibility-transfer-2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates responsibility transfer. ;; Demonstrates responsibility transfer.
;; ;;
;; Previously, `spawn` was expanded in place into the new actor's ;; Previously, `spawn` was expanded in place into the new actor's

2
racket/syndicate/examples/actor/example-supervise.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Shows the difference between a supervised exit and a supervised crash. ;; Shows the difference between a supervised exit and a supervised crash.
(require/activate syndicate/supervise) (require/activate syndicate/supervise)

2
racket/syndicate/examples/actor/example-synthetic-patch.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Illustrates a (now fixed) bug where creating a facet interested in something ;; Illustrates a (now fixed) bug where creating a facet interested in something
;; already known didn't properly trigger the assertion-handler. ;; already known didn't properly trigger the assertion-handler.
;; ;;

2
racket/syndicate/examples/actor/example-termination-scripts-1.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrate handling of facet termination. ;; Demonstrate handling of facet termination.
;; ;;
;; Prior to early November, 2016, only a *single* stop-when was able ;; Prior to early November, 2016, only a *single* stop-when was able

2
racket/syndicate/examples/actor/example-termination-scripts-2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrate handling of facet termination. ;; Demonstrate handling of facet termination.
(require racket/pretty) (require racket/pretty)

2
racket/syndicate/examples/actor/f-to-c.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; After the Fahrenheit-to-Celsius converter example in "Fabrik - A ;; After the Fahrenheit-to-Celsius converter example in "Fabrik - A
;; Visual Programming Environment", Ingalls, Wallace, Chow, Ludolph ;; Visual Programming Environment", Ingalls, Wallace, Chow, Ludolph
;; and Doyle, OOPSLA 1988. ;; and Doyle, OOPSLA 1988.

2
racket/syndicate/examples/actor/f-to-c2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; After the Fahrenheit-to-Celsius converter example in "Fabrik - A ;; After the Fahrenheit-to-Celsius converter example in "Fabrik - A
;; Visual Programming Environment", Ingalls, Wallace, Chow, Ludolph ;; Visual Programming Environment", Ingalls, Wallace, Chow, Ludolph
;; and Doyle, OOPSLA 1988. ;; and Doyle, OOPSLA 1988.

2
racket/syndicate/examples/actor/fib-server.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/threaded) (require syndicate/threaded)
(require/activate syndicate/drivers/timer) (require/activate syndicate/drivers/timer)

2
racket/syndicate/examples/actor/file-system-during.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Toy file system, based on the example in the ESOP2016 submission. ;; Toy file system, based on the example in the ESOP2016 submission.
;; syndicate/actor implementation, using "during" instead of "on asserted/until retracted". ;; syndicate/actor implementation, using "during" instead of "on asserted/until retracted".

2
racket/syndicate/examples/actor/file-system-during2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Toy file system, based on the example in the ESOP2016 submission. ;; Toy file system, based on the example in the ESOP2016 submission.
;; syndicate/actor implementation, using "during" instead of "on asserted/until retracted". ;; syndicate/actor implementation, using "during" instead of "on asserted/until retracted".

2
racket/syndicate/examples/actor/file-system-lll.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Toy file system, based on the example in the ESOP2016 submission. ;; Toy file system, based on the example in the ESOP2016 submission.
;; Low-level implementation. ;; Low-level implementation.

2
racket/syndicate/examples/actor/file-system-lll2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Toy file system, based on the example in the ESOP2016 submission. ;; Toy file system, based on the example in the ESOP2016 submission.
;; Low-level implementation, without subconversation. ;; Low-level implementation, without subconversation.

2
racket/syndicate/examples/actor/file-system.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Toy file system, based on the example in the ESOP2016 submission. ;; Toy file system, based on the example in the ESOP2016 submission.
;; syndicate/actor implementation. ;; syndicate/actor implementation.

2
racket/syndicate/examples/actor/file-system2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Toy file system, based on the example in the ESOP2016 submission. ;; Toy file system, based on the example in the ESOP2016 submission.
;; syndicate/actor implementation, without subconversation. ;; syndicate/actor implementation, without subconversation.

2
racket/syndicate/examples/actor/firewall-demo.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require syndicate/firewall) (require syndicate/firewall)

2
racket/syndicate/examples/actor/forward-chaining-mini.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Minimal syndicate/actor variation on examples/forward-chaining.rkt. ;; Minimal syndicate/actor variation on examples/forward-chaining.rkt.
(spawn (assert `(parent john douglas))) (spawn (assert `(parent john douglas)))

2
racket/syndicate/examples/actor/fs-protocol.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; File System Demo protocol ;; File System Demo protocol
(provide (struct-out file) (provide (struct-out file)

2
racket/syndicate/examples/actor/fs-shell.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Simple "shell" or REPL, used by the file-system demos. ;; Simple "shell" or REPL, used by the file-system demos.
(require (only-in racket/port read-bytes-line-evt)) (require (only-in racket/port read-bytes-line-evt))

2
racket/syndicate/examples/actor/gui.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Small test program for the gui.rkt driver ;; Small test program for the gui.rkt driver
(require/activate syndicate/drivers/gui) (require/activate syndicate/drivers/gui)

2
racket/syndicate/examples/actor/irc.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require/activate syndicate/drivers/irc) (require/activate syndicate/drivers/irc)

2
racket/syndicate/examples/actor/let-event.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrate let-event. ;; Demonstrate let-event.
;; Should print "Complete.". ;; Should print "Complete.".

2
racket/syndicate/examples/actor/mini-echo.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(struct echo-req (body) #:prefab) (struct echo-req (body) #:prefab)
(struct echo-resp (body) #:prefab) (struct echo-resp (body) #:prefab)

2
racket/syndicate/examples/actor/mutex.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Counting-semaphore-like mutex, and dining philosophers. ;; Counting-semaphore-like mutex, and dining philosophers.
(require racket/set) (require racket/set)

2
racket/syndicate/examples/actor/parameters.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrate use of parameters with actors. ;; Demonstrate use of parameters with actors.
;; ;;
;; Per https://github.com/tonyg/syndicate/issues/10, "Parameters don't ;; Per https://github.com/tonyg/syndicate/issues/10, "Parameters don't

2
racket/syndicate/examples/actor/query-set.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
(require racket/set) (require racket/set)

2
racket/syndicate/examples/actor/queue-no-credit.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; A Queue with no flow control. ;; A Queue with no flow control.
(require racket/set) (require racket/set)

2
racket/syndicate/examples/actor/queue-no-credit2.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; A Queue with no flow control. ;; A Queue with no flow control.
(require racket/set) (require racket/set)

2
racket/syndicate/examples/actor/queue.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; A Queue with credit-based flow control. ;; A Queue with credit-based flow control.
(require racket/set) (require racket/set)

2
racket/syndicate/examples/actor/sandbox-os.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Explore use of sandboxes etc for being an "operating system" ;; Explore use of sandboxes etc for being an "operating system"
(require racket/match) (require racket/match)

2
racket/syndicate/examples/actor/show-field-scope-enforcement1.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates that fields may not be passed between actors. ;; Demonstrates that fields may not be passed between actors.
(spawn #:name 'reading-actor (spawn #:name 'reading-actor

2
racket/syndicate/examples/actor/show-field-scope-enforcement4.rkt
View File

@ -1,4 +1,4 @@
#lang syndicate/actor #lang syndicate
;; Demonstrates that fields at actor scope are visible to facets. ;; Demonstrates that fields at actor scope are visible to facets.
(spawn* (field [x 123]) (spawn* (field [x 123])

Some files were not shown because too many files have changed in this diff Show More