(:integer EAGAIN "EAGAIN")
(:integer EBADF "EBADF")
(:integer ECONNREFUSED "ECONNREFUSED")
+ (:integer ETIMEDOUT "ETIMEDOUT")
(:integer EINTR "EINTR")
(:integer EINVAL "EINVAL")
(:integer ENOBUFS "ENOBUFS")
(:integer msg-trunc "MSG_TRUNC")
(:integer msg-waitall "MSG_WAITALL")
+ ;; for socket-receive
+ (:type socklen-t "socklen_t")
+
#|
;;; stat is nothing to do with sockets, but I keep it around for testing
;;; the ffi glue
(c-string-pointer name "char *" "p_name")
((* (* t)) aliases "char **" "p_aliases")
(integer proto "int" "p_proto")))
- (:function getprotobyname ("getprotobyname" (* t)
+ (:function getprotobyname ("getprotobyname" (* protoent)
(name c-string)))
(:integer inaddr-any "INADDR_ANY")
(:structure in-addr ("struct in_addr"
(len integer)
(flags integer)
(sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
- (socklen (* integer))))
+ (socklen (* socklen-t))))
(:function gethostbyname ("gethostbyname" (* hostent) (name c-string)))
(:function gethostbyaddr ("gethostbyaddr" (* hostent)
(addr (* t))