// std::numpunct implementation details, GNU version -*- C++ -*- // Copyright (C) 2001-2022 Free Software Foundation, Inc. // // This file is part of the GNU ISO C++ Library. This library is free // software; you can redistribute it and/or modify it under the // terms of the GNU General Public License as published by the // Free Software Foundation; either version 3, or (at your option) // any later version. // This library is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // Under Section 7 of GPL version 3, you are granted additional // permissions described in the GCC Runtime Library Exception, version // 3.1, as published by the Free Software Foundation. // You should have received a copy of the GNU General Public License and // a copy of the GCC Runtime Library Exception along with this program; // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see // . // // ISO C++ 14882: 22.2.3.1.2 numpunct virtual functions // // Written by Benjamin Kosnik #include #include #include namespace std _GLIBCXX_VISIBILITY(default) { _GLIBCXX_BEGIN_NAMESPACE_VERSION extern char __narrow_multibyte_chars(const char* s, __locale_t cloc); // This file might be compiled twice, but we only want to define this once. #if ! _GLIBCXX_USE_CXX11_ABI char __narrow_multibyte_chars(const char* s, __locale_t cloc) { const char* codeset = __nl_langinfo_l(CODESET, cloc); if (!strcmp(codeset, "UTF-8")) { // optimize for some known cases if (!strcmp(s, "\u202F")) // NARROW NO-BREAK SPACE return ' '; if (!strcmp(s, "\u2019")) // RIGHT SINGLE QUOTATION MARK return '\''; if (!strcmp(s, "\u066C")) // ARABIC THOUSANDS SEPARATOR return '\''; } iconv_t cd = iconv_open("ASCII//TRANSLIT", codeset); if (cd != (iconv_t)-1) { char c1; size_t inbytesleft = strlen(s); size_t outbytesleft = 1; char* inbuf = const_cast(s); char* outbuf = &c1; size_t n = iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft); iconv_close(cd); if (n != (size_t)-1) { cd = iconv_open(codeset, "ASCII"); if (cd != (iconv_t)-1) { char c2; inbuf = &c1; inbytesleft = 1; outbuf = &c2; outbytesleft = 1; n = iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft); iconv_close(cd); if (n != (size_t)-1) return c2; } } } return '\0'; } #endif template<> void numpunct::_M_initialize_numpunct(__c_locale __cloc) { if (!_M_data) _M_data = new __numpunct_cache; if (!__cloc) { // "C" locale _M_data->_M_grouping = ""; _M_data->_M_grouping_size = 0; _M_data->_M_use_grouping = false; _M_data->_M_decimal_point = '.'; _M_data->_M_thousands_sep = ','; for (size_t __i = 0; __i < __num_base::_S_oend; ++__i) _M_data->_M_atoms_out[__i] = __num_base::_S_atoms_out[__i]; for (size_t __j = 0; __j < __num_base::_S_iend; ++__j) _M_data->_M_atoms_in[__j] = __num_base::_S_atoms_in[__j]; } else { // Named locale. _M_data->_M_decimal_point = *(__nl_langinfo_l(DECIMAL_POINT, __cloc)); const char* thousands_sep = __nl_langinfo_l(THOUSANDS_SEP, __cloc); if (thousands_sep[0] != '\0' && thousands_sep[1] != '\0') _M_data->_M_thousands_sep = __narrow_multibyte_chars(thousands_sep, __cloc); else _M_data->_M_thousands_sep = *thousands_sep; // Check for NULL, which implies no grouping. if (_M_data->_M_thousands_sep == '\0') { // Like in "C" locale. _M_data->_M_grouping = ""; _M_data->_M_grouping_size = 0; _M_data->_M_use_grouping = false; _M_data->_M_thousands_sep = ','; } else { const char* __src = __nl_langinfo_l(GROUPING, __cloc); const size_t __len = strlen(__src); if (__len) { __try { char* __dst = new char[__len + 1]; memcpy(__dst, __src, __len + 1); _M_data->_M_grouping = __dst; } __catch(...) { delete _M_data; _M_data = 0; __throw_exception_again; } } else { _M_data->_M_grouping = ""; _M_data->_M_use_grouping = false; } _M_data->_M_grouping_size = __len; } } // NB: There is no way to extact this info from posix locales. // _M_truename = __nl_langinfo_l(YESSTR, __cloc); _M_data->_M_truename = "true"; _M_data->_M_truename_size = 4; // _M_falsename = __nl_langinfo_l(NOSTR, __cloc); _M_data->_M_falsename = "false"; _M_data->_M_falsename_size = 5; } template<> numpunct::~numpunct() { if (_M_data->_M_grouping_size) delete [] _M_data->_M_grouping; delete _M_data; } #ifdef _GLIBCXX_USE_WCHAR_T template<> void numpunct::_M_initialize_numpunct(__c_locale __cloc) { if (!_M_data) _M_data = new __numpunct_cache; if (!__cloc) { // "C" locale _M_data->_M_grouping = ""; _M_data->_M_grouping_size = 0; _M_data->_M_use_grouping = false; _M_data->_M_decimal_point = L'.'; _M_data->_M_thousands_sep = L','; // Use ctype::widen code without the facet... for (size_t __i = 0; __i < __num_base::_S_oend; ++__i) _M_data->_M_atoms_out[__i] = static_cast(__num_base::_S_atoms_out[__i]); for (size_t __j = 0; __j < __num_base::_S_iend; ++__j) _M_data->_M_atoms_in[__j] = static_cast(__num_base::_S_atoms_in[__j]); } else { // Named locale. // NB: In the GNU model wchar_t is always 32 bit wide. union { char *__s; wchar_t __w; } __u; __u.__s = __nl_langinfo_l(_NL_NUMERIC_DECIMAL_POINT_WC, __cloc); _M_data->_M_decimal_point = __u.__w; __u.__s = __nl_langinfo_l(_NL_NUMERIC_THOUSANDS_SEP_WC, __cloc); _M_data->_M_thousands_sep = __u.__w; // Check for NULL, which implies no grouping. if (_M_data->_M_thousands_sep == L'\0') { // Like in "C" locale. _M_data->_M_grouping = ""; _M_data->_M_grouping_size = 0; _M_data->_M_use_grouping = false; _M_data->_M_thousands_sep = L','; } else { const char* __src = __nl_langinfo_l(GROUPING, __cloc); const size_t __len = strlen(__src); if (__len) { __try { char* __dst = new char[__len + 1]; memcpy(__dst, __src, __len + 1); _M_data->_M_grouping = __dst; } __catch(...) { delete _M_data; _M_data = 0; __throw_exception_again; } } else { _M_data->_M_grouping = ""; _M_data->_M_use_grouping = false; } _M_data->_M_grouping_size = __len; } } // NB: There is no way to extact this info from posix locales. // _M_truename = __nl_langinfo_l(YESSTR, __cloc); _M_data->_M_truename = L"true"; _M_data->_M_truename_size = 4; // _M_falsename = __nl_langinfo_l(NOSTR, __cloc); _M_data->_M_falsename = L"false"; _M_data->_M_falsename_size = 5; } template<> numpunct::~numpunct() { if (_M_data->_M_grouping_size) delete [] _M_data->_M_grouping; delete _M_data; } #endif _GLIBCXX_END_NAMESPACE_VERSION } // namespace