Mercurial > hg > xemacs-beta

comparison lisp/its/its-zhuyin.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 ZhuYin Translation Table for Egg+Takana+cWnn
2 ;; Coded by Hiroshi Kuribayashi (kuri@nff.ncl.omron.co.jp)
3
4 ;; (0A(B! (0B(B" (0C(B# (0D(B$ 5% 6& (0Q(B' (0b(B( (0c(B) (0d(B (0e$A!*(B (0f(B~ \|
5 ;; (0_(B (0](B (0g(B (0\(B (0J(B (0a(B (0i(B (0^(B (0[(B (0F(B @` $A!0!.(B
6 ;; (0Z(B (0Y(B (0I(B (0H(B (0P(B (0O(B (0V(B (0N(B (0L(B (0W$A#;(B (0X$A#:(B $A!1!/(B
7 ;; (0`(B (0h(B (0R(B (0M(B (0E(B (0K(B (0G(B (0S$A#,(B (0T$A!#(B (0U$A#?(B $A!"(B
8
9 (its-define-mode "zhuyin" "$AW"(B" t)
10
11 (let ((its:make-terminal-state 'its:make-terminal-state-hangul))
12
13 (its-defrule "b" "(0E(B") ;;; B
14 (its-defrule "p" "(0F(B") ;;; P
15 (its-defrule "m" "(0G(B") ;;; M
16 (its-defrule "f" "(0H(B") ;;; F
17
18 (its-defrule "d" "(0I(B") ;;; D
19 (its-defrule "t" "(0J(B") ;;; T
20 (its-defrule "n" "(0K(B") ;;; N
21 (its-defrule "l" "(0L(B") ;;; L
22
23 (its-defrule "v" "(0M(B") ;;; G
24 (its-defrule "k" "(0N(B") ;;; K
25 (its-defrule "h" "(0O(B") ;;; H
26
27 (its-defrule "g" "(0P(B") ;;; J
28 (its-defrule "7" "(0Q(B") ;;; Q
29 (its-defrule "c" "(0R(B") ;;; X
30
31 (its-defrule "," "(0S(B") ;;; Zh
32 (its-defrule "." "(0T(B") ;;; Ch
33 (its-defrule "/" "(0U(B") ;;; Sh
34 (its-defrule "j" "(0V(B") ;;; R
35
36 (its-defrule ";" "(0W(B") ;;; Z
37 (its-defrule ":" "(0X(B") ;;; C
38 (its-defrule "s" "(0Y(B") ;;; S
39
40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
41 (its-defrule "a" "(0Z@(B") ;;; a
42 (its-defrule "a1" "(0ZA(B")
43 (its-defrule "a2" "(0ZB(B")
44 (its-defrule "a3" "(0ZC(B")
45 (its-defrule "a4" "(0ZD(B")
46
47 (its-defrule "i" "(0^@(B") ;;; ai
48 (its-defrule "i1" "(0^A(B")
49 (its-defrule "i2" "(0^B(B")
50 (its-defrule "i3" "(0^C(B")
51 (its-defrule "i4" "(0^D(B")
52
53 (its-defrule "8" "(0b@(B") ;;; an
54 (its-defrule "81" "(0bA(B")
55 (its-defrule "82" "(0bB(B")
56 (its-defrule "83" "(0bC(B")
57 (its-defrule "84" "(0bD(B")
58
59 (its-defrule "0" "(0d@(B") ;;; ang
60 (its-defrule "01" "(0dA(B")
61 (its-defrule "02" "(0dB(B")
62 (its-defrule "03" "(0dC(B")
63 (its-defrule "04" "(0dD(B")
64
65 (its-defrule "z" "(0`@(B") ;;; ao
66 (its-defrule "z1" "(0`A(B")
67 (its-defrule "z2" "(0`B(B")
68 (its-defrule "z3" "(0`C(B")
69 (its-defrule "z4" "(0`D(B")
70
71 (its-defrule "r" "(0\@(B") ;;; e
72 (its-defrule "r1" "(0\A(B")
73 (its-defrule "r2" "(0\B(B")
74 (its-defrule "r3" "(0\C(B")
75 (its-defrule "r4" "(0\D(B")
76
77 (its-defrule "w" "(0]@(B") ;;; (0:(B
78 (its-defrule "w1" "(0]A(B")
79 (its-defrule "w2" "(0]B(B")
80 (its-defrule "w3" "(0]C(B")
81 (its-defrule "w4" "(0]D(B")
82
83 (its-defrule "q" "(0_@(B") ;;; ei
84 (its-defrule "q1" "(0_A(B")
85 (its-defrule "q2" "(0_B(B")
86 (its-defrule "q3" "(0_C(B")
87 (its-defrule "q4" "(0_D(B")
88
89 (its-defrule "9" "(0c@(B") ;;; en
90 (its-defrule "91" "(0cA(B")
91 (its-defrule "92" "(0cB(B")
92 (its-defrule "93" "(0cC(B")
93 (its-defrule "94" "(0cD(B")
94
95 (its-defrule "-" "(0e@(B") ;;; eng
96 (its-defrule "-1" "(0eA(B")
97 (its-defrule "-2" "(0eB(B")
98 (its-defrule "-3" "(0eC(B")
99 (its-defrule "-4" "(0eD(B")
100
101 (its-defrule "o" "(0[@(B") ;;; o
102 (its-defrule "o1" "(0[A(B")
103 (its-defrule "o2" "(0[B(B")
104 (its-defrule "o3" "(0[C(B")
105 (its-defrule "o4" "(0[D(B")
106
107 (its-defrule "y" "(0a@(B") ;;; ou
108 (its-defrule "y1" "(0aA(B")
109 (its-defrule "y2" "(0aB(B")
110 (its-defrule "y3" "(0aC(B")
111 (its-defrule "y4" "(0aD(B")
112
113 (its-defrule "^" "(0f@(B") ;;; er
114 (its-defrule "^1" "(0fA(B")
115 (its-defrule "^2" "(0fB(B")
116 (its-defrule "^3" "(0fC(B")
117 (its-defrule "^4" "(0fD(B")
118
119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
120 (its-defrule "e" "(0g@(B") ;;; i
121 (its-defrule "e1" "(0gA(B")
122 (its-defrule "e2" "(0gB(B")
123 (its-defrule "e3" "(0gC(B")
124 (its-defrule "e4" "(0gD(B")
125
126 (its-defrule "ea" "(0gZ@(B") ;;; ia
127 (its-defrule "ea1" "(0gZA(B")
128 (its-defrule "ea2" "(0gZB(B")
129 (its-defrule "ea3" "(0gZC(B")
130 (its-defrule "ea4" "(0gZD(B")
131
132 (its-defrule "e8" "(0gb@(B") ;;; ian
133 (its-defrule "e81" "(0gbA(B")
134 (its-defrule "e82" "(0gbB(B")
135 (its-defrule "e83" "(0gbC(B")
136 (its-defrule "e84" "(0gbD(B")
137
138 (its-defrule "e0" "(0gd@(B") ;;; iang
139 (its-defrule "e01" "(0gdA(B")
140 (its-defrule "e02" "(0gdB(B")
141 (its-defrule "e03" "(0gdC(B")
142 (its-defrule "e04" "(0gdD(B")
143
144 (its-defrule "ez" "(0g`@(B") ;;; iao
145 (its-defrule "ez1" "(0g`A(B")
146 (its-defrule "ez2" "(0g`B(B")
147 (its-defrule "ez3" "(0g`C(B")
148 (its-defrule "ez4" "(0g`D(B")
149
150 (its-defrule "ew" "(0g]@(B") ;;; ie
151 (its-defrule "ew1" "(0g]A(B")
152 (its-defrule "ew2" "(0g]B(B")
153 (its-defrule "ew3" "(0g]C(B")
154 (its-defrule "ew4" "(0g]D(B")
155
156 (its-defrule "e9" "(0gc@(B") ;;; in
157 (its-defrule "e91" "(0gcA(B")
158 (its-defrule "e92" "(0gcB(B")
159 (its-defrule "e93" "(0gcC(B")
160 (its-defrule "e94" "(0gcD(B")
161
162 (its-defrule "e-" "(0ge@(B") ;;; ing
163 (its-defrule "e-1" "(0geA(B")
164 (its-defrule "e-2" "(0geB(B")
165 (its-defrule "e-3" "(0geC(B")
166 (its-defrule "e-4" "(0geD(B")
167
168 (its-defrule "u-" "(0ie@(B") ;;; iong
169 (its-defrule "u-1" "(0ieA(B")
170 (its-defrule "u-2" "(0ieB(B")
171 (its-defrule "u-3" "(0ieC(B")
172 (its-defrule "u-4" "(0ieD(B")
173
174 (its-defrule "ey" "(0ga@(B") ;;; iou
175 (its-defrule "ey1" "(0gaA(B")
176 (its-defrule "ey2" "(0gaB(B")
177 (its-defrule "ey3" "(0gaC(B")
178 (its-defrule "ey4" "(0gaD(B")
179
180 (its-defrule "x-" "(0he@(B") ;;; ong
181 (its-defrule "x-1" "(0heA(B")
182 (its-defrule "x-2" "(0heB(B")
183 (its-defrule "x-3" "(0heC(B")
184 (its-defrule "x-4" "(0heD(B")
185
186 (its-defrule "x" "(0h@(B") ;;; u
187 (its-defrule "x1" "(0hA(B")
188 (its-defrule "x2" "(0hB(B")
189 (its-defrule "x3" "(0hC(B")
190 (its-defrule "x4" "(0hD(B")
191
192 (its-defrule "xa" "(0hZ@(B") ;;; ua
193 (its-defrule "xa1" "(0hZA(B")
194 (its-defrule "xa2" "(0hZB(B")
195 (its-defrule "xa3" "(0hZC(B")
196 (its-defrule "xa4" "(0hZD(B")
197
198 (its-defrule "xi" "(0h^@(B") ;;; uai
199 (its-defrule "xi1" "(0h^A(B")
200 (its-defrule "xi2" "(0h^B(B")
201 (its-defrule "xi3" "(0h^C(B")
202 (its-defrule "xi4" "(0h^D(B")
203
204 (its-defrule "x8" "(0hb@(B") ;;; uan
205 (its-defrule "x81" "(0hbA(B")
206 (its-defrule "x82" "(0hbB(B")
207 (its-defrule "x83" "(0hbC(B")
208 (its-defrule "x84" "(0hbD(B")
209
210 (its-defrule "x0" "(0hd@(B") ;;; uang
211 (its-defrule "x01" "(0hdA(B")
212 (its-defrule "x02" "(0hdB(B")
213 (its-defrule "x03" "(0hdC(B")
214 (its-defrule "x04" "(0hdD(B")
215
216 (its-defrule "xq" "(0h_@(B") ;;; uei
217 (its-defrule "xq1" "(0h_A(B")
218 (its-defrule "xq2" "(0h_B(B")
219 (its-defrule "xq3" "(0h_C(B")
220 (its-defrule "xq4" "(0h_D(B")
221
222 (its-defrule "x9" "(0hc@(B") ;;; uen
223 (its-defrule "x91" "(0hcA(B")
224 (its-defrule "x92" "(0hcB(B")
225 (its-defrule "x93" "(0hcC(B")
226 (its-defrule "x94" "(0hcD(B")
227
228 (its-defrule "xo" "(0h[@(B") ;;; uo
229 (its-defrule "xo1" "(0h[A(B")
230 (its-defrule "xo2" "(0h[B(B")
231 (its-defrule "xo3" "(0h[C(B")
232 (its-defrule "xo4" "(0h[D(B")
233
234 (its-defrule "u" "(0i@(B") ;;; (09(B
235 (its-defrule "u1" "(0iA(B")
236 (its-defrule "u2" "(0iB(B")
237 (its-defrule "u3" "(0iC(B")
238 (its-defrule "u4" "(0iD(B")
239
240 (its-defrule "u8" "(0ib@(B") ;;; (09(Ban
241 (its-defrule "u81" "(0ibA(B")
242 (its-defrule "u82" "(0ibB(B")
243 (its-defrule "u83" "(0ibC(B")
244 (its-defrule "u84" "(0ibD(B")
245
246 (its-defrule "uw" "(0i]@(B") ;;; (09(Be
247 (its-defrule "uw1" "(0i]A(B")
248 (its-defrule "uw2" "(0i]B(B")
249 (its-defrule "uw3" "(0i]C(B")
250 (its-defrule "uw4" "(0i]D(B")
251
252 (its-defrule "u9" "(0ic@(B") ;;; (09(Bn
253 (its-defrule "u91" "(0icA(B")
254 (its-defrule "u92" "(0icB(B")
255 (its-defrule "u93" "(0icC(B")
256 (its-defrule "u94" "(0icD(B")
257
258 ;;(its-defrule "ei" "(0g^@(B") ;;; iai
259 ;;(its-defrule "ei1" "(0g^A(B")
260 ;;(its-defrule "ei2" "(0g^B(B")
261 ;;(its-defrule "ei3" "(0g^C(B")
262 ;;(its-defrule "ei4" "(0g^D(B")
263
264 ;;(its-defrule "eo" "(0g[@(B") ;;; io
265 ;;(its-defrule "eo1" "(0g[A(B")
266 ;;(its-defrule "eo2" "(0g[B(B")
267 ;;(its-defrule "eo3" "(0g[C(B")
268 ;;(its-defrule "eo4" "(0g[D(B")
269
270 (its-defrule "m1" "(0GA(B") ;;; M
271 (its-defrule "hm" "(0OGA(B") ;;; Hm
272 (its-defrule "h@" "(0O(B@(0A(B") ;;; Hng
273 (its-defrule "@1" "@(0A(B") ;;; Ng
274 (its-defrule "n1" "(0KA(B") ;;; N
275
276 (its-defrule "<" "$A#,(B")
277 (its-defrule ">" "$A!#(B")
278 (its-defrule "+" "$A#;(B")
279 (its-defrule "*" "$A#:(B")
280 (its-defrule "?" "$A#?(B")
281 (its-defrule "_" "$A!"(B")
282 (its-defrule "!" "$A#!(B")
283 (its-defrule "[" "$A!0(B")
284 (its-defrule "]" "$A!1(B")
285 (its-defrule "{" "$A!.(B")
286 (its-defrule "}" "$A!/(B")
287 (its-defrule "=" "$A!*(B")
288
289 )