ref: 1787584ad839002584e0752e4df41b6f3b70064b
dir: /sys/src/cmd/python/Modules/cjkcodecs/_codecs_hk.c/
/* * _codecs_hk.c: Codecs collection for encodings from Hong Kong * * Written by Hye-Shik Chang <[email protected]> */ #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; } 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); 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) - 0x88) * (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(0x88 <= c && c <= 0xfe); assert(0x40 <= IN2 && IN2 <= 0xfe); if (BH2S(0x88, 0x40) <= s && s <= BH2S(0xa0, 0xfe)) { hintbase = big5hkscs_phint_0; s -= BH2S(0x88, 0x40); } else if (BH2S(0xc6,0xa1) <= s && s <= BH2S(0xc8,0xfe)){ hintbase = big5hkscs_phint_11939; s -= BH2S(0xc6, 0xa1); } else if (BH2S(0xf9,0xd6) <= s && s <= BH2S(0xfe,0xfe)){ hintbase = big5hkscs_phint_21733; 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 return 2; } 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)