# HG changeset patch # User Eli Zaretskii # Date 1002973064 0 # Node ID 2ebf10c960af9859d385a6f8d99ce16862358e77 # Parent 3b0e47788d6e87f0de45a69c1cdf2285b03b850c ("greek-babel"): New input method. From David Kastrup . diff -r 3b0e47788d6e -r 2ebf10c960af leim/quail/greek.el --- a/leim/quail/greek.el Sat Oct 13 10:45:31 2001 +0000 +++ b/leim/quail/greek.el Sat Oct 13 11:37:44 2001 +0000 @@ -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 @@ ;; +(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" ?$,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" ?$,1p0(B) + ("'e" ?$,1q3(B) + ("<'e" ?$,1p5(B) + (">'e" ?$,1p4(B) + ("`e" ?$,1q2(B) + ("<`e" ?$,1p3(B) + (">`e" ?$,1p2(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|" ?$,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" ?$,1rD(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|" ?$,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" ?$,1p`(B) + ("'o" ?$,1q9(B) + ("<'o" ?$,1pe(B) + (">'o" ?$,1pd(B) + ("`o" ?$,1q8(B) + ("<`o" ?$,1pc(B) + (">`o" ?$,1pb(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" ?$,1rV(B) + ("<~w" ?$,1q'(B) + (">~w" ?$,1q&(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)