- (: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 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 )))