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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-09-23 22:33:52 -04:00
parent 163c2cdfc8
commit eb7ac51e95
1 changed files with 27 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
srfi/106.sld
View file

@ -6,7 +6,7 @@
(include-c-header "<arpa/inet.h>") (include-c-header "<arpa/inet.h>")
(include-c-header "<netdb.h>") (include-c-header "<netdb.h>")
(include-c-header "<unistd.h>") (include-c-header "<unistd.h>")
(import (scheme base)) (import (scheme base) (scheme cxr))
(export (export
make-client-socket make-server-socket socket? make-client-socket make-server-socket socket?
socket-accept socket-send socket-recv socket-accept socket-send socket-recv
@ -28,8 +28,27 @@
*shut-rd* *shut-wr* *shut-rdwr* *shut-rd* *shut-wr* *shut-rdwr*
) )
(begin (begin
;; TODO: identifier for socket in vector (define *socket-object-type* '%socket-object-type%)
(define *socket-object-type* 'socket-object-type)
(define (socket? obj)
(and (pair? obj) (eq? (car obj) *socket-object-type*)))
(define (make-client-socket node service . opts)
(let ((family *af-inet*)
(socktype *sock-stream*)
(flags (socket-merge-flags *ai-v4mapped* *ai-addrconfig*))
(proto *ipproto-ip*))
(when (not (null? opts))
(set! family (car opts))
(when (> (length opts) 1)
(set! socktype (cadr opts))
(when (> (length opts) 2)
(set! flags (caddr opts))
(when (> (length opts) 3)
(set! proto (cadddr opts))))))
(let ((sock-fd
(%make-client-socket node service family socktype flags proto)))
(cons *socket-object-type* sock-fd))))
;; see: ;; see:
;; http://gnosis.cx/publish/programming/sockets.html ;; http://gnosis.cx/publish/programming/sockets.html
@ -49,7 +68,6 @@
af = obj_obj2int(family), af = obj_obj2int(family),
type = obj_obj2int(socktype), type = obj_obj2int(socktype),
proto = obj_obj2int(protocol); proto = obj_obj2int(protocol);
make_pair(sockobj, quote_socket_91object_91type, NULL);
memset(&hints, 0, sizeof hints); memset(&hints, 0, sizeof hints);
hints.ai_flags = flags; hints.ai_flags = flags;
@ -86,24 +104,13 @@
} }
freeaddrinfo(servinfo); // all done with this structure freeaddrinfo(servinfo); // all done with this structure
return_closcall1(data, k, obj_int2obj(sockfd)); ")
// if ((sock = socket(af, type, proto)) < 0) { (define (socket-merge-flags flags)
// Cyc_rt_raise_msg(data, \"Failed to create socket\"); )
// }
// memset(&addr, 0, sizeof(addr)); /* Clear struct */
// // TODO: flags?
// addr.sin_family = af;
// addr.sin_addr.s_addr = inet_addr(string_str(node)); /* IP address */
// addr.sin_port = htons(obj_obj2int(service)); /* server port */
// /* Establish connection */
// if (connect(sock,
// (struct sockaddr *) &addr,
// sizeof(addr)) < 0) {
// Cyc_rt_raise_msg(data, \"Failed to connect with server\");
// }
cdr(&sockobj) = obj_int2obj(sockfd); ;(define (socket-purge-flags flags)
return_closcall1(data, k, &sockobj); ") ;)
(define-syntax make-const (define-syntax make-const
(er-macro-transformer (er-macro-transformer