Add a UDP example

2020-07-09 10:03:55 +02:00 · 2020-07-09 10:03:55 +02:00 · e1cf9a35b5
parent 9536b0affa
commit e1cf9a35b5
1 changed files with 18 additions and 0 deletions
--- a/examples/udp_server.scm
+++ 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)))