1 files changed, 11 insertions, 3 deletions

@@ -1,13 +1,21 @@
 ;; client bit
 
-(import udp
+(import srfi-13
+        udp
+        utf8
         (chicken process-context))
 
-(define host "localhost")
+(define host "95.216.214.66")
 (define port 42069)
 
 (define (main args)
   (define s (udp-open-socket))
-  (udp-sendto s host port (apply string-append args)))
+  (udp-bind! s #f 0) ; automatically allocate one
+  (udp-sendto s host port (string-join args " "))
+  (let loop ((s s))
+    (receive (len str host port) (udp-recvfrom s 512)
+      (when (= len 0)
+        (loop s))
+      (print host ":" port "\t" str))))
 
 (main (command-line-arguments))