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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

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
;; journal.

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

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