X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fconstants.lisp;h=c5d19a31fca3d969d9c1dba9053c59e3c5b94ba9;hb=10cdee0326e9e8a5bbfe1d8312a73d58f023fb5f;hp=22f6793e8580de8346763e4058eb8c91c1ea6039;hpb=891ba76c8476bb95951c4049e7c20d5895cb2233;p=sbcl.git diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp index 22f6793..c5d19a3 100644 --- a/contrib/sb-bsd-sockets/constants.lisp +++ b/contrib/sb-bsd-sockets/constants.lisp @@ -12,12 +12,12 @@ ((: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" - "Local to host (pipes and file-domain).") + #+(or sunos solaris) "AF_UNIX" + #-(or sunos solaris) "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 ") - + (:integer sock-stream "SOCK_STREAM" "Sequenced, reliable, connection-based byte streams.") (:integer sock-dgram "SOCK_DGRAM" @@ -60,7 +60,7 @@ (:integer tcp-nodelay "TCP_NODELAY") #+linux (:integer so-bindtodevice "SO_BINDTODEVICE") (:integer ifnamsiz "IFNAMSIZ") - + (:integer EADDRINUSE "EADDRINUSE") (:integer EAGAIN "EAGAIN") (:integer EBADF "EBADF") @@ -75,6 +75,7 @@ (:integer EPROTONOSUPPORT "EPROTONOSUPPORT") (:integer ESOCKTNOSUPPORT "ESOCKTNOSUPPORT") (:integer ENETUNREACH "ENETUNREACH") + (:integer ENOTCONN "ENOTCONN") (:integer NETDB-INTERNAL "NETDB_INTERNAL" "See errno.") (:integer NETDB-SUCCESS "NETDB_SUCCESS" "No problem.") @@ -110,18 +111,18 @@ (:structure protoent ("struct protoent" (c-string-pointer name "char *" "p_name") ((* (* t)) aliases "char **" "p_aliases") - (integer proto "int" "p_proto"))) + (integer proto "int" "p_proto"))) (:function getprotobyname ("getprotobyname" (* protoent) - (name c-string))) + (name c-string))) (:integer inaddr-any "INADDR_ANY") (:structure in-addr ("struct in_addr" - ((array (unsigned 8)) addr "u_int32_t" "s_addr"))) + ((array (unsigned 8)) addr "u_int32_t" "s_addr"))) (:structure sockaddr-in ("struct sockaddr_in" (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 - ;; convenience (and byte-order agnosticism) - ;; of the old sb-grovel scheme. + ;; These two could be in-port-t and + ;; in-addr-t, but then we'd throw away the + ;; convenience (and byte-order agnosticism) + ;; of the old sb-grovel scheme. ((array (unsigned 8)) port "u_int16_t" "sin_port") ((array (unsigned 8)) addr "struct in_addr" "sin_addr"))) (:structure sockaddr-un ("struct sockaddr_un" @@ -133,62 +134,62 @@ (integer type "int" "h_addrtype") (integer length "int" "h_length") ((* (* (unsigned 8))) addresses "char **" "h_addr_list"))) - (:function socket ("socket" integer - (domain integer) - (type integer) - (protocol integer))) - (:function bind ("bind" integer - (sockfd integer) + (:function socket ("socket" int + (domain int) + (type int) + (protocol int))) + (:function bind ("bind" int + (sockfd int) (my-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? - (addrlen integer))) - (:function listen ("listen" integer - (socket integer) - (backlog integer))) - (:function accept ("accept" integer - (socket integer) + (addrlen int))) + (:function listen ("listen" int + (socket int) + (backlog int))) + (:function accept ("accept" int + (socket int) (my-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? - (addrlen integer :in-out))) - (:function getpeername ("getpeername" integer - (socket integer) + (addrlen int :in-out))) + (:function getpeername ("getpeername" int + (socket int) (her-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? - (addrlen integer :in-out))) - (:function getsockname ("getsockname" integer - (socket integer) + (addrlen int :in-out))) + (:function getsockname ("getsockname" int + (socket int) (my-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? - (addrlen integer :in-out))) - (:function connect ("connect" integer - (socket integer) + (addrlen int :in-out))) + (:function connect ("connect" int + (socket int) (his-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? - (addrlen integer ))) - - (:function close ("close" integer - (fd integer))) - (:function recvfrom ("recvfrom" integer - (socket integer) - (buf (* t)) - (len integer) - (flags integer) - (sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? - (socklen (* socklen-t)))) + (addrlen int ))) + + (:function close ("close" int + (fd int))) + (:function recvfrom ("recvfrom" int + (socket int) + (buf (* t)) + (len integer) + (flags int) + (sockaddr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un? + (socklen (* socklen-t)))) (:function gethostbyname ("gethostbyname" (* hostent) (name c-string))) (:function gethostbyaddr ("gethostbyaddr" (* hostent) - (addr (* t)) - (len integer) - (af integer))) - (:function setsockopt ("setsockopt" integer - (socket integer) - (level integer) - (optname integer) + (addr (* t)) + (len int) + (af int))) + (:function setsockopt ("setsockopt" int + (socket int) + (level int) + (optname int) (optval (* t)) - (optlen integer))) - (:function fcntl ("fcntl" integer - (fd integer) - (cmd integer) - (arg integer))) - (:function getsockopt ("getsockopt" integer - (socket integer) - (level integer) - (optname integer) + (optlen int))) + (:function fcntl ("fcntl" int + (fd int) + (cmd int) + (arg long))) + (:function getsockopt ("getsockopt" int + (socket int) + (level int) + (optname int) (optval (* t)) - (optlen (* integer))))) + (optlen (* int))))) )