1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
/***
*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 */
}
|
