/***
*freopen.c - close a stream and assign it to a new file
*
*	Copyright (c) 1985-1991, Microsoft Corporation. All rights reserved.
*
*Purpose:
*	defines freopen() - close and reopen file, typically used to redirect
*	stdin/out/err/prn/aux.
*
*Revision History:
*	09-02-83  RN	initial version
*	04-13-87  JCR	added const to declarations
*	11-02-87  JCR	Multi-thread support
*	12-11-87  JCR	Added "_LOAD_DS" to declaration
*	05-27-88  PHG	Merged DLL and normal versions
*	06-15-88  JCR	Near reference to _iob[] entries; improve REG variables
*	08-25-88  GJF	Don't use FP_OFF() macro for the 386
*	11-14-88  GJF	_openfile() now takes a file sharing flag, also some
*			cleanup (now specific to the 386)
*	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-19-90  GJF	Made calling type _CALLTYPE1, added #include
*			<cruntime.h> and removed #include <register.h>.
*	07-23-90  SBM	Replaced <assertm.h> by <assert.h>
*	10-02-90  GJF	New-style function declarator.
*	01-22-91  GJF	ANSI naming.
*	03-27-92  DJM	POSIX support.
*
*******************************************************************************/

#include <cruntime.h>
#include <stdio.h>
#include <file2.h>
#include <share.h>
#include <assert.h>
#include <internal.h>
#include <os2dll.h>

/***
*FILE *freopen(filename, mode, stream) - reopen stream as new file
*
*Purpose:
*	Closes the file associated with stream and assigns stream to a new
*	file with current mode.  Usually used to redirect a standard file
*	handle.
*
*Entry:
*	char *filename - new file to open
*	char *mode - new file mode, as in fopen()
*	FILE *stream - stream to close and reassign
*
*Exit:
*	returns stream if successful
*	return NULL if fails
*
*Exceptions:
*
*******************************************************************************/

FILE * _CALLTYPE1 freopen (
	const char *filename,
	const char *mode,
	FILE *str
	)
{
	REG1 FILE *stream;
	FILE *retval;
#ifdef MTHREAD
	int index;
#endif

	assert(filename != NULL);
	assert(*filename != '\0');
	assert(mode != NULL);
	assert(str != NULL);

	/* Init stream pointer */
	stream = str;

#ifdef MTHREAD
	index = _iob_index(stream);
#endif

	_lock_str(index);

	if (inuse(stream) && _fclose_lk(stream) == EOF) {
		retval = NULL;
		goto done;
	}

	stream->_ptr = stream->_base = NULL;
	stream->_cnt = stream->_flag = 0;
#ifdef _POSIX_
	retval = _openfile(filename,mode,stream);
#else
	retval = _openfile(filename,mode,_SH_DENYNO,stream);
#endif

/* Common return code */

done:
	_unlock_str(index);
	return(retval);
}