lib/uniconv/u-conv-from-enc.h

   1 /* Conversion to UTF-16/UTF-32 from legacy encodings.
   2    Copyright (C) 2002, 2006-2007, 2009-2012 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify it
   5    under the terms of the GNU Lesser General Public License as published
   6    by the Free Software Foundation; either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 UNIT *
  18 FUNC (const char *fromcode,
  19       enum iconv_ilseq_handler handler,
  20       const char *src, size_t srclen,
  21       size_t *offsets,
  22       UNIT *resultbuf, size_t *lengthp)
  23 {
  24 #if HAVE_UTF_NAME
  25   char *result = (char *) resultbuf;
  26   size_t length = *lengthp * sizeof (UNIT);
  27
  28   if (mem_iconveha (src, srclen, fromcode, UTF_NAME, true, handler,
  29                     offsets, &result, &length) < 0)
  30     return NULL;
  31   if (offsets != NULL)
  32     {
  33       /* Convert 'char *' offsets to 'UNIT *' offsets.  */
  34       size_t *offsets_end = offsets + srclen;
  35       size_t *o;
  36
  37       for (o = offsets; o < offsets_end; o++)
  38         if (*o != (size_t)(-1))
  39           *o = *o / sizeof (UNIT);
  40     }
  41   if ((length % sizeof (UNIT)) != 0)
  42     abort ();
  43   *lengthp = length / sizeof (UNIT);
  44   return (UNIT *) result;
  45 #else
  46   uint8_t *utf8_string;
  47   size_t utf8_length;
  48   UNIT *result;
  49
  50   utf8_string =
  51     u8_conv_from_encoding (fromcode, handler, src, srclen, offsets,
  52                            NULL, &utf8_length);
  53   if (utf8_string == NULL)
  54     return NULL;
  55   result = U8_TO_U (utf8_string, utf8_length, resultbuf, lengthp);
  56   if (result == NULL)
  57     {
  58       int saved_errno = errno;
  59       free (utf8_string);
  60       errno = saved_errno;
  61       return NULL;
  62     }
  63   if (offsets != NULL)
  64     {
  65       size_t length = *lengthp;
  66       size_t *offsets_end = offsets + srclen;
  67       size_t *o;
  68       size_t off8 = 0;  /* offset into utf8_string */
  69       size_t offunit = 0;       /* offset into result */
  70
  71       for (o = offsets; o < offsets_end; o++)
  72         if (*o != (size_t)(-1))
  73           {
  74             while (off8 < *o)
  75               {
  76                 int count8 = u8_mblen (utf8_string + off8, utf8_length - off8);
  77                 int countunit = U_MBLEN (result + offunit, length - offunit);
  78                 if (count8 < 0 || countunit < 0)
  79                   abort ();
  80                 off8 += count8;
  81                 offunit += countunit;
  82               }
  83             if (*o != off8)
  84               abort ();
  85             *o = offunit;
  86           }
  87     }
  88   free (utf8_string);
  89   return result;
  90 #endif
  91 }