1#!/usr/bin/perl
2
3$language = "Russian";
4$prefix = "ru";
5$script = "cyrillic";
6
7$alphabet = [
8['А',  ['а','А'] @u{,['а́','А́']}],
9['Б',  ['б','Б']],
10['В',  ['в','В']],
11['Г',  ['г','Г']],
12                   [], # ghe with upturn (ukrainian)
13['Д',  ['д','Д']],
14                   [], # dje (serbian)
15                   [], # gje (macedonian)
16['Е',  ['е','Е'], @u{['е́','Е́'],} ['ё','Ё'] @u{,['ё́','Ё́']}],
17                   [], # io (mongolian)
18                   [], # ukrainian ie
19['Ж',  ['ж','Ж']],
20['З',  ['з','З']],
21                   [], # dze (macedonian)
22['И',  ['и','И']@u{,['и́','И́']}],
23[@u{'І',  ['і','І'],['і́','І́']}],
24                   [], # yi (ukrainian)
25['Й',  ['й','Й']@u{,['й́','Й́']}],
26                   [], # je (macedonian, serbian)
27['К',  ['к','К']],
28['Л',  ['л','Л']],
29                   [], # lje (macedonian, serbian)
30['М',  ['м','М']],
31['Н',  ['н','Н']],
32                   [], # nje (macedonian, serbian)
33['О',  ['о','О']@u{,['о́','О́']}],
34                   [], # barred o (mongolian)
35['П',  ['п','П']],
36['Р',  ['р','Р']],
37['С',  ['с','С']],
38['Т',  ['т','Т']],
39                   [], # tshe (serbian)
40                   [], # kje (macedonian)
41['У',  ['у','У']@u{,['у́','У́']}],
42                   [], # short u (belarusian)
43                   [], # straight u (mongolian)
44['Ф',  ['ф','Ф']],
45['Х',  ['х','Х']],
46['Ц',  ['ц','Ц']],
47['Ч',  ['ч','Ч']],
48                   [], # dzhe (macedonian, serbian)
49['Ш',  ['ш','Ш']],
50['Щ',  ['щ','Щ']],
51['Ъ',  ['ъ','Ъ']],
52['Ы',  ['ы','Ы']@u{,['ы́','Ы́']}],
53['Ь',  ['ь','Ь']],
54[@u{'Ѣ',  ['ѣ','Ѣ']}],
55['Э',  ['э','Э']@u{,['э́','Э́']}],
56['Ю',  ['ю','Ю']@u{,['ю́','Ю́']}],
57['Я',  ['я','Я']@u{,['я́','Я́']}],
58                   [],
59                   [],
60[@u{'Ѳ',  ['ѳ','Ѳ']}],
61[@u{'Ѵ',  ['ѵ','Ѵ']}]
62];
63
64$sortcase = 'Aa';
65#$sortcase = 'aA';
66
67$ligatures = [
68];
69
70@special = ('?', '!', '.', 'letters', '-', '\''@u{, '́'});
71
72do 'make-rules.pl';
73