From a0c8d7373311facda78d250751203371cc0487b2 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Wed, 4 Sep 1996 14:17:43 +0000 Subject: Merge du stage de Pascal Cuoq git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@952 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/open.c | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 otherlibs/win32unix/open.c (limited to 'otherlibs/win32unix/open.c') diff --git a/otherlibs/win32unix/open.c b/otherlibs/win32unix/open.c new file mode 100644 index 000000000..98f622bd3 --- /dev/null +++ b/otherlibs/win32unix/open.c @@ -0,0 +1,37 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 1996 Institut National de Recherche en Informatique et */ +/* Automatique. Distributed only by permission. */ +/* */ +/***********************************************************************/ + +/* $Id$ */ + +#include +#include +#include "unixwin.h" +#include + +static int open_flag_table[] = { + O_RDONLY, O_WRONLY, O_RDWR, 0, O_APPEND, O_CREAT, O_TRUNC, O_EXCL, 0, 0 +}; + +static int open_text_flag_table[] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 +}; + +value unix_open(path, flags, perm) /* ML */ + value path, flags, perm; +{ + int fl, ret; + + fl = convert_flag_list(flags, open_flag_table); + if (convert_flag_list(flags, open_text_flag_table) == 0) fl |= O_BINARY; + ret = open(String_val(path), fl, Int_val(perm)); + if (ret == -1) uerror("open", path); + return Val_int(ret); +} -- cgit v1.2.3-70-g09d2