|
70
|
1 ;; Japanese Character Input Package for Egg
|
|
|
2 ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
|
|
|
3
|
|
|
4 ;; This file is part of Egg on Mule (Multilingal 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.10.18 modified for Mule Ver.0.9.6 by K.Handa <handa@etl.go.jp>
|
|
|
23 ;;; Moved from egg.el
|
|
|
24 ;;; 92.12.26 modified for Mule Ver.0.9.7 by T.Shingu <shingu@cpr.canon.co.jp>
|
|
|
25 ;;; JIS Hojo Kanji support.
|
|
|
26
|
|
|
27 (provide 'egg-jsymbol)
|
|
|
28
|
|
|
29 (defvar *ku1-alist* '(
|
|
|
30 ( "$B!!(B" . "$B!!(B")
|
|
|
31 ( "$B!"(B" . "$B!"(B")
|
|
|
32 ( "$B!#(B" . "$B!#(B")
|
|
|
33 ( "$B!$(B" . "$B!$(B")
|
|
|
34 ( "$B!%(B" . "$B!%(B")
|
|
|
35 ( "$B!&(B" . "$B!&(B")
|
|
|
36 ( "$B!'(B" . "$B!'(B")
|
|
|
37 ( "$B!((B" . "$B!((B")
|
|
|
38 ( "$B!)(B" . "$B!)(B")
|
|
|
39 ( "$B!*(B" . "$B!*(B")
|
|
|
40 ( "$B!+(B" . "$B!+(B")
|
|
|
41 ( "$B!,(B" . "$B!,(B")
|
|
|
42 ( "$B!-(B" . "$B!-(B")
|
|
|
43 ( "$B!.(B" . "$B!.(B")
|
|
|
44 ( "$B!/(B" . "$B!/(B")
|
|
|
45 ( "$B!0(B" . "$B!0(B")
|
|
|
46 ( "$B!1(B" . "$B!1(B")
|
|
|
47 ( "$B!2(B" . "$B!2(B")
|
|
|
48 ( "$B!3(B" . "$B!3(B")
|
|
|
49 ( "$B!4(B" . "$B!4(B")
|
|
|
50 ( "$B!5(B" . "$B!5(B")
|
|
|
51 ( "$B!6(B" . "$B!6(B")
|
|
|
52 ( "$B!7(B" . "$B!7(B")
|
|
|
53 ( "$B!8(B" . "$B!8(B")
|
|
|
54 ( "$B!9(B" . "$B!9(B")
|
|
|
55 ( "$B!:(B" . "$B!:(B")
|
|
|
56 ( "$B!;(B" . "$B!;(B")
|
|
|
57 ( "$B!<(B" . "$B!<(B")
|
|
|
58 ( "$B!=(B" . "$B!=(B")
|
|
|
59 ( "$B!>(B" . "$B!>(B")
|
|
|
60 ( "$B!?(B" . "$B!?(B")
|
|
|
61 ( "$B!@(B" . "$B!@(B")
|
|
|
62 ( "$B!A(B" . "$B!A(B")
|
|
|
63 ( "$B!B(B" . "$B!B(B")
|
|
|
64 ( "$B!C(B" . "$B!C(B")
|
|
|
65 ( "$B!D(B" . "$B!D(B")
|
|
|
66 ( "$B!E(B" . "$B!E(B")
|
|
|
67 ( "$B!F(B" . "$B!F(B")
|
|
|
68 ( "$B!G(B" . "$B!G(B")
|
|
|
69 ( "$B!H(B" . "$B!H(B")
|
|
|
70 ( "$B!I(B" . "$B!I(B")
|
|
|
71 ( "$B!J(B" . "$B!J(B")
|
|
|
72 ( "$B!K(B" . "$B!K(B")
|
|
|
73 ( "$B!L(B" . "$B!L(B")
|
|
|
74 ( "$B!M(B" . "$B!M(B")
|
|
|
75 ( "$B!N(B" . "$B!N(B")
|
|
|
76 ( "$B!O(B" . "$B!O(B")
|
|
|
77 ( "$B!P(B" . "$B!P(B")
|
|
|
78 ( "$B!Q(B" . "$B!Q(B")
|
|
|
79 ( "$B!R(B" . "$B!R(B")
|
|
|
80 ( "$B!S(B" . "$B!S(B")
|
|
|
81 ( "$B!T(B" . "$B!T(B")
|
|
|
82 ( "$B!U(B" . "$B!U(B")
|
|
|
83 ( "$B!V(B" . "$B!V(B")
|
|
|
84 ( "$B!W(B" . "$B!W(B")
|
|
|
85 ( "$B!X(B" . "$B!X(B")
|
|
|
86 ( "$B!Y(B" . "$B!Y(B")
|
|
|
87 ( "$B!Z(B" . "$B!Z(B")
|
|
|
88 ( "$B![(B" . "$B![(B")
|
|
|
89 ( "$B!\(B" . "$B!\(B")
|
|
|
90 ( "$B!](B" . "$B!](B")
|
|
|
91 ( "$B!^(B" . "$B!^(B")
|
|
|
92 ( "$B!_(B" . "$B!_(B")
|
|
|
93 ( "$B!`(B" . "$B!`(B")
|
|
|
94 ( "$B!a(B" . "$B!a(B")
|
|
|
95 ( "$B!b(B" . "$B!b(B")
|
|
|
96 ( "$B!c(B" . "$B!c(B")
|
|
|
97 ( "$B!d(B" . "$B!d(B")
|
|
|
98 ( "$B!e(B" . "$B!e(B")
|
|
|
99 ( "$B!f(B" . "$B!f(B")
|
|
|
100 ( "$B!g(B" . "$B!g(B")
|
|
|
101 ( "$B!h(B" . "$B!h(B")
|
|
|
102 ( "$B!i(B" . "$B!i(B")
|
|
|
103 ( "$B!j(B" . "$B!j(B")
|
|
|
104 ( "$B!k(B" . "$B!k(B")
|
|
|
105 ( "$B!l(B" . "$B!l(B")
|
|
|
106 ( "$B!m(B" . "$B!m(B")
|
|
|
107 ( "$B!n(B" . "$B!n(B")
|
|
|
108 ( "$B!o(B" . "$B!o(B")
|
|
|
109 ( "$B!p(B" . "$B!p(B")
|
|
|
110 ( "$B!q(B" . "$B!q(B")
|
|
|
111 ( "$B!r(B" . "$B!r(B")
|
|
|
112 ( "$B!s(B" . "$B!s(B")
|
|
|
113 ( "$B!t(B" . "$B!t(B")
|
|
|
114 ( "$B!u(B" . "$B!u(B")
|
|
|
115 ( "$B!v(B" . "$B!v(B")
|
|
|
116 ( "$B!w(B" . "$B!w(B")
|
|
|
117 ( "$B!x(B" . "$B!x(B")
|
|
|
118 ( "$B!y(B" . "$B!y(B")
|
|
|
119 ( "$B!z(B" . "$B!z(B")
|
|
|
120 ( "$B!{(B" . "$B!{(B")
|
|
|
121 ( "$B!|(B" . "$B!|(B")
|
|
|
122 ( "$B!}(B" . "$B!}(B")
|
|
|
123 ( "$B!~(B" . "$B!~(B")
|
|
|
124 ))
|
|
|
125 (defvar *ku2-alist* '(
|
|
|
126 ( "$B"!(B" . "$B"!(B")
|
|
|
127 ( "$B""(B" . "$B""(B")
|
|
|
128 ( "$B"#(B" . "$B"#(B")
|
|
|
129 ( "$B"$(B" . "$B"$(B")
|
|
|
130 ( "$B"%(B" . "$B"%(B")
|
|
|
131 ( "$B"&(B" . "$B"&(B")
|
|
|
132 ( "$B"'(B" . "$B"'(B")
|
|
|
133 ( "$B"((B" . "$B"((B")
|
|
|
134 ( "$B")(B" . "$B")(B")
|
|
|
135 ( "$B"*(B" . "$B"*(B")
|
|
|
136 ( "$B"+(B" . "$B"+(B")
|
|
|
137 ( "$B",(B" . "$B",(B")
|
|
|
138 ( "$B"-(B" . "$B"-(B")
|
|
|
139 ( "$B".(B" . "$B".(B")
|
|
|
140 ; ( "$B"/(B" . "$B"/(B")
|
|
|
141 ; ( "$B"0(B" . "$B"0(B")
|
|
|
142 ; ( "$B"1(B" . "$B"1(B")
|
|
|
143 ; ( "$B"2(B" . "$B"2(B")
|
|
|
144 ; ( "$B"3(B" . "$B"3(B")
|
|
|
145 ; ( "$B"4(B" . "$B"4(B")
|
|
|
146 ; ( "$B"5(B" . "$B"5(B")
|
|
|
147 ; ( "$B"6(B" . "$B"6(B")
|
|
|
148 ; ( "$B"7(B" . "$B"7(B")
|
|
|
149 ; ( "$B"8(B" . "$B"8(B")
|
|
|
150 ; ( "$B"9(B" . "$B"9(B")
|
|
|
151 ( "$B":(B" . "$B":(B")
|
|
|
152 ( "$B";(B" . "$B";(B")
|
|
|
153 ( "$B"<(B" . "$B"<(B")
|
|
|
154 ( "$B"=(B" . "$B"=(B")
|
|
|
155 ( "$B">(B" . "$B">(B")
|
|
|
156 ( "$B"?(B" . "$B"?(B")
|
|
|
157 ( "$B"@(B" . "$B"@(B")
|
|
|
158 ( "$B"A(B" . "$B"A(B")
|
|
|
159 ; ( "$B"B(B" . "$B"B(B")
|
|
|
160 ; ( "$B"C(B" . "$B"C(B")
|
|
|
161 ; ( "$B"D(B" . "$B"D(B")
|
|
|
162 ; ( "$B"E(B" . "$B"E(B")
|
|
|
163 ; ( "$B"F(B" . "$B"F(B")
|
|
|
164 ; ( "$B"G(B" . "$B"G(B")
|
|
|
165 ; ( "$B"H(B" . "$B"H(B")
|
|
|
166 ; ( "$B"I(B" . "$B"I(B")
|
|
|
167 ( "$B"J(B" . "$B"J(B")
|
|
|
168 ( "$B"K(B" . "$B"K(B")
|
|
|
169 ( "$B"L(B" . "$B"L(B")
|
|
|
170 ( "$B"M(B" . "$B"M(B")
|
|
|
171 ( "$B"N(B" . "$B"N(B")
|
|
|
172 ( "$B"O(B" . "$B"O(B")
|
|
|
173 ( "$B"P(B" . "$B"P(B")
|
|
|
174 ; ( "$B"Q(B" . "$B"Q(B")
|
|
|
175 ; ( "$B"R(B" . "$B"R(B")
|
|
|
176 ; ( "$B"S(B" . "$B"S(B")
|
|
|
177 ; ( "$B"T(B" . "$B"T(B")
|
|
|
178 ; ( "$B"U(B" . "$B"U(B")
|
|
|
179 ; ( "$B"V(B" . "$B"V(B")
|
|
|
180 ; ( "$B"W(B" . "$B"W(B")
|
|
|
181 ; ( "$B"X(B" . "$B"X(B")
|
|
|
182 ; ( "$B"Y(B" . "$B"Y(B")
|
|
|
183 ; ( "$B"Z(B" . "$B"Z(B")
|
|
|
184 ; ( "$B"[(B" . "$B"[(B")
|
|
|
185 ( "$B"\(B" . "$B"\(B")
|
|
|
186 ( "$B"](B" . "$B"](B")
|
|
|
187 ( "$B"^(B" . "$B"^(B")
|
|
|
188 ( "$B"_(B" . "$B"_(B")
|
|
|
189 ( "$B"`(B" . "$B"`(B")
|
|
|
190 ( "$B"a(B" . "$B"a(B")
|
|
|
191 ( "$B"b(B" . "$B"b(B")
|
|
|
192 ( "$B"c(B" . "$B"c(B")
|
|
|
193 ( "$B"d(B" . "$B"d(B")
|
|
|
194 ( "$B"e(B" . "$B"e(B")
|
|
|
195 ( "$B"f(B" . "$B"f(B")
|
|
|
196 ( "$B"g(B" . "$B"g(B")
|
|
|
197 ( "$B"h(B" . "$B"h(B")
|
|
|
198 ( "$B"i(B" . "$B"i(B")
|
|
|
199 ( "$B"j(B" . "$B"j(B")
|
|
|
200 ; ( "$B"k(B" . "$B"k(B")
|
|
|
201 ; ( "$B"l(B" . "$B"l(B")
|
|
|
202 ; ( "$B"m(B" . "$B"m(B")
|
|
|
203 ; ( "$B"n(B" . "$B"n(B")
|
|
|
204 ; ( "$B"o(B" . "$B"o(B")
|
|
|
205 ; ( "$B"p(B" . "$B"p(B")
|
|
|
206 ; ( "$B"q(B" . "$B"q(B")
|
|
|
207 ( "$B"r(B" . "$B"r(B")
|
|
|
208 ( "$B"s(B" . "$B"s(B")
|
|
|
209 ( "$B"t(B" . "$B"t(B")
|
|
|
210 ( "$B"u(B" . "$B"u(B")
|
|
|
211 ( "$B"v(B" . "$B"v(B")
|
|
|
212 ( "$B"w(B" . "$B"w(B")
|
|
|
213 ( "$B"x(B" . "$B"x(B")
|
|
|
214 ( "$B"y(B" . "$B"y(B")
|
|
|
215 ; ( "$B"z(B" . "$B"z(B")
|
|
|
216 ; ( "$B"{(B" . "$B"{(B")
|
|
|
217 ; ( "$B"|(B" . "$B"|(B")
|
|
|
218 ; ( "$B"}(B" . "$B"}(B")
|
|
|
219 ( "$B"~(B" . "$B"~(B")
|
|
|
220 ))
|
|
|
221
|
|
|
222 (defvar egg:*symbol-alist* (append *ku1-alist* *ku2-alist*))
|
|
|
223
|
|
|
224 (defvar *ku3-alist* '(
|
|
|
225 ;I ( "$B#!(B" . "$B#!(B")
|
|
|
226 ;II ( "$B#"(B" . "$B#"(B")
|
|
|
227 ;III ( "$B##(B" . "$B##(B")
|
|
|
228 ;IV ( "$B#$(B" . "$B#$(B")
|
|
|
229 ;V ( "$B#%(B" . "$B#%(B")
|
|
|
230 ;VI ( "$B#&(B" . "$B#&(B")
|
|
|
231 ;VII ( "$B#'(B" . "$B#'(B")
|
|
|
232 ;VIII ( "$B#((B" . "$B#((B")
|
|
|
233 ;IX ( "$B#)(B" . "$B#)(B")
|
|
|
234 ;X ( "$B#*(B" . "$B#*(B")
|
|
|
235 ;XI ( "$B#+(B" . "$B#+(B")
|
|
|
236 ;XII ( "$B#,(B" . "$B#,(B")
|
|
|
237 ;XIII ( "$B#-(B" . "$B#-(B")
|
|
|
238 ;XIV ( "$B#.(B" . "$B#.(B")
|
|
|
239 ;XV ( "$B#/(B" . "$B#/(B")
|
|
|
240 ( "$B#0(B" . "$B#0(B")
|
|
|
241 ( "$B#1(B" . "$B#1(B")
|
|
|
242 ( "$B#2(B" . "$B#2(B")
|
|
|
243 ( "$B#3(B" . "$B#3(B")
|
|
|
244 ( "$B#4(B" . "$B#4(B")
|
|
|
245 ( "$B#5(B" . "$B#5(B")
|
|
|
246 ( "$B#6(B" . "$B#6(B")
|
|
|
247 ( "$B#7(B" . "$B#7(B")
|
|
|
248 ( "$B#8(B" . "$B#8(B")
|
|
|
249 ( "$B#9(B" . "$B#9(B")
|
|
|
250 ;1/2 ( "$B#:(B" . "$B#:(B")
|
|
|
251 ;1/3 ( "$B#;(B" . "$B#;(B")
|
|
|
252 ;1/4 ( "$B#<(B" . "$B#<(B")
|
|
|
253 ;2/3 ( "$B#=(B" . "$B#=(B")
|
|
|
254 ;3/4 ( "$B#>(B" . "$B#>(B")
|
|
|
255 ; ( "$B#?(B" . "$B#?(B")
|
|
|
256 ; ( "$B#@(B" . "$B#@(B")
|
|
|
257 ( "$B#A(B" . "$B#A(B")
|
|
|
258 ( "$B#B(B" . "$B#B(B")
|
|
|
259 ( "$B#C(B" . "$B#C(B")
|
|
|
260 ( "$B#D(B" . "$B#D(B")
|
|
|
261 ( "$B#E(B" . "$B#E(B")
|
|
|
262 ( "$B#F(B" . "$B#F(B")
|
|
|
263 ( "$B#G(B" . "$B#G(B")
|
|
|
264 ( "$B#H(B" . "$B#H(B")
|
|
|
265 ( "$B#I(B" . "$B#I(B")
|
|
|
266 ( "$B#J(B" . "$B#J(B")
|
|
|
267 ( "$B#K(B" . "$B#K(B")
|
|
|
268 ( "$B#L(B" . "$B#L(B")
|
|
|
269 ( "$B#M(B" . "$B#M(B")
|
|
|
270 ( "$B#N(B" . "$B#N(B")
|
|
|
271 ( "$B#O(B" . "$B#O(B")
|
|
|
272 ( "$B#P(B" . "$B#P(B")
|
|
|
273 ( "$B#Q(B" . "$B#Q(B")
|
|
|
274 ( "$B#R(B" . "$B#R(B")
|
|
|
275 ( "$B#S(B" . "$B#S(B")
|
|
|
276 ( "$B#T(B" . "$B#T(B")
|
|
|
277 ( "$B#U(B" . "$B#U(B")
|
|
|
278 ( "$B#V(B" . "$B#V(B")
|
|
|
279 ( "$B#W(B" . "$B#W(B")
|
|
|
280 ( "$B#X(B" . "$B#X(B")
|
|
|
281 ( "$B#Y(B" . "$B#Y(B")
|
|
|
282 ( "$B#Z(B" . "$B#Z(B")
|
|
|
283 ; ( "$B#[(B" . "$B#[(B")
|
|
|
284 ; ( "$B#\(B" . "$B#\(B")
|
|
|
285 ; ( "$B#](B" . "$B#](B")
|
|
|
286 ; ( "$B#^(B" . "$B#^(B")
|
|
|
287 ; ( "$B#_(B" . "$B#_(B")
|
|
|
288 ; ( "$B#`(B" . "$B#`(B")
|
|
|
289 ( "$B#a(B" . "$B#a(B")
|
|
|
290 ( "$B#b(B" . "$B#b(B")
|
|
|
291 ( "$B#c(B" . "$B#c(B")
|
|
|
292 ( "$B#d(B" . "$B#d(B")
|
|
|
293 ( "$B#e(B" . "$B#e(B")
|
|
|
294 ( "$B#f(B" . "$B#f(B")
|
|
|
295 ( "$B#g(B" . "$B#g(B")
|
|
|
296 ( "$B#h(B" . "$B#h(B")
|
|
|
297 ( "$B#i(B" . "$B#i(B")
|
|
|
298 ( "$B#j(B" . "$B#j(B")
|
|
|
299 ( "$B#k(B" . "$B#k(B")
|
|
|
300 ( "$B#l(B" . "$B#l(B")
|
|
|
301 ( "$B#m(B" . "$B#m(B")
|
|
|
302 ( "$B#n(B" . "$B#n(B")
|
|
|
303 ( "$B#o(B" . "$B#o(B")
|
|
|
304 ( "$B#p(B" . "$B#p(B")
|
|
|
305 ( "$B#q(B" . "$B#q(B")
|
|
|
306 ( "$B#r(B" . "$B#r(B")
|
|
|
307 ( "$B#s(B" . "$B#s(B")
|
|
|
308 ( "$B#t(B" . "$B#t(B")
|
|
|
309 ( "$B#u(B" . "$B#u(B")
|
|
|
310 ( "$B#v(B" . "$B#v(B")
|
|
|
311 ( "$B#w(B" . "$B#w(B")
|
|
|
312 ( "$B#x(B" . "$B#x(B")
|
|
|
313 ( "$B#y(B" . "$B#y(B")
|
|
|
314 ( "$B#z(B" . "$B#z(B")
|
|
|
315 ; ( "$B#{(B" . "$B#{(B")
|
|
|
316 ; ( "$B#|(B" . "$B#|(B")
|
|
|
317 ; ( "$B#}(B" . "$B#}(B")
|
|
|
318 ; ( "$B#~(B" . "$B#~(B")
|
|
|
319 ))
|
|
|
320
|
|
|
321 (defvar egg:*alphanumeric-alist* *ku3-alist*)
|
|
|
322
|
|
|
323 (defvar *ku4-alist* '(
|
|
|
324
|
|
|
325 ( "$B$!(B" . "$B$!(B")
|
|
|
326 ( "$B$"(B" . "$B$"(B")
|
|
|
327 ( "$B$#(B" . "$B$#(B")
|
|
|
328 ( "$B$$(B" . "$B$$(B")
|
|
|
329 ( "$B$%(B" . "$B$%(B")
|
|
|
330 ( "$B$&(B" . "$B$&(B")
|
|
|
331 ( "$B$'(B" . "$B$'(B")
|
|
|
332 ( "$B$((B" . "$B$((B")
|
|
|
333 ( "$B$)(B" . "$B$)(B")
|
|
|
334 ( "$B$*(B" . "$B$*(B")
|
|
|
335 ( "$B$+(B" . "$B$+(B")
|
|
|
336 ( "$B$,(B" . "$B$,(B")
|
|
|
337 ( "$B$-(B" . "$B$-(B")
|
|
|
338 ( "$B$.(B" . "$B$.(B")
|
|
|
339 ( "$B$/(B" . "$B$/(B")
|
|
|
340 ( "$B$0(B" . "$B$0(B")
|
|
|
341 ( "$B$1(B" . "$B$1(B")
|
|
|
342 ( "$B$2(B" . "$B$2(B")
|
|
|
343 ( "$B$3(B" . "$B$3(B")
|
|
|
344 ( "$B$4(B" . "$B$4(B")
|
|
|
345 ( "$B$5(B" . "$B$5(B")
|
|
|
346 ( "$B$6(B" . "$B$6(B")
|
|
|
347 ( "$B$7(B" . "$B$7(B")
|
|
|
348 ( "$B$8(B" . "$B$8(B")
|
|
|
349 ( "$B$9(B" . "$B$9(B")
|
|
|
350 ( "$B$:(B" . "$B$:(B")
|
|
|
351 ( "$B$;(B" . "$B$;(B")
|
|
|
352 ( "$B$<(B" . "$B$<(B")
|
|
|
353 ( "$B$=(B" . "$B$=(B")
|
|
|
354 ( "$B$>(B" . "$B$>(B")
|
|
|
355 ( "$B$?(B" . "$B$?(B")
|
|
|
356 ( "$B$@(B" . "$B$@(B")
|
|
|
357 ( "$B$A(B" . "$B$A(B")
|
|
|
358 ( "$B$B(B" . "$B$B(B")
|
|
|
359 ( "$B$C(B" . "$B$C(B")
|
|
|
360 ( "$B$D(B" . "$B$D(B")
|
|
|
361 ( "$B$E(B" . "$B$E(B")
|
|
|
362 ( "$B$F(B" . "$B$F(B")
|
|
|
363 ( "$B$G(B" . "$B$G(B")
|
|
|
364 ( "$B$H(B" . "$B$H(B")
|
|
|
365 ( "$B$I(B" . "$B$I(B")
|
|
|
366 ( "$B$J(B" . "$B$J(B")
|
|
|
367 ( "$B$K(B" . "$B$K(B")
|
|
|
368 ( "$B$L(B" . "$B$L(B")
|
|
|
369 ( "$B$M(B" . "$B$M(B")
|
|
|
370 ( "$B$N(B" . "$B$N(B")
|
|
|
371 ( "$B$O(B" . "$B$O(B")
|
|
|
372 ( "$B$P(B" . "$B$P(B")
|
|
|
373 ( "$B$Q(B" . "$B$Q(B")
|
|
|
374 ( "$B$R(B" . "$B$R(B")
|
|
|
375 ( "$B$S(B" . "$B$S(B")
|
|
|
376 ( "$B$T(B" . "$B$T(B")
|
|
|
377 ( "$B$U(B" . "$B$U(B")
|
|
|
378 ( "$B$V(B" . "$B$V(B")
|
|
|
379 ( "$B$W(B" . "$B$W(B")
|
|
|
380 ( "$B$X(B" . "$B$X(B")
|
|
|
381 ( "$B$Y(B" . "$B$Y(B")
|
|
|
382 ( "$B$Z(B" . "$B$Z(B")
|
|
|
383 ( "$B$[(B" . "$B$[(B")
|
|
|
384 ( "$B$\(B" . "$B$\(B")
|
|
|
385 ( "$B$](B" . "$B$](B")
|
|
|
386 ( "$B$^(B" . "$B$^(B")
|
|
|
387 ( "$B$_(B" . "$B$_(B")
|
|
|
388 ( "$B$`(B" . "$B$`(B")
|
|
|
389 ( "$B$a(B" . "$B$a(B")
|
|
|
390 ( "$B$b(B" . "$B$b(B")
|
|
|
391 ( "$B$c(B" . "$B$c(B")
|
|
|
392 ( "$B$d(B" . "$B$d(B")
|
|
|
393 ( "$B$e(B" . "$B$e(B")
|
|
|
394 ( "$B$f(B" . "$B$f(B")
|
|
|
395 ( "$B$g(B" . "$B$g(B")
|
|
|
396 ( "$B$h(B" . "$B$h(B")
|
|
|
397 ( "$B$i(B" . "$B$i(B")
|
|
|
398 ( "$B$j(B" . "$B$j(B")
|
|
|
399 ( "$B$k(B" . "$B$k(B")
|
|
|
400 ( "$B$l(B" . "$B$l(B")
|
|
|
401 ( "$B$m(B" . "$B$m(B")
|
|
|
402 ( "$B$n(B" . "$B$n(B")
|
|
|
403 ( "$B$o(B" . "$B$o(B")
|
|
|
404 ( "$B$p(B" . "$B$p(B")
|
|
|
405 ( "$B$q(B" . "$B$q(B")
|
|
|
406 ( "$B$r(B" . "$B$r(B")
|
|
|
407 ( "$B$s(B" . "$B$s(B")
|
|
|
408 ; ( "$B$t(B" . "$B$t(B")
|
|
|
409 ; ( "$B$u(B" . "$B$u(B")
|
|
|
410 ; ( "$B$v(B" . "$B$v(B")
|
|
|
411 ; ( "$B$w(B" . "$B$w(B")
|
|
|
412 ; ( "$B$x(B" . "$B$x(B")
|
|
|
413 ; ( "$B$y(B" . "$B$y(B")
|
|
|
414 ; ( "$B$z(B" . "$B$z(B")
|
|
|
415 ; ( "$B${(B" . "$B${(B")
|
|
|
416 ; ( "$B$|(B" . "$B$|(B")
|
|
|
417 ; ( "$B$}(B" . "$B$}(B")
|
|
|
418 ; ( "$B$~(B" . "$B$~(B")
|
|
|
419 ))
|
|
|
420
|
|
|
421 (defvar egg:*hiragana-alist* *ku4-alist*)
|
|
|
422
|
|
|
423 (defvar *ku5-alist* '(
|
|
|
424 ( "$B%!(B" . "$B%!(B")
|
|
|
425 ( "$B%"(B" . "$B%"(B")
|
|
|
426 ( "$B%#(B" . "$B%#(B")
|
|
|
427 ( "$B%$(B" . "$B%$(B")
|
|
|
428 ( "$B%%(B" . "$B%%(B")
|
|
|
429 ( "$B%&(B" . "$B%&(B")
|
|
|
430 ( "$B%'(B" . "$B%'(B")
|
|
|
431 ( "$B%((B" . "$B%((B")
|
|
|
432 ( "$B%)(B" . "$B%)(B")
|
|
|
433 ( "$B%*(B" . "$B%*(B")
|
|
|
434 ( "$B%+(B" . "$B%+(B")
|
|
|
435 ( "$B%,(B" . "$B%,(B")
|
|
|
436 ( "$B%-(B" . "$B%-(B")
|
|
|
437 ( "$B%.(B" . "$B%.(B")
|
|
|
438 ( "$B%/(B" . "$B%/(B")
|
|
|
439 ( "$B%0(B" . "$B%0(B")
|
|
|
440 ( "$B%1(B" . "$B%1(B")
|
|
|
441 ( "$B%2(B" . "$B%2(B")
|
|
|
442 ( "$B%3(B" . "$B%3(B")
|
|
|
443 ( "$B%4(B" . "$B%4(B")
|
|
|
444 ( "$B%5(B" . "$B%5(B")
|
|
|
445 ( "$B%6(B" . "$B%6(B")
|
|
|
446 ( "$B%7(B" . "$B%7(B")
|
|
|
447 ( "$B%8(B" . "$B%8(B")
|
|
|
448 ( "$B%9(B" . "$B%9(B")
|
|
|
449 ( "$B%:(B" . "$B%:(B")
|
|
|
450 ( "$B%;(B" . "$B%;(B")
|
|
|
451 ( "$B%<(B" . "$B%<(B")
|
|
|
452 ( "$B%=(B" . "$B%=(B")
|
|
|
453 ( "$B%>(B" . "$B%>(B")
|
|
|
454 ( "$B%?(B" . "$B%?(B")
|
|
|
455 ( "$B%@(B" . "$B%@(B")
|
|
|
456 ( "$B%A(B" . "$B%A(B")
|
|
|
457 ( "$B%B(B" . "$B%B(B")
|
|
|
458 ( "$B%C(B" . "$B%C(B")
|
|
|
459 ( "$B%D(B" . "$B%D(B")
|
|
|
460 ( "$B%E(B" . "$B%E(B")
|
|
|
461 ( "$B%F(B" . "$B%F(B")
|
|
|
462 ( "$B%G(B" . "$B%G(B")
|
|
|
463 ( "$B%H(B" . "$B%H(B")
|
|
|
464 ( "$B%I(B" . "$B%I(B")
|
|
|
465 ( "$B%J(B" . "$B%J(B")
|
|
|
466 ( "$B%K(B" . "$B%K(B")
|
|
|
467 ( "$B%L(B" . "$B%L(B")
|
|
|
468 ( "$B%M(B" . "$B%M(B")
|
|
|
469 ( "$B%N(B" . "$B%N(B")
|
|
|
470 ( "$B%O(B" . "$B%O(B")
|
|
|
471 ( "$B%P(B" . "$B%P(B")
|
|
|
472 ( "$B%Q(B" . "$B%Q(B")
|
|
|
473 ( "$B%R(B" . "$B%R(B")
|
|
|
474 ( "$B%S(B" . "$B%S(B")
|
|
|
475 ( "$B%T(B" . "$B%T(B")
|
|
|
476 ( "$B%U(B" . "$B%U(B")
|
|
|
477 ( "$B%V(B" . "$B%V(B")
|
|
|
478 ( "$B%W(B" . "$B%W(B")
|
|
|
479 ( "$B%X(B" . "$B%X(B")
|
|
|
480 ( "$B%Y(B" . "$B%Y(B")
|
|
|
481 ( "$B%Z(B" . "$B%Z(B")
|
|
|
482 ( "$B%[(B" . "$B%[(B")
|
|
|
483 ( "$B%\(B" . "$B%\(B")
|
|
|
484 ( "$B%](B" . "$B%](B")
|
|
|
485 ( "$B%^(B" . "$B%^(B")
|
|
|
486 ( "$B%_(B" . "$B%_(B")
|
|
|
487 ( "$B%`(B" . "$B%`(B")
|
|
|
488 ( "$B%a(B" . "$B%a(B")
|
|
|
489 ( "$B%b(B" . "$B%b(B")
|
|
|
490 ( "$B%c(B" . "$B%c(B")
|
|
|
491 ( "$B%d(B" . "$B%d(B")
|
|
|
492 ( "$B%e(B" . "$B%e(B")
|
|
|
493 ( "$B%f(B" . "$B%f(B")
|
|
|
494 ( "$B%g(B" . "$B%g(B")
|
|
|
495 ( "$B%h(B" . "$B%h(B")
|
|
|
496 ( "$B%i(B" . "$B%i(B")
|
|
|
497 ( "$B%j(B" . "$B%j(B")
|
|
|
498 ( "$B%k(B" . "$B%k(B")
|
|
|
499 ( "$B%l(B" . "$B%l(B")
|
|
|
500 ( "$B%m(B" . "$B%m(B")
|
|
|
501 ( "$B%n(B" . "$B%n(B")
|
|
|
502 ( "$B%o(B" . "$B%o(B")
|
|
|
503 ( "$B%p(B" . "$B%p(B")
|
|
|
504 ( "$B%q(B" . "$B%q(B")
|
|
|
505 ( "$B%r(B" . "$B%r(B")
|
|
|
506 ( "$B%s(B" . "$B%s(B")
|
|
|
507 ( "$B%t(B" . "$B%t(B")
|
|
|
508 ( "$B%u(B" . "$B%u(B")
|
|
|
509 ( "$B%v(B" . "$B%v(B")
|
|
|
510 ; ( "$B%w(B" . "$B%w(B")
|
|
|
511 ; ( "$B%x(B" . "$B%x(B")
|
|
|
512 ; ( "$B%y(B" . "$B%y(B")
|
|
|
513 ; ( "$B%z(B" . "$B%z(B")
|
|
|
514 ; ( "$B%{(B" . "$B%{(B")
|
|
|
515 ; ( "$B%|(B" . "$B%|(B")
|
|
|
516 ; ( "$B%}(B" . "$B%}(B")
|
|
|
517 ; ( "$B%~(B" . "$B%~(B")
|
|
|
518 ))
|
|
|
519
|
|
|
520 (defvar egg:*katakana-alist* *ku5-alist*)
|
|
|
521
|
|
|
522 (defvar *ku6-alist* '(
|
|
|
523 ( "$B&!(B" . "$B&!(B")
|
|
|
524 ( "$B&"(B" . "$B&"(B")
|
|
|
525 ( "$B&#(B" . "$B&#(B")
|
|
|
526 ( "$B&$(B" . "$B&$(B")
|
|
|
527 ( "$B&%(B" . "$B&%(B")
|
|
|
528 ( "$B&&(B" . "$B&&(B")
|
|
|
529 ( "$B&'(B" . "$B&'(B")
|
|
|
530 ( "$B&((B" . "$B&((B")
|
|
|
531 ( "$B&)(B" . "$B&)(B")
|
|
|
532 ( "$B&*(B" . "$B&*(B")
|
|
|
533 ( "$B&+(B" . "$B&+(B")
|
|
|
534 ( "$B&,(B" . "$B&,(B")
|
|
|
535 ( "$B&-(B" . "$B&-(B")
|
|
|
536 ( "$B&.(B" . "$B&.(B")
|
|
|
537 ( "$B&/(B" . "$B&/(B")
|
|
|
538 ( "$B&0(B" . "$B&0(B")
|
|
|
539 ( "$B&1(B" . "$B&1(B")
|
|
|
540 ( "$B&2(B" . "$B&2(B")
|
|
|
541 ( "$B&3(B" . "$B&3(B")
|
|
|
542 ( "$B&4(B" . "$B&4(B")
|
|
|
543 ( "$B&5(B" . "$B&5(B")
|
|
|
544 ( "$B&6(B" . "$B&6(B")
|
|
|
545 ( "$B&7(B" . "$B&7(B")
|
|
|
546 ( "$B&8(B" . "$B&8(B")
|
|
|
547 ; ( "$B&9(B" . "$B&9(B")
|
|
|
548 ; ( "$B&:(B" . "$B&:(B")
|
|
|
549 ; ( "$B&;(B" . "$B&;(B")
|
|
|
550 ; ( "$B&<(B" . "$B&<(B")
|
|
|
551 ; ( "$B&=(B" . "$B&=(B")
|
|
|
552 ; ( "$B&>(B" . "$B&>(B")
|
|
|
553 ; ( "$B&?(B" . "$B&?(B")
|
|
|
554 ; ( "$B&@(B" . "$B&@(B")
|
|
|
555 ( "$B&A(B" . "$B&A(B")
|
|
|
556 ( "$B&B(B" . "$B&B(B")
|
|
|
557 ( "$B&C(B" . "$B&C(B")
|
|
|
558 ( "$B&D(B" . "$B&D(B")
|
|
|
559 ( "$B&E(B" . "$B&E(B")
|
|
|
560 ( "$B&F(B" . "$B&F(B")
|
|
|
561 ( "$B&G(B" . "$B&G(B")
|
|
|
562 ( "$B&H(B" . "$B&H(B")
|
|
|
563 ( "$B&I(B" . "$B&I(B")
|
|
|
564 ( "$B&J(B" . "$B&J(B")
|
|
|
565 ( "$B&K(B" . "$B&K(B")
|
|
|
566 ( "$B&L(B" . "$B&L(B")
|
|
|
567 ( "$B&M(B" . "$B&M(B")
|
|
|
568 ( "$B&N(B" . "$B&N(B")
|
|
|
569 ( "$B&O(B" . "$B&O(B")
|
|
|
570 ( "$B&P(B" . "$B&P(B")
|
|
|
571 ( "$B&Q(B" . "$B&Q(B")
|
|
|
572 ( "$B&R(B" . "$B&R(B")
|
|
|
573 ( "$B&S(B" . "$B&S(B")
|
|
|
574 ( "$B&T(B" . "$B&T(B")
|
|
|
575 ( "$B&U(B" . "$B&U(B")
|
|
|
576 ( "$B&V(B" . "$B&V(B")
|
|
|
577 ( "$B&W(B" . "$B&W(B")
|
|
|
578 ( "$B&X(B" . "$B&X(B")
|
|
|
579 ; ( "$B&Y(B" . "$B&Y(B")
|
|
|
580 ; ( "$B&Z(B" . "$B&Z(B")
|
|
|
581 ; ( "$B&[(B" . "$B&[(B")
|
|
|
582 ; ( "$B&\(B" . "$B&\(B")
|
|
|
583 ; ( "$B&](B" . "$B&](B")
|
|
|
584 ; ( "$B&^(B" . "$B&^(B")
|
|
|
585 ; ( "$B&_(B" . "$B&_(B")
|
|
|
586 ; ( "$B&`(B" . "$B&`(B")
|
|
|
587 ;(a) ( "$B&a(B" . "$B&a(B")
|
|
|
588 ;(b) ( "$B&b(B" . "$B&b(B")
|
|
|
589 ;(c) ( "$B&c(B" . "$B&c(B")
|
|
|
590 ;(d) ( "$B&d(B" . "$B&d(B")
|
|
|
591 ;(e) ( "$B&e(B" . "$B&e(B")
|
|
|
592 ;(f) ( "$B&f(B" . "$B&f(B")
|
|
|
593 ;(g) ( "$B&g(B" . "$B&g(B")
|
|
|
594 ;(h) ( "$B&h(B" . "$B&h(B")
|
|
|
595 ;(i) ( "$B&i(B" . "$B&i(B")
|
|
|
596 ;(j) ( "$B&j(B" . "$B&j(B")
|
|
|
597 ;(k) ( "$B&k(B" . "$B&k(B")
|
|
|
598 ;(l) ( "$B&l(B" . "$B&l(B")
|
|
|
599 ;(m) ( "$B&m(B" . "$B&m(B")
|
|
|
600 ;(n) ( "$B&n(B" . "$B&n(B")
|
|
|
601 ;(o) ( "$B&o(B" . "$B&o(B")
|
|
|
602 ;(p) ( "$B&p(B" . "$B&p(B")
|
|
|
603 ;(q) ( "$B&q(B" . "$B&q(B")
|
|
|
604 ;(r) ( "$B&r(B" . "$B&r(B")
|
|
|
605 ;(s) ( "$B&s(B" . "$B&s(B")
|
|
|
606 ;(t) ( "$B&t(B" . "$B&t(B")
|
|
|
607 ;(u) ( "$B&u(B" . "$B&u(B")
|
|
|
608 ;(v) ( "$B&v(B" . "$B&v(B")
|
|
|
609 ;(w) ( "$B&w(B" . "$B&w(B")
|
|
|
610 ;(x) ( "$B&x(B" . "$B&x(B")
|
|
|
611 ;(y) ( "$B&y(B" . "$B&y(B")
|
|
|
612 ;(z) ( "$B&z(B" . "$B&z(B")
|
|
|
613 ; ( "$B&{(B" . "$B&{(B")
|
|
|
614 ; ( "$B&|(B" . "$B&|(B")
|
|
|
615 ; ( "$B&}(B" . "$B&}(B")
|
|
|
616 ; ( "$B&~(B" . "$B&~(B")
|
|
|
617 ))
|
|
|
618
|
|
|
619 (defvar egg:*greek-alist* *ku6-alist*)
|
|
|
620
|
|
|
621 (defvar *ku7-alist* '(
|
|
|
622 ( "$B'!(B" . "$B'!(B")
|
|
|
623 ( "$B'"(B" . "$B'"(B")
|
|
|
624 ( "$B'#(B" . "$B'#(B")
|
|
|
625 ( "$B'$(B" . "$B'$(B")
|
|
|
626 ( "$B'%(B" . "$B'%(B")
|
|
|
627 ( "$B'&(B" . "$B'&(B")
|
|
|
628 ( "$B''(B" . "$B''(B")
|
|
|
629 ( "$B'((B" . "$B'((B")
|
|
|
630 ( "$B')(B" . "$B')(B")
|
|
|
631 ( "$B'*(B" . "$B'*(B")
|
|
|
632 ( "$B'+(B" . "$B'+(B")
|
|
|
633 ( "$B',(B" . "$B',(B")
|
|
|
634 ( "$B'-(B" . "$B'-(B")
|
|
|
635 ( "$B'.(B" . "$B'.(B")
|
|
|
636 ( "$B'/(B" . "$B'/(B")
|
|
|
637 ( "$B'0(B" . "$B'0(B")
|
|
|
638 ( "$B'1(B" . "$B'1(B")
|
|
|
639 ( "$B'2(B" . "$B'2(B")
|
|
|
640 ( "$B'3(B" . "$B'3(B")
|
|
|
641 ( "$B'4(B" . "$B'4(B")
|
|
|
642 ( "$B'5(B" . "$B'5(B")
|
|
|
643 ( "$B'6(B" . "$B'6(B")
|
|
|
644 ( "$B'7(B" . "$B'7(B")
|
|
|
645 ( "$B'8(B" . "$B'8(B")
|
|
|
646 ( "$B'9(B" . "$B'9(B")
|
|
|
647 ( "$B':(B" . "$B':(B")
|
|
|
648 ( "$B';(B" . "$B';(B")
|
|
|
649 ( "$B'<(B" . "$B'<(B")
|
|
|
650 ( "$B'=(B" . "$B'=(B")
|
|
|
651 ( "$B'>(B" . "$B'>(B")
|
|
|
652 ( "$B'?(B" . "$B'?(B")
|
|
|
653 ( "$B'@(B" . "$B'@(B")
|
|
|
654 ( "$B'A(B" . "$B'A(B")
|
|
|
655 ;(1) ( "$B'B(B" . "$B'B(B")
|
|
|
656 ;(2) ( "$B'C(B" . "$B'C(B")
|
|
|
657 ;(3) ( "$B'D(B" . "$B'D(B")
|
|
|
658 ;(4) ( "$B'E(B" . "$B'E(B")
|
|
|
659 ;(5) ( "$B'F(B" . "$B'F(B")
|
|
|
660 ;(6) ( "$B'G(B" . "$B'G(B")
|
|
|
661 ;(7) ( "$B'H(B" . "$B'H(B")
|
|
|
662 ;(8) ( "$B'I(B" . "$B'I(B")
|
|
|
663 ;(9) ( "$B'J(B" . "$B'J(B")
|
|
|
664 ;(10) ( "$B'K(B" . "$B'K(B")
|
|
|
665 ;(11) ( "$B'L(B" . "$B'L(B")
|
|
|
666 ;(12) ( "$B'M(B" . "$B'M(B")
|
|
|
667 ;(13) ( "$B'N(B" . "$B'N(B")
|
|
|
668 ;(14) ( "$B'O(B" . "$B'O(B")
|
|
|
669 ;(15) ( "$B'P(B" . "$B'P(B")
|
|
|
670 ( "$B'Q(B" . "$B'Q(B")
|
|
|
671 ( "$B'R(B" . "$B'R(B")
|
|
|
672 ( "$B'S(B" . "$B'S(B")
|
|
|
673 ( "$B'T(B" . "$B'T(B")
|
|
|
674 ( "$B'U(B" . "$B'U(B")
|
|
|
675 ( "$B'V(B" . "$B'V(B")
|
|
|
676 ( "$B'W(B" . "$B'W(B")
|
|
|
677 ( "$B'X(B" . "$B'X(B")
|
|
|
678 ( "$B'Y(B" . "$B'Y(B")
|
|
|
679 ( "$B'Z(B" . "$B'Z(B")
|
|
|
680 ( "$B'[(B" . "$B'[(B")
|
|
|
681 ( "$B'\(B" . "$B'\(B")
|
|
|
682 ( "$B'](B" . "$B'](B")
|
|
|
683 ( "$B'^(B" . "$B'^(B")
|
|
|
684 ( "$B'_(B" . "$B'_(B")
|
|
|
685 ( "$B'`(B" . "$B'`(B")
|
|
|
686 ( "$B'a(B" . "$B'a(B")
|
|
|
687 ( "$B'b(B" . "$B'b(B")
|
|
|
688 ( "$B'c(B" . "$B'c(B")
|
|
|
689 ( "$B'd(B" . "$B'd(B")
|
|
|
690 ( "$B'e(B" . "$B'e(B")
|
|
|
691 ( "$B'f(B" . "$B'f(B")
|
|
|
692 ( "$B'g(B" . "$B'g(B")
|
|
|
693 ( "$B'h(B" . "$B'h(B")
|
|
|
694 ( "$B'i(B" . "$B'i(B")
|
|
|
695 ( "$B'j(B" . "$B'j(B")
|
|
|
696 ( "$B'k(B" . "$B'k(B")
|
|
|
697 ( "$B'l(B" . "$B'l(B")
|
|
|
698 ( "$B'm(B" . "$B'm(B")
|
|
|
699 ( "$B'n(B" . "$B'n(B")
|
|
|
700 ( "$B'o(B" . "$B'o(B")
|
|
|
701 ( "$B'p(B" . "$B'p(B")
|
|
|
702 ( "$B'q(B" . "$B'q(B")
|
|
|
703 ;i ( "$B'r(B" . "$B'r(B")
|
|
|
704 ;ii ( "$B's(B" . "$B's(B")
|
|
|
705 ;iii ( "$B't(B" . "$B't(B")
|
|
|
706 ;iv ( "$B'u(B" . "$B'u(B")
|
|
|
707 ;v ( "$B'v(B" . "$B'v(B")
|
|
|
708 ;vi ( "$B'w(B" . "$B'w(B")
|
|
|
709 ;vii ( "$B'x(B" . "$B'x(B")
|
|
|
710 ;viii ( "$B'y(B" . "$B'y(B")
|
|
|
711 ;ix ( "$B'z(B" . "$B'z(B")
|
|
|
712 ;x ( "$B'{(B" . "$B'{(B")
|
|
|
713 ;| ( "$B'|(B" . "$B'|(B")
|
|
|
714 ;' ( "$B'}(B" . "$B'}(B")
|
|
|
715 ;'' ( "$B'~(B" . "$B'~(B")
|
|
|
716 ))
|
|
|
717
|
|
|
718 (defvar egg:*russian-alist* *ku7-alist*)
|
|
|
719
|
|
|
720 (defvar *ku8-alist* '(
|
|
|
721 ( "$B(!(B" . "$B(!(B")
|
|
|
722 ( "$B("(B" . "$B("(B")
|
|
|
723 ( "$B(#(B" . "$B(#(B")
|
|
|
724 ( "$B($(B" . "$B($(B")
|
|
|
725 ( "$B(%(B" . "$B(%(B")
|
|
|
726 ( "$B(&(B" . "$B(&(B")
|
|
|
727 ( "$B('(B" . "$B('(B")
|
|
|
728 ( "$B(((B" . "$B(((B")
|
|
|
729 ( "$B()(B" . "$B()(B")
|
|
|
730 ( "$B(*(B" . "$B(*(B")
|
|
|
731 ( "$B(+(B" . "$B(+(B")
|
|
|
732 ( "$B(,(B" . "$B(,(B")
|
|
|
733 ( "$B(-(B" . "$B(-(B")
|
|
|
734 ( "$B(.(B" . "$B(.(B")
|
|
|
735 ( "$B(/(B" . "$B(/(B")
|
|
|
736 ( "$B(0(B" . "$B(0(B")
|
|
|
737 ( "$B(1(B" . "$B(1(B")
|
|
|
738 ( "$B(2(B" . "$B(2(B")
|
|
|
739 ( "$B(3(B" . "$B(3(B")
|
|
|
740 ( "$B(4(B" . "$B(4(B")
|
|
|
741 ( "$B(5(B" . "$B(5(B")
|
|
|
742 ( "$B(6(B" . "$B(6(B")
|
|
|
743 ( "$B(7(B" . "$B(7(B")
|
|
|
744 ( "$B(8(B" . "$B(8(B")
|
|
|
745 ( "$B(9(B" . "$B(9(B")
|
|
|
746 ( "$B(:(B" . "$B(:(B")
|
|
|
747 ( "$B(;(B" . "$B(;(B")
|
|
|
748 ( "$B(<(B" . "$B(<(B")
|
|
|
749 ( "$B(=(B" . "$B(=(B")
|
|
|
750 ( "$B(>(B" . "$B(>(B")
|
|
|
751 ( "$B(?(B" . "$B(?(B")
|
|
|
752 ( "$B(@(B" . "$B(@(B")
|
|
|
753 ; ( "$B(A(B" . "$B(A(B")
|
|
|
754 ; ( "$B(B(B" . "$B(B(B")
|
|
|
755 ; ( "$B(C(B" . "$B(C(B")
|
|
|
756 ; ( "$B(D(B" . "$B(D(B")
|
|
|
757 ; ( "$B(E(B" . "$B(E(B")
|
|
|
758 ;* ( "$B(F(B" . "$B(F(B")
|
|
|
759 ;* ( "$B(G(B" . "$B(G(B")
|
|
|
760 ;* ( "$B(H(B" . "$B(H(B")
|
|
|
761 ;* ( "$B(I(B" . "$B(I(B")
|
|
|
762 ;* ( "$B(J(B" . "$B(J(B")
|
|
|
763 ;* ( "$B(K(B" . "$B(K(B")
|
|
|
764 ;* ( "$B(L(B" . "$B(L(B")
|
|
|
765 ;* ( "$B(M(B" . "$B(M(B")
|
|
|
766 ;* ( "$B(N(B" . "$B(N(B")
|
|
|
767 ;* ( "$B(O(B" . "$B(O(B")
|
|
|
768 ;* ( "$B(P(B" . "$B(P(B")
|
|
|
769 ;* ( "$B(Q(B" . "$B(Q(B")
|
|
|
770 ;* ( "$B(R(B" . "$B(R(B")
|
|
|
771 ;* ( "$B(S(B" . "$B(S(B")
|
|
|
772 ;* ( "$B(T(B" . "$B(T(B")
|
|
|
773 ;* ( "$B(U(B" . "$B(U(B")
|
|
|
774 ;* ( "$B(V(B" . "$B(V(B")
|
|
|
775 ;* ( "$B(W(B" . "$B(W(B")
|
|
|
776 ;* ( "$B(X(B" . "$B(X(B")
|
|
|
777 ;* ( "$B(Y(B" . "$B(Y(B")
|
|
|
778 ;* ( "$B(Z(B" . "$B(Z(B")
|
|
|
779 ;* ( "$B([(B" . "$B([(B")
|
|
|
780 ;* ( "$B(\(B" . "$B(\(B")
|
|
|
781 ;* ( "$B(](B" . "$B(](B")
|
|
|
782 ;* ( "$B(^(B" . "$B(^(B")
|
|
|
783 ;* ( "$B(_(B" . "$B(_(B")
|
|
|
784 ;* ( "$B(`(B" . "$B(`(B")
|
|
|
785 ;* ( "$B(a(B" . "$B(a(B")
|
|
|
786 ;* ( "$B(b(B" . "$B(b(B")
|
|
|
787 ;* ( "$B(c(B" . "$B(c(B")
|
|
|
788 ;* ( "$B(d(B" . "$B(d(B")
|
|
|
789 ;* ( "$B(e(B" . "$B(e(B")
|
|
|
790 ;* ( "$B(f(B" . "$B(f(B")
|
|
|
791 ;* ( "$B(g(B" . "$B(g(B")
|
|
|
792 ;* ( "$B(h(B" . "$B(h(B")
|
|
|
793 ;* ( "$B(i(B" . "$B(i(B")
|
|
|
794 ;* ( "$B(j(B" . "$B(j(B")
|
|
|
795 ;* ( "$B(k(B" . "$B(k(B")
|
|
|
796 ;* ( "$B(l(B" . "$B(l(B")
|
|
|
797 ;* ( "$B(m(B" . "$B(m(B")
|
|
|
798 ;* ( "$B(n(B" . "$B(n(B")
|
|
|
799 ;* ( "$B(o(B" . "$B(o(B")
|
|
|
800 ;* ( "$B(p(B" . "$B(p(B")
|
|
|
801 ;* ( "$B(q(B" . "$B(q(B")
|
|
|
802 ;* ( "$B(r(B" . "$B(r(B")
|
|
|
803 ;* ( "$B(s(B" . "$B(s(B")
|
|
|
804 ;* ( "$B(t(B" . "$B(t(B")
|
|
|
805 ;* ( "$B(u(B" . "$B(u(B")
|
|
|
806 ;* ( "$B(v(B" . "$B(v(B")
|
|
|
807 ;* ( "$B(w(B" . "$B(w(B")
|
|
|
808 ;* ( "$B(x(B" . "$B(x(B")
|
|
|
809 ;* ( "$B(y(B" . "$B(y(B")
|
|
|
810 ;* ( "$B(z(B" . "$B(z(B")
|
|
|
811 ; ( "$B({(B" . "$B({(B")
|
|
|
812 ; ( "$B(|(B" . "$B(|(B")
|
|
|
813 ; ( "$B(}(B" . "$B(}(B")
|
|
|
814 ; ( "$B(~(B" . "$B(~(B")
|
|
|
815 ))
|
|
|
816
|
|
|
817 (defvar egg:*keisen-alist* *ku8-alist*)
|
|
|
818
|
|
|
819 (defun make-all-jis-code-alist ()
|
|
|
820 (let ((result nil) (ku 116))
|
|
|
821 (while (< 32 ku)
|
|
|
822 (let ((ten 126))
|
|
|
823 (while (< 32 ten)
|
|
|
824 (setq result (cons
|
|
|
825 (let ((str (make-string 3 0)))
|
|
|
826 (aset str 0 lc-jp)
|
|
|
827 (aset str 1 (+ 128 ku))
|
|
|
828 (aset str 2 (+ 128 ten))
|
|
|
829 (cons str str))
|
|
|
830 result))
|
|
|
831 (setq ten (1- ten))))
|
|
|
832 (setq ku (1- ku)))
|
|
|
833 result))
|
|
|
834
|
|
|
835 (defun make-jis-first-level-code-alist ()
|
|
|
836 (let ((result nil) (ku 79))
|
|
|
837 (while (<= 48 ku)
|
|
|
838 (let ((ten 126))
|
|
|
839 (while (<= 33 ten)
|
|
|
840 (setq result (cons
|
|
|
841 (let ((str (make-string 3 0)))
|
|
|
842 (aset str 0 lc-jp)
|
|
|
843 (aset str 1 (+ 128 ku))
|
|
|
844 (aset str 2 (+ 128 ten))
|
|
|
845 (cons str str))
|
|
|
846 result))
|
|
|
847 (setq ten (1- ten))))
|
|
|
848 (setq ku (1- ku)))
|
|
|
849 result))
|
|
|
850
|
|
|
851 (defun make-jis-second-level-code-alist ()
|
|
|
852 (let ((result nil) (ku 116))
|
|
|
853 (while (<= 80 ku)
|
|
|
854 (let ((ten 126))
|
|
|
855 (while (<= 33 ten)
|
|
|
856 (setq result (cons
|
|
|
857 (let ((str (make-string 3 0))) ; by T.Shingu
|
|
|
858 (aset str 0 lc-jp)
|
|
|
859 (aset str 1 (+ 128 ku))
|
|
|
860 (aset str 2 (+ 128 ten))
|
|
|
861 (cons str str))
|
|
|
862 result))
|
|
|
863 (setq ten (1- ten))))
|
|
|
864 (setq ku (1- ku)))
|
|
|
865 result))
|
|
|
866
|
|
|
867 (defun make-jis-hojo-kanji-code-alist ()
|
|
|
868 (let ((result nil) (ku 109))
|
|
|
869 (while (<= 34 ku)
|
|
|
870 (let ((ten 126))
|
|
|
871 (while (<= 33 ten)
|
|
|
872 (setq result (cons
|
|
|
873 (let ((str (make-string 3 0)))
|
|
|
874 (aset str 0 lc-jp2)
|
|
|
875 (aset str 1 (+ 128 ku))
|
|
|
876 (aset str 2 (+ 128 ten))
|
|
|
877 (cons str str))
|
|
|
878 result))
|
|
|
879 (setq ten (1- ten))))
|
|
|
880 (setq ku (1- ku)))
|
|
|
881 result))
|
|
|
882
|
|
|
883 ;;;(defvar egg:*all-jis-code-alist* (make-all-jis-code-alist))
|
|
|
884
|
|
|
885 (defvar egg:*first-level-alist* (make-jis-first-level-code-alist))
|
|
|
886 (defvar egg:*second-level-alist* (make-jis-second-level-code-alist))
|
|
|
887 (defvar egg:*hojo-kanji-alist* (make-jis-hojo-kanji-code-alist))
|
|
|
888
|
|
|
889 (defvar *symbol-input-menu*
|
|
|
890 (list 'menu "$B5-9fF~NO(B:"
|
|
|
891 (list
|
|
|
892 (cons "JIS$BF~NO(B"
|
|
|
893 '(jis-code-input))
|
|
|
894 (cons "$B5-9f(B"
|
|
|
895 (list 'menu "$B5-9f(B:" egg:*symbol-alist*))
|
|
|
896 (cons "$B1Q?t;z(B"
|
|
|
897 (list 'menu "$B1Q?t;z(B:" egg:*alphanumeric-alist*))
|
|
|
898 (cons "$B$R$i$,$J(B"
|
|
|
899 (list 'menu "$B$R$i$,$J(B:" egg:*hiragana-alist*))
|
|
|
900 (cons "$B%+%?%+%J(B"
|
|
|
901 (list 'menu "$B%+%?%+%J(B:" egg:*katakana-alist*))
|
|
|
902 (cons "$B%.%j%7%cJ8;z(B"
|
|
|
903 (list 'menu "$B%.%j%7%cJ8;z(B:" egg:*greek-alist*))
|
|
|
904 (cons "$B%m%7%"J8;z(B"
|
|
|
905 (list 'menu "$B%m%7%"J8;z(B:" egg:*russian-alist*))
|
|
|
906 (cons "$B7S@~(B"
|
|
|
907 (list 'menu "$B7S@~(B:" egg:*keisen-alist*))
|
|
|
908 ;; 92.7.8 by T.Shingu
|
|
|
909 (cons "$BIt<sF~NO(B"
|
|
|
910 '(busyu-input))
|
|
|
911 (cons "$B2h?tF~NO(B"
|
|
|
912 '(kakusuu-input))
|
|
|
913 ;; end of patch
|
|
|
914 (cons "$BBh0l?e=`(B"
|
|
|
915 (list 'menu "$BBh0l?e=`(B:" egg:*first-level-alist*))
|
|
|
916 (cons "$BBhFs?e=`(B"
|
|
|
917 (list 'menu "$BBhFs?e=`(B:" egg:*second-level-alist*))
|
|
|
918 (cons "$BJd=u4A;z(B"
|
|
|
919 (list 'menu "$BJd=u4A;z(B:" egg:*hojo-kanji-alist*))
|
|
|
920 ;; (cons "$BA4%3!<%I!J>/$7;~4V$,3]$+$j$^$9!#!K(B"
|
|
|
921 ;; (list 'menu "$BA4%3!<%I(B:" egg:*all-jis-code-alist*))
|
|
|
922 )))
|
