summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy-new/xindy/make-rules/alphabets/greek/polytonic-utf8.pl.in
blob: 02e8a77f0058dd893a037b4859e50921043f40fc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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';