git.oblomov.eu Git - mplib/blob - src/texk/kpathsea/xstat.c

   1 /* xstat.c: stat and (maybe) lstat with error checking.
   2
   3    Copyright 1992, 1993, 2008 Karl Berry.
   4    Copyright 2005 Olaf Weber.
   5
   6    This library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    This library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public License
  17    along with this library; if not, see <http://www.gnu.org/licenses/>.  */
  18
  19 #include <kpathsea/config.h>
  20
  21 #include <kpathsea/xstat.h>
  22
  23
  24 struct stat
  25 xstat P1C(const_string, path)
  26 {
  27     struct stat s;
  28
  29     if (stat(path, &s) != 0)
  30         FATAL_PERROR(path);
  31
  32     return s;
  33 }
  34
  35
  36 /* If we don't have symbolic links, lstat is the same as stat, and
  37    a #define is made in the include file.  */
  38
  39 #ifdef S_ISLNK
  40 /*
  41 // We declared lstat to prevent a warning during development.  This
  42 // turns out to be more trouble than it is worth.
  43 // extern int lstat ();
  44 */
  45 struct stat
  46 xlstat P1C(const_string, path)
  47 {
  48     struct stat s;
  49
  50     if (lstat(path, &s) != 0)
  51         FATAL_PERROR(path);
  52
  53     return s;
  54 }
  55 #endif