1 files changed, 50 insertions, 0 deletions

diff --git a/Build/source/utils/xindy/make-rules/alphabets/greek/polytonic-utf8.pl.in b/Build/source/utils/xindy/make-rules/alphabets/greek/polytonic-utf8.pl.in
new file mode 100644
index 00000000000..02e8a77f005
--- /dev/null
+++ b/Build/source/utils/xindy/make-rules/alphabets/greek/polytonic-utf8.pl.in
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+$language = "Greek";
+$variant = "polytonic";
+$prefix = "el";
+$script = "greek";
+
+$alphabet = [
+['Α', ['α','Α'],['ᾰ','Ᾰ'],['ᾱ','Ᾱ'],['ὰ','Ὰ'],['ά','Ά'],['ἀ','Ἀ'],
+      ['ἁ','Ἁ'],['ἂ','Ἂ'],['ἃ','Ἃ'],['ἄ','Ἄ'],['ἅ','Ἅ'],['ἆ','Ἆ'],
+      ['ἇ','Ἇ'],['ᾳ','ᾼ'],['ᾲ'],['ᾴ'],['ᾶ'],['ᾷ'],['ᾀ','ᾈ'],['ᾁ','ᾉ'],
+      ['ᾂ','ᾊ'],['ᾃ','ᾋ'],['ᾄ','ᾌ'],['ᾅ','ᾍ'],['ᾆ','ᾎ'],['ᾇ','ᾏ']],
+['Β', ['β','Β'],['ϐ']],
+['Γ', ['γ','Γ']],
+['Δ', ['δ','Δ']],
+['Ε', ['ε','Ε'],['ὲ','Ὲ'],['έ','Έ'],['ἐ','Ἐ'],['ἑ','Ἑ'],
+                ['ἒ','Ἒ'],['ἓ','Ἓ'],['ἔ','Ἔ'],['ἕ','Ἕ']],
+['Ζ', ['ζ','Ζ']],
+['Ϝ', ['ϝ','Ϝ']],
+['Η', ['η','Η'],['ὴ','Ὴ'],['ή','Ή'],['ἠ','Ἠ'],['ἡ','Ἡ'],
+                ['ἢ','Ἢ'],['ἣ','Ἣ'],['ἤ','Ἤ'],['ἥ','Ἥ']],
+['Θ',    ['θ', 'Θ']],
+['Ι',    ['ι', 'Ι'],   ['ί','Ί'],   ['ϊ', 'Ϊ'],   ['ΐ']],
+['ϳ',    ['ϳ']],
+['Κ',    ['κ', 'Κ']],
+['Λ',    ['λ', 'Λ']],
+['Μ',    ['μ', 'Μ']],
+['Ν',    ['ν', 'Ν']],
+['Ξ',    ['ξ', 'Ξ']],
+['Ο',    ['ο', 'Ο'],   ['ό','Ό']],
+['Π',    ['π', 'Π']],
+          [],
+['Ρ',    ['ρ', 'Ρ']],
+['Σ',    ['σ', 'Σ'], ['ς']],
+['Τ',    ['τ', 'Τ']],
+['Υ',    ['υ', 'Υ'],   ['ύ','Ύ'],   ['ϋ', 'Ϋ'],   ['ΰ']],
+['Φ',    ['φ', 'Φ']],
+['Χ',    ['χ', 'Χ']],
+['Ψ',    ['ψ', 'Ψ']],
+['Ω',    ['ω', 'Ω'],   ['ώ', 'Ώ']]
+];
+
+@special = ('?', '!', '.', ';', '·', 'letters', '-', '\'', '\\/');
+
+# first lower or upper case?
+
+$sortcase = "Aa";
+#$sortcase = "aA";
+
+do 'make-rules.pl';