Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 1 | /* |
| 2 | * _codecs_tw.c: Codecs collection for Taiwan's encodings |
| 3 | * |
| 4 | * Written by Hye-Shik Chang <perky@FreeBSD.org> |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 5 | */ |
| 6 | |
| 7 | #include "cjkcodecs.h" |
| 8 | #include "mappings_tw.h" |
| 9 | |
| 10 | /* |
| 11 | * BIG5 codec |
| 12 | */ |
| 13 | |
| 14 | ENCODER(big5) |
| 15 | { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 16 | while (inleft > 0) { |
| 17 | Py_UNICODE c = **inbuf; |
| 18 | DBCHAR code; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 19 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 20 | if (c < 0x80) { |
| 21 | REQUIRE_OUTBUF(1) |
| 22 | **outbuf = (unsigned char)c; |
| 23 | NEXT(1, 1) |
| 24 | continue; |
| 25 | } |
| 26 | UCS4INVALID(c) |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 27 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 28 | REQUIRE_OUTBUF(2) |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 29 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 30 | TRYMAP_ENC(big5, code, c); |
| 31 | else return 1; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 32 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 33 | OUT1(code >> 8) |
| 34 | OUT2(code & 0xFF) |
| 35 | NEXT(1, 2) |
| 36 | } |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 37 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 38 | return 0; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 39 | } |
| 40 | |
| 41 | DECODER(big5) |
| 42 | { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 43 | while (inleft > 0) { |
| 44 | unsigned char c = IN1; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 45 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 46 | REQUIRE_OUTBUF(1) |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 47 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 48 | if (c < 0x80) { |
| 49 | OUT1(c) |
| 50 | NEXT(1, 1) |
| 51 | continue; |
| 52 | } |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 53 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 54 | REQUIRE_INBUF(2) |
| 55 | TRYMAP_DEC(big5, **outbuf, c, IN2) { |
| 56 | NEXT(2, 1) |
| 57 | } |
| 58 | else return 2; |
| 59 | } |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 60 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 61 | return 0; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 62 | } |
| 63 | |
| 64 | |
| 65 | /* |
| 66 | * CP950 codec |
| 67 | */ |
| 68 | |
| 69 | ENCODER(cp950) |
| 70 | { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 71 | while (inleft > 0) { |
| 72 | Py_UNICODE c = IN1; |
| 73 | DBCHAR code; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 74 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 75 | if (c < 0x80) { |
| 76 | WRITE1((unsigned char)c) |
| 77 | NEXT(1, 1) |
| 78 | continue; |
| 79 | } |
| 80 | UCS4INVALID(c) |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 81 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 82 | REQUIRE_OUTBUF(2) |
| 83 | TRYMAP_ENC(cp950ext, code, c); |
| 84 | else TRYMAP_ENC(big5, code, c); |
| 85 | else return 1; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 86 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 87 | OUT1(code >> 8) |
| 88 | OUT2(code & 0xFF) |
| 89 | NEXT(1, 2) |
| 90 | } |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 91 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 92 | return 0; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 93 | } |
| 94 | |
| 95 | DECODER(cp950) |
| 96 | { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 97 | while (inleft > 0) { |
| 98 | unsigned char c = IN1; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 99 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 100 | REQUIRE_OUTBUF(1) |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 101 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 102 | if (c < 0x80) { |
| 103 | OUT1(c) |
| 104 | NEXT(1, 1) |
| 105 | continue; |
| 106 | } |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 107 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 108 | REQUIRE_INBUF(2) |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 109 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 110 | TRYMAP_DEC(cp950ext, **outbuf, c, IN2); |
| 111 | else TRYMAP_DEC(big5, **outbuf, c, IN2); |
| 112 | else return 2; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 113 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 114 | NEXT(2, 1) |
| 115 | } |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 116 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 117 | return 0; |
Hye-Shik Chang | 2bb146f | 2004-07-18 03:06:29 +0000 | [diff] [blame] | 118 | } |
| 119 | |
| 120 | |
| 121 | |
| 122 | BEGIN_MAPPINGS_LIST |
| 123 | MAPPING_ENCDEC(big5) |
| 124 | MAPPING_ENCDEC(cp950ext) |
| 125 | END_MAPPINGS_LIST |
| 126 | |
| 127 | BEGIN_CODECS_LIST |
| 128 | CODEC_STATELESS(big5) |
| 129 | CODEC_STATELESS(cp950) |
| 130 | END_CODECS_LIST |
| 131 | |
| 132 | I_AM_A_MODULE_FOR(tw) |