19 lines
468 B
Racket
19 lines
468 B
Racket
|
#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)])))))
|