l4/pkg/ocaml/contrib/otherlibs/win32unix/shutdown.c

   1 /***********************************************************************/
   2 /*                                                                     */
   3 /*                           Objective Caml                            */
   4 /*                                                                     */
   5 /*  Xavier Leroy and Pascal Cuoq, 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 4765 2002-04-30 15:00:48Z xleroy $ */
  15
  16 #include <mlvalues.h>
  17 #include "unixsupport.h"
  18
  19 static int shutdown_command_table[] = {
  20   0, 1, 2
  21 };
  22
  23 CAMLprim value unix_shutdown(sock, cmd)
  24      value sock, cmd;
  25 {
  26   if (shutdown(Socket_val(sock),
  27                shutdown_command_table[Int_val(cmd)]) == -1) {
  28     win32_maperr(WSAGetLastError());
  29     uerror("shutdown", Nothing);
  30   }
  31   return Val_unit;
  32 }