lib/freopen.c

   1 /* Open a stream to a file.
   2    Copyright (C) 2007-2016 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 /* If the user's config.h happens to include <stdio.h>, let it include only
  20    the system's <stdio.h> here, so that orig_freopen doesn't recurse to
  21    rpl_freopen.  */
  22 #define __need_FILE
  23 #include <config.h>
  24
  25 /* Get the original definition of freopen.  It might be defined as a macro.  */
  26 #include <stdio.h>
  27 #undef __need_FILE
  28
  29 #include <errno.h>
  30
  31 static FILE *
  32 orig_freopen (const char *filename, const char *mode, FILE *stream)
  33 {
  34   return freopen (filename, mode, stream);
  35 }
  36
  37 /* Specification.  */
  38 /* Write "stdio.h" here, not <stdio.h>, otherwise OSF/1 5.1 DTK cc eliminates
  39    this include because of the preliminary #include <stdio.h> above.  */
  40 #include "stdio.h"
  41
  42 #include <string.h>
  43
  44 FILE *
  45 rpl_freopen (const char *filename, const char *mode, FILE *stream)
  46 {
  47   FILE *result;
  48
  49 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
  50   if (filename != NULL && strcmp (filename, "/dev/null") == 0)
  51     filename = "NUL";
  52 #endif
  53
  54   /* Clear errno to check the success of freopen() with it */
  55   errno = 0;
  56
  57   result = orig_freopen (filename, mode, stream);
  58
  59 #ifdef __KLIBC__
  60   /* On OS/2 kLIBC, freopen() returns NULL even if it is successful
  61      if filename is NULL. */
  62   if (!filename && !result && !errno)
  63     result = stream;
  64 #endif
  65
  66   return result;
  67 }