15 lines
385 B
Racket
15 lines
385 B
Racket
#lang racket/unit
|
|
|
|
(require (prefix-in r: racket/udp))
|
|
(require "udp-operations-sig.rkt")
|
|
|
|
(import)
|
|
(export udp-operations^)
|
|
|
|
(define udp-open-socket r:udp-open-socket)
|
|
(define udp-close r:udp-close)
|
|
(define udp-bind! r:udp-bind!)
|
|
(define udp-send-to r:udp-send-to)
|
|
(define (udp-receive/timeout s buffer timeout-seconds)
|
|
(sync/timeout timeout-seconds (r:udp-receive!-evt s buffer)))
|