projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Optimize sb-bsd-sockets::(get-host-by-name get-host-by-address).
[sbcl.git]
/
contrib
/
sb-bsd-sockets
/
constants.lisp
diff --git
a/contrib/sb-bsd-sockets/constants.lisp
b/contrib/sb-bsd-sockets/constants.lisp
index
92c017e
..
de0e2e8
100644
(file)
--- a/
contrib/sb-bsd-sockets/constants.lisp
+++ b/
contrib/sb-bsd-sockets/constants.lisp
@@
-67,6
+67,12
@@
#+linux (:integer so-bindtodevice "SO_BINDTODEVICE")
(:integer ifnamsiz "IFNAMSIZ")
#+linux (:integer so-bindtodevice "SO_BINDTODEVICE")
(:integer ifnamsiz "IFNAMSIZ")
+;; socket shutdown flags
+(:integer SHUT_RD "SHUT_RD")
+(:integer SHUT_WR "SHUT_WR")
+(:integer SHUT_RDWR "SHUT_RDWR")
+
+;; errors
(:integer EADDRINUSE "EADDRINUSE")
(:integer EAGAIN "EAGAIN")
(:integer EBADF "EBADF")
(:integer EADDRINUSE "EADDRINUSE")
(:integer EAGAIN "EAGAIN")
(:integer EBADF "EBADF")
@@
-214,6
+220,8
@@
(addrlen socklen-t)))
(:function close ("close" int
(fd int)))
(addrlen socklen-t)))
(:function close ("close" int
(fd int)))
+ (:function shutdown ("shutdown" int
+ (fd int) (how int)))
(:function recvfrom ("recvfrom" ssize-t
(socket int)
(buf (* t))
(:function recvfrom ("recvfrom" ssize-t
(socket int)
(buf (* t))
@@
-280,7
+288,7
@@
#-darwin (integer addrlen "size_t" "ai_addrlen")
((* sockaddr-in) addr "struct sockaddr*" "ai_addr")
(c-string-pointer canonname "char *" "ai_canonname")
#-darwin (integer addrlen "size_t" "ai_addrlen")
((* sockaddr-in) addr "struct sockaddr*" "ai_addr")
(c-string-pointer canonname "char *" "ai_canonname")
- ((* t) next "struct addrinfo*" "ai_next")))
+ ((* (struct addrinfo)) next "struct addrinfo*" "ai_next")))
#+sb-bsd-sockets-addrinfo
(:function getaddrinfo ("getaddrinfo"
#+sb-bsd-sockets-addrinfo
(:function getaddrinfo ("getaddrinfo"