Mercurial > hg > xemacs-beta

annotate lisp/its/its-pinyin.el @ 194:2947057885e5

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