Implement bind

bindings/libc.scm

@@ -63,11 +63,11 @@
     (domain->int af)
     src dst))
 
-; htons
 (define (htons host)
   ((foreign-procedure
      "htons"
-     (
+     (short)
+     short) host))
 
 (define (setsockopt sockfd level optname optval optlen)
   ((foreign-procedure

examples/udp_server.scm

@@ -32,22 +32,24 @@
           (ftype-sizeof int))
         "Unable to set REUSE ADDRESS"))))
 
-(define (udpsock-bind sock addr port)
+(define (udpsock-bind sock host port)
   (alloc 
     (ftype-sizeof sockaddr_in)
-    (lambda (addr)
+    (lambda (raw-addr)
+      (let ([addr (make-ftype-pointer sockaddr_in raw-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))
+            host
+            (ftype-pointer-address
+              (ftype-&ref sockaddr_in (sin_addr) addr)))
           "Unable to convert your IP address to binary")
         (bind
           sock
-        addr
-        (ftype-sizeof addr)))))
+          (ftype-pointer-address addr)
+          (ftype-sizeof sockaddr_in))))))
 
 (udpsock-create
   (lambda (sock)