2016-04-01 23:53:46 +00:00
|
|
|
#lang syndicate
|
2015-03-05 16:41:06 +00:00
|
|
|
|
|
|
|
(require "../drivers/udp.rkt")
|
|
|
|
|
|
|
|
(spawn-udp-driver)
|
|
|
|
|
|
|
|
(spawn (lambda (e s)
|
|
|
|
(match e
|
|
|
|
[(message (udp-packet src dst #"quit\n"))
|
|
|
|
(log-info "Got quit request")
|
2015-03-06 11:21:50 +00:00
|
|
|
(quit (message (udp-packet dst src #"Goodbye!\n")))]
|
2015-03-05 16:41:06 +00:00
|
|
|
[(message (udp-packet src dst body))
|
|
|
|
(log-info "Got packet from ~v: ~v" src body)
|
|
|
|
(define reply (string->bytes/utf-8 (format "You said: ~a" body)))
|
|
|
|
(transition s (message (udp-packet dst src reply)))]
|
|
|
|
[_ #f]))
|
|
|
|
(void)
|
|
|
|
(sub (udp-packet ? (udp-listener 5999) ?)))
|