otherlibs/unix/bind.c

   1 /***********************************************************************/
   2 /*                                                                     */
   3 /*                           Objective Caml                            */
   4 /*                                                                     */
   5 /*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         */
   6 /*                                                                     */
   7 /*  Copyright 1996 Institut National de Recherche en Informatique et   */
   8 /*  en Automatique.  All rights reserved.  This file is distributed    */
   9 /*  under the terms of the GNU Library General Public License, with    */
  10 /*  the special exception on linking described in file ../../LICENSE.  */
  11 /*                                                                     */
  12 /***********************************************************************/
  13
  14 /* $Id$ */
  15
  16 #include <fail.h>
  17 #include <mlvalues.h>
  18 #include "unixsupport.h"
  19
  20 #ifdef HAS_SOCKETS
  21
  22 #include "socketaddr.h"
  23
  24 CAMLprim value unix_bind(value socket, value address)
  25 {
  26   int ret;
  27   union sock_addr_union addr;
  28   socklen_param_type addr_len;
  29
  30   get_sockaddr(address, &addr, &addr_len);
  31   ret = bind(Int_val(socket), &addr.s_gen, addr_len);
  32   if (ret == -1) uerror("bind", Nothing);
  33   return Val_unit;
  34 }
  35
  36 #else
  37
  38 CAMLprim value unix_bind(value socket, value address)
  39 { invalid_argument("bind not implemented"); }
  40
  41 #endif