1
2 #include "wc.h"
3 #include "wtf.h"
4 #include "iso2022.h"
5 #include "hz.h"
6 #ifdef USE_UNICODE
7 #include "ucs.h"
8 #include "utf8.h"
9 #include "utf7.h"
10 #endif
11
12 char *WcReplace = "?";
13 char *WcReplaceW = "??";
14
15 static Str wc_conv_to_ces(Str is, wc_ces ces);
16
17 Str
wc_Str_conv(Str is,wc_ces f_ces,wc_ces t_ces)18 wc_Str_conv(Str is, wc_ces f_ces, wc_ces t_ces)
19 {
20 if (f_ces != WC_CES_WTF)
21 is = (*WcCesInfo[WC_CES_INDEX(f_ces)].conv_from)(is, f_ces);
22 if (t_ces != WC_CES_WTF)
23 return wc_conv_to_ces(is, t_ces);
24 else
25 return is;
26 }
27
28 Str
wc_Str_conv_strict(Str is,wc_ces f_ces,wc_ces t_ces)29 wc_Str_conv_strict(Str is, wc_ces f_ces, wc_ces t_ces)
30 {
31 Str os;
32 wc_option opt = WcOption;
33
34 WcOption.strict_iso2022 = WC_TRUE;
35 WcOption.no_replace = WC_TRUE;
36 WcOption.fix_width_conv = WC_FALSE;
37 os = wc_Str_conv(is, f_ces, t_ces);
38 WcOption = opt;
39 return os;
40 }
41
42 static Str
wc_conv_to_ces(Str is,wc_ces ces)43 wc_conv_to_ces(Str is, wc_ces ces)
44 {
45 Str os;
46 wc_uchar *sp = (wc_uchar *)is->ptr;
47 wc_uchar *ep = sp + is->length;
48 wc_uchar *p;
49 wc_status st;
50
51 switch (ces) {
52 case WC_CES_HZ_GB_2312:
53 for (p = sp; p < ep && *p != '~' && *p < 0x80; p++)
54 ;
55 break;
56 case WC_CES_TCVN_5712:
57 case WC_CES_VISCII_11:
58 case WC_CES_VPS:
59 for (p = sp; p < ep && 0x20 <= *p && *p < 0x80; p++)
60 ;
61 break;
62 default:
63 for (p = sp; p < ep && *p < 0x80; p++)
64 ;
65 break;
66 }
67 if (p == ep)
68 return is;
69
70 os = Strnew_size(is->length);
71 if (p > sp)
72 p--; /* for precompose */
73 if (p > sp)
74 Strcat_charp_n(os, is->ptr, (int)(p - sp));
75
76 wc_output_init(ces, &st);
77
78 switch (ces) {
79 case WC_CES_ISO_2022_JP:
80 case WC_CES_ISO_2022_JP_2:
81 case WC_CES_ISO_2022_JP_3:
82 case WC_CES_ISO_2022_CN:
83 case WC_CES_ISO_2022_KR:
84 case WC_CES_HZ_GB_2312:
85 case WC_CES_TCVN_5712:
86 case WC_CES_VISCII_11:
87 case WC_CES_VPS:
88 #ifdef USE_UNICODE
89 case WC_CES_UTF_8:
90 case WC_CES_UTF_7:
91 #endif
92 while (p < ep)
93 (*st.ces_info->push_to)(os, wtf_parse(&p), &st);
94 break;
95 default:
96 while (p < ep) {
97 if (*p < 0x80 && wtf_width(p + 1)) {
98 Strcat_char(os, (char)*p);
99 p++;
100 } else
101 (*st.ces_info->push_to)(os, wtf_parse(&p), &st);
102 }
103 break;
104 }
105
106 wc_push_end(os, &st);
107
108 return os;
109 }
110
111 Str
wc_Str_conv_with_detect(Str is,wc_ces * f_ces,wc_ces hint,wc_ces t_ces)112 wc_Str_conv_with_detect(Str is, wc_ces *f_ces, wc_ces hint, wc_ces t_ces)
113 {
114 wc_ces detect;
115
116 if (*f_ces == WC_CES_WTF || hint == WC_CES_WTF) {
117 *f_ces = WC_CES_WTF;
118 detect = WC_CES_WTF;
119 } else if (WcOption.auto_detect == WC_OPT_DETECT_OFF) {
120 *f_ces = hint;
121 detect = hint;
122 } else {
123 if (*f_ces & WC_CES_T_8BIT)
124 hint = *f_ces;
125 detect = wc_auto_detect(is->ptr, is->length, hint);
126 if (WcOption.auto_detect == WC_OPT_DETECT_ON) {
127 if ((detect & WC_CES_T_8BIT) ||
128 ((detect & WC_CES_T_NASCII) && ! (*f_ces & WC_CES_T_8BIT)))
129 *f_ces = detect;
130 } else {
131 if ((detect & WC_CES_T_ISO_2022) && ! (*f_ces & WC_CES_T_8BIT))
132 *f_ces = detect;
133 }
134 }
135 return wc_Str_conv(is, detect, t_ces);
136 }
137
138 void
wc_push_end(Str os,wc_status * st)139 wc_push_end(Str os, wc_status *st)
140 {
141 if (st->ces_info->id & WC_CES_T_ISO_2022)
142 wc_push_to_iso2022_end(os, st);
143 else if (st->ces_info->id == WC_CES_HZ_GB_2312)
144 wc_push_to_hz_end(os, st);
145 #ifdef USE_UNICODE
146 else if (st->ces_info->id == WC_CES_UTF_8)
147 wc_push_to_utf8_end(os, st);
148 else if (st->ces_info->id == WC_CES_UTF_7)
149 wc_push_to_utf7_end(os, st);
150 #endif
151 }
152
153