From e1cf9a35b53fc679519159291fdaa332d77aedca Mon Sep 17 00:00:00 2001
From: Quentin <quentin@deuxfleurs.fr>
Date: Thu, 9 Jul 2020 10:03:55 +0200
Subject: [PATCH] Add a UDP example

---
 examples/udp_server.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/udp_server.scm

diff --git a/examples/udp_server.scm b/examples/udp_server.scm
new file mode 100644
index 0000000..c7a63cd
--- /dev/null
+++ b/examples/udp_server.scm
@@ -0,0 +1,18 @@
+(load "../bindings/libc.scm")
+
+(define (check-err ret msg)
+  (cond
+    ((< ret 0)
+     (perror msg)
+     (raise msg))
+    (#t ret)))
+
+(define (udp-sock fx)
+  (fx 
+    (check-err 
+      (socket 'AF_INET 'SOCK_DGRAM 'IPPROTO_NONE)
+      "Unable to init UDP socket")))
+
+(udp-sock 
+  (lambda (s)
+    (printf "~a~%" s)))