15 lines
335 B
Racket
15 lines
335 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(require racket/match)
|
||
|
|
(require racket/udp)
|
||
|
|
|
||
|
|
(define s (udp-open-socket #f #f))
|
||
|
|
(udp-send-to s "127.0.0.1" 5678 #"get")
|
||
|
|
(define buffer (make-bytes 8))
|
||
|
|
(sync/timeout 0.5
|
||
|
|
(wrap-evt (udp-receive!-evt s buffer)
|
||
|
|
(match-lambda
|
||
|
|
[(list 8 _ _)
|
||
|
|
(write (integer-bytes->integer buffer #f))
|
||
|
|
(newline)])))
|