projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.13:
[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
97a9fa8
..
22f6793
100644
(file)
--- a/
contrib/sb-bsd-sockets/constants.lisp
+++ b/
contrib/sb-bsd-sockets/constants.lisp
@@
-94,6
+94,9
@@
(:integer msg-trunc "MSG_TRUNC")
(:integer msg-waitall "MSG_WAITALL")
(: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
#|
;;; stat is nothing to do with sockets, but I keep it around for testing
;;; the ffi glue
@@
-108,7
+111,7
@@
(c-string-pointer name "char *" "p_name")
((* (* t)) aliases "char **" "p_aliases")
(integer proto "int" "p_proto")))
(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"
(name c-string)))
(:integer inaddr-any "INADDR_ANY")
(:structure in-addr ("struct in_addr"
@@
-166,7
+169,7
@@
(len integer)
(flags integer)
(sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
(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))
(:function gethostbyname ("gethostbyname" (* hostent) (name c-string)))
(:function gethostbyaddr ("gethostbyaddr" (* hostent)
(addr (* t))