aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPer Bothner <bothner@gcc.gnu.org>1999-04-16 10:25:08 -0700
committerPer Bothner <bothner@gcc.gnu.org>1999-04-16 10:25:08 -0700
commit2373aba2643216289611d854c14e3e93acff7feb (patch)
tree93ee8cf5f7bba1ad058dca34c2012ea4d3a9a233
parent0ff6b2f10b96f79eeb088d4e77df272c60b04385 (diff)
downloadgcc-2373aba2643216289611d854c14e3e93acff7feb.zip
gcc-2373aba2643216289611d854c14e3e93acff7feb.tar.gz
gcc-2373aba2643216289611d854c14e3e93acff7feb.tar.bz2
JIS0201.h: New file, generated from Unicode table.
* gnu/gcj/convert/JIS0201.h: New file, generated from Unicode table. * gnu/gcj/convert/Input_JavaSrc.java: New BytesToUnicode class. * gnu/gcj/convert/Input_SJIS.java: New BytesToUnicode class. * gnu/gcj/convert/Output_EUCJIS.java: New UnicodeToBytes class. * gnu/gcj/convert/Output_SJIS.java: New UnicodeToBytes class. * gnu/gcj/convert/natInput_EUCJIS.cc: New file. * gnu/gcj/convert/natInput_SJIS.cc: New file. * gnu/gcj/convert/natOutput_EUCJIS.cc: New file. * gnu/gcj/convert/natOutput_SJIS.cc: New file. * gnu/gcj/convert/make-trie.c: New file: functions to make a trie. * gnu/gcj/convert/gen-from-JIS.c: Invoke make-trie for output. * gnu/gcj/convert/Unicode_to_JIS.cc: New generated trie table. From-SVN: r26503
-rw-r--r--libjava/gnu/gcj/convert/natOutput_SJIS.cc72
1 files changed, 72 insertions, 0 deletions
diff --git a/libjava/gnu/gcj/convert/natOutput_SJIS.cc b/libjava/gnu/gcj/convert/natOutput_SJIS.cc
new file mode 100644
index 0000000..66be27b
--- /dev/null
+++ b/libjava/gnu/gcj/convert/natOutput_SJIS.cc
@@ -0,0 +1,72 @@
+/* Copyright (C) 1999 Cygnus Solutions
+
+ This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
+details. */
+
+#include <config.h>
+#include <cni.h>
+#include <gnu/gcj/convert/Output_SJIS.h>
+
+extern unsigned short Unicode_to_JIS[];
+
+extern int trie_lookup (unsigned short *trie, unsigned short key);
+
+static jint
+convert_TO_SJIS (gnu::gcj::convert::Output_SJIS *encoder,
+ jchar *ptr, jint inlength)
+{
+ int orig_inlength = inlength;
+ jint outbuf_length = encoder->buf->length;
+ for (;;)
+ {
+ if (encoder->count >= outbuf_length)
+ break;
+ if (encoder->pending >= 0)
+ {
+ elements(encoder->buf)[encoder->count++] = encoder->pending;
+ encoder->pending = -1;
+ continue;
+ }
+ if (inlength == 0)
+ break;
+ jchar ch = *ptr++;
+ inlength--;
+ unsigned short val = trie_lookup(Unicode_to_JIS, ch);
+ if (val < 0xFF)
+ {
+ if (val == 0xffff)
+ val = '?';
+ }
+ else
+ {
+ int b1 = val >> 8;
+ int b2 = val & 0xff;
+ // From Lunde: "CJKV Informatio Processing", O'Reilly, 1999:
+ int rowOffset = b1 < 95 ? 112 : 176;
+ int cellOffset = (b1 & 1) != 0 ? (b2 > 95 ? 32 : 31) : 126;
+ b1 = ((b1 + 1) >> 1) + rowOffset;
+ b2 += cellOffset;
+ val = b1;
+ encoder->pending = b2;
+ }
+ elements(encoder->buf)[encoder->count++] = val;
+ }
+ return orig_inlength - inlength;
+}
+
+jint
+gnu::gcj::convert::Output_SJIS::write (jcharArray inbuffer,
+ jint inpos, jint inlength)
+{
+ return convert_TO_SJIS(this, &elements(inbuffer)[inpos], inlength);
+}
+
+jint
+gnu::gcj::convert::Output_SJIS::write (jstring str, jint inpos,
+ jint inlength, jcharArray)
+{
+ return convert_TO_SJIS(this, _Jv_GetStringChars(str)+inpos, inlength);
+}