("bulgarian-pho", "belarusian"): New methods.

leim/quail/cyrillic.el

@@ -2,6 +2,7 @@
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
 
 ;; Keywords: multilingual, input method, Cyrillic
 
@@ -840,8 +841,233 @@ The only difference with cyrillic-translit is that \"sht\" translates as
  ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
 )
 
+;; From Yudit's `Belarusian input table according to STB955-94
+;; belarusian standard'.  Alexander Mikhailian <mikhailian@altern.org>
+(quail-define-package
+ "belarusian" "Cyrillic" "$,1(v(B" ; fixme
+ nil
+ "Belarusian STB955-94 input, producing Unicode"
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("<<" ?,A+(B)
+ (">>" ?,A;(B)
+ (",," ?$,1r}(B)
+ ("``" ?$,1r|(B)
+ ("C)" ?,A)(B)
+ ("x)" ?$,1s"(B)
+ (":)" ?$,2#:(B)
+ (":(" ?$,2#9(B)
+ ("C-" ?,A$(B)
+ ("E-" ?$,1tL(B)
+ ("L-" ?,A#(B)
+
+ ("~" ?$,1(!(B)
+ ("!" ?!)
+ ("@" ?\")
+ ("#" ?$,1uV(B)
+ ("$" ?\;)
+ ("%" ?%)
+ ("^" ?:)
+ ("&" ??)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("Q" ?$,1(9(B)
+ ("W" ?$,1(F(B)
+ ("E" ?$,1(C(B)
+ ("R" ?$,1(:(B)
+ ("T" ?$,1(5(B)
+ ("Y" ?$,1(=(B)
+ ("U" ?$,1(3(B)
+ ("I" ?$,1(H(B)
+ ("O" ?$,1(.(B)
+ ("P" ?$,1(7(B)
+ ("{" ?$,1(E(B)
+ ("}" ?')
+ ("A" ?$,1(D(B)
+ ("S" ?$,1(K(B)
+ ("D" ?$,1(2(B)
+ ("F" ?$,1(0(B)
+ ("G" ?$,1(?(B)
+ ("H" ?$,1(@(B)
+ ("J" ?$,1(>(B)
+ ("K" ?$,1(;(B)
+ ("L" ?$,1(4(B)
+ (":" ?$,1(6(B)
+ ("\"" ?$,1(M(B)
+ ("|" ?/)
+ ("Z" ?$,1(O(B)
+ ("X" ?$,1(G(B)
+ ("C" ?$,1(A(B)
+ ("V" ?$,1(<(B)
+ ("B" ?$,1(&(B)
+ ("N" ?$,1(B(B)
+ ("M" ?$,1(L(B)
+ ("<" ?$,1(1(B)
+ (">" ?$,1(N(B)
+ ("?" ?,)
+
+ ("`" ?$,1(q(B)
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("q" ?$,1(Y(B)
+ ("w" ?$,1(f(B)
+ ("e" ?$,1(c(B)
+ ("r" ?$,1(Z(B)
+ ("t" ?$,1(U(B)
+ ("y" ?$,1(](B)
+ ("u" ?$,1(S(B)
+ ("i" ?$,1(h(B)
+ ("o" ?$,1(~(B)
+ ("p" ?$,1(W(B)
+ ("[" ?$,1(e(B)
+ ("]" ?')
+ ("a" ?$,1(d(B)
+ ("s" ?$,1(k(B)
+ ("d" ?$,1(R(B)
+ ("f" ?$,1(P(B)
+ ("g" ?$,1(_(B)
+ ("h" ?$,1(`(B)
+ ("j" ?$,1(^(B)
+ ("k" ?$,1([(B)
+ ("l" ?$,1(T(B)
+ (";" ?$,1(V(B)
+ ("'" ?$,1(m(B)
+ ("\\" ?\\)
+ ("z" ?$,1(o(B)
+ ("x" ?$,1(g(B)
+ ("c" ?$,1(a(B)
+ ("v" ?$,1(\(B)
+ ("b" ?$,1(v(B)
+ ("n" ?$,1(b(B)
+ ("m" ?$,1(l(B)
+ ("," ?$,1(Q(B)
+ ("." ?$,1(n(B)
+ ("/" ?.)
+
+ ("D-" ?$,1("(B)
+ ("G'" ?$,1(#(B)
+ ("E>" ?$,1($(B)
+ ("Z>" ?$,1(%(B)
+ ("I/ " ?$,1(8(B)
+ ("I:" ?$,1('(B)
+ ("J<" ?$,1(((B)
+ ("L>" ?$,1()(B)
+ ("N>" ?$,1(*(B)
+ ("C'" ?$,1(+(B)
+ ("K'" ?$,1(,(B)
+ ("D>" ?$,1(/(B)
+
+ ("d-" ?$,1(r(B)
+ ("g'" ?$,1(s(B)
+ ("e>" ?$,1(t(B)
+ ("z>" ?$,1(u(B)
+ ("i/ " ?$,1(X(B)
+ ("i:" ?$,1(w(B)
+ ("j<" ?$,1(x(B)
+ ("l>" ?$,1(y(B)
+ ("c'" ?$,1({(B)
+ ("k'" ?$,1(|(B)
+ ("d>" ?$,1((B)
+
+ ("G`" ?$,1)P(B)
+ ("g`" ?$,1)Q(B)
+ ("E<" ?$,1)"(B)
+ ("e<" ?$,1)#(B)
+ ("A<" ?$,1)*(B)
+ ("a<" ?$,1)+(B)
+ ("F`" ?$,1)2(B)
+ ("f`" ?$,1)3(B)
+ ("Y`" ?$,1)4(B)
+ ("y`" ?$,1)5(B))
+
+;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov <al_shopov@web.bg>
+(quail-define-package
+ "bulgarian-pho" "Cyrillic" "$,1(1(B" ; fixme
+ nil
+ "Bulragian PHO keyboard layout, producing Unicode"
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("A" ?$,1(0(B)
+ ("B" ?$,1(1(B)
+ ("W" ?$,1(2(B)
+ ("G" ?$,1(3(B)
+ ("D" ?$,1(4(B)
+ ("E" ?$,1(5(B)
+ ("V" ?$,1(6(B)
+ ("Z" ?$,1(7(B)
+ ("I" ?$,1(8(B)
+ ("J" ?$,1(9(B)
+ ("K" ?$,1(:(B)
+ ("L" ?$,1(;(B)
+ ("M" ?$,1(<(B)
+ ("N" ?$,1(=(B)
+ ("O" ?$,1(>(B)
+ ("P" ?$,1(?(B)
+ ("R" ?$,1(@(B)
+ ("S" ?$,1(A(B)
+ ("T" ?$,1(B(B)
+ ("U" ?$,1(C(B)
+ ("F" ?$,1(D(B)
+ ("H" ?$,1(E(B)
+ ("C" ?$,1(F(B)
+ ("~" ?$,1(G(B)
+ ("{" ?$,1(H(B)
+ ("}" ?$,1(I(B)
+ ("Y" ?$,1(J(B)
+ ("X" ?$,1(L(B)
+ ("|" ?$,1(N(B)
+ ("Q" ?$,1(O(B)
+ ("a" ?$,1(P(B)
+ ("b" ?$,1(Q(B)
+ ("w" ?$,1(R(B)
+ ("g" ?$,1(S(B)
+ ("d" ?$,1(T(B)
+ ("e" ?$,1(U(B)
+ ("v" ?$,1(V(B)
+ ("z" ?$,1(W(B)
+ ("i" ?$,1(X(B)
+ ("j" ?$,1(Y(B)
+ ("k" ?$,1(Z(B)
+ ("l" ?$,1([(B)
+ ("m" ?$,1(\(B)
+ ("n" ?$,1(](B)
+ ("o" ?$,1(^(B)
+ ("p" ?$,1(_(B)
+ ("r" ?$,1(`(B)
+ ("s" ?$,1(a(B)
+ ("t" ?$,1(b(B)
+ ("u" ?$,1(c(B)
+ ("f" ?$,1(d(B)
+ ("h" ?$,1(e(B)
+ ("c" ?$,1(f(B)
+ ("`" ?$,1(g(B)
+ ("[" ?$,1(h(B)
+ ("]" ?$,1(i(B)
+ ("y" ?$,1(j(B)
+ ("x" ?$,1(l(B)
+ ("\\" ?$,1(n(B)
+ ("q" ?$,1(o(B))
+
+(provide 'bul-bel)
+;;; bul-bel.el ends here
+
 ;; Local Variables:
-;; buffer-file-coding-system: iso-2022-7bit
+;; coding: iso-2022-7bit
 ;; End:
 
 ;;; cyrillic.el ends here