- (:function socket ("socket" integer
- (domain integer)
- (type integer)
- (protocol integer)))
- (:function bind ("bind" integer
- (sockfd integer)
- (my-addr (* t))
- (addrlen integer)))
- (:function listen ("listen" integer
- (socket integer)
- (backlog integer)))
- (:function accept ("accept" integer
- (socket integer)
- (my-addr (* t))
- (addrlen integer :in-out)))
- (:function getpeername ("getpeername" integer
- (socket integer)
- (her-addr (* t))
- (addrlen integer :in-out)))
- (:function getsockname ("getsockname" integer
- (socket integer)
- (my-addr (* t))
- (addrlen integer :in-out)))
- (:function connect ("connect" integer
- (socket integer)
- (his-addr (* t))
- (addrlen integer )))
-
- (:function close ("close" integer
- (fd integer)))
- (:function recvfrom ("recvfrom" integer
- (socket integer)
- (buf (* t))
- (len integer)
- (flags integer)
- (sockaddr (* t))
- (socklen (* integer))))
- (:function gethostbyname ("gethostbyname" (* t ) (name c-string)))
- (:function gethostbyaddr ("gethostbyaddr" (* t )
- (addr (* t))
- (len integer)
- (af integer)))
- (:structure hostent ("struct hostent"
- ((* t) name "char *" "h_name")
- (integer length "int" "h_length")))
+ (: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 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 int :in-out)))
+ (:function getpeername ("getpeername" int
+ (socket int)
+ (her-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
+ (addrlen int :in-out)))
+ (:function getsockname ("getsockname" int
+ (socket int)
+ (my-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
+ (addrlen int :in-out)))
+ (:function connect ("connect" int
+ (socket int)
+ (his-addr (* t)) ; KLUDGE: sockaddr-in or sockaddr-un?
+ (addrlen int )))