quentin/schemelib
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Implement bind

Browse source
This commit is contained in:
Quentin 2020-07-09 14:16:50 +02:00
parent b10b219003
commit 6f49424fb0
2 changed files with 18 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bindings/libc.scm
View file

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

14
examples/udp_server.scm
View file

@ -32,22 +32,24 @@
(ftype-sizeof int)) (ftype-sizeof int))
"Unable to set REUSE ADDRESS")))) "Unable to set REUSE ADDRESS"))))
(define (udpsock-bind sock addr port) (define (udpsock-bind sock host port)
(alloc (alloc
(ftype-sizeof sockaddr_in) (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_family) addr (domain->int 'AF_INET))
(ftype-set! sockaddr_in (sin_port) addr (htons port)) (ftype-set! sockaddr_in (sin_port) addr (htons port))
(check-err (check-err
(inet_pton (inet_pton
'AF_INET 'AF_INET
addr host
(ftype-&ref sockaddr_in (sin_addr) addr)) (ftype-pointer-address
(ftype-&ref sockaddr_in (sin_addr) addr)))
"Unable to convert your IP address to binary") "Unable to convert your IP address to binary")
(bind (bind
sock sock
addr (ftype-pointer-address addr)
(ftype-sizeof addr))))) (ftype-sizeof sockaddr_in))))))
(udpsock-create (udpsock-create
(lambda (sock) (lambda (sock)