fciconv.c

Go to the documentation of this file.

/***********************************************************************
 Freeciv - Copyright (C) 2003-2004 - The Freeciv Project
   This program 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 2, or (at your option)
   any later version.
 
   This program 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.
***********************************************************************/
 
#ifdef HAVE_CONFIG_H
#include <fc_config.h>
#endif
 
#include <errno.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
 
#ifdef HAVE_ICONV
#include <iconv.h>
#endif
 
#ifdef HAVE_LANGINFO_CODESET
#include <langinfo.h>
#endif
 
#ifdef HAVE_LIBCHARSET
#include <libcharset.h>
#endif
 
/* utility */
#include "fciconv.h"
#include "fcintl.h"
#include "log.h"
#include "mem.h"
#include "support.h"
 
static bool is_init = FALSE;
static char convert_buffer[4096];
static const char *transliteration_string;
 
#ifdef HAVE_ICONV
static const char *local_encoding, *data_encoding, *internal_encoding;
#else  /* HAVE_ICONV */
/* Hack to confuse the compiler into working. */
#  define local_encoding get_local_encoding()
#  define data_encoding get_local_encoding()
#  define internal_encoding get_local_encoding()
#endif /* HAVE_ICONV */
 
static char *saved_from = NULL;
static char *saved_to = NULL;
 
static char *convert_string(const char *text,
                            const char *from,
                            const char *to,
                            char *buf, size_t bufsz)
  fc__attribute((nonnull (1,2,3)));
 
/***********************************************************************/
void init_character_encodings(const char *my_internal_encoding,
                              bool my_use_transliteration)
{
  transliteration_string = "";
#ifdef HAVE_ICONV
  if (my_use_transliteration) {
    transliteration_string = "//TRANSLIT";
  }
 
  /* Set the data encoding - first check $FREECIV_DATA_ENCODING,
   * then fall back to the default. */
  data_encoding = getenv("FREECIV_DATA_ENCODING");
  if (!data_encoding) {
    data_encoding = FC_DEFAULT_DATA_ENCODING;
  }
 
  /* Set the local encoding - first check $FREECIV_LOCAL_ENCODING,
   * then ask the system. */
  local_encoding = getenv("FREECIV_LOCAL_ENCODING");
  if (!local_encoding) {
#ifdef HAVE_LIBCHARSET
    local_encoding = locale_charset();
#else  /* HAVE_LIBCHARSET */
#ifdef HAVE_LANGINFO_CODESET
    local_encoding = nl_langinfo(CODESET);
#else  /* HAVE_LANGINFO_CODESET */
    local_encoding = "";
#endif /* HAVE_LANGINFO_CODESET */
#endif /* HAVE_LIBCHARSET */
    if (fc_strcasecmp(local_encoding, "ANSI_X3.4-1968") == 0
        || fc_strcasecmp(local_encoding, "ASCII") == 0
        || fc_strcasecmp(local_encoding, "US-ASCII") == 0) {
      /* HACK: use latin1 instead of ascii in typical cases when the
       * encoding is unconfigured. */
      local_encoding = "ISO-8859-1";
    }
 
    if (fc_strcasecmp(local_encoding, "646") == 0) {
      /* HACK: On Solaris the encoding always comes up as "646" (ascii),
       * which iconv doesn't understand.  Work around it by using UTF-8
       * instead. */
      local_encoding = "UTF-8";
    }
  }
 
  /* Set the internal encoding - first check $FREECIV_INTERNAL_ENCODING,
   * then check the passed-in default value, then fall back to the local
   * encoding. */
  internal_encoding = getenv("FREECIV_INTERNAL_ENCODING");
  if (!internal_encoding) {
    internal_encoding = my_internal_encoding;
 
    if (!internal_encoding) {
      internal_encoding = local_encoding;
    }
  }
 
#ifdef FREECIV_ENABLE_NLS
  bind_textdomain_codeset("freeciv-core", internal_encoding);
#endif
 
#ifdef FREECIV_DEBUG
  fprintf(stderr, "Encodings: Data=%s, Local=%s, Internal=%s\n",
          data_encoding, local_encoding, internal_encoding);
#endif /* FREECIV_DEBUG */
 
#else  /* HAVE_ICONV */
   /* log_* may not work at this point. */
  fprintf(stderr,
          _("You are running Freeciv without using iconv. Unless\n"
            "you are using the UTF-8 character set, some characters\n"
            "may not be displayed properly. You can download iconv\n"
            "at https://gnu.org/.\n"));
#endif /* HAVE_ICONV */
 
  is_init = TRUE;
}
 
/***********************************************************************/
const char *get_data_encoding(void)
{
  fc_assert_ret_val(is_init, NULL);
  return data_encoding;
}
 
/***********************************************************************/
const char *get_local_encoding(void)
{
#ifdef HAVE_ICONV
  fc_assert_ret_val(is_init, NULL);
  return local_encoding;
#else  /* HAVE_ICONV */
#  ifdef HAVE_LIBCHARSET
  return locale_charset();
#  else  /* HAVE_LIBCHARSET */
#    ifdef HAVE_LANGINFO_CODESET
  return nl_langinfo(CODESET);
#    else  /* HAVE_LANGINFO_CODESET */
  return "";
#    endif /* HAVE_LANGINFO_CODESET */
#  endif /* HAVE_LIBCHARSET */
#endif /* HAVE_ICONV */
}
 
/***********************************************************************/
const char *get_internal_encoding(void)
{
  fc_assert_ret_val(is_init, NULL);
  return internal_encoding;
}
 
/***********************************************************************/
static char *convert_string(const char *text,
                            const char *from,
                            const char *to,
                            char *buf, size_t bufsz)
{
#ifdef HAVE_ICONV
  iconv_t cd = iconv_open(to, from);
  size_t from_len = strlen(text) + 1, to_len;
  bool alloc = (buf == NULL);
 
  if (cd == (iconv_t) (-1)) {
    /* Do not do potentially recursive call to freeciv logging here,
     * but use fprintf(stderr) */
    /* Use the real OS-provided strerror and errno rather than Freeciv's
     * abstraction, as that wouldn't do the correct thing with third-party
     * iconv on Windows. */
 
    if (saved_from == NULL
        || strcmp(saved_from, from)
        || strcmp(saved_to, to)) {
 
      /* TRANS: "Could not convert text from <encoding a> to <encoding b>:"
       *        <externally translated error string>." */
      fprintf(stderr, _("Could not convert text from %s to %s: %s.\n"),
              from, to, strerror(errno));
 
      if (saved_from != NULL) {
        free(saved_from);
        free(saved_to);
      }
 
      saved_from = fc_strdup(from);
      saved_to   = fc_strdup(to);
    }
 
    /* The best we can do? */
    if (alloc) {
      return fc_strdup(text);
    } else {
      fc_snprintf(buf, bufsz, "%s", text);
      return buf;
    }
  }
 
  if (alloc) {
    to_len = from_len;
  } else {
    to_len = bufsz;
  }
 
  do {
    size_t flen = from_len, tlen = to_len, res;
    const char *mytext = text;
    char *myresult;
 
    if (alloc) {
      buf = fc_malloc(to_len);
    }
 
    myresult = buf;
 
    /* Since we may do multiple translations, we may need to reset iconv
     * in between. */
    iconv(cd, NULL, NULL, NULL, NULL);
 
    res = iconv(cd, (ICONV_CONST char **)&mytext, &flen, &myresult, &tlen);
    if (res == (size_t) (-1)) {
      if (errno != E2BIG) {
        /* Invalid input. */
 
        fprintf(stderr, "Invalid string conversion from %s to %s: %s.\n",
                from, to, strerror(errno));
        iconv_close(cd);
        if (alloc) {
          free(buf);
          return fc_strdup(text); /* The best we can do? */
        } else {
          fc_snprintf(buf, bufsz, "%s", text);
          return buf;
        }
      }
    } else {
      /* Success. */
      iconv_close(cd);
 
      /* There may be wasted space here, but there's nothing we can do
       * about it. */
      return buf;
    }
 
    if (alloc) {
      /* Not enough space; try again. */
      buf[to_len - 1] = 0;
 
      free(buf);
      to_len *= 2;
    }
  } while (alloc);
 
  return buf;
#else /* HAVE_ICONV */
  if (buf) {
    strncpy(buf, text, bufsz);
    buf[bufsz - 1] = '\0';
    return buf;
  } else {
    return fc_strdup(text);
  }
#endif /* HAVE_ICONV */
}
 
#define CONV_FUNC_MALLOC(src, dst)                                          \
char *src ## _to_ ## dst ## _string_malloc(const char *text)                \
{                                                                           \
  const char *encoding1 = (dst ## _encoding);                               \
  char encoding[strlen(encoding1) + strlen(transliteration_string) + 1];    \
                                                                            \
  fc_snprintf(encoding, sizeof(encoding),                                   \
              "%s%s", encoding1, transliteration_string);                   \
  return convert_string(text, (src ## _encoding),                           \
                        (encoding), NULL, 0);                               \
}
 
#define CONV_FUNC_BUFFER(src, dst)                                          \
char *src ## _to_ ## dst ## _string_buffer(const char *text,                \
                                           char *buf, size_t bufsz)         \
{                                                                           \
  const char *encoding1 = (dst ## _encoding);                               \
  char encoding[strlen(encoding1) + strlen(transliteration_string) + 1];    \
                                                                            \
  fc_snprintf(encoding, sizeof(encoding),                                   \
              "%s%s", encoding1, transliteration_string);                   \
  return convert_string(text, (src ## _encoding),                           \
                        encoding, buf, bufsz);                              \
}
 
#define CONV_FUNC_STATIC(src, dst)                                          \
char *src ## _to_ ## dst ## _string_static(const char *text)                \
{                                                                           \
  (src ## _to_ ## dst ## _string_buffer)(text,                              \
                                        convert_buffer,                     \
                                        sizeof(convert_buffer));            \
  return convert_buffer;                                                    \
}
 
CONV_FUNC_MALLOC(data, internal)
CONV_FUNC_MALLOC(internal, data)
CONV_FUNC_MALLOC(internal, local)
CONV_FUNC_MALLOC(local, internal)
 
CONV_FUNC_BUFFER(local, internal)
CONV_FUNC_BUFFER(internal, local)
 
static CONV_FUNC_STATIC(internal, local)
 
/***********************************************************************/
void fc_fprintf(FILE *stream, const char *format, ...)
{
  va_list ap;
  char string[4096];
  const char *output;
  static bool recursion = FALSE;
 
  /* The recursion variable is used to prevent a recursive loop.  If
   * an iconv conversion fails, then log_* will be called and an
   * fc_fprintf will be done.  But below we do another iconv conversion
   * on the error messages, which is of course likely to fail also. */
  if (recursion) {
    return;
  }
 
  va_start(ap, format);
  fc_vsnprintf(string, sizeof(string), format, ap);
  va_end(ap);
 
  recursion = TRUE;
  if (is_init) {
    output = internal_to_local_string_static(string);
  } else {
    output = string;
  }
  recursion = FALSE;
 
  fputs(output, stream);
  fflush(stream);
}
 
/***********************************************************************/
size_t get_internal_string_length(const char *text)
{
  int text2[(strlen(text) + 1)]; /* UCS-4 text */
  int i;
  int len = 0;
 
  convert_string(text, internal_encoding, "UCS-4",
                 (char *)text2, sizeof(text2));
  for (i = 0; ; i++) {
    if (text2[i] == 0) {
      return len;
    }
    if (text2[i] != 0x0000FEFF && text2[i] != 0xFFFE0000) {
      /* Not BOM */
      len++;
    }
  }
}
 
/***********************************************************************/
void fc_iconv_close(void)
{
  if (saved_from != NULL) {
    free(saved_from);
    saved_from = NULL;
  }
 
  if (saved_to != NULL) {
    free(saved_to);
    saved_to = NULL;
  }
}