Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 16:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Stubs for accept

Browse source
This commit is contained in:
Justin Ethier 2016-09-24 04:14:37 -04:00
parent d12492e585
commit a34fa03608
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
srfi/106.sld
View file

@ -162,10 +162,17 @@
} }
freeaddrinfo(servinfo); // all done with this structure freeaddrinfo(servinfo); // all done with this structure
if (listen(sockfd, 20) < 0)
Cyc_rt_raise_msg(data, \"Unable to listen on socket\");
}
return_closcall1(data, k, obj_int2obj(sockfd)); ") return_closcall1(data, k, obj_int2obj(sockfd)); ")
;; TODO: when do we call listen()? ?? ;; See: http://beej.us/guide/bgnet/output/html/singlepage/bgnet.html#accept
; TODO: (define (socket-accept sock)) ; TODO: (define (socket-accept sock))
; struct sockaddr_storage their_addr;
; addr_size = sizeof their_addr;
; new_fd = accept(sockfd, (struct sockaddr *)&their_addr, &addr_size);
(define (socket-send sock bv . opts) (define (socket-send sock bv . opts)
(let ((flags 0)) (let ((flags 0))