diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-09-02 12:55:01 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-09-02 12:55:01 +0000 |
| commit | 1517cea772058b0fcbe778d05b8b99c7e6f3b25f (patch) | |
| tree | a2d817fe623f81b7729ed3cd2e128cad91eca02b /otherlibs/unix/gethost.c | |
| parent | d75918f7e459b507ac6b4b95f14df0a1eedd4937 (diff) | |
Sources C convertis en ANSI C
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1696 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix/gethost.c')
| -rw-r--r-- | otherlibs/unix/gethost.c | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/otherlibs/unix/gethost.c b/otherlibs/unix/gethost.c index 5eb8f6790..07766f057 100644 --- a/otherlibs/unix/gethost.c +++ b/otherlibs/unix/gethost.c @@ -30,15 +30,13 @@ static int entry_h_length; extern int socket_domain_table[]; -static value alloc_one_addr(a) - char * a; +static value alloc_one_addr(char *a) { bcopy(a, &sock_addr.s_inet.sin_addr, entry_h_length); return alloc_inet_addr(sock_addr.s_inet.sin_addr.s_addr); } -static value alloc_host_entry(entry) - struct hostent * entry; +static value alloc_host_entry(struct hostent *entry) { value res; value name = Val_unit, aliases = Val_unit; @@ -64,8 +62,7 @@ static value alloc_host_entry(entry) return res; } -value unix_gethostbyaddr(a) /* ML */ - value a; +value unix_gethostbyaddr(value a) /* ML */ { uint32 addr; struct hostent * entry; @@ -77,8 +74,7 @@ value unix_gethostbyaddr(a) /* ML */ return alloc_host_entry(entry); } -value unix_gethostbyname(name) /* ML */ - value name; +value unix_gethostbyname(value name) /* ML */ { char hostname[256]; struct hostent * entry; @@ -93,10 +89,10 @@ value unix_gethostbyname(name) /* ML */ #else -value unix_gethostbyaddr() +value unix_gethostbyaddr(value name) { invalid_argument("gethostbyaddr not implemented"); } -value unix_gethostbyname() +value unix_gethostbyname(value name) { invalid_argument("gethostbyname not implemented"); } #endif |