summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy/make-rules/alphabets/mongolian/cyrillic-utf8.pl.in
blob: 75c9f8dc4f3f609994581a53c30244797a3f9234 (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 = "Mongolian";
$prefix = "mn";
$script = "cyrillic";

$alphabet = [
['А',  ['а','А'] @u{,['а́','А́']}],
['Б',  ['б','Б']],
['В',  ['в','В']],
['Г',  ['г','Г']],
                   [], # ghe with upturn (ukrainian)
['Д',  ['д','Д']],
                   [], # dje (serbian)
                   [], # gje (macedonian)
['Е',  ['е','Е'], @u{['е́','Е́']}],
['Ё',  ['ё','Ё'], @u{['ё́','Ё́']}],
                   [], # ukrainian ie
['Ж',  ['ж','Ж']],
['З',  ['з','З']],
                   [], # dze (macedonian)
['И',  ['и','И']@u{,['и́','И́']}],
                   [],
                   [], # yi (ukrainian)
['Й',  ['й','Й']@u{,['й́','Й́']}],
                   [], # je (macedonian, serbian)
['К',  ['к','К']],
['Л',  ['л','Л']],
                   [], # lje (macedonian, serbian)
['М',  ['м','М']],
['Н',  ['н','Н']],
                   [], # nje (macedonian, serbian)
['О',  ['о','О']@u{,['о́','О́']}],
['Ө',  ['ө','Ө']@u{,['ө́','Ө́']}],
['П',  ['п','П']],
['Р',  ['р','Р']],
['С',  ['с','С']],
['Т',  ['т','Т']],
                   [], # tshe (serbian)
                   [], # kje (macedonian)
['У',  ['у','У']@u{,['у́','У́']}],
                   [], # short u (belarusian)
['Ү',  ['ү','Ү']@u{,['ү́','Ү́']}],
['Ф',  ['ф','Ф']],
['Х',  ['х','Х']],
['Ц',  ['ц','Ц']],
['Ч',  ['ч','Ч']],
                   [], # dzhe (macedonian, serbian)
['Ш',  ['ш','Ш']],
['Щ',  ['щ','Щ']],
['Ъ',  ['ъ','Ъ']],
['Ы',  ['ы','Ы']@u{,['ы́','Ы́']}],
['Ь',  ['ь','Ь']],
                   [],
['Э',  ['э','Э']@u{,['э́','Э́']}],
['Ю',  ['ю','Ю']@u{,['ю́','Ю́']}],
['Я',  ['я','Я']@u{,['я́','Я́']}],
                   [],
                   [],
                   [],
                   []
];

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

$ligatures = [
];

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

do 'make-rules.pl';