root/trunk/leim/quail/cyrillic.el

Revision 4220, 31.5 kB (checked in by miyoshi, 9 months ago)

Sync up with Emacs22.2.

  • Property svn:eol-style set to LF
Line 
1 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters
2
3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 ;;   Free Software Foundation, Inc.
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
6 ;;   2006, 2007, 2008
7 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
8 ;;   Registration Number H14PRO021
9
10 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
11 ;; Keywords: multilingual, input method, Cyrillic, i18n
12
13 ;; This file is part of GNU Emacs.
14
15 ;; GNU Emacs is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation; either version 3, or (at your option)
18 ;; any later version.
19
20 ;; GNU Emacs is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 ;; GNU General Public License for more details.
24
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
27 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
28 ;; Boston, MA 02110-1301, USA.
29
30 ;;; Commentary:
31
32 ;; These methods use a mixture of 8859-5 and Unicode.  Quail, used
33 ;; with ucs-tables provides suport for translating on the fly to
34 ;; what's appropriate for aa buffer's file coding system, so the
35 ;; encoding shouldn't matter too much provided it supports the
36 ;; necessary characters.
37
38 ;;; Code:
39
40 (require 'quail)
41
42 ;; This was `cyrillic-jcuken'.  Alexander Mikhailian
43 ;; <mikhailian@altern.org> says:  "cyrillic-jcuken" is actually
44 ;; russian.  It is ok but a bit outdated.  This layout has been used
45 ;; in typewriters for ages but it has been superceeded on desktops by
46 ;; a variation of this layout, implemented in M$ Windows software.
47 ;; The Windows layout is greatly preferred because of the comma and
48 ;; period being placed more conviniently and, of course, because of
49 ;; the popularity of Windows software. This layout is a common option
50 ;; in X Windows and console layouts for GNU/Linux.  [See
51 ;; `russian-computer' below.]
52 (quail-define-package
53  "russian-typewriter" "Russian" ",L69(B" nil
54  ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding)."
55  nil t t t t nil nil nil nil nil t)
56
57 ;;  1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B
58 ;;   ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,LJ(B
59 ;;    ,LD(B  ,LK(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B  ,L6(B  ,LM(B
60 ;;     ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B  /?
61
62 (quail-define-rules
63  ("1" ?1)
64  ("2" ?2)
65  ("3" ?3)
66  ("4" ?4)
67  ("5" ?5)
68  ("6" ?6)
69  ("7" ?7)
70  ("8" ?8)
71  ("9" ?9)
72  ("0" ?0)
73  ("-" ?-)
74  ("=" ?=)
75  ("`" ?,Lq(B)
76  ("q" ?,LY(B)
77  ("w" ?,Lf(B)
78  ("e" ?,Lc(B)
79  ("r" ?,LZ(B)
80  ("t" ?,LU(B)
81  ("y" ?,L](B)
82  ("u" ?,LS(B)
83  ("i" ?,Lh(B)
84  ("o" ?,Li(B)
85  ("p" ?,LW(B)
86  ("[" ?,Le(B)
87  ("]" ?,Lj(B)
88  ("a" ?,Ld(B)
89  ("s" ?,Lk(B)
90  ("d" ?,LR(B)
91  ("f" ?,LP(B)
92  ("g" ?,L_(B)
93  ("h" ?,L`(B)
94  ("j" ?,L^(B)
95  ("k" ?,L[(B)
96  ("l" ?,LT(B)
97  (";" ?,LV(B)
98  ("'" ?,Lm(B)
99  ("\\" ?\\)
100  ("z" ?,Lo(B)
101  ("x" ?,Lg(B)
102  ("c" ?,La(B)
103  ("v" ?,L\(B)
104  ("b" ?,LX(B)
105  ("n" ?,Lb(B)
106  ("m" ?,Ll(B)
107  ("," ?,LQ(B)
108  ("." ?,Ln(B)
109  ("/" ?/)
110
111  ("!" ?!)
112  ("@" ?\")
113  ("#" ?')
114  ("$" ?*)
115  ("%" ?:)
116  ("^" ?,)
117  ("&" ?.)
118  ("*" ?\;)
119  ("(" ?\()
120  (")" ?\))
121  ("_" ?_)
122  ("+" ?+)
123  ("~" ?,L!(B)
124  ("Q" ?,L9(B)
125  ("W" ?,LF(B)
126  ("E" ?,LC(B)
127  ("R" ?,L:(B)
128  ("T" ?,L5(B)
129  ("Y" ?,L=(B)
130  ("U" ?,L3(B)
131  ("I" ?,LH(B)
132  ("O" ?,LI(B)
133  ("P" ?,L7(B)
134  ("{" ?,LE(B)
135  ("}" ?,LJ(B)
136  ("A" ?,LD(B)
137  ("S" ?,LK(B)
138  ("D" ?,L2(B)
139  ("F" ?,L0(B)
140  ("G" ?,L?(B)
141  ("H" ?,L@(B)
142  ("J" ?,L>(B)
143  ("K" ?,L;(B)
144  ("L" ?,L4(B)
145  (":" ?,L6(B)
146  ("\"" ?,LM(B)
147  ("|" ?|)
148  ("Z" ?,LO(B)
149  ("X" ?,LG(B)
150  ("C" ?,LA(B)
151  ("V" ?,L<(B)
152  ("B" ?,L8(B)
153  ("N" ?,LB(B)
154  ("M" ?,LL(B)
155  ("<" ?,L1(B)
156  (">" ?,LN(B)
157  ("?" ??)
158  )
159
160 ;; Maintain the obsolete name for now.
161 (push (cons "cyrillic-jcuken"
162             (cdr (assoc "russian-typewriter" quail-package-alist)))
163       quail-package-alist)
164
165 ;; This needs to be seen by quail-update-leim-list-file, but cannot be
166 ;; commented out because quail-update-leim-list-file ignores
167 ;; commented-out lines.
168 (if nil
169     (quail-define-package
170      "cyrillic-jcuken" "Russian" ",L69(B" nil
171      ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding)."))
172
173 ;; See comment above.  This is the variant `winkeys' from `ru' in XKB.
174 (quail-define-package
175  "russian-computer" "Russian" "RU" nil
176  ",L9FC:5=(B Russian computer layout"
177  nil t t t t nil nil nil nil nil t)
178
179 ;;  1! 2" 3,Lp(B 4; 5% 6: 7? 8* 9( 0) -_ =+ ,Lq!(B
180 ;;   ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,LJ(B
181 ;;    ,LD(B  ,LK(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B  ,L6(B  ,LM(B
182 ;;     ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B  .,
183
184 (quail-define-rules
185  ("1" ?1)
186  ("2" ?2)
187  ("3" ?3)
188  ("4" ?4)
189  ("5" ?5)
190  ("6" ?6)
191  ("7" ?7)
192  ("8" ?8)
193  ("9" ?9)
194  ("0" ?0)
195  ("-" ?-)
196  ("=" ?=)
197  ("`" ?,Lq(B)
198  ("q" ?,LY(B)
199  ("w" ?,Lf(B)
200  ("e" ?,Lc(B)
201  ("r" ?,LZ(B)
202  ("t" ?,LU(B)
203  ("y" ?,L](B)
204  ("u" ?,LS(B)
205  ("i" ?,Lh(B)
206  ("o" ?,Li(B)
207  ("p" ?,LW(B)
208  ("[" ?,Le(B)
209  ("]" ?,Lj(B)
210  ("a" ?,Ld(B)
211  ("s" ?,Lk(B)
212  ("d" ?,LR(B)
213  ("f" ?,LP(B)
214  ("g" ?,L_(B)
215  ("h" ?,L`(B)
216  ("j" ?,L^(B)
217  ("k" ?,L[(B)
218  ("l" ?,LT(B)
219  (";" ?,LV(B)
220  ("'" ?,Lm(B)
221  ("\\" ?\\)
222  ("z" ?,Lo(B)
223  ("x" ?,Lg(B)
224  ("c" ?,La(B)
225  ("v" ?,L\(B)
226  ("b" ?,LX(B)
227  ("n" ?,Lb(B)
228  ("m" ?,Ll(B)
229  ("," ?,LQ(B)
230  ("." ?,Ln(B)
231  ("/" ?.)
232  ("!" ?!)
233  ("@" ?\")
234  ("#" ?,Lp(B)
235  ("$" ?\;)
236  ("%" ?%)
237  ("^" ?:)
238  ("&" ??)
239  ("*" ?*)
240  ("(" ?()
241  (")" ?))
242  ("_" ?_)
243  ("+" ?+)
244  ("~" ?,L!(B)
245  ("Q" ?,L9(B)
246  ("W" ?,LF(B)
247  ("E" ?,LC(B)
248  ("R" ?,L:(B)
249  ("T" ?,L5(B)
250  ("Y" ?,L=(B)
251  ("U" ?,L3(B)
252  ("I" ?,LH(B)
253  ("O" ?,LI(B)
254  ("P" ?,L7(B)
255  ("{" ?,LE(B)
256  ("}" ?,LJ(B)
257  ("A" ?,LD(B)
258  ("S" ?,LK(B)
259  ("D" ?,L2(B)
260  ("F" ?,L0(B)
261  ("G" ?,L?(B)
262  ("H" ?,L@(B)
263  ("J" ?,L>(B)
264  ("K" ?,L;(B)
265  ("L" ?,L4(B)
266  (":" ?,L6(B)
267  ("\"" ?,LM(B)
268  ("|" ?|)
269  ("Z" ?,LO(B)
270  ("X" ?,LG(B)
271  ("C" ?,LA(B)
272  ("V" ?,L<(B)
273  ("B" ?,L8(B)
274  ("N" ?,LB(B)
275  ("M" ?,LL(B)
276  ("<" ?,L1(B)
277  (">" ?,LN(B)
278  ("?" ?,))
279
280 ;; Mikhailian couldn't check the next two.
281
282 ;; This seems to have the same layout for letters as mk in XKB, but at
283 ;; least the top row is different.
284 (quail-define-package
285  "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil
286  ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
287  nil t t t t nil nil nil nil nil t)
288
289 ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
290 ;;   ,L)(B  ,L*(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L#(B
291 ;;    ,L0(B  ,LA(B  ,L4(B  ,LD(B  ,L3(B  ,LE(B  ,L((B  ,L:(B  ,L;(B  ,LG(B  ,L,(B  ,L6(B
292 ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_
293
294 (quail-define-rules
295  ("1" ?1)
296  ("2" ?2)
297  ("3" ?3)
298  ("4" ?4)
299  ("5" ?5)
300  ("6" ?6)
301  ("7" ?7)
302  ("8" ?8)
303  ("9" ?9)
304  ("0" ?0)
305  ("-" ?/)
306  ("=" ?+)
307  ("`" ?<)
308  ("q" ?,Ly(B)
309  ("w" ?,Lz(B)
310  ("e" ?,LU(B)
311  ("r" ?,L`(B)
312  ("t" ?,Lb(B)
313  ("y" ?,LW(B)
314  ("u" ?,Lc(B)
315  ("i" ?,LX(B)
316  ("o" ?,L^(B)
317  ("p" ?,L_(B)
318  ("[" ?,Lh(B)
319  ("]" ?,Ls(B)
320  ("a" ?,LP(B)
321  ("s" ?,La(B)
322  ("d" ?,LT(B)
323  ("f" ?,Ld(B)
324  ("g" ?,LS(B)
325  ("h" ?,Le(B)
326  ("j" ?,Lx(B)
327  ("k" ?,LZ(B)
328  ("l" ?,L[(B)
329  (";" ?,Lg(B)
330  ("'" ?,L|(B)
331  ("\\" ?,LV(B)
332  ("z" ?,Lu(B)
333  ("x" ?,L(B)
334  ("c" ?,Lf(B)
335  ("v" ?,LR(B)
336  ("b" ?,LQ(B)
337  ("n" ?,L](B)
338  ("m" ?,L\(B)
339  ("," ?,)
340  ("." ?.)
341  ("/" ?-)
342
343  ("!" ?!)
344  ("@" ?\")
345  ("#" ?#)
346  ("$" ?$)
347  ("%" ?%)
348  ("^" ?&)
349  ("&" ?')
350  ("*" ?\()
351  ("(" ?\))
352  (")" ?=)
353  ("_" ??)
354  ("+" ?*)
355  ("~" ?>)
356  ("Q" ?,L)(B)
357  ("W" ?,L*(B)
358  ("E" ?,L5(B)
359  ("R" ?,L@(B)
360  ("T" ?,LB(B)
361  ("Y" ?,L7(B)
362  ("U" ?,LC(B)
363  ("I" ?,L8(B)
364  ("O" ?,L>(B)
365  ("P" ?,L?(B)
366  ("{" ?,LH(B)
367  ("}" ?,L#(B)
368  ("A" ?,L0(B)
369  ("S" ?,LA(B)
370  ("D" ?,L4(B)
371  ("F" ?,LD(B)
372  ("G" ?,L3(B)
373  ("H" ?,LE(B)
374  ("J" ?,L((B)
375  ("K" ?,L:(B)
376  ("L" ?,L;(B)
377  (":" ?,LG(B)
378  ("\"" ?,L,(B)
379  ("|" ?,L6(B)
380  ("Z" ?,L%(B)
381  ("X" ?,L/(B)
382  ("C" ?,LF(B)
383  ("V" ?,L2(B)
384  ("B" ?,L1(B)
385  ("N" ?,L=(B)
386  ("M" ?,L<(B)
387  ("<" ?\;)
388  (">" ?:)
389  ("?" ?_))
390
391 ;;
392
393 (quail-define-package
394  "cyrillic-serbian" "Cyrillic" ",L6(BS" nil
395  ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
396  nil t t t t nil nil nil nil nil t)
397
398 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
399 ;;   ,L)(B  ,L*(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L"(B
400 ;;    ,L0(B  ,LA(B  ,L4(B  ,LD(B  ,L3(B  ,LE(B  ,L((B  ,L:(B  ,L;(B  ,LG(B  ,L+(B  ,L6(B
401 ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_
402
403 (quail-define-rules
404  ("1" ?1)
405  ("2" ?2)
406  ("3" ?3)
407  ("4" ?4)
408  ("5" ?5)
409  ("6" ?6)
410  ("7" ?7)
411  ("8" ?8)
412  ("9" ?9)
413  ("0" ?0)
414  ("-" ?/)
415  ("=" ?+)
416  ("`" ?<)
417  ("q" ?,Ly(B)
418  ("w" ?,Lz(B)
419  ("e" ?,LU(B)
420  ("r" ?,L`(B)
421  ("t" ?,Lb(B)
422  ("y" ?,LW(B)
423  ("u" ?,Lc(B)
424  ("i" ?,LX(B)
425  ("o" ?,L^(B)
426  ("p" ?,L_(B)
427  ("[" ?,Lh(B)
428  ("]" ?,Lr(B)
429  ("a" ?,LP(B)
430  ("s" ?,La(B)
431  ("d" ?,LT(B)
432  ("f" ?,Ld(B)
433  ("g" ?,LS(B)
434  ("h" ?,Le(B)
435  ("j" ?,Lx(B)
436  ("k" ?,LZ(B)
437  ("l" ?,L[(B)
438  (";" ?,Lg(B)
439  ("'" ?,L{(B)
440  ("\\" ?,LV(B)
441  ("z" ?,Lu(B)
442  ("x" ?,L(B)
443  ("c" ?,Lf(B)
444  ("v" ?,LR(B)
445  ("b" ?,LQ(B)
446  ("n" ?,L](B)
447  ("m" ?,L\(B)
448  ("," ?,)
449  ("." ?.)
450  ("/" ?-)
451
452  ("!" ?!)
453  ("@" ?\")
454  ("#" ?#)
455  ("$" ?$)
456  ("%" ?%)
457  ("^" ?&)
458  ("&" ?')
459  ("*" ?\()
460  ("(" ?\))
461  (")" ?=)
462  ("_" ??)
463  ("+" ?*)
464  ("~" ?>)
465  ("Q" ?,L)(B)
466  ("W" ?,L*(B)
467  ("E" ?,L5(B)
468  ("R" ?,L@(B)
469  ("T" ?,LB(B)
470  ("Y" ?,L7(B)
471  ("U" ?,LC(B)
472  ("I" ?,L8(B)
473  ("O" ?,L>(B)
474  ("P" ?,L?(B)
475  ("{" ?,LH(B)
476  ("}" ?,L"(B)
477  ("A" ?,L0(B)
478  ("S" ?,LA(B)
479  ("D" ?,L4(B)
480  ("F" ?,LD(B)
481  ("G" ?,L3(B)
482  ("H" ?,LE(B)
483  ("J" ?,L((B)
484  ("K" ?,L:(B)
485  ("L" ?,L;(B)
486  (":" ?,LG(B)
487  ("\"" ?,L+(B)
488  ("|" ?,L6(B)
489  ("Z" ?,L%(B)
490  ("X" ?,L/(B)
491  ("C" ?,LF(B)
492  ("V" ?,L2(B)
493  ("B" ?,L1(B)
494  ("N" ?,L=(B)
495  ("M" ?,L<(B)
496  ("<" ?\;)
497  (">" ?:)
498  ("?" ?_))
499
500 ;;
501
502 ;; Alexander Mikhailian comments:
503 ;; Having worked for several years as a Belarusian linguist, I still
504 ;; can not find the origin of this layout which BTW does include
505 ;; several characters that are not present in Belarusian and does not
506 ;; include a few ones that do exist in Belarusian.  Besides, the typo
507 ;; in the name of this layout speaks for itself since Belarusian has
508 ;; an outdated version of spelling which is "Byelorussian" and not
509 ;; "beylorussian".  I suggest that you just remove this layout.
510
511 ;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
512
513 ;; (quail-define-package
514 ;;  "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil
515 ;;  ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
516 ;;  nil t t t t nil nil nil nil nil t)
517
518 ;; ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
519 ;; ;;   ,L)(B  ,L*(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L&(B
520 ;; ;;    ,L0(B  ,LA(B  ,L4(B  ,LD(B  ,L3(B  ,LE(B  ,L((B  ,L:(B  ,L;(B  ,LG(B  ,L.(B  ,L6(B
521 ;; ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_
522
523 ;; (quail-define-rules
524 ;;  ("-" ?/)
525 ;;  ("=" ?+)
526 ;;  ("`" ?<)
527 ;;  ("q" ?,Ly(B)
528 ;;  ("w" ?,Lz(B)
529 ;;  ("e" ?,LU(B)
530 ;;  ("r" ?,L`(B)
531 ;;  ("t" ?,Lb(B)
532 ;;  ("y" ?,LW(B)
533 ;;  ("u" ?,Lc(B)
534 ;;  ("i" ?,LX(B)
535 ;;  ("o" ?,L^(B)
536 ;;  ("p" ?,L_(B)
537 ;;  ("[" ?,Lh(B)
538 ;;  ("]" ?,Lv(B)
539 ;;  ("a" ?,LP(B)
540 ;;  ("s" ?,La(B)
541 ;;  ("d" ?,LT(B)
542 ;;  ("f" ?,Ld(B)
543 ;;  ("g" ?,LS(B)
544 ;;  ("h" ?,Le(B)
545 ;;  ("j" ?,Lx(B)
546 ;;  ("k" ?,LZ(B)
547 ;;  ("l" ?,L[(B)
548 ;;  (";" ?,Lg(B)
549 ;;  ("'" ?,L~(B)
550 ;;  ("\\" ?,LV(B)
551 ;;  ("z" ?,Lu(B)
552 ;;  ("x" ?,L(B)
553 ;;  ("c" ?,Lf(B)
554 ;;  ("v" ?,LR(B)
555 ;;  ("b" ?,LQ(B)
556 ;;  ("n" ?,L](B)
557 ;;  ("m" ?,L\(B)
558 ;;  ("/" ?-)
559
560 ;;  ("@" ?\")
561 ;;  ("^" ?&)
562 ;;  ("&" ?')
563 ;;  ("*" ?\()
564 ;;  ("(" ?\))
565 ;;  (")" ?=)
566 ;;  ("_" ??)
567 ;;  ("+" ?*)
568 ;;  ("~" ?>)
569 ;;  ("Q" ?,L)(B)
570 ;;  ("W" ?,L*(B)
571 ;;  ("E" ?,L5(B)
572 ;;  ("R" ?,L@(B)
573 ;;  ("T" ?,LB(B)
574 ;;  ("Y" ?,L7(B)
575 ;;  ("U" ?,LC(B)
576 ;;  ("I" ?,L8(B)
577 ;;  ("O" ?,L>(B)
578 ;;  ("P" ?,L?(B)
579 ;;  ("{" ?,LH(B)
580 ;;  ("}" ?,L&(B)
581 ;;  ("A" ?,L0(B)
582 ;;  ("S" ?,LA(B)
583 ;;  ("D" ?,L4(B)
584 ;;  ("F" ?,LD(B)
585 ;;  ("G" ?,L3(B)
586 ;;  ("H" ?,LE(B)
587 ;;  ("J" ?,L((B)
588 ;;  ("K" ?,L:(B)
589 ;;  ("L" ?,L;(B)
590 ;;  (":" ?,LG(B)
591 ;;  ("\"" ?,L.(B)
592 ;;  ("|" ?,L6(B)
593 ;;  ("Z" ?,L%(B)
594 ;;  ("X" ?,L/(B)
595 ;;  ("C" ?,LF(B)
596 ;;  ("V" ?,L2(B)
597 ;;  ("B" ?,L1(B)
598 ;;  ("N" ?,L=(B)
599 ;;  ("M" ?,L<(B)
600 ;;  ("<" ?\;)
601 ;;  (">" ?:)
602 ;;  ("?" ?_))
603
604 ;;
605
606 ;; Alexander Mikhailian reports the opinion of fellow Ukrainian
607 ;; linguist Bogdan Babych <babych@altern.org>:
608 ;; He had seen this layout on some oldish systems but that the vast
609 ;; majority of the population uses a modified version of the M$ Windows
610 ;; layout.  In fact, Microsoft shipped for a while a layout that was lacking
611 ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe.  The
612 ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the
613 ;; ukrainian keyborad layout but the apostrophe is still not there, whereas
614 ;; there is one letter, "Cyrillic_YO", not used in ukrainian.  Ukrainians
615 ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live
616 ;; happily with this little change.  [See "ukrainian-computer" below.]
617
618 ;; Fixme: add GHE_WITH_UPTURN.
619 (quail-define-package
620  "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil
621  ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)
622
623 Sorry, but 'ghe with upturn' is not included in ISO 8859-5."
624  nil t t t t nil nil nil nil nil t)
625
626 ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
627 ;;   ,L$(B  ,L'(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L&(B
628 ;;    ,L0(B  ,LA(B  ,L4(B  ,LD(B  ,L3(B  ,LE(B  ,L((B  ,L:(B  ,L;(B  ,LG(B  ,L.(B  ,L6(B
629 ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_
630
631 (quail-define-rules
632  ("1" ?1)
633  ("2" ?2)
634  ("3" ?3)
635  ("4" ?4)
636  ("5" ?5)
637  ("6" ?6)
638  ("7" ?7)
639  ("8" ?8)
640  ("9" ?9)
641  ("0" ?0)
642  ("-" ?/)
643  ("=" ?+)
644  ("`" ?<)
645  ("q" ?,Lt(B)
646  ("w" ?,Lw(B)
647  ("e" ?,LU(B)
648  ("r" ?,L`(B)
649  ("t" ?,Lb(B)
650  ("y" ?,LW(B)
651  ("u" ?,Lc(B)
652  ("i" ?,LX(B)
653  ("o" ?,L^(B)
654  ("p" ?,L_(B)
655  ("[" ?,Lh(B)
656  ("]" ?,Lv(B)
657  ("a" ?,LP(B)
658  ("s" ?,La(B)
659  ("d" ?,LT(B)
660  ("f" ?,Ld(B)
661  ("g" ?,LS(B)
662  ("h" ?,Le(B)
663  ("j" ?,Lx(B)
664  ("k" ?,LZ(B)
665  ("l" ?,L[(B)
666  (";" ?,Lg(B)
667  ("'" ?,L~(B)
668  ("\\" ?,LV(B)
669  ("z" ?,Lu(B)
670  ("x" ?,L(B)
671  ("c" ?,Lf(B)
672  ("v" ?,LR(B)
673  ("b" ?,LQ(B)
674  ("n" ?,L](B)
675  ("m" ?,L\(B)
676  ("," ?,)
677  ("." ?.)
678  ("/" ?-)
679
680  ("!" ?!)
681  ("@" ?\")
682  ("#" ?#)
683  ("$" ?$)
684  ("%" ?%)
685  ("^" ?&)
686  ("&" ?')
687  ("*" ?\()
688  ("(" ?\))
689  (")" ?=)
690  ("_" ??)
691  ("+" ?*)
692  ("~" ?>)
693  ("Q" ?,L$(B)
694  ("W" ?,L'(B)
695  ("E" ?,L5(B)
696  ("R" ?,L@(B)
697  ("T" ?,LB(B)
698  ("Y" ?,L7(B)
699  ("U" ?,LC(B)
700  ("I" ?,L8(B)
701  ("O" ?,L>(B)
702  ("P" ?,L?(B)
703  ("{" ?,LH(B)
704  ("}" ?,L&(B)
705  ("A" ?,L0(B)
706  ("S" ?,LA(B)
707  ("D" ?,L4(B)
708  ("F" ?,LD(B)
709  ("G" ?,L3(B)
710  ("H" ?,LE(B)
711  ("J" ?,L((B)
712  ("K" ?,L:(B)
713  ("L" ?,L;(B)
714  (":" ?,LG(B)
715  ("\"" ?,L.(B)
716  ("|" ?,L6(B)
717  ("Z" ?,L%(B)
718  ("X" ?,L/(B)
719  ("C" ?,LF(B)
720  ("V" ?,L2(B)
721  ("B" ?,L1(B)
722  ("N" ?,L=(B)
723  ("M" ?,L<(B)
724  ("<" ?\;)
725  (">" ?:)
726  ("?" ?_))
727
728
729 (quail-define-package
730  "ukrainian-computer" "Ukrainian" "UK" nil
731  "$,1(9(F(C(:(5(=(B Ukrainian (Unicode-based for use with KOI8-U encoding)."
732  nil t t t t nil nil nil nil nil t)
733
734 ;;  ' 1! 2" 3$,1uV(B 4; 5% 6: 7? 8* 9( 0) -_ =+
735 ;;   $,1(9(B  $,1(F(B  $,1(C(B  $,1(:(B  $,1(5(B  $,1(=(B  $,1(3(B  $,1(H(B  $,1(I(B  $,1(7(B  $,1(E(B  $,1('(B
736 ;;    $,1(D(B  $,1(&(B  $,1(2(B  $,1(0(B  $,1(?(B  $,1(@(B  $,1(>(B  $,1(;(B  $,1(4(B  $,1(6(B  $,1($(B  $,1)P(B
737 ;;      $,1(O(B  $,1(G(B  $,1(A(B  $,1(<(B  $,1(8(B  $,1(B(B  $,1(L(B  $,1(1(B  $,1(N(B  .,
738
739 (quail-define-rules
740  ("1" ?1)
741  ("2" ?2)
742  ("3" ?3)
743  ("4" ?4)
744  ("5" ?5)
745  ("6" ?6)
746  ("7" ?7)
747  ("8" ?8)
748  ("9" ?9)
749  ("0" ?0)
750  ("-" ?-)
751  ("=" ?=)
752  ("`" ?')
753  ("q" ?$,1(Y(B)
754  ("w" ?$,1(f(B)
755  ("e" ?$,1(c(B)
756  ("r" ?$,1(Z(B)
757  ("t" ?$,1(U(B)
758  ("y" ?$,1(](B)
759  ("u" ?$,1(S(B)
760  ("i" ?$,1(h(B)
761  ("o" ?$,1(i(B)
762  ("p" ?$,1(W(B)
763  ("[" ?$,1(e(B)
764  ("]" ?$,1(w(B)
765  ("a" ?$,1(d(B)
766  ("s" ?$,1(v(B)
767  ("d" ?$,1(R(B)
768  ("f" ?$,1(P(B)
769  ("g" ?$,1(_(B)
770  ("h" ?$,1(`(B)
771  ("j" ?$,1(^(B)
772  ("k" ?$,1([(B)
773  ("l" ?$,1(T(B)
774  (";" ?$,1(V(B)
775  ("'" ?$,1(t(B)
776  ("z" ?$,1(o(B)
777  ("x" ?$,1(g(B)
778  ("c" ?$,1(a(B)
779  ("v" ?$,1(\(B)
780  ("b" ?$,1(X(B)
781  ("n" ?$,1(b(B)
782  ("m" ?$,1(l(B)
783  ("," ?$,1(Q(B)
784  ("." ?$,1(n(B)
785  ("/" ?.)
786  ("!" ?!)
787  ("@" ?\")
788  ("#" ?$,1uV(B)
789  ("$" ?\;)
790  ("%" ?%)
791  ("^" ?:)
792  ("&" ??)
793  ("*" ?*)
794  ("(" ?()
795  (")" ?))
796  ("_" ?_)
797  ("+" ?+)
798  ("~" ?')
799  ("Q" ?$,1(9(B)
800  ("W" ?$,1(F(B)
801  ("E" ?$,1(C(B)
802  ("R" ?$,1(:(B)
803  ("T" ?$,1(5(B)
804  ("Y" ?$,1(=(B)
805  ("U" ?$,1(3(B)
806  ("I" ?$,1(H(B)
807  ("O" ?$,1(I(B)
808  ("P" ?$,1(7(B)
809  ("{" ?$,1(E(B)
810  ("}" ?$,1('(B)
811  ("A" ?$,1(D(B)
812