|
70
|
1 ;; Basic Roma-to-Kana Translation Table for Egg
|
|
|
2 ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
|
|
|
3
|
|
|
4 ;; This file is part of Egg on Nemacs (Japanese Environment)
|
|
|
5
|
|
|
6 ;; Egg is distributed in the forms of patches to GNU
|
|
|
7 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
|
|
|
8 ;; LICENSE which is distributed along with GNU Emacs by the
|
|
|
9 ;; Free Software Foundation.
|
|
|
10
|
|
|
11 ;; Egg is distributed in the hope that it will be useful,
|
|
|
12 ;; but WITHOUT ANY WARRANTY; without even the implied
|
|
|
13 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
|
14 ;; PURPOSE. See the GNU EMACS GENERAL PUBLIC LICENSE for
|
|
|
15 ;; more details.
|
|
|
16
|
|
|
17 ;; You should have received a copy of the GNU EMACS GENERAL
|
|
|
18 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
|
|
|
19 ;; If not, write to the Free Software Foundation, 675 Mass
|
|
|
20 ;; Ave, Cambridge, MA 02139, USA.
|
|
|
21
|
|
|
22 ;; 90.3.2 modified for Nemacs Ver.3.3.1
|
|
|
23 ;; by jiro@math.keio.ac.jp (TANAKA Jiro)
|
|
|
24 ;; proposal of keybinding for JIS symbols
|
|
|
25 ;; 92.3.23 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
|
|
|
26 ;; defrule -> its-defrule, define-its-mode -> its-define-mode
|
|
|
27 ;; 92.7.6 modified for Mule Ver.0.9.5 by K.Handa <handa@etl.go.jp>
|
|
|
28 ;; New rules added.
|
|
|
29
|
|
|
30 (its-define-mode "roma-kana" "$B$"(B" t)
|
|
|
31
|
|
|
32 (its-defrule-select-mode-temporally "q" "downcase")
|
|
|
33 (its-defrule-select-mode-temporally "Q" "zenkaku-downcase")
|
|
|
34
|
|
|
35 ;;; $B!V$C!W$NF~NO(B
|
|
|
36
|
|
|
37 (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
|
|
|
38 "p" "c" "f" "j" "v"))
|
|
|
39 (its-defrule (concat aa aa) "$B$C(B" aa))
|
|
|
40
|
|
|
41 (its-defrule "tch" "$B$C(B" "ch")
|
|
|
42
|
|
|
43 ;;; $B!V$s!W$NF~NO(B
|
|
|
44
|
|
|
45 (dolist (q1 '("b" "m" "p"))
|
|
|
46 (its-defrule (concat "m" q1) "$B$s(B" q1))
|
|
|
47
|
|
|
48 (its-defrule "N" "$B$s(B")
|
|
|
49
|
|
|
50 (its-defrule "n'" "$B$s(B")
|
|
|
51
|
|
|
52 (defvar enable-double-n-syntax nil "*\"nn\"$B$r(B\"$B$s(B\"$B$KJQ49$9$k(B")
|
|
|
53
|
|
|
54 (its-defrule "n" "$B$s(B")
|
|
|
55 (its-defrule-conditional* "nn" "$B$s(B" nil
|
|
|
56 (enable-double-n-syntax "$B$s(B")
|
|
|
57 (t nil))
|
|
|
58
|
|
|
59 ;; 92.7.6 by Y.Kawabe
|
|
|
60 ;;(dolist (aa '("k" "s" "t" "c" "h" "f" "m" "y" "r" "l"
|
|
|
61 ;; "w" "g" "z" "j" "d" "b" "v" "p" "x"))
|
|
|
62 ;; (its-defrule (concat "n" aa) "$B$s(B" aa))
|
|
|
63 ;; end of patch
|
|
|
64
|
|
|
65 (let ((small '"x" ))
|
|
|
66 (its-defrule (concat small "a") "$B$!(B")
|
|
|
67 (its-defrule (concat small "i") "$B$#(B")
|
|
|
68 (its-defrule (concat small "u") "$B$%(B")
|
|
|
69 (its-defrule (concat small "e") "$B$'(B")
|
|
|
70 (its-defrule (concat small "o") "$B$)(B")
|
|
|
71 (its-defrule (concat small "ya") "$B$c(B")
|
|
|
72 (its-defrule (concat small "yu") "$B$e(B")
|
|
|
73 (its-defrule (concat small "yo") "$B$g(B")
|
|
|
74 (its-defrule (concat small "tu") "$B$C(B")
|
|
|
75 (its-defrule (concat small "tsu") "$B$C(B")
|
|
|
76 (its-defrule (concat small "wa") "$B$n(B")
|
|
|
77 )
|
|
|
78
|
|
|
79 (its-defrule "a" "$B$"(B")
|
|
|
80 (its-defrule "i" "$B$$(B")
|
|
|
81 (its-defrule "u" "$B$&(B")
|
|
|
82 (its-defrule "e" "$B$((B")
|
|
|
83 (its-defrule "o" "$B$*(B")
|
|
|
84 (its-defrule "ka" "$B$+(B")
|
|
|
85 (its-defrule "ki" "$B$-(B")
|
|
|
86 (its-defrule "ku" "$B$/(B")
|
|
|
87 (its-defrule "ke" "$B$1(B")
|
|
|
88 (its-defrule "ko" "$B$3(B")
|
|
|
89 (its-defrule "kya" "$B$-$c(B")
|
|
|
90 (its-defrule "kyu" "$B$-$e(B")
|
|
|
91 (its-defrule "kye" "$B$-$'(B")
|
|
|
92 (its-defrule "kyo" "$B$-$g(B")
|
|
|
93 (its-defrule "sa" "$B$5(B")
|
|
|
94 (its-defrule "si" "$B$7(B")
|
|
|
95 (its-defrule "su" "$B$9(B")
|
|
|
96 (its-defrule "se" "$B$;(B")
|
|
|
97 (its-defrule "so" "$B$=(B")
|
|
|
98 (its-defrule "sya" "$B$7$c(B")
|
|
|
99 (its-defrule "syu" "$B$7$e(B")
|
|
|
100 (its-defrule "sye" "$B$7$'(B")
|
|
|
101 (its-defrule "syo" "$B$7$g(B")
|
|
|
102 (its-defrule "sha" "$B$7$c(B")
|
|
|
103 (its-defrule "shi" "$B$7(B")
|
|
|
104 (its-defrule "shu" "$B$7$e(B")
|
|
|
105 (its-defrule "she" "$B$7$'(B")
|
|
|
106 (its-defrule "sho" "$B$7$g(B")
|
|
|
107 (its-defrule "ta" "$B$?(B")
|
|
|
108 (its-defrule "ti" "$B$A(B")
|
|
|
109 (its-defrule "tu" "$B$D(B")
|
|
|
110 (its-defrule "te" "$B$F(B")
|
|
|
111 (its-defrule "to" "$B$H(B")
|
|
|
112 (its-defrule "tya" "$B$A$c(B")
|
|
|
113 (its-defrule "tyi" "$B$F$#(B")
|
|
|
114 (its-defrule "tyu" "$B$A$e(B")
|
|
|
115 (its-defrule "tye" "$B$A$'(B")
|
|
|
116 (its-defrule "tyo" "$B$A$g(B")
|
|
|
117 (its-defrule "tsu" "$B$D(B")
|
|
|
118 (its-defrule "cha" "$B$A$c(B")
|
|
|
119 (its-defrule "chi" "$B$A(B")
|
|
|
120 (its-defrule "chu" "$B$A$e(B")
|
|
|
121 (its-defrule "che" "$B$A$'(B")
|
|
|
122 (its-defrule "cho" "$B$A$g(B")
|
|
|
123 (its-defrule "na" "$B$J(B")
|
|
|
124 (its-defrule "ni" "$B$K(B")
|
|
|
125 (its-defrule "nu" "$B$L(B")
|
|
|
126 (its-defrule "ne" "$B$M(B")
|
|
|
127 (its-defrule "no" "$B$N(B")
|
|
|
128 (its-defrule "nya" "$B$K$c(B")
|
|
|
129 (its-defrule "nyu" "$B$K$e(B")
|
|
|
130 (its-defrule "nye" "$B$K$'(B")
|
|
|
131 (its-defrule "nyo" "$B$K$g(B")
|
|
|
132 (its-defrule "ha" "$B$O(B")
|
|
|
133 (its-defrule "hi" "$B$R(B")
|
|
|
134 (its-defrule "hu" "$B$U(B")
|
|
|
135 (its-defrule "he" "$B$X(B")
|
|
|
136 (its-defrule "ho" "$B$[(B")
|
|
|
137 (its-defrule "hya" "$B$R$c(B")
|
|
|
138 (its-defrule "hyu" "$B$R$e(B")
|
|
|
139 (its-defrule "hye" "$B$R$'(B")
|
|
|
140 (its-defrule "hyo" "$B$R$g(B")
|
|
|
141 (its-defrule "fa" "$B$U$!(B")
|
|
|
142 (its-defrule "fi" "$B$U$#(B")
|
|
|
143 (its-defrule "fu" "$B$U(B")
|
|
|
144 (its-defrule "fe" "$B$U$'(B")
|
|
|
145 (its-defrule "fo" "$B$U$)(B")
|
|
|
146 (its-defrule "ma" "$B$^(B")
|
|
|
147 (its-defrule "mi" "$B$_(B")
|
|
|
148 (its-defrule "mu" "$B$`(B")
|
|
|
149 (its-defrule "me" "$B$a(B")
|
|
|
150 (its-defrule "mo" "$B$b(B")
|
|
|
151 (its-defrule "mya" "$B$_$c(B")
|
|
|
152 (its-defrule "myu" "$B$_$e(B")
|
|
|
153 (its-defrule "mye" "$B$_$'(B")
|
|
|
154 (its-defrule "myo" "$B$_$g(B")
|
|
|
155 (its-defrule "ya" "$B$d(B")
|
|
|
156 (its-defrule "yi" "$B$$(B")
|
|
|
157 (its-defrule "yu" "$B$f(B")
|
|
|
158 (its-defrule "ye" "$B$$$'(B")
|
|
|
159 (its-defrule "yo" "$B$h(B")
|
|
|
160 (its-defrule "ra" "$B$i(B")
|
|
|
161 (its-defrule "ri" "$B$j(B")
|
|
|
162 (its-defrule "ru" "$B$k(B")
|
|
|
163 (its-defrule "re" "$B$l(B")
|
|
|
164 (its-defrule "ro" "$B$m(B")
|
|
|
165 (its-defrule "la" "$B$i(B")
|
|
|
166 (its-defrule "li" "$B$j(B")
|
|
|
167 (its-defrule "lu" "$B$k(B")
|
|
|
168 (its-defrule "le" "$B$l(B")
|
|
|
169 (its-defrule "lo" "$B$m(B")
|
|
|
170 (its-defrule "rya" "$B$j$c(B")
|
|
|
171 (its-defrule "ryu" "$B$j$e(B")
|
|
|
172 (its-defrule "rye" "$B$j$'(B")
|
|
|
173 (its-defrule "ryo" "$B$j$g(B")
|
|
|
174 (its-defrule "lya" "$B$j$c(B")
|
|
|
175 (its-defrule "lyu" "$B$j$e(B")
|
|
|
176 (its-defrule "lye" "$B$j$'(B")
|
|
|
177 (its-defrule "lyo" "$B$j$g(B")
|
|
|
178 (its-defrule "wa" "$B$o(B")
|
|
|
179 (its-defrule "wi" "$B$p(B")
|
|
|
180 (its-defrule "wu" "$B$&(B")
|
|
|
181 (its-defrule "we" "$B$q(B")
|
|
|
182 (its-defrule "wo" "$B$r(B")
|
|
|
183 (its-defrule "ga" "$B$,(B")
|
|
|
184 (its-defrule "gi" "$B$.(B")
|
|
|
185 (its-defrule "gu" "$B$0(B")
|
|
|
186 (its-defrule "ge" "$B$2(B")
|
|
|
187 (its-defrule "go" "$B$4(B")
|
|
|
188 (its-defrule "gya" "$B$.$c(B")
|
|
|
189 (its-defrule "gyu" "$B$.$e(B")
|
|
|
190 (its-defrule "gye" "$B$.$'(B")
|
|
|
191 (its-defrule "gyo" "$B$.$g(B")
|
|
|
192 (its-defrule "za" "$B$6(B")
|
|
|
193 (its-defrule "zi" "$B$8(B")
|
|
|
194 (its-defrule "zu" "$B$:(B")
|
|
|
195 (its-defrule "ze" "$B$<(B")
|
|
|
196 (its-defrule "zo" "$B$>(B")
|
|
|
197 (its-defrule "zya" "$B$8$c(B")
|
|
|
198 (its-defrule "zyu" "$B$8$e(B")
|
|
|
199 (its-defrule "zye" "$B$8$'(B")
|
|
|
200 (its-defrule "zyo" "$B$8$g(B")
|
|
|
201 (its-defrule "ja" "$B$8$c(B")
|
|
|
202 (its-defrule "ji" "$B$8(B")
|
|
|
203 (its-defrule "ju" "$B$8$e(B")
|
|
|
204 (its-defrule "je" "$B$8$'(B")
|
|
|
205 (its-defrule "jo" "$B$8$g(B")
|
|
|
206 ;; 92.7.6 by Y.Kawabe
|
|
|
207 (its-defrule "jya" "$B$8$c(B")
|
|
|
208 (its-defrule "jyu" "$B$8$e(B")
|
|
|
209 (its-defrule "jye" "$B$8$'(B")
|
|
|
210 (its-defrule "jyo" "$B$8$g(B")
|
|
|
211 ;; end of patch
|
|
|
212 (its-defrule "da" "$B$@(B")
|
|
|
213 (its-defrule "di" "$B$B(B")
|
|
|
214 (its-defrule "du" "$B$E(B")
|
|
|
215 (its-defrule "de" "$B$G(B")
|
|
|
216 (its-defrule "do" "$B$I(B")
|
|
|
217 (its-defrule "dya" "$B$B$c(B")
|
|
|
218 (its-defrule "dyi" "$B$G$#(B")
|
|
|
219 (its-defrule "dyu" "$B$B$e(B")
|
|
|
220 (its-defrule "dye" "$B$B$'(B")
|
|
|
221 (its-defrule "dyo" "$B$B$g(B")
|
|
|
222 (its-defrule "ba" "$B$P(B")
|
|
|
223 (its-defrule "bi" "$B$S(B")
|
|
|
224 (its-defrule "bu" "$B$V(B")
|
|
|
225 (its-defrule "be" "$B$Y(B")
|
|
|
226 (its-defrule "bo" "$B$\(B")
|
|
|
227 (its-defrule "va" "$B%t$!(B")
|
|
|
228 (its-defrule "vi" "$B%t$#(B")
|
|
|
229 (its-defrule "vu" "$B%t(B")
|
|
|
230 (its-defrule "ve" "$B%t$'(B")
|
|
|
231 (its-defrule "vo" "$B%t$)(B")
|
|
|
232 (its-defrule "bya" "$B$S$c(B")
|
|
|
233 (its-defrule "byu" "$B$S$e(B")
|
|
|
234 (its-defrule "bye" "$B$S$'(B")
|
|
|
235 (its-defrule "byo" "$B$S$g(B")
|
|
|
236 (its-defrule "pa" "$B$Q(B")
|
|
|
237 (its-defrule "pi" "$B$T(B")
|
|
|
238 (its-defrule "pu" "$B$W(B")
|
|
|
239 (its-defrule "pe" "$B$Z(B")
|
|
|
240 (its-defrule "po" "$B$](B")
|
|
|
241 (its-defrule "pya" "$B$T$c(B")
|
|
|
242 (its-defrule "pyu" "$B$T$e(B")
|
|
|
243 (its-defrule "pye" "$B$T$'(B")
|
|
|
244 (its-defrule "pyo" "$B$T$g(B")
|
|
|
245 (its-defrule "kwa" "$B$/$n(B")
|
|
|
246 (its-defrule "kwi" "$B$/$#(B")
|
|
|
247 (its-defrule "kwu" "$B$/(B")
|
|
|
248 (its-defrule "kwe" "$B$/$'(B")
|
|
|
249 (its-defrule "kwo" "$B$/$)(B")
|
|
|
250 (its-defrule "gwa" "$B$0$n(B")
|
|
|
251 (its-defrule "gwi" "$B$0$#(B")
|
|
|
252 (its-defrule "gwu" "$B$0(B")
|
|
|
253 (its-defrule "gwe" "$B$0$'(B")
|
|
|
254 (its-defrule "gwo" "$B$0$)(B")
|
|
|
255 (its-defrule "tsa" "$B$D$!(B")
|
|
|
256 (its-defrule "tsi" "$B$D$#(B")
|
|
|
257 (its-defrule "tse" "$B$D$'(B")
|
|
|
258 (its-defrule "tso" "$B$D$)(B")
|
|
|
259 (its-defrule "xka" "$B%u(B")
|
|
|
260 (its-defrule "xke" "$B%v(B")
|
|
|
261 (its-defrule "xti" "$B$F$#(B")
|
|
|
262 (its-defrule "xdi" "$B$G$#(B")
|
|
|
263 (its-defrule "xdu" "$B$I$%(B")
|
|
|
264 (its-defrule "xde" "$B$G$'(B")
|
|
|
265 (its-defrule "xdo" "$B$I$)(B")
|
|
|
266 (its-defrule "xwi" "$B$&$#(B")
|
|
|
267 (its-defrule "xwe" "$B$&$'(B")
|
|
|
268 (its-defrule "xwo" "$B$&$)(B")
|
|
|
269
|
|
|
270 ;;; Zenkaku Symbols
|
|
|
271
|
|
|
272 (its-defrule "1" "$B#1(B")
|
|
|
273 (its-defrule "2" "$B#2(B")
|
|
|
274 (its-defrule "3" "$B#3(B")
|
|
|
275 (its-defrule "4" "$B#4(B")
|
|
|
276 (its-defrule "5" "$B#5(B")
|
|
|
277 (its-defrule "6" "$B#6(B")
|
|
|
278 (its-defrule "7" "$B#7(B")
|
|
|
279 (its-defrule "8" "$B#8(B")
|
|
|
280 (its-defrule "9" "$B#9(B")
|
|
|
281 (its-defrule "0" "$B#0(B")
|
|
|
282
|
|
|
283 ;;(its-defrule " " "$B!!(B")
|
|
|
284 (its-defrule "!" "$B!*(B")
|
|
|
285 (its-defrule "@" "$B!w(B")
|
|
|
286 (its-defrule "#" "$B!t(B")
|
|
|
287 (its-defrule "$" "$B!p(B")
|
|
|
288 (its-defrule "%" "$B!s(B")
|
|
|
289 (its-defrule "^" "$B!0(B")
|
|
|
290 (its-defrule "&" "$B!u(B")
|
|
|
291 (its-defrule "*" "$B!v(B")
|
|
|
292 (its-defrule "(" "$B!J(B")
|
|
|
293 (its-defrule ")" "$B!K(B")
|
|
|
294 (its-defrule "-" "$B!<(B") ;;; JIS 213c ;;;(its-defrule "-" "$B!](B")
|
|
|
295 (its-defrule "=" "$B!a(B")
|
|
|
296 (its-defrule "`" "$B!.(B")
|
|
|
297 (its-defrule "\\" "$B!o(B")
|
|
|
298 (its-defrule "|" "$B!C(B")
|
|
|
299 (its-defrule "_" "$B!2(B")
|
|
|
300 (its-defrule "+" "$B!\(B")
|
|
|
301 (its-defrule "~" "$B!1(B")
|
|
|
302 (its-defrule "[" "$B!V(B") ;;(its-defrule "[" "$B!N(B")
|
|
|
303 (its-defrule "]" "$B!W(B") ;;(its-defrule "]" "$B!O(B")
|
|
|
304 (its-defrule "{" "$B!P(B")
|
|
|
305 (its-defrule "}" "$B!Q(B")
|
|
|
306 (its-defrule ":" "$B!'(B")
|
|
|
307 (its-defrule ";" "$B!((B")
|
|
|
308 (its-defrule "\"" "$B!I(B")
|
|
|
309 (its-defrule "'" "$B!G(B")
|
|
|
310 (its-defrule "<" "$B!c(B")
|
|
|
311 (its-defrule ">" "$B!d(B")
|
|
|
312 (its-defrule "?" "$B!)(B")
|
|
|
313 (its-defrule "/" "$B!?(B")
|
|
|
314
|
|
|
315 (defvar use-kuten-for-period t "*$B%T%j%*%I$r6gE@$KJQ49$9$k(B")
|
|
|
316 (defvar use-touten-for-comma t "*$B%3%s%^$rFIE@$KJQ49$9$k(B")
|
|
|
317
|
|
|
318 (its-defrule-conditional "."
|
|
|
319 (use-kuten-for-period "$B!#(B")
|
|
|
320 (t "$B!%(B"))
|
|
|
321
|
|
|
322 (its-defrule-conditional ","
|
|
|
323 (use-touten-for-comma "$B!"(B")
|
|
|
324 (t "$B!$(B"))
|
|
|
325
|
|
|
326 ;;; Escape character to Zenkaku inputs
|
|
|
327
|
|
|
328 (defvar zenkaku-escape "Z")
|
|
|
329
|
|
|
330 ;;; Escape character to Hankaku inputs
|
|
|
331
|
|
|
332 (defvar hankaku-escape "~")
|
|
|
333 ;;;
|
|
|
334 ;;; Zenkaku inputs
|
|
|
335 ;;;
|
|
|
336
|
|
|
337 (its-defrule (concat zenkaku-escape "0") "$B#0(B")
|
|
|
338 (its-defrule (concat zenkaku-escape "1") "$B#1(B")
|
|
|
339 (its-defrule (concat zenkaku-escape "2") "$B#2(B")
|
|
|
340 (its-defrule (concat zenkaku-escape "3") "$B#3(B")
|
|
|
341 (its-defrule (concat zenkaku-escape "4") "$B#4(B")
|
|
|
342 (its-defrule (concat zenkaku-escape "5") "$B#5(B")
|
|
|
343 (its-defrule (concat zenkaku-escape "6") "$B#6(B")
|
|
|
344 (its-defrule (concat zenkaku-escape "7") "$B#7(B")
|
|
|
345 (its-defrule (concat zenkaku-escape "8") "$B#8(B")
|
|
|
346 (its-defrule (concat zenkaku-escape "9") "$B#9(B")
|
|
|
347
|
|
|
348 (its-defrule (concat zenkaku-escape "A") "$B#A(B")
|
|
|
349 (its-defrule (concat zenkaku-escape "B") "$B#B(B")
|
|
|
350 (its-defrule (concat zenkaku-escape "C") "$B#C(B")
|
|
|
351 (its-defrule (concat zenkaku-escape "D") "$B#D(B")
|
|
|
352 (its-defrule (concat zenkaku-escape "E") "$B#E(B")
|
|
|
353 (its-defrule (concat zenkaku-escape "F") "$B#F(B")
|
|
|
354 (its-defrule (concat zenkaku-escape "G") "$B#G(B")
|
|
|
355 (its-defrule (concat zenkaku-escape "H") "$B#H(B")
|
|
|
356 (its-defrule (concat zenkaku-escape "I") "$B#I(B")
|
|
|
357 (its-defrule (concat zenkaku-escape "J") "$B#J(B")
|
|
|
358 (its-defrule (concat zenkaku-escape "K") "$B#K(B")
|
|
|
359 (its-defrule (concat zenkaku-escape "L") "$B#L(B")
|
|
|
360 (its-defrule (concat zenkaku-escape "M") "$B#M(B")
|
|
|
361 (its-defrule (concat zenkaku-escape "N") "$B#N(B")
|
|
|
362 (its-defrule (concat zenkaku-escape "O") "$B#O(B")
|
|
|
363 (its-defrule (concat zenkaku-escape "P") "$B#P(B")
|
|
|
364 (its-defrule (concat zenkaku-escape "Q") "$B#Q(B")
|
|
|
365 (its-defrule (concat zenkaku-escape "R") "$B#R(B")
|
|
|
366 (its-defrule (concat zenkaku-escape "S") "$B#S(B")
|
|
|
367 (its-defrule (concat zenkaku-escape "T") "$B#T(B")
|
|
|
368 (its-defrule (concat zenkaku-escape "U") "$B#U(B")
|
|
|
369 (its-defrule (concat zenkaku-escape "V") "$B#V(B")
|
|
|
370 (its-defrule (concat zenkaku-escape "W") "$B#W(B")
|
|
|
371 (its-defrule (concat zenkaku-escape "X") "$B#X(B")
|
|
|
372 (its-defrule (concat zenkaku-escape "Y") "$B#Y(B")
|
|
|
373 (its-defrule (concat zenkaku-escape "Z") "$B#Z(B")
|
|
|
374
|
|
|
375 (its-defrule (concat zenkaku-escape "a") "$B#a(B")
|
|
|
376 (its-defrule (concat zenkaku-escape "b") "$B#b(B")
|
|
|
377 (its-defrule (concat zenkaku-escape "c") "$B#c(B")
|
|
|
378 (its-defrule (concat zenkaku-escape "d") "$B#d(B")
|
|
|
379 (its-defrule (concat zenkaku-escape "e") "$B#e(B")
|
|
|
380 (its-defrule (concat zenkaku-escape "f") "$B#f(B")
|
|
|
381 (its-defrule (concat zenkaku-escape "g") "$B#g(B")
|
|
|
382 (its-defrule (concat zenkaku-escape "h") "$B#h(B")
|
|
|
383 (its-defrule (concat zenkaku-escape "i") "$B#i(B")
|
|
|
384 (its-defrule (concat zenkaku-escape "j") "$B#j(B")
|
|
|
385 (its-defrule (concat zenkaku-escape "k") "$B#k(B")
|
|
|
386 (its-defrule (concat zenkaku-escape "l") "$B#l(B")
|
|
|
387 (its-defrule (concat zenkaku-escape "m") "$B#m(B")
|
|
|
388 (its-defrule (concat zenkaku-escape "n") "$B#n(B")
|
|
|
389 (its-defrule (concat zenkaku-escape "o") "$B#o(B")
|
|
|
390 (its-defrule (concat zenkaku-escape "p") "$B#p(B")
|
|
|
391 (its-defrule (concat zenkaku-escape "q") "$B#q(B")
|
|
|
392 (its-defrule (concat zenkaku-escape "r") "$B#r(B")
|
|
|
393 (its-defrule (concat zenkaku-escape "s") "$B#s(B")
|
|
|
394 (its-defrule (concat zenkaku-escape "t") "$B#t(B")
|
|
|
395 (its-defrule (concat zenkaku-escape "u") "$B#u(B")
|
|
|
396 (its-defrule (concat zenkaku-escape "v") "$B#v(B")
|
|
|
397 (its-defrule (concat zenkaku-escape "w") "$B#w(B")
|
|
|
398 (its-defrule (concat zenkaku-escape "x") "$B#x(B")
|
|
|
399 (its-defrule (concat zenkaku-escape "y") "$B#y(B")
|
|
|
400 (its-defrule (concat zenkaku-escape "z") "$B#z(B")
|
|
|
401
|
|
|
402 (its-defrule (concat zenkaku-escape " ") "$B!!(B")
|
|
|
403 (its-defrule (concat zenkaku-escape "!") "$B!*(B")
|
|
|
404 (its-defrule (concat zenkaku-escape "@") "$B!w(B")
|
|
|
405 (its-defrule (concat zenkaku-escape "#") "$B!t(B")
|
|
|
406 (its-defrule (concat zenkaku-escape "$") "$B!p(B")
|
|
|
407 (its-defrule (concat zenkaku-escape "%") "$B!s(B")
|
|
|
408 (its-defrule (concat zenkaku-escape "^") "$B!0(B")
|
|
|
409 (its-defrule (concat zenkaku-escape "&") "$B!u(B")
|
|
|
410 (its-defrule (concat zenkaku-escape "*") "$B!v(B")
|
|
|
411 (its-defrule (concat zenkaku-escape "(") "$B!J(B")
|
|
|
412 (its-defrule (concat zenkaku-escape ")") "$B!K(B")
|
|
|
413 (its-defrule (concat zenkaku-escape "-") "$B!](B")
|
|
|
414 (its-defrule (concat zenkaku-escape "=") "$B!a(B")
|
|
|
415 (its-defrule (concat zenkaku-escape "`") "$B!.(B")
|
|
|
416 (its-defrule (concat zenkaku-escape "\\") "$B!o(B")
|
|
|
417 (its-defrule (concat zenkaku-escape "|") "$B!C(B")
|
|
|
418 (its-defrule (concat zenkaku-escape "_") "$B!2(B")
|
|
|
419 (its-defrule (concat zenkaku-escape "+") "$B!\(B")
|
|
|
420 (its-defrule (concat zenkaku-escape "~") "$B!1(B")
|
|
|
421 (its-defrule (concat zenkaku-escape "[") "$B!N(B")
|
|
|
422 (its-defrule (concat zenkaku-escape "]") "$B!O(B")
|
|
|
423 (its-defrule (concat zenkaku-escape "{") "$B!P(B")
|
|
|
424 (its-defrule (concat zenkaku-escape "}") "$B!Q(B")
|
|
|
425 (its-defrule (concat zenkaku-escape ":") "$B!'(B")
|
|
|
426 (its-defrule (concat zenkaku-escape ";") "$B!((B")
|
|
|
427 (its-defrule (concat zenkaku-escape "\"") "$B!I(B")
|
|
|
428 (its-defrule (concat zenkaku-escape "'") "$B!G(B")
|
|
|
429 (its-defrule (concat zenkaku-escape "<") "$B!c(B")
|
|
|
430 (its-defrule (concat zenkaku-escape ">") "$B!d(B")
|
|
|
431 (its-defrule (concat zenkaku-escape "?") "$B!)(B")
|
|
|
432 (its-defrule (concat zenkaku-escape "/") "$B!?(B")
|
|
|
433 (its-defrule (concat zenkaku-escape ",") "$B!$(B")
|
|
|
434 (its-defrule (concat zenkaku-escape ".") "$B!%(B")
|
|
|
435
|
|
|
436 ;;;
|
|
|
437 ;;; Hankaku inputs
|
|
|
438 ;;;
|
|
|
439
|
|
|
440 ;;(defvar escd '("-" "," "." "/" ";" ":" "[" "\\" "]" "^" "~"))
|
|
|
441 ;;(its-defrule '("x" escd) '(escd))
|
|
|
442
|
|
|
443
|
|
|
444 (defvar digit-characters
|
|
|
445 '( "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" ))
|
|
|
446
|
|
|
447 (defvar symbol-characters
|
|
|
448 '( " " "!" "@" "#" "$" "%" "^" "&" "*" "(" ")"
|
|
|
449 "-" "=" "`" "\\" "|" "_" "+" "~" "[" "]" "{" "}"
|
|
|
450 ":" ";" "\"" "'" "<" ">" "?" "/" "," "." ))
|
|
|
451
|
|
|
452 (defvar downcase-alphabets
|
|
|
453 '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
|
|
|
454 "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
|
|
|
455
|
|
|
456 (defvar upcase-alphabets
|
|
|
457 '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
|
|
|
458 "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
|
|
|
459
|
|
|
460 (dolist (digit digit-characters)
|
|
|
461 (its-defrule (concat hankaku-escape digit) digit))
|
|
|
462
|
|
|
463 (dolist (symbol symbol-characters)
|
|
|
464 (its-defrule (concat hankaku-escape symbol) symbol))
|
|
|
465
|
|
|
466 (dolist (downcase downcase-alphabets)
|
|
|
467 (its-defrule (concat hankaku-escape downcase) downcase))
|
|
|
468
|
|
|
469 (dolist (upcase upcase-alphabets)
|
|
|
470 (its-defrule (concat hankaku-escape upcase) upcase))
|
|
|
471
|
|
|
472 ;;; proposal key bindings for JIS symbols
|
|
|
473 ;;; 90.3.2 by jiro@math.keio.ac.jp (TANAKA Jiro)
|
|
|
474
|
|
|
475 (its-defrule "z1" "$B!{(B") (its-defrule "z!" "$B!|(B")
|
|
|
476 (its-defrule "z2" "$B"&(B") (its-defrule "z@" "$B"'(B")
|
|
|
477 (its-defrule "z3" "$B"$(B") (its-defrule "z#" "$B"%(B")
|
|
|
478 (its-defrule "z4" "$B""(B") (its-defrule "z$" "$B"#(B")
|
|
|
479 (its-defrule "z5" "$B!~(B") (its-defrule "z%" "$B"!(B")
|
|
|
480 (its-defrule "z6" "$B!y(B") (its-defrule "z^" "$B!z(B")
|
|
|
481 (its-defrule "z7" "$B!}(B") (its-defrule "z&" "$B!r(B")
|
|
|
482 (its-defrule "z8" "$B!q(B") (its-defrule "z*" "$B!_(B")
|
|
|
483 (its-defrule "z9" "$B!i(B") (its-defrule "z(" "$B!Z(B")
|
|
|
484 (its-defrule "z0" "$B!j(B") (its-defrule "z)" "$B![(B")
|
|
|
485 (its-defrule "z-" "$B!A(B") (its-defrule "z_" "$B!h(B") ; z-
|
|
|
486 (its-defrule "z=" "$B!b(B") (its-defrule "z+" "$B!^(B")
|
|
|
487 (its-defrule "z\\" "$B!@(B") (its-defrule "z|" "$B!B(B")
|
|
|
488 (its-defrule "z`" "$B!-(B") (its-defrule "z~" "$B!/(B")
|
|
|
489
|
|
|
490 (its-defrule "zq" "$B!T(B") (its-defrule "zQ" "$B!R(B")
|
|
|
491 (its-defrule "zw" "$B!U(B") (its-defrule "zW" "$B!S(B")
|
|
|
492 ; e
|
|
|
493 (its-defrule "zr" "$B!9(B") (its-defrule "zR" "$B!8(B") ; zr
|
|
|
494 (its-defrule "zt" "$B!:(B") (its-defrule "zT" "$B!x(B")
|
|
|
495 ; y u i o
|
|
|
496 (its-defrule "zp" "$B")(B") (its-defrule "zP" "$B",(B") ; zp
|
|
|
497 (its-defrule "z[" "$B!X(B") (its-defrule "z{" "$B!L(B") ; z[
|
|
|
498 (its-defrule "z]" "$B!Y(B") (its-defrule "z}" "$B!M(B") ; z]
|
|
|
499
|
|
|
500 ; a
|
|
|
501 (its-defrule "zs" "$B!3(B") (its-defrule "zS" "$B!4(B")
|
|
|
502 (its-defrule "zd" "$B!5(B") (its-defrule "zD" "$B!6(B")
|
|
|
503 (its-defrule "zf" "$B!7(B") (its-defrule "zF" "$B"*(B")
|
|
|
504 (its-defrule "zg" "$B!>(B") (its-defrule "zG" "$B!=(B")
|
|
|
505 (its-defrule "zh" "$B"+(B")
|
|
|
506 (its-defrule "zj" "$B"-(B")
|
|
|
507 (its-defrule "zk" "$B",(B")
|
|
|
508 (its-defrule "zl" "$B"*(B")
|
|
|
509 (its-defrule "z;" "$B!+(B") (its-defrule "z:" "$B!,(B")
|
|
|
510 (its-defrule "z\'" "$B!F(B") (its-defrule "z\"" "$B!H(B")
|
|
|
511
|
|
|
512 ; z
|
|
|
513 (its-defrule "zx" ":-") (its-defrule "zX" ":-)")
|
|
|
514 (its-defrule "zc" "$B!;(B") (its-defrule "zC" "$B!n(B") ; zc
|
|
|
515 (its-defrule "zv" "$B"((B") (its-defrule "zV" "$B!`(B")
|
|
|
516 (its-defrule "zb" "$B!k(B") (its-defrule "zB" "$B"+(B")
|
|
|
517 (its-defrule "zn" "$B!l(B") (its-defrule "zN" "$B"-(B")
|
|
|
518 (its-defrule "zm" "$B!m(B") (its-defrule "zM" "$B".(B")
|
|
|
519 (its-defrule "z," "$B!E(B") (its-defrule "z<" "$B!e(B")
|
|
|
520 (its-defrule "z." "$B!D(B") (its-defrule "z>" "$B!f(B") ; z.
|
|
|
521 (its-defrule "z/" "$B!&(B") (its-defrule "z?" "$B!g(B") ; z/
|
|
|
522
|
|
|
523 ;;; Commented out by K.Handa. Already defined in a different way.
|
|
|
524 ;(its-defrule "va" "$B%t%!(B")
|
|
|
525 ;(its-defrule "vi" "$B%t%#(B")
|
|
|
526 ;(its-defrule "vu" "$B%t(B")
|
|
|
527 ;(its-defrule "ve" "$B%t%'(B")
|
|
|
528 ;(its-defrule "vo" "$B%t%)(B")
|
|
|
529
|
|
|
530
|
