X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Flibpspp%2Fi18n.c;h=b323bf8586a2370b2e072b69eb3a8d6cb10b68e1;hb=503f53bfdde87fc40466dadb77bc04cee0be2567;hp=d194634f654dfca804cfd5d22b29e57b46f42966;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp

diff --git a/src/libpspp/i18n.c b/src/libpspp/i18n.c
index d194634f65..b323bf8586 100644
--- a/src/libpspp/i18n.c
+++ b/src/libpspp/i18n.c
@@ -17,6 +17,7 @@
 #include <config.h>
 #include <xalloc.h>
 #include <assert.h>
+#include <locale.h>
 #include <stdlib.h>
 #include <stdio.h>
 #include <string.h>
@@ -29,12 +30,11 @@
 #include <localcharset.h>
 #include "xstrndup.h"
 
+#if HAVE_NL_LANGINFO
+#include <langinfo.h>
+#endif
 
-static char *locale = 0;
-static const char *charset;
-
-
-static iconv_t convertor[n_CONV];
+static char *default_encoding;
 
 
 /* A wrapper around iconv_open */
@@ -45,7 +45,7 @@ create_iconv (const char* tocode, const char* fromcode)
 
   /* I don't think it's safe to translate this string or to use messaging
      as the convertors have not yet been set up */
-  if ( (iconv_t) -1 == conv)
+  if ( (iconv_t) -1 == conv && 0 != strcmp (tocode, fromcode))
     {
       const int err = errno;
       fprintf (stderr,
@@ -61,7 +61,8 @@ create_iconv (const char* tocode, const char* fromcode)
    The returned string must be freed when no longer required.
 */
 char *
-recode_string (enum conv_id how,  const char *text, int length)
+recode_string (const char *to, const char *from,
+	       const char *text, int length)
 {
   char *outbuf = 0;
   size_t outbufferlength;
@@ -69,6 +70,7 @@ recode_string (enum conv_id how,  const char *text, int length)
   char *op ;
   size_t inbytes = 0;
   size_t outbytes ;
+  iconv_t conv ;
 
   /* FIXME: Need to ensure that this char is valid in the target encoding */
   const char fallbackchar = '?';
@@ -79,9 +81,14 @@ recode_string (enum conv_id how,  const char *text, int length)
   if ( length == -1 )
      length = strlen(text);
 
-  assert (how < n_CONV);
 
-  if (convertor[how] == (iconv_t) -1)
+  if (to == NULL)
+    to = default_encoding;
+
+  if (from == NULL)
+    from = default_encoding;
+
+  if ( 0 == strcmp (to, from))
     return xstrndup (text, length);
 
   for ( outbufferlength = 1 ; outbufferlength != 0; outbufferlength <<= 1 )
@@ -94,9 +101,12 @@ recode_string (enum conv_id how,  const char *text, int length)
   outbytes = outbufferlength;
   inbytes = length;
 
+
+  conv = create_iconv (to, from);
+
   do {
     const char *ip = text;
-    result = iconv (convertor[how], (ICONV_CONST char **) &text, &inbytes,
+    result = iconv (conv, (ICONV_CONST char **) &text, &inbytes,
 		   &op, &outbytes);
 
     if ( -1 == result )
@@ -133,6 +143,9 @@ recode_string (enum conv_id how,  const char *text, int length)
       }
   } while ( -1 == result );
 
+
+  iconv_close (conv);
+
   if (outbytes == 0 )
     {
       char *const oldaddr = outbuf;
@@ -147,64 +160,50 @@ recode_string (enum conv_id how,  const char *text, int length)
 }
 
 
-/* Returns the current PSPP locale */
-const char *
-get_pspp_locale (void)
-{
-  assert (locale);
-  return locale;
-}
-
-/* Set the PSPP locale */
-void
-set_pspp_locale (const char *l)
-{
-  char *current_locale;
-  const char *current_charset;
-
-  free(locale);
-  locale = strdup(l);
 
-  current_locale = setlocale (LC_CTYPE, 0);
-  current_charset = locale_charset ();
-  setlocale (LC_CTYPE, locale);
-
-  charset = locale_charset ();
-  setlocale (LC_CTYPE, current_locale);
-
-  iconv_close (convertor[CONV_PSPP_TO_UTF8]);
-  convertor[CONV_PSPP_TO_UTF8] = create_iconv ("UTF-8", charset);
-
-  iconv_close (convertor[CONV_SYSTEM_TO_PSPP]);
-  convertor[CONV_SYSTEM_TO_PSPP] = create_iconv (charset, current_charset);
-}
 
 void
 i18n_init (void)
 {
-  assert (!locale) ;
-  locale = strdup (setlocale (LC_CTYPE, NULL));
-
-  setlocale (LC_CTYPE, locale);
-  charset = locale_charset ();
-
-  convertor[CONV_PSPP_TO_UTF8] = create_iconv ("UTF-8", charset);
-  convertor[CONV_SYSTEM_TO_PSPP] = create_iconv (charset, charset);
+  free (default_encoding);
+  default_encoding = strdup (locale_charset ());
 }
 
 
 void
 i18n_done (void)
 {
-  int i;
-  free (locale);
-  locale = 0;
+  free (default_encoding);
+  default_encoding = NULL;
+}
 
-  for(i = 0 ; i < n_CONV; ++i )
-    {
-      if ( (iconv_t) -1 == convertor[i] )
-	continue;
-      iconv_close (convertor[i]);
-    }
+
+
+
+/* Return the system local's idea of the
+   decimal seperator character */
+char
+get_system_decimal (void)
+{
+  char radix_char;
+
+  char *ol = strdup (setlocale (LC_NUMERIC, NULL));
+  setlocale (LC_NUMERIC, "");
+
+#if HAVE_NL_LANGINFO
+  radix_char = nl_langinfo (RADIXCHAR)[0];
+#else
+  {
+    char buf[10];
+    snprintf (buf, sizeof buf, "%f", 2.5);
+    radix_char = buf[1];
+  }
+#endif
+
+  /* We MUST leave LC_NUMERIC untouched, since it would
+     otherwise interfere with data_{in,out} */
+  setlocale (LC_NUMERIC, ol);
+  free (ol);
+  return radix_char;
 }