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 = "Macedonian";
$prefix = "mk";
$script = "cyrillic";
$alphabet = [
['А', ['а','А']],
['Б', ['б','Б']],
['В', ['в','В']],
['Г', ['г','Г']],
[], # ghe with upturn (ukrainian)
['Д', ['д','Д']],
[], # dje (serbian)
['Ѓ', ['ѓ','Ѓ']],
['Е', ['е','Е']@u{,['ѐ','Ѐ']}],
[], # io (mongolian)
[], # ukrainian ie
['Ж', ['ж','Ж']],
['З', ['з','З']],
['Ѕ', ['ѕ','Ѕ']],
['И', ['и','И']@u{,['ѝ','Ѝ']}],
[], # belarusian-ukrainian i
[], # yi (ukrainian)
[], # short i (many)
['Ј', ['ј','Ј']],
['К', ['к','К']],
['Л', ['л','Л']],
['Љ', ['љ','Љ']],
['М', ['м','М']],
['Н', ['н','Н']],
['Њ', ['њ','Њ']],
['О', ['о','О']],
[], # barred o (mongolian)
['П', ['п','П']],
['Р', ['р','Р']],
['С', ['с','С']],
['Т', ['т','Т']],
[], # tshe (serbian)
['Ќ', ['ќ','Ќ']],
['У', ['у','У']],
[], # short u (belarusian)
[], # straight u (mongolian)
['Ф', ['ф','Ф']],
['Х', ['х','Х']],
['Ц', ['ц','Ц']],
['Ч', ['ч','Ч']],
['Џ', ['џ','Џ']],
['Ш', ['ш','Ш']],
[], # shcha (many)
[], # hard sign (bulgarian, russian)
[], # yeru (belarusian, russian)
[], # soft sign (many)
[],
[], # e (belarusian, russian)
[], # yu (many)
[], # ya (many)
[],
[],
[],
[]
];
$sortcase = 'Aa';
#$sortcase = 'aA';
$ligatures = [
];
@special = ('?', '!', '.', 'letters', '-', '\'');
do 'make-rules.pl';
|
