1: /* Copyright (C) 1993,1995,1997-2004,2005 Free Software Foundation, Inc.
    2:    This file is part of the GNU C Library.
    3: 
    4:    The GNU C Library is free software; you can redistribute it and/or
    5:    modify it under the terms of the GNU Lesser General Public
    6:    License as published by the Free Software Foundation; either
    7:    version 2.1 of the License, or (at your option) any later version.
    8: 
    9:    The GNU C Library 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 GNU
   12:    Lesser General Public License for more details.
   13: 
   14:    You should have received a copy of the GNU Lesser General Public
   15:    License along with the GNU C Library; if not, write to the Free
   16:    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   17:    02111-1307 USA.
   18: 
   19:    As a special exception, if you link the code in this file with
   20:    files compiled with a GNU compiler to produce an executable,
   21:    that does not cause the resulting executable to be covered by
   22:    the GNU Lesser General Public License.  This exception does not
   23:    however invalidate any other reasons why the executable file
   24:    might be covered by the GNU Lesser General Public License.
   25:    This exception applies to code released by its copyright holders
   26:    in files containing the exception.  */
   27: 
   28: #include "libioP.h"
   29: #ifdef __STDC__
   30: #include <stdlib.h>
   31: #endif
   32: #if _LIBC
   33: # include "../iconv/gconv_int.h"
   34: # include <shlib-compat.h>
   35: #else
   36: # define SHLIB_COMPAT(a, b, c) 0
   37: # define _IO_new_fclose fclose
   38: #endif
   39: 
   40: int
   41: _IO_new_fclose (fp)
   42:      _IO_FILE *fp;
   43: {
   44:   int status;
   45: 
   46:   CHECK_FILE(fp, EOF);
   47: 
   48: #if SHLIB_COMPAT (libc, GLIBC_2_0, GLIBC_2_1)
   49:   /* We desperately try to help programs which are using streams in a
   50:      strange way and mix old and new functions.  Detect old streams
   51:      here.  */
   52:   if (_IO_vtable_offset (fp) != 0)
   53:     return _IO_old_fclose (fp);
   54: #endif
   55: 
   56:   /* First unlink the stream.  */
   57:   if (fp->_IO_file_flags & _IO_IS_FILEBUF)
   58:     INTUSE(_IO_un_link) ((struct _IO_FILE_plus *) fp);
   59: 
   60:   _IO_acquire_lock (fp);
   61:   if (fp->_IO_file_flags & _IO_IS_FILEBUF)
   62:     status = INTUSE(_IO_file_close_it) (fp);
   63:   else
   64:     status = fp->_flags & _IO_ERR_SEEN ? -1 : 0;
   65:   _IO_release_lock (fp);
   66:   _IO_FINISH (fp);
   67:   if (fp->_mode > 0)
   68:     {
   69: #if _LIBC
   70:       /* This stream has a wide orientation.  This means we have to free
   71:          the conversion functions.  */
   72:       struct _IO_codecvt *cc = fp->_codecvt;
   73: 
   74:       __libc_lock_lock (__gconv_lock);
   75:       __gconv_release_step (cc->__cd_in.__cd.__steps);
   76:       __gconv_release_step (cc->__cd_out.__cd.__steps);
   77:       __libc_lock_unlock (__gconv_lock);
   78: #endif
   79:     }
   80:   else
   81:     {
   82:       if (_IO_have_backup (fp))
   83:         INTUSE(_IO_free_backup_area) (fp);
   84:     }
   85:   if (fp != _IO_stdin && fp != _IO_stdout && fp != _IO_stderr)
   86:     {
   87:       fp->_IO_file_flags = 0;
   88:       free(fp);
   89:     }
   90: 
   91:   return status;
   92: }
   93: 
   94: #ifdef _LIBC
   95: versioned_symbol (libc, _IO_new_fclose, _IO_fclose, GLIBC_2_1);
   96: strong_alias (_IO_new_fclose, __new_fclose)
   97: versioned_symbol (libc, __new_fclose, fclose, GLIBC_2_1);
   98: #endif