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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#!/usr/bin/perl
$language = "Russian";
$prefix = "ru";
$script = "cyrillic";
$alphabet = [
['À', ['à','À'] ],
['Á', ['á','Á']],
['Â', ['â','Â']],
['Ã', ['ã','Ã']],
[], # ghe with upturn (ukrainian)
['Ä', ['ä','Ä']],
[], # dje (serbian)
[], # gje (macedonian)
['Å', ['å','Å'], ['¸','¨'] ],
[], # io (mongolian)
[], # ukrainian ie
['Æ', ['æ','Æ']],
['Ç', ['ç','Ç']],
[], # dze (macedonian)
['È', ['è','È']],
[],
[], # yi (ukrainian)
['É', ['é','É']],
[], # je (macedonian, serbian)
['Ê', ['ê','Ê']],
['Ë', ['ë','Ë']],
[], # lje (macedonian, serbian)
['Ì', ['ì','Ì']],
['Í', ['í','Í']],
[], # nje (macedonian, serbian)
['Î', ['î','Î']],
[], # barred o (mongolian)
['Ï', ['ï','Ï']],
['Ð', ['ð','Ð']],
['Ñ', ['ñ','Ñ']],
['Ò', ['ò','Ò']],
[], # tshe (serbian)
[], # kje (macedonian)
['Ó', ['ó','Ó']],
[], # short u (belarusian)
[], # straight u (mongolian)
['Ô', ['ô','Ô']],
['Õ', ['õ','Õ']],
['Ö', ['ö','Ö']],
['×', ['÷','×']],
[], # dzhe (macedonian, serbian)
['Ø', ['ø','Ø']],
['Ù', ['ù','Ù']],
['Ú', ['ú','Ú']],
['Û', ['û','Û']],
['Ü', ['ü','Ü']],
[],
['Ý', ['ý','Ý']],
['Þ', ['þ','Þ']],
['ß', ['ÿ','ß']],
[],
[],
[],
[]
];
$sortcase = 'Aa';
#$sortcase = 'aA';
$ligatures = [
];
@special = ('?', '!', '.', 'letters', '-', '\'');
do 'make-rules.pl';
|
