1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
2 // Free Software Foundation, Inc.
4 // This file is part of the GNU ISO C++ Library. This library is free
5 // software; you can redistribute it and/or modify it under the
6 // terms of the GNU General Public License as published by the
7 // Free Software Foundation; either version 2, or (at your option)
10 // This library is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 // GNU General Public License for more details.
15 // You should have received a copy of the GNU General Public License along
16 // with this library; see the file COPYING. If not, write to the Free
17 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20 // As a special exception, you may use this file as part of a free software
21 // library without restriction. Specifically, if other files instantiate
22 // templates or use macros or inline functions from this file, or you compile
23 // this file and link it with other files to produce an executable, this
24 // file does not by itself cause the resulting executable to be covered by
25 // the GNU General Public License. This exception does not however
26 // invalidate any other reasons why the executable file might be covered by
27 // the GNU General Public License.
35 using namespace __gnu_cxx
;
37 locale::locale(const char* __s
) : _M_impl(0)
42 if (std::strcmp(__s
, "C") == 0 || std::strcmp(__s
, "POSIX") == 0)
43 (_M_impl
= _S_classic
)->_M_add_reference();
44 else if (std::strcmp(__s
, "") != 0)
45 _M_impl
= new _Impl(__s
, 1);
48 // Get it from the environment.
49 char* __env
= std::getenv("LC_ALL");
50 // If LC_ALL is set we are done.
51 if (__env
&& std::strcmp(__env
, "") != 0)
53 if (std::strcmp(__env
, "C") == 0
54 || std::strcmp(__env
, "POSIX") == 0)
55 (_M_impl
= _S_classic
)->_M_add_reference();
57 _M_impl
= new _Impl(__env
, 1);
61 // LANG may set a default different from "C".
63 char* __env
= std::getenv("LANG");
64 if (!__env
|| std::strcmp(__env
, "") == 0
65 || std::strcmp(__env
, "C") == 0
66 || std::strcmp(__env
, "POSIX") == 0)
71 // Scan the categories looking for the first one
72 // different from LANG.
75 for (; __i
< _S_categories_size
; ++__i
)
77 __env
= std::getenv(_S_categories
[__i
]);
78 if (__env
&& std::strcmp(__env
, "") != 0
79 && std::strcmp(__env
, "C") != 0
80 && std::strcmp(__env
, "POSIX") != 0)
84 for (; __i
< _S_categories_size
; ++__i
)
86 __env
= std::getenv(_S_categories
[__i
]);
87 if (__env
&& std::strcmp(__env
, "") != 0
92 // If one is found, build the complete string of
93 // the form LC_CTYPE=xxx;LC_NUMERIC=yyy; and so on...
94 if (__i
< _S_categories_size
)
98 for (size_t __j
= 0; __j
< __i
; ++__j
)
100 __str
+= _S_categories
[__j
];
105 __str
+= _S_categories
[__i
];
110 for (; __i
< _S_categories_size
; ++__i
)
112 __env
= std::getenv(_S_categories
[__i
]);
113 if (!__env
|| std::strcmp(__env
, "") == 0)
115 __str
+= _S_categories
[__i
];
120 else if (std::strcmp(__env
, "C") == 0
121 || std::strcmp(__env
, "POSIX") == 0)
123 __str
+= _S_categories
[__i
];
128 __str
+= _S_categories
[__i
];
134 __str
.erase(__str
.end() - 1);
135 _M_impl
= new _Impl(__str
.c_str(), 1);
137 // ... otherwise either an additional instance of
138 // the "C" locale or LANG.
139 else if (__res
== "C")
140 (_M_impl
= _S_classic
)->_M_add_reference();
142 _M_impl
= new _Impl(__res
.c_str(), 1);
147 __throw_runtime_error(__N("locale::locale NULL not valid"));
150 locale::locale(const locale
& __base
, const char* __s
, category __cat
)
153 // NB: There are complicated, yet more efficient ways to do
154 // this. Building up locales on a per-category way is tedious, so
155 // let's do it this way until people complain.
157 _M_coalesce(__base
, __add
, __cat
);
160 locale::locale(const locale
& __base
, const locale
& __add
, category __cat
)
162 { _M_coalesce(__base
, __add
, __cat
); }
165 locale::_M_coalesce(const locale
& __base
, const locale
& __add
,
168 __cat
= _S_normalize_category(__cat
);
169 _M_impl
= new _Impl(*__base
._M_impl
, 1);
172 { _M_impl
->_M_replace_categories(__add
._M_impl
, __cat
); }
175 _M_impl
->_M_remove_reference();
176 __throw_exception_again
;
180 // Construct named _Impl.
182 _Impl(const char* __s
, size_t __refs
)
183 : _M_refcount(__refs
), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS
),
184 _M_caches(0), _M_names(0)
186 // Initialize the underlying locale model, which also checks to
187 // see if the given name is valid.
189 locale::facet::_S_create_c_locale(__cloc
, __s
);
193 _M_facets
= new const facet
*[_M_facets_size
];
194 for (size_t __i
= 0; __i
< _M_facets_size
; ++__i
)
196 _M_caches
= new const facet
*[_M_facets_size
];
197 for (size_t __j
= 0; __j
< _M_facets_size
; ++__j
)
199 _M_names
= new char*[_S_categories_size
];
200 for (size_t __k
= 0; __k
< _S_categories_size
; ++__k
)
203 // Name the categories.
204 const size_t __len
= std::strlen(__s
);
205 if (!std::strchr(__s
, ';'))
207 _M_names
[0] = new char[__len
+ 1];
208 std::memcpy(_M_names
[0], __s
, __len
+ 1);
212 const char* __end
= __s
;
213 for (size_t __i
= 0; __i
< _S_categories_size
; ++__i
)
215 const char* __beg
= std::strchr(__end
+ 1, '=') + 1;
216 __end
= std::strchr(__beg
, ';');
219 _M_names
[__i
] = new char[__end
- __beg
+ 1];
220 std::memcpy(_M_names
[__i
], __beg
, __end
- __beg
);
221 _M_names
[__i
][__end
- __beg
] = '\0';
225 // Construct all standard facets and add them to _M_facets.
226 _M_init_facet(new std::ctype
<char>(__cloc
, 0, false));
227 _M_init_facet(new codecvt
<char, char, mbstate_t>(__cloc
));
228 _M_init_facet(new numpunct
<char>(__cloc
));
229 _M_init_facet(new num_get
<char>);
230 _M_init_facet(new num_put
<char>);
231 _M_init_facet(new std::collate
<char>(__cloc
));
232 _M_init_facet(new moneypunct
<char, false>(__cloc
, __s
));
233 _M_init_facet(new moneypunct
<char, true>(__cloc
, __s
));
234 _M_init_facet(new money_get
<char>);
235 _M_init_facet(new money_put
<char>);
236 _M_init_facet(new __timepunct
<char>(__cloc
, __s
));
237 _M_init_facet(new time_get
<char>);
238 _M_init_facet(new time_put
<char>);
239 _M_init_facet(new std::messages
<char>(__cloc
, __s
));
241 #ifdef _GLIBCXX_USE_WCHAR_T
242 _M_init_facet(new std::ctype
<wchar_t>(__cloc
));
243 _M_init_facet(new codecvt
<wchar_t, char, mbstate_t>(__cloc
));
244 _M_init_facet(new numpunct
<wchar_t>(__cloc
));
245 _M_init_facet(new num_get
<wchar_t>);
246 _M_init_facet(new num_put
<wchar_t>);
247 _M_init_facet(new std::collate
<wchar_t>(__cloc
));
248 _M_init_facet(new moneypunct
<wchar_t, false>(__cloc
, __s
));
249 _M_init_facet(new moneypunct
<wchar_t, true>(__cloc
, __s
));
250 _M_init_facet(new money_get
<wchar_t>);
251 _M_init_facet(new money_put
<wchar_t>);
252 _M_init_facet(new __timepunct
<wchar_t>(__cloc
, __s
));
253 _M_init_facet(new time_get
<wchar_t>);
254 _M_init_facet(new time_put
<wchar_t>);
255 _M_init_facet(new std::messages
<wchar_t>(__cloc
, __s
));
257 locale::facet::_S_destroy_c_locale(__cloc
);
261 locale::facet::_S_destroy_c_locale(__cloc
);
263 __throw_exception_again
;
269 _M_replace_categories(const _Impl
* __imp
, category __cat
)
272 const bool __have_names
= _M_names
[0] && __imp
->_M_names
[0];
273 for (size_t __ix
= 0; __ix
< _S_categories_size
; ++__ix
, __mask
<<= 1)
277 // Need to replace entry in _M_facets with other locale's info.
278 _M_replace_category(__imp
, _S_facet_categories
[__ix
]);
279 // If both have names, go ahead and mangle.
284 // A full set of _M_names must be prepared, all identical
285 // to _M_names[0] to begin with. Then, below, a few will
286 // be replaced by the corresponding __imp->_M_names. I.e.,
287 // not a "simple" locale anymore (see locale::operator==).
288 const size_t __len
= std::strlen(_M_names
[0]) + 1;
289 for (size_t __i
= 1; __i
< _S_categories_size
; ++__i
)
291 _M_names
[__i
] = new char[__len
];
292 std::memcpy(_M_names
[__i
], _M_names
[0], __len
);
295 char* __src
= __imp
->_M_names
[__ix
] ? __imp
->_M_names
[__ix
]
296 : __imp
->_M_names
[0];
297 const size_t __len
= std::strlen(__src
) + 1;
298 char* __new
= new char[__len
];
299 std::memcpy(__new
, __src
, __len
);
300 delete [] _M_names
[__ix
];
301 _M_names
[__ix
] = __new
;