New module 'open'.
[pspp] / lib / open.c
1 /* Open a descriptor to a file.
2    Copyright (C) 2007 Free Software Foundation, Inc.
3
4    This program is free software; you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 2, or (at your option)
7    any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License along
15    with this program; if not, write to the Free Software Foundation,
16    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
17
18 /* Written by Bruno Haible <bruno@clisp.org>, 2007.  */
19
20 #include <config.h>
21
22 /* Specification.  */
23 #include <fcntl.h>
24
25 /* If the fchdir replacement is used, open() is defined in fchdir.c.  */
26 #ifndef FCHDIR_REPLACEMENT
27
28 # include <stdarg.h>
29 # include <string.h>
30 # include <sys/types.h>
31 # include <sys/stat.h>
32
33 int
34 open (const char *filename, int flags, ...)
35 # undef open
36 {
37   mode_t mode;
38
39   mode = 0;
40   if (flags & O_CREAT)
41     {
42       va_list arg;
43       va_start (arg, flags);
44
45       /* If mode_t is narrower than int, use the promoted type (int),
46          not mode_t.  Use sizeof to guess whether mode_t is narrower;
47          we don't know of any practical counterexamples.  */
48       mode = (sizeof (mode_t) < sizeof (int)
49               ? va_arg (arg, int)
50               : va_arg (arg, mode_t));
51
52       va_end (arg);
53     }
54
55 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
56   if (strcmp (filename, "/dev/null") == 0)
57     filename = "NUL";
58 # endif
59
60   return open (filename, flags, mode);
61 }
62 #endif