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
|
#!/usr/bin/env perl
$language = "Greek";
$prefix = "el";
$script = "greek";
$alphabet = [
['Α', ['α', 'Α'], ['ά','Ά']],
['Β', ['β', 'Β']],
['Γ', ['γ', 'Γ']],
['Δ', ['δ', 'Δ']],
['Ε', ['ε', 'Ε'], ['έ','Έ']],
['Ζ', ['ζ', 'Ζ']],
[],
['Η', ['η', 'Η'], ['ή','Ή']],
['Θ', ['θ', 'Θ']],
['Ι', ['ι', 'Ι'], ['ί','Ί'], ['ϊ', 'Ϊ'], ['ΐ']],
[],
['Κ', ['κ', 'Κ']],
['Λ', ['λ', 'Λ']],
['Μ', ['μ', 'Μ']],
['Ν', ['ν', 'Ν']],
['Ξ', ['ξ', 'Ξ']],
['Ο', ['ο', 'Ο'], ['ό','Ό']],
['Π', ['π', 'Π']],
[],
['Ρ', ['ρ', 'Ρ']],
['Σ', ['σ', 'Σ'], ['ς']],
['Τ', ['τ', 'Τ']],
['Υ', ['υ', 'Υ'], ['ύ','Ύ'], ['ϋ', 'Ϋ'], ['ΰ']],
['Φ', ['φ', 'Φ']],
['Χ', ['χ', 'Χ']],
['Ψ', ['ψ', 'Ψ']],
['Ω', ['ω', 'Ω'], ['ώ', 'Ώ']]
];
@special = ('?', '!', '.', ';', '·', 'letters', '-', '\'', '\\/');
# first lower or upper case?
$sortcase = "Aa";
#$sortcase = "aA";
#@letter_group_names = ('Α','Β','Γ','Δ','Ε','Ζ','Η','Θ','Ι','Κ','Λ','Μ',
#'Ν','Ξ','Ο','Π','Ρ','Σ','Τ','Υ','Φ','Χ','Ψ','Ω');
do 'make-rules.pl';
|
