diff options
Diffstat (limited to 'ocaml-binary-annot/config/auto-aux/gethostbyaddr.c')
| -rw-r--r-- | ocaml-binary-annot/config/auto-aux/gethostbyaddr.c | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/ocaml-binary-annot/config/auto-aux/gethostbyaddr.c b/ocaml-binary-annot/config/auto-aux/gethostbyaddr.c new file mode 100644 index 0000000000..c5dd129719 --- /dev/null +++ b/ocaml-binary-annot/config/auto-aux/gethostbyaddr.c @@ -0,0 +1,51 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 2002 Institut National de Recherche en Informatique et */ +/* en Automatique. All rights reserved. This file is distributed */ +/* under the terms of the GNU Library General Public License, with */ +/* the special exception on linking described in file ../../LICENSE. */ +/* */ +/***********************************************************************/ + +/* $Id$ */ + +#ifndef _REENTRANT +/* This helps detection on Digital Unix... */ +#define _REENTRANT +#endif + +#include <sys/types.h> +#include <netdb.h> + +int main(int argc, char ** argv) +{ +#if NUM_ARGS == 7 + char * address; + int length; + int type; + struct hostent h; + char buffer[10]; + int buflen; + int h_errnop; + struct hostent * hp; + hp = gethostbyaddr_r(address, length, type, &h, + buffer, buflen, &h_errnop); +#elif NUM_ARGS == 8 + char * address; + int length; + int type; + struct hostent h; + char buffer[10]; + int buflen; + int h_errnop; + struct hostent * hp; + int rc; + rc = gethostbyaddr_r(address, length, type, &h, + buffer, buflen, &hp, &h_errnop); +#endif + return 0; +} |