Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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)); " close(obj_obj2int(sockfd));
return_closcall1(data, k, boolean_t);") 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) (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) (define (socket-output-port sock)
(error "Not implemented yet")) (%socket-output-port (socket->fd sock)))
;; END TODO
(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) (define (call-with-socket socket proc)
(let ((result (proc socket))) (let ((result (proc socket)))