mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
147 lines
3.4 KiB
147 lines
3.4 KiB
/***
|
|
*stream.c - find a stream not in use
|
|
*
|
|
* Copyright (c) 1985-1995, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* defines _getstream() - find a stream not in use
|
|
*
|
|
*Revision History:
|
|
* 09-02-83 RN initial version
|
|
* 11-01-87 JCR Multi-thread support
|
|
* 05-24-88 PHG Merged DLL and normal versions
|
|
* 06-10-88 JCR Use near pointer to reference _iob[] entries
|
|
* 08-17-89 GJF Removed _NEAR_, fixed copyright and indenting.
|
|
* 02-16-90 GJF Fixed copyright
|
|
* 03-19-90 GJF Made calling type _CALLTYPE1, added #include
|
|
* <cruntime.h> and removed #include <register.h>.
|
|
* 10-03-90 GJF New-style function declarator.
|
|
* 12-31-91 GJF Improved multi-thread lock usage [_WIN32_].
|
|
* 04-06-93 SKS Replace _CRTAPI* with __cdecl
|
|
* 09-06-94 CFW Replace MTHREAD with _MT.
|
|
* 03-07-95 GJF Changes to manage streams via __piob[], rather than
|
|
* _iob[].
|
|
* 05-12-95 CFW Bug fix: set _tmpfname field to NULL.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#ifdef _WIN32
|
|
#include <windows.h>
|
|
#endif
|
|
#include <malloc.h>
|
|
#include <stdio.h>
|
|
#include <file2.h>
|
|
#include <internal.h>
|
|
#include <mtdll.h>
|
|
#include <dbgint.h>
|
|
|
|
/***
|
|
*FILE *_getstream() - find a stream not in use
|
|
*
|
|
*Purpose:
|
|
* Find a stream not in use and make it available to caller. Intended
|
|
* for use inside library only
|
|
*
|
|
*Entry:
|
|
* None. Scans __piob[]
|
|
*
|
|
*Exit:
|
|
* Returns a pointer to a free stream, or NULL if all are in use. A
|
|
* stream becomes allocated if the caller decided to use it by setting
|
|
* any r, w, r/w mode.
|
|
*
|
|
* [Multi-thread note: If a free stream is found, it is returned in a
|
|
* LOCKED state. It is the caller's responsibility to unlock the stream.]
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
FILE * __cdecl _getstream (
|
|
void
|
|
)
|
|
{
|
|
REG2 FILE *retval = NULL;
|
|
|
|
#ifdef _WIN32
|
|
|
|
REG1 int i;
|
|
|
|
/* Get the iob[] scan lock */
|
|
_mlock(_IOB_SCAN_LOCK);
|
|
|
|
/*
|
|
* Loop through the __piob table looking for a free stream, or the
|
|
* first NULL entry.
|
|
*/
|
|
for ( i = 0 ; i < _nstream ; i++ ) {
|
|
|
|
if ( __piob[i] != NULL ) {
|
|
/*
|
|
* if the stream is not inuse, return it.
|
|
*/
|
|
if ( !inuse( (FILE *)__piob[i] ) ) {
|
|
#ifdef _MT
|
|
_lock_str2(i, __piob[i]);
|
|
|
|
if ( inuse( (FILE *)__piob[i] ) ) {
|
|
_unlock_str2(i, __piob[i]);
|
|
continue;
|
|
}
|
|
#endif
|
|
retval = (FILE *)__piob[i];
|
|
break;
|
|
}
|
|
}
|
|
else {
|
|
/*
|
|
* allocate a new _FILEX, set _piob[i] to it and return a
|
|
* pointer to it.
|
|
*/
|
|
if ( (__piob[i] = _malloc_crt( sizeof(_FILEX) )) != NULL ) {
|
|
|
|
#if defined(_MT) && !defined(DLL_FOR_WIN32S)
|
|
InitializeCriticalSection( &(((_FILEX *)__piob[i])->lock) );
|
|
EnterCriticalSection( &(((_FILEX *)__piob[i])->lock) );
|
|
#endif
|
|
retval = (FILE *)__piob[i];
|
|
}
|
|
|
|
break;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Initialize the return stream.
|
|
*/
|
|
if ( retval != NULL ) {
|
|
retval->_flag = retval->_cnt = 0;
|
|
retval->_tmpfname = retval->_ptr = retval->_base = NULL;
|
|
retval->_file = -1;
|
|
}
|
|
|
|
_munlock(_IOB_SCAN_LOCK);
|
|
|
|
#else /* ndef _WIN32 */
|
|
#if defined(_M_MPPC) || defined(_M_M68K)
|
|
|
|
REG1 FILE *stream = _iob;
|
|
|
|
/* Loop through the _iob table looking for a free stream.*/
|
|
for (; stream <= _lastiob; stream++) {
|
|
|
|
if ( !inuse(stream) ) {
|
|
stream->_flag = stream->_cnt = 0;
|
|
stream->_tmpfname = stream->_ptr = stream->_base = NULL;
|
|
stream->_file = -1;
|
|
retval = stream;
|
|
break;
|
|
}
|
|
}
|
|
|
|
#endif /* defined(_M_MPPC) || defined(_M_M68K) */
|
|
#endif /* _WIN32 */
|
|
|
|
return(retval);
|
|
}
|