l4/pkg/ocaml/ocaml/contrib/otherlibs/unix/shutdown.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: shutdown.c 6824 2005-03-24 17:20:54Z doligez $ */
  15
  16 #include <fail.h>
  17 #include <mlvalues.h>
  18 #include "unixsupport.h"
  19
  20 #ifdef HAS_SOCKETS
  21
  22 #include <sys/socket.h>
  23
  24 static int shutdown_command_table[] = {
  25   0, 1, 2
  26 };
  27
  28 CAMLprim value unix_shutdown(value sock, value cmd)
  29 {
  30   if (shutdown(Int_val(sock), shutdown_command_table[Int_val(cmd)]) == -1)
  31     uerror("shutdown", Nothing);
  32   return Val_unit;
  33 }
  34
  35 #else
  36
  37 CAMLprim value unix_shutdown(value sock, value cmd)
  38 { invalid_argument("shutdown not implemented"); }
  39
  40 #endif