Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Adding get-peer-name to (chibi net).

Browse source
This commit is contained in:
Alex Shinn 2013-12-25 13:35:02 +09:00
parent db233e95b7
commit 7f0c3a13e2
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/net.sld
View file

@ -2,7 +2,7 @@
(define-library (chibi net) (define-library (chibi net)
(export sockaddr? address-info? get-address-info make-address-info (export sockaddr? address-info? get-address-info make-address-info
socket connect bind accept listen open-socket-pair socket connect bind accept listen open-socket-pair
sockaddr-name sockaddr-port sockaddr-name sockaddr-port make-sockaddr
with-net-io open-net-io make-listener-socket with-net-io open-net-io make-listener-socket
address-info-family address-info-socket-type address-info-protocol address-info-family address-info-socket-type address-info-protocol
address-info-address address-info-address-length address-info-next address-info-address address-info-address-length address-info-next
@ -15,6 +15,7 @@
socket-opt/keepalive socket-opt/oobinline socket-opt/sndbuf socket-opt/keepalive socket-opt/oobinline socket-opt/sndbuf
socket-opt/rcvbuf socket-opt/dontroute socket-opt/rcvlowat socket-opt/rcvbuf socket-opt/dontroute socket-opt/rcvlowat
socket-opt/sndlowat socket-opt/sndlowat
get-peer-name
;; C structs ;; C structs
sockaddr addrinfo) sockaddr addrinfo)
(import (chibi) (chibi filesystem)) (import (chibi) (chibi filesystem))

4
lib/chibi/net.stub
View file

@ -7,6 +7,7 @@
(define-c-int-type socklen_t) (define-c-int-type socklen_t)
(define-c-struct sockaddr (define-c-struct sockaddr
constructor: (make-sockaddr)
predicate: sockaddr?) predicate: sockaddr?)
(define-c-struct addrinfo (define-c-struct addrinfo
@ -84,6 +85,9 @@
(c-include "accept.c") (c-include "accept.c")
(define-c errno (get-peer-name getpeername)
(fileno sockaddr (result (value (sizeof sockaddr) socklen_t))))
(define-c errno getsockopt (define-c errno getsockopt
(fileno int int (result int) (result (value (sizeof int) socklen_t)))) (fileno int int (result int) (result (value (sizeof int) socklen_t))))