aboutsummaryrefslogtreecommitdiffstats
path: root/libwc/big5.c
diff options
context:
space:
mode:
Diffstat (limited to 'libwc/big5.c')
-rw-r--r--libwc/big5.c177
1 files changed, 177 insertions, 0 deletions
diff --git a/libwc/big5.c b/libwc/big5.c
new file mode 100644
index 0000000..ff3d336
--- /dev/null
+++ b/libwc/big5.c
@@ -0,0 +1,177 @@
+
+#include "wc.h"
+#include "big5.h"
+#include "search.h"
+#include "wtf.h"
+#ifdef USE_UNICODE
+#include "ucs.h"
+#endif
+
+#define C0 WC_BIG5_MAP_C0
+#define GL WC_BIG5_MAP_GL
+#define C1 WC_BIG5_MAP_C1
+#define LB WC_BIG5_MAP_LB
+#define UB WC_BIG5_MAP_UB
+
+wc_uint8 WC_BIG5_MAP[ 0x100 ] = {
+ C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0,
+ C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0, C0,
+ GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL,
+ GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL, GL,
+ LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB,
+ LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB,
+ LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB,
+ LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, LB, C0,
+
+ C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1,
+ C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1, C1,
+ C1, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB,
+ UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB,
+ UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB,
+ UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB,
+ UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB,
+ UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, UB, C1,
+};
+
+wc_wchar_t
+wc_big5_to_cs94w(wc_wchar_t cc)
+{
+ cc.code = WC_BIG5_N(cc.code);
+ if (cc.code < WC_C_BIG5_2_BASE)
+ cc.ccs = WC_CCS_BIG5_1;
+ else {
+ cc.ccs = WC_CCS_BIG5_2;
+ cc.code -= WC_C_BIG5_2_BASE;
+ }
+ cc.code = WC_N_CS94W(cc.code);
+ return cc;
+}
+
+wc_wchar_t
+wc_cs94w_to_big5(wc_wchar_t cc)
+{
+ cc.code = WC_CS94W_N(cc.code);
+ if (cc.ccs == WC_CCS_BIG5_2)
+ cc.code += WC_C_BIG5_2_BASE;
+ cc.code = WC_N_BIG5(cc.code);
+ cc.ccs = WC_CCS_BIG5;
+ return cc;
+}
+
+Str
+wc_conv_from_big5(Str is, wc_ces ces)
+{
+ Str os;
+ wc_uchar *sp = (wc_uchar *)is->ptr;
+ wc_uchar *ep = sp + is->length;
+ wc_uchar *p;
+ int state = WC_BIG5_NOSTATE;
+
+ for (p = sp; p < ep && *p < 0x80; p++)
+ ;
+ if (p == ep)
+ return is;
+ os = Strnew_size(is->length);
+ if (p > sp)
+ Strcat_charp_n(os, (char *)is->ptr, (int)(p - sp));
+
+ for (; p < ep; p++) {
+ switch (state) {
+ case WC_BIG5_NOSTATE:
+ switch (WC_BIG5_MAP[*p]) {
+ case UB:
+ state = WC_BIG5_MBYTE1;
+ break;
+ case C1:
+ wtf_push_unknown(os, p, 1);
+ break;
+ default:
+ Strcat_char(os, (char)*p);
+ break;
+ }
+ break;
+ case WC_BIG5_MBYTE1:
+ if (WC_BIG5_MAP[*p] & LB)
+ wtf_push(os, WC_CCS_BIG5, ((wc_uint32)*(p-1) << 8) | *p);
+ else
+ wtf_push_unknown(os, p-1, 2);
+ state = WC_BIG5_NOSTATE;
+ break;
+ }
+ }
+ switch (state) {
+ case WC_BIG5_MBYTE1:
+ wtf_push_unknown(os, p-1, 1);
+ break;
+ }
+ return os;
+}
+
+void
+wc_push_to_big5(Str os, wc_wchar_t cc, wc_status *st)
+{
+ while (1) {
+ switch (cc.ccs) {
+ case WC_CCS_US_ASCII:
+ Strcat_char(os, (char)cc.code);
+ return;
+ case WC_CCS_BIG5_1:
+ case WC_CCS_BIG5_2:
+ cc = wc_cs94w_to_big5(cc);
+ case WC_CCS_BIG5:
+ Strcat_char(os, (char)(cc.code >> 8));
+ Strcat_char(os, (char)(cc.code & 0xff));
+ return;
+ case WC_CCS_UNKNOWN_W:
+ if (!WcOption.no_replace)
+ Strcat_charp(os, WC_REPLACE_W);
+ return;
+ case WC_CCS_UNKNOWN:
+ if (!WcOption.no_replace)
+ Strcat_charp(os, WC_REPLACE);
+ return;
+ default:
+#ifdef USE_UNICODE
+ if (WcOption.ucs_conv)
+ cc = wc_any_to_any_ces(cc, st);
+ else
+#endif
+ cc.ccs = WC_CCS_IS_WIDE(cc.ccs) ? WC_CCS_UNKNOWN_W : WC_CCS_UNKNOWN;
+ continue;
+ }
+ }
+}
+
+Str
+wc_char_conv_from_big5(wc_uchar c, wc_status *st)
+{
+ static Str os;
+ static wc_uchar big5u;
+
+ if (st->state == -1) {
+ st->state = WC_BIG5_NOSTATE;
+ os = Strnew_size(8);
+ }
+
+ switch (st->state) {
+ case WC_BIG5_NOSTATE:
+ switch (WC_BIG5_MAP[c]) {
+ case UB:
+ big5u = c;
+ st->state = WC_BIG5_MBYTE1;
+ return NULL;
+ case C1:
+ break;
+ default:
+ Strcat_char(os, (char)c);
+ break;
+ }
+ break;
+ case WC_BIG5_MBYTE1:
+ if (WC_BIG5_MAP[c] & LB)
+ wtf_push(os, WC_CCS_BIG5, ((wc_uint32)big5u << 8) | c);
+ break;
+ }
+ st->state = -1;
+ return os;
+}