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