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.
135 lines
3.4 KiB
135 lines
3.4 KiB
/***
|
|
*close.c - close file handle for Windows NT
|
|
*
|
|
* Copyright (c) 1989-1993, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* defines _close() - close a file handle
|
|
*
|
|
*Revision History:
|
|
* 06-09-89 PHG Module created, based on asm version
|
|
* 03-12-90 GJF Made calling type _CALLTYPE2 (for now), added #include
|
|
* <cruntime.h> and fixed the copyright. Also, cleaned up
|
|
* the formatting a bit.
|
|
* 04-03-90 GJF Now CALLTYPE1.
|
|
* 07-24-90 SBM Removed '32' from API names
|
|
* 08-14-90 SBM Compiles cleanly with -W3
|
|
* 09-28-90 GJF New-style function declarator.
|
|
* 12-04-90 GJF Appended Win32 version onto the source with #ifdef-s.
|
|
* It is enough different that there is little point in
|
|
* trying to more closely merge the two versions.
|
|
* 12-04-90 SRW Changed to include <oscalls.h> instead of <doscalls.h>
|
|
* 12-06-90 SRW Changed to use _osfile and _osfhnd instead of _osfinfo
|
|
* 01-16-91 GJF ANSI naming.
|
|
* 02-07-91 SRW Changed to call _get_osfhandle [_WIN32_]
|
|
* 04-09-91 PNT Added _MAC_ conditional
|
|
* 07-17-91 GJF Syntax error in multi-thread build [_WIN32_]
|
|
* 02-13-92 GJF Replaced _nfile by _nhandle for Win32.
|
|
* 02-21-92 GJF Removed bogus _unlock_fh() call.
|
|
* 03-22-93 GJF Check for STDOUT and STDERR being mapped to the same
|
|
* OS file handle. Also, purged Cruiser support.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#include <oscalls.h>
|
|
#include <io.h>
|
|
#include <os2dll.h>
|
|
#include <errno.h>
|
|
#include <stdlib.h>
|
|
#include <internal.h>
|
|
|
|
/***
|
|
*int _close(fh) - close a file handle
|
|
*
|
|
*Purpose:
|
|
* Closes the file associated with the file handle fh.
|
|
*
|
|
*Entry:
|
|
* int fh - file handle to close
|
|
*
|
|
*Exit:
|
|
* returns 0 if successful, -1 (and sets errno) if fails
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef MTHREAD
|
|
|
|
/* define normal version that locks/unlocks, validates fh */
|
|
|
|
int _CRTAPI1 _close (
|
|
int fh
|
|
)
|
|
{
|
|
int r; /* return value */
|
|
|
|
/* validate file handle */
|
|
if ( (unsigned)fh >= (unsigned)_nhandle ) {
|
|
/* bad file handle, set errno and abort */
|
|
errno = EBADF;
|
|
_doserrno = 0; /* no OS/2 error */
|
|
return -1;
|
|
}
|
|
|
|
_lock_fh(fh); /* lock file */
|
|
r = _close_lk(fh);
|
|
_unlock_fh(fh); /* unlock the file */
|
|
|
|
return r;
|
|
}
|
|
|
|
/* now define version that doesn't lock/unlock, validate fh */
|
|
int _CRTAPI1 _close_lk (
|
|
int fh
|
|
)
|
|
{
|
|
DWORD dosretval;
|
|
|
|
#else
|
|
|
|
/* now define normal version */
|
|
int _CRTAPI1 _close (
|
|
int fh
|
|
)
|
|
{
|
|
DWORD dosretval;
|
|
|
|
/* validate file handle */
|
|
if ( (unsigned)fh >= (unsigned)_nhandle ) {
|
|
/* bad file handle, set errno and abort */
|
|
errno = EBADF;
|
|
_doserrno = 0; /* no OS/2 error */
|
|
return -1;
|
|
}
|
|
#endif
|
|
/*
|
|
* Close the underlying OS file handle. Note that if fh is STDOUT
|
|
* or STDERR, and if STDOUT and STDERR are mapped to the same OS
|
|
* file handle, the close is skipped (without error). STDOUT and
|
|
* STDERR are the only handles for which this support is provided.
|
|
* Other handles are mapped to the same OS file handle only at the
|
|
* programmer's risk.
|
|
*/
|
|
if ( ( ((fh == 1) || (fh == 2)) &&
|
|
(_get_osfhandle(1) == _get_osfhandle(2)) ) ||
|
|
CloseHandle( (HANDLE)_get_osfhandle(fh) ) )
|
|
{
|
|
|
|
dosretval = 0L;
|
|
}
|
|
else
|
|
dosretval = GetLastError();
|
|
|
|
_free_osfhnd(fh);
|
|
|
|
if (dosretval) {
|
|
/* OS error */
|
|
_dosmaperr(dosretval);
|
|
return -1;
|
|
}
|
|
_osfile[fh] = 0; /* clear file flags */
|
|
|
|
return 0; /* good return */
|
|
}
|