toutf8.c

   1 /* toutf8.c     convert strings from system locale into UTF-8
   2  * Copyright (C) 2002  Simon Josefsson
   3  *
   4  * This file is part of libstringprep.
   5  *
   6  * Libstringprep is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * Libstringprep is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with libstringprep; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  *
  20  */
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include "config.h"
  24 #endif
  25
  26 #ifdef HAVE_ICONV
  27
  28 #include <iconv.h>
  29
  30 #ifdef STDC_HEADERS
  31 #include <stdlib.h>
  32 #endif
  33 #if HAVE_STRING_H
  34 # if !STDC_HEADERS && HAVE_MEMORY_H
  35 #  include <memory.h>
  36 # endif
  37 # include <string.h>
  38 #endif
  39 #if HAVE_STRINGS_H
  40 # include <strings.h>
  41 #endif
  42
  43 #ifdef HAVE_ERRNO_H
  44 #include <errno.h>
  45 #endif
  46 extern int errno;
  47
  48 #if LOCALE_WORKS
  49 #include <langinfo.h>
  50 #include <locale.h>
  51 #endif
  52
  53 static const char *
  54 stringprep_locale_charset_slow ()
  55 {
  56   const char *charset = getenv("CHARSET");
  57   char *p;
  58
  59   if (charset && *charset)
  60     return charset;
  61
  62 #if LOCALE_WORKS
  63   p = setlocale(LC_CTYPE, NULL);
  64   setlocale(LC_CTYPE, "");
  65
  66   charset = nl_langinfo (CODESET);
  67
  68   setlocale(LC_CTYPE, p);
  69 #endif
  70
  71   if (charset && *charset)
  72     return charset;
  73
  74   return "ASCII";
  75 }
  76
  77 static const char *stringprep_locale_charset_cache = NULL;
  78
  79 const char *
  80 stringprep_locale_charset ()
  81 {
  82   if (!stringprep_locale_charset_cache)
  83     stringprep_locale_charset_cache = stringprep_locale_charset_slow ();
  84
  85   return stringprep_locale_charset_cache;
  86 }
  87
  88 char*
  89 stringprep_convert (const char *str,
  90                     const char *to_codeset,
  91                     const char *from_codeset)
  92 {
  93   iconv_t cd;
  94   char *dest;
  95   char *outp;
  96   char *p;
  97   size_t inbytes_remaining;
  98   size_t outbytes_remaining;
  99   size_t err;
 100   size_t outbuf_size;
 101   int have_error = 0;
 102   int len;
 103
 104   if (strcmp(to_codeset, from_codeset) == 0)
 105     return strdup(str);
 106
 107   cd = iconv_open (to_codeset, from_codeset);
 108
 109   if (cd == (iconv_t) -1)
 110     return NULL;
 111
 112   len = strlen(str);
 113
 114   p = (char*) str;
 115   inbytes_remaining = len;
 116   outbuf_size = len + 1; /* + 1 for nul in case len == 1 */
 117
 118   outbytes_remaining = outbuf_size - 1; /* -1 for nul */
 119   outp = dest = malloc (outbuf_size);
 120
 121  again:
 122
 123   err = iconv (cd, &p, &inbytes_remaining, &outp, &outbytes_remaining);
 124
 125   if (err == (size_t) -1)
 126     {
 127       switch (errno)
 128         {
 129         case EINVAL:
 130           /* Incomplete text, do not report an error */
 131           break;
 132
 133         case E2BIG:
 134           {
 135             size_t used = outp - dest;
 136
 137             outbuf_size *= 2;
 138             dest = realloc (dest, outbuf_size);
 139
 140             outp = dest + used;
 141             outbytes_remaining = outbuf_size - used - 1; /* -1 for nul */
 142
 143             goto again;
 144           }
 145           break;
 146
 147         case EILSEQ:
 148           have_error = 1;
 149           break;
 150
 151         default:
 152           have_error = 1;
 153           break;
 154         }
 155     }
 156
 157   *outp = '\0';
 158
 159   if ((p - str) != len)
 160     have_error = 1;
 161
 162   iconv_close (cd);
 163
 164   if (have_error)
 165     {
 166       free (dest);
 167       dest = NULL;
 168     }
 169
 170   return dest;
 171 }
 172
 173 #else
 174
 175 const char *
 176 stringprep_locale_charset ()
 177 {
 178   return NULL;
 179 }
 180
 181 char*
 182 stringprep_convert (const char *str,
 183                     const char *to_codeset,
 184                     const char *from_codeset)
 185 {
 186   return NULL;
 187 }
 188
 189 #endif
 190
 191 char *
 192 stringprep_locale_to_utf8 (const char *str)
 193 {
 194   return stringprep_convert (str, "UTF-8",  stringprep_locale_charset ());
 195 }