596 lines
		
	
	
		
			13 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			596 lines
		
	
	
		
			13 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| 
 | |
| #include "wc.h"
 | |
| #include "sjis.h"
 | |
| #include "jis.h"
 | |
| #include "wtf.h"
 | |
| #include "ucs.h"
 | |
| 
 | |
| #include "map/jisx02132_sjis.map"
 | |
| wc_uchar *wc_jisx0212_jisx02132_map = jisx02132_sjis_map;
 | |
| 
 | |
| #define C0  WC_SJIS_MAP_C0
 | |
| #define GL  WC_SJIS_MAP_GL
 | |
| #define LB  WC_SJIS_MAP_LB
 | |
| #define S80 WC_SJIS_MAP_80
 | |
| #define SK  WC_SJIS_MAP_SK
 | |
| #define SL  WC_SJIS_MAP_SL
 | |
| #define SH  WC_SJIS_MAP_SH
 | |
| #define SX  WC_SJIS_MAP_SX
 | |
| #define C1  WC_SJIS_MAP_C1
 | |
| #define SA0 WC_SJIS_MAP_A0
 | |
| 
 | |
| wc_uint8 WC_SJIS_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,
 | |
| 
 | |
|     S80,SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL,
 | |
|     SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL, SL,
 | |
|     SA0,SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK,
 | |
|     SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK,
 | |
|     SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK,
 | |
|     SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK, SK,
 | |
|     SH, SH, SH, SH, SH, SH, SH, SH, SH, SH, SH, SH, SH, SH, SH, SH,
 | |
|     SX, SX, SX, SX, SX, SX, SX, SX, SX, SX, SX, SX, SX, C1, C1, C1,
 | |
| };
 | |
| 
 | |
| #define sjis_to_jisx0208(ub, lb) \
 | |
| { \
 | |
|     ub -= (ub < 0xa0) ? 0x81 : 0xc1; \
 | |
|     ub = (ub << 1) + 0x21; \
 | |
|     if (lb < 0x9f) { \
 | |
| 	lb -= (lb > 0x7e) ? 0x20 : 0x1f; \
 | |
|     } else { \
 | |
| 	ub++; \
 | |
| 	lb -= 0x7e; \
 | |
|     } \
 | |
| }
 | |
| #define sjis_to_jisx02132(ub, lb) \
 | |
| { \
 | |
|     if (lb < 0x9f) { \
 | |
| 	ub = sjis1_jisx02132_map[ub - 0xf0]; \
 | |
| 	lb -= (lb > 0x7e) ? 0x20 : 0x1f; \
 | |
|     } else { \
 | |
| 	ub = sjis2_jisx02132_map[ub - 0xf0]; \
 | |
| 	lb -= 0x7e; \
 | |
|     } \
 | |
| }
 | |
| #define jisx0208_to_sjis(ub, lb) \
 | |
| { \
 | |
|     lb += (ub & 1) ? 0x1f : 0x7d; \
 | |
|     if (lb > 0x7e) \
 | |
| 	lb++; \
 | |
|     ub = (ub - 0x21) >> 1; \
 | |
|     ub += (ub < 0x1f) ? 0x81 : 0xc1; \
 | |
| }
 | |
| #define jisx02132_to_sjis(ub, lb) \
 | |
| { \
 | |
|     lb += (ub & 1) ? 0x1f : 0x7d; \
 | |
|     if (lb > 0x7e) \
 | |
| 	lb++; \
 | |
|     ub = jisx02132_sjis_map[ ub ]; \
 | |
| }
 | |
| 
 | |
| wc_wchar_t
 | |
| wc_sjis_to_jis(wc_wchar_t cc)
 | |
| {
 | |
|     wc_uchar ub, lb;
 | |
| 
 | |
|     ub = cc.code >> 8;
 | |
|     lb = cc.code & 0xff;
 | |
|     if (ub < 0xf0) {
 | |
| 	sjis_to_jisx0208(ub, lb);
 | |
| 	cc.ccs = WC_CCS_JIS_X_0208;
 | |
|     } else {
 | |
| 	sjis_to_jisx02132(ub, lb);
 | |
| 	cc.ccs = WC_CCS_JIS_X_0213_2;
 | |
|     }
 | |
|     cc.code = ((wc_uint32)ub << 8) | lb;
 | |
|     return cc;
 | |
| }
 | |
| 
 | |
| wc_wchar_t
 | |
| wc_jis_to_sjis(wc_wchar_t cc)
 | |
| {
 | |
|     wc_uchar ub, lb;
 | |
| 
 | |
|     ub = (cc.code >> 8) & 0x7f;
 | |
|     lb = cc.code & 0x7f;
 | |
|     if (cc.ccs == WC_CCS_JIS_X_0213_2) {
 | |
| 	jisx02132_to_sjis(ub, lb);
 | |
| 	if (! ub) {
 | |
| 	    cc.ccs = WC_CCS_UNKNOWN_W;
 | |
| 	    return cc;
 | |
| 	}
 | |
|     } else {
 | |
| 	jisx0208_to_sjis(ub, lb);
 | |
|     }
 | |
|     cc.code = ((wc_uint32)ub << 8) | lb;
 | |
|     return cc;
 | |
| }
 | |
| 
 | |
| wc_wchar_t
 | |
| wc_sjis_ext_to_cs94w(wc_wchar_t cc)
 | |
| {
 | |
|     wc_uchar ub, lb;
 | |
| 
 | |
|     ub = cc.code >> 8;
 | |
|     lb = cc.code & 0xff;
 | |
|     sjis_to_jisx0208(ub, lb);
 | |
|     if (ub <= 0x7e) {
 | |
| 	cc.ccs = WC_CCS_SJIS_EXT_1;
 | |
|     } else {
 | |
| 	ub -= 0x5e;
 | |
| 	cc.ccs = WC_CCS_SJIS_EXT_2;
 | |
|     }
 | |
|     cc.code = ((wc_uint32)ub << 8) | lb;
 | |
|     return cc;
 | |
| }
 | |
| 
 | |
| wc_wchar_t
 | |
| wc_cs94w_to_sjis_ext(wc_wchar_t cc)
 | |
| {
 | |
|     wc_uchar ub, lb;
 | |
| 
 | |
|     ub = (cc.code >> 8) & 0x7f;
 | |
|     lb = cc.code & 0x7f;
 | |
|     if (cc.ccs == WC_CCS_SJIS_EXT_2)
 | |
| 	ub += 0x5e;
 | |
|     jisx0208_to_sjis(ub, lb);
 | |
|     cc.ccs = WC_CCS_SJIS_EXT;
 | |
|     cc.code = ((wc_uint32)ub << 8) | lb;
 | |
|     return cc;
 | |
| }
 | |
| 
 | |
| wc_uint32
 | |
| wc_sjis_ext1_to_N(wc_uint32 c)
 | |
| {
 | |
|     wc_uchar ub;
 | |
| 
 | |
|     ub = (c >> 8) & 0x7f;
 | |
|     switch(ub) {
 | |
|     case 0x2D:	/* 0x8740 - */
 | |
| 	ub = 0;
 | |
| 	break;
 | |
|     case 0x79:	/* 0xED40 - */
 | |
|     case 0x7A:	/* 0xED9F - */
 | |
|     case 0x7B:	/* 0xEE40 - */
 | |
|     case 0x7C:	/* 0xEE9F - */
 | |
| 	ub -= 0x78;
 | |
| 	break;
 | |
|     default:
 | |
| 	return WC_C_SJIS_ERROR;
 | |
|     }
 | |
|     return ub * 0x5e + (c & 0x7f) - 0x21;
 | |
| }
 | |
| 
 | |
| wc_uint32
 | |
| wc_sjis_ext2_to_N(wc_uint32 c)
 | |
| {
 | |
|     wc_uchar ub;
 | |
| 
 | |
|     ub = (c >> 8) & 0x7f;
 | |
|     switch(ub) {
 | |
|     case 0x35:	/* 0xFA40 - */
 | |
|     case 0x36:	/* 0xFA9F - */
 | |
|     case 0x37:	/* 0xFB40 - */
 | |
|     case 0x38:	/* 0xFB9F - */
 | |
|     case 0x39:	/* 0xFC40 - */
 | |
| 	ub -= 0x30;
 | |
| 	break;
 | |
|     default:
 | |
| 	return WC_C_SJIS_ERROR;
 | |
|     }
 | |
|     return ub * 0x5e + (c & 0x7f) - 0x21;
 | |
| }
 | |
| 
 | |
| Str
 | |
| wc_conv_from_sjis(Str is, wc_ces ces)
 | |
| {
 | |
|     Str os;
 | |
|     wc_uchar *sp = (wc_uchar *)is->ptr;
 | |
|     wc_uchar *ep = sp + is->length;
 | |
|     wc_uchar *p;
 | |
|     wc_uchar jis[2];
 | |
|     int state = WC_SJIS_NOSTATE;
 | |
|     wc_wchar_t cc;
 | |
| 
 | |
|     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, is->ptr, (int)(p - sp));
 | |
| 
 | |
|     for (; p < ep; p++) {
 | |
| 	switch (state) {
 | |
| 	case WC_SJIS_NOSTATE:
 | |
| 	    switch (WC_SJIS_MAP[*p]) {
 | |
| 	    case SL:
 | |
| 		state = WC_SJIS_SHIFT_L;
 | |
| 		break;
 | |
| 	    case SH:
 | |
| 		state = WC_SJIS_SHIFT_H;
 | |
| 		break;
 | |
| 	    case SX:
 | |
| 		state = WC_SJIS_SHIFT_X;
 | |
| 		break;
 | |
| 	    case SK:
 | |
| 		wtf_push(os, WC_CCS_JIS_X_0201K, (wc_uint32)*p);
 | |
| 		break;
 | |
| 	    case S80:
 | |
| 	    case SA0:
 | |
| 	    case C1:
 | |
| 		wtf_push_unknown(os, p, 1);
 | |
| 		break;
 | |
| 	    default:
 | |
| 		Strcat_char(os, (char)*p);
 | |
| 		break;
 | |
| 	    }
 | |
| 	    break;
 | |
| 	case WC_SJIS_SHIFT_L:
 | |
| 	case WC_SJIS_SHIFT_H:
 | |
| 	    if (WC_SJIS_MAP[*p] & LB) {
 | |
| 		jis[0] = *(p-1);
 | |
| 		jis[1] = *p;
 | |
| 		sjis_to_jisx0208(jis[0], jis[1]);
 | |
| 		cc.code = ((wc_uint32)jis[0] << 8) | jis[1];
 | |
| 		cc.ccs = wc_jisx0208_or_jisx02131(cc.code);
 | |
| 		if (cc.ccs == WC_CCS_JIS_X_0208)
 | |
| 		    wtf_push(os, cc.ccs, cc.code);
 | |
| 		else
 | |
| 		    wtf_push(os, WC_CCS_SJIS_EXT, ((wc_uint32)*(p-1) << 8) | *p);
 | |
| 	    } else
 | |
| 		wtf_push_unknown(os, p-1, 2);
 | |
| 	    state = WC_SJIS_NOSTATE;
 | |
| 	    break;
 | |
| 	case WC_SJIS_SHIFT_X:
 | |
| 	    if (WC_SJIS_MAP[*p] & LB)
 | |
| 		wtf_push(os, WC_CCS_SJIS_EXT, ((wc_uint32)*(p-1) << 8) | *p);
 | |
| 	    else
 | |
| 		wtf_push_unknown(os, p-1, 2);
 | |
| 	    state = WC_SJIS_NOSTATE;
 | |
| 	    break;
 | |
| 	}
 | |
|     }
 | |
|     switch (state) {
 | |
|     case WC_SJIS_SHIFT_L:
 | |
|     case WC_SJIS_SHIFT_H:
 | |
|     case WC_SJIS_SHIFT_X:
 | |
| 	wtf_push_unknown(os, p-1, 1);
 | |
| 	break;
 | |
|     }
 | |
|     return os;
 | |
| }
 | |
| 
 | |
| Str
 | |
| wc_conv_from_sjisx0213(Str is, wc_ces ces)
 | |
| {
 | |
|     Str os;
 | |
|     wc_uchar *sp = (wc_uchar *)is->ptr;
 | |
|     wc_uchar *ep = sp + is->length;
 | |
|     wc_uchar *p;
 | |
|     wc_uchar jis[2];
 | |
|     int state = WC_SJIS_NOSTATE;
 | |
|     wc_wchar_t cc;
 | |
| 
 | |
|     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, is->ptr, (int)(p - sp));
 | |
| 
 | |
|     for (; p < ep; p++) {
 | |
| 	switch (state) {
 | |
| 	case WC_SJIS_NOSTATE:
 | |
| 	    switch (WC_SJIS_MAP[*p]) {
 | |
| 	    case SL:
 | |
| 		state = WC_SJIS_SHIFT_L;
 | |
| 		break;
 | |
| 	    case SH:
 | |
| 		state = WC_SJIS_SHIFT_H;
 | |
| 		break;
 | |
| 	    case SX:
 | |
| 		state = WC_SJIS_SHIFT_X;
 | |
| 		break;
 | |
| 	    case SK:
 | |
| 		wtf_push(os, WC_CCS_JIS_X_0201K, (wc_uint32)*p);
 | |
| 		break;
 | |
| 	    case S80:
 | |
| 	    case SA0:
 | |
| 	    case C1:
 | |
| 		wtf_push_unknown(os, p, 1);
 | |
| 		break;
 | |
| 	    default:
 | |
| 		Strcat_char(os, (char)*p);
 | |
| 		break;
 | |
| 	    }
 | |
| 	    break;
 | |
| 	case WC_SJIS_SHIFT_L:
 | |
| 	case WC_SJIS_SHIFT_H:
 | |
| 	    if (WC_SJIS_MAP[*p] & LB) {
 | |
| 		jis[0] = *(p-1);
 | |
| 		jis[1] = *p;
 | |
| 		sjis_to_jisx0208(jis[0], jis[1]);
 | |
| 		cc.code = ((wc_uint32)jis[0] << 8) | jis[1];
 | |
| 		cc.ccs = wc_jisx0208_or_jisx02131(cc.code);
 | |
| 		wtf_push(os, cc.ccs, cc.code);
 | |
| 	    } else
 | |
| 		wtf_push_unknown(os, p-1, 2);
 | |
| 	    state = WC_SJIS_NOSTATE;
 | |
| 	    break;
 | |
| 	case WC_SJIS_SHIFT_X:
 | |
| 	    if (WC_SJIS_MAP[*p] & LB) {
 | |
| 		jis[0] = *(p-1);
 | |
| 		jis[1] = *p;
 | |
| 		sjis_to_jisx02132(jis[0], jis[1]);
 | |
| 		wtf_push(os, WC_CCS_JIS_X_0213_2, ((wc_uint32)jis[0] << 8) | jis[1]);
 | |
| 	    } else
 | |
| 		wtf_push_unknown(os, p-1, 2);
 | |
| 	    state = WC_SJIS_NOSTATE;
 | |
| 	    break;
 | |
| 	}
 | |
|     }
 | |
|     switch (state) {
 | |
|     case WC_SJIS_SHIFT_L:
 | |
|     case WC_SJIS_SHIFT_H:
 | |
|     case WC_SJIS_SHIFT_X:
 | |
| 	wtf_push_unknown(os, p-1, 1);
 | |
| 	break;
 | |
|     }
 | |
|     return os;
 | |
| }
 | |
| 
 | |
| void
 | |
| wc_push_to_sjis(Str os, wc_wchar_t cc, wc_status *st)
 | |
| {
 | |
|     wc_uchar ub, lb;
 | |
| 
 | |
|   while (1) {
 | |
|     switch (cc.ccs) {
 | |
|     case WC_CCS_US_ASCII:
 | |
| 	Strcat_char(os, cc.code);
 | |
| 	return;
 | |
|     case WC_CCS_JIS_X_0201K:
 | |
| 	if (WcOption.use_jisx0201k) {
 | |
| 	    Strcat_char(os, cc.code | 0x80);
 | |
| 	    return;
 | |
| 	} else if (WcOption.fix_width_conv)
 | |
| 	    cc.ccs = WC_CCS_UNKNOWN;
 | |
| 	else
 | |
| 	    cc = wc_jisx0201k_to_jisx0208(cc);
 | |
| 	continue;
 | |
|     case WC_CCS_JIS_X_0208:
 | |
| 	ub = (cc.code >> 8) & 0x7f;
 | |
| 	lb = cc.code & 0x7f;
 | |
| 	jisx0208_to_sjis(ub, lb);
 | |
| 	Strcat_char(os, ub);
 | |
| 	Strcat_char(os, lb);
 | |
| 	return;
 | |
|     case WC_CCS_SJIS_EXT_1:
 | |
|     case WC_CCS_SJIS_EXT_2:
 | |
| 	cc = wc_cs94w_to_sjis_ext(cc);
 | |
|     case WC_CCS_SJIS_EXT:
 | |
| 	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;
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| void
 | |
| wc_push_to_sjisx0213(Str os, wc_wchar_t cc, wc_status *st)
 | |
| {
 | |
|     wc_uchar ub, lb;
 | |
| 
 | |
|   while (1) {
 | |
|     switch (cc.ccs) {
 | |
|     case WC_CCS_US_ASCII:
 | |
| 	Strcat_char(os, cc.code);
 | |
| 	return;
 | |
|     case WC_CCS_JIS_X_0201K:
 | |
| 	if (WcOption.use_jisx0201k) {
 | |
| 	    Strcat_char(os, cc.code | 0x80);
 | |
| 	    return;
 | |
| 	} else if (WcOption.fix_width_conv)
 | |
| 	    cc.ccs = WC_CCS_UNKNOWN;
 | |
| 	else
 | |
| 	    cc = wc_jisx0201k_to_jisx0208(cc);
 | |
| 	continue;
 | |
|     case WC_CCS_JIS_X_0213_1:
 | |
| 	if (! WcOption.use_jisx0213) {
 | |
| 	    cc.ccs = WC_CCS_UNKNOWN_W;
 | |
| 	    continue;
 | |
| 	}
 | |
|     case WC_CCS_JIS_X_0208:
 | |
| 	ub = (cc.code >> 8) & 0x7f;
 | |
| 	lb = cc.code & 0x7f;
 | |
| 	jisx0208_to_sjis(ub, lb);
 | |
| 	Strcat_char(os, ub);
 | |
| 	Strcat_char(os, lb);
 | |
| 	return;
 | |
|     case WC_CCS_JIS_X_0213_2:
 | |
| 	if (! WcOption.use_jisx0213) {
 | |
| 	    cc.ccs = WC_CCS_UNKNOWN_W;
 | |
| 	    continue;
 | |
| 	}
 | |
| 	ub = (cc.code >> 8) & 0x7f;
 | |
| 	lb = cc.code & 0x7f;
 | |
| 	jisx02132_to_sjis(ub, lb);
 | |
| 	if (ub) {
 | |
| 	    Strcat_char(os, ub);
 | |
| 	    Strcat_char(os, lb);
 | |
| 	    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_sjis(wc_uchar c, wc_status *st)
 | |
| {
 | |
|     static Str os;
 | |
|     static wc_uchar jis[2];
 | |
|     wc_wchar_t cc;
 | |
| 
 | |
|     if (st->state == -1) {
 | |
| 	st->state = WC_SJIS_NOSTATE;
 | |
| 	os = Strnew_size(8);
 | |
|     }
 | |
| 
 | |
|     switch (st->state) {
 | |
|     case WC_SJIS_NOSTATE:
 | |
| 	switch (WC_SJIS_MAP[c]) {
 | |
| 	case SL:
 | |
| 	    jis[0] = c;
 | |
| 	    st->state = WC_SJIS_SHIFT_L;
 | |
| 	    return NULL;
 | |
| 	case SH:
 | |
| 	    jis[0] = c;
 | |
| 	    st->state = WC_SJIS_SHIFT_H;
 | |
| 	    return NULL;
 | |
| 	case SX:
 | |
| 	    jis[0] = c;
 | |
| 	    st->state = WC_SJIS_SHIFT_X;
 | |
| 	    return NULL;
 | |
| 	case SK:
 | |
| 	    wtf_push(os, WC_CCS_JIS_X_0201K, (wc_uint32)c);
 | |
| 	    break;
 | |
| 	case S80:
 | |
| 	case SA0:
 | |
| 	case C1:
 | |
| 	    break;
 | |
| 	default:
 | |
| 	    Strcat_char(os, (char)c);
 | |
| 	    break;
 | |
| 	}
 | |
| 	break;
 | |
|     case WC_SJIS_SHIFT_L:
 | |
|     case WC_SJIS_SHIFT_H:
 | |
| 	if (WC_SJIS_MAP[c] & LB) {
 | |
| 	    jis[1] = c;
 | |
| 	    sjis_to_jisx0208(jis[0], jis[1]);
 | |
| 	    cc.code = ((wc_uint32)jis[0] << 8) | jis[1];
 | |
| 	    cc.ccs = wc_jisx0208_or_jisx02131(cc.code);
 | |
| 	    if (cc.ccs == WC_CCS_JIS_X_0208)
 | |
| 		wtf_push(os, cc.ccs, cc.code);
 | |
| 	    else
 | |
| 	        wtf_push(os, WC_CCS_SJIS_EXT, ((wc_uint32)jis[0] << 8) | jis[1]);
 | |
| 	}
 | |
| 	st->state = WC_SJIS_NOSTATE;
 | |
| 	break;
 | |
|     case WC_SJIS_SHIFT_X:
 | |
| 	if (WC_SJIS_MAP[c] & LB) {
 | |
| 	    jis[1] = c;
 | |
| 	    wtf_push(os, WC_CCS_SJIS_EXT, ((wc_uint32)jis[0] << 8) | jis[1]);
 | |
| 	}
 | |
| 	st->state = WC_SJIS_NOSTATE;
 | |
| 	break;
 | |
|     }
 | |
|     st->state = -1;
 | |
|     return os;
 | |
| }
 | |
| 
 | |
| Str
 | |
| wc_char_conv_from_sjisx0213(wc_uchar c, wc_status *st)
 | |
| {
 | |
|     static Str os;
 | |
|     static wc_uchar jis[2];
 | |
|     wc_wchar_t cc;
 | |
| 
 | |
|     if (st->state == -1) {
 | |
| 	st->state = WC_SJIS_NOSTATE;
 | |
| 	os = Strnew_size(8);
 | |
|     }
 | |
| 
 | |
|     switch (st->state) {
 | |
|     case WC_SJIS_NOSTATE:
 | |
| 	switch (WC_SJIS_MAP[c]) {
 | |
| 	case SL:
 | |
| 	    jis[0] = c;
 | |
| 	    st->state = WC_SJIS_SHIFT_L;
 | |
| 	    return NULL;
 | |
| 	case SH:
 | |
| 	    jis[0] = c;
 | |
| 	    st->state = WC_SJIS_SHIFT_H;
 | |
| 	    return NULL;
 | |
| 	case SX:
 | |
| 	    jis[0] = c;
 | |
| 	    st->state = WC_SJIS_SHIFT_X;
 | |
| 	    return NULL;
 | |
| 	case SK:
 | |
| 	    wtf_push(os, WC_CCS_JIS_X_0201K, (wc_uint32)c);
 | |
| 	    break;
 | |
| 	case S80:
 | |
| 	case SA0:
 | |
| 	case C1:
 | |
| 	    break;
 | |
| 	default:
 | |
| 	    Strcat_char(os, (char)c);
 | |
| 	    break;
 | |
| 	}
 | |
| 	break;
 | |
|     case WC_SJIS_SHIFT_L:
 | |
|     case WC_SJIS_SHIFT_H:
 | |
| 	if (WC_SJIS_MAP[c] & LB) {
 | |
| 	    jis[1] = c;
 | |
| 	    sjis_to_jisx0208(jis[0], jis[1]);
 | |
| 	    cc.code = ((wc_uint32)jis[0] << 8) | jis[1];
 | |
| 	    cc.ccs = wc_jisx0208_or_jisx02131(cc.code);
 | |
| 	    wtf_push(os, cc.ccs, cc.code);
 | |
| 	}
 | |
| 	st->state = WC_SJIS_NOSTATE;
 | |
| 	break;
 | |
|     case WC_SJIS_SHIFT_X:
 | |
| 	if (WC_SJIS_MAP[c] & LB) {
 | |
| 	    jis[1] = c;
 | |
| 	    sjis_to_jisx02132(jis[0], jis[1]);
 | |
| 	    wtf_push(os, WC_CCS_JIS_X_0213_2, ((wc_uint32)jis[0] << 8) | jis[1]);
 | |
| 	}
 | |
| 	st->state = WC_SJIS_NOSTATE;
 | |
| 	break;
 | |
|     }
 | |
|     st->state = -1;
 | |
|     return os;
 | |
| }
 |