exp2l: Work around a NetBSD 10.0/i386 bug.
[gnulib.git] / lib / fopen-safer.c
bloba6446665e0481d6784f3f81f0e8e0914b048dd8f
1 /* Invoke fopen, but avoid some glitches.
3 Copyright (C) 2001, 2004-2006, 2009-2024 Free Software Foundation, Inc.
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation, either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <https://www.gnu.org/licenses/>. */
18 /* Written by Paul Eggert. */
20 #include <config.h>
22 #include "stdio-safer.h"
24 #include <errno.h>
25 #include <unistd.h>
26 #include "unistd-safer.h"
28 /* Like fopen, but do not return stdin, stdout, or stderr. */
30 FILE *
31 fopen_safer (char const *file, char const *mode)
33 FILE *fp = fopen (file, mode);
35 if (fp)
37 int fd = fileno (fp);
39 if (0 <= fd && fd <= STDERR_FILENO)
41 int f = dup_safer (fd);
43 if (f < 0)
45 int e = errno;
46 fclose (fp);
47 errno = e;
48 return NULL;
51 if (fclose (fp) != 0
52 || ! (fp = fdopen (f, mode)))
54 int e = errno;
55 close (f);
56 errno = e;
57 return NULL;
62 return fp;