#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)))