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