1;;; cyril-jis.el --- Quail package for inputting JISX0208 Cyrillic letters
2
3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
4;;   Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
6;;   2006, 2007
7;;   National Institute of Advanced Industrial Science and Technology (AIST)
8;;   Registration Number H14PRO021
9
10;; Keywords: multilingual, input method, Cyrillic
11
12;; This file is part of GNU Emacs.
13
14;; GNU Emacs is free software; you can redistribute it and/or modify
15;; it under the terms of the GNU General Public License as published by
16;; the Free Software Foundation; either version 2, or (at your option)
17;; any later version.
18
19;; GNU Emacs is distributed in the hope that it will be useful,
20;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
22;; GNU General Public License for more details.
23
24;; You should have received a copy of the GNU General Public License
25;; along with GNU Emacs; see the file COPYING.  If not, write to the
26;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27;; Boston, MA 02110-1301, USA.
28
29;;; Commentary:
30
31;; This Quail package is for inputting Cyrillic letters of Japanese
32;; character set JISX0208, not for inputting Cyrillic letters of
33;; ISO-8859-5.  For the latter, use packages in quail/cyrillic.el.
34
35;;; Code:
36
37(quail-define-package
38 "cyrillic-jis-russian" "Cyrillic" "$B'('+(B" nil
39 "$B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)"
40 nil t t t t nil nil nil nil nil t)
41
42;;  1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
43;;   ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,Lj(B
44;;    ,LD(B  ,LK(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B  ,L6(B  ,LM(B
45;;     ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B  /?
46
47(quail-define-rules
48 ("1" ?$B#1(B)
49 ("2" ?$B#2(B)
50 ("3" ?$B#3(B)
51 ("4" ?$B#4(B)
52 ("5" ?$B#5(B)
53 ("6" ?$B#6(B)
54 ("7" ?$B#7(B)
55 ("8" ?$B#8(B)
56 ("9" ?$B#9(B)
57 ("0" ?$B#0(B)
58 ("-" ?$B!](B)
59 ("=" ?$B!a(B)
60 ("`" ?$B'W(B)
61 ("q" ?$B'[(B)
62 ("w" ?$B'h(B)
63 ("e" ?$B'e(B)
64 ("r" ?$B'\(B)
65 ("t" ?$B'V(B)
66 ("y" ?$B'_(B)
67 ("u" ?$B'T(B)
68 ("i" ?$B'j(B)
69 ("o" ?$B'k(B)
70 ("p" ?$B'Y(B)
71 ("[" ?$B'g(B)
72 ("]" ?$B'l(B)
73 ("a" ?$B'f(B)
74 ("s" ?$B'm(B)
75 ("d" ?$B'S(B)
76 ("f" ?$B'Q(B)
77 ("g" ?$B'a(B)
78 ("h" ?$B'b(B)
79 ("j" ?$B'`(B)
80 ("k" ?$B'](B)
81 ("l" ?$B'U(B)
82 (";" ?$B'X(B)
83 ("'" ?$B'o(B)
84 ("\\" ?$B!@(B)
85 ("z" ?$B'q(B)
86 ("x" ?$B'i(B)
87 ("c" ?$B'c(B)
88 ("v" ?$B'^(B)
89 ("b" ?$B'Z(B)
90 ("n" ?$B'd(B)
91 ("m" ?$B'n(B)
92 ("," ?$B'R(B)
93 ("." ?$B'p(B)
94 ("/" ?$B!?(B)
95
96 ("!" ?$B!*(B)
97 ("@" ?$B!w(B)
98 ("#" ?$B!t(B)
99 ("$" ?$B!I(B)
100 ("%" ?$B!'(B)
101 ("^" ?$B!$(B)
102 ("&" ?$B!%(B)
103 ("*" ?$B!v(B)
104 ("(" ?$B!J(B)
105  (")" ?$B!K(B)
106 ("_" ?$B!2(B)
107 ("+" ?$B!\(B)
108 ("~" ?$B''(B)
109 ("Q" ?$B'+(B)
110 ("W" ?$B'8(B)
111 ("E" ?$B'5(B)
112 ("R" ?$B',(B)
113 ("T" ?$B'&(B)
114 ("Y" ?$B'/(B)
115 ("U" ?$B'$(B)
116 ("I" ?$B':(B)
117 ("O" ?$B';(B)
118 ("P" ?$B')(B)
119 ("{" ?$B'7(B)
120 ("}" ?$B'<(B)
121 ("A" ?$B'6(B)
122 ("S" ?$B'=(B)
123 ("D" ?$B'#(B)
124 ("F" ?$B'!(B)
125 ("G" ?$B'1(B)
126 ("H" ?$B'2(B)
127 ("J" ?$B'0(B)
128 ("K" ?$B'-(B)
129 ("L" ?$B'%(B)
130 (":" ?$B'((B)
131 ("\"" ?$B'?(B)
132 ("|" ?$B!C(B)
133 ("Z" ?$B'A(B)
134 ("X" ?$B'9(B)
135 ("C" ?$B'3(B)
136 ("V" ?$B'.(B)
137 ("B" ?$B'*(B)
138 ("N" ?$B'4(B)
139 ("M" ?$B'>(B)
140 ("<" ?$B'"(B)
141 (">" ?$B'@(B)
142 ("?" ?$B!)(B))
143
144;; Local Variables:
145;; coding: iso-2022-7bit
146;; End:
147
148;;; arch-tag: 3a0cc2ac-de48-42fe-9e80-05d8aa6faa36
149;;; cyril-jis.el ends here
150