comparison lisp/quail/quail-cyrillic.el @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;; Quail packages for inputting Cyrillic characters.
2 ;; Copyright (C) 1992 Free Software Foundation, Inc.
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
4
5 ;; Mule is free software distributed in the form of patches to GNU Emacs.
6 ;; You can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by
8 ;; the Free Software Foundation; either version 1, or (at your option)
9 ;; any later version.
10
11 ;; Mule is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;; GNU General Public License for more details.
15
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19
20 ;;; 92.7.14 created for Mule Ver.0.9.5 by Takahashi N. <ntakahas@etl.go.jp>
21 ;;; 92.9.8 modified by Takahashi N. <ntakahas@etl.go.jp>
22 ;;; 92.11.25 modified by Takahashi N. <ntakahas@etl.go.jp>
23 ;;; 92.12.28 modified by Takahashi N. <ntakahas@etl.go.jp>
24 ;;; Macedonian, Serbian & Byelorussian are added
25 ;;; 93.4.22 modified by Takahashi N. <ntakahas@etl.go.jp>
26 ;;; added "jis-russian".
27
28 (require 'quail)
29
30 (quail-define-package "jcuken" ",L9FC:5=(B" nil "Cyrillic (ISO 8859-5) encoding.
31
32 They say this layout is widely used in Russia." nil t t t t)
33
34 ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
35 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
36 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
37 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
38
39 (quail-defrule "1" ?1)
40 (quail-defrule "2" ?2)
41 (quail-defrule "3" ?3)
42 (quail-defrule "4" ?4)
43 (quail-defrule "5" ?5)
44 (quail-defrule "6" ?6)
45 (quail-defrule "7" ?7)
46 (quail-defrule "8" ?8)
47 (quail-defrule "9" ?9)
48 (quail-defrule "0" ?0)
49 (quail-defrule "-" ?-)
50 (quail-defrule "=" ?=)
51 (quail-defrule "`" ?,Lq(B)
52 (quail-defrule "q" ?,LY(B)
53 (quail-defrule "w" ?,Lf(B)
54 (quail-defrule "e" ?,Lc(B)
55 (quail-defrule "r" ?,LZ(B)
56 (quail-defrule "t" ?,LU(B)
57 (quail-defrule "y" ?,L](B)
58 (quail-defrule "u" ?,LS(B)
59 (quail-defrule "i" ?,Lh(B)
60 (quail-defrule "o" ?,Li(B)
61 (quail-defrule "p" ?,LW(B)
62 (quail-defrule "[" ?,Le(B)
63 (quail-defrule "]" ?,Lj(B)
64 (quail-defrule "a" ?,Ld(B)
65 (quail-defrule "s" ?,Lk(B)
66 (quail-defrule "d" ?,LR(B)
67 (quail-defrule "f" ?,LP(B)
68 (quail-defrule "g" ?,L_(B)
69 (quail-defrule "h" ?,L`(B)
70 (quail-defrule "j" ?,L^(B)
71 (quail-defrule "k" ?,L[(B)
72 (quail-defrule "l" ?,LT(B)
73 (quail-defrule ";" ?,LV(B)
74 (quail-defrule "'" ?,Lm(B)
75 (quail-defrule "\\" ?\\)
76 (quail-defrule "z" ?,Lo(B)
77 (quail-defrule "x" ?,Lg(B)
78 (quail-defrule "c" ?,La(B)
79 (quail-defrule "v" ?,L\(B)
80 (quail-defrule "b" ?,LX(B)
81 (quail-defrule "n" ?,Lb(B)
82 (quail-defrule "m" ?,Ll(B)
83 (quail-defrule "," ?,LQ(B)
84 (quail-defrule "." ?,Ln(B)
85 (quail-defrule "/" ?/)
86
87 (quail-defrule "!" ?!)
88 (quail-defrule "@" ?@)
89 (quail-defrule "#" ?#)
90 (quail-defrule "$" ?\")
91 (quail-defrule "%" ?:)
92 (quail-defrule "^" ?,)
93 (quail-defrule "&" ?.)
94 (quail-defrule "*" ?*)
95 (quail-defrule "(" ?()
96 (quail-defrule ")" ?))
97 (quail-defrule "_" ?_)
98 (quail-defrule "+" ?+)
99 (quail-defrule "~" ?,L!(B)
100 (quail-defrule "Q" ?,L9(B)
101 (quail-defrule "W" ?,LF(B)
102 (quail-defrule "E" ?,LC(B)
103 (quail-defrule "R" ?,L:(B)
104 (quail-defrule "T" ?,L5(B)
105 (quail-defrule "Y" ?,L=(B)
106 (quail-defrule "U" ?,L3(B)
107 (quail-defrule "I" ?,LH(B)
108 (quail-defrule "O" ?,LI(B)
109 (quail-defrule "P" ?,L7(B)
110 (quail-defrule "{" ?,LE(B)
111 (quail-defrule "}" ?,LJ(B)
112 (quail-defrule "A" ?,LD(B)
113 (quail-defrule "S" ?,LK(B)
114 (quail-defrule "D" ?,L2(B)
115 (quail-defrule "F" ?,L0(B)
116 (quail-defrule "G" ?,L?(B)
117 (quail-defrule "H" ?,L@(B)
118 (quail-defrule "J" ?,L>(B)
119 (quail-defrule "K" ?,L;(B)
120 (quail-defrule "L" ?,L4(B)
121 (quail-defrule ":" ?,L6(B)
122 (quail-defrule "\"" ?,LM(B)
123 (quail-defrule "|" ?|)
124 (quail-defrule "Z" ?,LO(B)
125 (quail-defrule "X" ?,LG(B)
126 (quail-defrule "C" ?,LA(B)
127 (quail-defrule "V" ?,L<(B)
128 (quail-defrule "B" ?,L8(B)
129 (quail-defrule "N" ?,LB(B)
130 (quail-defrule "M" ?,LL(B)
131 (quail-defrule "<" ?,L1(B)
132 (quail-defrule ">" ?,LN(B)
133 (quail-defrule "?" ??)
134
135 (quail-setup-current-package)
136 ;;
137
138 (quail-define-package "jis-russian" "$B'+'8'5','&'/(B" nil
139 "JIS X0208.1983 encoding.
140
141 The layout is same as jcuken, but uses JIS characters." nil t t t t)
142
143 ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
144 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
145 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
146 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
147
148 (quail-defrule "1" ?$B#1(B)
149 (quail-defrule "2" ?$B#2(B)
150 (quail-defrule "3" ?$B#3(B)
151 (quail-defrule "4" ?$B#4(B)
152 (quail-defrule "5" ?$B#5(B)
153 (quail-defrule "6" ?$B#6(B)
154 (quail-defrule "7" ?$B#7(B)
155 (quail-defrule "8" ?$B#8(B)
156 (quail-defrule "9" ?$B#9(B)
157 (quail-defrule "0" ?$B#0(B)
158 (quail-defrule "-" ?$B!](B)
159 (quail-defrule "=" ?$B!a(B)
160 (quail-defrule "`" ?$B'W(B)
161 (quail-defrule "q" ?$B'[(B)
162 (quail-defrule "w" ?$B'h(B)
163 (quail-defrule "e" ?$B'e(B)
164 (quail-defrule "r" ?$B'\(B)
165 (quail-defrule "t" ?$B'V(B)
166 (quail-defrule "y" ?$B'_(B)
167 (quail-defrule "u" ?$B'T(B)
168 (quail-defrule "i" ?$B'j(B)
169 (quail-defrule "o" ?$B'k(B)
170 (quail-defrule "p" ?$B'Y(B)
171 (quail-defrule "[" ?$B'g(B)
172 (quail-defrule "]" ?$B'l(B)
173 (quail-defrule "a" ?$B'f(B)
174 (quail-defrule "s" ?$B'm(B)
175 (quail-defrule "d" ?$B'S(B)
176 (quail-defrule "f" ?$B'Q(B)
177 (quail-defrule "g" ?$B'a(B)
178 (quail-defrule "h" ?$B'b(B)
179 (quail-defrule "j" ?$B'`(B)
180 (quail-defrule "k" ?$B'](B)
181 (quail-defrule "l" ?$B'U(B)
182 (quail-defrule ";" ?$B'X(B)
183 (quail-defrule "'" ?$B'o(B)
184 (quail-defrule "\\" ?$B!@(B)
185 (quail-defrule "z" ?$B'q(B)
186 (quail-defrule "x" ?$B'i(B)
187 (quail-defrule "c" ?$B'c(B)
188 (quail-defrule "v" ?$B'^(B)
189 (quail-defrule "b" ?$B'Z(B)
190 (quail-defrule "n" ?$B'd(B)
191 (quail-defrule "m" ?$B'n(B)
192 (quail-defrule "," ?$B'R(B)
193 (quail-defrule "." ?$B'p(B)
194 (quail-defrule "/" ?$B!?(B)
195
196 (quail-defrule "!" ?$B!*(B)
197 (quail-defrule "@" ?$B!w(B)
198 (quail-defrule "#" ?$B!t(B)
199 (quail-defrule "$" ?$B!I(B)
200 (quail-defrule "%" ?$B!'(B)
201 (quail-defrule "^" ?$B!$(B)
202 (quail-defrule "&" ?$B!%(B)
203 (quail-defrule "*" ?$B!v(B)
204 (quail-defrule "(" ?$B!J(B)
205 (quail-defrule ")" ?$B!K(B)
206 (quail-defrule "_" ?$B!2(B)
207 (quail-defrule "+" ?$B!\(B)
208 (quail-defrule "~" ?$B''(B)
209 (quail-defrule "Q" ?$B'+(B)
210 (quail-defrule "W" ?$B'8(B)
211 (quail-defrule "E" ?$B'5(B)
212 (quail-defrule "R" ?$B',(B)
213 (quail-defrule "T" ?$B'&(B)
214 (quail-defrule "Y" ?$B'/(B)
215 (quail-defrule "U" ?$B'$(B)
216 (quail-defrule "I" ?$B':(B)
217 (quail-defrule "O" ?$B';(B)
218 (quail-defrule "P" ?$B')(B)
219 (quail-defrule "{" ?$B'7(B)
220 (quail-defrule "}" ?$B'<(B)
221 (quail-defrule "A" ?$B'6(B)
222 (quail-defrule "S" ?$B'=(B)
223 (quail-defrule "D" ?$B'#(B)
224 (quail-defrule "F" ?$B'!(B)
225 (quail-defrule "G" ?$B'1(B)
226 (quail-defrule "H" ?$B'2(B)
227 (quail-defrule "J" ?$B'0(B)
228 (quail-defrule "K" ?$B'-(B)
229 (quail-defrule "L" ?$B'%(B)
230 (quail-defrule ":" ?$B'((B)
231 (quail-defrule "\"" ?$B'?(B)
232 (quail-defrule "|" ?$B!C(B)
233 (quail-defrule "Z" ?$B'A(B)
234 (quail-defrule "X" ?$B'9(B)
235 (quail-defrule "C" ?$B'3(B)
236 (quail-defrule "V" ?$B'.(B)
237 (quail-defrule "B" ?$B'*(B)
238 (quail-defrule "N" ?$B'4(B)
239 (quail-defrule "M" ?$B'>(B)
240 (quail-defrule "<" ?$B'"(B)
241 (quail-defrule ">" ?$B'@(B)
242 (quail-defrule "?" ?$B!)(B)
243
244 (quail-setup-current-package)
245
246 ;;
247 (quail-define-package "macedonian" ",L)*5@B7(B-,L#,(B" nil
248 "Cyrillic (ISO 8859-5) encoding.
249
250 This layout is based on JUS.I.K1.004." nil t t t t)
251
252 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
253 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B
254 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L,(B ,L6(B
255 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
256
257 (quail-defrule "1" ?1)
258 (quail-defrule "2" ?2)
259 (quail-defrule "3" ?3)
260 (quail-defrule "4" ?4)
261 (quail-defrule "5" ?5)
262 (quail-defrule "6" ?6)
263 (quail-defrule "7" ?7)
264 (quail-defrule "8" ?8)
265 (quail-defrule "9" ?9)
266 (quail-defrule "0" ?0)
267 (quail-defrule "-" ?/)
268 (quail-defrule "=" ?+)
269 (quail-defrule "`" ?<)
270 (quail-defrule "q" ?,Ly(B)
271 (quail-defrule "w" ?,Lz(B)
272 (quail-defrule "e" ?,LU(B)
273 (quail-defrule "r" ?,L`(B)
274 (quail-defrule "t" ?,Lb(B)
275 (quail-defrule "y" ?,LW(B)
276 (quail-defrule "u" ?,Lc(B)
277 (quail-defrule "i" ?,LX(B)
278 (quail-defrule "o" ?,L^(B)
279 (quail-defrule "p" ?,L_(B)
280 (quail-defrule "[" ?,Lh(B)
281 (quail-defrule "]" ?,Ls(B)
282 (quail-defrule "a" ?,LP(B)
283 (quail-defrule "s" ?,La(B)
284 (quail-defrule "d" ?,LT(B)
285 (quail-defrule "f" ?,Ld(B)
286 (quail-defrule "g" ?,LS(B)
287 (quail-defrule "h" ?,Le(B)
288 (quail-defrule "j" ?,Lx(B)
289 (quail-defrule "k" ?,LZ(B)
290 (quail-defrule "l" ?,L[(B)
291 (quail-defrule ";" ?,Lg(B)
292 (quail-defrule "'" ?,L|(B)
293 (quail-defrule "\\" ?,LV(B)
294 (quail-defrule "z" ?,Lu(B)
295 (quail-defrule "x" ?,L(B)
296 (quail-defrule "c" ?,Lf(B)
297 (quail-defrule "v" ?,LR(B)
298 (quail-defrule "b" ?,LQ(B)
299 (quail-defrule "n" ?,L](B)
300 (quail-defrule "m" ?,L\(B)
301 (quail-defrule "," ?,)
302 (quail-defrule "." ?.)
303 (quail-defrule "/" ?-)
304
305 (quail-defrule "!" ?!)
306 (quail-defrule "@" ?\")
307 (quail-defrule "#" ?#)
308 (quail-defrule "$" ?$)
309 (quail-defrule "%" ?%)
310 (quail-defrule "^" ?&)
311 (quail-defrule "&" ?')
312 (quail-defrule "*" ?()
313 (quail-defrule "(" ?))
314 (quail-defrule ")" ?=)
315 (quail-defrule "_" ??)
316 (quail-defrule "+" ?*)
317 (quail-defrule "~" ?>)
318 (quail-defrule "Q" ?,L)(B)
319 (quail-defrule "W" ?,L*(B)
320 (quail-defrule "E" ?,L5(B)
321 (quail-defrule "R" ?,L@(B)
322 (quail-defrule "T" ?,LB(B)
323 (quail-defrule "Y" ?,L7(B)
324 (quail-defrule "U" ?,LC(B)
325 (quail-defrule "I" ?,L8(B)
326 (quail-defrule "O" ?,L>(B)
327 (quail-defrule "P" ?,L?(B)
328 (quail-defrule "{" ?,LH(B)
329 (quail-defrule "}" ?,L#(B)
330 (quail-defrule "A" ?,L0(B)
331 (quail-defrule "S" ?,LA(B)
332 (quail-defrule "D" ?,L4(B)
333 (quail-defrule "F" ?,LD(B)
334 (quail-defrule "G" ?,L3(B)
335 (quail-defrule "H" ?,LE(B)
336 (quail-defrule "J" ?,L((B)
337 (quail-defrule "K" ?,L:(B)
338 (quail-defrule "L" ?,L;(B)
339 (quail-defrule ":" ?,LG(B)
340 (quail-defrule "\"" ?,L,(B)
341 (quail-defrule "|" ?,L6(B)
342 (quail-defrule "Z" ?,L%(B)
343 (quail-defrule "X" ?,L/(B)
344 (quail-defrule "C" ?,LF(B)
345 (quail-defrule "V" ?,L2(B)
346 (quail-defrule "B" ?,L1(B)
347 (quail-defrule "N" ?,L=(B)
348 (quail-defrule "M" ?,L<(B)
349 (quail-defrule "<" ?;)
350 (quail-defrule ">" ?:)
351 (quail-defrule "?" ?_)
352
353 (quail-setup-current-package)
354
355 ;;
356 (quail-define-package "serbian" ",L)*5@B7(B-,L"+(B" nil
357 "Cyrillic (ISO 8859-5) encoding.
358
359 This layout is based on JUS.I.K1.005." nil t t t t)
360
361 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
362 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B
363 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L+(B ,L6(B
364 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
365
366 (quail-defrule "1" ?1)
367 (quail-defrule "2" ?2)
368 (quail-defrule "3" ?3)
369 (quail-defrule "4" ?4)
370 (quail-defrule "5" ?5)
371 (quail-defrule "6" ?6)
372 (quail-defrule "7" ?7)
373 (quail-defrule "8" ?8)
374 (quail-defrule "9" ?9)
375 (quail-defrule "0" ?0)
376 (quail-defrule "-" ?/)
377 (quail-defrule "=" ?+)
378 (quail-defrule "`" ?<)
379 (quail-defrule "q" ?,Ly(B)
380 (quail-defrule "w" ?,Lz(B)
381 (quail-defrule "e" ?,LU(B)
382 (quail-defrule "r" ?,L`(B)
383 (quail-defrule "t" ?,Lb(B)
384 (quail-defrule "y" ?,LW(B)
385 (quail-defrule "u" ?,Lc(B)
386 (quail-defrule "i" ?,LX(B)
387 (quail-defrule "o" ?,L^(B)
388 (quail-defrule "p" ?,L_(B)
389 (quail-defrule "[" ?,Lh(B)
390 (quail-defrule "]" ?,Lr(B)
391 (quail-defrule "a" ?,LP(B)
392 (quail-defrule "s" ?,La(B)
393 (quail-defrule "d" ?,LT(B)
394 (quail-defrule "f" ?,Ld(B)
395 (quail-defrule "g" ?,LS(B)
396 (quail-defrule "h" ?,Le(B)
397 (quail-defrule "j" ?,Lx(B)
398 (quail-defrule "k" ?,LZ(B)
399 (quail-defrule "l" ?,L[(B)
400 (quail-defrule ";" ?,Lg(B)
401 (quail-defrule "'" ?,L{(B)
402 (quail-defrule "\\" ?,LV(B)
403 (quail-defrule "z" ?,Lu(B)
404 (quail-defrule "x" ?,L(B)
405 (quail-defrule "c" ?,Lf(B)
406 (quail-defrule "v" ?,LR(B)
407 (quail-defrule "b" ?,LQ(B)
408 (quail-defrule "n" ?,L](B)
409 (quail-defrule "m" ?,L\(B)
410 (quail-defrule "," ?,)
411 (quail-defrule "." ?.)
412 (quail-defrule "/" ?-)
413
414 (quail-defrule "!" ?!)
415 (quail-defrule "@" ?\")
416 (quail-defrule "#" ?#)
417 (quail-defrule "$" ?$)
418 (quail-defrule "%" ?%)
419 (quail-defrule "^" ?&)
420 (quail-defrule "&" ?')
421 (quail-defrule "*" ?()
422 (quail-defrule "(" ?))
423 (quail-defrule ")" ?=)
424 (quail-defrule "_" ??)
425 (quail-defrule "+" ?*)
426 (quail-defrule "~" ?>)
427 (quail-defrule "Q" ?,L)(B)
428 (quail-defrule "W" ?,L*(B)
429 (quail-defrule "E" ?,L5(B)
430 (quail-defrule "R" ?,L@(B)
431 (quail-defrule "T" ?,LB(B)
432 (quail-defrule "Y" ?,L7(B)
433 (quail-defrule "U" ?,LC(B)
434 (quail-defrule "I" ?,L8(B)
435 (quail-defrule "O" ?,L>(B)
436 (quail-defrule "P" ?,L?(B)
437 (quail-defrule "{" ?,LH(B)
438 (quail-defrule "}" ?,L"(B)
439 (quail-defrule "A" ?,L0(B)
440 (quail-defrule "S" ?,LA(B)
441 (quail-defrule "D" ?,L4(B)
442 (quail-defrule "F" ?,LD(B)
443 (quail-defrule "G" ?,L3(B)
444 (quail-defrule "H" ?,LE(B)
445 (quail-defrule "J" ?,L((B)
446 (quail-defrule "K" ?,L:(B)
447 (quail-defrule "L" ?,L;(B)
448 (quail-defrule ":" ?,LG(B)
449 (quail-defrule "\"" ?,L+(B)
450 (quail-defrule "|" ?,L6(B)
451 (quail-defrule "Z" ?,L%(B)
452 (quail-defrule "X" ?,L/(B)
453 (quail-defrule "C" ?,LF(B)
454 (quail-defrule "V" ?,L2(B)
455 (quail-defrule "B" ?,L1(B)
456 (quail-defrule "N" ?,L=(B)
457 (quail-defrule "M" ?,L<(B)
458 (quail-defrule "<" ?;)
459 (quail-defrule ">" ?:)
460 (quail-defrule "?" ?_)
461
462 (quail-setup-current-package)
463
464 ;;
465 (quail-define-package "beylorussian" ",L)*5@B7(B-,L&.(B" nil
466 "Cyrillic (ISO 8859-5) encoding." nil t t t t)
467
468 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
469 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
470 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
471 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
472
473 (quail-defrule "1" ?1)
474 (quail-defrule "2" ?2)
475 (quail-defrule "3" ?3)
476 (quail-defrule "4" ?4)
477 (quail-defrule "5" ?5)
478 (quail-defrule "6" ?6)
479 (quail-defrule "7" ?7)
480 (quail-defrule "8" ?8)
481 (quail-defrule "9" ?9)
482 (quail-defrule "0" ?0)
483 (quail-defrule "-" ?/)
484 (quail-defrule "=" ?+)
485 (quail-defrule "`" ?<)
486 (quail-defrule "q" ?,Ly(B)
487 (quail-defrule "w" ?,Lz(B)
488 (quail-defrule "e" ?,LU(B)
489 (quail-defrule "r" ?,L`(B)
490 (quail-defrule "t" ?,Lb(B)
491 (quail-defrule "y" ?,LW(B)
492 (quail-defrule "u" ?,Lc(B)
493 (quail-defrule "i" ?,LX(B)
494 (quail-defrule "o" ?,L^(B)
495 (quail-defrule "p" ?,L_(B)
496 (quail-defrule "[" ?,Lh(B)
497 (quail-defrule "]" ?,Lv(B)
498 (quail-defrule "a" ?,LP(B)
499 (quail-defrule "s" ?,La(B)
500 (quail-defrule "d" ?,LT(B)
501 (quail-defrule "f" ?,Ld(B)
502 (quail-defrule "g" ?,LS(B)
503 (quail-defrule "h" ?,Le(B)
504 (quail-defrule "j" ?,Lx(B)
505 (quail-defrule "k" ?,LZ(B)
506 (quail-defrule "l" ?,L[(B)
507 (quail-defrule ";" ?,Lg(B)
508 (quail-defrule "'" ?,L~(B)
509 (quail-defrule "\\" ?,LV(B)
510 (quail-defrule "z" ?,Lu(B)
511 (quail-defrule "x" ?,L(B)
512 (quail-defrule "c" ?,Lf(B)
513 (quail-defrule "v" ?,LR(B)
514 (quail-defrule "b" ?,LQ(B)
515 (quail-defrule "n" ?,L](B)
516 (quail-defrule "m" ?,L\(B)
517 (quail-defrule "," ?,)
518 (quail-defrule "." ?.)
519 (quail-defrule "/" ?-)
520
521 (quail-defrule "!" ?!)
522 (quail-defrule "@" ?\")
523 (quail-defrule "#" ?#)
524 (quail-defrule "$" ?$)
525 (quail-defrule "%" ?%)
526 (quail-defrule "^" ?&)
527 (quail-defrule "&" ?')
528 (quail-defrule "*" ?()
529 (quail-defrule "(" ?))
530 (quail-defrule ")" ?=)
531 (quail-defrule "_" ??)
532 (quail-defrule "+" ?*)
533 (quail-defrule "~" ?>)
534 (quail-defrule "Q" ?,L)(B)
535 (quail-defrule "W" ?,L*(B)
536 (quail-defrule "E" ?,L5(B)
537 (quail-defrule "R" ?,L@(B)
538 (quail-defrule "T" ?,LB(B)
539 (quail-defrule "Y" ?,L7(B)
540 (quail-defrule "U" ?,LC(B)
541 (quail-defrule "I" ?,L8(B)
542 (quail-defrule "O" ?,L>(B)
543 (quail-defrule "P" ?,L?(B)
544 (quail-defrule "{" ?,LH(B)
545 (quail-defrule "}" ?,L&(B)
546 (quail-defrule "A" ?,L0(B)
547 (quail-defrule "S" ?,LA(B)
548 (quail-defrule "D" ?,L4(B)
549 (quail-defrule "F" ?,LD(B)
550 (quail-defrule "G" ?,L3(B)
551 (quail-defrule "H" ?,LE(B)
552 (quail-defrule "J" ?,L((B)
553 (quail-defrule "K" ?,L:(B)
554 (quail-defrule "L" ?,L;(B)
555 (quail-defrule ":" ?,LG(B)
556 (quail-defrule "\"" ?,L.(B)
557 (quail-defrule "|" ?,L6(B)
558 (quail-defrule "Z" ?,L%(B)
559 (quail-defrule "X" ?,L/(B)
560 (quail-defrule "C" ?,LF(B)
561 (quail-defrule "V" ?,L2(B)
562 (quail-defrule "B" ?,L1(B)
563 (quail-defrule "N" ?,L=(B)
564 (quail-defrule "M" ?,L<(B)
565 (quail-defrule "<" ?;)
566 (quail-defrule ">" ?:)
567 (quail-defrule "?" ?_)
568
569 (quail-setup-current-package)
570
571 ;;
572 (quail-define-package "ukrainian" ",L$'5@B7(B-,L&.(B" nil
573 "Cyrillic (ISO 8859-5) encoding.
574
575 Sorry, but 'ghe with upturn' is not included in ISO 8859-5" nil t t t t)
576
577 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
578 ;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
579 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
580 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
581
582 (quail-defrule "1" ?1)
583 (quail-defrule "2" ?2)
584 (quail-defrule "3" ?3)
585 (quail-defrule "4" ?4)
586 (quail-defrule "5" ?5)
587 (quail-defrule "6" ?6)
588 (quail-defrule "7" ?7)
589 (quail-defrule "8" ?8)
590 (quail-defrule "9" ?9)
591 (quail-defrule "0" ?0)
592 (quail-defrule "-" ?/)
593 (quail-defrule "=" ?+)
594 (quail-defrule "`" ?<)
595 (quail-defrule "q" ?,Lt(B)
596 (quail-defrule "w" ?,Lw(B)
597 (quail-defrule "e" ?,LU(B)
598 (quail-defrule "r" ?,L`(B)
599 (quail-defrule "t" ?,Lb(B)
600 (quail-defrule "y" ?,LW(B)
601 (quail-defrule "u" ?,Lc(B)
602 (quail-defrule "i" ?,LX(B)
603 (quail-defrule "o" ?,L^(B)
604 (quail-defrule "p" ?,L_(B)
605 (quail-defrule "[" ?,Lh(B)
606 (quail-defrule "]" ?,Lv(B)
607 (quail-defrule "a" ?,LP(B)
608 (quail-defrule "s" ?,La(B)
609 (quail-defrule "d" ?,LT(B)
610 (quail-defrule "f" ?,Ld(B)
611 (quail-defrule "g" ?,LS(B)
612 (quail-defrule "h" ?,Le(B)
613 (quail-defrule "j" ?,Lx(B)
614 (quail-defrule "k" ?,LZ(B)
615 (quail-defrule "l" ?,L[(B)
616 (quail-defrule ";" ?,Lg(B)
617 (quail-defrule "'" ?,L~(B)
618 (quail-defrule "\\" ?,LV(B)
619 (quail-defrule "z" ?,Lu(B)
620 (quail-defrule "x" ?,L(B)
621 (quail-defrule "c" ?,Lf(B)
622 (quail-defrule "v" ?,LR(B)
623 (quail-defrule "b" ?,LQ(B)
624 (quail-defrule "n" ?,L](B)
625 (quail-defrule "m" ?,L\(B)
626 (quail-defrule "," ?,)
627 (quail-defrule "." ?.)
628 (quail-defrule "/" ?-)
629
630 (quail-defrule "!" ?!)
631 (quail-defrule "@" ?\")
632 (quail-defrule "#" ?#)
633 (quail-defrule "$" ?$)
634 (quail-defrule "%" ?%)
635 (quail-defrule "^" ?&)
636 (quail-defrule "&" ?')
637 (quail-defrule "*" ?()
638 (quail-defrule "(" ?))
639 (quail-defrule ")" ?=)
640 (quail-defrule "_" ??)
641 (quail-defrule "+" ?*)
642 (quail-defrule "~" ?>)
643 (quail-defrule "Q" ?,L$(B)
644 (quail-defrule "W" ?,L'(B)
645 (quail-defrule "E" ?,L5(B)
646 (quail-defrule "R" ?,L@(B)
647 (quail-defrule "T" ?,LB(B)
648 (quail-defrule "Y" ?,L7(B)
649 (quail-defrule "U" ?,LC(B)
650 (quail-defrule "I" ?,L8(B)
651 (quail-defrule "O" ?,L>(B)
652 (quail-defrule "P" ?,L?(B)
653 (quail-defrule "{" ?,LH(B)
654 (quail-defrule "}" ?,L&(B)
655 (quail-defrule "A" ?,L0(B)
656 (quail-defrule "S" ?,LA(B)
657 (quail-defrule "D" ?,L4(B)
658 (quail-defrule "F" ?,LD(B)
659 (quail-defrule "G" ?,L3(B)
660 (quail-defrule "H" ?,LE(B)
661 (quail-defrule "J" ?,L((B)
662 (quail-defrule "K" ?,L:(B)
663 (quail-defrule "L" ?,L;(B)
664 (quail-defrule ":" ?,LG(B)
665 (quail-defrule "\"" ?,L.(B)
666 (quail-defrule "|" ?,L6(B)
667 (quail-defrule "Z" ?,L%(B)
668 (quail-defrule "X" ?,L/(B)
669 (quail-defrule "C" ?,LF(B)
670 (quail-defrule "V" ?,L2(B)
671 (quail-defrule "B" ?,L1(B)
672 (quail-defrule "N" ?,L=(B)
673 (quail-defrule "M" ?,L<(B)
674 (quail-defrule "<" ?;)
675 (quail-defrule ">" ?:)
676 (quail-defrule "?" ?_)
677
678 (quail-setup-current-package)
679
680 ;;
681 (quail-define-package "yawerty" ",LO25@BK(B" nil "Cyrillic (ISO 8859-5) encoding.
682
683 This layout is based on Roman transcription.
684 When preceded by a '/', the second and the third rows (number key row) change
685 as follows.
686
687 keytop | Q W E R T Y U I O P A S D
688 --------+---------------------------------------
689 input | ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,L,(B ,L.(B ,L/(B
690 " nil t t t t)
691
692 ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B
693 ;; ,LO(B ,L2(B ,L5(B ,L@(B ,LB(B ,LK(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,LI(B
694 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ;: '" ,LM(B
695 ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /?
696
697 ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B
698 ;; ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,LH(B ,LI(B
699 ;; ,L,(B ,L.(B ,L/(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ;: '" ,LM(B
700 ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /?
701
702 (quail-defrule "1" ?1)
703 (quail-defrule "2" ?2)
704 (quail-defrule "3" ?3)
705 (quail-defrule "4" ?4)
706 (quail-defrule "5" ?5)
707 (quail-defrule "6" ?6)
708 (quail-defrule "7" ?7)
709 (quail-defrule "8" ?8)
710 (quail-defrule "9" ?9)
711 (quail-defrule "0" ?0)
712 (quail-defrule "-" ?-)
713 (quail-defrule "=" ?,Lg(B)
714 (quail-defrule "`" ?,Ln(B)
715 (quail-defrule "q" ?,Lo(B)
716 (quail-defrule "w" ?,LR(B)
717 (quail-defrule "e" ?,LU(B)
718 (quail-defrule "r" ?,L`(B)
719 (quail-defrule "t" ?,Lb(B)
720 (quail-defrule "y" ?,Lk(B)
721 (quail-defrule "u" ?,Lc(B)
722 (quail-defrule "i" ?,LX(B)
723 (quail-defrule "o" ?,L^(B)
724 (quail-defrule "p" ?,L_(B)
725 (quail-defrule "[" ?,Lh(B)
726 (quail-defrule "]" ?,Li(B)
727 (quail-defrule "a" ?,LP(B)
728 (quail-defrule "s" ?,La(B)
729 (quail-defrule "d" ?,LT(B)
730 (quail-defrule "f" ?,Ld(B)
731 (quail-defrule "g" ?,LS(B)
732 (quail-defrule "h" ?,Le(B)
733 (quail-defrule "j" ?,LY(B)
734 (quail-defrule "k" ?,LZ(B)
735 (quail-defrule "l" ?,L[(B)
736 (quail-defrule ";" ?;)
737 (quail-defrule "'" ?')
738 (quail-defrule "\\" ?,Lm(B)
739 (quail-defrule "z" ?,LW(B)
740 (quail-defrule "x" ?,Ll(B)
741 (quail-defrule "c" ?,Lf(B)
742 (quail-defrule "v" ?,LV(B)
743 (quail-defrule "b" ?,LQ(B)
744 (quail-defrule "n" ?,L](B)
745 (quail-defrule "m" ?,L\(B)
746 (quail-defrule "," ?,)
747 (quail-defrule "." ?.)
748 (quail-defrule "/" ?/)
749
750 (quail-defrule "!" ?!)
751 (quail-defrule "@" ?,Lq(B)
752 (quail-defrule "#" ?,Lj(B)
753 (quail-defrule "$" ?,L!(B)
754 (quail-defrule "%" ?%)
755 (quail-defrule "^" ?^)
756 (quail-defrule "&" ?&)
757 (quail-defrule "*" ?*)
758 (quail-defrule "(" ?()
759 (quail-defrule ")" ?))
760 (quail-defrule "_" ?_)
761 (quail-defrule "+" ?,LG(B)
762 (quail-defrule "~" ?,LN(B)
763 (quail-defrule "Q" ?,LO(B)
764 (quail-defrule "W" ?,L2(B)
765 (quail-defrule "E" ?,L5(B)
766 (quail-defrule "R" ?,L@(B)
767 (quail-defrule "T" ?,LB(B)
768 (quail-defrule "Y" ?,LK(B)
769 (quail-defrule "U" ?,LC(B)
770 (quail-defrule "I" ?,L8(B)
771 (quail-defrule "O" ?,L>(B)
772 (quail-defrule "P" ?,L?(B)
773 (quail-defrule "{" ?,LH(B)
774 (quail-defrule "}" ?,LI(B)
775 (quail-defrule "A" ?,L0(B)
776 (quail-defrule "S" ?,LA(B)
777 (quail-defrule "D" ?,L4(B)
778 (quail-defrule "F" ?,LD(B)
779 (quail-defrule "G" ?,L3(B)
780 (quail-defrule "H" ?,LE(B)
781 (quail-defrule "J" ?,L9(B)
782 (quail-defrule "K" ?,L:(B)
783 (quail-defrule "L" ?,L;(B)
784 (quail-defrule ":" ?:)
785 (quail-defrule "\"" ?\")
786 (quail-defrule "|" ?,LM(B)
787 (quail-defrule "Z" ?,L7(B)
788 (quail-defrule "X" ?,LL(B)
789 (quail-defrule "C" ?,LF(B)
790 (quail-defrule "V" ?,L6(B)
791 (quail-defrule "B" ?,L1(B)
792 (quail-defrule "N" ?,L=(B)
793 (quail-defrule "M" ?,L<(B)
794 (quail-defrule "<" ?<)
795 (quail-defrule ">" ?>)
796 (quail-defrule "?" ??)
797
798 (quail-defrule "/q" ?,Lr(B)
799 (quail-defrule "/w" ?,Ls(B)
800 (quail-defrule "/e" ?,Lt(B)
801 (quail-defrule "/r" ?,Lu(B)
802 (quail-defrule "/t" ?,Lv(B)
803 (quail-defrule "/y" ?,Lw(B)
804 (quail-defrule "/u" ?,Lx(B)
805 (quail-defrule "/i" ?,Ly(B)
806 (quail-defrule "/o" ?,Lz(B)
807 (quail-defrule "/p" ?,L{(B)
808 (quail-defrule "/a" ?,L|(B)
809 (quail-defrule "/s" ?,L~(B)
810 (quail-defrule "/d" ?,L(B)
811
812 (quail-defrule "/Q" ?,L"(B)
813 (quail-defrule "/W" ?,L#(B)
814 (quail-defrule "/E" ?,L$(B)
815 (quail-defrule "/R" ?,L%(B)
816 (quail-defrule "/T" ?,L&(B)
817 (quail-defrule "/Y" ?,L'(B)
818 (quail-defrule "/U" ?,L((B)
819 (quail-defrule "/I" ?,L)(B)
820 (quail-defrule "/O" ?,L*(B)
821 (quail-defrule "/P" ?,L+(B)
822 (quail-defrule "/A" ?,L,(B)
823 (quail-defrule "/S" ?,L.(B)
824 (quail-defrule "/D" ?,L/(B)
825
826 (quail-setup-current-package)