lib/mbsnrtoc32s.c

   1 /* Convert string to 32-bit wide string.
   2    Copyright (C) 2020-2024 Free Software Foundation, Inc.
   3    Written by Bruno Haible <bruno@clisp.org>, 2020.
   4
   5    This file is free software: you can redistribute it and/or modify
   6    it under the terms of the GNU Lesser General Public License as
   7    published by the Free Software Foundation, either version 3 of the
   8    License, or (at your option) any later version.
   9
  10    This file 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 Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public License
  16    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  17
  18 #include <config.h>
  19
  20 #define IN_MBSNRTOC32S
  21 /* Specification.  */
  22 #include <uchar.h>
  23
  24 #include <wchar.h>
  25
  26 #if (HAVE_WORKING_MBRTOC32 && !_GL_WCHAR_T_IS_UCS4) || (GL_CHAR32_T_IS_UNICODE && GL_CHAR32_T_VS_WCHAR_T_NEEDS_CONVERSION) || _GL_SMALL_WCHAR_T
  27 /* The char32_t encoding of a multibyte character may be different than its
  28    wchar_t encoding, or char32_t is wider than wchar_t.  */
  29
  30 /* For Cygwin >= 1.7 it would be possible to speed this up a bit by cutting
  31    the source into chunks, calling mbsnrtowcs on a chunk, then u16_to_u32 on
  32    the result, then proceed with the next chunk, and so on.
  33    But speed is not critical here so far.  */
  34
  35 /* Reuse the implementation of mbsnrtowcs with a different parameterization.  */
  36
  37 # include <errno.h>
  38 # include <limits.h>
  39 # include <stdlib.h>
  40
  41 # include "minmax.h"
  42 # include "strnlen1.h"
  43
  44 extern mbstate_t _gl_mbsrtoc32s_state;
  45
  46 # define FUNC mbsnrtoc32s
  47 # define DCHAR_T char32_t
  48 # define INTERNAL_STATE _gl_mbsrtoc32s_state
  49 # define MBRTOWC mbrtoc32
  50 # if GNULIB_MBRTOC32_REGULAR
  51    /* If the 'mbrtoc32-regular' module is in use, we don't need to handle
  52       a (size_t)(-3) return value from mbrtoc32.  */
  53 #  define USES_C32 0
  54 # else
  55 #  define USES_C32 1
  56 # endif
  57 # include "mbsnrtowcs-impl.h"
  58
  59 #else
  60 /* char32_t and wchar_t are equivalent.  */
  61
  62 static_assert (sizeof (char32_t) == sizeof (wchar_t));
  63
  64 # if _GL_WCHAR_T_IS_UCS4
  65 _GL_EXTERN_INLINE
  66 # endif
  67 size_t
  68 mbsnrtoc32s (char32_t *dest, const char **srcp, size_t srclen, size_t len,
  69              mbstate_t *ps)
  70 {
  71   return mbsnrtowcs ((wchar_t *) dest, srcp, srclen, len, ps);
  72 }
  73
  74 #endif