-;;; greek.el --- Quail package for inputting Greek
+;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*-
;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
kappa K k
lamda L l
mu M m
-nu H n
+nu N n
xi X x
omicron O o
pi P p
;;
+(quail-define-package "greek-babel" "Greek" "BG" t
+"The TeX Babel input method for Classical Greek using mule-unicode-0100-24ff.
+
+-------------------------------------
+character capital small
+-------------------------------------
+alpha A a
+beta B b
+gamma G g
+delta D d
+epsilon E e
+zeta Z z
+eta H h
+theta J j
+iota I i
+kappa K k
+lamda L l
+mu M m
+nu N n
+xi X x
+omicron O o
+pi P p
+rho R r
+sigma S s
+final sigma c
+tau T t
+upsilon U u
+phi F f
+chi Q q
+psi Y y
+omega W w
+-------------------------------------
+sampi !
+digamma #
+stigma $
+koppa & %
+-------------------------------------
+
+------------------------
+mark key
+------------------------
+ypogegrammeni |
+psili >
+dasia <
+oxia '
+varia `
+perispomeni ~
+dialytika \"
+ano teleia ;
+erotimatiko ?
+----------------------
+"
+nil t t nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+
+ ("!" ?\e$,1'a\e(B) ; sampi
+ ("#" ?\e$,1'\\e(B) ; DIGAMMA
+ ("$" ?\e$,1'[\e(B) ; stigma
+ ("%" ?\e$,1'_\e(B) ; koppa
+ ("&" ?\e$,1'^\e(B) ; KOPPA
+ (">" ?\e$,1q\7f\e(B) ; psili
+ ("'" ?\e$,1r]\e(B) ; oxia
+ (";" ?\e$,1&g\e(B) ; ano teleia
+ ("?" ?\e$,1&^\e(B) ; erotimatiko
+ ("\"" ?\e,A(\e(B) ; dialytika
+ ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("A" ?\e$,1&q\e(B)
+ ("B" ?\e$,1&r\e(B)
+ ("D" ?\e$,1&t\e(B)
+ ("E" ?\e$,1&u\e(B)
+ ("F" ?\e$,1'&\e(B)
+ ("G" ?\e$,1&s\e(B)
+ ("H" ?\e$,1&w\e(B)
+ ("I" ?\e$,1&y\e(B)
+ ("J" ?\e$,1&x\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&\7f\e(B)
+ ("P" ?\e$,1' \e(B)
+ ("Q" ?\e$,1''\e(B)
+ ("R" ?\e$,1'!\e(B)
+ ("S" ?\e$,1'#\e(B)
+ ("T" ?\e$,1'$\e(B)
+ ("U" ?\e$,1'%\e(B)
+ ("W" ?\e$,1')\e(B)
+ ("X" ?\e$,1&~\e(B)
+ ("Y" ?\e$,1'(\e(B)
+ ("Z" ?\e$,1&v\e(B)
+ ("`" ?\e$,1rO\e(B) ; varia
+ ("~" ?\e$,1r \e(B) ; perispomeni
+
+ ("<" ?\e$,1r^\e(B) ; dasia
+ ("a" ?\e$,1'1\e(B)
+ ("a|" ?\e$,1qs\e(B)
+ ("b" ?\e$,1'2\e(B)
+ ("c" ?\e$,1'B\e(B)
+ ("d" ?\e$,1'4\e(B)
+ ("e" ?\e$,1'5\e(B)
+ ("f" ?\e$,1'F\e(B)
+ ("g" ?\e$,1'3\e(B)
+ ("h" ?\e$,1'7\e(B)
+ ("h|" ?\e$,1r#\e(B)
+ ("i" ?\e$,1'9\e(B)
+ ("j" ?\e$,1'8\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)
+ ("q" ?\e$,1'G\e(B)
+ ("r" ?\e$,1'A\e(B)
+ ("s" ?\e$,1'C\e(B)
+ ("t" ?\e$,1'D\e(B)
+ ("u" ?\e$,1'E\e(B)
+ ("w" ?\e$,1'I\e(B)
+ ("w|" ?\e$,1rS\e(B)
+ ("x" ?\e$,1'>\e(B)
+ ("y" ?\e$,1'H\e(B)
+ ("z" ?\e$,1'6\e(B)
+
+ ("<i" ?\e$,1pQ\e(B)
+ (">i" ?\e$,1pP\e(B)
+ ("'i" ?\e$,1q7\e(B)
+ ("<`i" ?\e$,1pU\e(B)
+ (">'i" ?\e$,1pT\e(B)
+ ("`i" ?\e$,1q6\e(B)
+ ("<`i" ?\e$,1pS\e(B)
+ (">'i" ?\e$,1pR\e(B)
+ ("~i" ?\e$,1r6\e(B)
+ ("<~i" ?\e$,1pW\e(B)
+ (">'i" ?\e$,1pV\e(B)
+ ("\"i" ?\e$,1'J\e(B)
+ ("\"'i" ?\e$,1r3\e(B)
+ ("\"`i" ?\e$,1r2\e(B)
+
+ ("<~" ?\e$,1r?\e(B)
+ (">~" ?\e$,1r/\e(B)
+ ("<`" ?\e$,1r>\e(B)
+ (">'" ?\e$,1r.\e(B)
+ ("<`" ?\e$,1r=\e(B)
+ (">`" ?\e$,1r-\e(B)
+ ("\"'" ?\e$,1rN\e(B)
+ ("\"`" ?\e$,1rM\e(B)
+
+ ("<e" ?\e$,1p1\e(B)
+ (">e" ?\e$,1p0\e(B)
+ ("'e" ?\e$,1q3\e(B)
+ ("<'e" ?\e$,1p5\e(B)
+ (">'e" ?\e$,1p4\e(B)
+ ("`e" ?\e$,1q2\e(B)
+ ("<`e" ?\e$,1p3\e(B)
+ (">`e" ?\e$,1p2\e(B)
+
+ ("<a" ?\e$,1p!\e(B)
+ (">a" ?\e$,1p \e(B)
+ ("'a" ?\e$,1q1\e(B)
+ ("<'a" ?\e$,1p%\e(B)
+ (">'a" ?\e$,1p$\e(B)
+ ("`a" ?\e$,1q0\e(B)
+ ("<`a" ?\e$,1p#\e(B)
+ (">`a" ?\e$,1p"\e(B)
+ ("~a" ?\e$,1qv\e(B)
+ ("<~a" ?\e$,1p'\e(B)
+ (">~a" ?\e$,1p&\e(B)
+
+ ("<a|" ?\e$,1qA\e(B)
+ (">a|" ?\e$,1q@\e(B)
+ ("'a|" ?\e$,1qt\e(B)
+ ("<'a|" ?\e$,1qE\e(B)
+ (">'a|" ?\e$,1qD\e(B)
+ ("`a|" ?\e$,1qr\e(B)
+ ("<`a|" ?\e$,1qC\e(B)
+ (">`a|" ?\e$,1qB\e(B)
+ ("~a|" ?\e$,1qw\e(B)
+ ("<~a|" ?\e$,1qG\e(B)
+ (">~a|" ?\e$,1qF\e(B)
+
+ ("<r" ?\e$,1rE\e(B)
+ (">r" ?\e$,1rD\e(B)
+
+ ("<h" ?\e$,1pA\e(B)
+ (">h" ?\e$,1p@\e(B)
+ ("'h" ?\e$,1q5\e(B)
+ ("<'h" ?\e$,1pE\e(B)
+ (">'h" ?\e$,1pD\e(B)
+ ("`h" ?\e$,1q4\e(B)
+ ("<`h" ?\e$,1pC\e(B)
+ (">`h" ?\e$,1pB\e(B)
+ ("~h" ?\e$,1r&\e(B)
+ ("<~h" ?\e$,1pG\e(B)
+ (">~h" ?\e$,1pF\e(B)
+
+ ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("<h|" ?\e$,1qQ\e(B)
+ (">h|" ?\e$,1qP\e(B)
+ ("'h|" ?\e$,1r$\e(B)
+ ("<'h|" ?\e$,1qU\e(B)
+ (">'h|" ?\e$,1qT\e(B)
+ ("`h|" ?\e$,1r"\e(B)
+ ("<`h|" ?\e$,1qS\e(B)
+ (">`h|" ?\e$,1qR\e(B)
+ ("~h|" ?\e$,1r'\e(B)
+ ("<~h|" ?\e$,1qW\e(B)
+ (">~h|" ?\e$,1qV\e(B)
+
+ ("<o" ?\e$,1pa\e(B)
+ (">o" ?\e$,1p`\e(B)
+ ("'o" ?\e$,1q9\e(B)
+ ("<'o" ?\e$,1pe\e(B)
+ (">'o" ?\e$,1pd\e(B)
+ ("`o" ?\e$,1q8\e(B)
+ ("<`o" ?\e$,1pc\e(B)
+ (">`o" ?\e$,1pb\e(B)
+
+ ("<u" ?\e$,1pq\e(B)
+ (">u" ?\e$,1pp\e(B)
+ ("'u" ?\e$,1q;\e(B)
+ ("<'u" ?\e$,1pu\e(B)
+ (">'u" ?\e$,1pt\e(B)
+ ("`u" ?\e$,1q:\e(B)
+ ("<`u" ?\e$,1ps\e(B)
+ (">`u" ?\e$,1pr\e(B)
+ ("~u" ?\e$,1rF\e(B)
+ ("<~u" ?\e$,1pw\e(B)
+ (">~u" ?\e$,1pv\e(B)
+ ("\"u" ?\e$,1'K\e(B)
+ ("\"'u" ?\e$,1rC\e(B)
+ ("`\"u" ?\e$,1rB\e(B)
+
+ ("<w" ?\e$,1q!\e(B)
+ (">w" ?\e$,1q \e(B)
+ ("'w" ?\e$,1q=\e(B)
+ ("<'w" ?\e$,1q%\e(B)
+ (">'w" ?\e$,1q$\e(B)
+ ("`w" ?\e$,1q<\e(B)
+ ("<`w" ?\e$,1q#\e(B)
+ (">`w" ?\e$,1q"\e(B)
+ ("~w" ?\e$,1rV\e(B)
+ ("<~w" ?\e$,1q'\e(B)
+ (">~w" ?\e$,1q&\e(B)
+
+ ("<w|" ?\e$,1qa\e(B)
+ (">w|" ?\e$,1q`\e(B)
+ ("'w|" ?\e$,1rT\e(B)
+ ("<'w|" ?\e$,1qe\e(B)
+ (">'w|" ?\e$,1qd\e(B)
+ ("`w|" ?\e$,1rR\e(B)
+ ("<`w|" ?\e$,1qc\e(B)
+ (">`w|" ?\e$,1qb\e(B)
+ ("~w|" ?\e$,1rW\e(B)
+ ("<~w|" ?\e$,1qg\e(B)
+ (">~w|" ?\e$,1qf\e(B)
+ )
+
+;;
+
(quail-define-package "greek-ibycus4" "Greek" "IB" t
"The Ibycus4 input method for Classical Greek using mule-unicode-0100-24ff."
nil t t nil nil nil nil nil nil nil t)
HCoop / bpt / emacs.git / blobdiff