2014-06-19 17:43:18 +00:00
|
|
|
#lang minimart
|
|
|
|
|
|
|
|
|
|
(require "../drivers/udp.rkt")
|
|
|
|
|
|
|
|
|
|
(spawn-udp-driver)
|
|
|
|
|
|
2014-06-23 02:49:13 +00:00
|
|
|
(actor #:name echoer
|
|
|
|
|
(subscribe (udp-packet ($ src) ($ dst (udp-listener 5999)) ($ body))
|
|
|
|
|
(log-info "Got packet from ~v: ~v" src body)
|
|
|
|
|
(define reply (string->bytes/utf-8 (format "You said: ~a" body)))
|
|
|
|
|
(send (udp-packet dst src reply))))
|
