gcc/libjava/gnu/gcj/convert/natOutput_EUCJIS.cc
Tom Tromey 27e934d8ba configure: Rebuilt.
* configure: Rebuilt.
	* configure.in: Build include/Makefile.
	* Makefile.in: Rebuilt.
	* Makefile.am (SUBDIRS): Added gcj and include.
	(install-data-local): New target.
	(extra_headers): New macro.
	* include/Makefile.in: New file.
	* include/Makefile.am: New file.

	* interpret.cc: Don't include gcj/field.h or gcj/cni.h.
	* java/lang/reflect/natField.cc: Don't include gcj/field.h or
	gcj/cni.h.
	* boehm.cc: Don't include java-threads.h or gcj/field.h.
	* resolve.cc: Include config.h.
	* defineclass.cc: Include config.h.
	* include/java-interp.h: Don't include config.h.
	* include/jvm.h: Include java-threads.h, Object.h, java-gc.h,
	cni.h.

	* gcj/javaprims.h: Regenerated namespace decls.
	* classes.pl (scan): Don't put `;' after closing brace.

	* Makefile.in: Rebuilt.
	* Makefile.am (INCLUDES): Added -I for top_srcdir.
	* configure.in: Create gcj/Makefile.
	* gcj/Makefile.in: New file.
	* gcj/Makefile.am: New file.
	* java/lang/Object.h: Don't include any other headers.
	* gcj/array.h: Renamed from include/java-array.h.
	* gcj/field.h: Renamed from include/java-field.h.
	* gcj/method.h: Renamed from include/java-method.h.
	* gcj/cni.h, gcj/javaprims.h: Moved from include/.
	Updated all files to reflect new include structure.

From-SVN: r29278
1999-09-10 22:03:10 +00:00

103 lines
2.4 KiB
C++

/* 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 <gcj/cni.h>
#include <gnu/gcj/convert/Output_EUCJIS.h>
/* A trie structure to map unicode values to JIS codes.
* code == -1: the character is undefined.
* code >= 0 && code < 128: JIS-Roman - mostly Ascii.
* code >= 128 && code < 256: Half-width Katakana.
* code >= 256 && code < 0x8000: JIS X 0208:1997.
* code >= 0x8000 && code < 0xFFFF: JIX X 0212-1990.
*/
extern unsigned short Unicode_to_JIS[];
int
trie_lookup (unsigned short *trie, unsigned short key)
{
unsigned short branch = trie[(key >> 12) & 0xf];
if (branch == 0)
return -1;
branch = trie[branch + ((key >> 8) & 0xf)];
if (branch == 0)
return -1;
branch = trie[branch + ((key >> 4) & 0xf)];
if (branch == 0)
return -1;
return trie[branch + (key & 0xf)];
}
static jint
convert_TO_EUCJIS (gnu::gcj::convert::Output_EUCJIS *encoder,
jchar *ptr, jint inlength)
{
int orig_inlength = inlength;
jint outbuf_length = encoder->buf->length;
for (;;)
{
if (encoder->count >= outbuf_length)
break;
if (encoder->pending1 >= 0)
{
elements(encoder->buf)[encoder->count++] = encoder->pending1;
encoder->pending1 = encoder->pending2;
encoder->pending2 = -1;
continue;
}
if (inlength == 0)
break;
jchar ch = *ptr++;
inlength--;
unsigned short val = trie_lookup(Unicode_to_JIS, ch);
if (val < 0x80)
{
if (val == 0xffff)
val = '?';
}
else if (val <= 0xFF)
{
encoder->pending1 = val;
encoder->pending2 = -1;
val = 0x8e;
}
else if (val < 0x8000)
{
val |= 0x8080;
encoder->pending1 = val & 0xff;
val = val >> 8;
encoder->pending2 = -1;
}
else
{
val |= 0x8080;
encoder->pending1 = val >> 8;
encoder->pending2 = val & 0xff;
val = 0x8f;
}
elements(encoder->buf)[encoder->count++] = val;
}
return orig_inlength - inlength;
}
jint
gnu::gcj::convert::Output_EUCJIS::write (jcharArray inbuffer,
jint inpos, jint inlength)
{
return convert_TO_EUCJIS(this, &elements(inbuffer)[inpos], inlength);
}
jint
gnu::gcj::convert::Output_EUCJIS::write (jstring str, jint inpos,
jint inlength, jcharArray)
{
return convert_TO_EUCJIS(this, _Jv_GetStringChars(str)+inpos, inlength);
}