Initial commit

Proof of concept. Works on localhost

3 files changed, 40 insertions, 0 deletions

@@ -0,0 +1,8 @@
+mailbox
+postcard
+*.o
+*.so
+
+
+
+
@@ -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)
@@ -0,0 +1,13 @@
+;; client bit
+
+(import udp
+        (chicken process-context))
+
+(define host "localhost")
+(define port 42069)
+
+(define (main args)
+  (define s (udp-open-socket))
+  (udp-sendto s host port (apply string-append args)))
+
+(main (command-line-arguments))