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