Modules/cjkcodecs/_codecs_hk.c

   1 /*
   2  * _codecs_hk.c: Codecs collection for encodings from Hong Kong
   3  *
   4  * Written by Hye-Shik Chang <perky@FreeBSD.org>
   5  */
   6
   7 #define USING_IMPORTED_MAPS
   8
   9 #include "cjkcodecs.h"
  10 #include "mappings_hk.h"
  11
  12 /*
  13  * BIG5HKSCS codec
  14  */
  15
  16 static const encode_map *big5_encmap = NULL;
  17 static const decode_map *big5_decmap = NULL;
  18
  19 CODEC_INIT(big5hkscs)
  20 {
  21         static int initialized = 0;
  22
  23         if (!initialized && IMPORT_MAP(tw, big5, &big5_encmap, &big5_decmap))
  24                 return -1;
  25         initialized = 1;
  26         return 0;
  27 }
  28
  29 ENCODER(big5hkscs)
  30 {
  31         while (inleft > 0) {
  32                 ucs4_t c = **inbuf;
  33                 DBCHAR code;
  34                 Py_ssize_t insize;
  35
  36                 if (c < 0x80) {
  37                         REQUIRE_OUTBUF(1)
  38                         **outbuf = (unsigned char)c;
  39                         NEXT(1, 1)
  40                         continue;
  41                 }
  42
  43                 DECODE_SURROGATE(c)
  44                 insize = GET_INSIZE(c);
  45
  46                 REQUIRE_OUTBUF(2)
  47
  48                 if (c < 0x10000) {
  49                         TRYMAP_ENC(big5hkscs_bmp, code, c);
  50                         else TRYMAP_ENC(big5, code, c);
  51                         else return 1;
  52                 }
  53                 else if (c < 0x20000)
  54                         return insize;
  55                 else if (c < 0x30000) {
  56                         TRYMAP_ENC(big5hkscs_nonbmp, code, c & 0xffff);
  57                         else return insize;
  58                 }
  59                 else
  60                         return insize;
  61
  62                 OUT1(code >> 8)
  63                 OUT2(code & 0xFF)
  64                 NEXT(insize, 2)
  65         }
  66
  67         return 0;
  68 }
  69
  70 #define BH2S(c1, c2) (((c1) - 0x88) * (0xfe - 0x40 + 1) + ((c2) - 0x40))
  71
  72 DECODER(big5hkscs)
  73 {
  74         while (inleft > 0) {
  75                 unsigned char c = IN1;
  76                 ucs4_t decoded;
  77
  78                 REQUIRE_OUTBUF(1)
  79
  80                 if (c < 0x80) {
  81                         OUT1(c)
  82                         NEXT(1, 1)
  83                         continue;
  84                 }
  85
  86                 REQUIRE_INBUF(2)
  87
  88                 if (0xc6 <= c && c <= 0xc8 && (c >= 0xc7 || IN2 >= 0xa1))
  89                         goto hkscsdec;
  90
  91                 TRYMAP_DEC(big5, **outbuf, c, IN2) {
  92                         NEXT(2, 1)
  93                 }
  94                 else
  95 hkscsdec:       TRYMAP_DEC(big5hkscs, decoded, c, IN2) {
  96                         int s = BH2S(c, IN2);
  97                         const unsigned char *hintbase;
  98
  99                         assert(0x88 <= c && c <= 0xfe);
 100                         assert(0x40 <= IN2 && IN2 <= 0xfe);
 101
 102                         if (BH2S(0x88, 0x40) <= s && s <= BH2S(0xa0, 0xfe)) {
 103                                 hintbase = big5hkscs_phint_0;
 104                                 s -= BH2S(0x88, 0x40);
 105                         }
 106                         else if (BH2S(0xc6,0xa1) <= s && s <= BH2S(0xc8,0xfe)){
 107                                 hintbase = big5hkscs_phint_11939;
 108                                 s -= BH2S(0xc6, 0xa1);
 109                         }
 110                         else if (BH2S(0xf9,0xd6) <= s && s <= BH2S(0xfe,0xfe)){
 111                                 hintbase = big5hkscs_phint_21733;
 112                                 s -= BH2S(0xf9, 0xd6);
 113                         }
 114                         else
 115                                 return MBERR_INTERNAL;
 116
 117                         if (hintbase[s >> 3] & (1 << (s & 7))) {
 118                                 WRITEUCS4(decoded | 0x20000)
 119                                 NEXT_IN(2)
 120                         }
 121                         else {
 122                                 OUT1(decoded)
 123                                 NEXT(2, 1)
 124                         }
 125                 }
 126                 else return 2;
 127         }
 128
 129         return 0;
 130 }
 131
 132
 133 BEGIN_MAPPINGS_LIST
 134   MAPPING_DECONLY(big5hkscs)
 135   MAPPING_ENCONLY(big5hkscs_bmp)
 136   MAPPING_ENCONLY(big5hkscs_nonbmp)
 137 END_MAPPINGS_LIST
 138
 139 BEGIN_CODECS_LIST
 140   CODEC_STATELESS_WINIT(big5hkscs)
 141 END_CODECS_LIST
 142
 143 I_AM_A_MODULE_FOR(hk)