+ (addr (* t))
+ (len int)
+ (af int)))
+
+ ;; Re-entrant gethostbyname
+
+ #+linux
+ (:function gethostbyname-r ("gethostbyname_r"
+ int
+ (name c-string)
+ (ret (* hostent))
+ (buf (* char))
+ (buflen long)
+ (result (* (* hostent)))
+ (h-errnop (* int))))
+ ;; getaddrinfo / getnameinfo
+
+ #+sb-bsd-sockets-addrinfo
+ (:structure addrinfo ("struct addrinfo"
+ (integer flags "int" "ai_flags")
+ (integer family "int" "ai_family")
+ (integer socktype "int" "ai_socktype")
+ (integer protocol "int" "ai_protocol")
+ ;; CLH 20070306 FIXME: ai_addrlen should really
+ ;; be a socklen_t, but I'm not sure if this the
+ ;; case on other platforms. I'm setting this to
+ ;; socklen_t on darwin and hoping that other
+ ;; platform maintainers will do the right thing
+ ;; here.
+ #+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")))
+
+ #+sb-bsd-sockets-addrinfo
+ (:function getaddrinfo ("getaddrinfo"
+ int
+ (node c-string)
+ (service c-string)
+ (hints (* addrinfo))
+ (res (* (* addrinfo)))))
+
+ #+sb-bsd-sockets-addrinfo
+ (:function freeaddrinfo ("freeaddrinfo"
+ void
+ (res (* addrinfo))))
+
+ #+sb-bsd-sockets-addrinfo
+ (:function gai-strerror ("gai_strerror"
+ c-string
+ (error-code int)))
+
+ #+sb-bsd-sockets-addrinfo
+ (:function getnameinfo ("getnameinfo"
+ int
+ (address (* sockaddr-in))
+ (address-length size-t)
+ (host (* char))
+ (host-len size-t)
+ (service (* char))
+ (service-len size-t)
+ (flags int)))
+
+ (:integer EAI-FAMILY "EAI_FAMILY")
+ (:integer EAI-SOCKTYPE "EAI_SOCKTYPE")
+ (:integer EAI-BADFLAGS "EAI_BADFLAGS")
+ (:integer EAI-NONAME "EAI_NONAME")
+ (: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")
+ (:integer EAI-SYSTEM "EAI_SYSTEM")
+
+ (:integer NI-NAMEREQD "NI_NAMEREQD")
+
+ ;; Socket options
+
+ (:function setsockopt ("setsockopt" int
+ (socket int)
+ (level int)
+ (optname int)