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

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

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
+
+ ("!" ?$,1'a(B) ; sampi
+ ("#" ?$,1'\(B) ; DIGAMMA
+ ("$" ?$,1'[(B) ; stigma
+ ("%" ?$,1'_(B) ; koppa
+ ("&" ?$,1'^(B) ; KOPPA
+ (">" ?$,1q(B) ; psili
+ ("'" ?$,1r](B) ; oxia
+ (";" ?$,1&g(B) ; ano teleia
+ ("?" ?$,1&^(B) ; erotimatiko
+ ("\"" ?,A((B) ; dialytika
+ ("|" ?$,1&Z(B) ; ypogegrammeni
+
+ ("A" ?$,1&q(B)
+ ("B" ?$,1&r(B)
+ ("D" ?$,1&t(B)
+ ("E" ?$,1&u(B)
+ ("F" ?$,1'&(B)
+ ("G" ?$,1&s(B)
+ ("H" ?$,1&w(B)
+ ("I" ?$,1&y(B)
+ ("J" ?$,1&x(B)
+ ("K" ?$,1&z(B)
+ ("L" ?$,1&{(B)
+ ("M" ?$,1&|(B)
+ ("N" ?$,1&}(B)
+ ("O" ?$,1&(B)
+ ("P" ?$,1' (B)
+ ("Q" ?$,1''(B)
+ ("R" ?$,1'!(B)
+ ("S" ?$,1'#(B)
+ ("T" ?$,1'$(B)
+ ("U" ?$,1'%(B)
+ ("W" ?$,1')(B)
+ ("X" ?$,1&~(B)
+ ("Y" ?$,1'((B)
+ ("Z" ?$,1&v(B)
+ ("`" ?$,1rO(B) ; varia
+ ("~" ?$,1r (B) ; perispomeni
+
+ ("<" ?$,1r^(B) ; dasia
+ ("a" ?$,1'1(B)
+ ("a|" ?$,1qs(B)
+ ("b" ?$,1'2(B)
+ ("c" ?$,1'B(B)
+ ("d" ?$,1'4(B)
+ ("e" ?$,1'5(B)
+ ("f" ?$,1'F(B)
+ ("g" ?$,1'3(B)
+ ("h" ?$,1'7(B)
+ ("h|" ?$,1r#(B)
+ ("i" ?$,1'9(B)
+ ("j" ?$,1'8(B)
+ ("k" ?$,1':(B)
+ ("l" ?$,1';(B)
+ ("m" ?$,1'<(B)
+ ("n" ?$,1'=(B)
+ ("o" ?$,1'?(B)
+ ("p" ?$,1'@(B)
+ ("q" ?$,1'G(B)
+ ("r" ?$,1'A(B)
+ ("s" ?$,1'C(B)
+ ("t" ?$,1'D(B)
+ ("u" ?$,1'E(B)
+ ("w" ?$,1'I(B)
+ ("w|" ?$,1rS(B)
+ ("x" ?$,1'>(B)
+ ("y" ?$,1'H(B)
+ ("z" ?$,1'6(B)
+
+ ("<i" ?$,1pQ(B)
+ (">i" ?$,1pP(B)
+ ("'i" ?$,1q7(B)
+ ("<`i" ?$,1pU(B)
+ (">'i" ?$,1pT(B)
+ ("`i" ?$,1q6(B)
+ ("<`i" ?$,1pS(B)
+ (">'i" ?$,1pR(B)
+ ("~i"  ?$,1r6(B)
+ ("<~i"  ?$,1pW(B)
+ (">'i"  ?$,1pV(B)
+ ("\"i" ?$,1'J(B)
+ ("\"'i" ?$,1r3(B)
+ ("\"`i" ?$,1r2(B)
+
+ ("<~"  ?$,1r?(B)
+ (">~"  ?$,1r/(B)
+ ("<`" ?$,1r>(B)
+ (">'" ?$,1r.(B)
+ ("<`" ?$,1r=(B)
+ (">`" ?$,1r-(B)
+ ("\"'" ?$,1rN(B)
+ ("\"`" ?$,1rM(B)
+
+ ("<e" ?$,1p1(B)
+ (">e" ?$,1p0(B)
+ ("'e" ?$,1q3(B)
+ ("<'e" ?$,1p5(B)
+ (">'e" ?$,1p4(B)
+ ("`e" ?$,1q2(B)
+ ("<`e" ?$,1p3(B)
+ (">`e" ?$,1p2(B)
+
+ ("<a" ?$,1p!(B)
+ (">a" ?$,1p (B)
+ ("'a" ?$,1q1(B)
+ ("<'a" ?$,1p%(B)
+ (">'a" ?$,1p$(B)
+ ("`a" ?$,1q0(B)
+ ("<`a" ?$,1p#(B)
+ (">`a" ?$,1p"(B)
+ ("~a"  ?$,1qv(B)
+ ("<~a"  ?$,1p'(B)
+ (">~a"  ?$,1p&(B)
+
+ ("<a|" ?$,1qA(B)
+ (">a|" ?$,1q@(B)
+ ("'a|" ?$,1qt(B)
+ ("<'a|" ?$,1qE(B)
+ (">'a|" ?$,1qD(B)
+ ("`a|" ?$,1qr(B)
+ ("<`a|" ?$,1qC(B)
+ (">`a|" ?$,1qB(B)
+ ("~a|"  ?$,1qw(B)
+ ("<~a|"  ?$,1qG(B)
+ (">~a|"  ?$,1qF(B)
+
+ ("<r" ?$,1rE(B)
+ (">r" ?$,1rD(B)
+
+ ("<h" ?$,1pA(B)
+ (">h" ?$,1p@(B)
+ ("'h" ?$,1q5(B)
+ ("<'h" ?$,1pE(B)
+ (">'h" ?$,1pD(B)
+ ("`h" ?$,1q4(B)
+ ("<`h" ?$,1pC(B)
+ (">`h" ?$,1pB(B)
+ ("~h"  ?$,1r&(B)
+ ("<~h"  ?$,1pG(B)
+ (">~h"  ?$,1pF(B)
+
+ ("|" ?$,1&Z(B) ; ypogegrammeni
+
+ ("<h|" ?$,1qQ(B)
+ (">h|" ?$,1qP(B)
+ ("'h|" ?$,1r$(B)
+ ("<'h|" ?$,1qU(B)
+ (">'h|" ?$,1qT(B)
+ ("`h|" ?$,1r"(B)
+ ("<`h|" ?$,1qS(B)
+ (">`h|" ?$,1qR(B)
+ ("~h|"  ?$,1r'(B)
+ ("<~h|"  ?$,1qW(B)
+ (">~h|"  ?$,1qV(B)
+
+ ("<o" ?$,1pa(B)
+ (">o" ?$,1p`(B)
+ ("'o" ?$,1q9(B)
+ ("<'o" ?$,1pe(B)
+ (">'o" ?$,1pd(B)
+ ("`o" ?$,1q8(B)
+ ("<`o" ?$,1pc(B)
+ (">`o" ?$,1pb(B)
+
+ ("<u"   ?$,1pq(B)
+ (">u"   ?$,1pp(B)
+ ("'u"   ?$,1q;(B)
+ ("<'u"  ?$,1pu(B)
+ (">'u"  ?$,1pt(B)
+ ("`u"   ?$,1q:(B)
+ ("<`u"  ?$,1ps(B)
+ (">`u"  ?$,1pr(B)
+ ("~u"   ?$,1rF(B)
+ ("<~u"  ?$,1pw(B)
+ (">~u"  ?$,1pv(B)
+ ("\"u"  ?$,1'K(B)
+ ("\"'u" ?$,1rC(B)
+ ("`\"u" ?$,1rB(B)
+
+ ("<w"  ?$,1q!(B)
+ (">w"  ?$,1q (B)
+ ("'w"  ?$,1q=(B)
+ ("<'w" ?$,1q%(B)
+ (">'w" ?$,1q$(B)
+ ("`w"  ?$,1q<(B)
+ ("<`w" ?$,1q#(B)
+ (">`w" ?$,1q"(B)
+ ("~w"  ?$,1rV(B)
+ ("<~w" ?$,1q'(B)
+ (">~w" ?$,1q&(B)
+
+ ("<w|"	 ?$,1qa(B)
+ (">w|"	 ?$,1q`(B)
+ ("'w|"	 ?$,1rT(B)
+ ("<'w|" ?$,1qe(B)
+ (">'w|" ?$,1qd(B)
+ ("`w|"  ?$,1rR(B)
+ ("<`w|" ?$,1qc(B)
+ (">`w|" ?$,1qb(B)
+ ("~w|"	 ?$,1rW(B)
+ ("<~w|" ?$,1qg(B)
+ (">~w|" ?$,1qf(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)