From d96477b9db83f96bf92748f3ed010b81d821be62 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 29 Sep 2017 17:23:07 +0100 Subject: [PATCH] udp-echo.rkt --- racket/syndicate/examples/actor/udp-echo.rkt | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 racket/syndicate/examples/actor/udp-echo.rkt diff --git a/racket/syndicate/examples/actor/udp-echo.rkt b/racket/syndicate/examples/actor/udp-echo.rkt new file mode 100644 index 0000000..26b7205 --- /dev/null +++ b/racket/syndicate/examples/actor/udp-echo.rkt @@ -0,0 +1,7 @@ +#lang syndicate + +(require/activate syndicate/drivers/udp) + +(spawn (on (message (udp-packet $peer (udp-listener 5999) $body)) + (printf "Received from ~a: ~v\n" peer body) + (send! (udp-packet (udp-listener 5999) peer body))))