comparison leim/quail/greek.el @ 39877:2ebf10c960af

("greek-babel"): New input method. From David Kastrup <[e-mail]>.

39876:3b0e47788d6e

;;; greek.el --- Quail package for inputting Greek

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

;; Keywords: multilingual, input method, Greek

 ("wJ^"  ?$,1rW(B) ("wJ\\" ?$,1rW(B)
 ("wJ^`"  ?$,1qg(B) ("wJ^V"  ?$,1qg(B) ("wJ\\`" ?$,1qg(B) ("wJ\\V" ?$,1qg(B)
 ("wJ`^"  ?$,1qg(B) ("wJV^"  ?$,1qg(B) ("wJ`\\" ?$,1qg(B) ("wJV\\" ?$,1qg(B)
 ("wJ^'"  ?$,1qf(B) ("wJ^v"  ?$,1qf(B) ("wJ\\'" ?$,1qf(B) ("wJ\\v" ?$,1qf(B)
 ("wJ'^"  ?$,1qf(B) ("wJv^"  ?$,1qf(B) ("wJ'\\" ?$,1qf(B) ("wJv\\" ?$,1qf(B)
 )

;;

(quail-define-package "greek-ibycus4" "Greek" "IB" t

39877:2ebf10c960af

;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*-

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

;; Keywords: multilingual, input method, Greek

 ("wJ^"  ?$,1rW(B) ("wJ\\" ?$,1rW(B)
 ("wJ^`"  ?$,1qg(B) ("wJ^V"  ?$,1qg(B) ("wJ\\`" ?$,1qg(B) ("wJ\\V" ?$,1qg(B)
 ("wJ`^"  ?$,1qg(B) ("wJV^"  ?$,1qg(B) ("wJ`\\" ?$,1qg(B) ("wJV\\" ?$,1qg(B)
 ("wJ^'"  ?$,1qf(B) ("wJ^v"  ?$,1qf(B) ("wJ\\'" ?$,1qf(B) ("wJ\\v" ?$,1qf(B)
 ("wJ'^"  ?$,1qf(B) ("wJv^"  ?$,1qf(B) ("wJ'\\" ?$,1qf(B) ("wJv\\" ?$,1qf(B)
 )

;;

(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