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
|
/***
*fputwc.c - write a wide character to an output stream
*
* Copyright (c) 1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
* defines fputwc() - writes a wide character to a stream
*
*Revision History:
* 04-26-93 CFW Module created.
* 04-30-93 CFW Bring wide char support from fputc.c.
* 05-03-93 CFW Add putwc function.
* 05-10-93 CFW Optimize, fix error handling.
* 06-02-93 CFW Wide get/put use wint_t.
* 07-16-93 SRW ALPHA Merge
*
*******************************************************************************/
#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 fputwc and _putwc_lk */
/***
*wint_t fputwc(ch, stream) - write a wide character to a stream
*
*Purpose:
* Writes a wide character to a stream. Function version of putwc().
*
*Entry:
* wint_t ch - wide character to write
* FILE *stream - stream to write to
*
*Exit:
* returns the wide character if successful
* returns WEOF if fails
*
*Exceptions:
*
*******************************************************************************/
wint_t _CRTAPI1 fputwc (
wint_t ch,
FILE *str
)
{
REG1 FILE *stream;
REG2 wint_t retval;
int index;
assert(str != NULL);
/* Init stream pointer */
stream = str;
index = _iob_index(stream);
_lock_str(index);
retval = _putwc_lk(ch,stream);
_unlock_str(index);
return(retval);
}
/***
*_putwc_lk() - putwc() core routine (locked version)
*
*Purpose:
* Core putwc() routine; assumes stream is already locked.
*
* [See putwc() above for more info.]
*
*Entry: [See putwc()]
*
*Exit: [See putwc()]
*
*Exceptions:
*
*******************************************************************************/
wint_t _CRTAPI1 _putwc_lk (
wint_t ch,
FILE *str
)
{
#else /* non multi-thread; just define fputwc */
wint_t _CRTAPI1 fputwc (
wint_t ch,
FILE *str
)
{
#endif /* rejoin common code */
#ifndef _NTSUBSET_
if (!(str->_flag & _IOSTRG) && (_osfile[_fileno(str)] & FTEXT))
{
int size, defused;
char mbc[4];
/* text (multi-byte) mode */
size = WideCharToMultiByte(_lc_codepage,
WC_COMPOSITECHECK | WC_SEPCHARS,
(wchar_t *)&ch,
1,
mbc,
MB_CUR_MAX,
NULL,
&defused);
if ( (size == 0) || defused )
{
/*
* Conversion failed! Set errno and return
* failure.
*/
errno = EILSEQ;
return WEOF;
}
else if ( size == 1 )
{
if ( _putc_lk(mbc[0], str) == EOF )
return WEOF;
return (wint_t)(0xffff & ch);
}
else { /* size == 2 */
if ( (_putc_lk(mbc[0], str) == EOF) ||
(_putc_lk(mbc[1], str) == EOF) )
return WEOF;
return (wint_t)(0xffff & ch);
}
}
#endif
/* binary (Unicode) mode */
if ( (str->_cnt -= sizeof(wchar_t)) >= 0 )
return (wint_t) (0xffff & (*((wchar_t *)(str->_ptr))++ = (wchar_t)ch));
else
return _flswbuf(ch, str);
}
#undef putwc
wint_t _CRTAPI1 putwc (
wint_t ch,
FILE *str
)
{
return fputwc(ch, str);
}
|
