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

;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;;   2006, 2007, 2008, 2009, 2010, 2011
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021

;; Keywords: multilingual, input method, Greek

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:

(require 'quail)

(quail-define-package
 "greek-jis" "Greek" "Ω" nil
 "Ελληνικα: Greek keyboard layout (JIS X0208.1983)

The layout is same as greek, but uses JIS characters.
Sorry, accents and terminal sigma are not supported in JIS."
 nil t t t t nil nil nil nil nil t)

(quail-define-rules
 ("1" ?１)
 ("2" ?２)
 ("3" ?３)
 ("4" ?４)
 ("5" ?５)
 ("6" ?６)
 ("7" ?７)
 ("8" ?８)
 ("9" ?９)
 ("0" ?０)
 ("-" ?−)
 ("=" ?＝)
 ("`" ?‘)
 ("q" ?・)
 ("w" ?σ)
 ("e" ?ε)
 ("r" ?ρ)
 ("t" ?τ)
 ("y" ?υ)
 ("u" ?θ)
 ("i" ?ι)
 ("o" ?ο)
 ("p" ?π)
 ("[" ?\［)
 ("]" ?\］)
 ("a" ?α)
 ("s" ?σ)
 ("d" ?δ)
 ("f" ?φ)
 ("g" ?γ)
 ("h" ?η)
 ("j" ?ξ)
 ("k" ?κ)
 ("l" ?λ)
 (";" ?’)
 ("'" ?’)
 ("\\" ?＼)
 ("z" ?ζ)
 ("x" ?χ)
 ("c" ?ψ)
 ("v" ?ω)
 ("b" ?β)
 ("n" ?ν)
 ("m" ?μ)
 ("," ?, )
 ("." ?. )
 ("/" ?／)

 ("!" ?！)
 ("@" ?＠)
 ("#" ?＃)
 ("$" ?＃)
 ("%" ?％)
 ("^" ?＾)
 ("&" ?＆)
 ("*" ?＊)
 ("(" ?\（)
 (")" ?\）)
 ("_" ?＿)
 ("+" ?＋)
 ("~" ?￣)
 ("Q" ?−)
 ("W" ?Σ)
 ("E" ?Ε)
 ("R" ?Ρ)
 ("T" ?Τ)
 ("Y" ?Υ)
 ("U" ?Θ)
 ("I" ?Ι)
 ("O" ?Ο)
 ("P" ?Ρ)
 ("{" ?\｛)
 ("}" ?\｝)
 ("A" ?Α)
 ("S" ?Σ)
 ("D" ?Δ)
 ("F" ?Φ)
 ("G" ?Γ)
 ("H" ?Η)
 ("J" ?Ξ)
 ("K" ?Κ)
 ("L" ?Λ)
 (":" ?”)
 ("\"" ?”)
 ("|" ?｜)
 ("Z" ?Ζ)
 ("X" ?Χ)
 ("C" ?Ψ)
 ("V" ?Ω)
 ("B" ?Β)
 ("N" ?Ν)
 ("M" ?Μ)
 ("<" ?；)
 (">" ?：)
 ("?" ?？))

;;

(quail-define-package "greek-mizuochi" "Greek" "CG" t
"The Mizuochi 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		Q		q
iota		I		i
kappa		K		k
lambda		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			j
tau		T		t
upsilon		U		u
phi		F		f
chi		C		c
psi		Y		y
omega		W		w
-------------------------------------
sampi				!
digamma		#
stigma				$
koppa		&		%
-------------------------------------

------------------------
mark		key
------------------------
ypogegrammeni	J
psili		'  or  v
dasia		`  or  V
oxia		/
varia		?
perispomeni	\\  or  ^
dialytika	\"
ano teleia	:
erotimatiko	;
----------------------
"
nil t t nil nil nil nil nil nil nil t)

(quail-define-rules

 ("!" ?�) ; sampi
 ("#" ?�) ; DIGAMMA
 ("$" ?�) ; stigma
 ("%" ?�) ; koppa
 ("&" ?�) ; KOPPA
 ("'" ?�) ("v" ?�) ; psili
 ("/" ?�) ; oxia
 (":" ?�) ; ano teleia
 (";" ?�) ; erotimatiko
 ("\"" ?,A() ; dialytika

 ("A" ?�)
 ("B" ?�)
 ("C" ?�)
 ("D" ?�)
 ("E" ?�)
 ("F" ?�)
 ("G" ?�)
 ("H" ?�)
 ("I" ?�)
 ("wJ" ?�)
 ("K" ?�)
 ("L" ?�)
 ("M" ?�)
 ("N" ?�)
 ("O" ?�)

 ("P" ?�)
 ("Q" ?�)
 ("R" ?�)
 ("S" ?�)
 ("T" ?�)
 ("U" ?�)
 ("hJ" ?�)
 ("W" ?�)
 ("X" ?�)
 ("Y" ?�)
 ("Z" ?�)
 ("?" ?�) ; varia
 ("\\" ?�) ("^" ?�) ; perispomeni

 ("`" ?�) ("V" ?�) ; dasia
 ("a" ?�)
 ("b" ?�)
 ("c" ?�)
 ("d" ?�)
 ("e" ?�)
 ("f" ?�)
 ("g" ?�)
 ("h" ?�)
 ("i" ?�)
 ("j" ?�)
 ("k" ?�)
 ("l" ?�)
 ("m" ?�)
 ("n" ?�)
 ("o" ?�)

 ("p" ?�)
 ("q" ?�)
 ("r" ?�)
 ("s" ?�)
 ("t" ?�)
 ("u" ?�)
 ("aJ" ?�)
 ("w" ?�)
 ("x" ?�)
 ("y" ?�)
 ("z" ?�)

 ("i`" ?�) ("iV" ?�)
 ("i'" ?�) ("iv" ?�)
 ("i/" ?�)
 ("i`/" ?�) ("iV/" ?�) ("i/`" ?�) ("i/V" ?�)
 ("i'/" ?�) ("iv/" ?�) ("i/'" ?�) ("i/v" ?�)
 ("i?" ?�)
 ("i`?" ?�) ("iV?" ?�) ("i?`" ?�) ("i?V" ?�)
 ("i'?" ?�) ("iv?" ?�) ("i?'" ?�) ("i?v" ?�)
 ("i^"  ?�) ("i\\" ?�)
 ("i`^"  ?�) ("i`\\" ?�) ("iV^"  ?�) ("iV\\" ?�)
 ("i^`"  ?�) ("i\\`" ?�) ("i^V"  ?�) ("i\\V" ?�)
 ("i'^"  ?�) ("i'\\" ?�) ("iv^"  ?�) ("iv\\" ?�)
 ("i^'"  ?�) ("i\\'" ?�) ("i^v"  ?�) ("i\\v" ?�)
 ("i\"" ?�)
 ("i/\"" ?�) ("i\"/" ?�)
 ("i?\"" ?�) ("i\"?" ?�)

 ("^`"  ?�) ("^V"  ?�) ("\\`" ?�) ("\\V" ?�)
 ("`^"  ?�) ("V^"  ?�) ("`\\" ?�) ("V\\" ?�)
 ("^'"  ?�) ("^v"  ?�) ("\\'" ?�) ("\\v" ?�)
 ("'^"  ?�) ("v^"  ?�) ("'\\" ?�) ("v\\" ?�)
 ("/`" ?�) ("/V" ?�) ("`/" ?�) ("V/" ?�)
 ("/'" ?�) ("/v" ?�) ("'/" ?�) ("v/" ?�)
 ("?`" ?�) ("?V" ?�) ("`?" ?�) ("V?" ?�)
 ("?'" ?�) ("?v" ?�) ("'?" ?�) ("v?" ?�)
 ("\"/" ?�) ("/\"" ?�)
 ("\"?" ?�) ("?\"" ?�)

 ("e`" ?�) ("eV" ?�)
 ("e'" ?�) ("ev" ?�)
 ("e/" ?�)
 ("e/`" ?�) ("e/V" ?�) ("e`/" ?�) ("eV/" ?�)
 ("e/'" ?�) ("e/v" ?�) ("e'/" ?�) ("ev/" ?�)
 ("e?" ?�)
 ("e?`" ?�) ("e?V" ?�) ("e`?" ?�) ("eV?" ?�)
 ("e?'" ?�) ("e?v" ?�) ("e'?" ?�) ("ev?" ?�)

 ("a`" ?�) ("aV" ?�)
 ("a'" ?�) ("av" ?�)
 ("a/" ?�)
 ("a/`" ?�) ("a/V" ?�) ("a`/" ?�) ("aV/" ?�)
 ("a/'" ?�) ("a/v" ?�) ("a'/" ?�) ("av/" ?�)
 ("a?" ?�)
 ("a?`" ?�) ("a?V" ?�) ("a`?" ?�) ("aV?" ?�)
 ("a?'" ?�) ("a?v" ?�) ("a'?" ?�) ("av?" ?�)
 ("a^"  ?�) ("a\\" ?�)
 ("a^`"  ?�) ("a^V"  ?�) ("a\\`" ?�) ("a\\V" ?�)
 ("a`^"  ?�) ("aV^"  ?�) ("a`\\" ?�) ("aV\\" ?�)
 ("a^'"  ?�) ("a^v"  ?�) ("a\\'" ?�) ("a\\v" ?�)
 ("a'^"  ?�) ("av^"  ?�) ("a'\\" ?�) ("av\\" ?�)

 ("aJ`" ?�) ("aJV" ?�)
 ("aJ'" ?�) ("aJv" ?�)
 ("aJ/" ?�)
 ("aJ/`" ?�) ("aJ/V" ?�) ("aJ`/" ?�) ("aJV/" ?�)
 ("aJ/'" ?�) ("aJ/v" ?�) ("aJ'/" ?�) ("aJv/" ?�)
 ("aJ?" ?�)
 ("aJ?`" ?�) ("aJ?V" ?�) ("aJ`?" ?�) ("aJV?" ?�)
 ("aJ?'" ?�) ("aJ?v" ?�) ("aJ'?" ?�) ("aJv?" ?�)
 ("aJ^"  ?�) ("aJ\\" ?�)
 ("aJ^`"  ?�) ("aJ^V"  ?�) ("aJ\\`" ?�) ("aJ\\V" ?�)
 ("aJ`^"  ?�) ("aJV^"  ?�) ("aJ`\\" ?�) ("aJV\\" ?�)
 ("aJ^'"  ?�) ("aJ^v"  ?�) ("aJ\\'" ?�) ("aJ\\v" ?�)
 ("aJ'^"  ?�) ("aJv^"  ?�) ("aJ'\\" ?�) ("aJv\\" ?�)

 ("r`" ?�) ("rV" ?�)
 ("r'" ?�) ("rv" ?�)

 ("h`" ?�) ("hV" ?�)
 ("h'" ?�) ("hv" ?�)
 ("h/" ?�)
 ("h/`" ?�) ("h/V" ?�) ("h`/" ?�) ("hV/" ?�)
 ("h/'" ?�) ("h/v" ?�) ("h'/" ?�) ("hv/" ?�)
 ("h?" ?�)
 ("h?`" ?�) ("h?V" ?�) ("h`?" ?�) ("hV?" ?�)
 ("h?'" ?�) ("h?v" ?�) ("h'?" ?�) ("hv?" ?�)
 ("h^"  ?�) ("h\\" ?�)
 ("h^`"  ?�) ("h^V"  ?�) ("h\\`" ?�) ("h\\V" ?�)
 ("h`^"  ?�) ("h`\\" ?�) ("hV^"  ?�) ("hV\\" ?�)
 ("h^'"  ?�) ("h^v"  ?�) ("h\\'" ?�) ("h\\v" ?�)
 ("h'^"  ?�) ("h'\\" ?�) ("hv^"  ?�) ("hv\\" ?�)

 ("J" ?�) ; ypogegrammeni

 ("hJ`" ?�) ("hJV" ?�)
 ("hJ'" ?�) ("hJv" ?�)
 ("hJ/" ?�)
 ("hJ`/" ?�) ("hJV/" ?�) ("hJ/`" ?�) ("hJ/V" ?�)
 ("hJ'/" ?�) ("hJv/" ?�) ("hJ/'" ?�) ("hJ/v" ?�)
 ("hJ?" ?�)
 ("hJ`?" ?�) ("hJV?" ?�) ("hJ?`" ?�) ("hJ?V" ?�)
 ("hJ'?" ?�) ("hJv?" ?�) ("hJ?'" ?�) ("hJ?v" ?�)
 ("hJ^"  ?�) ("hJ\\" ?�)
 ("hJ`^"  ?�) ("hJ`\\" ?�) ("hJV^"  ?�) ("hJV\\" ?�)
 ("hJ^`"  ?�) ("hJ\\`" ?�) ("hJ^V"  ?�) ("hJ\\V" ?�)
 ("hJ'^"  ?�) ("hJ'\\" ?�) ("hJv^"  ?�) ("hJv\\" ?�)
 ("hJ^'"  ?�) ("hJ\\'" ?�) ("hJ^v"  ?�) ("hJ\\v" ?�)

 ("o`" ?�) ("oV" ?�)
 ("o'" ?�) ("ov" ?�)
 ("o/" ?�)
 ("o/`" ?�) ("o/V" ?�) ("o`/" ?�) ("oV/" ?�)
 ("o/'" ?�) ("o/v" ?�) ("o'/" ?�) ("ov/" ?�)
 ("o?" ?�)
 ("o?`" ?�) ("o?V" ?�) ("o`?" ?�) ("oV?" ?�)
 ("o?'" ?�) ("o?v" ?�) ("o'?" ?�) ("ov?" ?�)

 ("u`" ?�) ("uV" ?�)
 ("u'" ?�) ("uv" ?�)
 ("u/" ?�)
 ("u/`" ?�) ("u/V" ?�) ("u`/" ?�) ("uV/" ?�)
 ("u/'" ?�) ("u/v" ?�) ("u'/" ?�) ("uv/" ?�)
 ("u?" ?�)
 ("u?`" ?�) ("u?V" ?�) ("u`?" ?�) ("uV?" ?�)
 ("u?'" ?�) ("u?v" ?�) ("u'?" ?�) ("uv?" ?�)
 ("u^"  ?�) ("u\\" ?�)
 ("u^`"  ?�) ("u^V"  ?�) ("u\\`" ?�) ("u\\V" ?�)
 ("u`^"  ?�) ("uV^"  ?�) ("u`\\" ?�) ("uV\\" ?�)
 ("u^'"  ?�) ("u^v"  ?�) ("u\\'" ?�) ("u\\v" ?�)
 ("u'^"  ?�) ("uv^"  ?�) ("u'\\" ?�) ("uv\\" ?�)
 ("u\"" ?�)
 ("u\"/" ?�) ("u/\"" ?�)
 ("u\"?" ?�) ("u?\"" ?�)

 ("w`" ?�) ("wV" ?�)
 ("w'" ?�) ("wv" ?�)
 ("w/" ?�)
 ("w/`" ?�) ("w/V" ?�) ("w`/" ?�) ("wV/" ?�)
 ("w/'" ?�) ("w/v" ?�) ("w'/" ?�) ("wv/" ?�)
 ("w?" ?�)
 ("w?`" ?�) ("w?V" ?�) ("w`?" ?�) ("wV?" ?�)
 ("w?'" ?�) ("w?v" ?�) ("w'?" ?�) ("wv?" ?�)
 ("w^"  ?�) ("w\\" ?�)
 ("w^`"  ?�) ("w^V"  ?�) ("w\\`" ?�) ("w\\V" ?�)
 ("w`^"  ?�) ("wV^"  ?�) ("w`\\" ?�) ("wV\\" ?�)
 ("w^'"  ?�) ("w^v"  ?�) ("w\\'" ?�) ("w\\v" ?�)
 ("w'^"  ?�) ("wv^"  ?�) ("w'\\" ?�) ("wv\\" ?�)

 ("wJ`" ?�) ("wJV" ?�)
 ("wJ'" ?�) ("wJv" ?�)
 ("wJ/" ?�)
 ("wJ/`" ?�) ("wJ/V" ?�) ("wJ`/" ?�) ("wJV/" ?�)
 ("wJ/'" ?�) ("wJ/v" ?�) ("wJ'/" ?�) ("wJv/" ?�)
 ("wJ?" ?�)
 ("wJ?`" ?�) ("wJ?V" ?�) ("wJ`?" ?�) ("wJV?" ?�)
 ("wJ?'" ?�) ("wJ?v" ?�) ("wJ'?" ?�) ("wJv?" ?�)
 ("wJ^"  ?�) ("wJ\\" ?�)
 ("wJ^`"  ?�) ("wJ^V"  ?�) ("wJ\\`" ?�) ("wJ\\V" ?�)
 ("wJ`^"  ?�) ("wJV^"  ?�) ("wJ`\\" ?�) ("wJV\\" ?�)
 ("wJ^'"  ?�) ("wJ^v"  ?�) ("wJ\\'" ?�) ("wJ\\v" ?�)
 ("wJ'^"  ?�) ("wJv^"  ?�) ("wJ'\\" ?�) ("wJv\\" ?�)
 )

;;

(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
lambda		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		'
koronis         ''
varia		`
perispomeni	~
dialytika	\"
ano teleia	;
erotimatiko	?
----------------------
"
nil t t nil nil nil nil nil nil nil t)

(quail-define-rules

 ("!" ?�) ; sampi
 ("#" ?�) ; DIGAMMA
 ("$" ?�) ; stigma
 ("%" ?�) ; koppa
 ("&" ?�) ; KOPPA
 (">" ?�) ; psili
 ("'" ?�) ; oxia
 (";" ?�) ; ano teleia
 ("?" ?�) ; erotimatiko
 ("\"" ?,A() ; dialytika
 ("|" ?�) ; ypogegrammeni
 ("''" ?�) ; koronis
 ("((" ?,A+) ; #x00ab
 ("))" ?,A;) ; #x00bb

 ("A" ?�)
 ("A|" ?�)
 ("B" ?�)
 ("D" ?�)
 ("E" ?�)
 ("F" ?�)
 ("G" ?�)
 ("H" ?�)
 ("H|" ?�)
 ("I" ?�)
 ("J" ?�)
 ("K" ?�)
 ("L" ?�)
 ("M" ?�)
 ("N" ?�)
 ("O" ?�)
 ("P" ?�)
 ("Q" ?�)
 ("R" ?�)
 ("S" ?�)
 ("T" ?�)
 ("U" ?�)
 ("W" ?�)
 ("W|" ?�)
 ("X" ?�)
 ("Y" ?�)
 ("Z" ?�)
 ("`" ?�) ; varia
 ("~" ?�) ; perispomeni

 ("<" ?�) ; dasia
 ("a" ?�)
 ("a|" ?�)
 ("b" ?�)
 ("c" ?�)
 ("d" ?�)
 ("e" ?�)
 ("f" ?�)
 ("g" ?�)
 ("h" ?�)
 ("h|" ?�)
 ("i" ?�)
 ("j" ?�)
 ("k" ?�)
 ("l" ?�)
 ("m" ?�)
 ("n" ?�)
 ("o" ?�)
 ("p" ?�)
 ("q" ?�)
 ("r" ?�)
 ("s" ?�)
 ("t" ?�)
 ("u" ?�)
 ("w" ?�)
 ("w|" ?�)
 ("x" ?�)
 ("y" ?�)
 ("z" ?�)

 ("<i" ?�)
 (">i" ?�)
 ("'i" ?�)
 ("<'i" ?�)
 (">'i" ?�)
 ("`i" ?�)
 ("<`i" ?�)
 (">`i" ?�)
 ("~i"  ?�)
 ("<~i"  ?�)
 (">~i"  ?�)
 ("\"i" ?�)
 ("\"'i" ?�)
 ("\"`i" ?�)

 ("<I" ?�)
 (">I" ?�)
 ("'I" ?�)
 ("<'I" ?�)
 (">'I" ?�)
 ("`I" ?�)
 ("<`I" ?�)
 (">`I" ?�)
 ("<~I"  ?�)
 (">~I"  ?�)
 ("\"I" ?�)

 ("<~"  ?�)
 (">~"  ?�)
 ("<'" ?�)
 (">'" ?�)
 ("<`" ?�)
 (">`" ?�)
 ("\"'" ?�)
 ("\"`" ?�)

 ("<e" ?�)
 (">e" ?�)
 ("'e" ?�)
 ("<'e" ?�)
 (">'e" ?�)
 ("`e" ?�)
 ("<`e" ?�)
 (">`e" ?�)

 ("<E" ?�)
 (">E" ?�)
 ("'E" ?�)
 ("<'E" ?�)
 (">'E" ?�)
 ("`E" ?�)
 ("<`E" ?�)
 (">`E" ?�)

 ("<a" ?�)
 (">a" ?�)
 ("'a" ?�)
 ("<'a" ?�)
 (">'a" ?�)
 ("`a" ?�)
 ("<`a" ?�)
 (">`a" ?�)
 ("~a"  ?�)
 ("<~a"  ?�)
 (">~a"  ?�)

 ("<A" ?�)
 (">A" ?�)
 ("'A" ?�)
 ("<'A" ?�)
 (">'A" ?�)
 ("`A" ?�)
 ("<`A" ?�)
 (">`A" ?�)
 ("<~A"  ?�)
 (">~A"  ?�)

 ("<a|" ?�)
 (">a|" ?�)
 ("'a|" ?�)
 ("<'a|" ?�)
 (">'a|" ?�)
 ("`a|" ?�)
 ("<`a|" ?�)
 (">`a|" ?�)
 ("~a|"  ?�)
 ("<~a|"  ?�)
 (">~a|"  ?�)

 ("<A|" ?�)
 (">A|" ?�)
 ("<'A|" ?�)
 (">'A|" ?�)
 ("<`A|" ?�)
 (">`A|" ?�)
 ("<~A|"  ?�)
 (">~A|"  ?�)

 ("<r" ?�)
 (">r" ?�)

 ("<R" ?�)

 ("<h" ?�)
 (">h" ?�)
 ("'h" ?�)
 ("<'h" ?�)
 (">'h" ?�)
 ("`h" ?�)
 ("<`h" ?�)
 (">`h" ?�)
 ("~h"  ?�)
 ("<~h"  ?�)
 (">~h"  ?�)

 ("<H" ?�)
 (">H" ?�)
 ("'H" ?�)
 ("<'H" ?�)
 (">'H" ?�)
 ("`H" ?�)
 ("<`H" ?�)
 (">`H" ?�)
 ("<~H"  ?�)
 (">~H"  ?�)

 ("|" ?�) ; ypogegrammeni

 ("<h|" ?�)
 (">h|" ?�)
 ("'h|" ?�)
 ("<'h|" ?�)
 (">'h|" ?�)
 ("`h|" ?�)
 ("<`h|" ?�)
 (">`h|" ?�)
 ("~h|"  ?�)
 ("<~h|"  ?�)
 (">~h|"  ?�)

 ("<H|" ?�)
 (">H|" ?�)
 ("<'H|" ?�)
 (">'H|" ?�)
 ("<`H|" ?�)
 (">`H|" ?�)
 ("<~H|"  ?�)
 (">~H|"  ?�)

 ("<o" ?�)
 (">o" ?�)
 ("'o" ?�)
 ("<'o" ?�)
 (">'o" ?�)
 ("`o" ?�)
 ("<`o" ?�)
 (">`o" ?�)

 ("<O" ?�)
 (">O" ?�)
 ("'O" ?�)
 ("<'O" ?�)
 (">'O" ?�)
 ("`O" ?�)
 ("<`O" ?�)
 (">`O" ?�)

 ("<u"   ?�)
 (">u"   ?�)
 ("'u"   ?�)
 ("<'u"  ?�)
 (">'u"  ?�)
 ("`u"   ?�)
 ("<`u"  ?�)
 (">`u"  ?�)
 ("~u"   ?�)
 ("<~u"  ?�)
 (">~u"  ?�)
 ("\"u"  ?�)
 ("\"'u" ?�)
 ("`\"u" ?�)

 ("<U"   ?�)
 ("'U"   ?�)
 ("<'U"  ?�)
 ("`U"   ?�)
 ("<`U"  ?�)
 ("<~U"  ?�)
 ("\"U"  ?�)

 ("<w"  ?�)
 (">w"  ?�)
 ("'w"  ?�)
 ("<'w" ?�)
 (">'w" ?�)
 ("`w"  ?�)
 ("<`w" ?�)
 (">`w" ?�)
 ("~w"  ?�)
 ("<~w" ?�)
 (">~w" ?�)

 ("<W"  ?�)
 (">W"  ?�)
 ("'W"  ?�)
 ("<'W" ?�)
 (">'W" ?�)
 ("`W"  ?�)
 ("<`W" ?�)
 (">`W" ?�)
 ("<~W" ?�)
 (">~W" ?�)

 ("<w|"	 ?�)
 (">w|"	 ?�)
 ("'w|"	 ?�)
 ("<'w|" ?�)
 (">'w|" ?�)
 ("`w|"  ?�)
 ("<`w|" ?�)
 (">`w|" ?�)
 ("~w|"	 ?�)
 ("<~w|" ?�)
 (">~w|" ?�)

 ("<W|"	 ?�)
 (">W|"	 ?�)
 ("'W|"	 ?�)
 ("<'W|" ?�)
 (">'W|" ?�)
 ("<`W|" ?�)
 (">`W|" ?�)
 ("<~W|" ?�)
 (">~W|" ?�)
 )

;;

(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)

(quail-define-rules

 ("{((}" ?\() ("((" ?\() ; #x0028
 ("{))}" ?\)) ("))" ?\)) ; #x0029
 ("<<" ?,A+) ; #x00ab
 (">>" ?,A;) ; #x00bb

 ("-" ?�) ; #x2010
 ("---" ?�) ; #x2014
 ("||" ?�) ; #x2016
 ("{`}" ?�) ("`" ?�) ; #x2018
 ("{'}" ?�) ("'" ?�) ; #x2019
 ("{``}" ?�) ("``" ?�) ; #x201c
 ("{''}" ?�) ("''" ?�) ; #x201d
 ("{\\dag}" ?�) ("\\dag" ?�) ; #x2020
 ("{\\ddag}" ?�) ("\\ddag" ?�) ; #x2021
 ("<" ?�) ; #x2039
 (">" ?�) ; #x203a
 ("$\\leftarrow$" ?�) ; #x2190
 ("$\\rightarrow$" ?�) ; #x2192

 ("?" ?�) ; #x037e ; erotimatiko
 (";" ?�) ; #x0387 ; ano teleia
 ("|" ?�) ; #x037a ; ypogegrammeni

 ("A" ?�)
 ("B" ?�)
 ("G" ?�)
 ("D" ?�)
 ("E" ?�)
 ("Z" ?�)
 ("H" ?�)
 ("Q" ?�)
 ("I" ?�)
 ("K" ?�)
 ("L" ?�)
 ("M" ?�)
 ("N" ?�)
 ("C" ?�)
 ("O" ?�)
 ("P" ?�)
 ("R" ?�)
 ("S" ?�)
 ("T" ?�)
 ("U" ?�)
 ("F" ?�)
 ("X" ?�)
 ("Y" ?�)
 ("W" ?�)

 ("a" ?�)
 ("b" ?�)
 ("g" ?�)
 ("d" ?�)
 ("e" ?�)
 ("z" ?�)
 ("h" ?�)
 ("q" ?�)
 ("i" ?�)
 ("k" ?�)
 ("l" ?�)
 ("m" ?�)
 ("n" ?�)
 ("c" ?�)
 ("o" ?�)
 ("p" ?�)
 ("r" ?�)
 ("j" ?�) ("s " ["� "]) ("s," ["�,"]) ("s." ["�."]) ("s?" ["�&^"]) ("s;" ["�&g"])
 ("s|" ?�) ("s" ?�)
 ("t" ?�)
 ("u" ?�)
 ("f" ?�)
 ("x" ?�)
 ("y" ?�)
 ("w" ?�)

 ("i+" ?�)
 ("u+" ?�)
 ("V" ?�) ; DIGAMMA
 ("v" ?�) ; digamma
 ("K+" ?�) ; KOPPA
 ("k+" ?�) ; koppa
 ("S+" ?�) ; SAMPI
 ("s+" ?�) ; sampi
 ("c+" ?�) ; lunate sigma

 ("a)" ?�)
 ("a(" ?�)
 ("a)`" ?�)
 ("a(`" ?�)
 ("a)'" ?�)
 ("a('" ?�)
 ("a)=" ?�)
 ("a(=" ?�)

 (")A" ?�)
 ("(A" ?�)
 (")`A" ?�)
 ("(`A" ?�)
 (")'A" ?�)
 ("('A" ?�)
 (")=A" ?�)
 ("(=A" ?�)

 ("e)" ?�)
 ("e(" ?�)
 ("e)`" ?�)
 ("e(`" ?�)
 ("e)'" ?�)
 ("e('" ?�)

 (")E" ?�)
 ("(E" ?�)
 (")`E" ?�)
 ("(`E" ?�)
 (")'E" ?�)
 ("('E" ?�)

 ("h)" ?�)
 ("h(" ?�)
 ("h)`" ?�)
 ("h(`" ?�)
 ("h)'" ?�)
 ("h('" ?�)
 ("h)=" ?�)
 ("h(=" ?�)

 (")H" ?�)
 ("(H" ?�)
 (")`H" ?�)
 ("(`H" ?�)
 (")'H" ?�)
 ("('H" ?�)
 (")=H" ?�)
 ("(=H" ?�)

 ("i)" ?�)
 ("i(" ?�)
 ("i)`" ?�)
 ("i(`" ?�)
 ("i)'" ?�)
 ("i('" ?�)
 ("i)=" ?�)
 ("i(=" ?�)

 (")I" ?�)
 ("(I" ?�)
 (")`I" ?�)
 ("(`I" ?�)
 (")'I" ?�)
 ("('I" ?�)
 (")=I" ?�)
 ("(=I" ?�)

 ("o)" ?�)
 ("o(" ?�)
 ("o)`" ?�)
 ("o(`" ?�)
 ("o)'" ?�)
 ("o('" ?�)

 (")O" ?�)
 ("(O" ?�)
 (")`O" ?�)
 ("(`O" ?�)
 (")'O" ?�)
 ("('O" ?�)

 ("u)" ?�)
 ("u(" ?�)
 ("u)`" ?�)
 ("u(`" ?�)
 ("u)'" ?�)
 ("u('" ?�)
 ("u)=" ?�)
 ("u(=" ?�)

 ("(U" ?�)
 ("(`U" ?�)
 ("('U" ?�)
 ("(=U" ?�)

 ("w)" ?�)
 ("w(" ?�)
 ("w)`" ?�)
 ("w(`" ?�)
 ("w)'" ?�)
 ("w('" ?�)
 ("w)=" ?�)
 ("w(=" ?�)

 (")W" ?�)
 ("(W" ?�)
 (")`W" ?�)
 ("(`W" ?�)
 (")'W" ?�)
 ("('W" ?�)
 (")=W" ?�)
 ("(=W" ?�)

 ("a`" ?�)
 ("a'" ?�)
 ("e`" ?�)
 ("e'" ?�)
 ("h`" ?�)
 ("h'" ?�)
 ("i`" ?�)
 ("i'" ?�)
 ("o`" ?�)
 ("o'" ?�)
 ("u`" ?�)
 ("u'" ?�)
 ("w`" ?�)
 ("w'" ?�)

 ("a)|" ?�)
 ("a(|" ?�)
 ("a)`|" ?�)
 ("a(`|" ?�)
 ("a)'|" ?�)
 ("a('|" ?�)
 ("a)=|" ?�)
 ("a(=|" ?�)

 (")A|" ?�)
 ("(A|" ?�)
 (")`A|" ?�)
 ("(`A|" ?�)
 (")'A|" ?�)
 ("('A|" ?�)
 (")=A|" ?�)
 ("(=A|" ?�)

 ("h)|" ?�)
 ("h(|" ?�)
 ("h)`|" ?�)
 ("h(`|" ?�)
 ("h)'|" ?�)
 ("h('|" ?�)
 ("h)=|" ?�)
 ("h(=|" ?�)

 (")H|" ?�)
 ("(H|" ?�)
 (")`H|" ?�)
 ("(`H|" ?�)
 (")'H|" ?�)
 ("('H|" ?�)
 (")=H|" ?�)
 ("(=H|" ?�)

 ("w)|" ?�)
 ("w(|" ?�)
 ("w)`|" ?�)
 ("w(`|" ?�)
 ("w)'|" ?�)
 ("w('|" ?�)
 ("w)=|" ?�)
 ("w(=|" ?�)

 (")W|" ?�)
 ("(W|" ?�)
 (")`W|" ?�)
 ("(`W|" ?�)
 (")'W|" ?�)
 ("('W|" ?�)
 (")=W|" ?�)
 ("(=W|" ?�)

 ("a`|" ?�)
 ("a|" ?�)
 ("a'|" ?�)
 ("a=" ?�)
 ("a=|" ?�)

 ("`A" ?�)
 ("'A" ?�)
 ("A|" ?�)

 (")" ?�) ; #x1fbf ; psili
 ("=" ?�) ; #x1fc0 ; perispomeni
 ("+=" ?�) ; #x1fc1

 ("h`|" ?�)
 ("h|" ?�)
 ("h'|" ?�)
 ("h=" ?�)
 ("h=|" ?�)

 ("`E" ?�)
 ("'E" ?�)

 ("`H" ?�)
 ("'H" ?�)
 ("H|" ?�)

 (")`" ?�) ; #x1fcd
 (")'" ?�) ; #x1fce
 (")=" ?�) ; #x1fcf

 ("i+`" ?�)
 ("i+'" ?�)
 ("i=" ?�)
 ("i+=" ?�)

 ("`I" ?�)
 ("'I" ?�)

 ("(`" ?�) ; #x1fdd
 ("('" ?�) ; #x1fde
 ("(=" ?�) ; #x1fdf

 ("u+`" ?�)
 ("u+'" ?�)

 ("r)" ?�)
 ("r(" ?�)

 ("u=" ?�)
 ("u+=" ?�)

 ("`U" ?�)
 ("'U" ?�)

 ("`R" ?�)

 ("+`" ?�) ; #x1fed
 ("+'" ?�) ; #x1fee
 ("`" ?�) ; #x1fef ; varia

 ("w`|" ?�)
 ("w|" ?�)
 ("w'|" ?�)
 ("w=" ?�)
 ("w=|" ?�)

 ("`O" ?�)
 ("'O" ?�)

 ("`W" ?�)
 ("'W" ?�)
 ("W|" ?�)

 ("'" ?�) ; #x1ffd ; oxia
 ("(" ?�) ;  #x1ffe ; dasia
)

;;

(quail-define-package
 "greek" "Greek" ",FY" nil
 ",FEkkgmij\: Greek keyboard layout (ISO 8859-7)
--------------

In the right of ,Fk key is a combination key, where
 ,F4 acute
 ,F( diaeresis

e.g.
 ,F4 + ,Fa -> ,F\
 ,F( + ,Fi -> ,Fz
 ,F( + ,F4 + ,Fi -> ,F@"
 nil t t t t nil nil nil nil nil t)

;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
;;  ;:  ,FrS  ,FeE  ,FqQ  ,FtT  ,FuU  ,FhH  ,FiI  ,FoO  ,FpP  [{  ]}
;;   ,FaA  ,FsS  ,FdD  ,FvV  ,FcC  ,FgG  ,FnN  ,FjJ  ,FkK  ,F4(  '"  \|
;;    ,FfF  ,FwW  ,FxX  ,FyY  ,FbB  ,FmM  ,FlL  ,<  .>  /?

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?-)
 ("=" ?=)
 ("`" ?`)
 ("q" ?\;)
 ("w" ?,Fr)
 ("e" ?,Fe)
 ("r" ?,Fq)
 ("t" ?,Ft)
 ("y" ?,Fu)
 ("u" ?,Fh)
 ("i" ?,Fi)
 ("o" ?,Fo)
 ("p" ?,Fp)
 ("[" ?\[)
 ("]" ?\])
 ("a" ?,Fa)
 ("s" ?,Fs)
 ("d" ?,Fd)
 ("f" ?,Fv)
 ("g" ?,Fc)
 ("h" ?,Fg)
 ("j" ?,Fn)
 ("k" ?,Fj)
 ("l" ?,Fk)
 (";" ?,F4)
 ("'" ?')
 ("\\" ?\\)
 ("z" ?,Ff)
 ("x" ?,Fw)
 ("c" ?,Fx)
 ("v" ?,Fy)
 ("b" ?,Fb)
 ("n" ?,Fm)
 ("m" ?,Fl)
 ("," ?,)
 ("." ?.)
 ("/" ?/)

 ("!" ?!)
 ("@" ?@)
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("^" ?^)
 ("&" ?&)
 ("*" ?*)
 ("(" ?\()
 (")" ?\))
 ("_" ?_)
 ("+" ?+)
 ("~" ?~)
 ("Q" ?:)
 ("W" ?,FS)
 ("E" ?,FE)
 ("R" ?,FQ)
 ("T" ?,FT)
 ("Y" ?,FU)
 ("U" ?,FH)
 ("I" ?,FI)
 ("O" ?,FO)
 ("P" ?,FP)
 ("{" ?{)
 ("}" ?})
 ("A" ?,FA)
 ("S" ?,FS)
 ("D" ?,FD)
 ("F" ?,FV)
 ("G" ?,FC)
 ("H" ?,FG)
 ("J" ?,FN)
 ("K" ?,FJ)
 ("L" ?,FK)
 (":" ?,F()
 ("\"" ?\")
 ("|" ?|)
 ("Z" ?,FF)
 ("X" ?,FW)
 ("C" ?,FX)
 ("V" ?,FY)
 ("B" ?,FB)
 ("N" ?,FM)
 ("M" ?,FL)
 ("<" ?<)
 (">" ?>)
 ("?" ??)

 (";a" ?,F\)
 (";e" ?,F])
 (";h" ?,F^)
 (";i" ?,F_)
 (";o" ?,F|)
 (";y" ?,F})
 (";v" ?,F~)
 (";A" ?,F6)
 (";E" ?,F8)
 (";H" ?,F9)
 (";I" ?,F:)
 (";O" ?,F<)
 (";Y" ?,F>)
 (";V" ?,F?)
 (":i" ?,Fz)
 (":y" ?,F{)
 (":I" ?,FZ)
 (":Y" ?,F[)
 (";:i" ?,F@)
 (":;i" ?,F@)
 (";:y" ?,F`)
 (":;y" ?,F`)
 (";<" ?�)()
 (";>" ?�)2))

(quail-define-package
 "greek-postfix" "GreekPost" ",FX" nil
 ",FEkkgmij\: Greek keyboard layout with postfix accents (ISO 8859-7)
--------------

In the right of ,Fk key is a combination key, where
 ,F4 acute
 ,F( diaeresis

e.g.
 ,Fa + ,F4 -> ,F\
 ,Fi + ,F( -> ,Fz
 ,Fi + ,F( + ,F4 -> ,F@"
 nil t t t t nil nil nil nil nil t)

;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
;;  ,F7/  ,FrS  ,FeE  ,FqQ  ,FtT  ,FuU  ,FhH  ,FiI  ,FoO  ,FpP  [{  ]}
;;   ,FaA  ,FsS  ,FdD  ,FvV  ,FcC  ,FgG  ,FnN  ,FjJ  ,FkK  ,F4(  '"  \|
;;    ,FfF  ,FwW  ,FxX  ,FyY  ,FbB  ,FmM  ,FlL  ,;  .:  /?

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?-)
 ("=" ?=)
 ("`" ?`)
 ("q" ?\;)
 ("w" ?,Fr)
 ("e" ?,Fe)
 ("r" ?,Fq)
 ("t" ?,Ft)
 ("y" ?,Fu)
 ("u" ?,Fh)
 ("i" ?,Fi)
 ("o" ?,Fo)
 ("p" ?,Fp)
 ("[" ?\[)
 ("]" ?\])
 ("a" ?,Fa)
 ("s" ?,Fs)
 ("d" ?,Fd)
 ("f" ?,Fv)
 ("g" ?,Fc)
 ("h" ?,Fg)
 ("j" ?,Fn)
 ("k" ?,Fj)
 ("l" ?,Fk)
 (";" ?,F4)
 ("'" ?')
 ("\\" ?\\)
 ("z" ?,Ff)
 ("x" ?,Fw)
 ("c" ?,Fx)
 ("v" ?,Fy)
 ("b" ?,Fb)
 ("n" ?,Fm)
 ("m" ?,Fl)
 ("," ?,)
 ("." ?.)
 ("/" ?/)

 ("!" ?!)
 ("@" ?@)
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("^" ?^)
 ("&" ?&)
 ("*" ?*)
 ("(" ?\()
 (")" ?\))
 ("_" ?_)
 ("+" ?+)
 ("~" ?~)
 ("Q" ?:)
 ("W" ?,FS)
 ("E" ?,FE)
 ("R" ?,FQ)
 ("T" ?,FT)
 ("Y" ?,FU)
 ("U" ?,FH)
 ("I" ?,FI)
 ("O" ?,FO)
 ("P" ?,FP)
 ("{" ?{)
 ("}" ?})
 ("A" ?,FA)
 ("S" ?,FS)
 ("D" ?,FD)
 ("F" ?,FV)
 ("G" ?,FC)
 ("H" ?,FG)
 ("J" ?,FN)
 ("K" ?,FJ)
 ("L" ?,FK)
 (":" ?,F()
 ("\"" ?\")
 ("|" ?|)
 ("Z" ?,FF)
 ("X" ?,FW)
 ("C" ?,FX)
 ("V" ?,FY)
 ("B" ?,FB)
 ("N" ?,FM)
 ("M" ?,FL)
 ("<" ?<)
 (">" ?>)
 ("?" ??)

 ("a;" ?,F\)
 ("e;" ?,F])
 ("h;" ?,F^)
 ("i;" ?,F_)
 ("o;" ?,F|)
 ("y;" ?,F})
 ("v;" ?,F~)
 ("A;" ?,F6)
 ("E;" ?,F8)
 ("H;" ?,F9)
 ("I;" ?,F:)
 ("O;" ?,F<)
 ("Y;" ?,F>)
 ("V;" ?,F?)
 ("i:" ?,Fz)
 ("y:" ?,F{)
 ("I:" ?,FZ)
 ("Y:" ?,F[)
 ("i:;" ?,F@)
 ("i;:" ?,F@)
 ("y:;" ?,F`)
 ("y;:" ?,F`)
 ;; These two are asymmetric with ";<" and ";>" in "greek" input
 ;; method.  But, as the other Latin postfix methods adopt "<<" and
 ;; ">>", it may be better to follow them.
 ("<<" ?�)()
 (">>" ?�)2))


;;; greek.el ends here
