/* | |
* _codecs_hk.c: Codecs collection for encodings from Hong Kong | |
* | |
* Written by Hye-Shik Chang <perky@FreeBSD.org> | |
*/ | |
#define USING_IMPORTED_MAPS | |
#include "cjkcodecs.h" | |
#include "mappings_hk.h" | |
/* | |
* BIG5HKSCS codec | |
*/ | |
static const encode_map *big5_encmap = NULL; | |
static const decode_map *big5_decmap = NULL; | |
CODEC_INIT(big5hkscs) | |
{ | |
static int initialized = 0; | |
if (!initialized && IMPORT_MAP(tw, big5, &big5_encmap, &big5_decmap)) | |
return -1; | |
initialized = 1; | |
return 0; | |
} | |
/* | |
* There are four possible pair unicode -> big5hkscs maps as in HKSCS 2004: | |
* U+00CA U+0304 -> 8862 (U+00CA alone is mapped to 8866) | |
* U+00CA U+030C -> 8864 | |
* U+00EA U+0304 -> 88a3 (U+00EA alone is mapped to 88a7) | |
* U+00EA U+030C -> 88a5 | |
* These are handled by not mapping tables but a hand-written code. | |
*/ | |
static const DBCHAR big5hkscs_pairenc_table[4] = {0x8862, 0x8864, 0x88a3, 0x88a5}; | |
ENCODER(big5hkscs) | |
{ | |
while (inleft > 0) { | |
ucs4_t c = **inbuf; | |
DBCHAR code; | |
Py_ssize_t insize; | |
if (c < 0x80) { | |
REQUIRE_OUTBUF(1) | |
**outbuf = (unsigned char)c; | |
NEXT(1, 1) | |
continue; | |
} | |
DECODE_SURROGATE(c) | |
insize = GET_INSIZE(c); | |
REQUIRE_OUTBUF(2) | |
if (c < 0x10000) { | |
TRYMAP_ENC(big5hkscs_bmp, code, c) { | |
if (code == MULTIC) { | |
if (inleft >= 2 && | |
((c & 0xffdf) == 0x00ca) && | |
(((*inbuf)[1] & 0xfff7) == 0x0304)) { | |
code = big5hkscs_pairenc_table[ | |
((c >> 4) | | |
((*inbuf)[1] >> 3)) & 3]; | |
insize = 2; | |
} | |
else if (inleft < 2 && | |
!(flags & MBENC_FLUSH)) | |
return MBERR_TOOFEW; | |
else { | |
if (c == 0xca) | |
code = 0x8866; | |
else /* c == 0xea */ | |
code = 0x88a7; | |
} | |
} | |
} | |
else TRYMAP_ENC(big5, code, c); | |
else return 1; | |
} | |
else if (c < 0x20000) | |
return insize; | |
else if (c < 0x30000) { | |
TRYMAP_ENC(big5hkscs_nonbmp, code, c & 0xffff); | |
else return insize; | |
} | |
else | |
return insize; | |
OUT1(code >> 8) | |
OUT2(code & 0xFF) | |
NEXT(insize, 2) | |
} | |
return 0; | |
} | |
#define BH2S(c1, c2) (((c1) - 0x87) * (0xfe - 0x40 + 1) + ((c2) - 0x40)) | |
DECODER(big5hkscs) | |
{ | |
while (inleft > 0) { | |
unsigned char c = IN1; | |
ucs4_t decoded; | |
REQUIRE_OUTBUF(1) | |
if (c < 0x80) { | |
OUT1(c) | |
NEXT(1, 1) | |
continue; | |
} | |
REQUIRE_INBUF(2) | |
if (0xc6 <= c && c <= 0xc8 && (c >= 0xc7 || IN2 >= 0xa1)) | |
goto hkscsdec; | |
TRYMAP_DEC(big5, **outbuf, c, IN2) { | |
NEXT(2, 1) | |
} | |
else | |
hkscsdec: TRYMAP_DEC(big5hkscs, decoded, c, IN2) { | |
int s = BH2S(c, IN2); | |
const unsigned char *hintbase; | |
assert(0x87 <= c && c <= 0xfe); | |
assert(0x40 <= IN2 && IN2 <= 0xfe); | |
if (BH2S(0x87, 0x40) <= s && s <= BH2S(0xa0, 0xfe)) { | |
hintbase = big5hkscs_phint_0; | |
s -= BH2S(0x87, 0x40); | |
} | |
else if (BH2S(0xc6,0xa1) <= s && s <= BH2S(0xc8,0xfe)){ | |
hintbase = big5hkscs_phint_12130; | |
s -= BH2S(0xc6, 0xa1); | |
} | |
else if (BH2S(0xf9,0xd6) <= s && s <= BH2S(0xfe,0xfe)){ | |
hintbase = big5hkscs_phint_21924; | |
s -= BH2S(0xf9, 0xd6); | |
} | |
else | |
return MBERR_INTERNAL; | |
if (hintbase[s >> 3] & (1 << (s & 7))) { | |
WRITEUCS4(decoded | 0x20000) | |
NEXT_IN(2) | |
} | |
else { | |
OUT1(decoded) | |
NEXT(2, 1) | |
} | |
} | |
else { | |
switch ((c << 8) | IN2) { | |
case 0x8862: WRITE2(0x00ca, 0x0304); break; | |
case 0x8864: WRITE2(0x00ca, 0x030c); break; | |
case 0x88a3: WRITE2(0x00ea, 0x0304); break; | |
case 0x88a5: WRITE2(0x00ea, 0x030c); break; | |
default: return 2; | |
} | |
NEXT(2, 2) /* all decoded codepoints are pairs, above. */ | |
} | |
} | |
return 0; | |
} | |
BEGIN_MAPPINGS_LIST | |
MAPPING_DECONLY(big5hkscs) | |
MAPPING_ENCONLY(big5hkscs_bmp) | |
MAPPING_ENCONLY(big5hkscs_nonbmp) | |
END_MAPPINGS_LIST | |
BEGIN_CODECS_LIST | |
CODEC_STATELESS_WINIT(big5hkscs) | |
END_CODECS_LIST | |
I_AM_A_MODULE_FOR(hk) |