diff options
Diffstat (limited to 'otherlibs/win32unix/bind.c')
| -rw-r--r-- | otherlibs/win32unix/bind.c | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/otherlibs/win32unix/bind.c b/otherlibs/win32unix/bind.c new file mode 100644 index 000000000..166ab353b --- /dev/null +++ b/otherlibs/win32unix/bind.c @@ -0,0 +1,32 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 1996 Institut National de Recherche en Informatique et */ +/* Automatique. Distributed only by permission. */ +/* */ +/***********************************************************************/ + +/* $Id$ */ + +#include <mlvalues.h> +#include "unixsupport.h" +#include "socketaddr.h" + +value unix_bind(socket, address) /* ML */ + value socket, address; +{ + int ret; + get_sockaddr(address); + ret = bind(_get_osfhandle(Int_val(socket)), &sock_addr.s_gen, sock_addr_len); + if (ret == -1) uerror("bind", Nothing); + return Val_unit; +} + +#else + +value unix_bind() { invalid_argument("bind not implemented"); } + +#endif |