Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Initial input/output port conversions

Browse source
This commit is contained in:
Justin Ethier 2016-09-27 01:26:31 -04:00
parent 2205eedea9
commit 69795bfcd2
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
srfi/106.sld
View file

@ -254,12 +254,24 @@
" close(obj_obj2int(sockfd));
return_closcall1(data, k, boolean_t);")
;; TODO: implement both of these:
;; TODO: may not be good enough, socket may be closed if file is closed
(define (socket-input-port sock)
(error "Not implemented yet"))
(%socket-input-port (socket->fd sock)))
(define-c %socket-input-port
"(void *data, int argc, closure _, object k, object sockfd)"
" FILE *fp = fdopen(obj_obj2int(sockfd), \"r\");
make_port(port, fp, 1);
return_closcall1(data, k, &port);")
(define (socket-output-port sock)
(error "Not implemented yet"))
;; END TODO
(%socket-output-port (socket->fd sock)))
(define-c %socket-output-port
"(void *data, int argc, closure _, object k, object sockfd)"
" FILE *fp = fdopen(obj_obj2int(sockfd), \"w\");
make_port(port, fp, 0);
return_closcall1(data, k, &port);")
(define (call-with-socket socket proc)
(let ((result (proc socket)))