WIP network bindings

bindings/libc.scm

@@ -55,10 +55,19 @@
     ((SO_REUSEADDR) #x2)
 ))
 
-(define (alloc size fx)
+(define (inet_pton af src dst)
-  (let ([v (foreign-alloc size)])
+  ((foreign-procedure
-    (fx v)
+     "inet_pton"
-    (foreign-free v)))
+     (int string void*)
+     int)
+    (domain->int af)
+    src dst))
+
+; htons
+(define (htons host)
+  ((foreign-procedure
+     "htons"
+     (
 
 (define (setsockopt sockfd level optname optval optlen)
   ((foreign-procedure
@@ -70,4 +79,10 @@
    (optname->int optname)
    optval optlen))
 
+(define (bind sockfd address address_len)
+  ((foreign-procedure
+     "bind"
+     (int void* int)
+     int) sockfd address address_len))
+
 

examples/udp_server.scm

@@ -7,6 +7,11 @@
      (raise msg))
     (#t ret)))
 
+(define (alloc size fx)
+  (let ([v (foreign-alloc size)])
+    (fx v)
+    (foreign-free v)))
+
 (define (udpsock-create fx)
   (fx 
     (check-err 
@@ -27,7 +32,25 @@
           (ftype-sizeof int))
         "Unable to set REUSE ADDRESS"))))
 
+(define (udpsock-bind sock addr port)
+  (alloc 
+    (ftype-sizeof sockaddr_in)
+    (lambda (addr)
+      (ftype-set! sockaddr_in (sin_family) addr (domain->int 'AF_INET))
+      (ftype-set! sockaddr_in (sin_port) addr (htons port))
+      (check-err
+        (inet_pton 
+          'AF_INET 
+          addr 
+          (ftype-&ref sockaddr_in (sin_addr) addr))
+        "Unable to convert your IP address to binary")
+      (bind
+        sock
+        addr
+        (ftype-sizeof addr)))))
+
 (udpsock-create
-  (lambda (s)
+  (lambda (sock)
-    (udpsock-reuseaddr s)
+    (udpsock-reuseaddr sock)
-    (printf "~a~%" s)))
+    (udpsock-bind sock "0.0.0.0" 1337)
+    (printf "~a~%" sock)))