#!/usr/bin/perl $language = "Macedonian"; $prefix = "mk"; $script = "cyrillic"; $alphabet = [ ['А', ['а','А']], ['Б', ['б','Б']], ['В', ['в','В']], ['Г', ['г','Г']], [], # ghe with upturn (ukrainian) ['Д', ['д','Д']], [], # dje (serbian) ['Ѓ', ['ѓ','Ѓ']], ['Е', ['е','Е']@u{,['ѐ','Ѐ']}], [], # io (mongolian) [], # ukrainian ie ['Ж', ['ж','Ж']], ['З', ['з','З']], ['Ѕ', ['ѕ','Ѕ']], ['И', ['и','И']@u{,['ѝ','Ѝ']}], [], # belarusian-ukrainian i [], # yi (ukrainian) [], # short i (many) ['Ј', ['ј','Ј']], ['К', ['к','К']], ['Л', ['л','Л']], ['Љ', ['љ','Љ']], ['М', ['м','М']], ['Н', ['н','Н']], ['Њ', ['њ','Њ']], ['О', ['о','О']], [], # barred o (mongolian) ['П', ['п','П']], ['Р', ['р','Р']], ['С', ['с','С']], ['Т', ['т','Т']], [], # tshe (serbian) ['Ќ', ['ќ','Ќ']], ['У', ['у','У']], [], # short u (belarusian) [], # straight u (mongolian) ['Ф', ['ф','Ф']], ['Х', ['х','Х']], ['Ц', ['ц','Ц']], ['Ч', ['ч','Ч']], ['Џ', ['џ','Џ']], ['Ш', ['ш','Ш']], [], # shcha (many) [], # hard sign (bulgarian, russian) [], # yeru (belarusian, russian) [], # soft sign (many) [], [], # e (belarusian, russian) [], # yu (many) [], # ya (many) [], [], [], [] ]; $sortcase = 'Aa'; #$sortcase = 'aA'; $ligatures = [ ]; @special = ('?', '!', '.', 'letters', '-', '\''); do 'make-rules.pl';