// std::codecvt implementation details, DragonFly version -*- C++ -*- // Copyright (C) 2015-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.1.5 - Template class codecvt // // Written by Benjamin Kosnik // Modified for DragonFly by John Marino #include #include #include // For MB_CUR_MAX #include // For MB_LEN_MAX #include "xlocale_port.h" namespace std _GLIBCXX_VISIBILITY(default) { _GLIBCXX_BEGIN_NAMESPACE_VERSION // Specializations. #ifdef _GLIBCXX_USE_WCHAR_T codecvt_base::result codecvt:: do_out(state_type& __state, const intern_type* __from, const intern_type* __from_end, const intern_type*& __from_next, extern_type* __to, extern_type* __to_end, extern_type*& __to_next) const { result __ret = ok; state_type __tmp_state(__state); // wcsnrtombs is *very* fast but stops if encounters NUL characters: // in case we fall back to wcrtomb and then continue, in a loop. // NB: wcsnrtombs is a GNU extension for (__from_next = __from, __to_next = __to; __from_next < __from_end && __to_next < __to_end && __ret == ok;) { const intern_type* __from_chunk_end = wmemchr(__from_next, L'\0', __from_end - __from_next); if (!__from_chunk_end) __from_chunk_end = __from_end; __from = __from_next; const size_t __conv = wcsnrtombs_l(__to_next, &__from_next, __from_chunk_end - __from_next, __to_end - __to_next, &__state, (locale_t)_M_c_locale_codecvt); if (__conv == static_cast(-1)) { // In case of error, in order to stop at the exact place we // have to start again from the beginning with a series of // wcrtomb. for (; __from < __from_next; ++__from) __to_next += wcrtomb_l(__to_next, *__from, &__tmp_state, (locale_t)_M_c_locale_codecvt); __state = __tmp_state; __ret = error; } else if (__from_next && __from_next < __from_chunk_end) { __to_next += __conv; __ret = partial; } else { __from_next = __from_chunk_end; __to_next += __conv; } if (__from_next < __from_end && __ret == ok) { extern_type __buf[MB_LEN_MAX]; __tmp_state = __state; const size_t __conv2 = wcrtomb_l(__buf, *__from_next, &__tmp_state, (locale_t)_M_c_locale_codecvt); if (__conv2 > static_cast(__to_end - __to_next)) __ret = partial; else { memcpy(__to_next, __buf, __conv2); __state = __tmp_state; __to_next += __conv2; ++__from_next; } } } return __ret; } codecvt_base::result codecvt:: do_in(state_type& __state, const extern_type* __from, const extern_type* __from_end, const extern_type*& __from_next, intern_type* __to, intern_type* __to_end, intern_type*& __to_next) const { result __ret = ok; state_type __tmp_state(__state); // mbsnrtowcs is *very* fast but stops if encounters NUL characters: // in case we store a L'\0' and then continue, in a loop. // NB: mbsnrtowcs is a GNU extension for (__from_next = __from, __to_next = __to; __from_next < __from_end && __to_next < __to_end && __ret == ok;) { const extern_type* __from_chunk_end; __from_chunk_end = static_cast(memchr(__from_next, '\0', __from_end - __from_next)); if (!__from_chunk_end) __from_chunk_end = __from_end; __from = __from_next; size_t __conv = mbsnrtowcs_l(__to_next, &__from_next, __from_chunk_end - __from_next, __to_end - __to_next, &__state, (locale_t)_M_c_locale_codecvt); if (__conv == static_cast(-1)) { // In case of error, in order to stop at the exact place we // have to start again from the beginning with a series of // mbrtowc. for (;; ++__to_next, __from += __conv) { __conv = mbrtowc_l(__to_next, __from, __from_end - __from, &__tmp_state, (locale_t)_M_c_locale_codecvt); if (__conv == static_cast(-1) || __conv == static_cast(-2)) break; } __from_next = __from; __state = __tmp_state; __ret = error; } else if (__from_next && __from_next < __from_chunk_end) { // It is unclear what to return in this case (see DR 382). __to_next += __conv; __ret = partial; } else { __from_next = __from_chunk_end; __to_next += __conv; } if (__from_next < __from_end && __ret == ok) { if (__to_next < __to_end) { // XXX Probably wrong for stateful encodings __tmp_state = __state; ++__from_next; *__to_next++ = L'\0'; } else __ret = partial; } } return __ret; } int codecvt:: do_encoding() const throw() { // XXX This implementation assumes that the encoding is // stateless and is either single-byte or variable-width. return MB_CUR_MAX_L((locale_t)_M_c_locale_codecvt) == 1 ? 1 : 0; } int codecvt:: do_max_length() const throw() { // XXX Probably wrong for stateful encodings. return MB_CUR_MAX_L((locale_t)_M_c_locale_codecvt); } int codecvt:: do_length(state_type& __state, const extern_type* __from, const extern_type* __end, size_t __max) const { int __ret = 0; state_type __tmp_state(__state); // mbsnrtowcs is *very* fast but stops if encounters NUL characters: // in case we advance past it and then continue, in a loop. // NB: mbsnrtowcs is a GNU extension // A dummy internal buffer is needed in order for mbsnrtocws to consider // its fourth parameter (it wouldn't with NULL as first parameter). wchar_t* __to = static_cast(__builtin_alloca(sizeof(wchar_t) * __max)); while (__from < __end && __max) { const extern_type* __from_chunk_end; __from_chunk_end = static_cast(memchr(__from, '\0', __end - __from)); if (!__from_chunk_end) __from_chunk_end = __end; const extern_type* __tmp_from = __from; size_t __conv = mbsnrtowcs_l(__to, &__from, __from_chunk_end - __from, __max, &__state, (locale_t)_M_c_locale_codecvt); if (__conv == static_cast(-1)) { // In case of error, in order to stop at the exact place we // have to start again from the beginning with a series of // mbrtowc. for (__from = __tmp_from;; __from += __conv) { __conv = mbrtowc_l(0, __from, __end - __from, &__tmp_state, (locale_t)_M_c_locale_codecvt); if (__conv == static_cast(-1) || __conv == static_cast(-2)) break; } __state = __tmp_state; __ret += __from - __tmp_from; break; } if (!__from) __from = __from_chunk_end; __ret += __from - __tmp_from; __max -= __conv; if (__from < __end && __max) { // XXX Probably wrong for stateful encodings __tmp_state = __state; ++__from; ++__ret; --__max; } } return __ret; } #endif _GLIBCXX_END_NAMESPACE_VERSION } // namespace