diff options
Diffstat (limited to 'ocaml-binary-annot/otherlibs/win32unix/socketaddr.h')
| -rw-r--r-- | ocaml-binary-annot/otherlibs/win32unix/socketaddr.h | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/ocaml-binary-annot/otherlibs/win32unix/socketaddr.h b/ocaml-binary-annot/otherlibs/win32unix/socketaddr.h new file mode 100644 index 0000000000..8abc63b477 --- /dev/null +++ b/ocaml-binary-annot/otherlibs/win32unix/socketaddr.h @@ -0,0 +1,37 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 1996 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$ */ + +#include <misc.h> + +union sock_addr_union { + struct sockaddr s_gen; + struct sockaddr_in s_inet; +}; + +extern union sock_addr_union sock_addr; + +#ifdef HAS_SOCKLEN_T +typedef socklen_t socklen_param_type; +#else +typedef int socklen_param_type; +#endif + +extern void get_sockaddr (value mladdr, + union sock_addr_union * addr /*out*/, + socklen_param_type * addr_len /*out*/); +CAMLprim value alloc_sockaddr (union sock_addr_union * addr /*in*/, + socklen_param_type addr_len, int close_on_error); +CAMLprim value alloc_inet_addr (struct in_addr * inaddr); +#define GET_INET_ADDR(v) (*((struct in_addr *) (v))) |