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