|
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 ;; 92.3.16 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
|
|
|
23 ;; 92.3.23 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
|
|
|
24 ;; defrule -> its-defrule, define-its-mode -> its-define-mode
|
|
|
25 ;;; 92.12.31 modified for Mule Ver.0.9.7.1
|
|
|
26 ;;; by A.Tanaka <aries@ecs.isl.melco.co.jp>
|
|
|
27 ;;; Mode indicator of "zenkaku-upcase" fixed.
|
|
|
28
|
|
|
29 ;; 92.3.16 by K.Handa
|
|
|
30 ;;(define-its-mode "zenkaku-downcase" " a$B#a(B" t)
|
|
|
31 (its-define-mode "zenkaku-downcase" "$B#a(B" t)
|
|
|
32
|
|
|
33 (its-defrule "0" "$B#0(B")
|
|
|
34 (its-defrule "1" "$B#1(B")
|
|
|
35 (its-defrule "2" "$B#2(B")
|
|
|
36 (its-defrule "3" "$B#3(B")
|
|
|
37 (its-defrule "4" "$B#4(B")
|
|
|
38 (its-defrule "5" "$B#5(B")
|
|
|
39 (its-defrule "6" "$B#6(B")
|
|
|
40 (its-defrule "7" "$B#7(B")
|
|
|
41 (its-defrule "8" "$B#8(B")
|
|
|
42 (its-defrule "9" "$B#9(B")
|
|
|
43
|
|
|
44 (its-defrule "A" "$B#A(B")
|
|
|
45 (its-defrule "B" "$B#B(B")
|
|
|
46 (its-defrule "C" "$B#C(B")
|
|
|
47 (its-defrule "D" "$B#D(B")
|
|
|
48 (its-defrule "E" "$B#E(B")
|
|
|
49 (its-defrule "F" "$B#F(B")
|
|
|
50 (its-defrule "G" "$B#G(B")
|
|
|
51 (its-defrule "H" "$B#H(B")
|
|
|
52 (its-defrule "I" "$B#I(B")
|
|
|
53 (its-defrule "J" "$B#J(B")
|
|
|
54 (its-defrule "K" "$B#K(B")
|
|
|
55 (its-defrule "L" "$B#L(B")
|
|
|
56 (its-defrule "M" "$B#M(B")
|
|
|
57 (its-defrule "N" "$B#N(B")
|
|
|
58 (its-defrule "O" "$B#O(B")
|
|
|
59 (its-defrule "P" "$B#P(B")
|
|
|
60 (its-defrule "Q" "$B#Q(B")
|
|
|
61 (its-defrule "R" "$B#R(B")
|
|
|
62 (its-defrule "S" "$B#S(B")
|
|
|
63 (its-defrule "T" "$B#T(B")
|
|
|
64 (its-defrule "U" "$B#U(B")
|
|
|
65 (its-defrule "V" "$B#V(B")
|
|
|
66 (its-defrule "W" "$B#W(B")
|
|
|
67 (its-defrule "X" "$B#X(B")
|
|
|
68 (its-defrule "Y" "$B#Y(B")
|
|
|
69 (its-defrule "Z" "$B#Z(B")
|
|
|
70
|
|
|
71 (its-defrule "a" "$B#a(B")
|
|
|
72 (its-defrule "b" "$B#b(B")
|
|
|
73 (its-defrule "c" "$B#c(B")
|
|
|
74 (its-defrule "d" "$B#d(B")
|
|
|
75 (its-defrule "e" "$B#e(B")
|
|
|
76 (its-defrule "f" "$B#f(B")
|
|
|
77 (its-defrule "g" "$B#g(B")
|
|
|
78 (its-defrule "h" "$B#h(B")
|
|
|
79 (its-defrule "i" "$B#i(B")
|
|
|
80 (its-defrule "j" "$B#j(B")
|
|
|
81 (its-defrule "k" "$B#k(B")
|
|
|
82 (its-defrule "l" "$B#l(B")
|
|
|
83 (its-defrule "m" "$B#m(B")
|
|
|
84 (its-defrule "n" "$B#n(B")
|
|
|
85 (its-defrule "o" "$B#o(B")
|
|
|
86 (its-defrule "p" "$B#p(B")
|
|
|
87 (its-defrule "q" "$B#q(B")
|
|
|
88 (its-defrule "r" "$B#r(B")
|
|
|
89 (its-defrule "s" "$B#s(B")
|
|
|
90 (its-defrule "t" "$B#t(B")
|
|
|
91 (its-defrule "u" "$B#u(B")
|
|
|
92 (its-defrule "v" "$B#v(B")
|
|
|
93 (its-defrule "w" "$B#w(B")
|
|
|
94 (its-defrule "x" "$B#x(B")
|
|
|
95 (its-defrule "y" "$B#y(B")
|
|
|
96 (its-defrule "z" "$B#z(B")
|
|
|
97
|
|
|
98 (its-defrule " " "$B!!(B")
|
|
|
99 (its-defrule "!" "$B!*(B")
|
|
|
100 (its-defrule "@" "$B!w(B")
|
|
|
101 (its-defrule "#" "$B!t(B")
|
|
|
102 (its-defrule "$" "$B!p(B")
|
|
|
103 (its-defrule "%" "$B!s(B")
|
|
|
104 (its-defrule "^" "$B!0(B")
|
|
|
105 (its-defrule "&" "$B!u(B")
|
|
|
106 (its-defrule "*" "$B!v(B")
|
|
|
107 (its-defrule "(" "$B!J(B")
|
|
|
108 (its-defrule ")" "$B!K(B")
|
|
|
109 (its-defrule "-" "$B!](B")
|
|
|
110 (its-defrule "=" "$B!a(B")
|
|
|
111 (its-defrule "`" "$B!.(B")
|
|
|
112 (its-defrule "\\" "$B!o(B")
|
|
|
113 (its-defrule "|" "$B!C(B")
|
|
|
114 (its-defrule "_" "$B!2(B")
|
|
|
115 (its-defrule "+" "$B!\(B")
|
|
|
116 (its-defrule "~" "$B!1(B")
|
|
|
117 (its-defrule "[" "$B!N(B")
|
|
|
118 (its-defrule "]" "$B!O(B")
|
|
|
119 (its-defrule "{" "$B!P(B")
|
|
|
120 (its-defrule "}" "$B!Q(B")
|
|
|
121 (its-defrule ":" "$B!'(B")
|
|
|
122 (its-defrule ";" "$B!((B")
|
|
|
123 (its-defrule "\"" "$B!I(B")
|
|
|
124 (its-defrule "'" "$B!G(B")
|
|
|
125 (its-defrule "<" "$B!c(B")
|
|
|
126 (its-defrule ">" "$B!d(B")
|
|
|
127 (its-defrule "?" "$B!)(B")
|
|
|
128 (its-defrule "/" "$B!?(B")
|
|
|
129 (its-defrule "," "$B!$(B")
|
|
|
130 (its-defrule "." "$B!%(B")
|
|
|
131
|
|
|
132 ;;;
|
|
|
133 ;;;
|
|
|
134 ;;;
|
|
|
135
|
|
|
136 (its-define-mode "zenkaku-upcase" "$B#A(B" t) ;92.12.31 by A.Tanaka
|
|
|
137
|
|
|
138 (its-defrule "0" "$B#0(B")
|
|
|
139 (its-defrule "1" "$B#1(B")
|
|
|
140 (its-defrule "2" "$B#2(B")
|
|
|
141 (its-defrule "3" "$B#3(B")
|
|
|
142 (its-defrule "4" "$B#4(B")
|
|
|
143 (its-defrule "5" "$B#5(B")
|
|
|
144 (its-defrule "6" "$B#6(B")
|
|
|
145 (its-defrule "7" "$B#7(B")
|
|
|
146 (its-defrule "8" "$B#8(B")
|
|
|
147 (its-defrule "9" "$B#9(B")
|
|
|
148
|
|
|
149 (its-defrule "A" "$B#A(B")
|
|
|
150 (its-defrule "B" "$B#B(B")
|
|
|
151 (its-defrule "C" "$B#C(B")
|
|
|
152 (its-defrule "D" "$B#D(B")
|
|
|
153 (its-defrule "E" "$B#E(B")
|
|
|
154 (its-defrule "F" "$B#F(B")
|
|
|
155 (its-defrule "G" "$B#G(B")
|
|
|
156 (its-defrule "H" "$B#H(B")
|
|
|
157 (its-defrule "I" "$B#I(B")
|
|
|
158 (its-defrule "J" "$B#J(B")
|
|
|
159 (its-defrule "K" "$B#K(B")
|
|
|
160 (its-defrule "L" "$B#L(B")
|
|
|
161 (its-defrule "M" "$B#M(B")
|
|
|
162 (its-defrule "N" "$B#N(B")
|
|
|
163 (its-defrule "O" "$B#O(B")
|
|
|
164 (its-defrule "P" "$B#P(B")
|
|
|
165 (its-defrule "Q" "$B#Q(B")
|
|
|
166 (its-defrule "R" "$B#R(B")
|
|
|
167 (its-defrule "S" "$B#S(B")
|
|
|
168 (its-defrule "T" "$B#T(B")
|
|
|
169 (its-defrule "U" "$B#U(B")
|
|
|
170 (its-defrule "V" "$B#V(B")
|
|
|
171 (its-defrule "W" "$B#W(B")
|
|
|
172 (its-defrule "X" "$B#X(B")
|
|
|
173 (its-defrule "Y" "$B#Y(B")
|
|
|
174 (its-defrule "Z" "$B#Z(B")
|
|
|
175
|
|
|
176 (its-defrule "a" "$B#A(B")
|
|
|
177 (its-defrule "b" "$B#B(B")
|
|
|
178 (its-defrule "c" "$B#C(B")
|
|
|
179 (its-defrule "d" "$B#D(B")
|
|
|
180 (its-defrule "e" "$B#E(B")
|
|
|
181 (its-defrule "f" "$B#F(B")
|
|
|
182 (its-defrule "g" "$B#G(B")
|
|
|
183 (its-defrule "h" "$B#H(B")
|
|
|
184 (its-defrule "i" "$B#I(B")
|
|
|
185 (its-defrule "j" "$B#J(B")
|
|
|
186 (its-defrule "k" "$B#K(B")
|
|
|
187 (its-defrule "l" "$B#L(B")
|
|
|
188 (its-defrule "m" "$B#M(B")
|
|
|
189 (its-defrule "n" "$B#N(B")
|
|
|
190 (its-defrule "o" "$B#O(B")
|
|
|
191 (its-defrule "p" "$B#P(B")
|
|
|
192 (its-defrule "q" "$B#Q(B")
|
|
|
193 (its-defrule "r" "$B#R(B")
|
|
|
194 (its-defrule "s" "$B#S(B")
|
|
|
195 (its-defrule "t" "$B#T(B")
|
|
|
196 (its-defrule "u" "$B#U(B")
|
|
|
197 (its-defrule "v" "$B#V(B")
|
|
|
198 (its-defrule "w" "$B#W(B")
|
|
|
199 (its-defrule "x" "$B#X(B")
|
|
|
200 (its-defrule "y" "$B#Y(B")
|
|
|
201 (its-defrule "z" "$B#Z(B")
|
|
|
202
|
|
|
203 (its-defrule " " "$B!!(B")
|
|
|
204 (its-defrule "!" "$B!*(B")
|
|
|
205 (its-defrule "@" "$B!w(B")
|
|
|
206 (its-defrule "#" "$B!t(B")
|
|
|
207 (its-defrule "$" "$B!p(B")
|
|
|
208 (its-defrule "%" "$B!s(B")
|
|
|
209 (its-defrule "^" "$B!0(B")
|
|
|
210 (its-defrule "&" "$B!u(B")
|
|
|
211 (its-defrule "*" "$B!v(B")
|
|
|
212 (its-defrule "(" "$B!J(B")
|
|
|
213 (its-defrule ")" "$B!K(B")
|
|
|
214 (its-defrule "-" "$B!](B")
|
|
|
215 (its-defrule "=" "$B!a(B")
|
|
|
216 (its-defrule "`" "$B!.(B")
|
|
|
217 (its-defrule "\\" "$B!o(B")
|
|
|
218 (its-defrule "|" "$B!C(B")
|
|
|
219 (its-defrule "_" "$B!2(B")
|
|
|
220 (its-defrule "+" "$B!\(B")
|
|
|
221 (its-defrule "~" "$B!1(B")
|
|
|
222 (its-defrule "[" "$B!N(B")
|
|
|
223 (its-defrule "]" "$B!O(B")
|
|
|
224 (its-defrule "{" "$B!P(B")
|
|
|
225 (its-defrule "}" "$B!Q(B")
|
|
|
226 (its-defrule ":" "$B!'(B")
|
|
|
227 (its-defrule ";" "$B!((B")
|
|
|
228 (its-defrule "\"" "$B!I(B")
|
|
|
229 (its-defrule "'" "$B!G(B")
|
|
|
230 (its-defrule "<" "$B!c(B")
|
|
|
231 (its-defrule ">" "$B!d(B")
|
|
|
232 (its-defrule "?" "$B!)(B")
|
|
|
233 (its-defrule "/" "$B!?(B")
|
|
|
234 (its-defrule "," "$B!$(B")
|
|
|
235 (its-defrule "." "$B!%(B")
|
|
|
236
|
