|
sl@0
|
1 |
/*
|
|
sl@0
|
2 |
* © Portions copyright (c) 2006-2007 Nokia Corporation. All rights reserved.
|
|
sl@0
|
3 |
*
|
|
sl@0
|
4 |
* Copyright (c) 1999
|
|
sl@0
|
5 |
* Silicon Graphics Computer Systems, Inc.
|
|
sl@0
|
6 |
*
|
|
sl@0
|
7 |
* Copyright (c) 1999
|
|
sl@0
|
8 |
* Boris Fomitchev
|
|
sl@0
|
9 |
*
|
|
sl@0
|
10 |
* This material is provided "as is", with absolutely no warranty expressed
|
|
sl@0
|
11 |
* or implied. Any use is at your own risk.
|
|
sl@0
|
12 |
*
|
|
sl@0
|
13 |
* Permission to use or copy this software for any purpose is hereby granted
|
|
sl@0
|
14 |
* without fee, provided the above notices are retained on all copies.
|
|
sl@0
|
15 |
* Permission to modify the code and to distribute modified code is granted,
|
|
sl@0
|
16 |
* provided the above notices are retained, and a notice that the code was
|
|
sl@0
|
17 |
* modified is included with the above copyright notice.
|
|
sl@0
|
18 |
*
|
|
sl@0
|
19 |
*/
|
|
sl@0
|
20 |
# include "stlport_prefix.h"
|
|
sl@0
|
21 |
|
|
sl@0
|
22 |
#include <hash_map>
|
|
sl@0
|
23 |
#include "locale_impl.h"
|
|
sl@0
|
24 |
#include "c_locale.h"
|
|
sl@0
|
25 |
|
|
sl@0
|
26 |
#include "locale_nonclassic.h"
|
|
sl@0
|
27 |
|
|
sl@0
|
28 |
|
|
sl@0
|
29 |
#include <stl/_codecvt.h>
|
|
sl@0
|
30 |
#include <stl/_collate.h>
|
|
sl@0
|
31 |
#include <stl/_ctype.h>
|
|
sl@0
|
32 |
#include <stl/_monetary.h>
|
|
sl@0
|
33 |
#include <stl/_time_facets.h>
|
|
sl@0
|
34 |
#include <stl/_messages_facets.h>
|
|
sl@0
|
35 |
#include <stl/_istream.h>
|
|
sl@0
|
36 |
#include <stl/_num_get.h>
|
|
sl@0
|
37 |
#include <stl/_num_put.h>
|
|
sl@0
|
38 |
|
|
sl@0
|
39 |
#include <algorithm>
|
|
sl@0
|
40 |
// #include <stl/_ctype.h>
|
|
sl@0
|
41 |
#include <stl/_function.h>
|
|
sl@0
|
42 |
#include "c_locale.h"
|
|
sl@0
|
43 |
|
|
sl@0
|
44 |
_STLP_BEGIN_NAMESPACE
|
|
sl@0
|
45 |
|
|
sl@0
|
46 |
_Locale_ctype* __acquire_ctype(const char* name);
|
|
sl@0
|
47 |
void __release_ctype(_Locale_ctype* cat);
|
|
sl@0
|
48 |
|
|
sl@0
|
49 |
|
|
sl@0
|
50 |
//----------------------------------------------------------------------
|
|
sl@0
|
51 |
// ctype_byname<char>
|
|
sl@0
|
52 |
|
|
sl@0
|
53 |
_STLP_EXP_DECLSPEC ctype_byname<char>::ctype_byname(const char* name, size_t refs)
|
|
sl@0
|
54 |
: ctype<char>(_M_byname_table+1, false, refs),
|
|
sl@0
|
55 |
_M_ctype(__acquire_ctype(name))
|
|
sl@0
|
56 |
{
|
|
sl@0
|
57 |
|
|
sl@0
|
58 |
if (!_M_ctype)
|
|
sl@0
|
59 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
60 |
|
|
sl@0
|
61 |
// We have to do this, instead of just pointer twiddling, because
|
|
sl@0
|
62 |
// ctype_base::mask isn't the same type as _Locale_mask_t.
|
|
sl@0
|
63 |
|
|
sl@0
|
64 |
const _Locale_mask_t* p = _Locale_ctype_table(_M_ctype);
|
|
sl@0
|
65 |
|
|
sl@0
|
66 |
if (!p)
|
|
sl@0
|
67 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
68 |
|
|
sl@0
|
69 |
for (size_t i = 0; i < table_size + 1; ++i) {
|
|
sl@0
|
70 |
_Locale_mask_t __m = p[i];
|
|
sl@0
|
71 |
if (__m & (upper | lower))
|
|
sl@0
|
72 |
__m |= alpha;
|
|
sl@0
|
73 |
_M_byname_table[i] = ctype_base::mask(__m);
|
|
sl@0
|
74 |
}
|
|
sl@0
|
75 |
}
|
|
sl@0
|
76 |
|
|
sl@0
|
77 |
_STLP_EXP_DECLSPEC ctype_byname<char>::~ctype_byname()
|
|
sl@0
|
78 |
{
|
|
sl@0
|
79 |
__release_ctype(_M_ctype);
|
|
sl@0
|
80 |
}
|
|
sl@0
|
81 |
|
|
sl@0
|
82 |
_STLP_EXP_DECLSPEC char ctype_byname<char>::do_toupper(char c) const
|
|
sl@0
|
83 |
{
|
|
sl@0
|
84 |
return _Locale_toupper(_M_ctype, c);
|
|
sl@0
|
85 |
}
|
|
sl@0
|
86 |
|
|
sl@0
|
87 |
_STLP_EXP_DECLSPEC char ctype_byname<char>::do_tolower(char c) const
|
|
sl@0
|
88 |
{
|
|
sl@0
|
89 |
return _Locale_tolower(_M_ctype, c);
|
|
sl@0
|
90 |
}
|
|
sl@0
|
91 |
|
|
sl@0
|
92 |
_STLP_EXP_DECLSPEC const char*
|
|
sl@0
|
93 |
ctype_byname<char>::do_toupper(char* first, const char* last) const
|
|
sl@0
|
94 |
{
|
|
sl@0
|
95 |
for ( ; first != last ; ++first)
|
|
sl@0
|
96 |
*first = _Locale_toupper(_M_ctype, *first);
|
|
sl@0
|
97 |
return last;
|
|
sl@0
|
98 |
}
|
|
sl@0
|
99 |
|
|
sl@0
|
100 |
_STLP_EXP_DECLSPEC const char*
|
|
sl@0
|
101 |
ctype_byname<char>::do_tolower(char* first, const char* last) const
|
|
sl@0
|
102 |
{
|
|
sl@0
|
103 |
for ( ; first != last ; ++first)
|
|
sl@0
|
104 |
*first = _Locale_tolower(_M_ctype, *first);
|
|
sl@0
|
105 |
return last;
|
|
sl@0
|
106 |
}
|
|
sl@0
|
107 |
|
|
sl@0
|
108 |
|
|
sl@0
|
109 |
// Some helper functions used in ctype<>::scan_is and scan_is_not.
|
|
sl@0
|
110 |
|
|
sl@0
|
111 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
112 |
|
|
sl@0
|
113 |
// ctype_byname<wchar_t>
|
|
sl@0
|
114 |
|
|
sl@0
|
115 |
struct _Ctype_byname_w_is_mask {
|
|
sl@0
|
116 |
typedef wchar_t argument_type;
|
|
sl@0
|
117 |
typedef bool result_type;
|
|
sl@0
|
118 |
|
|
sl@0
|
119 |
/* ctype_base::mask*/ int M;
|
|
sl@0
|
120 |
_Locale_ctype* M_ctp;
|
|
sl@0
|
121 |
|
|
sl@0
|
122 |
_Ctype_byname_w_is_mask(/* ctype_base::mask */ int m, _Locale_ctype* c) : M((int)m), M_ctp(c) {}
|
|
sl@0
|
123 |
bool operator()(wchar_t c) const
|
|
sl@0
|
124 |
{ return (M & _Locale_wchar_ctype(M_ctp, c, M)) != 0; }
|
|
sl@0
|
125 |
};
|
|
sl@0
|
126 |
|
|
sl@0
|
127 |
_STLP_EXP_DECLSPEC ctype_byname<wchar_t>::ctype_byname(const char* name, size_t refs)
|
|
sl@0
|
128 |
: ctype<wchar_t>(refs),
|
|
sl@0
|
129 |
_M_ctype(__acquire_ctype(name))
|
|
sl@0
|
130 |
{
|
|
sl@0
|
131 |
if (!_M_ctype)
|
|
sl@0
|
132 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
133 |
}
|
|
sl@0
|
134 |
|
|
sl@0
|
135 |
_STLP_EXP_DECLSPEC ctype_byname<wchar_t>::~ctype_byname()
|
|
sl@0
|
136 |
{
|
|
sl@0
|
137 |
__release_ctype(_M_ctype);
|
|
sl@0
|
138 |
}
|
|
sl@0
|
139 |
|
|
sl@0
|
140 |
_STLP_EXP_DECLSPEC bool ctype_byname<wchar_t>::do_is(ctype_base::mask m, wchar_t c) const
|
|
sl@0
|
141 |
{
|
|
sl@0
|
142 |
return (m & _Locale_wchar_ctype(_M_ctype, c, m)) != 0;
|
|
sl@0
|
143 |
}
|
|
sl@0
|
144 |
|
|
sl@0
|
145 |
_STLP_EXP_DECLSPEC const wchar_t*
|
|
sl@0
|
146 |
ctype_byname<wchar_t>::do_is(const wchar_t* low, const wchar_t* high,
|
|
sl@0
|
147 |
ctype_base::mask * m) const
|
|
sl@0
|
148 |
{
|
|
sl@0
|
149 |
ctype_base::mask all_bits = ctype_base::mask(
|
|
sl@0
|
150 |
ctype_base::space |
|
|
sl@0
|
151 |
ctype_base::print |
|
|
sl@0
|
152 |
ctype_base::cntrl |
|
|
sl@0
|
153 |
ctype_base::upper |
|
|
sl@0
|
154 |
ctype_base::lower |
|
|
sl@0
|
155 |
ctype_base::alpha |
|
|
sl@0
|
156 |
ctype_base::digit |
|
|
sl@0
|
157 |
ctype_base::punct |
|
|
sl@0
|
158 |
ctype_base::xdigit);
|
|
sl@0
|
159 |
|
|
sl@0
|
160 |
for ( ; low < high; ++low, ++m)
|
|
sl@0
|
161 |
*m = ctype_base::mask (_Locale_wchar_ctype(_M_ctype, *low, all_bits));
|
|
sl@0
|
162 |
return high;
|
|
sl@0
|
163 |
}
|
|
sl@0
|
164 |
|
|
sl@0
|
165 |
|
|
sl@0
|
166 |
_STLP_EXP_DECLSPEC const wchar_t*
|
|
sl@0
|
167 |
ctype_byname<wchar_t>
|
|
sl@0
|
168 |
::do_scan_is(ctype_base::mask m, const wchar_t* low, const wchar_t* high) const
|
|
sl@0
|
169 |
{
|
|
sl@0
|
170 |
return find_if(low, high, _Ctype_byname_w_is_mask(m, _M_ctype));
|
|
sl@0
|
171 |
}
|
|
sl@0
|
172 |
|
|
sl@0
|
173 |
_STLP_EXP_DECLSPEC const wchar_t*
|
|
sl@0
|
174 |
ctype_byname<wchar_t>
|
|
sl@0
|
175 |
::do_scan_not(ctype_base::mask m, const wchar_t* low, const wchar_t* high) const
|
|
sl@0
|
176 |
{
|
|
sl@0
|
177 |
return find_if(low, high, not1(_Ctype_byname_w_is_mask(m, _M_ctype)));
|
|
sl@0
|
178 |
}
|
|
sl@0
|
179 |
|
|
sl@0
|
180 |
_STLP_EXP_DECLSPEC wchar_t ctype_byname<wchar_t>::do_toupper(wchar_t c) const
|
|
sl@0
|
181 |
{
|
|
sl@0
|
182 |
return _Locale_wchar_toupper(_M_ctype, c);
|
|
sl@0
|
183 |
}
|
|
sl@0
|
184 |
|
|
sl@0
|
185 |
_STLP_EXP_DECLSPEC const wchar_t*
|
|
sl@0
|
186 |
ctype_byname<wchar_t>::do_toupper(wchar_t* low, const wchar_t* high) const
|
|
sl@0
|
187 |
{
|
|
sl@0
|
188 |
for ( ; low < high; ++low)
|
|
sl@0
|
189 |
*low = _Locale_wchar_toupper(_M_ctype, *low);
|
|
sl@0
|
190 |
return high;
|
|
sl@0
|
191 |
}
|
|
sl@0
|
192 |
|
|
sl@0
|
193 |
_STLP_EXP_DECLSPEC wchar_t ctype_byname<wchar_t>::do_tolower(wchar_t c) const
|
|
sl@0
|
194 |
{
|
|
sl@0
|
195 |
return _Locale_wchar_tolower(_M_ctype, c);
|
|
sl@0
|
196 |
}
|
|
sl@0
|
197 |
|
|
sl@0
|
198 |
_STLP_EXP_DECLSPEC const wchar_t*
|
|
sl@0
|
199 |
ctype_byname<wchar_t>::do_tolower(wchar_t* low, const wchar_t* high) const
|
|
sl@0
|
200 |
{
|
|
sl@0
|
201 |
for ( ; low < high; ++low)
|
|
sl@0
|
202 |
*low = _Locale_wchar_tolower(_M_ctype, *low);
|
|
sl@0
|
203 |
return high;
|
|
sl@0
|
204 |
}
|
|
sl@0
|
205 |
|
|
sl@0
|
206 |
# endif /* WCHAR_T */
|
|
sl@0
|
207 |
|
|
sl@0
|
208 |
_STLP_END_NAMESPACE
|
|
sl@0
|
209 |
|
|
sl@0
|
210 |
|
|
sl@0
|
211 |
// # include "collate_byname.cpp"
|
|
sl@0
|
212 |
|
|
sl@0
|
213 |
#include "stl/_collate.h"
|
|
sl@0
|
214 |
#include "c_locale.h"
|
|
sl@0
|
215 |
#include <vector>
|
|
sl@0
|
216 |
|
|
sl@0
|
217 |
_STLP_BEGIN_NAMESPACE
|
|
sl@0
|
218 |
|
|
sl@0
|
219 |
// collate_byname<char>
|
|
sl@0
|
220 |
_Locale_collate* __acquire_collate(const char* name);
|
|
sl@0
|
221 |
void __release_collate(_Locale_collate* cat);
|
|
sl@0
|
222 |
|
|
sl@0
|
223 |
_STLP_EXP_DECLSPEC collate_byname<char>::collate_byname(const char* name, size_t refs)
|
|
sl@0
|
224 |
: collate<char>(refs),
|
|
sl@0
|
225 |
_M_collate(__acquire_collate(name))
|
|
sl@0
|
226 |
{
|
|
sl@0
|
227 |
if (!_M_collate)
|
|
sl@0
|
228 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
229 |
}
|
|
sl@0
|
230 |
|
|
sl@0
|
231 |
_STLP_EXP_DECLSPEC collate_byname<char>::~collate_byname()
|
|
sl@0
|
232 |
{
|
|
sl@0
|
233 |
__release_collate(_M_collate);
|
|
sl@0
|
234 |
}
|
|
sl@0
|
235 |
|
|
sl@0
|
236 |
_STLP_EXP_DECLSPEC int collate_byname<char>::do_compare(const char* __low1,
|
|
sl@0
|
237 |
const char* __high1,
|
|
sl@0
|
238 |
const char* __low2,
|
|
sl@0
|
239 |
const char* __high2) const {
|
|
sl@0
|
240 |
return _Locale_strcmp(_M_collate,
|
|
sl@0
|
241 |
__low1, __high1 - __low1,
|
|
sl@0
|
242 |
__low2, __high2 - __low2);
|
|
sl@0
|
243 |
}
|
|
sl@0
|
244 |
|
|
sl@0
|
245 |
collate_byname<char>::string_type
|
|
sl@0
|
246 |
_STLP_EXP_DECLSPEC collate_byname<char>::do_transform(const char* low, const char* high) const {
|
|
sl@0
|
247 |
size_t n = _Locale_strxfrm(_M_collate,
|
|
sl@0
|
248 |
NULL, 0,
|
|
sl@0
|
249 |
low, high - low);
|
|
sl@0
|
250 |
|
|
sl@0
|
251 |
__vector__<char, allocator<char> > buf(n+1);
|
|
sl@0
|
252 |
_Locale_strxfrm(_M_collate, &buf.front(), n,
|
|
sl@0
|
253 |
low, high - low);
|
|
sl@0
|
254 |
|
|
sl@0
|
255 |
char& __c1 = *(buf.begin());
|
|
sl@0
|
256 |
char& __c2 = (n == (size_t)-1) ? *(buf.begin() + (high-low-1)) : *(buf.begin() + n);
|
|
sl@0
|
257 |
// char& __c2 = *(buf.begin() + n);
|
|
sl@0
|
258 |
return string_type( &__c1, &__c2 );
|
|
sl@0
|
259 |
}
|
|
sl@0
|
260 |
|
|
sl@0
|
261 |
|
|
sl@0
|
262 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
263 |
|
|
sl@0
|
264 |
// collate_byname<wchar_t>
|
|
sl@0
|
265 |
|
|
sl@0
|
266 |
_STLP_EXP_DECLSPEC collate_byname<wchar_t>::collate_byname(const char* name, size_t refs)
|
|
sl@0
|
267 |
: collate<wchar_t>(refs),
|
|
sl@0
|
268 |
_M_collate(__acquire_collate(name))
|
|
sl@0
|
269 |
{
|
|
sl@0
|
270 |
if (!_M_collate)
|
|
sl@0
|
271 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
272 |
}
|
|
sl@0
|
273 |
|
|
sl@0
|
274 |
_STLP_EXP_DECLSPEC collate_byname<wchar_t>::~collate_byname()
|
|
sl@0
|
275 |
{
|
|
sl@0
|
276 |
__release_collate(_M_collate);
|
|
sl@0
|
277 |
}
|
|
sl@0
|
278 |
|
|
sl@0
|
279 |
_STLP_EXP_DECLSPEC int collate_byname<wchar_t>::do_compare(const wchar_t* low1,
|
|
sl@0
|
280 |
const wchar_t* high1,
|
|
sl@0
|
281 |
const wchar_t* low2,
|
|
sl@0
|
282 |
const wchar_t* high2) const
|
|
sl@0
|
283 |
{
|
|
sl@0
|
284 |
return _Locale_strwcmp(_M_collate,
|
|
sl@0
|
285 |
low1, high1 - low1,
|
|
sl@0
|
286 |
low2, high2 - low2);
|
|
sl@0
|
287 |
}
|
|
sl@0
|
288 |
|
|
sl@0
|
289 |
_STLP_EXP_DECLSPEC collate_byname<wchar_t>::string_type
|
|
sl@0
|
290 |
collate_byname<wchar_t>
|
|
sl@0
|
291 |
::do_transform(const wchar_t* low, const wchar_t* high) const
|
|
sl@0
|
292 |
{
|
|
sl@0
|
293 |
size_t n = _Locale_strwxfrm(_M_collate,
|
|
sl@0
|
294 |
NULL, 0,
|
|
sl@0
|
295 |
low, high - low);
|
|
sl@0
|
296 |
|
|
sl@0
|
297 |
// __vector__<wchar_t, allocator<wchar_t> > buf(high - low); //gnu bug fix 3/1/07
|
|
sl@0
|
298 |
#ifdef __SYMBIAN32__
|
|
sl@0
|
299 |
__vector__<wchar_t, allocator<wchar_t> > buf(n+1);
|
|
sl@0
|
300 |
_Locale_strwxfrm(_M_collate, &buf.front(), n+1,
|
|
sl@0
|
301 |
low, high - low);
|
|
sl@0
|
302 |
#else
|
|
sl@0
|
303 |
__vector__<wchar_t, allocator<wchar_t> > buf(n);
|
|
sl@0
|
304 |
_Locale_strwxfrm(_M_collate, &buf.front(), n,
|
|
sl@0
|
305 |
low, high - low);
|
|
sl@0
|
306 |
#endif
|
|
sl@0
|
307 |
wchar_t& __c1 = *(buf.begin());
|
|
sl@0
|
308 |
wchar_t& __c2 = (n == (size_t)-1) ? *(buf.begin() + (high-low-1)) : *(buf.begin() + n);
|
|
sl@0
|
309 |
// wchar_t& __c2 = *(buf.begin() + n);
|
|
sl@0
|
310 |
return string_type( &__c1, &__c2 );
|
|
sl@0
|
311 |
}
|
|
sl@0
|
312 |
|
|
sl@0
|
313 |
# endif /* _STLP_NO_WCHAR_T */
|
|
sl@0
|
314 |
|
|
sl@0
|
315 |
_STLP_END_NAMESPACE
|
|
sl@0
|
316 |
|
|
sl@0
|
317 |
# ifndef _STLP_NO_MBSTATE_T
|
|
sl@0
|
318 |
|
|
sl@0
|
319 |
#include <stl/_codecvt.h>
|
|
sl@0
|
320 |
#include <stl/_algobase.h>
|
|
sl@0
|
321 |
#include "c_locale.h"
|
|
sl@0
|
322 |
|
|
sl@0
|
323 |
_STLP_BEGIN_NAMESPACE
|
|
sl@0
|
324 |
|
|
sl@0
|
325 |
|
|
sl@0
|
326 |
//----------------------------------------------------------------------
|
|
sl@0
|
327 |
// codecvt_byname<char>
|
|
sl@0
|
328 |
|
|
sl@0
|
329 |
_STLP_EXP_DECLSPEC codecvt_byname<char, char, mbstate_t>
|
|
sl@0
|
330 |
::codecvt_byname(const char* /* name */, size_t refs)
|
|
sl@0
|
331 |
: codecvt<char, char, mbstate_t>(refs)
|
|
sl@0
|
332 |
{}
|
|
sl@0
|
333 |
|
|
sl@0
|
334 |
_STLP_EXP_DECLSPEC codecvt_byname<char, char, mbstate_t>::~codecvt_byname() {}
|
|
sl@0
|
335 |
|
|
sl@0
|
336 |
|
|
sl@0
|
337 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
338 |
|
|
sl@0
|
339 |
//----------------------------------------------------------------------
|
|
sl@0
|
340 |
// codecvt_byname<wchar_t>
|
|
sl@0
|
341 |
|
|
sl@0
|
342 |
_Locale_ctype* __acquire_ctype(const char* name);
|
|
sl@0
|
343 |
void __release_ctype(_Locale_ctype* cat);
|
|
sl@0
|
344 |
|
|
sl@0
|
345 |
_STLP_EXP_DECLSPEC codecvt_byname<wchar_t, char, mbstate_t>
|
|
sl@0
|
346 |
::codecvt_byname(const char* name, size_t refs)
|
|
sl@0
|
347 |
: codecvt<wchar_t, char, mbstate_t>(refs),
|
|
sl@0
|
348 |
_M_ctype(__acquire_ctype(name))
|
|
sl@0
|
349 |
{
|
|
sl@0
|
350 |
if (!_M_ctype)
|
|
sl@0
|
351 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
352 |
}
|
|
sl@0
|
353 |
|
|
sl@0
|
354 |
_STLP_EXP_DECLSPEC codecvt_byname<wchar_t, char, mbstate_t>::~codecvt_byname()
|
|
sl@0
|
355 |
{
|
|
sl@0
|
356 |
__release_ctype(_M_ctype);
|
|
sl@0
|
357 |
}
|
|
sl@0
|
358 |
|
|
sl@0
|
359 |
_STLP_EXP_DECLSPEC codecvt<wchar_t, char, mbstate_t>::result
|
|
sl@0
|
360 |
codecvt_byname<wchar_t, char, mbstate_t>
|
|
sl@0
|
361 |
::do_out(state_type& state,
|
|
sl@0
|
362 |
const wchar_t* from,
|
|
sl@0
|
363 |
const wchar_t* from_end,
|
|
sl@0
|
364 |
const wchar_t*& from_next,
|
|
sl@0
|
365 |
char* to,
|
|
sl@0
|
366 |
char* to_limit,
|
|
sl@0
|
367 |
char*& to_next) const
|
|
sl@0
|
368 |
{
|
|
sl@0
|
369 |
while (from != from_end) {
|
|
sl@0
|
370 |
size_t chars_stored = _Locale_wctomb(_M_ctype,
|
|
sl@0
|
371 |
to, to_limit - to, *from,
|
|
sl@0
|
372 |
&state);
|
|
sl@0
|
373 |
if (chars_stored == (size_t) -1) {
|
|
sl@0
|
374 |
from_next = from;
|
|
sl@0
|
375 |
to_next = to;
|
|
sl@0
|
376 |
return error;
|
|
sl@0
|
377 |
}
|
|
sl@0
|
378 |
|
|
sl@0
|
379 |
else if (chars_stored == (size_t) -2) {
|
|
sl@0
|
380 |
from_next = from;
|
|
sl@0
|
381 |
to_next = to;
|
|
sl@0
|
382 |
return partial;
|
|
sl@0
|
383 |
}
|
|
sl@0
|
384 |
|
|
sl@0
|
385 |
++from;
|
|
sl@0
|
386 |
to += chars_stored;
|
|
sl@0
|
387 |
}
|
|
sl@0
|
388 |
|
|
sl@0
|
389 |
from_next = from;
|
|
sl@0
|
390 |
to_next = to;
|
|
sl@0
|
391 |
return ok;
|
|
sl@0
|
392 |
}
|
|
sl@0
|
393 |
|
|
sl@0
|
394 |
_STLP_EXP_DECLSPEC codecvt<wchar_t, char, mbstate_t>::result
|
|
sl@0
|
395 |
codecvt_byname<wchar_t, char, mbstate_t>
|
|
sl@0
|
396 |
::do_in(state_type& state,
|
|
sl@0
|
397 |
const extern_type* from,
|
|
sl@0
|
398 |
const extern_type* from_end,
|
|
sl@0
|
399 |
const extern_type*& from_next,
|
|
sl@0
|
400 |
intern_type* to,
|
|
sl@0
|
401 |
intern_type* to_limit,
|
|
sl@0
|
402 |
intern_type*& to_next) const
|
|
sl@0
|
403 |
{
|
|
sl@0
|
404 |
while (from != from_end) {
|
|
sl@0
|
405 |
int chars_write = 0;
|
|
sl@0
|
406 |
size_t chars_read = _Locale_mbtowc(_M_ctype,
|
|
sl@0
|
407 |
to, to_limit-to, from, from_end - from, &chars_write,
|
|
sl@0
|
408 |
&state);
|
|
sl@0
|
409 |
if (chars_read == (size_t) -1) {
|
|
sl@0
|
410 |
from_next = from;
|
|
sl@0
|
411 |
to_next = to;
|
|
sl@0
|
412 |
return error;
|
|
sl@0
|
413 |
}
|
|
sl@0
|
414 |
|
|
sl@0
|
415 |
if (chars_read == (size_t) -2) {
|
|
sl@0
|
416 |
from_next = from;
|
|
sl@0
|
417 |
to_next = to;
|
|
sl@0
|
418 |
return partial;
|
|
sl@0
|
419 |
}
|
|
sl@0
|
420 |
|
|
sl@0
|
421 |
from += chars_read;
|
|
sl@0
|
422 |
to += chars_write;
|
|
sl@0
|
423 |
}
|
|
sl@0
|
424 |
|
|
sl@0
|
425 |
from_next = from;
|
|
sl@0
|
426 |
to_next = to;
|
|
sl@0
|
427 |
return ok;
|
|
sl@0
|
428 |
}
|
|
sl@0
|
429 |
|
|
sl@0
|
430 |
_STLP_EXP_DECLSPEC codecvt<wchar_t, char, mbstate_t>::result
|
|
sl@0
|
431 |
codecvt_byname<wchar_t, char, mbstate_t>
|
|
sl@0
|
432 |
::do_unshift(state_type& state,
|
|
sl@0
|
433 |
extern_type* to,
|
|
sl@0
|
434 |
extern_type* to_limit,
|
|
sl@0
|
435 |
extern_type*& to_next) const
|
|
sl@0
|
436 |
{
|
|
sl@0
|
437 |
to_next = to;
|
|
sl@0
|
438 |
size_t result = _Locale_unshift(_M_ctype, &state,
|
|
sl@0
|
439 |
to, to_limit - to, &to_next);
|
|
sl@0
|
440 |
if (result == (size_t) -1)
|
|
sl@0
|
441 |
return error;
|
|
sl@0
|
442 |
else if (result == (size_t) -2)
|
|
sl@0
|
443 |
return partial;
|
|
sl@0
|
444 |
else
|
|
sl@0
|
445 |
#ifdef __ISCPP__
|
|
sl@0
|
446 |
return /*to_next == to ? noconv :*/ ok;
|
|
sl@0
|
447 |
#else
|
|
sl@0
|
448 |
return to_next == to ? noconv : ok;
|
|
sl@0
|
449 |
#endif
|
|
sl@0
|
450 |
}
|
|
sl@0
|
451 |
|
|
sl@0
|
452 |
int _STLP_EXP_DECLSPEC
|
|
sl@0
|
453 |
codecvt_byname<wchar_t, char, mbstate_t>::do_encoding() const _STLP_NOTHROW
|
|
sl@0
|
454 |
{
|
|
sl@0
|
455 |
if (_Locale_is_stateless(_M_ctype)) {
|
|
sl@0
|
456 |
int max_width = _Locale_mb_cur_max(_M_ctype);
|
|
sl@0
|
457 |
int min_width = _Locale_mb_cur_min(_M_ctype);
|
|
sl@0
|
458 |
return min_width == max_width ? min_width : 0;
|
|
sl@0
|
459 |
}
|
|
sl@0
|
460 |
else
|
|
sl@0
|
461 |
return -1;
|
|
sl@0
|
462 |
}
|
|
sl@0
|
463 |
|
|
sl@0
|
464 |
|
|
sl@0
|
465 |
_STLP_EXP_DECLSPEC bool codecvt_byname<wchar_t, char, mbstate_t>
|
|
sl@0
|
466 |
::do_always_noconv() const _STLP_NOTHROW
|
|
sl@0
|
467 |
{
|
|
sl@0
|
468 |
return false;
|
|
sl@0
|
469 |
}
|
|
sl@0
|
470 |
|
|
sl@0
|
471 |
_STLP_EXP_DECLSPEC int
|
|
sl@0
|
472 |
codecvt_byname<wchar_t, char, mbstate_t>::do_length(
|
|
sl@0
|
473 |
const state_type&,
|
|
sl@0
|
474 |
const extern_type* from, const extern_type* end,
|
|
sl@0
|
475 |
size_t mx) const
|
|
sl@0
|
476 |
{
|
|
sl@0
|
477 |
return (int)(min) ((size_t) (end - from), mx);
|
|
sl@0
|
478 |
}
|
|
sl@0
|
479 |
|
|
sl@0
|
480 |
_STLP_EXP_DECLSPEC int
|
|
sl@0
|
481 |
codecvt_byname<wchar_t, char, mbstate_t>::do_max_length() const _STLP_NOTHROW
|
|
sl@0
|
482 |
{
|
|
sl@0
|
483 |
return _Locale_mb_cur_max(_M_ctype);
|
|
sl@0
|
484 |
}
|
|
sl@0
|
485 |
# endif /* WCHAR_T */
|
|
sl@0
|
486 |
|
|
sl@0
|
487 |
_STLP_END_NAMESPACE
|
|
sl@0
|
488 |
|
|
sl@0
|
489 |
# endif /* MBSTATE_T */
|
|
sl@0
|
490 |
|
|
sl@0
|
491 |
#include "locale_impl.h"
|
|
sl@0
|
492 |
# include <stl/_numpunct.h>
|
|
sl@0
|
493 |
|
|
sl@0
|
494 |
_STLP_BEGIN_NAMESPACE
|
|
sl@0
|
495 |
|
|
sl@0
|
496 |
_Locale_numeric* _STLP_CALL __acquire_numeric(const char* name);
|
|
sl@0
|
497 |
void _STLP_CALL __release_numeric(_Locale_numeric* cat);
|
|
sl@0
|
498 |
|
|
sl@0
|
499 |
// numpunct_byname<char>
|
|
sl@0
|
500 |
|
|
sl@0
|
501 |
_STLP_EXP_DECLSPEC numpunct_byname<char>::numpunct_byname(const char* name, size_t refs)
|
|
sl@0
|
502 |
: numpunct<char>(refs),
|
|
sl@0
|
503 |
_M_numeric(__acquire_numeric(name))
|
|
sl@0
|
504 |
{
|
|
sl@0
|
505 |
if (!_M_numeric)
|
|
sl@0
|
506 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
507 |
|
|
sl@0
|
508 |
#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)
|
|
sl@0
|
509 |
numpunct<char>::GetNumPunct_M_truename() = _Locale_true(_M_numeric);
|
|
sl@0
|
510 |
numpunct<char>::GetNumPunct_M_falsename() = _Locale_false(_M_numeric);
|
|
sl@0
|
511 |
#else
|
|
sl@0
|
512 |
_M_truename = _Locale_true(_M_numeric);
|
|
sl@0
|
513 |
_M_falsename = _Locale_false(_M_numeric);
|
|
sl@0
|
514 |
#endif
|
|
sl@0
|
515 |
}
|
|
sl@0
|
516 |
|
|
sl@0
|
517 |
_STLP_EXP_DECLSPEC numpunct_byname<char>::~numpunct_byname()
|
|
sl@0
|
518 |
{
|
|
sl@0
|
519 |
__release_numeric(_M_numeric);
|
|
sl@0
|
520 |
}
|
|
sl@0
|
521 |
|
|
sl@0
|
522 |
_STLP_EXP_DECLSPEC char numpunct_byname<char>::do_decimal_point() const {
|
|
sl@0
|
523 |
return _Locale_decimal_point(_M_numeric);
|
|
sl@0
|
524 |
}
|
|
sl@0
|
525 |
|
|
sl@0
|
526 |
_STLP_EXP_DECLSPEC char numpunct_byname<char>::do_thousands_sep() const {
|
|
sl@0
|
527 |
return _Locale_thousands_sep(_M_numeric);
|
|
sl@0
|
528 |
}
|
|
sl@0
|
529 |
|
|
sl@0
|
530 |
_STLP_EXP_DECLSPEC string numpunct_byname<char>::do_grouping() const {
|
|
sl@0
|
531 |
const char * __grouping = _Locale_grouping(_M_numeric);
|
|
sl@0
|
532 |
if (__grouping != NULL && __grouping[0] == CHAR_MAX)
|
|
sl@0
|
533 |
__grouping = "";
|
|
sl@0
|
534 |
return __grouping;
|
|
sl@0
|
535 |
}
|
|
sl@0
|
536 |
|
|
sl@0
|
537 |
//----------------------------------------------------------------------
|
|
sl@0
|
538 |
// numpunct<wchar_t>
|
|
sl@0
|
539 |
|
|
sl@0
|
540 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
541 |
|
|
sl@0
|
542 |
// numpunct_byname<wchar_t>
|
|
sl@0
|
543 |
|
|
sl@0
|
544 |
_STLP_EXP_DECLSPEC numpunct_byname<wchar_t>::numpunct_byname(const char* name, size_t refs)
|
|
sl@0
|
545 |
: numpunct<wchar_t>(refs),
|
|
sl@0
|
546 |
_M_numeric(__acquire_numeric(name))
|
|
sl@0
|
547 |
{
|
|
sl@0
|
548 |
if (!_M_numeric)
|
|
sl@0
|
549 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
550 |
|
|
sl@0
|
551 |
const char* truename = _Locale_true(_M_numeric);
|
|
sl@0
|
552 |
const char* falsename = _Locale_false(_M_numeric);
|
|
sl@0
|
553 |
#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)
|
|
sl@0
|
554 |
numpunct<wchar_t>::GetNumPunct_M_Wchar_truename().resize(strlen(truename));
|
|
sl@0
|
555 |
numpunct<wchar_t>::GetNumPunct_M_Wchar_falsename().resize(strlen(falsename));
|
|
sl@0
|
556 |
copy(truename, truename + strlen(truename), numpunct<wchar_t>::GetNumPunct_M_Wchar_truename().begin());
|
|
sl@0
|
557 |
copy(falsename, falsename + strlen(falsename), numpunct<wchar_t>::GetNumPunct_M_Wchar_falsename().begin());
|
|
sl@0
|
558 |
#else
|
|
sl@0
|
559 |
_M_truename.resize(strlen(truename));
|
|
sl@0
|
560 |
_M_falsename.resize(strlen(falsename));
|
|
sl@0
|
561 |
copy(truename, truename + strlen(truename), _M_truename.begin());
|
|
sl@0
|
562 |
copy(falsename, falsename + strlen(falsename), _M_falsename.begin());
|
|
sl@0
|
563 |
#endif
|
|
sl@0
|
564 |
}
|
|
sl@0
|
565 |
|
|
sl@0
|
566 |
_STLP_EXP_DECLSPEC numpunct_byname<wchar_t>::~numpunct_byname()
|
|
sl@0
|
567 |
{
|
|
sl@0
|
568 |
__release_numeric(_M_numeric);
|
|
sl@0
|
569 |
}
|
|
sl@0
|
570 |
|
|
sl@0
|
571 |
_STLP_EXP_DECLSPEC wchar_t numpunct_byname<wchar_t>::do_decimal_point() const {
|
|
sl@0
|
572 |
return (wchar_t) _Locale_decimal_point(_M_numeric);
|
|
sl@0
|
573 |
}
|
|
sl@0
|
574 |
|
|
sl@0
|
575 |
_STLP_EXP_DECLSPEC wchar_t numpunct_byname<wchar_t>::do_thousands_sep() const {
|
|
sl@0
|
576 |
return (wchar_t) _Locale_thousands_sep(_M_numeric);
|
|
sl@0
|
577 |
}
|
|
sl@0
|
578 |
|
|
sl@0
|
579 |
_STLP_EXP_DECLSPEC string numpunct_byname<wchar_t>::do_grouping() const {
|
|
sl@0
|
580 |
const char * __grouping = _Locale_grouping(_M_numeric);
|
|
sl@0
|
581 |
if (__grouping != NULL && __grouping[0] == CHAR_MAX)
|
|
sl@0
|
582 |
__grouping = "";
|
|
sl@0
|
583 |
return __grouping;
|
|
sl@0
|
584 |
}
|
|
sl@0
|
585 |
|
|
sl@0
|
586 |
# endif
|
|
sl@0
|
587 |
|
|
sl@0
|
588 |
_STLP_END_NAMESPACE
|
|
sl@0
|
589 |
|
|
sl@0
|
590 |
#include <stl/_monetary.h>
|
|
sl@0
|
591 |
// #include <stl/_ostream.h>
|
|
sl@0
|
592 |
// #include <stl/_istream.h>
|
|
sl@0
|
593 |
#include "c_locale.h"
|
|
sl@0
|
594 |
|
|
sl@0
|
595 |
|
|
sl@0
|
596 |
_STLP_BEGIN_NAMESPACE
|
|
sl@0
|
597 |
|
|
sl@0
|
598 |
static void _Init_monetary_formats(money_base::pattern& pos_format,
|
|
sl@0
|
599 |
money_base::pattern& neg_format,
|
|
sl@0
|
600 |
_Locale_monetary * monetary) {
|
|
sl@0
|
601 |
switch (_Locale_p_sign_posn(monetary)) {
|
|
sl@0
|
602 |
case 0: case 1:
|
|
sl@0
|
603 |
pos_format.field[0] = (char) money_base::sign;
|
|
sl@0
|
604 |
if (_Locale_p_cs_precedes(monetary)) {
|
|
sl@0
|
605 |
pos_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
606 |
if (_Locale_p_sep_by_space(monetary)) {
|
|
sl@0
|
607 |
pos_format.field[2] = (char) money_base::space;
|
|
sl@0
|
608 |
pos_format.field[3] = (char) money_base::value;
|
|
sl@0
|
609 |
}
|
|
sl@0
|
610 |
else {
|
|
sl@0
|
611 |
pos_format.field[2] = (char) money_base::value;
|
|
sl@0
|
612 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
613 |
}
|
|
sl@0
|
614 |
}
|
|
sl@0
|
615 |
else {
|
|
sl@0
|
616 |
//pos_format.field[2] = (char) money_base::value; //gnu bug fix, 3/1/07
|
|
sl@0
|
617 |
pos_format.field[1] = (char) money_base::value;
|
|
sl@0
|
618 |
if (_Locale_p_sep_by_space(monetary)) {
|
|
sl@0
|
619 |
pos_format.field[2] = (char) money_base::space;
|
|
sl@0
|
620 |
pos_format.field[3] = (char) money_base::symbol;
|
|
sl@0
|
621 |
}
|
|
sl@0
|
622 |
else {
|
|
sl@0
|
623 |
pos_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
624 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
625 |
}
|
|
sl@0
|
626 |
}
|
|
sl@0
|
627 |
break;
|
|
sl@0
|
628 |
case 2:
|
|
sl@0
|
629 |
if (_Locale_p_cs_precedes(monetary)) {
|
|
sl@0
|
630 |
pos_format.field[0] = (char) money_base::symbol;
|
|
sl@0
|
631 |
if (_Locale_p_sep_by_space(monetary)) {
|
|
sl@0
|
632 |
pos_format.field[1] = (char) money_base::space;
|
|
sl@0
|
633 |
pos_format.field[2] = (char) money_base::value;
|
|
sl@0
|
634 |
pos_format.field[3] = (char) money_base::sign;
|
|
sl@0
|
635 |
}
|
|
sl@0
|
636 |
else {
|
|
sl@0
|
637 |
pos_format.field[1] = (char) money_base::value;
|
|
sl@0
|
638 |
pos_format.field[2] = (char) money_base::sign;
|
|
sl@0
|
639 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
640 |
}
|
|
sl@0
|
641 |
}
|
|
sl@0
|
642 |
else {
|
|
sl@0
|
643 |
pos_format.field[1] = (char) money_base::value;
|
|
sl@0
|
644 |
if (_Locale_p_sep_by_space(monetary)) {
|
|
sl@0
|
645 |
pos_format.field[1] = (char) money_base::space;
|
|
sl@0
|
646 |
pos_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
647 |
pos_format.field[3] = (char) money_base::sign;
|
|
sl@0
|
648 |
}
|
|
sl@0
|
649 |
else {
|
|
sl@0
|
650 |
pos_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
651 |
pos_format.field[2] = (char) money_base::sign;
|
|
sl@0
|
652 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
653 |
}
|
|
sl@0
|
654 |
}
|
|
sl@0
|
655 |
break;
|
|
sl@0
|
656 |
case 3:
|
|
sl@0
|
657 |
if (_Locale_p_cs_precedes(monetary)) {
|
|
sl@0
|
658 |
pos_format.field[0] = (char) money_base::sign;
|
|
sl@0
|
659 |
pos_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
660 |
if (_Locale_p_sep_by_space(monetary)) {
|
|
sl@0
|
661 |
pos_format.field[2] = (char) money_base::space;
|
|
sl@0
|
662 |
pos_format.field[3] = (char) money_base::value;
|
|
sl@0
|
663 |
}
|
|
sl@0
|
664 |
else {
|
|
sl@0
|
665 |
pos_format.field[2] = (char) money_base::value;
|
|
sl@0
|
666 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
667 |
}
|
|
sl@0
|
668 |
}
|
|
sl@0
|
669 |
else {
|
|
sl@0
|
670 |
pos_format.field[0] = (char) money_base::value;
|
|
sl@0
|
671 |
pos_format.field[1] = (char) money_base::sign;
|
|
sl@0
|
672 |
pos_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
673 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
674 |
}
|
|
sl@0
|
675 |
break;
|
|
sl@0
|
676 |
case 4: default:
|
|
sl@0
|
677 |
if (_Locale_p_cs_precedes(monetary)) {
|
|
sl@0
|
678 |
pos_format.field[0] = (char) money_base::symbol;
|
|
sl@0
|
679 |
pos_format.field[1] = (char) money_base::sign;
|
|
sl@0
|
680 |
pos_format.field[2] = (char) money_base::value;
|
|
sl@0
|
681 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
682 |
}
|
|
sl@0
|
683 |
else {
|
|
sl@0
|
684 |
pos_format.field[0] = (char) money_base::value;
|
|
sl@0
|
685 |
if (_Locale_p_sep_by_space(monetary)) {
|
|
sl@0
|
686 |
pos_format.field[1] = (char) money_base::space;
|
|
sl@0
|
687 |
pos_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
688 |
pos_format.field[3] = (char) money_base::sign;
|
|
sl@0
|
689 |
}
|
|
sl@0
|
690 |
else {
|
|
sl@0
|
691 |
pos_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
692 |
pos_format.field[2] = (char) money_base::sign;
|
|
sl@0
|
693 |
pos_format.field[3] = (char) money_base::none;
|
|
sl@0
|
694 |
}
|
|
sl@0
|
695 |
}
|
|
sl@0
|
696 |
break;
|
|
sl@0
|
697 |
}
|
|
sl@0
|
698 |
|
|
sl@0
|
699 |
switch (_Locale_n_sign_posn(monetary)) {
|
|
sl@0
|
700 |
case 0: case 1:
|
|
sl@0
|
701 |
neg_format.field[0] = (char) money_base::sign;
|
|
sl@0
|
702 |
if (_Locale_n_cs_precedes(monetary)) {
|
|
sl@0
|
703 |
neg_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
704 |
if (_Locale_n_sep_by_space(monetary)) {
|
|
sl@0
|
705 |
neg_format.field[2] = (char) money_base::space;
|
|
sl@0
|
706 |
neg_format.field[3] = (char) money_base::value;
|
|
sl@0
|
707 |
}
|
|
sl@0
|
708 |
else {
|
|
sl@0
|
709 |
neg_format.field[2] = (char) money_base::value;
|
|
sl@0
|
710 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
711 |
}
|
|
sl@0
|
712 |
}
|
|
sl@0
|
713 |
else {
|
|
sl@0
|
714 |
neg_format.field[2] = (char) money_base::value;
|
|
sl@0
|
715 |
if (_Locale_n_sep_by_space(monetary)) {
|
|
sl@0
|
716 |
neg_format.field[2] = (char) money_base::space;
|
|
sl@0
|
717 |
neg_format.field[3] = (char) money_base::symbol;
|
|
sl@0
|
718 |
}
|
|
sl@0
|
719 |
else {
|
|
sl@0
|
720 |
neg_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
721 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
722 |
}
|
|
sl@0
|
723 |
}
|
|
sl@0
|
724 |
break;
|
|
sl@0
|
725 |
case 2:
|
|
sl@0
|
726 |
if (_Locale_n_cs_precedes(monetary)) {
|
|
sl@0
|
727 |
neg_format.field[0] = (char) money_base::symbol;
|
|
sl@0
|
728 |
if (_Locale_n_sep_by_space(monetary)) {
|
|
sl@0
|
729 |
neg_format.field[1] = (char) money_base::space;
|
|
sl@0
|
730 |
neg_format.field[2] = (char) money_base::value;
|
|
sl@0
|
731 |
neg_format.field[3] = (char) money_base::sign;
|
|
sl@0
|
732 |
}
|
|
sl@0
|
733 |
else {
|
|
sl@0
|
734 |
neg_format.field[1] = (char) money_base::value;
|
|
sl@0
|
735 |
neg_format.field[2] = (char) money_base::sign;
|
|
sl@0
|
736 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
737 |
}
|
|
sl@0
|
738 |
}
|
|
sl@0
|
739 |
else {
|
|
sl@0
|
740 |
neg_format.field[1] = (char) money_base::value;
|
|
sl@0
|
741 |
if (_Locale_n_sep_by_space(monetary)) {
|
|
sl@0
|
742 |
neg_format.field[1] = (char) money_base::space;
|
|
sl@0
|
743 |
neg_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
744 |
neg_format.field[3] = (char) money_base::sign;
|
|
sl@0
|
745 |
}
|
|
sl@0
|
746 |
else {
|
|
sl@0
|
747 |
neg_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
748 |
neg_format.field[2] = (char) money_base::sign;
|
|
sl@0
|
749 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
750 |
}
|
|
sl@0
|
751 |
}
|
|
sl@0
|
752 |
break;
|
|
sl@0
|
753 |
case 3:
|
|
sl@0
|
754 |
if (_Locale_n_cs_precedes(monetary)) {
|
|
sl@0
|
755 |
neg_format.field[0] = (char) money_base::sign;
|
|
sl@0
|
756 |
neg_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
757 |
if (_Locale_n_sep_by_space(monetary)) {
|
|
sl@0
|
758 |
neg_format.field[2] = (char) money_base::space;
|
|
sl@0
|
759 |
neg_format.field[3] = (char) money_base::value;
|
|
sl@0
|
760 |
}
|
|
sl@0
|
761 |
else {
|
|
sl@0
|
762 |
neg_format.field[2] = (char) money_base::value;
|
|
sl@0
|
763 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
764 |
}
|
|
sl@0
|
765 |
}
|
|
sl@0
|
766 |
else {
|
|
sl@0
|
767 |
neg_format.field[0] = (char) money_base::value;
|
|
sl@0
|
768 |
neg_format.field[1] = (char) money_base::sign;
|
|
sl@0
|
769 |
neg_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
770 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
771 |
}
|
|
sl@0
|
772 |
break;
|
|
sl@0
|
773 |
case 4: default:
|
|
sl@0
|
774 |
if (_Locale_n_cs_precedes(monetary)) {
|
|
sl@0
|
775 |
neg_format.field[0] = (char) money_base::symbol;
|
|
sl@0
|
776 |
neg_format.field[1] = (char) money_base::sign;
|
|
sl@0
|
777 |
neg_format.field[2] = (char) money_base::value;
|
|
sl@0
|
778 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
779 |
}
|
|
sl@0
|
780 |
else {
|
|
sl@0
|
781 |
neg_format.field[0] = (char) money_base::value;
|
|
sl@0
|
782 |
if (_Locale_n_sep_by_space(monetary)) {
|
|
sl@0
|
783 |
neg_format.field[1] = (char) money_base::space;
|
|
sl@0
|
784 |
neg_format.field[2] = (char) money_base::symbol;
|
|
sl@0
|
785 |
neg_format.field[3] = (char) money_base::sign;
|
|
sl@0
|
786 |
}
|
|
sl@0
|
787 |
else {
|
|
sl@0
|
788 |
neg_format.field[1] = (char) money_base::symbol;
|
|
sl@0
|
789 |
neg_format.field[2] = (char) money_base::sign;
|
|
sl@0
|
790 |
neg_format.field[3] = (char) money_base::none;
|
|
sl@0
|
791 |
}
|
|
sl@0
|
792 |
}
|
|
sl@0
|
793 |
break;
|
|
sl@0
|
794 |
}
|
|
sl@0
|
795 |
}
|
|
sl@0
|
796 |
|
|
sl@0
|
797 |
|
|
sl@0
|
798 |
//
|
|
sl@0
|
799 |
// moneypunct_byname<>
|
|
sl@0
|
800 |
//
|
|
sl@0
|
801 |
|
|
sl@0
|
802 |
_Locale_monetary* __acquire_monetary(const char* name);
|
|
sl@0
|
803 |
void __release_monetary(_Locale_monetary* mon);
|
|
sl@0
|
804 |
|
|
sl@0
|
805 |
_STLP_EXP_DECLSPEC moneypunct_byname<char, true>::moneypunct_byname(const char * name,
|
|
sl@0
|
806 |
size_t refs):
|
|
sl@0
|
807 |
moneypunct<char, true>(refs),
|
|
sl@0
|
808 |
_M_monetary(__acquire_monetary(name))
|
|
sl@0
|
809 |
{
|
|
sl@0
|
810 |
if (!_M_monetary)
|
|
sl@0
|
811 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
812 |
_Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
|
|
sl@0
|
813 |
}
|
|
sl@0
|
814 |
|
|
sl@0
|
815 |
_STLP_EXP_DECLSPEC moneypunct_byname<char, true>::~moneypunct_byname()
|
|
sl@0
|
816 |
{
|
|
sl@0
|
817 |
__release_monetary(_M_monetary);
|
|
sl@0
|
818 |
}
|
|
sl@0
|
819 |
|
|
sl@0
|
820 |
_STLP_EXP_DECLSPEC char moneypunct_byname<char, true>::do_decimal_point() const
|
|
sl@0
|
821 |
{return _Locale_mon_decimal_point(_M_monetary);}
|
|
sl@0
|
822 |
|
|
sl@0
|
823 |
_STLP_EXP_DECLSPEC char moneypunct_byname<char, true>::do_thousands_sep() const
|
|
sl@0
|
824 |
{return _Locale_mon_thousands_sep(_M_monetary);}
|
|
sl@0
|
825 |
|
|
sl@0
|
826 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_grouping() const
|
|
sl@0
|
827 |
{return _Locale_mon_grouping(_M_monetary);}
|
|
sl@0
|
828 |
|
|
sl@0
|
829 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_curr_symbol() const
|
|
sl@0
|
830 |
{return _Locale_int_curr_symbol(_M_monetary);}
|
|
sl@0
|
831 |
|
|
sl@0
|
832 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_positive_sign() const
|
|
sl@0
|
833 |
{return _Locale_positive_sign(_M_monetary);}
|
|
sl@0
|
834 |
|
|
sl@0
|
835 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_negative_sign() const
|
|
sl@0
|
836 |
{return _Locale_negative_sign(_M_monetary);}
|
|
sl@0
|
837 |
|
|
sl@0
|
838 |
_STLP_EXP_DECLSPEC int moneypunct_byname<char, true>::do_frac_digits() const
|
|
sl@0
|
839 |
{return _Locale_int_frac_digits(_M_monetary);}
|
|
sl@0
|
840 |
|
|
sl@0
|
841 |
_STLP_EXP_DECLSPEC moneypunct_byname<char, false>::moneypunct_byname(const char * name,
|
|
sl@0
|
842 |
size_t refs):
|
|
sl@0
|
843 |
moneypunct<char, false>(refs),
|
|
sl@0
|
844 |
_M_monetary(__acquire_monetary(name))
|
|
sl@0
|
845 |
{
|
|
sl@0
|
846 |
if (!_M_monetary)
|
|
sl@0
|
847 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
848 |
_Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
|
|
sl@0
|
849 |
}
|
|
sl@0
|
850 |
|
|
sl@0
|
851 |
_STLP_EXP_DECLSPEC moneypunct_byname<char, false>::~moneypunct_byname()
|
|
sl@0
|
852 |
{
|
|
sl@0
|
853 |
__release_monetary(_M_monetary);
|
|
sl@0
|
854 |
}
|
|
sl@0
|
855 |
|
|
sl@0
|
856 |
_STLP_EXP_DECLSPEC char moneypunct_byname<char, false>::do_decimal_point() const
|
|
sl@0
|
857 |
{return _Locale_mon_decimal_point(_M_monetary);}
|
|
sl@0
|
858 |
|
|
sl@0
|
859 |
_STLP_EXP_DECLSPEC char moneypunct_byname<char, false>::do_thousands_sep() const
|
|
sl@0
|
860 |
{return _Locale_mon_thousands_sep(_M_monetary);}
|
|
sl@0
|
861 |
|
|
sl@0
|
862 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_grouping() const
|
|
sl@0
|
863 |
{return _Locale_mon_grouping(_M_monetary);}
|
|
sl@0
|
864 |
|
|
sl@0
|
865 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_curr_symbol() const
|
|
sl@0
|
866 |
{return _Locale_currency_symbol(_M_monetary);}
|
|
sl@0
|
867 |
|
|
sl@0
|
868 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_positive_sign() const
|
|
sl@0
|
869 |
{return _Locale_positive_sign(_M_monetary);}
|
|
sl@0
|
870 |
|
|
sl@0
|
871 |
_STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_negative_sign() const
|
|
sl@0
|
872 |
{return _Locale_negative_sign(_M_monetary);}
|
|
sl@0
|
873 |
|
|
sl@0
|
874 |
_STLP_EXP_DECLSPEC int moneypunct_byname<char, false>::do_frac_digits() const
|
|
sl@0
|
875 |
{return _Locale_frac_digits(_M_monetary);}
|
|
sl@0
|
876 |
|
|
sl@0
|
877 |
//
|
|
sl@0
|
878 |
// moneypunct_byname<wchar_t>
|
|
sl@0
|
879 |
//
|
|
sl@0
|
880 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
881 |
|
|
sl@0
|
882 |
_STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, true>::moneypunct_byname(const char * name,
|
|
sl@0
|
883 |
size_t refs):
|
|
sl@0
|
884 |
moneypunct<wchar_t, true>(refs),
|
|
sl@0
|
885 |
_M_monetary(__acquire_monetary(name))
|
|
sl@0
|
886 |
{
|
|
sl@0
|
887 |
if (!_M_monetary)
|
|
sl@0
|
888 |
locale::_M_throw_runtime_error();
|
|
sl@0
|
889 |
_Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
|
|
sl@0
|
890 |
}
|
|
sl@0
|
891 |
|
|
sl@0
|
892 |
_STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, true>::~moneypunct_byname()
|
|
sl@0
|
893 |
{
|
|
sl@0
|
894 |
__release_monetary(_M_monetary);
|
|
sl@0
|
895 |
}
|
|
sl@0
|
896 |
|
|
sl@0
|
897 |
_STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, true>::do_decimal_point() const
|
|
sl@0
|
898 |
{return _Locale_mon_decimal_point(_M_monetary);}
|
|
sl@0
|
899 |
|
|
sl@0
|
900 |
_STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, true>::do_thousands_sep() const
|
|
sl@0
|
901 |
{return _Locale_mon_thousands_sep(_M_monetary);}
|
|
sl@0
|
902 |
|
|
sl@0
|
903 |
_STLP_EXP_DECLSPEC string moneypunct_byname<wchar_t, true>::do_grouping() const
|
|
sl@0
|
904 |
{return _Locale_mon_grouping(_M_monetary);}
|
|
sl@0
|
905 |
|
|
sl@0
|
906 |
_STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, true>::do_curr_symbol() const
|
|
sl@0
|
907 |
{
|
|
sl@0
|
908 |
string str = _Locale_int_curr_symbol(_M_monetary);
|
|
sl@0
|
909 |
# if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__) //*ty 05/26/2001 - added workaround for mpw
|
|
sl@0
|
910 |
wstring result(wstring::_Reserve_t(), str.size());
|
|
sl@0
|
911 |
copy(str.begin(), str.end(), result.begin());
|
|
sl@0
|
912 |
# else
|
|
sl@0
|
913 |
wstring result(str.begin(), str.end());
|
|
sl@0
|
914 |
# endif
|
|
sl@0
|
915 |
return result;
|
|
sl@0
|
916 |
}
|
|
sl@0
|
917 |
|
|
sl@0
|
918 |
_STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, true>::do_positive_sign() const
|
|
sl@0
|
919 |
{
|
|
sl@0
|
920 |
string str = _Locale_positive_sign(_M_monetary);
|
|
sl@0
|
921 |
# if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__) //*ty 05/26/2001 - added workaround for mpw
|
|
sl@0
|
922 |
wstring result(wstring::_Reserve_t(), str.size());
|
|
sl@0
|
923 |
copy(str.begin(), str.end(), result.begin());
|
|
sl@0
|
924 |
# else
|
|
sl@0
|
925 |
wstring result(str.begin(), str.end());
|
|
sl@0
|
926 |
# endif
|
|
sl@0
|
927 |
return result;
|
|
sl@0
|
928 |
}
|
|
sl@0
|
929 |
|
|
sl@0
|
930 |
|
|
sl@0
|
931 |
_STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, true>::do_negative_sign() const
|
|
sl@0
|
932 |
{
|
|
sl@0
|
933 |
string str = _Locale_negative_sign(_M_monetary);
|
|
sl@0
|
934 |
# if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__) //*ty 05/26/2001 - added workaround for mpw
|
|
sl@0
|
935 |
wstring result(wstring::_Reserve_t(), str.size());
|
|
sl@0
|
936 |
copy(str.begin(), str.end(), result.begin());
|
|
sl@0
|
937 |
# else
|
|
sl@0
|
938 |
wstring result(str.begin(), str.end());
|
|
sl@0
|
939 |
# endif
|
|
sl@0
|
940 |
return result;
|
|
sl@0
|
941 |
}
|
|
sl@0
|
942 |
|
|
sl@0
|
943 |
_STLP_EXP_DECLSPEC int moneypunct_byname<wchar_t, true>::do_frac_digits() const
|
|
sl@0
|
944 |
{return _Locale_int_frac_digits(_M_monetary);}
|
|
sl@0
|
945 |
|
|
sl@0
|
946 |
_STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, false>::moneypunct_byname(const char * name,
|
|
sl@0
|
947 |
size_t refs):
|
|
sl@0
|
948 |
moneypunct<wchar_t, false>(refs),
|
|
sl@0
|
949 |
_M_monetary(__acquire_monetary(name))
|
|
sl@0
|
950 |
{
|
|
sl@0
|
951 |
if (!_M_monetary)
|
|
sl@0
|
952 |
locale::_M_throw_runtime_error() ;
|
|
sl@0
|
953 |
_Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
|
|
sl@0
|
954 |
}
|
|
sl@0
|
955 |
|
|
sl@0
|
956 |
_STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, false>::~moneypunct_byname()
|
|
sl@0
|
957 |
{
|
|
sl@0
|
958 |
__release_monetary(_M_monetary);
|
|
sl@0
|
959 |
}
|
|
sl@0
|
960 |
|
|
sl@0
|
961 |
_STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, false>::do_decimal_point() const
|
|
sl@0
|
962 |
{return _Locale_mon_decimal_point(_M_monetary);}
|
|
sl@0
|
963 |
|
|
sl@0
|
964 |
_STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, false>::do_thousands_sep() const
|
|
sl@0
|
965 |
{return _Locale_mon_thousands_sep(_M_monetary);}
|
|
sl@0
|
966 |
|
|
sl@0
|
967 |
_STLP_EXP_DECLSPEC string moneypunct_byname<wchar_t, false>::do_grouping() const
|
|
sl@0
|
968 |
{return _Locale_mon_grouping(_M_monetary);}
|
|
sl@0
|
969 |
|
|
sl@0
|
970 |
_STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, false>::do_curr_symbol() const
|
|
sl@0
|
971 |
{
|
|
sl@0
|
972 |
string str = _Locale_currency_symbol(_M_monetary);
|
|
sl@0
|
973 |
# if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__) //*ty 05/26/2001 - added workaround for mpw
|
|
sl@0
|
974 |
wstring result(wstring::_Reserve_t(), str.size());
|
|
sl@0
|
975 |
copy(str.begin(), str.end(), result.begin());
|
|
sl@0
|
976 |
# else
|
|
sl@0
|
977 |
wstring result(str.begin(), str.end());
|
|
sl@0
|
978 |
# endif
|
|
sl@0
|
979 |
return result;
|
|
sl@0
|
980 |
}
|
|
sl@0
|
981 |
|
|
sl@0
|
982 |
_STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, false>::do_positive_sign() const
|
|
sl@0
|
983 |
{
|
|
sl@0
|
984 |
string str = _Locale_positive_sign(_M_monetary);
|
|
sl@0
|
985 |
# if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__) //*ty 05/26/2001 - added workaround for mpw
|
|
sl@0
|
986 |
wstring result(wstring::_Reserve_t(), str.size());
|
|
sl@0
|
987 |
copy(str.begin(), str.end(), result.begin());
|
|
sl@0
|
988 |
# else
|
|
sl@0
|
989 |
wstring result(str.begin(), str.end());
|
|
sl@0
|
990 |
# endif
|
|
sl@0
|
991 |
return result;
|
|
sl@0
|
992 |
}
|
|
sl@0
|
993 |
|
|
sl@0
|
994 |
_STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, false>::do_negative_sign() const
|
|
sl@0
|
995 |
{
|
|
sl@0
|
996 |
string str = _Locale_negative_sign(_M_monetary);
|
|
sl@0
|
997 |
# if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__) //*ty 05/26/2001 - added workaround for mpw
|
|
sl@0
|
998 |
wstring result(wstring::_Reserve_t(), str.size());
|
|
sl@0
|
999 |
copy(str.begin(), str.end(), result.begin());
|
|
sl@0
|
1000 |
# else
|
|
sl@0
|
1001 |
wstring result(str.begin(), str.end());
|
|
sl@0
|
1002 |
# endif
|
|
sl@0
|
1003 |
return result;
|
|
sl@0
|
1004 |
}
|
|
sl@0
|
1005 |
|
|
sl@0
|
1006 |
_STLP_EXP_DECLSPEC int moneypunct_byname<wchar_t, false>::do_frac_digits() const
|
|
sl@0
|
1007 |
{return _Locale_frac_digits(_M_monetary);}
|
|
sl@0
|
1008 |
|
|
sl@0
|
1009 |
# endif
|
|
sl@0
|
1010 |
|
|
sl@0
|
1011 |
_STLP_END_NAMESPACE
|
|
sl@0
|
1012 |
|
|
sl@0
|
1013 |
#include <stl/_messages_facets.h>
|
|
sl@0
|
1014 |
#include "message_facets.h"
|
|
sl@0
|
1015 |
#include <typeinfo>
|
|
sl@0
|
1016 |
|
|
sl@0
|
1017 |
_STLP_BEGIN_NAMESPACE
|
|
sl@0
|
1018 |
|
|
sl@0
|
1019 |
void _Catalog_locale_map::insert(int key, const locale& L)
|
|
sl@0
|
1020 |
{
|
|
sl@0
|
1021 |
# ifdef _STLP_NO_WCHAR_T
|
|
sl@0
|
1022 |
typedef char _Char;
|
|
sl@0
|
1023 |
# else
|
|
sl@0
|
1024 |
typedef wchar_t _Char;
|
|
sl@0
|
1025 |
# endif
|
|
sl@0
|
1026 |
#if !defined(_STLP_NO_TYPEINFO)
|
|
sl@0
|
1027 |
// Don't bother to do anything unless we're using a non-default ctype facet
|
|
sl@0
|
1028 |
_STLP_TRY {
|
|
sl@0
|
1029 |
typedef ctype<_Char> wctype;
|
|
sl@0
|
1030 |
wctype& wct = (wctype &)use_facet<wctype>(L);
|
|
sl@0
|
1031 |
wctype* zz;
|
|
sl@0
|
1032 |
if (typeid(&wct) != typeid(zz)) {
|
|
sl@0
|
1033 |
if (!M)
|
|
sl@0
|
1034 |
M = new hash_map<int, locale, hash<int>, equal_to<int> >;
|
|
sl@0
|
1035 |
|
|
sl@0
|
1036 |
#if defined(__SC__)
|
|
sl@0
|
1037 |
if (!M) delete M;
|
|
sl@0
|
1038 |
#endif
|
|
sl@0
|
1039 |
if (M->find(key) == M->end())
|
|
sl@0
|
1040 |
M->insert(pair<const int, locale>(key, L));
|
|
sl@0
|
1041 |
}
|
|
sl@0
|
1042 |
}
|
|
sl@0
|
1043 |
_STLP_CATCH_ALL {}
|
|
sl@0
|
1044 |
# endif /* _STLP_NO_TYPEINFO */
|
|
sl@0
|
1045 |
}
|
|
sl@0
|
1046 |
|
|
sl@0
|
1047 |
void _Catalog_locale_map::erase(int key)
|
|
sl@0
|
1048 |
{
|
|
sl@0
|
1049 |
if (M)
|
|
sl@0
|
1050 |
M->erase(key);
|
|
sl@0
|
1051 |
}
|
|
sl@0
|
1052 |
|
|
sl@0
|
1053 |
locale _Catalog_locale_map::lookup(int key) const
|
|
sl@0
|
1054 |
{
|
|
sl@0
|
1055 |
if (M) {
|
|
sl@0
|
1056 |
hash_map<int, locale, hash<int>, equal_to<int> >::iterator i = M->find(key);
|
|
sl@0
|
1057 |
return i != M->end() ? (*i).second : locale::classic();
|
|
sl@0
|
1058 |
}
|
|
sl@0
|
1059 |
else
|
|
sl@0
|
1060 |
return locale::classic();
|
|
sl@0
|
1061 |
}
|
|
sl@0
|
1062 |
|
|
sl@0
|
1063 |
|
|
sl@0
|
1064 |
//----------------------------------------------------------------------
|
|
sl@0
|
1065 |
//
|
|
sl@0
|
1066 |
//
|
|
sl@0
|
1067 |
|
|
sl@0
|
1068 |
_Messages_impl::_Messages_impl(bool is_wide) :
|
|
sl@0
|
1069 |
_M_message_obj(0), _M_map(0)
|
|
sl@0
|
1070 |
{
|
|
sl@0
|
1071 |
_M_delete = true;
|
|
sl@0
|
1072 |
if (is_wide)
|
|
sl@0
|
1073 |
_M_map = new _Catalog_locale_map;
|
|
sl@0
|
1074 |
_M_message_obj = __acquire_messages("C");
|
|
sl@0
|
1075 |
}
|
|
sl@0
|
1076 |
|
|
sl@0
|
1077 |
_Messages_impl::_Messages_impl(bool is_wide, _Locale_messages* msg_obj ) :
|
|
sl@0
|
1078 |
_M_message_obj(msg_obj), _M_map(0)
|
|
sl@0
|
1079 |
{
|
|
sl@0
|
1080 |
_M_delete = true;
|
|
sl@0
|
1081 |
if (is_wide)
|
|
sl@0
|
1082 |
_M_map = new _Catalog_locale_map;
|
|
sl@0
|
1083 |
}
|
|
sl@0
|
1084 |
|
|
sl@0
|
1085 |
_Messages_impl::~_Messages_impl()
|
|
sl@0
|
1086 |
{
|
|
sl@0
|
1087 |
__release_messages(_M_message_obj);
|
|
sl@0
|
1088 |
if (_M_map) delete _M_map;
|
|
sl@0
|
1089 |
}
|
|
sl@0
|
1090 |
|
|
sl@0
|
1091 |
int _Messages_impl::do_open(const string& filename, const locale& L) const
|
|
sl@0
|
1092 |
{
|
|
sl@0
|
1093 |
int result = _M_message_obj
|
|
sl@0
|
1094 |
? _Locale_catopen(_M_message_obj, filename.c_str())
|
|
sl@0
|
1095 |
: -1;
|
|
sl@0
|
1096 |
|
|
sl@0
|
1097 |
if (result >= 0 && _M_map != 0)
|
|
sl@0
|
1098 |
_M_map->insert(result, L);
|
|
sl@0
|
1099 |
|
|
sl@0
|
1100 |
return result;
|
|
sl@0
|
1101 |
}
|
|
sl@0
|
1102 |
|
|
sl@0
|
1103 |
string _Messages_impl::do_get(catalog cat,
|
|
sl@0
|
1104 |
int set, int p_id, const string& dfault) const
|
|
sl@0
|
1105 |
{
|
|
sl@0
|
1106 |
return _M_message_obj != 0 && cat >= 0
|
|
sl@0
|
1107 |
? string(_Locale_catgets(_M_message_obj, cat, set, p_id, dfault.c_str()))
|
|
sl@0
|
1108 |
: dfault;
|
|
sl@0
|
1109 |
}
|
|
sl@0
|
1110 |
|
|
sl@0
|
1111 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
1112 |
|
|
sl@0
|
1113 |
wstring
|
|
sl@0
|
1114 |
_Messages_impl::do_get(catalog thecat,
|
|
sl@0
|
1115 |
int set, int p_id, const wstring& dfault) const
|
|
sl@0
|
1116 |
{
|
|
sl@0
|
1117 |
typedef ctype<wchar_t> wctype;
|
|
sl@0
|
1118 |
const wctype& ct = use_facet<wctype>(_M_map->lookup(thecat));
|
|
sl@0
|
1119 |
|
|
sl@0
|
1120 |
const char* str = _Locale_catgets(_M_message_obj, thecat, set, p_id, "");
|
|
sl@0
|
1121 |
|
|
sl@0
|
1122 |
// Verify that the lookup failed; an empty string might represent success.
|
|
sl@0
|
1123 |
if (!str)
|
|
sl@0
|
1124 |
return dfault;
|
|
sl@0
|
1125 |
else if (str[0] == '\0') {
|
|
sl@0
|
1126 |
const char* str2 = _Locale_catgets(_M_message_obj, thecat, set, p_id, "*");
|
|
sl@0
|
1127 |
if (!str2 || strcmp(str2, "*") == 0)
|
|
sl@0
|
1128 |
return dfault;
|
|
sl@0
|
1129 |
}
|
|
sl@0
|
1130 |
|
|
sl@0
|
1131 |
// str is correct. Now we must widen it to get a wstring.
|
|
sl@0
|
1132 |
size_t n = strlen(str);
|
|
sl@0
|
1133 |
|
|
sl@0
|
1134 |
// NOT PORTABLE. What we're doing relies on internal details of the
|
|
sl@0
|
1135 |
// string implementation. (Contiguity of string elements.)
|
|
sl@0
|
1136 |
wstring result(n, wchar_t(0));
|
|
sl@0
|
1137 |
ct.widen(str, str + n, &*result.begin());
|
|
sl@0
|
1138 |
return result;
|
|
sl@0
|
1139 |
}
|
|
sl@0
|
1140 |
|
|
sl@0
|
1141 |
# endif
|
|
sl@0
|
1142 |
|
|
sl@0
|
1143 |
void _Messages_impl::do_close(catalog thecat) const
|
|
sl@0
|
1144 |
{
|
|
sl@0
|
1145 |
if (_M_message_obj)
|
|
sl@0
|
1146 |
_Locale_catclose(_M_message_obj, thecat);
|
|
sl@0
|
1147 |
if (_M_map) _M_map->erase(thecat);
|
|
sl@0
|
1148 |
}
|
|
sl@0
|
1149 |
|
|
sl@0
|
1150 |
|
|
sl@0
|
1151 |
//----------------------------------------------------------------------
|
|
sl@0
|
1152 |
// messages<char>
|
|
sl@0
|
1153 |
|
|
sl@0
|
1154 |
_STLP_EXP_DECLSPEC messages<char>::messages(size_t refs) :
|
|
sl@0
|
1155 |
_BaseFacet(refs), _M_impl(new _Messages_impl(false))
|
|
sl@0
|
1156 |
{}
|
|
sl@0
|
1157 |
|
|
sl@0
|
1158 |
_STLP_EXP_DECLSPEC messages<char>::messages(size_t refs, _Locale_messages* msg_obj) : _BaseFacet(refs),
|
|
sl@0
|
1159 |
_M_impl(new _Messages_impl(false, msg_obj))
|
|
sl@0
|
1160 |
{}
|
|
sl@0
|
1161 |
|
|
sl@0
|
1162 |
|
|
sl@0
|
1163 |
//----------------------------------------------------------------------
|
|
sl@0
|
1164 |
// messages_byname<char>
|
|
sl@0
|
1165 |
|
|
sl@0
|
1166 |
_STLP_EXP_DECLSPEC messages_byname<char>::messages_byname(const char* name, size_t refs)
|
|
sl@0
|
1167 |
: messages<char>(refs, name ? __acquire_messages(name) : 0)
|
|
sl@0
|
1168 |
{}
|
|
sl@0
|
1169 |
|
|
sl@0
|
1170 |
_STLP_EXP_DECLSPEC messages_byname<char>::~messages_byname()
|
|
sl@0
|
1171 |
{}
|
|
sl@0
|
1172 |
|
|
sl@0
|
1173 |
# ifndef _STLP_NO_WCHAR_T
|
|
sl@0
|
1174 |
|
|
sl@0
|
1175 |
//----------------------------------------------------------------------
|
|
sl@0
|
1176 |
// messages<wchar_t>
|
|
sl@0
|
1177 |
|
|
sl@0
|
1178 |
_STLP_EXP_DECLSPEC messages<wchar_t>::messages(size_t refs) :
|
|
sl@0
|
1179 |
_BaseFacet(refs), _M_impl(new _Messages_impl(true))
|
|
sl@0
|
1180 |
{}
|
|
sl@0
|
1181 |
|
|
sl@0
|
1182 |
_STLP_EXP_DECLSPEC messages<wchar_t>::messages(size_t refs, _Locale_messages* msg_obj)
|
|
sl@0
|
1183 |
: _BaseFacet(refs),
|
|
sl@0
|
1184 |
_M_impl(new _Messages_impl(true, msg_obj))
|
|
sl@0
|
1185 |
{}
|
|
sl@0
|
1186 |
|
|
sl@0
|
1187 |
//----------------------------------------------------------------------
|
|
sl@0
|
1188 |
// messages_byname<wchar_t>
|
|
sl@0
|
1189 |
|
|
sl@0
|
1190 |
|
|
sl@0
|
1191 |
_STLP_EXP_DECLSPEC messages_byname<wchar_t>::messages_byname(const char* name, size_t refs)
|
|
sl@0
|
1192 |
: messages<wchar_t>(refs, name ? __acquire_messages(name) : 0)
|
|
sl@0
|
1193 |
{}
|
|
sl@0
|
1194 |
|
|
sl@0
|
1195 |
_STLP_EXP_DECLSPEC messages_byname<wchar_t>::~messages_byname()
|
|
sl@0
|
1196 |
{}
|
|
sl@0
|
1197 |
|
|
sl@0
|
1198 |
# endif
|
|
sl@0
|
1199 |
|
|
sl@0
|
1200 |
_STLP_END_NAMESPACE
|
|
sl@0
|
1201 |
|