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