Mercurial > hg > xemacs-beta

comparison lisp/its/its-pinyin.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;; Basic PinYin Translation Table for Egg+Takana+cWnn
2 ;; Coded by Hiroshi Kuribayashi (kuri@nff.ncl.omron.co.jp)
3
4 (its-define-mode "PinYin" "$AF4(B" t)
5
6 (dolist (A '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "s" "t" "w" "y" "z"))
7 (its-defrule (concat A "a") (concat (upcase A) "a(0@(B"))
8 (its-defrule (concat A "a1") (concat (upcase A) "(0!@(B"))
9 (its-defrule (concat A "a2") (concat (upcase A) "(0"@(B"))
10 (its-defrule (concat A "a3") (concat (upcase A) "(0#@(B"))
11 (its-defrule (concat A "a4") (concat (upcase A) "(0$@(B")))
12 (dolist (AI '("b" "c" "d" "g" "h" "k" "l" "m" "n" "p" "s" "t" "w" "z"))
13 (its-defrule (concat AI "ai") (concat (upcase AI) "ai(0@(B"))
14 (its-defrule (concat AI "ai1") (concat (upcase AI) "(0!(Bi(0@(B"))
15 (its-defrule (concat AI "ai2") (concat (upcase AI) "(0"(Bi(0@(B"))
16 (its-defrule (concat AI "ai3") (concat (upcase AI) "(0#(Bi(0@(B"))
17 (its-defrule (concat AI "ai4") (concat (upcase AI) "(0$(Bi(0@(B")))
18 (dolist (AN '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "w" "y" "z")) ;ANG
19 (its-defrule (concat AN "ang") (concat (upcase AN) "ang(0@(B"))
20 (its-defrule (concat AN "ang1") (concat (upcase AN) "(0!(Bng(0@(B"))
21 (its-defrule (concat AN "ang2") (concat (upcase AN) "(0"(Bng(0@(B"))
22 (its-defrule (concat AN "ang3") (concat (upcase AN) "(0#(Bng(0@(B"))
23 (its-defrule (concat AN "ang4") (concat (upcase AN) "(0$(Bng(0@(B"))
24 (its-defrule (concat AN "an") (concat (upcase AN) "an(0@(B"))
25 (its-defrule (concat AN "an1") (concat (upcase AN) "(0!(Bn(0@(B"))
26 (its-defrule (concat AN "an2") (concat (upcase AN) "(0"(Bn(0@(B"))
27 (its-defrule (concat AN "an3") (concat (upcase AN) "(0#(Bn(0@(B"))
28 (its-defrule (concat AN "an4") (concat (upcase AN) "(0$(Bn(0@(B")))
29 (dolist (AO '("b" "c" "d" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "w" "y" "z"))
30 (its-defrule (concat AO "ao") (concat (upcase AO) "ao(0@(B"))
31 (its-defrule (concat AO "ao1") (concat (upcase AO) "(0!(Bo(0@(B"))
32 (its-defrule (concat AO "ao2") (concat (upcase AO) "(0"(Bo(0@(B"))
33 (its-defrule (concat AO "ao3") (concat (upcase AO) "(0#(Bo(0@(B"))
34 (its-defrule (concat AO "ao4") (concat (upcase AO) "(0$(Bo(0@(B")))
35 (dolist (E '("c" "d" "g" "h" "k" "l" "m" "n" "r" "s" "t" "y" "z"))
36 (its-defrule (concat E "e") (concat (upcase E) "e(0@(B"))
37 (its-defrule (concat E "e1") (concat (upcase E) "(0%@(B"))
38 (its-defrule (concat E "e2") (concat (upcase E) "(0&@(B"))
39 (its-defrule (concat E "e3") (concat (upcase E) "(0'@(B"))
40 (its-defrule (concat E "e4") (concat (upcase E) "(0(@(B")))
41 (dolist (EI '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "t" "w" "z"))
42 (its-defrule (concat EI "ei") (concat (upcase EI) "ei(0@(B"))
43 (its-defrule (concat EI "ei1") (concat (upcase EI) "(0%(Bi(0@(B"))
44 (its-defrule (concat EI "ei2") (concat (upcase EI) "(0&(Bi(0@(B"))
45 (its-defrule (concat EI "ei3") (concat (upcase EI) "(0'(Bi(0@(B"))
46 (its-defrule (concat EI "ei4") (concat (upcase EI) "(0((Bi(0@(B")))
47 (dolist (EN '("b" "c" "f" "g" "h" "k" "m" "n" "p" "r" "s" "w" "z")) ;den
48 (its-defrule (concat EN "en") (concat (upcase EN) "en(0@(B"))
49 (its-defrule (concat EN "en1") (concat (upcase EN) "(0%(Bn(0@(B"))
50 (its-defrule (concat EN "en2") (concat (upcase EN) "(0&(Bn(0@(B"))
51 (its-defrule (concat EN "en3") (concat (upcase EN) "(0'(Bn(0@(B"))
52 (its-defrule (concat EN "en4") (concat (upcase EN) "(0((Bn(0@(B")))
53 (dolist (ENG '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "w" "z"))
54 (its-defrule (concat ENG "eng") (concat (upcase ENG) "eng(0@(B"))
55 (its-defrule (concat ENG "eng1") (concat (upcase ENG) "(0%(Bng(0@(B"))
56 (its-defrule (concat ENG "eng2") (concat (upcase ENG) "(0&(Bng(0@(B"))
57 (its-defrule (concat ENG "eng3") (concat (upcase ENG) "(0'(Bng(0@(B"))
58 (its-defrule (concat ENG "eng4") (concat (upcase ENG) "(0((Bng(0@(B")))
59 (dolist (I '("b" "c" "d" "j" "l" "m" "n" "p" "q" "r" "s" "t" "x" "y" "z"))
60 (its-defrule (concat I "i") (concat (upcase I) "i(0@(B"))
61 (its-defrule (concat I "i1") (concat (upcase I) "(0)@(B"))
62 (its-defrule (concat I "i2") (concat (upcase I) "(0*@(B"))
63 (its-defrule (concat I "i3") (concat (upcase I) "(0+@(B"))
64 (its-defrule (concat I "i4") (concat (upcase I) "(0,@(B")))
65 (dolist (IA '("d" "j" "l" "q" "x")) ;nia
66 (its-defrule (concat IA "ia") (concat (upcase IA) "ia(0@(B"))
67 (its-defrule (concat IA "ia1") (concat (upcase IA) "i(0!@(B"))
68 (its-defrule (concat IA "ia2") (concat (upcase IA) "i(0"@(B"))
69 (its-defrule (concat IA "ia3") (concat (upcase IA) "i(0#@(B"))
70 (its-defrule (concat IA "ia4") (concat (upcase IA) "i(0$@(B")))
71 (dolist (IAN '("b" "d" "j" "l" "m" "n" "p" "q" "t" "x"))
72 (its-defrule (concat IAN "ian") (concat (upcase IAN) "ian(0@(B"))
73 (its-defrule (concat IAN "ian1") (concat (upcase IAN) "i(0!(Bn(0@(B"))
74 (its-defrule (concat IAN "ian2") (concat (upcase IAN) "i(0"(Bn(0@(B"))
75 (its-defrule (concat IAN "ian3") (concat (upcase IAN) "i(0#(Bn(0@(B"))
76 (its-defrule (concat IAN "ian4") (concat (upcase IAN) "i(0$(Bn(0@(B")))
77 (dolist (IANG '("j" "l" "n" "q" "x"))
78 (its-defrule (concat IANG "iang") (concat (upcase IANG) "iang(0@(B"))
79 (its-defrule (concat IANG "iang1") (concat (upcase IANG) "i(0!(Bng(0@(B"))
80 (its-defrule (concat IANG "iang2") (concat (upcase IANG) "i(0"(Bng(0@(B"))
81 (its-defrule (concat IANG "iang3") (concat (upcase IANG) "i(0#(Bng(0@(B"))
82 (its-defrule (concat IANG "iang4") (concat (upcase IANG) "i(0$(Bng(0@(B")))
83 (dolist (IAO '("b" "d" "j" "l" "m" "n" "p" "q" "t" "x")) ;IE
84 (its-defrule (concat IAO "iao") (concat (upcase IAO) "iao(0@(B"))
85 (its-defrule (concat IAO "iao1") (concat (upcase IAO) "i(0!(Bo(0@(B"))
86 (its-defrule (concat IAO "iao2") (concat (upcase IAO) "i(0"(Bo(0@(B"))
87 (its-defrule (concat IAO "iao3") (concat (upcase IAO) "i(0#(Bo(0@(B"))
88 (its-defrule (concat IAO "iao4") (concat (upcase IAO) "i(0$(Bo(0@(B"))
89 (its-defrule (concat IAO "ie") (concat (upcase IAO) "ie(0@(B"))
90 (its-defrule (concat IAO "ie1") (concat (upcase IAO) "i(0%@(B"))
91 (its-defrule (concat IAO "ie2") (concat (upcase IAO) "i(0&@(B"))
92 (its-defrule (concat IAO "ie3") (concat (upcase IAO) "i(0'@(B"))
93 (its-defrule (concat IAO "ie4") (concat (upcase IAO) "i(0(@(B")))
94 (dolist (IN '("b" "j" "l" "m" "n" "p" "q" "x" "y"))
95 (its-defrule (concat IN "in") (concat (upcase IN) "in(0@(B"))
96 (its-defrule (concat IN "in1") (concat (upcase IN) "(0)(Bn(0@(B"))
97 (its-defrule (concat IN "in2") (concat (upcase IN) "(0*(Bn(0@(B"))
98 (its-defrule (concat IN "in3") (concat (upcase IN) "(0+(Bn(0@(B"))
99 (its-defrule (concat IN "in4") (concat (upcase IN) "(0,(Bn(0@(B")))
100 (dolist (ING '("b" "d" "j" "l" "m" "n" "p" "q" "t" "x" "y"))
101 (its-defrule (concat ING "ing") (concat (upcase ING) "ing(0@(B"))
102 (its-defrule (concat ING "ing1") (concat (upcase ING) "(0)(Bng(0@(B"))
103 (its-defrule (concat ING "ing2") (concat (upcase ING) "(0*(Bng(0@(B"))
104 (its-defrule (concat ING "ing3") (concat (upcase ING) "(0+(Bng(0@(B"))
105 (its-defrule (concat ING "ing4") (concat (upcase ING) "(0,(Bng(0@(B")))
106 (dolist (IONG '("j" "q" "x"))
107 (its-defrule (concat IONG "iong") (concat (upcase IONG) "iong(0@(B"))
108 (its-defrule (concat IONG "iong1") (concat (upcase IONG) "i(0-(Bng(0@(B"))
109 (its-defrule (concat IONG "iong2") (concat (upcase IONG) "i(0.(Bng(0@(B"))
110 (its-defrule (concat IONG "iong3") (concat (upcase IONG) "i(0/(Bng(0@(B"))
111 (its-defrule (concat IONG "iong4") (concat (upcase IONG) "i(00(Bng(0@(B")))
112 (dolist (IU '("d" "j" "l" "m" "n" "q" "x"))
113 (its-defrule (concat IU "iu") (concat (upcase IU) "iu(0@(B"))
114 (its-defrule (concat IU "iu1") (concat (upcase IU) "i(01@(B"))
115 (its-defrule (concat IU "iu2") (concat (upcase IU) "i(02@(B"))
116 (its-defrule (concat IU "iu3") (concat (upcase IU) "i(03@(B"))
117 (its-defrule (concat IU "iu4") (concat (upcase IU) "i(04@(B")))
118 (dolist (O '("b" "f" "l" "m" "p" "w" "y"))
119 (its-defrule (concat O "o") (concat (upcase O) "o(0@(B"))
120 (its-defrule (concat O "o1") (concat (upcase O) "(0-@(B"))
121 (its-defrule (concat O "o2") (concat (upcase O) "(0.@(B"))
122 (its-defrule (concat O "o3") (concat (upcase O) "(0/@(B"))
123 (its-defrule (concat O "o4") (concat (upcase O) "(00@(B")))
124 (dolist (ONG '("c" "d" "g" "h" "k" "l" "n" "r" "s" "t" "y" "z"))
125 (its-defrule (concat ONG "ong") (concat (upcase ONG) "ong(0@(B"))
126 (its-defrule (concat ONG "ong1") (concat (upcase ONG) "(0-(Bng(0@(B"))
127 (its-defrule (concat ONG "ong2") (concat (upcase ONG) "(0.(Bng(0@(B"))
128 (its-defrule (concat ONG "ong3") (concat (upcase ONG) "(0/(Bng(0@(B"))
129 (its-defrule (concat ONG "ong4") (concat (upcase ONG) "(00(Bng(0@(B")))
130 (dolist (OU '("c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "y" "z"))
131 (its-defrule (concat OU "ou") (concat (upcase OU) "ou(0@(B"))
132 (its-defrule (concat OU "ou1") (concat (upcase OU) "(0-(Bu(0@(B"))
133 (its-defrule (concat OU "ou2") (concat (upcase OU) "(0.(Bu(0@(B"))
134 (its-defrule (concat OU "ou3") (concat (upcase OU) "(0/(Bu(0@(B"))
135 (its-defrule (concat OU "ou4") (concat (upcase OU) "(00(Bu(0@(B")))
136 (dolist (U '("b" "c" "d" "f" "g" "h" "j" "k" "l" "m" "n" "p" "q" "r" "s" "t" "w" "x" "y" "z"))
137 (its-defrule (concat U "0") (concat (upcase U) "0(0@(B")) ; ShengMu only, no YunMu.
138 (its-defrule (concat U "1") (concat (upcase U) "1(0@(B"))
139 (its-defrule (concat U "2") (concat (upcase U) "2(0@(B"))
140 (its-defrule (concat U "3") (concat (upcase U) "3(0@(B"))
141 (its-defrule (concat U "4") (concat (upcase U) "4(0@(B"))
142 (its-defrule (concat U "u") (concat (upcase U) "u(0@(B"))
143 (its-defrule (concat U "u1") (concat (upcase U) "(01@(B"))
144 (its-defrule (concat U "u2") (concat (upcase U) "(02@(B"))
145 (its-defrule (concat U "u3") (concat (upcase U) "(03@(B"))
146 (its-defrule (concat U "u4") (concat (upcase U) "(04@(B")))
147 (dolist (V '("l" "n"))
148 (its-defrule (concat V "v") (concat (upcase V) "(09@(B"))
149 (its-defrule (concat V "v1") (concat (upcase V) "(05@(B"))
150 (its-defrule (concat V "v2") (concat (upcase V) "(06@(B"))
151 (its-defrule (concat V "v3") (concat (upcase V) "(07@(B"))
152 (its-defrule (concat V "v4") (concat (upcase V) "(08@(B")))
153 (dolist (UA '("g" "h" "k" "r")) ;chua;
154 (its-defrule (concat UA "ua") (concat (upcase UA) "ua(0@(B"))
155 (its-defrule (concat UA "ua1") (concat (upcase UA) "u(0!@(B"))
156 (its-defrule (concat UA "ua2") (concat (upcase UA) "u(0"@(B"))
157 (its-defrule (concat UA "ua3") (concat (upcase UA) "u(0#@(B"))
158 (its-defrule (concat UA "ua4") (concat (upcase UA) "u(0$@(B")))
159 (dolist (UAI '("g" "h" "k"))
160 (its-defrule (concat UAI "uai") (concat (upcase UAI) "uai(0@(B"))
161 (its-defrule (concat UAI "uai1") (concat (upcase UAI) "u(0!(Bi(0@(B"))
162 (its-defrule (concat UAI "uai2") (concat (upcase UAI) "u(0"(Bi(0@(B"))
163 (its-defrule (concat UAI "uai3") (concat (upcase UAI) "u(0#(Bi(0@(B"))
164 (its-defrule (concat UAI "uai4") (concat (upcase UAI) "u(0$(Bi(0@(B")))
165 (dolist (UAN '("c" "d" "g" "h" "j" "k" "l" "n" "q" "r" "s" "t" "x" "y" "z"))
166 (its-defrule (concat UAN "uan") (concat (upcase UAN) "uan(0@(B"))
167 (its-defrule (concat UAN "uan1") (concat (upcase UAN) "u(0!(Bn(0@(B"))
168 (its-defrule (concat UAN "uan2") (concat (upcase UAN) "u(0"(Bn(0@(B"))
169 (its-defrule (concat UAN "uan3") (concat (upcase UAN) "u(0#(Bn(0@(B"))
170 (its-defrule (concat UAN "uan4") (concat (upcase UAN) "u(0$(Bn(0@(B")))
171 (dolist (UANG '("g" "h" "k"))
172 (its-defrule (concat UANG "uang") (concat (upcase UANG) "uang(0@(B"))
173 (its-defrule (concat UANG "uang1") (concat (upcase UANG) "u(0!(Bng(0@(B"))
174 (its-defrule (concat UANG "uang2") (concat (upcase UANG) "u(0"(Bng(0@(B"))
175 (its-defrule (concat UANG "uang3") (concat (upcase UANG) "u(0#(Bng(0@(B"))
176 (its-defrule (concat UANG "uang4") (concat (upcase UANG) "u(0$(Bng(0@(B")))
177 (dolist (UE '("j" "q" "x" "y"))
178 (its-defrule (concat UE "ue") (concat (upcase UE) "ue(0@(B"))
179 (its-defrule (concat UE "ue1") (concat (upcase UE) "u(0%@(B"))
180 (its-defrule (concat UE "ue2") (concat (upcase UE) "u(0&@(B"))
181 (its-defrule (concat UE "ue3") (concat (upcase UE) "u(0'@(B"))
182 (its-defrule (concat UE "ue4") (concat (upcase UE) "u(0(@(B")))
183 (dolist (VE '("l" "n"))
184 (its-defrule (concat VE "ve") (concat (upcase VE) "(09(Be(0@(B"))
185 (its-defrule (concat VE "ve1") (concat (upcase VE) "(09%@(B"))
186 (its-defrule (concat VE "ve2") (concat (upcase VE) "(09&@(B"))
187 (its-defrule (concat VE "ve3") (concat (upcase VE) "(09'@(B"))
188 (its-defrule (concat VE "ve4") (concat (upcase VE) "(09(@(B")))
189 (dolist (UI '("c" "d" "g" "h" "k" "r" "s" "t" "z"))
190 (its-defrule (concat UI "ui") (concat (upcase UI) "ui(0@(B"))
191 (its-defrule (concat UI "ui1") (concat (upcase UI) "u(0)@(B"))
192 (its-defrule (concat UI "ui2") (concat (upcase UI) "u(0*@(B"))
193 (its-defrule (concat UI "ui3") (concat (upcase UI) "u(0+@(B"))
194 (its-defrule (concat UI "ui4") (concat (upcase UI) "u(0,@(B")))
195 (dolist (UN '("c" "d" "g" "h" "j" "k" "l" "q" "r" "s" "t" "x" "y" "z"))
196 (its-defrule (concat UN "un") (concat (upcase UN) "un(0@(B"))
197 (its-defrule (concat UN "un1") (concat (upcase UN) "(01(Bn(0@(B"))
198 (its-defrule (concat UN "un2") (concat (upcase UN) "(02(Bn(0@(B"))
199 (its-defrule (concat UN "un3") (concat (upcase UN) "(03(Bn(0@(B"))
200 (its-defrule (concat UN "un4") (concat (upcase UN) "(04(Bn(0@(B")))
201 (dolist (UO '("c" "d" "g" "h" "k" "l" "n" "r" "s" "t" "z"))
202 (its-defrule (concat UO "uo") (concat (upcase UO) "uo(0@(B"))
203 (its-defrule (concat UO "uo1") (concat (upcase UO) "u(0-@(B"))
204 (its-defrule (concat UO "uo2") (concat (upcase UO) "u(0.@(B"))
205 (its-defrule (concat UO "uo3") (concat (upcase UO) "u(0/@(B"))
206 (its-defrule (concat UO "uo4") (concat (upcase UO) "u(00@(B")))
207 (dolist (CSZ '("c" "s" "z"))
208 ; (its-defrule (concat CSZ "h0") (concat (upcase CSZ) "h0(0@(B"))
209 ; (its-defrule (concat CSZ "h1") (concat (upcase CSZ) "h1(0@(B"))
210 ; (its-defrule (concat CSZ "h2") (concat (upcase CSZ) "h2(0@(B"))
211 ; (its-defrule (concat CSZ "h3") (concat (upcase CSZ) "h3(0@(B"))
212 ; (its-defrule (concat CSZ "h4") (concat (upcase CSZ) "h4(0@(B"))
213 (its-defrule (concat CSZ "ha") (concat (upcase CSZ) "ha(0@(B"))
214 (its-defrule (concat CSZ "ha1") (concat (upcase CSZ) "h(0!@(B"))
215 (its-defrule (concat CSZ "ha2") (concat (upcase CSZ) "h(0"@(B"))
216 (its-defrule (concat CSZ "ha3") (concat (upcase CSZ) "h(0#@(B"))
217 (its-defrule (concat CSZ "ha4") (concat (upcase CSZ) "h(0$@(B"))
218 (its-defrule (concat CSZ "hai") (concat (upcase CSZ) "hai(0@(B"))
219 (its-defrule (concat CSZ "hai1") (concat (upcase CSZ) "h(0!(Bi(0@(B"))
220 (its-defrule (concat CSZ "hai2") (concat (upcase CSZ) "h(0"(Bi(0@(B"))
221 (its-defrule (concat CSZ "hai3") (concat (upcase CSZ) "h(0#(Bi(0@(B"))
222 (its-defrule (concat CSZ "hai4") (concat (upcase CSZ) "h(0$(Bi(0@(B"))
223 (its-defrule (concat CSZ "han") (concat (upcase CSZ) "han(0@(B"))
224 (its-defrule (concat CSZ "han1") (concat (upcase CSZ) "h(0!(Bn(0@(B"))
225 (its-defrule (concat CSZ "han2") (concat (upcase CSZ) "h(0"(Bn(0@(B"))
226 (its-defrule (concat CSZ "han3") (concat (upcase CSZ) "h(0#(Bn(0@(B"))
227 (its-defrule (concat CSZ "han4") (concat (upcase CSZ) "h(0$(Bn(0@(B"))
228 (its-defrule (concat CSZ "hang") (concat (upcase CSZ) "hang(0@(B"))
229 (its-defrule (concat CSZ "hang1") (concat (upcase CSZ) "h(0!(Bng(0@(B"))
230 (its-defrule (concat CSZ "hang2") (concat (upcase CSZ) "h(0"(Bng(0@(B"))
231 (its-defrule (concat CSZ "hang3") (concat (upcase CSZ) "h(0#(Bng(0@(B"))
232 (its-defrule (concat CSZ "hang4") (concat (upcase CSZ) "h(0$(Bng(0@(B"))
233 (its-defrule (concat CSZ "hao") (concat (upcase CSZ) "hao(0@(B"))
234 (its-defrule (concat CSZ "hao1") (concat (upcase CSZ) "h(0!(Bo(0@(B"))
235 (its-defrule (concat CSZ "hao2") (concat (upcase CSZ) "h(0"(Bo(0@(B"))
236 (its-defrule (concat CSZ "hao3") (concat (upcase CSZ) "h(0#(Bo(0@(B"))
237 (its-defrule (concat CSZ "hao4") (concat (upcase CSZ) "h(0$(Bo(0@(B"))
238 (its-defrule (concat CSZ "he") (concat (upcase CSZ) "he(0@(B"))
239 (its-defrule (concat CSZ "he1") (concat (upcase CSZ) "h(0%@(B"))
240 (its-defrule (concat CSZ "he2") (concat (upcase CSZ) "h(0&@(B"))
241 (its-defrule (concat CSZ "he3") (concat (upcase CSZ) "h(0'@(B"))
242 (its-defrule (concat CSZ "he4") (concat (upcase CSZ) "h(0(@(B"))
243 (its-defrule (concat CSZ "hen") (concat (upcase CSZ) "hen(0@(B"))
244 (its-defrule (concat CSZ "hen1") (concat (upcase CSZ) "h(0%(Bn(0@(B"))
245 (its-defrule (concat CSZ "hen2") (concat (upcase CSZ) "h(0&(Bn(0@(B"))
246 (its-defrule (concat CSZ "hen3") (concat (upcase CSZ) "h(0'(Bn(0@(B"))
247 (its-defrule (concat CSZ "hen4") (concat (upcase CSZ) "h(0((Bn(0@(B"))
248 (its-defrule (concat CSZ "heng") (concat (upcase CSZ) "heng(0@(B"))
249 (its-defrule (concat CSZ "heng1") (concat (upcase CSZ) "h(0%(Bng(0@(B"))
250 (its-defrule (concat CSZ "heng2") (concat (upcase CSZ) "h(0&(Bng(0@(B"))
251 (its-defrule (concat CSZ "heng3") (concat (upcase CSZ) "h(0'(Bng(0@(B"))
252 (its-defrule (concat CSZ "heng4") (concat (upcase CSZ) "h(0((Bng(0@(B"))
253 (its-defrule (concat CSZ "hi") (concat (upcase CSZ) "hi(0@(B"))
254 (its-defrule (concat CSZ "hi1") (concat (upcase CSZ) "h(0)@(B"))
255 (its-defrule (concat CSZ "hi2") (concat (upcase CSZ) "h(0*@(B"))
256 (its-defrule (concat CSZ "hi3") (concat (upcase CSZ) "h(0+@(B"))
257 (its-defrule (concat CSZ "hi4") (concat (upcase CSZ) "h(0,@(B"))
258 (its-defrule (concat CSZ "hou") (concat (upcase CSZ) "hou(0@(B"))
259 (its-defrule (concat CSZ "hou1") (concat (upcase CSZ) "h(0-(Bu(0@(B"))
260 (its-defrule (concat CSZ "hou2") (concat (upcase CSZ) "h(0.(Bu(0@(B"))
261 (its-defrule (concat CSZ "hou3") (concat (upcase CSZ) "h(0/(Bu(0@(B"))
262 (its-defrule (concat CSZ "hou4") (concat (upcase CSZ) "h(00(Bu(0@(B"))
263 (its-defrule (concat CSZ "hu") (concat (upcase CSZ) "hu(0@(B"))
264 (its-defrule (concat CSZ "hu1") (concat (upcase CSZ) "h(01@(B"))
265 (its-defrule (concat CSZ "hu2") (concat (upcase CSZ) "h(02@(B"))
266 (its-defrule (concat CSZ "hu3") (concat (upcase CSZ) "h(03@(B"))
267 (its-defrule (concat CSZ "hu4") (concat (upcase CSZ) "h(04@(B"))
268 (its-defrule (concat CSZ "huai") (concat (upcase CSZ) "huai(0@(B"))
269 (its-defrule (concat CSZ "huai1") (concat (upcase CSZ) "hu(0!(Bi(0@(B"))
270 (its-defrule (concat CSZ "huai2") (concat (upcase CSZ) "hu(0"(Bi(0@(B"))
271 (its-defrule (concat CSZ "huai3") (concat (upcase CSZ) "hu(0#(Bi(0@(B"))
272 (its-defrule (concat CSZ "huai4") (concat (upcase CSZ) "hu(0$(Bi(0@(B"))
273 (its-defrule (concat CSZ "huan") (concat (upcase CSZ) "huan(0@(B"))
274 (its-defrule (concat CSZ "huan1") (concat (upcase CSZ) "hu(0!(Bn(0@(B"))
275 (its-defrule (concat CSZ "huan2") (concat (upcase CSZ) "hu(0"(Bn(0@(B"))
276 (its-defrule (concat CSZ "huan3") (concat (upcase CSZ) "hu(0#(Bn(0@(B"))
277 (its-defrule (concat CSZ "huan4") (concat (upcase CSZ) "hu(0$(Bn(0@(B"))
278 (its-defrule (concat CSZ "huang") (concat (upcase CSZ) "huang(0@(B"))
279 (its-defrule (concat CSZ "huang1") (concat (upcase CSZ) "hu(0!(Bng(0@(B"))
280 (its-defrule (concat CSZ "huang2") (concat (upcase CSZ) "hu(0"(Bng(0@(B"))
281 (its-defrule (concat CSZ "huang3") (concat (upcase CSZ) "hu(0#(Bng(0@(B"))
282 (its-defrule (concat CSZ "huang4") (concat (upcase CSZ) "hu(0$(Bng(0@(B"))
283 (its-defrule (concat CSZ "hui") (concat (upcase CSZ) "hui(0@(B"))
284 (its-defrule (concat CSZ "hui1") (concat (upcase CSZ) "hu(0)@(B"))
285 (its-defrule (concat CSZ "hui2") (concat (upcase CSZ) "hu(0*@(B"))
286 (its-defrule (concat CSZ "hui3") (concat (upcase CSZ) "hu(0+@(B"))
287 (its-defrule (concat CSZ "hui4") (concat (upcase CSZ) "hu(0,@(B"))
288 (its-defrule (concat CSZ "hun") (concat (upcase CSZ) "hun(0@(B"))
289 (its-defrule (concat CSZ "hun1") (concat (upcase CSZ) "h(01(Bn(0@(B"))
290 (its-defrule (concat CSZ "hun2") (concat (upcase CSZ) "h(02(Bn(0@(B"))
291 (its-defrule (concat CSZ "hun3") (concat (upcase CSZ) "h(03(Bn(0@(B"))
292 (its-defrule (concat CSZ "hun4") (concat (upcase CSZ) "h(04(Bn(0@(B"))
293 (its-defrule (concat CSZ "huo") (concat (upcase CSZ) "huo(0@(B"))
294 (its-defrule (concat CSZ "huo1") (concat (upcase CSZ) "hu(0-@(B"))
295 (its-defrule (concat CSZ "huo2") (concat (upcase CSZ) "hu(0.@(B"))
296 (its-defrule (concat CSZ "huo3") (concat (upcase CSZ) "hu(0/@(B"))
297 (its-defrule (concat CSZ "huo4") (concat (upcase CSZ) "hu(00@(B")))
298
299 (its-defrule "a" "a(0@(B")
300 (its-defrule "a1" "(0!@(B")
301 (its-defrule "a2" "(0"@(B")
302 (its-defrule "a3" "(0#@(B")
303 (its-defrule "a4" "(0$@(B")
304 (its-defrule "ai" "ai(0@(B")
305 (its-defrule "ai1" "(0!(Bi(0@(B")
306 (its-defrule "ai2" "(0"(Bi(0@(B")
307 (its-defrule "ai3" "(0#(Bi(0@(B")
308 (its-defrule "ai4" "(0$(Bi(0@(B")
309 (its-defrule "an" "an(0@(B")
310 (its-defrule "an1" "(0!(Bn(0@(B")
311 (its-defrule "an2" "(0"(Bn(0@(B")
312 (its-defrule "an3" "(0#(Bn(0@(B")
313 (its-defrule "an4" "(0$(Bn(0@(B")
314 (its-defrule "ang" "ang(0@(B")
315 (its-defrule "ang1" "(0!(Bng(0@(B")
316 (its-defrule "ang2" "(0"(Bng(0@(B")
317 (its-defrule "ang3" "(0#(Bng(0@(B")
318 (its-defrule "ang4" "(0$(Bng(0@(B")
319 (its-defrule "ao" "ao(0@(B")
320 (its-defrule "ao1" "(0!(Bo(0@(B")
321 (its-defrule "ao2" "(0"(Bo(0@(B")
322 (its-defrule "ao3" "(0#(Bo(0@(B")
323 (its-defrule "ao4" "(0$(Bo(0@(B")
324 (its-defrule "chong" "Chong(0@(B")
325 (its-defrule "chong1" "Ch(0-(Bng(0@(B")
326 (its-defrule "chong2" "Ch(0.(Bng(0@(B")
327 (its-defrule "chong3" "Ch(0/(Bng(0@(B")
328 (its-defrule "chong4" "Ch(00(Bng(0@(B")
329 (its-defrule "e" "e(0@(B")
330 (its-defrule "e1" "(0%@(B")
331 (its-defrule "e2" "(0&@(B")
332 (its-defrule "e3" "(0'@(B")
333 (its-defrule "e4" "(0(@(B")
334 (its-defrule "ei" "ei(0@(B")
335 (its-defrule "ei1" "(0%(Bi(0@(B")
336 (its-defrule "ei2" "(0&(Bi(0@(B")
337 (its-defrule "ei3" "(0'(Bi(0@(B")
338 (its-defrule "ei4" "(0((Bi(0@(B")
339 (its-defrule "en" "en(0@(B")
340 (its-defrule "en1" "(0%(Bn(0@(B")
341 (its-defrule "en2" "(0&(Bn(0@(B")
342 (its-defrule "en3" "(0'(Bn(0@(B")
343 (its-defrule "en4" "(0((Bn(0@(B")
344 ;(its-defrule "eng" "eng(0@(B")
345 ;(its-defrule "eng1" "(0%(Bng(0@(B")
346 ;(its-defrule "eng2" "(0&(Bng(0@(B")
347 ;(its-defrule "eng3" "(0'(Bng(0@(B")
348 ;(its-defrule "eng4" "(0((Bng(0@(B")
349 (its-defrule "er" "er(0@(B")
350 (its-defrule "er1" "(0%(Br(0@(B")
351 (its-defrule "er2" "(0&(Br(0@(B")
352 (its-defrule "er3" "(0'(Br(0@(B")
353 (its-defrule "er4" "(0((Br(0@(B")
354 (its-defrule "o" "o(0@(B")
355 (its-defrule "o1" "(0-@(B")
356 (its-defrule "o2" "(0.@(B")
357 (its-defrule "o3" "(0/@(B")
358 (its-defrule "o4" "(00@(B")
359 (its-defrule "ou" "ou(0@(B")
360 (its-defrule "ou1" "(0-(Bu(0@(B")
361 (its-defrule "ou2" "(0.(Bu(0@(B")
362 (its-defrule "ou3" "(0/(Bu(0@(B")
363 (its-defrule "ou4" "(00(Bu(0@(B")
364 (its-defrule "shei" "Shei(0@(B")
365 (its-defrule "shei1" "Sh(0%(Bi(0@(B")
366 (its-defrule "shei2" "Sh(0&(Bi(0@(B")
367 (its-defrule "shei3" "Sh(0'(Bi(0@(B")
368 (its-defrule "shei4" "Sh(0((Bi(0@(B")
369 (its-defrule "shua" "Shua(0@(B")
370 (its-defrule "shua1" "Shu(0!@(B")
371 (its-defrule "shua2" "Shu(0"@(B")
372 (its-defrule "shua3" "Shu(0#@(B")
373 (its-defrule "shua4" "Shu(0$@(B")
374 (its-defrule "zhei" "Zhei(0@(B")
375 (its-defrule "zhei1" "Zh(0%(Bi(0@(B")
376 (its-defrule "zhei2" "Zh(0&(Bi(0@(B")
377 (its-defrule "zhei3" "Zh(0'(Bi(0@(B")
378 (its-defrule "zhei4" "Zh(0((Bi(0@(B")
379 (its-defrule "zhong" "Zhong(0@(B")
380 (its-defrule "zhong1" "Zh(0-(Bng(0@(B")
381 (its-defrule "zhong2" "Zh(0.(Bng(0@(B")
382 (its-defrule "zhong3" "Zh(0/(Bng(0@(B")
383 (its-defrule "zhong4" "Zh(00(Bng(0@(B")
384 (its-defrule "zhua" "Zhua(0@(B")
385 (its-defrule "zhua1" "Zhu(0!@(B")
386 (its-defrule "zhua2" "Zhu(0"@(B")
387 (its-defrule "zhua3" "Zhu(0#@(B")
388 (its-defrule "zhua4" "Zhu(0$@(B")
389 ;;;; -----------Special PinYin-------------
390 ;(its-defrule "hm" "Hm(0@(B")
391 (its-defrule "hng" "Hng(0@(B")
392 (its-defrule "ng" "ng(0@(B")
393 (its-defrule "m" "m(0@(B")
394 (its-defrule "n" "n(0@(B")