[uim-commit] r2285 - branches/r5rs/uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-29 21:24:08 -0800 (Tue, 29 Nov 2005)
New Revision: 2285

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_init): Set the unibyte codec to Scm_current_char_codec


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-11-30 04:57:00 UTC (rev 2284)
+++ branches/r5rs/uim/uim-scm.c	2005-11-30 05:24:08 UTC (rev 2285)
@@ -38,6 +38,7 @@
 #include <string.h>
 #include <ctype.h>
 #include "sigscheme/sigscheme.h"
+#include "sigscheme/encoding.h"
 #include "uim-scm.h"
 #include "uim-compat-scm.h"
 #include "uim-internal.h"
@@ -592,6 +593,16 @@
     vlevel = atoi(verbose_level) % 10;
   }
 
+  /* *GC safe operation*
+   * 
+   * Set the raw unibyte codec which accepts all (multi)byte sequence
+   * although it slashes a multibyte character on Scheme-level
+   * character processing. Since current uim implementation treats a
+   * multibyte character as string, it is not a problem. The name
+   * "ISO-8859-1" is a dummy name for the codec.
+   */
+  Scm_current_char_codec = Scm_mb_find_codec("ISO-8859-1");
+
   SigScm_Initialize();
 
   /* GC safe */