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 = "Bulgarian";
$prefix = "bg";
$script = "cyrillic";
$alphabet = [
['á', ['Á','á']],
['â', ['Â','â']],
['÷', ['×','÷']],
['ç', ['Ç','ç']],
[], # ghe with upturn (ukrainian)
['ä', ['Ä','ä']],
[], # dje (serbian)
[], # gje (macedonian)
['å', ['Å','å']],
[], # io (mongolian)
[], # ukrainian ie
['ö', ['Ö','ö']],
['ú', ['Ú','ú']],
[], # dze (macedonian)
['é', ['É','é']],
[], # belarusian-ukrainian i
[], # 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)
['û', ['Û','û']],
['ý', ['Ý','ý']],
['ÿ', ['ß','ÿ']],
[], # yeru (belarusian, russian)
['ø', ['Ø','ø']],
[],
[], # e (belarusian, russian)
['à', ['À','à']],
['ñ', ['Ñ','ñ']],
[],
[],
[],
[]
];
$sortcase = 'Aa';
#$sortcase = 'aA';
$ligatures = [
];
@special = ('?', '!', '.', 'letters', '-', '\'');
do 'make-rules.pl';
|
