Mercurial > hg > xemacs-beta

comparison lisp/its/its-han-kata.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 8619ce7e4c50
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;; Basic Roma-to-HankakuKana (jisx0201) Translation Table for Egg
2
3 ;; This file is part of Egg on Mule (Japanese Environment)
4
5 ;; Egg is distributed in the forms of patches to GNU
6 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
7 ;; LICENSE which is distributed along with GNU Emacs by the
8 ;; Free Software Foundation.
9
10 ;; Egg is distributed in the hope that it will be useful,
11 ;; but WITHOUT ANY WARRANTY; without even the implied
12 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
13 ;; PURPOSE. See the GNU EMACS GENERAL PUBLIC LICENSE for
14 ;; more details.
15
16 ;; You should have received a copy of the GNU EMACS GENERAL
17 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
18 ;; If not, write to the Free Software Foundation, 675 Mass
19 ;; Ave, Cambridge, MA 02139, USA.
20
21 ;;; 92.9.24 created for Mule Ver.0.9.6 by K.Shibata <shibata@sgi.co.jp>
22
23 (require 'jisx0201)
24
25 (its-define-mode "roma-han-kata" "(I1'(B" t)
26
27 (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
28 "p" "c" "f" "j" "v"))
29 (its-defrule (concat aa aa) "(I/(B" aa))
30
31 (its-defrule "tch" "(I/(B" "ch")
32
33 (dolist (q1 '("b" "m" "p"))
34 (its-defrule (concat "m" q1) "(I](B" q1))
35
36 (its-defrule "N" "(I](B")
37
38 (defvar enable-double-n-syntax nil "*Enable ""nn"" input for ""(I](B"" ")
39
40 (its-defrule-conditional "n"
41 ((not enable-double-n-syntax) "(I](B")
42 (t nil))
43 (its-defrule-conditional "nn"
44 ( enable-double-n-syntax "(I](B")
45 (t nil))
46
47 (its-defrule "n'" "(I](B")
48
49 (let ((small '"x" ))
50 (its-defrule (concat small "a") "(I'(B")
51 (its-defrule (concat small "i") "(I((B")
52 (its-defrule (concat small "u") "(I)(B")
53 (its-defrule (concat small "e") "(I*(B")
54 (its-defrule (concat small "o") "(I+(B")
55 (its-defrule (concat small "ya") "(I,(B")
56 (its-defrule (concat small "yu") "(I-(B")
57 (its-defrule (concat small "yo") "(I.(B")
58 (its-defrule (concat small "tu") "(I/(B")
59 (its-defrule (concat small "tsu") "(I/(B")
60 )
61
62
63 (its-defrule "a" "(I1(B")
64 (its-defrule "i" "(I2(B")
65 (its-defrule "u" "(I3(B")
66 (its-defrule "e" "(I4(B")
67 (its-defrule "o" "(I5(B")
68 (its-defrule "ka" "(I6(B")
69 (its-defrule "ki" "(I7(B")
70 (its-defrule "ku" "(I8(B")
71 (its-defrule "ke" "(I9(B")
72 (its-defrule "ko" "(I:(B")
73 (its-defrule "kya" "(I7,(B")
74 (its-defrule "kyu" "(I7-(B")
75 (its-defrule "kye" "(I7*(B")
76 (its-defrule "kyo" "(I7.(B")
77 (its-defrule "sa" "(I;(B")
78 (its-defrule "si" "(I<(B")
79 (its-defrule "su" "(I=(B")
80 (its-defrule "se" "(I>(B")
81 (its-defrule "so" "(I?(B")
82 (its-defrule "sya" "(I<,(B")
83 (its-defrule "syu" "(I<-(B")
84 (its-defrule "sye" "(I<*(B")
85 (its-defrule "syo" "(I<.(B")
86 (its-defrule "sha" "(I<,(B")
87 (its-defrule "shi" "(I<(B")
88 (its-defrule "shu" "(I<-(B")
89 (its-defrule "she" "(I<*(B")
90 (its-defrule "sho" "(I<.(B")
91 (its-defrule "ta" "(I@(B")
92 (its-defrule "ti" "(IA(B")
93 (its-defrule "tu" "(IB(B")
94 (its-defrule "te" "(IC(B")
95 (its-defrule "to" "(ID(B")
96 (its-defrule "tya" "(IA,(B")
97 (its-defrule "tyi" "(IC((B")
98 (its-defrule "tyu" "(IA-(B")
99 (its-defrule "tye" "(IA*(B")
100 (its-defrule "tyo" "(IA.(B")
101 (its-defrule "tsu" "(IB(B")
102 (its-defrule "cha" "(IA,(B")
103 (its-defrule "chi" "(IA(B")
104 (its-defrule "chu" "(IA-(B")
105 (its-defrule "che" "(IA*(B")
106 (its-defrule "cho" "(IA.(B")
107 (its-defrule "na" "(IE(B")
108 (its-defrule "ni" "(IF(B")
109 (its-defrule "nu" "(IG(B")
110 (its-defrule "ne" "(IH(B")
111 (its-defrule "no" "(II(B")
112 (its-defrule "nya" "(IF,(B")
113 (its-defrule "nyu" "(IF-(B")
114 (its-defrule "nye" "(IF*(B")
115 (its-defrule "nyo" "(IF.(B")
116 (its-defrule "ha" "(IJ(B")
117 (its-defrule "hi" "(IK(B")
118 (its-defrule "hu" "(IL(B")
119 (its-defrule "he" "(IM(B")
120 (its-defrule "ho" "(IN(B")
121 (its-defrule "hya" "(IK,(B")
122 (its-defrule "hyu" "(IK-(B")
123 (its-defrule "hye" "(IK*(B")
124 (its-defrule "hyo" "(IK.(B")
125 (its-defrule "fa" "(IL'(B")
126 (its-defrule "fi" "(IL((B")
127 (its-defrule "fu" "(IL(B")
128 (its-defrule "fe" "(IL*(B")
129 (its-defrule "fo" "(IL+(B")
130 (its-defrule "ma" "(IO(B")
131 (its-defrule "mi" "(IP(B")
132 (its-defrule "mu" "(IQ(B")
133 (its-defrule "me" "(IR(B")
134 (its-defrule "mo" "(IS(B")
135 (its-defrule "mya" "(IP,(B")
136 (its-defrule "myu" "(IP-(B")
137 (its-defrule "mye" "(IP*(B")
138 (its-defrule "myo" "(IP.(B")
139 (its-defrule "ya" "(IT(B")
140 (its-defrule "yi" "(I2(B")
141 (its-defrule "yu" "(IU(B")
142 (its-defrule "ye" "(I2*(B")
143 (its-defrule "yo" "(IV(B")
144 (its-defrule "ra" "(IW(B")
145 (its-defrule "ri" "(IX(B")
146 (its-defrule "ru" "(IY(B")
147 (its-defrule "re" "(IZ(B")
148 (its-defrule "ro" "(I[(B")
149 (its-defrule "la" "(IW(B")
150 (its-defrule "li" "(IX(B")
151 (its-defrule "lu" "(IY(B")
152 (its-defrule "le" "(IZ(B")
153 (its-defrule "lo" "(I[(B")
154 (its-defrule "rya" "(IX,(B")
155 (its-defrule "ryu" "(IX-(B")
156 (its-defrule "rye" "(IX*(B")
157 (its-defrule "ryo" "(IX.(B")
158 (its-defrule "lya" "(IX,(B")
159 (its-defrule "lyu" "(IX-(B")
160 (its-defrule "lye" "(IX*(B")
161 (its-defrule "lyo" "(IX.(B")
162 (its-defrule "wa" "(I\(B")
163 (its-defrule "wu" "(I3(B")
164 (its-defrule "wo" "(I&(B")
165 (its-defrule "ga" "(I6^(B")
166 (its-defrule "gi" "(I7^(B")
167 (its-defrule "gu" "(I8^(B")
168 (its-defrule "ge" "(I9^(B")
169 (its-defrule "go" "(I:^(B")
170 (its-defrule "gya" "(I7^,(B")
171 (its-defrule "gyu" "(I7^-(B")
172 (its-defrule "gye" "(I7^*(B")
173 (its-defrule "gyo" "(I7^.(B")
174 (its-defrule "za" "(I;^(B")
175 (its-defrule "zi" "(I<^(B")
176 (its-defrule "zu" "(I=^(B")
177 (its-defrule "ze" "(I>^(B")
178 (its-defrule "zo" "(I?^(B")
179 (its-defrule "zya" "(I<^,(B")
180 (its-defrule "zyu" "(I<^-(B")
181 (its-defrule "zye" "(I<^*(B")
182 (its-defrule "zyo" "(I<^.(B")
183 (its-defrule "ja" "(I<^,(B")
184 (its-defrule "ji" "(I<^(B")
185 (its-defrule "ju" "(I<^-(B")
186 (its-defrule "je" "(I<^*(B")
187 (its-defrule "jo" "(I<^.(B")
188 (its-defrule "da" "(I@^(B")
189 (its-defrule "di" "(IA^(B")
190 (its-defrule "du" "(IB^(B")
191 (its-defrule "de" "(IC^(B")
192 (its-defrule "do" "(ID^(B")
193 (its-defrule "dya" "(IA^,(B")
194 (its-defrule "dyi" "(IA^((B")
195 (its-defrule "dyu" "(IA^-(B")
196 (its-defrule "dye" "(IA^*(B")
197 (its-defrule "dyo" "(IA^.(B")
198 (its-defrule "ba" "(IJ^(B")
199 (its-defrule "bi" "(IK^(B")
200 (its-defrule "bu" "(IL^(B")
201 (its-defrule "be" "(IM^(B")
202 (its-defrule "bo" "(IN^(B")
203 (its-defrule "va" "(I3^'(B")
204 (its-defrule "vi" "(I3^((B")
205 (its-defrule "vu" "(I3^(B")
206 (its-defrule "ve" "(I3^*(B")
207 (its-defrule "vo" "(I3^+(B")
208 (its-defrule "bya" "(IK^,(B")
209 (its-defrule "byu" "(IK^-(B")
210 (its-defrule "bye" "(IK^*(B")
211 (its-defrule "byo" "(IK^.(B")
212 (its-defrule "pa" "(IJ_(B")
213 (its-defrule "pi" "(IK_(B")
214 (its-defrule "pu" "(IL_(B")
215 (its-defrule "pe" "(IM_(B")
216 (its-defrule "po" "(IN_(B")
217 (its-defrule "pya" "(IK_,(B")
218 (its-defrule "pyu" "(IK_-(B")
219 (its-defrule "pye" "(IK_*(B")
220 (its-defrule "pyo" "(IK_.(B")
221 (its-defrule "kwi" "(I8((B")
222 (its-defrule "kwu" "(I8(B")
223 (its-defrule "kwe" "(I8*(B")
224 (its-defrule "kwo" "(I8+(B")
225 (its-defrule "gwi" "(I8^((B")
226 (its-defrule "gwu" "(I8^(B")
227 (its-defrule "gwe" "(I8^*(B")
228 (its-defrule "gwo" "(I8^+(B")
229 (its-defrule "tsa" "(IB'(B")
230 (its-defrule "tsi" "(IB((B")
231 (its-defrule "tse" "(IB*(B")
232 (its-defrule "tso" "(IB+(B")
233 (its-defrule "xka" "(I6(B")
234 (its-defrule "xke" "(I9(B")
235 (its-defrule "xti" "(IC((B")
236 (its-defrule "xdi" "(IA^((B")
237 (its-defrule "xdu" "(ID^)(B")
238 (its-defrule "xde" "(IA^*(B")
239 (its-defrule "xdo" "(ID^+(B")
240 (its-defrule "xwi" "(I3((B")
241 (its-defrule "xwe" "(I3*(B")
242 (its-defrule "xwo" "(I3+(B")
243
244 (its-defrule "-" "(I0(B")
245 (its-defrule "[" "(I"(B")
246 (its-defrule "]" "(I#(B")
247 (its-defrule "z/" "(I%(B")
248
249 (defvar use-kuten-for-period t "*(IK_X5D^$B$r6gE@$KJQ49$9$k(B")
250 (defvar use-touten-for-comma t "*(I:]O$B$rFIE@$KJQ49$9$k(B")
251
252 (its-defrule-conditional "."
253 (use-kuten-for-period "(I!(B")
254 (t "."))
255
256 (its-defrule-conditional ","
257 (use-touten-for-comma "(I$(B")
258 (t ","))
259
260 (its-defrule (concat zenkaku-escape ",") "$B!$(B")
261 (its-defrule (concat zenkaku-escape ".") "$B!%(B")
262
263 (defun its:select-hankaku-katakana ()
264 (interactive)
265 (its:select-mode "roma-han-kata"))
266
267 (define-key mule-keymap "x" 'its:select-hankaku-katakana)
268 (define-key fence-mode-map "\e\C-x" 'its:select-hankaku-katakana)