#lang racket/base

(require racket/match)
(require "os-userland-stdlib.rkt")
(require "os-udp.rkt")

(ground-vm/userland/stdlib
 (lambda ()
   (spawn display-driver)
   (spawn read-line-driver)
   (spawn udp-driver)
   (poll)
   (define s (rpc `(udp new 5555 65536)))
   (let loop ()
     (wait (message-handlers
	    [(udp-packet source (and sink (? (lambda (x) (eq? x s)))) body)
	     (display "UDP!\n")
	     (send (udp-packet sink source body))
	     (loop)])))))