« back to all changes in this revision
Viewing changes to elisp/emacs20/wnn7egg-jsymbol.el
- browse files at revision 1
- compare with another revision
- download diff
- download tarball
- view history from revision 1
- Committer: Bazaar Package Importer
- Author(s): ISHIKAWA Mutsumi
- Date: 2001-12-04 17:47:32 UTC
- Revision ID: james.westby@ubuntu.com-20011204174732-di65tcul1ic96itn
Tags: upstream-1.01
Import upstream version 1.01
- files added:
- elisp
- elisp/emacs20
- elisp/emacs20/its-v309
- elisp/xemacs21
- elisp/xemacs21/its-v309
added
removed
elisp/emacs20/wnn7egg-jsymbol.el
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 'wnn7egg-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 1 0)))
826
(aset str 0 (make-char 'japanese-jisx0208 ku ten))
827
(cons str str))
828
result))
829
(setq ten (1- ten))))
830
(setq ku (1- ku)))
831
result))
832
833
(defun make-jis-first-level-code-alist ()
834
(let ((result nil) (ku 79))
835
(while (<= 48 ku)
836
(let ((ten 126))
837
(while (<= 33 ten)
838
(setq result (cons
839
(let ((str (make-string 1 0)))
840
(aset str 0 (make-char 'japanese-jisx0208 ku ten))
841
(cons str str))
842
result))
843
(setq ten (1- ten))))
844
(setq ku (1- ku)))
845
result))
846
847
(defun make-jis-second-level-code-alist ()
848
(let ((result nil) (ku 116))
849
(while (<= 80 ku)
850
(let ((ten 126))
851
(while (<= 33 ten)
852
(setq result (cons
853
(let ((str (make-string 1 0)))
854
(aset str 0 (make-char 'japanese-jisx0208 ku ten))
855
(cons str str))
856
result))
857
(setq ten (1- ten))))
858
(setq ku (1- ku)))
859
result))
860
861
(defun make-jis-hojo-kanji-code-alist ()
862
(let ((result nil) (ku 109))
863
(while (<= 34 ku)
864
(let ((ten 126))
865
(while (<= 33 ten)
866
(setq result (cons
867
(let ((str (make-string 1 0))) ; by T.Shingu
868
(aset str 0 (make-char 'japanese-jisx0212 ku ten))
869
(cons str str))
870
result))
871
(setq ten (1- ten))))
872
(setq ku (1- ku)))
873
result))
874
875
;;;(defvar egg:*all-jis-code-alist* (make-all-jis-code-alist))
876
877
(defvar egg:*first-level-alist* (make-jis-first-level-code-alist))
878
(defvar egg:*second-level-alist* (make-jis-second-level-code-alist))
879
(defvar egg:*hojo-kanji-alist* (make-jis-hojo-kanji-code-alist))
880
881
(defvar *symbol-input-menu*
882
(list 'menu "$B5-9fF~NO(B:"
883
(list
884
(cons "JIS$BF~NO(B"
885
'(jis-code-input))
886
(cons "$B5-9f(B"
887
(list 'menu "$B5-9f(B:" egg:*symbol-alist*))
888
(cons "$B1Q?t;z(B"
889
(list 'menu "$B1Q?t;z(B:" egg:*alphanumeric-alist*))
890
(cons "$B$R$i$,$J(B"
891
(list 'menu "$B$R$i$,$J(B:" egg:*hiragana-alist*))
892
(cons "$B%+%?%+%J(B"
893
(list 'menu "$B%+%?%+%J(B:" egg:*katakana-alist*))
894
(cons "$B%.%j%7%cJ8;z(B"
895
(list 'menu "$B%.%j%7%cJ8;z(B:" egg:*greek-alist*))
896
(cons "$B%m%7%"J8;z(B"
897
(list 'menu "$B%m%7%"J8;z(B:" egg:*russian-alist*))
898
(cons "$B7S@~(B"
899
(list 'menu "$B7S@~(B:" egg:*keisen-alist*))
900
;; 92.7.8 by T.Shingu
901
(cons "$BIt<sF~NO(B"
902
'(busyu-input))
903
(cons "$B2h?tF~NO(B"
904
'(kakusuu-input))
905
;; end of patch
906
(cons "$BBh0l?e=`(B"
907
(list 'menu "$BBh0l?e=`(B:" egg:*first-level-alist*))
908
(cons "$BBhFs?e=`(B"
909
(list 'menu "$BBhFs?e=`(B:" egg:*second-level-alist*))
910
(cons "$BJd=u4A;z(B"
911
(list 'menu "$BJd=u4A;z(B:" egg:*hojo-kanji-alist*))
912
;; (cons "$BA4%3!<%I!J>/$7;~4V$,3]$+$j$^$9!#!K(B"
913
;; (list 'menu "$BA4%3!<%I(B:" egg:*all-jis-code-alist*))
914
)))
Loggerhead is a web-based interface for Breezy
Version: 2.0.1