#!/usr/bin/env perl $language = "Belarusian"; $prefix = "be"; $script = "cyrillic"; $alphabet = [ ['А', ['а','А']], ['Б', ['б','Б']], ['В', ['в','В']], ['Г', ['г','Г']], [], # ghe with upturn (ukrainian) ['Д', ['д','Д']], [], # dje (serbian) [], # gje (macedonian) ['Е', ['е','Е'],['ё','Ё']], [], # io (mongolian) [], # ukrainian ie ['Ж', ['ж','Ж']], ['З', ['з','З']], [], # dze (macedonian) ['И', ['и','И']], ['І', ['і','І']], [], # yi (ukrainian) ['Й', ['й','Й']], [], # je (macedonian, serbian) ['К', ['к','К']], ['Л', ['л','Л']], [], # lje (macedonian, serbian) ['М', ['м','М']], ['Н', ['н','Н']], [], # nje (macedonian, serbian) ['О', ['о','О']], [], # barred o (mongolian) ['П', ['п','П']], ['Р', ['р','Р']], ['С', ['с','С']], ['Т', ['т','Т']], [], # tshe (serbian) [], # kje (macedonian) ['У', ['у','У']], ['Ў', ['ў','Ў']], [], # straight u (mongolian) ['Ф', ['ф','Ф']], ['Х', ['х','Х']], ['Ц', ['ц','Ц']], ['Ч', ['ч','Ч']], [], # dzhe (macedonian, serbian) ['Ш', ['ш','Ш']], ['Щ', ['щ','Щ']], ['Ъ', ['ъ','Ъ']], ['Ы', ['ы','Ы']], ['Ь', ['ь','Ь']], [], ['Э', ['э','Э']], ['Ю', ['ю','Ю']], ['Я', ['я','Я']], [], [], [], [] ]; $sortcase = 'Aa'; #$sortcase = 'aA'; $ligatures = [ ]; @special = ('?', '!', '.', 'letters', '-', '\''); do 'make-rules.pl';