blob: 82eaaad9b69f666dd6a9dd6a187a18db20576392 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
;; server bit
(import udp
utf8)
(define host "localhost")
(define port 42069)
(define (main)
(define s (udp-open-socket))
(udp-bind! s #f port)
(let loop ((s s))
(receive (len str host port) (udp-recvfrom s 512)
(when (= len 0)
(loop s))
(print host ":" port "(" len ")\t" str)
(udp-sendto s host port (string-append "received: " str))
(loop s))))
(main)
|