Adding upstream version 0.5.1
This commit is contained in:
177
libwc/big5.c
Normal file
177
libwc/big5.c
Normal file
@@ -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;
|
||||
}
|
Reference in New Issue
Block a user