diff options
author | Per Bothner <bothner@gcc.gnu.org> | 1999-04-16 10:25:08 -0700 |
---|---|---|
committer | Per Bothner <bothner@gcc.gnu.org> | 1999-04-16 10:25:08 -0700 |
commit | 2373aba2643216289611d854c14e3e93acff7feb (patch) | |
tree | 93ee8cf5f7bba1ad058dca34c2012ea4d3a9a233 | |
parent | 0ff6b2f10b96f79eeb088d4e77df272c60b04385 (diff) | |
download | gcc-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.cc | 72 |
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); +} |