1 /**************************************************************************/ 2 /* */ 3 /* OCaml */ 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. */ 9 /* */ 10 /* All rights reserved. This file is distributed under the terms of */ 11 /* the GNU Lesser General Public License version 2.1, with the */ 12 /* special exception on linking described in the file LICENSE. */ 13 /* */ 14 /**************************************************************************/ 15 16 #include <caml/mlvalues.h> 17 #include "unixsupport.h" 18 unix_mkdir(path,perm)19CAMLprim value unix_mkdir(path, perm) 20 value path, perm; 21 { 22 caml_unix_check_path(path, "mkdir"); 23 if (_mkdir(String_val(path)) == -1) uerror("mkdir", path); 24 return Val_unit; 25 } 26