summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy-new/xindy/make-rules/alphabets/greek/utf8.pl.in
blob: c1624c5eeeac7aa258647d4e1eeff6c69c075d42 (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
#!/usr/bin/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';