/***
*closeall.c - close all open files
*
*	Copyright (c) 1985-1995, Microsoft Corporation. All rights reserved.
*
*Purpose:
*	defines _fcloseall() - closes all open files except stdin, stdout
*	stdprn, stderr, and stdaux.
*
*Revision History:
*	09-19-83  RN	initial version
*	06-26-87  JCR	Stream search starts with _iob[3] for OS/2
*	11-02-87  JCR	Multi-thread support
*	11-08-87  SKS	Changed PROTMODE to OS2
*	12-11-87  JCR	Added "_LOAD_DS" to declaration
*	05-31-88  PHG	Merged DLL and normal versions
*	06-14-88  JCR	Use near pointer to reference _iob[] entries
*	08-24-88  GJF	Added check that OS2 is defined whenever M_I386 is.
*	08-17-89  GJF	Clean up, now specific to OS/2 2.0 (i.e., 386 flat
*			model). Also fixed copyright and indents.
*	02-15-90  GJF	Fixed copyright
*	03-16-90  GJF	Made calling type _CALLTYPE1, added #include
*			<cruntime.h> and removed #include <register.h>.
*	10-03-90  GJF	New-style function declarator.
*	01-21-91  GJF	ANSI naming.
*	03-25-92  DJM	POSIX support
*	04-06-93  SKS	Replace _CRTAPI* with __cdecl
*	03-06-95  GJF	Converted to walk the __piob[] table (rather than
*			the _iob[] table).
*
*******************************************************************************/

#include <cruntime.h>
#ifdef	_WIN32
#include <windows.h>
#endif
#include <stdio.h>
#include <file2.h>
#include <internal.h>
#include <malloc.h>
#include <mtdll.h>
#include <dbgint.h>


/***
*int _fcloseall() - close all open streams
*
*Purpose:
*	Closes all streams currently open except for stdin/out/err/aux/prn.
*	tmpfile() files are among those closed.
*
*Entry:
*	None.
*
*Exit:
*	returns number of streams closed if OK
*	returns EOF if fails.
*
*Exceptions:
*
*******************************************************************************/

int __cdecl _fcloseall (
	void
	)
{
	REG2 int count = 0;

#ifdef	_WIN32

	REG1 i;

	_mlock(_IOB_SCAN_LOCK);

	for ( i = 3 ; i < _nstream ; i++ ) {

	    if ( __piob[i] != NULL ) {
		/*
		 * if the stream is in use, close it
		 */
		if ( inuse( (FILE *)__piob[i] ) && (fclose( __piob[i] ) !=
		     EOF) )
			count++;

		/*
		 * if stream is part of a _FILEX we allocated, free it.
		 */
		if ( i >= _IOB_ENTRIES ) {

#if	defined(_MT) && !defined(DLL_FOR_WIN32S)
		    DeleteCriticalSection( &(((_FILEX *)__piob[i])->lock) );
#endif
		    _free_crt( __piob[i] );
		    __piob[i] = NULL;
		}
	    }
	}

	_munlock(_IOB_SCAN_LOCK);

#else	/* ndef _WIN32 */
#if	defined(_M_MPPC) || defined(_M_M68K)

	REG1 FILE *stream = &_iob[3];

	for (; stream <= _lastiob; stream++)
		if (fclose(stream) != EOF)
			count++;

#endif	/* defined(_M_MPPC) || defined(_M_M68K) */
#endif	/* _WIN32 */

	return(count);
}