udp-echo.rkt

2017-09-29 17:23:07 +01:00 · 2017-09-29 17:23:07 +01:00 · d96477b9db
parent 0599f974b9
commit d96477b9db
1 changed files with 7 additions and 0 deletions
--- a/racket/syndicate/examples/actor/udp-echo.rkt
+++ 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))))