("greek-babel"): New input method. From David

Kastrup <David.Kastrup@neuroinformatik.ruhr-uni-bochum.de>.

diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index 9e711dee8ae7dc9d0aba644f808b33d8bed75d9f..526e6113d7f353e7ac237705854e8a42364d01ad 100644 (file)
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -1,4 +1,4 @@
-;;; 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.
@@ -416,6 +416,268 @@ nil t t nil nil nil nil nil nil nil t)
 
 ;;
 
+(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)