lib/open.c

   1 /* Open a descriptor to a file.
   2    Copyright (C) 2007-2009 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 3 of the License, or
   7    (at your option) 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
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 /* Written by Bruno Haible <bruno@clisp.org>, 2007.  */
  18
  19 #include <config.h>
  20
  21 /* Get the original definition of open.  It might be defined as a macro.  */
  22 #define __need_system_fcntl_h
  23 #include <fcntl.h>
  24 #undef __need_system_fcntl_h
  25 #include <sys/types.h>
  26
  27 static inline int
  28 orig_open (const char *filename, int flags, mode_t mode)
  29 {
  30   return open (filename, flags, mode);
  31 }
  32
  33 /* Specification.  */
  34 #include <fcntl.h>
  35
  36 #include <errno.h>
  37 #include <stdarg.h>
  38 #include <string.h>
  39 #include <sys/types.h>
  40 #include <sys/stat.h>
  41
  42 int
  43 open (const char *filename, int flags, ...)
  44 {
  45   mode_t mode;
  46   int fd;
  47
  48   mode = 0;
  49   if (flags & O_CREAT)
  50     {
  51       va_list arg;
  52       va_start (arg, flags);
  53
  54       /* We have to use PROMOTED_MODE_T instead of mode_t, otherwise GCC 4
  55          creates crashing code when 'mode_t' is smaller than 'int'.  */
  56       mode = va_arg (arg, PROMOTED_MODE_T);
  57
  58       va_end (arg);
  59     }
  60
  61 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
  62   if (strcmp (filename, "/dev/null") == 0)
  63     filename = "NUL";
  64 #endif
  65
  66 #if OPEN_TRAILING_SLASH_BUG
  67   /* If the filename ends in a slash and one of O_CREAT, O_WRONLY, O_RDWR
  68      is specified, then fail.
  69      Rationale: POSIX <http://www.opengroup.org/susv3/basedefs/xbd_chap04.html>
  70      says that
  71        "A pathname that contains at least one non-slash character and that
  72         ends with one or more trailing slashes shall be resolved as if a
  73         single dot character ( '.' ) were appended to the pathname."
  74      and
  75        "The special filename dot shall refer to the directory specified by
  76         its predecessor."
  77      If the named file already exists as a directory, then
  78        - if O_CREAT is specified, open() must fail because of the semantics
  79          of O_CREAT,
  80        - if O_WRONLY or O_RDWR is specified, open() must fail because POSIX
  81          <http://www.opengroup.org/susv3/functions/open.html> says that it
  82          fails with errno = EISDIR in this case.
  83      If the named file does not exist or does not name a directory, then
  84        - if O_CREAT is specified, open() must fail since open() cannot create
  85          directories,
  86        - if O_WRONLY or O_RDWR is specified, open() must fail because the
  87          file does not contain a '.' directory.  */
  88   if (flags & (O_CREAT | O_WRONLY | O_RDWR))
  89     {
  90       size_t len = strlen (filename);
  91       if (len > 0 && filename[len - 1] == '/')
  92         {
  93           errno = EISDIR;
  94           return -1;
  95         }
  96     }
  97 #endif
  98
  99   fd = orig_open (filename, flags, mode);
 100
 101 #if OPEN_TRAILING_SLASH_BUG
 102   /* If the filename ends in a slash and fd does not refer to a directory,
 103      then fail.
 104      Rationale: POSIX <http://www.opengroup.org/susv3/basedefs/xbd_chap04.html>
 105      says that
 106        "A pathname that contains at least one non-slash character and that
 107         ends with one or more trailing slashes shall be resolved as if a
 108         single dot character ( '.' ) were appended to the pathname."
 109      and
 110        "The special filename dot shall refer to the directory specified by
 111         its predecessor."
 112      If the named file without the slash is not a directory, open() must fail
 113      with ENOTDIR.  */
 114   if (fd >= 0)
 115     {
 116       size_t len = strlen (filename);
 117       if (len > 0 && filename[len - 1] == '/')
 118         {
 119           struct stat statbuf;
 120
 121           if (fstat (fd, &statbuf) >= 0 && !S_ISDIR (statbuf.st_mode))
 122             {
 123               close (fd);
 124               errno = ENOTDIR;
 125               return -1;
 126             }
 127         }
 128     }
 129 #endif
 130
 131 #ifdef FCHDIR_REPLACEMENT
 132   if (fd >= 0)
 133     _gl_register_fd (fd, filename);
 134 #endif
 135
 136   return fd;
 137 }