summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy/make-rules/alphabets/greek/iso88597.pl
blob: 1e304dadec3bd0cf77443671d65fff8ff19b216c (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';