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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
|
/***
*_filbuf.c - fill buffer and get character
*
* Copyright (c) 1985-1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
* defines _filbuf() - fill buffer and read first character, allocate
* buffer if there is none. Used from getc().
* defines _filwbuf() - fill buffer and read first wide character, allocate
* buffer if there is none. Used from getwc().
*
*Revision History:
* 09-01-83 RN initial version
* 06-26-85 TC added code to handle variable length buffers
* 04-16-87 JCR added _IOUNGETC support
* 08-04-87 JCR added _getbuff routine
* 09-28-87 JCR Corrected _iob2 indexing (now uses _iob_index() macro).
* 11-06-87 JCR Multi-thread support; also, split _getbuf() off
* 12-11-87 JCR Added "_LOAD_DS" to declaration
* 01-11-88 JCR Merged mthread version into normal code
* 01-13-88 SKS Changed bogus "_fileno_lk" to "fileno"
* 03-04-88 JCR Read() return value must be considered unsigned, not
* signed
* 06-06-88 JCR Optimized _iob2 references
* 06-13-88 JCR Use near pointer to reference _iob[] entries
* 08-25-88 GJF Don't use FP_OFF() macro for the 386
* 06-20-89 PHG Re-activate C version, propogated fixes
* 08-28-89 JCR Removed _NEAR_ for 386
* 02-15-90 GJF _iob[], _iob2[] merge. Also, fixed copyright and
* alignment.
* 03-16-90 GJF Replaced cdecl _LOAD_DS with _CALLTYPE1, added #include
* <cruntime.h> and removed #include <register.h>. Also,
* removed some leftover 16-bit support.
* 03-27-90 GJF Added #include <io.h>.
* 07-23-90 SBM Replaced <assertm.h> by <assert.h>
* 10-03-90 GJF New-style function declarator.
* 01-22-91 GJF ANSI naming.
* 03-27-92 DJM POSIX support.
* 08-26-92 GJF Include unistd.h for POSIX build.
* 04-26-93 CFW Wide char enable.
* 05-06-93 CFW Optimize wide char conversion.
*
*******************************************************************************/
#include <cruntime.h>
#include <stdio.h>
#include <file2.h>
#include <io.h>
#include <assert.h>
#include <malloc.h>
#include <internal.h>
#ifdef _POSIX_
#include <unistd.h>
#include <errno.h>
#else
#include <msdos.h>
#endif
#ifdef MTHREAD
#include <os2dll.h>
#endif
#include <wchar.h>
#include <tchar.h>
#ifndef _UNICODE
/***
*int _filbuf(stream) - fill buffer and get first character
*
*Purpose:
* get a buffer if the file doesn't have one, read into it, return first
* char. try to get a buffer, if a user buffer is not assigned. called
* only from getc; intended for use only within library. assume no input
* stream is to remain unbuffered when memory is available unless it is
* marked _IONBF. at worst, give it a single char buffer. the need for a
* buffer, no matter how small, becomes evident when we consider the
* ungetc's necessary in scanf
*
* [NOTE: Multi-thread - _filbuf() assumes that the caller has aquired
* the stream lock, if needed.]
*
*Entry:
* FILE *stream - stream to read from
*
*Exit:
* returns first character from buffer (next character to be read)
* returns EOF if the FILE is actually a string, or not open for reading,
* or if open for writing or if no more chars to read.
* all fields in FILE structure may be changed except _file.
*
*Exceptions:
*
*******************************************************************************/
int _CRTAPI1 _filbuf (
FILE *str
)
#else /* _UNICODE */
/***
*int _filwbuf(stream) - fill buffer and get first wide character
*
*Purpose:
* get a buffer if the file doesn't have one, read into it, return first
* char. try to get a buffer, if a user buffer is not assigned. called
* only from getc; intended for use only within library. assume no input
* stream is to remain unbuffered when memory is available unless it is
* marked _IONBF. at worst, give it a single char buffer. the need for a
* buffer, no matter how small, becomes evident when we consider the
* ungetc's necessary in scanf
*
* [NOTE: Multi-thread - _filwbuf() assumes that the caller has aquired
* the stream lock, if needed.]
*
*Entry:
* FILE *stream - stream to read from
*
*Exit:
* returns first wide character from buffer (next character to be read)
* returns WEOF if the FILE is actually a string, or not open for reading,
* or if open for writing or if no more chars to read.
* all fields in FILE structure may be changed except _file.
*
*Exceptions:
*
*******************************************************************************/
int _CRTAPI1 _filwbuf (
FILE *str
)
#endif /* _UNICODE */
{
#if defined _NTSUBSET_ && !defined _POSIX_
return(_TEOF);
#else
REG1 FILE *stream;
assert(str != NULL);
/* Init pointer to _iob2 entry. */
stream = str;
if (!inuse(stream) || stream->_flag & _IOSTRG)
return(_TEOF);
if (stream->_flag & _IOWRT) {
#ifdef _POSIX_
errno = EBADF;
#endif
stream->_flag |= _IOERR;
return(_TEOF);
}
stream->_flag |= _IOREAD;
/* Get a buffer, if necessary. */
if (!anybuf(stream))
_getbuf(stream);
else
stream->_ptr = stream->_base;
#ifdef _POSIX_
stream->_cnt = read(fileno(stream), stream->_base, stream->_bufsiz);
#else
stream->_cnt = _read(_fileno(stream), stream->_base, stream->_bufsiz);
#endif
#ifndef _UNICODE
if ((stream->_cnt == 0) || (stream->_cnt == -1)) {
#else /* _UNICODE */
if ((stream->_cnt == 0) || (stream->_cnt == 1) || stream->_cnt == -1) {
#endif /* _UNICODE */
stream->_flag |= stream->_cnt ? _IOERR : _IOEOF;
stream->_cnt = 0;
return(_TEOF);
}
#ifndef _POSIX_
if ( !(stream->_flag & (_IOWRT|_IORW)) &&
((_osfile[_fileno(stream)] & (FTEXT|FEOFLAG)) == (FTEXT|FEOFLAG)) )
stream->_flag |= _IOCTRLZ;
#endif
#ifndef _UNICODE
stream->_cnt--;
return(0xff & *stream->_ptr++);
#else /* _UNICODE */
stream->_cnt -= sizeof(wchar_t);
return (0xffff & *((wchar_t *)(stream->_ptr))++);
#endif /* _UNICODE */
#endif /* _NTSUBSET */
}
|