Historical interest only: A Dataspace-like language and system that led to "Network Calculus" (ESOP 2014) and minimart-2014, in turn a predecessor to Syndicate.
https://syndicate-lang.org/papers#gjthf-esop14
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
421 B
14 lines
421 B
#lang marketplace |
|
|
|
(observe-publishers (tcp-channel ? (tcp-listener 5999) ?) |
|
(match-conversation (tcp-channel from to _) |
|
(on-presence (spawn (echoer from to))))) |
|
|
|
(define (echoer from to) |
|
(transition stateless |
|
(publisher (tcp-channel to from ?)) |
|
(subscriber (tcp-channel from to ?) |
|
(on-absence (quit)) |
|
(on-message |
|
[(tcp-channel _ _ data) |
|
(send-message (tcp-channel to from data))]))))
|
|
|