l4/pkg/ocaml/contrib/otherlibs/unix/mkfifo.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: mkfifo.c 6824 2005-03-24 17:20:54Z doligez $ */
  15
  16 #include <sys/types.h>
  17 #include <sys/stat.h>
  18 #include <fail.h>
  19 #include <mlvalues.h>
  20 #include "unixsupport.h"
  21
  22 #ifdef HAS_MKFIFO
  23
  24 CAMLprim value unix_mkfifo(value path, value mode)
  25 {
  26   if (mkfifo(String_val(path), Int_val(mode)) == -1)
  27     uerror("mkfifo", path);
  28   return Val_unit;
  29 }
  30
  31 #else
  32
  33 #include <sys/types.h>
  34 #include <sys/stat.h>
  35
  36 #ifdef S_IFIFO
  37
  38 CAMLprim value unix_mkfifo(value path, value mode)
  39 {
  40   if (mknod(String_val(path), (Int_val(mode) & 07777) | S_IFIFO, 0) == -1)
  41     uerror("mkfifo", path);
  42   return Val_unit;
  43 }
  44
  45 #else
  46
  47 CAMLprim value unix_mkfifo(value path, value mode)
  48 {
  49   invalid_argument("mkfifo not implemented");
  50 }
  51
  52 #endif
  53 #endif