merge m17n patch

add libwc

1 files changed, 208 insertions, 0 deletions

diff --git a/libwc/hkscs.c b/libwc/hkscs.c
new file mode 100644
index 0000000..9badf76
--- /dev/null
+++ b/libwc/hkscs.c
@@ -0,0 +1,208 @@
+
+#include "wc.h"
+#include "big5.h"
+#include "hkscs.h"
+#include "search.h"
+#include "wtf.h"
+#ifdef USE_UNICODE
+#include "ucs.h"
+#endif
+
+#define C0 WC_HKSCS_MAP_C0
+#define GL WC_HKSCS_MAP_GL
+#define C1 WC_HKSCS_MAP_C1
+#define LB WC_HKSCS_MAP_LB
+#define UB WC_HKSCS_MAP_UB
+#define UH WC_HKSCS_MAP_UH
+
+wc_uint8 WC_HKSCS_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, UH, UH, UH, UH, UH, UH, UH, UH,
+    UH, UH, UH, UH, UH, UH, UH, UH, UH, UH, UH, UH, UH, UH, UH, UH,
+    UH, 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_hkscs_to_cs128w(wc_wchar_t cc)
+{
+    cc.code = WC_HKSCS_N(cc.code);
+    if (cc.code < 0x4000)
+	cc.ccs = WC_CCS_HKSCS_1;
+    else {
+	cc.ccs = WC_CCS_HKSCS_2;
+	cc.code -= 0x4000;
+    }
+    cc.code = WC_N_CS128W(cc.code);
+    return cc;
+}
+
+wc_wchar_t
+wc_cs128w_to_hkscs(wc_wchar_t cc)
+{
+    cc.code = WC_CS128W_N(cc.code);
+    if (cc.ccs == WC_CCS_HKSCS_2)
+	cc.code += 0x4000;
+    cc.ccs = WC_CCS_HKSCS;
+    cc.code = WC_N_HKSCS(cc.code);
+    return cc;
+}
+
+wc_uint32
+wc_hkscs_to_N(wc_uint32 c)
+{
+    if (c < 0xA140)	/* 0x8840 - 0xA0FE */
+	return WC_HKSCS_N(c);
+    			/* 0xFA40 - 0xFEFE */
+    return WC_HKSCS_N(c) - 0x59 * 0x9D;
+}
+
+Str
+wc_conv_from_hkscs(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_HKSCS_NOSTATE;
+    wc_uint32 hkscs;
+
+    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_HKSCS_NOSTATE:
+	    switch (WC_HKSCS_MAP[*p]) {
+	    case UB:
+	    case UH:
+		state = WC_HKSCS_MBYTE1;
+		break;
+	    case C1:
+		wtf_push_unknown(os, p, 1);
+		break;
+	    default:
+		Strcat_char(os, (char)*p);
+		break;
+	    }
+	    break;
+	case WC_HKSCS_MBYTE1:
+	    if (WC_HKSCS_MAP[*p] & LB) {
+		hkscs = ((wc_uint32)*(p-1) << 8) | *p;
+		if (*(p-1) >= 0xA1 && *(p-1) <= 0xF9)
+		    wtf_push(os, WC_CCS_BIG5, hkscs);
+		else
+		    wtf_push(os, WC_CCS_HKSCS, hkscs);
+	    } else
+		wtf_push_unknown(os, p-1, 2);
+	    state = WC_HKSCS_NOSTATE;
+	    break;
+	}
+    }
+    switch (state) {
+    case WC_HKSCS_MBYTE1:
+	wtf_push_unknown(os, p-1, 1);
+	break;
+    }
+    return os;
+}
+
+void
+wc_push_to_hkscs(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_HKSCS_1:
+    case WC_CCS_HKSCS_2:
+	cc = wc_cs128w_to_hkscs(cc);
+    case WC_CCS_HKSCS:
+	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_hkscs(wc_uchar c, wc_status *st)
+{
+    static Str os;
+    static wc_uchar hkscsu;
+    wc_uint32 hkscs;
+
+    if (st->state == -1) {
+	st->state = WC_HKSCS_NOSTATE;
+	os = Strnew_size(8);
+    }
+
+    switch (st->state) {
+    case WC_HKSCS_NOSTATE:
+	switch (WC_HKSCS_MAP[c]) {
+	case UB:
+	case UH:
+	    hkscsu = c;
+	    st->state = WC_HKSCS_MBYTE1;
+	    return NULL;
+	case C1:
+	    break;
+	default:
+	    Strcat_char(os, (char)c);
+	    break;
+	}
+	break;
+    case WC_HKSCS_MBYTE1:
+	if (WC_HKSCS_MAP[c] & LB) {
+	    hkscs = ((wc_uint32)hkscsu << 8) | c;
+	    if (hkscsu >= 0xA1 && hkscsu <= 0xF9 && c >= 0xA1)
+		wtf_push(os, WC_CCS_BIG5, hkscs);
+	    else
+		wtf_push(os, WC_CCS_HKSCS, hkscs);
+	}
+	break;
+    }
+    st->state = -1;
+    return os;
+}