comparison leim/quail/cyrillic.el @ 40706:3384b7d5e4b3

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

40705:421e0a91a1d1

;;; cyrillic.el --- Quail package for inputting Cyrillic characters

;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.

;; Keywords: multilingual, input method, Cyrillic

;; This file is part of GNU Emacs.

 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 
 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
)

;; Local Variables:
;; buffer-file-coding-system: iso-2022-7bit
;; End:

;;; cyrillic.el ends here

40706:3384b7d5e4b3

;;; 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

;; This file is part of GNU Emacs.

 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 
 ("/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 <[e-mail]>
(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 <[e-mail]>
(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:
;; coding: iso-2022-7bit
;; End:

;;; cyrillic.el ends here