1 /* Copyright (C) 1999 Free Software Foundation
3 This file is part of libgcj.
5 This software is copyrighted work licensed under the terms of the
6 Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
11 #include <gnu/gcj/convert/Output_EUCJIS.h>
13 /* A trie structure to map unicode values to JIS codes.
14 * code == -1: the character is undefined.
15 * code >= 0 && code < 128: JIS-Roman - mostly Ascii.
16 * code >= 128 && code < 256: Half-width Katakana.
17 * code >= 256 && code < 0x8000: JIS X 0208:1997.
18 * code >= 0x8000 && code < 0xFFFF: JIX X 0212-1990.
21 extern unsigned short Unicode_to_JIS
[];
24 trie_lookup (unsigned short *trie
, unsigned short key
)
26 unsigned short branch
= trie
[(key
>> 12) & 0xf];
29 branch
= trie
[branch
+ ((key
>> 8) & 0xf)];
32 branch
= trie
[branch
+ ((key
>> 4) & 0xf)];
35 return trie
[branch
+ (key
& 0xf)];
39 convert_TO_EUCJIS (gnu::gcj::convert::Output_EUCJIS
*encoder
,
40 jchar
*ptr
, jint inlength
)
42 int orig_inlength
= inlength
;
43 jint outbuf_length
= encoder
->buf
->length
;
46 if (encoder
->count
>= outbuf_length
)
48 if (encoder
->pending1
>= 0)
50 elements(encoder
->buf
)[encoder
->count
++] = encoder
->pending1
;
51 encoder
->pending1
= encoder
->pending2
;
52 encoder
->pending2
= -1;
59 unsigned short val
= trie_lookup(Unicode_to_JIS
, ch
);
67 encoder
->pending1
= val
;
68 encoder
->pending2
= -1;
71 else if (val
< 0x8000)
74 encoder
->pending1
= val
& 0xff;
76 encoder
->pending2
= -1;
81 encoder
->pending1
= val
>> 8;
82 encoder
->pending2
= val
& 0xff;
85 elements(encoder
->buf
)[encoder
->count
++] = val
;
87 return orig_inlength
- inlength
;
91 gnu::gcj::convert::Output_EUCJIS::write (jcharArray inbuffer
,
92 jint inpos
, jint inlength
)
94 return convert_TO_EUCJIS(this, &elements(inbuffer
)[inpos
], inlength
);
98 gnu::gcj::convert::Output_EUCJIS::write (jstring str
, jint inpos
,
99 jint inlength
, jcharArray
)
101 return convert_TO_EUCJIS(this, _Jv_GetStringChars(str
)+inpos
, inlength
);