((:integer af-inet "AF_INET" "IP Protocol family")
(:integer af-unspec "AF_UNSPEC" "Unspecified")
(:integer af-local
- #+(or sunos solaris) "AF_UNIX"
- #-(or sunos solaris) "AF_LOCAL"
+ #+(or sunos solaris hpux) "AF_UNIX"
+ #-(or sunos solaris hpux) "AF_LOCAL"
"Local to host (pipes and file-domain).")
#+linux (:integer af-inet6 "AF_INET6" "IP version 6")
#+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
#+linux (:integer so-passcred "SO_PASSCRED")
(:integer so-rcvbuf "SO_RCVBUF")
(:integer so-keepalive "SO_KEEPALIVE"
- "Send periodic keepalives: if peer does not respond, we get SIGPIPE")
+ "Send periodic keepalives. If peer does not respond, we get SIGPIPE.")
+ #+linux (:integer tcp-keepcnt "TCP_KEEPCNT"
+ "Number of unacknowledged probes before the connection is considered dead.")
+ #+linux (:integer tcp-keepidle "TCP_KEEPIDLE"
+ "Seconds between the last data packet sent and the first keepalive probe.")
+ #+linux (:integer tcp-keepintvl "TCP_KEEPINTVL" "Seconds between keepalive probes.")
(:integer so-oobinline "SO_OOBINLINE"
"Put out-of-band data into the normal input queue when received")
- #-freebsd
+ #+linux
(:integer so-no-check "SO_NO_CHECK")
#+linux (:integer so-priority "SO_PRIORITY")
(:integer so-linger "SO_LINGER"
#+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 EOPNOTSUPP "EOPNOTSUPP")
(:integer EPERM "EPERM")
(:integer EPROTONOSUPPORT "EPROTONOSUPPORT")
+ (:integer ERANGE "ERANGE")
(:integer ESOCKTNOSUPPORT "ESOCKTNOSUPPORT")
(:integer ENETUNREACH "ENETUNREACH")
(:integer ENOTCONN "ENOTCONN")
- (:integer NETDB-INTERNAL "NETDB_INTERNAL" "See errno.")
- (:integer NETDB-SUCCESS "NETDB_SUCCESS" "No problem.")
+ (:integer NETDB-INTERNAL #+hpux "h_NETDB_INTERNAL" #-hpux "NETDB_INTERNAL" "See errno.")
+ (:integer NETDB-SUCCESS #+hpux "h_NETDB_SUCCESS" #-hpux "NETDB_SUCCESS" "No problem.")
(:integer HOST-NOT-FOUND "HOST_NOT_FOUND" "Authoritative Answer Host not found.")
(:integer TRY-AGAIN "TRY_AGAIN" "Non-Authoritative Host not found, or SERVERFAIL.")
(:integer NO-RECOVERY "NO_RECOVERY" "Non recoverable errors, FORMERR, REFUSED, NOTIMP.")
(:integer NO-DATA "NO_DATA" "Valid name, no data record of requested type.")
(:integer NO-ADDRESS "NO_ADDRESS" "No address, look for MX record.")
- (:function h-strerror ("hstrerror" c-string (errno int)))
+ #-(or hpux sunos) (:function h-strerror ("hstrerror" c-string (errno int)))
(:integer O-NONBLOCK "O_NONBLOCK")
(:integer f-getfl "F_GETFL")
(:integer f-setfl "F_SETFL")
- #+linux (:integer msg-nosignal "MSG_NOSIGNAL")
(:integer msg-oob "MSG_OOB")
(:integer msg-peek "MSG_PEEK")
(:integer msg-trunc "MSG_TRUNC")
(:integer msg-eor "MSG_EOR")
(:integer msg-dontroute "MSG_DONTROUTE")
(:integer msg-dontwait "MSG_DONTWAIT")
- (:integer msg-nosignal "MSG_NOSIGNAL")
+ #+linux (:integer msg-nosignal "MSG_NOSIGNAL")
#+linux (:integer msg-confirm "MSG_CONFIRM")
#+linux (:integer msg-more "MSG_MORE")
(integer proto "int" "p_proto")))
(:function getprotobyname ("getprotobyname" (* protoent)
(name c-string)))
+
+;; getprotobyname_r is a thread-safe reentrant version of getprotobyname
+ #+os-provides-getprotoby-r
+ (:function getprotobyname-r ("getprotobyname_r" int
+ (name c-string)
+ (result_buf (* protoent))
+ (buffer (* char))
+ (buffer-len size-t)
+ #-solaris
+ (result (* (* protoent)))))
+
+
(:function getprotobynumber ("getprotobynumber" (* protoent)
(proto int)))
+ ;;ditto, save for the getprotobynumber part
+ #+os-provides-getprotoby-r
+ (:function getprotobynumber-r ("getprotobynumber_r" int
+ (proto int)
+ (result_buf (* protoent))
+ (buffer (* char))
+ (buffer-len size-t)
+ #-solaris
+ (result (* (* protoent)))))
+
(:integer inaddr-any "INADDR_ANY")
(:structure in-addr ("struct in_addr"
((array (unsigned 8)) addr "u_int32_t" "s_addr")))
(:structure sockaddr-in ("struct sockaddr_in"
+ #+darwin ((unsigned 8) len "__uint8_t" "sin_len")
(integer family "sa_family_t" "sin_family")
;; These two could be in-port-t and
;; in-addr-t, but then we'd throw away the
(:structure sockaddr-un ("struct sockaddr_un"
(integer family "sa_family_t" "sun_family")
(c-string path "char" "sun_path")))
+ (:structure sockaddr-un-abstract ("struct sockaddr_un"
+ (integer family "sa_family_t" "sun_family")
+ ((array (unsigned 8)) path "char" "sun_path")))
(:structure hostent ("struct hostent"
(c-string-pointer name "char *" "h_name")
((* c-string) aliases "char **" "h_aliases")
(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))
#+darwin (integer addrlen "socklen_t" "ai_addrlen")
#-darwin (integer addrlen "size_t" "ai_addrlen")
((* sockaddr-in) addr "struct sockaddr*" "ai_addr")
- (c-string canonname "char *" "ai_canonname")
- ((* t) next "struct addrinfo*" "ai_next")))
+ (c-string-pointer canonname "char *" "ai_canonname")
+ ((* (struct addrinfo)) next "struct addrinfo*" "ai_next")))
#+sb-bsd-sockets-addrinfo
(:function getaddrinfo ("getaddrinfo"
(:integer EAI-SERVICE "EAI_SERVICE")
#-freebsd
(:integer EAI-ADDRFAMILY "EAI_ADDRFAMILY")
- #-freebsd
- (:integer EAI-NODATA "EAI_NODATA")
(:integer EAI-MEMORY "EAI_MEMORY")
(:integer EAI-FAIL "EAI_FAIL")
(:integer EAI-AGAIN "EAI_AGAIN")
(level int)
(optname int)
(optval (* t))
- (optlen (* int))))) ;;; should be socklen-t!
-)
+ (optlen (* int)))) ;;; should be socklen-t!
+ )
projects / sbcl.git / blobdiff