/Modules/cjkcodecs/_codecs_hk.c
http://unladen-swallow.googlecode.com/ · C · 183 lines · 137 code · 30 blank · 16 comment · 43 complexity · fca97f38784b5c249b51c882ecb0ea58 MD5 · raw file
- /*
- * _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)