blob: de7a37af45ab4b56e1d266727352c0170f96cf09 (
plain) (
blame)
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
|
/***
*fgetwc.c - get a wide character from a stream
*
* Copyright (c) 1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
* defines fgetwc() - read a wide character from a stream
*
*Revision History:
* 04-26-93 CFW Module created.
* 04-30-93 CFW Bring wide char support from fgetc.c.
* 05-03-93 CFW Add getwc function.
* 05-10-93 CFW Optimize, fix error handling.
* 06-02-93 CFW Wide get/put use wint_t.
* 09-14-93 CFW Fix EOF cast bug.
* 10-22-93 CFW Test for invalid MB chars using global preset flag.
* 10-28-93 CFW Test for both IOSTRG and TEXT.
*
*******************************************************************************/
#include <cruntime.h>
#include <stdio.h>
#include <assert.h>
#include <file2.h>
#include <internal.h>
#include <os2dll.h>
#include <msdos.h>
#include <errno.h>
#include <wchar.h>
#include <tchar.h>
#include <setlocal.h>
#ifdef MTHREAD /* multi-thread; define both fgetwc and _getwc_lk */
/***
*wint_t fgetwc(stream) - read a wide character from a stream
*
*Purpose:
* reads a wide character from the given stream
*
*Entry:
* FILE *stream - stream to read wide character from
*
*Exit:
* returns the wide character read
* returns WEOF if at end of file or error occurred
*
*Exceptions:
*
*******************************************************************************/
wint_t _CRTAPI1 fgetwc (
REG1 FILE *stream
)
{
wint_t retval;
int index;
assert(stream != NULL);
index = _iob_index(stream);
_lock_str(index);
retval = _getwc_lk(stream);
_unlock_str(index);
return(retval);
}
/***
*_getwc_lk() - getwc() core routine (locked version)
*
*Purpose:
* Core getwc() routine; assumes stream is already locked.
*
* [See getwc() above for more info.]
*
*Entry: [See getwc()]
*
*Exit: [See getwc()]
*
*Exceptions:
*
*******************************************************************************/
wint_t _CRTAPI1 _getwc_lk (
REG1 FILE *stream
)
{
#else /* non multi-thread; just define fgetwc */
wint_t _CRTAPI1 fgetwc (
REG1 FILE *stream
)
{
#endif /* rejoin common code */
#ifndef _NTSUBSET_
if (!(stream->_flag & _IOSTRG) && (_osfile[_fileno(stream)] & FTEXT))
{
int size = 1;
int ch;
char mbc[4];
wchar_t wch;
/* text (multi-byte) mode */
if ((ch = _getc_lk(stream)) == EOF)
return WEOF;
mbc[0] = (char)ch;
if (isleadbyte((unsigned char)mbc[0]))
{
if ((ch = _getc_lk(stream)) == EOF)
{
ungetc(mbc[0], stream);
return WEOF;
}
mbc[1] = (char)ch;
size = 2;
}
if (MultiByteToWideChar(_lc_codepage,
MB_PRECOMPOSED|__invalid_mb_chars,
mbc,
size,
&wch,
1) == 0)
{
/*
* Conversion failed! Set errno and return
* failure.
*/
errno = EILSEQ;
return WEOF;
}
return wch;
}
#endif
/* binary (Unicode) mode */
if ((stream->_cnt -= sizeof(wchar_t)) >= 0)
return *((wchar_t *)(stream->_ptr))++;
else
return _filwbuf(stream);
}
#undef getwc
wint_t _CRTAPI1 getwc (
FILE *stream
)
{
return fgetwc(stream);
}
|
