-;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters
+;;; cyrillic.el --- Quail package for inputting Cyrillic characters
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, input method, Cyrillic
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(require 'quail)
"\e,L9FC:5=\e(B keyboard layout widely used in Russia (ISO 8859-5 encoding)"
nil t t t t nil nil nil nil nil t)
-;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ \e,L!\e(B
+;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ \e,L!\e(B
;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,Lj\e(B
;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B
;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B /?
("/" ?/)
("!" ?!)
- ("@" ?@)
- ("#" ?#)
- ("$" ?\")
+ ("@" ?\")
+ ("#" ?')
+ ("$" ?*)
("%" ?:)
("^" ?,)
("&" ?.)
- ("*" ?*)
+ ("*" ?\;)
("(" ?()
(")" ?))
("_" ?_)
("/I" ?\e,L&\e(B) ("/J" ?\e,L(\e(B) ("/L" ?\e,L)\e(B) ("/N" ?\e,L*\e(B) ("/Z" ?\e,L/\e(B)
)
+;; From Yudit's `Belarusian input table according to STB955-94
+;; belarusian standard'. Alexander Mikhailian <mikhailian@altern.org>
+(quail-define-package
+ "belarusian" "Cyrillic" "\e$,1(v\e(B" ; fixme
+ nil
+ "Belarusian STB955-94 input, producing Unicode"
+ nil t t t t nil nil nil nil nil t)
+(quail-define-rules
+ ("<<" ?\e,A+\e(B)
+ (">>" ?\e,A;\e(B)
+ (",," ?\e$,1r}\e(B)
+ ("``" ?\e$,1r|\e(B)
+ ("C)" ?\e,A)\e(B)
+ ("x)" ?\e$,1s"\e(B)
+ (":)" ?\e$,2#:\e(B)
+ (":(" ?\e$,2#9\e(B)
+ ("C-" ?\e,A$\e(B)
+ ("E-" ?\e$,1tL\e(B)
+ ("L-" ?\e,A#\e(B)
+ ("~" ?\e$,1(!\e(B)
+ ("!" ?!)
+ ("@" ?\")
+ ("#" ?\e$,1uV\e(B)
+ ("$" ?\;)
+ ("%" ?%)
+ ("^" ?:)
+ ("&" ??)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("Q" ?\e$,1(9\e(B)
+ ("W" ?\e$,1(F\e(B)
+ ("E" ?\e$,1(C\e(B)
+ ("R" ?\e$,1(:\e(B)
+ ("T" ?\e$,1(5\e(B)
+ ("Y" ?\e$,1(=\e(B)
+ ("U" ?\e$,1(3\e(B)
+ ("I" ?\e$,1(H\e(B)
+ ("O" ?\e$,1(.\e(B)
+ ("P" ?\e$,1(7\e(B)
+ ("{" ?\e$,1(E\e(B)
+ ("}" ?')
+ ("A" ?\e$,1(D\e(B)
+ ("S" ?\e$,1(K\e(B)
+ ("D" ?\e$,1(2\e(B)
+ ("F" ?\e$,1(0\e(B)
+ ("G" ?\e$,1(?\e(B)
+ ("H" ?\e$,1(@\e(B)
+ ("J" ?\e$,1(>\e(B)
+ ("K" ?\e$,1(;\e(B)
+ ("L" ?\e$,1(4\e(B)
+ (":" ?\e$,1(6\e(B)
+ ("\"" ?\e$,1(M\e(B)
+ ("|" ?/)
+ ("Z" ?\e$,1(O\e(B)
+ ("X" ?\e$,1(G\e(B)
+ ("C" ?\e$,1(A\e(B)
+ ("V" ?\e$,1(<\e(B)
+ ("B" ?\e$,1(&\e(B)
+ ("N" ?\e$,1(B\e(B)
+ ("M" ?\e$,1(L\e(B)
+ ("<" ?\e$,1(1\e(B)
+ (">" ?\e$,1(N\e(B)
+ ("?" ?,)
+ ("`" ?\e$,1(q\e(B)
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("q" ?\e$,1(Y\e(B)
+ ("w" ?\e$,1(f\e(B)
+ ("e" ?\e$,1(c\e(B)
+ ("r" ?\e$,1(Z\e(B)
+ ("t" ?\e$,1(U\e(B)
+ ("y" ?\e$,1(]\e(B)
+ ("u" ?\e$,1(S\e(B)
+ ("i" ?\e$,1(h\e(B)
+ ("o" ?\e$,1(~\e(B)
+ ("p" ?\e$,1(W\e(B)
+ ("[" ?\e$,1(e\e(B)
+ ("]" ?')
+ ("a" ?\e$,1(d\e(B)
+ ("s" ?\e$,1(k\e(B)
+ ("d" ?\e$,1(R\e(B)
+ ("f" ?\e$,1(P\e(B)
+ ("g" ?\e$,1(_\e(B)
+ ("h" ?\e$,1(`\e(B)
+ ("j" ?\e$,1(^\e(B)
+ ("k" ?\e$,1([\e(B)
+ ("l" ?\e$,1(T\e(B)
+ (";" ?\e$,1(V\e(B)
+ ("'" ?\e$,1(m\e(B)
+ ("\\" ?\\)
+ ("z" ?\e$,1(o\e(B)
+ ("x" ?\e$,1(g\e(B)
+ ("c" ?\e$,1(a\e(B)
+ ("v" ?\e$,1(\\e(B)
+ ("b" ?\e$,1(v\e(B)
+ ("n" ?\e$,1(b\e(B)
+ ("m" ?\e$,1(l\e(B)
+ ("," ?\e$,1(Q\e(B)
+ ("." ?\e$,1(n\e(B)
+ ("/" ?.)
+
+ ("D-" ?\e$,1("\e(B)
+ ("G'" ?\e$,1(#\e(B)
+ ("E>" ?\e$,1($\e(B)
+ ("Z>" ?\e$,1(%\e(B)
+ ("I/ " ?\e$,1(8\e(B)
+ ("I:" ?\e$,1('\e(B)
+ ("J<" ?\e$,1((\e(B)
+ ("L>" ?\e$,1()\e(B)
+ ("N>" ?\e$,1(*\e(B)
+ ("C'" ?\e$,1(+\e(B)
+ ("K'" ?\e$,1(,\e(B)
+ ("D>" ?\e$,1(/\e(B)
+
+ ("d-" ?\e$,1(r\e(B)
+ ("g'" ?\e$,1(s\e(B)
+ ("e>" ?\e$,1(t\e(B)
+ ("z>" ?\e$,1(u\e(B)
+ ("i/ " ?\e$,1(X\e(B)
+ ("i:" ?\e$,1(w\e(B)
+ ("j<" ?\e$,1(x\e(B)
+ ("l>" ?\e$,1(y\e(B)
+ ("c'" ?\e$,1({\e(B)
+ ("k'" ?\e$,1(|\e(B)
+ ("d>" ?\e$,1(\7f\e(B)
+
+ ("G`" ?\e$,1)P\e(B)
+ ("g`" ?\e$,1)Q\e(B)
+ ("E<" ?\e$,1)"\e(B)
+ ("e<" ?\e$,1)#\e(B)
+ ("A<" ?\e$,1)*\e(B)
+ ("a<" ?\e$,1)+\e(B)
+ ("F`" ?\e$,1)2\e(B)
+ ("f`" ?\e$,1)3\e(B)
+ ("Y`" ?\e$,1)4\e(B)
+ ("y`" ?\e$,1)5\e(B))
+
+;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov <al_shopov@web.bg>
+(quail-define-package
+ "bulgarian-pho" "Cyrillic" "\e$,1(1\e(B" ; fixme
+ nil
+ "Bulragian PHO keyboard layout, producing Unicode"
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("A" ?\e$,1(0\e(B)
+ ("B" ?\e$,1(1\e(B)
+ ("W" ?\e$,1(2\e(B)
+ ("G" ?\e$,1(3\e(B)
+ ("D" ?\e$,1(4\e(B)
+ ("E" ?\e$,1(5\e(B)
+ ("V" ?\e$,1(6\e(B)
+ ("Z" ?\e$,1(7\e(B)
+ ("I" ?\e$,1(8\e(B)
+ ("J" ?\e$,1(9\e(B)
+ ("K" ?\e$,1(:\e(B)
+ ("L" ?\e$,1(;\e(B)
+ ("M" ?\e$,1(<\e(B)
+ ("N" ?\e$,1(=\e(B)
+ ("O" ?\e$,1(>\e(B)
+ ("P" ?\e$,1(?\e(B)
+ ("R" ?\e$,1(@\e(B)
+ ("S" ?\e$,1(A\e(B)
+ ("T" ?\e$,1(B\e(B)
+ ("U" ?\e$,1(C\e(B)
+ ("F" ?\e$,1(D\e(B)
+ ("H" ?\e$,1(E\e(B)
+ ("C" ?\e$,1(F\e(B)
+ ("~" ?\e$,1(G\e(B)
+ ("{" ?\e$,1(H\e(B)
+ ("}" ?\e$,1(I\e(B)
+ ("Y" ?\e$,1(J\e(B)
+ ("X" ?\e$,1(L\e(B)
+ ("|" ?\e$,1(N\e(B)
+ ("Q" ?\e$,1(O\e(B)
+ ("a" ?\e$,1(P\e(B)
+ ("b" ?\e$,1(Q\e(B)
+ ("w" ?\e$,1(R\e(B)
+ ("g" ?\e$,1(S\e(B)
+ ("d" ?\e$,1(T\e(B)
+ ("e" ?\e$,1(U\e(B)
+ ("v" ?\e$,1(V\e(B)
+ ("z" ?\e$,1(W\e(B)
+ ("i" ?\e$,1(X\e(B)
+ ("j" ?\e$,1(Y\e(B)
+ ("k" ?\e$,1(Z\e(B)
+ ("l" ?\e$,1([\e(B)
+ ("m" ?\e$,1(\\e(B)
+ ("n" ?\e$,1(]\e(B)
+ ("o" ?\e$,1(^\e(B)
+ ("p" ?\e$,1(_\e(B)
+ ("r" ?\e$,1(`\e(B)
+ ("s" ?\e$,1(a\e(B)
+ ("t" ?\e$,1(b\e(B)
+ ("u" ?\e$,1(c\e(B)
+ ("f" ?\e$,1(d\e(B)
+ ("h" ?\e$,1(e\e(B)
+ ("c" ?\e$,1(f\e(B)
+ ("`" ?\e$,1(g\e(B)
+ ("[" ?\e$,1(h\e(B)
+ ("]" ?\e$,1(i\e(B)
+ ("y" ?\e$,1(j\e(B)
+ ("x" ?\e$,1(l\e(B)
+ ("\\" ?\e$,1(n\e(B)
+ ("q" ?\e$,1(o\e(B))
;; Local Variables:
-;; buffer-file-coding-system: iso-2022-7bit
+;; coding: iso-2022-7bit
;; End:
+
+;;; cyrillic.el ends here