23 lines
716 B
Racket
23 lines
716 B
Racket
#lang syndicate
|
|
;; Demonstrate sending a message to multiple receivers.
|
|
|
|
(struct envelope (destination message) #:prefab)
|
|
|
|
(spawn (on (message (envelope 'alice $message))
|
|
(log-info "Alice received ~v" message)))
|
|
|
|
(spawn (on (message (envelope 'bob $message))
|
|
(log-info "Bob received ~v" message)))
|
|
|
|
(spawn*
|
|
(log-info "Waiting for Alice and Bob.")
|
|
(until (asserted (observe (envelope 'alice _))))
|
|
(until (asserted (observe (envelope 'bob _))))
|
|
|
|
(log-info "Sending a few messages...")
|
|
(send! (envelope 'alice "For Alice's eyes only"))
|
|
(send! (envelope 'bob "Dear Bob, how are you? Kind regards, etc."))
|
|
(send! (envelope ? "Important announcement!"))
|
|
|
|
(log-info "Sent all the messages."))
|