1// Locale support -*- C++ -*-
2
3// Copyright (C) 2007-2019 Free Software Foundation, Inc.
4//
5// This file is part of the GNU ISO C++ Library. This library is free
6// software; you can redistribute it and/or modify it under the
7// terms of the GNU General Public License as published by the
8// Free Software Foundation; either version 3, or (at your option)
9// any later version.
10
11// This library is distributed in the hope that it will be useful,
12// but WITHOUT ANY WARRANTY; without even the implied warranty of
13// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14// GNU General Public License for more details.
15
16// Under Section 7 of GPL version 3, you are granted additional
17// permissions described in the GCC Runtime Library Exception, version
18// 3.1, as published by the Free Software Foundation.
19
20// You should have received a copy of the GNU General Public License and
21// a copy of the GCC Runtime Library Exception along with this program;
22// see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23// <http://www.gnu.org/licenses/>.
24
25/** @file bits/locale_classes.tcc
26 * This is an internal header file, included by other library headers.
27 * Do not attempt to use it directly. @headername{locale}
28 */
29
30//
31// ISO C++ 14882: 22.1 Locales
32//
33
34#ifndef _LOCALE_CLASSES_TCC
35#define _LOCALE_CLASSES_TCC 1
36
37#pragma GCC system_header
38
39namespace std _GLIBCXX_VISIBILITY(default)
40{
41_GLIBCXX_BEGIN_NAMESPACE_VERSION
42
43 template<typename _Facet>
44 locale::
45 locale(const locale& __other, _Facet* __f)
46 {
47 _M_impl = new _Impl(*__other._M_impl, 1);
48
49 __try
50 { _M_impl->_M_install_facet(&_Facet::id, __f); }
51 __catch(...)
52 {
53 _M_impl->_M_remove_reference();
54 __throw_exception_again;
55 }
56 delete [] _M_impl->_M_names[0];
57 _M_impl->_M_names[0] = 0; // Unnamed.
58 }
59
60 template<typename _Facet>
61 locale
62 locale::
63 combine(const locale& __other) const
64 {
65 _Impl* __tmp = new _Impl(*_M_impl, 1);
66 __try
67 {
68 __tmp->_M_replace_facet(__other._M_impl, &_Facet::id);
69 }
70 __catch(...)
71 {
72 __tmp->_M_remove_reference();
73 __throw_exception_again;
74 }
75 return locale(__tmp);
76 }
77
78 template<typename _CharT, typename _Traits, typename _Alloc>
79 bool
80 locale::
81 operator()(const basic_string<_CharT, _Traits, _Alloc>& __s1,
82 const basic_string<_CharT, _Traits, _Alloc>& __s2) const
83 {
84 typedef std::collate<_CharT> __collate_type;
85 const __collate_type& __collate = use_facet<__collate_type>(*this);
86 return (__collate.compare(__s1.data(), __s1.data() + __s1.length(),
87 __s2.data(), __s2.data() + __s2.length()) < 0);
88 }
89
90 /**
91 * @brief Test for the presence of a facet.
92 * @ingroup locales
93 *
94 * has_facet tests the locale argument for the presence of the facet type
95 * provided as the template parameter. Facets derived from the facet
96 * parameter will also return true.
97 *
98 * @tparam _Facet The facet type to test the presence of.
99 * @param __loc The locale to test.
100 * @return true if @p __loc contains a facet of type _Facet, else false.
101 */
102 template<typename _Facet>
103 bool
104 has_facet(const locale& __loc) throw()
105 {
106 const size_t __i = _Facet::id._M_id();
107 const locale::facet** __facets = __loc._M_impl->_M_facets;
108 return (__i < __loc._M_impl->_M_facets_size
109#if __cpp_rtti
110 && dynamic_cast<const _Facet*>(__facets[__i]));
111#else
112 && static_cast<const _Facet*>(__facets[__i]));
113#endif
114 }
115
116 /**
117 * @brief Return a facet.
118 * @ingroup locales
119 *
120 * use_facet looks for and returns a reference to a facet of type Facet
121 * where Facet is the template parameter. If has_facet(locale) is true,
122 * there is a suitable facet to return. It throws std::bad_cast if the
123 * locale doesn't contain a facet of type Facet.
124 *
125 * @tparam _Facet The facet type to access.
126 * @param __loc The locale to use.
127 * @return Reference to facet of type Facet.
128 * @throw std::bad_cast if @p __loc doesn't contain a facet of type _Facet.
129 */
130 template<typename _Facet>
131 const _Facet&
132 use_facet(const locale& __loc)
133 {
134 const size_t __i = _Facet::id._M_id();
135 const locale::facet** __facets = __loc._M_impl->_M_facets;
136 if (__i >= __loc._M_impl->_M_facets_size || !__facets[__i])
137 __throw_bad_cast();
138#if __cpp_rtti
139 return dynamic_cast<const _Facet&>(*__facets[__i]);
140#else
141 return static_cast<const _Facet&>(*__facets[__i]);
142#endif
143 }
144
145
146 // Generic version does nothing.
147 template<typename _CharT>
148 int
149 collate<_CharT>::_M_compare(const _CharT*, const _CharT*) const throw ()
150 { return 0; }
151
152 // Generic version does nothing.
153 template<typename _CharT>
154 size_t
155 collate<_CharT>::_M_transform(_CharT*, const _CharT*, size_t) const throw ()
156 { return 0; }
157
158 template<typename _CharT>
159 int
160 collate<_CharT>::
161 do_compare(const _CharT* __lo1, const _CharT* __hi1,
162 const _CharT* __lo2, const _CharT* __hi2) const
163 {
164 // strcoll assumes zero-terminated strings so we make a copy
165 // and then put a zero at the end.
166 const string_type __one(__lo1, __hi1);
167 const string_type __two(__lo2, __hi2);
168
169 const _CharT* __p = __one.c_str();
170 const _CharT* __pend = __one.data() + __one.length();
171 const _CharT* __q = __two.c_str();
172 const _CharT* __qend = __two.data() + __two.length();
173
174 // strcoll stops when it sees a nul character so we break
175 // the strings into zero-terminated substrings and pass those
176 // to strcoll.
177 for (;;)
178 {
179 const int __res = _M_compare(__p, __q);
180 if (__res)
181 return __res;
182
183 __p += char_traits<_CharT>::length(__p);
184 __q += char_traits<_CharT>::length(__q);
185 if (__p == __pend && __q == __qend)
186 return 0;
187 else if (__p == __pend)
188 return -1;
189 else if (__q == __qend)
190 return 1;
191
192 __p++;
193 __q++;
194 }
195 }
196
197 template<typename _CharT>
198 typename collate<_CharT>::string_type
199 collate<_CharT>::
200 do_transform(const _CharT* __lo, const _CharT* __hi) const
201 {
202 string_type __ret;
203
204 // strxfrm assumes zero-terminated strings so we make a copy
205 const string_type __str(__lo, __hi);
206
207 const _CharT* __p = __str.c_str();
208 const _CharT* __pend = __str.data() + __str.length();
209
210 size_t __len = (__hi - __lo) * 2;
211
212 _CharT* __c = new _CharT[__len];
213
214 __try
215 {
216 // strxfrm stops when it sees a nul character so we break
217 // the string into zero-terminated substrings and pass those
218 // to strxfrm.
219 for (;;)
220 {
221 // First try a buffer perhaps big enough.
222 size_t __res = _M_transform(__c, __p, __len);
223 // If the buffer was not large enough, try again with the
224 // correct size.
225 if (__res >= __len)
226 {
227 __len = __res + 1;
228 delete [] __c, __c = 0;
229 __c = new _CharT[__len];
230 __res = _M_transform(__c, __p, __len);
231 }
232
233 __ret.append(__c, __res);
234 __p += char_traits<_CharT>::length(__p);
235 if (__p == __pend)
236 break;
237
238 __p++;
239 __ret.push_back(_CharT());
240 }
241 }
242 __catch(...)
243 {
244 delete [] __c;
245 __throw_exception_again;
246 }
247
248 delete [] __c;
249
250 return __ret;
251 }
252
253 template<typename _CharT>
254 long
255 collate<_CharT>::
256 do_hash(const _CharT* __lo, const _CharT* __hi) const
257 {
258 unsigned long __val = 0;
259 for (; __lo < __hi; ++__lo)
260 __val =
261 *__lo + ((__val << 7)
262 | (__val >> (__gnu_cxx::__numeric_traits<unsigned long>::
263 __digits - 7)));
264 return static_cast<long>(__val);
265 }
266
267 // Inhibit implicit instantiations for required instantiations,
268 // which are defined via explicit instantiations elsewhere.
269#if _GLIBCXX_EXTERN_TEMPLATE
270 extern template class collate<char>;
271 extern template class collate_byname<char>;
272
273 extern template
274 const collate<char>&
275 use_facet<collate<char> >(const locale&);
276
277 extern template
278 bool
279 has_facet<collate<char> >(const locale&);
280
281#ifdef _GLIBCXX_USE_WCHAR_T
282 extern template class collate<wchar_t>;
283 extern template class collate_byname<wchar_t>;
284
285 extern template
286 const collate<wchar_t>&
287 use_facet<collate<wchar_t> >(const locale&);
288
289 extern template
290 bool
291 has_facet<collate<wchar_t> >(const locale&);
292#endif
293#endif
294
295_GLIBCXX_END_NAMESPACE_VERSION
296} // namespace std
297
298#endif
299