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';
|
