Initial commit

Proof of concept. Works on localhost

1 files changed, 19 insertions, 0 deletions

@@ -0,0 +1,19 @@
+;; server bit
+
+(import udp)
+
+(define host "localhost")
+(define port 42069)
+
+(define (main)
+  (define s (udp-open-socket))
+  (udp-bind! s #f port)
+  (let loop ((s s))
+    (receive (len str) (udp-recv s 512)
+      (when (= len 0)
+        (loop s))
+      (display str)
+      (newline)
+      (loop s))))
+
+(main)