]> git.ipfire.org Git - thirdparty/gcc.git/blob - libstdc++-v3/src/localename.cc
Implement std::collate.
[thirdparty/gcc.git] / libstdc++-v3 / src / localename.cc
1 // Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
2 //
3 // This file is part of the GNU ISO C++ Library. This library is free
4 // software; you can redistribute it and/or modify it under the
5 // terms of the GNU General Public License as published by the
6 // Free Software Foundation; either version 2, or (at your option)
7 // any later version.
8
9 // This library is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 // GNU General Public License for more details.
13
14 // You should have received a copy of the GNU General Public License along
15 // with this library; see the file COPYING. If not, write to the Free
16 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
17 // USA.
18
19 // As a special exception, you may use this file as part of a free software
20 // library without restriction. Specifically, if other files instantiate
21 // templates or use macros or inline functions from this file, or you compile
22 // this file and link it with other files to produce an executable, this
23 // file does not by itself cause the resulting executable to be covered by
24 // the GNU General Public License. This exception does not however
25 // invalidate any other reasons why the executable file might be covered by
26 // the GNU General Public License.
27
28 #include <bits/std_clocale.h>
29 #include <bits/std_locale.h>
30 #include <bits/std_cstring.h>
31 #include <bits/std_vector.h>
32 #include <bits/std_stdexcept.h>
33
34 namespace std
35 {
36 locale::_Impl::
37 ~_Impl() throw()
38 {
39 __vec_facet::iterator it = _M_facets->begin();
40 for (; it != _M_facets->end(); ++it)
41 if (*it)
42 (*it)->_M_remove_reference();
43 delete _M_facets;
44 }
45
46 // Clone existing _Impl object.
47 locale::_Impl::
48 _Impl(const _Impl& __imp, size_t __refs)
49 : _M_references(__refs), _M_facets(0) // XXX
50 {
51 try
52 { _M_facets = new __vec_facet(*(__imp._M_facets)); }
53 catch(...)
54 {
55 delete _M_facets;
56 __throw_exception_again;
57 }
58
59 for (size_t i = 0; i < _S_num_categories; ++i)
60 _M_names[i] = __imp._M_names[i];
61
62 __vec_facet::iterator __it = _M_facets->begin();
63 for (; __it != _M_facets->end(); ++__it)
64 if (*__it)
65 (*__it)->_M_add_reference();
66 }
67
68 // Construct named _Impl, including the standard "C" locale.
69 locale::_Impl::
70 _Impl(string __str, size_t __refs)
71 : _M_references(__refs), _M_facets(0)
72 {
73 // Initialize the underlying locale model, which also checks to
74 // see if the given name is valid.
75 __c_locale __cloc = NULL;
76 if (__str != "C" && __str != "POSIX")
77 locale::facet::_S_create_c_locale(__cloc, __str.c_str());
78
79 // Allocate facet container.
80 try
81 { _M_facets = new __vec_facet(_S_num_facets, NULL); }
82 catch(...)
83 {
84 delete _M_facets;
85 __throw_exception_again;
86 }
87
88 // Name all the categories.
89 for (size_t i = 0; i < _S_num_categories; ++i)
90 _M_names[i] = __str;
91
92 // Construct all standard facets and add them to _M_facets.
93 // XXX Eventually, all should use __clocale ctor like numpunct
94 // XXX how to deal cleanly, consistently with null ("C") __cloc?
95 _M_init_facet(new std::collate<char>(__cloc));
96 _M_init_facet(new std::ctype<char>);
97 _M_init_facet(new codecvt<char, char, mbstate_t>);
98 _M_init_facet(new moneypunct<char, false>(__cloc));
99 _M_init_facet(new moneypunct<char,true>(__cloc));
100 _M_init_facet(new money_get<char>);
101 _M_init_facet(new money_put<char>);
102 _M_init_facet(new numpunct<char>(__cloc));
103 _M_init_facet(new num_get<char>);
104 _M_init_facet(new num_put<char>);
105 _M_init_facet(new time_get<char>);
106 _M_init_facet(new time_put<char>);
107 _M_init_facet(new std::messages<char>(__cloc, __str.c_str()));
108
109 #ifdef _GLIBCPP_USE_WCHAR_T
110 _M_init_facet(new std::collate<wchar_t>(__cloc));
111 _M_init_facet(new std::ctype<wchar_t>);
112 _M_init_facet(new codecvt<wchar_t, char, mbstate_t>);
113 _M_init_facet(new moneypunct<wchar_t, false>(__cloc));
114 _M_init_facet(new moneypunct<wchar_t,true>(__cloc));
115 _M_init_facet(new money_get<wchar_t>);
116 _M_init_facet(new money_put<wchar_t>);
117 _M_init_facet(new numpunct<wchar_t>(__cloc));
118 _M_init_facet(new num_get<wchar_t>);
119 _M_init_facet(new num_put<wchar_t>);
120 _M_init_facet(new time_get<wchar_t>);
121 _M_init_facet(new time_put<wchar_t>);
122 _M_init_facet(new std::messages<wchar_t>(__cloc, __str.c_str()));
123 #endif
124 locale::facet::_S_destroy_c_locale(__cloc);
125 }
126
127 void
128 locale::_Impl::
129 _M_replace_categories(const _Impl* __imp, category __cat)
130 {
131 const string __none("*");
132 category __mask;
133 for (unsigned int __ix = 0; __ix < _S_num_categories; ++__ix)
134 {
135 __mask = 1 << __ix;
136 if (__mask & __cat)
137 {
138 // Need to replace entry in _M_facets with other locale's info.
139 _M_replace_category(__imp, _S_facet_categories[__ix]);
140 // If both have names, go ahead and mangle.
141 if (_M_names[__ix] != __none && __imp->_M_names[__ix] != __none)
142 _M_names[__ix] = __imp->_M_names[__ix];
143 }
144 }
145 }
146
147 void
148 locale::_Impl::
149 _M_replace_category(const _Impl* __imp, const locale::id* const* __idpp)
150 {
151 for (; *__idpp; ++__idpp)
152 _M_replace_facet(__imp, *__idpp);
153 }
154
155 void
156 locale::_Impl::
157 _M_replace_facet(const _Impl* __imp, const locale::id* __idp)
158 {
159 size_t __index = __idp->_M_index;
160 if (__index == 0
161 || __imp->_M_facets->size() <= __index
162 || (*(__imp->_M_facets))[__index] == 0)
163 __throw_runtime_error("no locale facet");
164
165 _M_install_facet(__idp, (*(__imp->_M_facets))[__index]);
166 }
167
168 void
169 locale::_Impl::
170 _M_install_facet(const locale::id* __idp, facet* __fp)
171 {
172 if (__fp)
173 {
174 size_t& __index = __idp->_M_index;
175 if (!__index)
176 __index = ++locale::id::_S_highwater; // XXX MT
177
178 if (__index >= _M_facets->size())
179 _M_facets->resize(__index + 1, 0); // might throw
180
181 facet*& __fpr = (*_M_facets)[__index];
182 if (__fpr)
183 {
184 // Replacing an existing facet.
185 // Order matters, here:
186 __fp->_M_add_reference();
187 __fpr->_M_remove_reference();
188 __fpr = __fp;
189 }
190 else
191 {
192 // Installing a newly created facet into an empty
193 // _M_facets container, say a newly-constructed,
194 // swanky-fresh _Impl.
195 (*_M_facets)[__index] = __fp;
196 }
197 }
198 }
199 } // namespace std