2017-09-29 16:23:07 +00:00
|
|
|
#lang syndicate
|
|
|
|
|
|
|
|
|
|
(require/activate syndicate/drivers/udp)
|
2017-09-29 16:34:40 +00:00
|
|
|
(require syndicate/protocol/advertise)
|
2017-09-29 16:23:07 +00:00
|
|
|
|
|
|
|
|
(spawn (on (message (udp-packet $peer (udp-listener 5999) $body))
|
|
|
|
|
(printf "Received from ~a: ~v\n" peer body)
|
2017-09-29 16:34:40 +00:00
|
|
|
(send! (udp-packet (udp-listener 5999) peer body)))
|
|
|
|
|
(on (asserted (advertise (udp-packet _ (udp-listener 5999) _)))
|
|
|
|
|
(printf "Socket is ready and will forward datagrams.\n")))
|
