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

8 years ago
8 years ago
  1. #lang marketplace
  2. (observe-publishers (tcp-channel ? (tcp-listener 5999) ?)
  3. (match-conversation (tcp-channel from to _)
  4. (on-presence (spawn (echoer from to)))))
  5. (define (echoer from to)
  6. (transition stateless
  7. (publisher (tcp-channel to from ?))
  8. (subscriber (tcp-channel from to ?)
  9. (on-absence (quit))
  10. (on-message
  11. [(tcp-channel _ _ data)
  12. (send-message (tcp-channel to from data))]))))