1 (:structure hostent
("struct hostent"
2 (c-string-pointer name
"char *" "h_name")
3 ((* c-string
) aliases
"char **" "h_aliases")
4 (int type
"int" "h_addrtype")
5 (int length
"int" "h_length")
6 ((* (* (unsigned 8))) addresses
"char **" "h_addr_list")))
7 (:structure servent
("struct servent"
8 (c-string-pointer name
"char *" "s_name")
9 ((* (* (unsigned 8))) aliases
"char **" "s_aliases")
10 (int port
"int" "s_port")
11 (c-string-pointer proto
"char *" "s_proto")))
13 (:integer host-not-found
"HOST_NOT_FOUND")
14 (:integer no-data
"NO_DATA")
15 (:integer no-address
"NO_ADDRESS")
16 (:integer no-recovery
"NO_RECOVERY")
17 (:integer try-again
"TRY_AGAIN")
19 (define-alien-routine "endhostent" void
)
21 (define-alien-routine "endservent" void
)
23 (define-alien-routine "gethostbyaddr" (* (struct hostent
))
28 (define-alien-routine "gethostbyname" (* (struct hostent
))
31 (define-alien-routine "gethostent" (* (struct hostent
)))
33 (define-alien-routine "getservbyname" (* (struct servent
))
37 (define-alien-routine "getservbyport" (* (struct servent
))
41 (define-alien-routine "getservent" (* (struct servent
)))
43 (define-alien-routine "sethostent" void
46 (define-alien-routine "setservent" void