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)
['Ю', ['ю','Ю']],
['Я', ['я','Я']],
[],
[@u{'Ѫ', ['ѫ','Ѫ']}],
[],
[]
];
$sortcase = 'Aa';
#$sortcase = 'aA';
$ligatures = [
];
@special = ('?', '!', '.', 'letters', '-', '\'');
do 'make-rules.pl';
|
