otherlibs/win32unix/dup.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 <mlvalues.h>
  17 #include "unixsupport.h"
  18
  19 CAMLprim value unix_dup(value fd)
  20 {
  21   HANDLE newh;
  22   value newfd;
  23   int kind = Descr_kind_val(fd);
  24   if (! DuplicateHandle(GetCurrentProcess(), Handle_val(fd),
  25                         GetCurrentProcess(), &newh,
  26                         0L, TRUE, DUPLICATE_SAME_ACCESS)) {
  27     win32_maperr(GetLastError());
  28     return -1;
  29   }
  30   newfd = win_alloc_handle(newh);
  31   Descr_kind_val(newfd) = kind;
  32   return newfd;
  33 }
  34