1/* fclose replacement.
2   Copyright (C) 2008, 2009, 2010 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#include <config.h>
18
19/* Specification.  */
20#include <stdio.h>
21
22#include <errno.h>
23#include <unistd.h>
24
25/* Override fclose() to call the overridden close().  */
26
27int
28rpl_fclose (FILE *fp)
29#undef fclose
30{
31  int saved_errno = 0;
32
33  if (fflush (fp))
34    saved_errno = errno;
35
36  if (close (fileno (fp)) < 0 && saved_errno == 0)
37    saved_errno = errno;
38
39  fclose (fp); /* will fail with errno = EBADF */
40
41  if (saved_errno != 0)
42    {
43      errno = saved_errno;
44      return EOF;
45    }
46  return 0;
47}
48