summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy/xindy-src/make-rules/alphabets/russian/utf8.pl.in
blob: c5882c354279775a7a3dd46a04e64386b4c6df39 (plain)
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 = [
['А',  ['а','А'] @u{,['а́','А́']}],
['Б',  ['б','Б']],
['В',  ['в','В']],
['Г',  ['г','Г']],
                   [], # ghe with upturn (ukrainian)
['Д',  ['д','Д']],
                   [], # dje (serbian)
                   [], # gje (macedonian)
['Е',  ['е','Е'], @u{['е́','Е́'],} ['ё','Ё'] @u{,['ё́','Ё́']}],
                   [], # io (mongolian)
                   [], # ukrainian ie
['Ж',  ['ж','Ж']],
['З',  ['з','З']],
                   [], # dze (macedonian)
['И',  ['и','И']@u{,['и́','И́']}],
[@u{'І',  ['і','І'],['і́','І́']}],
                   [], # yi (ukrainian)
['Й',  ['й','Й']@u{,['й́','Й́']}],
                   [], # je (macedonian, serbian)
['К',  ['к','К']],
['Л',  ['л','Л']],
                   [], # lje (macedonian, serbian)
['М',  ['м','М']],
['Н',  ['н','Н']],
                   [], # nje (macedonian, serbian)
['О',  ['о','О']@u{,['о́','О́']}],
                   [], # barred o (mongolian)
['П',  ['п','П']],
['Р',  ['р','Р']],
['С',  ['с','С']],
['Т',  ['т','Т']],
                   [], # tshe (serbian)
                   [], # kje (macedonian)
['У',  ['у','У']@u{,['у́','У́']}],
                   [], # short u (belarusian)
                   [], # straight u (mongolian)
['Ф',  ['ф','Ф']],
['Х',  ['х','Х']],
['Ц',  ['ц','Ц']],
['Ч',  ['ч','Ч']],
                   [], # dzhe (macedonian, serbian)
['Ш',  ['ш','Ш']],
['Щ',  ['щ','Щ']],
['Ъ',  ['ъ','Ъ']],
['Ы',  ['ы','Ы']@u{,['ы́','Ы́']}],
['Ь',  ['ь','Ь']],
[@u{'Ѣ',  ['ѣ','Ѣ']}],
['Э',  ['э','Э']@u{,['э́','Э́']}],
['Ю',  ['ю','Ю']@u{,['ю́','Ю́']}],
['Я',  ['я','Я']@u{,['я́','Я́']}],
                   [],
                   [],
[@u{'Ѳ',  ['ѳ','Ѳ']}],
[@u{'Ѵ',  ['ѵ','Ѵ']}]
];

$sortcase = 'Aa';
#$sortcase = 'aA';

$ligatures = [
];

@special = ('?', '!', '.', 'letters', '-', '\''@u{, '́'});

do 'make-rules.pl';