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';
|
