Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-jsymbol.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 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 )))