git.gag.com Git - debian/tar/blob - gnu/mbsrtowcs-impl.h

   1 /* -*- buffer-read-only: t -*- vi: set ro: */
   2 /* DO NOT EDIT! GENERATED AUTOMATICALLY! */
   3 /* Convert string to wide string.
   4    Copyright (C) 2008-2013 Free Software Foundation, Inc.
   5    Written by Bruno Haible <bruno@clisp.org>, 2008.
   6
   7    This program is free software: you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 size_t
  21 mbsrtowcs (wchar_t *dest, const char **srcp, size_t len, mbstate_t *ps)
  22 {
  23   if (ps == NULL)
  24     ps = &_gl_mbsrtowcs_state;
  25   {
  26     const char *src = *srcp;
  27
  28     if (dest != NULL)
  29       {
  30         wchar_t *destptr = dest;
  31
  32         for (; len > 0; destptr++, len--)
  33           {
  34             size_t src_avail;
  35             size_t ret;
  36
  37             /* An optimized variant of
  38                src_avail = strnlen1 (src, MB_LEN_MAX);  */
  39             if (src[0] == '\0')
  40               src_avail = 1;
  41             else if (src[1] == '\0')
  42               src_avail = 2;
  43             else if (src[2] == '\0')
  44               src_avail = 3;
  45             else if (MB_LEN_MAX <= 4 || src[3] == '\0')
  46               src_avail = 4;
  47             else
  48               src_avail = 4 + strnlen1 (src + 4, MB_LEN_MAX - 4);
  49
  50             /* Parse the next multibyte character.  */
  51             ret = mbrtowc (destptr, src, src_avail, ps);
  52
  53             if (ret == (size_t)(-2))
  54               /* Encountered a multibyte character that extends past a '\0' byte
  55                  or that is longer than MB_LEN_MAX bytes.  Cannot happen.  */
  56               abort ();
  57
  58             if (ret == (size_t)(-1))
  59               goto bad_input;
  60             if (ret == 0)
  61               {
  62                 src = NULL;
  63                 /* Here mbsinit (ps).  */
  64                 break;
  65               }
  66             src += ret;
  67           }
  68
  69         *srcp = src;
  70         return destptr - dest;
  71       }
  72     else
  73       {
  74         /* Ignore dest and len, don't store *srcp at the end, and
  75            don't clobber *ps.  */
  76         mbstate_t state = *ps;
  77         size_t totalcount = 0;
  78
  79         for (;; totalcount++)
  80           {
  81             size_t src_avail;
  82             size_t ret;
  83
  84             /* An optimized variant of
  85                src_avail = strnlen1 (src, MB_LEN_MAX);  */
  86             if (src[0] == '\0')
  87               src_avail = 1;
  88             else if (src[1] == '\0')
  89               src_avail = 2;
  90             else if (src[2] == '\0')
  91               src_avail = 3;
  92             else if (MB_LEN_MAX <= 4 || src[3] == '\0')
  93               src_avail = 4;
  94             else
  95               src_avail = 4 + strnlen1 (src + 4, MB_LEN_MAX - 4);
  96
  97             /* Parse the next multibyte character.  */
  98             ret = mbrtowc (NULL, src, src_avail, &state);
  99
 100             if (ret == (size_t)(-2))
 101               /* Encountered a multibyte character that extends past a '\0' byte
 102                  or that is longer than MB_LEN_MAX bytes.  Cannot happen.  */
 103               abort ();
 104
 105             if (ret == (size_t)(-1))
 106               goto bad_input2;
 107             if (ret == 0)
 108               {
 109                 /* Here mbsinit (&state).  */
 110                 break;
 111               }
 112             src += ret;
 113           }
 114
 115         return totalcount;
 116       }
 117
 118    bad_input:
 119     *srcp = src;
 120    bad_input2:
 121     errno = EILSEQ;
 122     return (size_t)(-1);
 123   }
 124 }