Modul:translit/be

Dokumentation för denna modul finns på /dok ^{(redigera), /test}

---

Syfte

Den här modulen translittererar belarusiska/vitryska.

För en beskrivning av språkspecifika saker att ta i beaktning, se dokumentationen för {{tr}}.

Användning

local Translit = require("Modul:translit/be")
latin_text = Translit.tr("belarusisk text")

Specifikation

Publika funktioner:

• tr("text") Returnerar innehållet i "text" translittererat till latinska bokstäver på det svenska sättet.

Tester

All tests passed. (refresh)

test1_example:

	Text	Expected	Actual
	mut.tr("арты́кул")	artýkul	artýkul

test2_example:

	Text	Expected	Actual
	mut.tr("Анна")	Anna	Anna
	mut.tr("Борис")	Boris	Boris
	mut.tr("Волга")	Volha	Volha
	mut.tr("Гродна")	Hrodna	Hrodna
	mut.tr("Дон")	Don	Don
	mut.tr("Афанасьев")	Afanasiev	Afanasiev
	mut.tr("Днепр")	Dnepr	Dnepr
	mut.tr("Евгений")	Jevhenij	Jevhenij
	mut.tr("Алексеев")	Aleksejev	Aleksejev
	mut.tr("Кондратьев")	Kondratiev	Kondratiev
	mut.tr("Чёрный")	Tjornyj	Tjornyj
	mut.tr("Аксёнов")	Aksionov	Aksionov
	mut.tr("Фёдор")	Fjodor	Fjodor
	mut.tr("Пётр")	Pjotr	Pjotr
	mut.tr("Зёрнов")	Ziornov	Ziornov
	mut.tr("Щёлкин")	Sjtjolkin	Sjtjolkin
	mut.tr("Жуковский")	Zjukovskij	Zjukovskij
	mut.tr("Замятин")	Zamjatin	Zamjatin
	mut.tr("Мінск")	Minsk	Minsk
	mut.tr("Толстой")	Tolstoj	Tolstoj
	mut.tr("Куприн")	Kuprin	Kuprin
	mut.tr("Лесков")	Leskov	Leskov
	mut.tr("Максим")	Maksim	Maksim
	mut.tr("Надя")	Nadja	Nadja
	mut.tr("Онега")	Oneha	Oneha
	mut.tr("Пушкин")	Pusjkin	Pusjkin
	mut.tr("Ростропович")	Rostropovitj	Rostropovitj
	mut.tr("Самара")	Samara	Samara
	mut.tr("Толстой")	Tolstoj	Tolstoj
	mut.tr("Устинов")	Ustinov	Ustinov
	mut.tr("Магілёў")	Mahiljoŭ	Mahiljoŭ
	mut.tr("Фёдор")	Fjodor	Fjodor
	mut.tr("Тихонов")	Tichonov	Tichonov
	mut.tr("Донец")	Donets	Donets
	mut.tr("Чайковский")	Tjajkovskij	Tjajkovskij
	mut.tr("Шостакович")	Sjostakovitj	Sjostakovitj
	mut.tr("Белы")	Bely	Bely
	mut.tr("Ильич")	Iljitj	Iljitj
	mut.tr("Гомель")	Homel	Homel
	mut.tr("Игорь")	Ihor	Ihor
	mut.tr("Эдуард")	Eduard	Eduard
	mut.tr("Юрий")	Jurij	Jurij
	mut.tr("Актюбинск")	Aktiubinsk	Aktiubinsk
	mut.tr("Союз")	Sojuz	Sojuz
	mut.tr("Татьяна")	Tatiana	Tatiana
	mut.tr("Зябков")	Ziabkov	Ziabkov
	mut.tr("Ярослав")	Jaroslav	Jaroslav

-- Denna modul används för att transkribera belarusiska/vitryska.
-- 
-- För att transkribera bulgariska, ukrainska och
-- ryska kan ett liknande system användas. Det hanteras dock av
-- särskilda moduler. Se:
-- 
-- Modul:translit/ru
-- Modul:translit/bg
-- Modul:translit/uk
-- 
-- Systemet för translitterering följer det som anges i
-- "Svenska skrivregler" (2017), fjärde upplagan, red. Ola Karlsson
-- En kopia av avsnittet finns i skrivande stund här:
-- https://www.isof.se/download/18.648bef4b18093ee2f03ee80/1652364347434/Kyrillisk%20tabell%20SS2017.pdf
-- 
-- Denna modul används av följande mall:
-- {{tr}}
--
-- Modulen är författad av (och underhålls av) [[Användare:Gabbe]]

local export = {}
local Q = require("Modul:queue")

local multibyte_char_pattern = ".[\128-\191]*"

latin_by_cyrillic = {
	["А"]="A", ["а"]="a", ["Б"]="B", ["б"]="b", ["В"]="V", ["в"]="v",
	["Г"]="H", ["г"]="h", ["Д"]="D", ["д"]="d", ["Е"]="E", ["е"]="e",
	["Ё"]="Jo", ["ё"]="jo", ["Ж"]="Zj", ["ж"]="zj", ["З"]="Z", ["з"]="z",
	["І"]="I", ["і"]="i", ["И"]="I", ["и"]="i", ["Й"]="J", ["й"]="j",
	["К"]="K", ["к"]="k", ["Л"]="L", ["л"]="l", ["М"]="M", ["м"]="m",
	["Н"]="N", ["н"]="n", ["О"]="O", ["о"]="o", ["П"]="P", ["п"]="p",
	["Р"]="R", ["р"]="r", ["С"]="S", ["с"]="s", ["Т"]="T", ["т"]="t",
	["У"]="U", ["у"]="u", ["Ў"]="Ŭ", ["ў"]="ŭ", ["Ф"]="F", ["ф"]="f",
	["Х"]="Ch", ["х"]="ch", ["Ц"]="Ts", ["ц"]="ts", ["Ч"]="Tj", ["ч"]="tj",
	["Ш"]="Sj", ["ш"]="sj", ["Щ"]="Sjtj", ["щ"]="sjtj", ["Ъ"]="", ["ъ"]="",
	["Ы"]="Y", ["ы"]="y", ["Ь"]="J", ["ь"]="j", ["Э"]="E", ["э"]="e",
	["Ю"]="Ju", ["ю"]="ju", ["Я"]="Ja", ["я"]="ja"
}

-- Själva transkriberingsfunktionen för vitryska/belarusiska
function export.tr( text )
	cyrillic_q = Q()
	latin_q    = Q()

	for c in string.gmatch(text, multibyte_char_pattern) do
		Q.enqueue(cyrillic_q, c)
	end

	repeat

		local x = Q.dequeue(cyrillic_q)
		local y = Q.peekFirst(cyrillic_q)
		local z = Q.peekSecond(cyrillic_q)
		local u = Q.peekLast(latin_q)
		local accent = "́"
    
		if not latin_by_cyrillic[x] then -- icke-kyrilliskt tecken
			Q.enqueue(latin_q, x)
		elseif (Q.isEmpty(latin_q) or u == " ") and x == "Е" then
			Q.enqueue(latin_q, "Je")
		elseif (Q.isEmpty(latin_q) or u == " ") and x == "е" then
			Q.enqueue(latin_q, "je")
		elseif x == "ь" then
			if y == "и" then
				Q.enqueue(latin_q, "ji")
				Q.dequeue(cyrillic_q)
			end
		elseif x == "Ь" then
			if y == "и" then
				Q.enqueue(latin_q, "Ji")
				Q.dequeue(cyrillic_q)
			elseif y == "И" then
				Q.enqueue(latin_q, "JI")
				Q.dequeue(cyrillic_q)
			end
		elseif mw.ustring.find(x, "[стзСТЗ]") then
			Q.enqueue(latin_q, latin_by_cyrillic[x])
			if y == "ь" then
				if z == "е" then
					Q.enqueue(latin_q, "ie")
					Q.dequeue(cyrillic_q)
					Q.dequeue(cyrillic_q)
				elseif z == "ё" then
					Q.enqueue(latin_q, "io")
					Q.dequeue(cyrillic_q)
					Q.dequeue(cyrillic_q)
				elseif z == "ю" then
					Q.enqueue(latin_q, "iu")
					Q.dequeue(cyrillic_q)
					Q.dequeue(cyrillic_q)
				elseif z == "я" then
					Q.enqueue(latin_q, "ia")
					Q.dequeue(cyrillic_q)
					Q.dequeue(cyrillic_q)
				end
			elseif y == "ё" then
				Q.enqueue(latin_q, "io")
				Q.dequeue(cyrillic_q)
			elseif y == "ю" then
				Q.enqueue(latin_q, "iu")
				Q.dequeue(cyrillic_q)
			elseif y == "я" then
				Q.enqueue(latin_q, "ia")
				Q.dequeue(cyrillic_q)
			end
		elseif mw.ustring.find(x, "[шщчжШЩЧЖ]") then
			Q.enqueue(latin_q, latin_by_cyrillic[x])
			if y == "ё" then
				Q.enqueue(latin_q, "o")
				Q.dequeue(cyrillic_q)
			end
    	elseif x == "е" then
			if mw.ustring.find(u, "[aeouiAEOUI]") or u == accent then
				Q.enqueue(latin_q, "je")
			else
				Q.enqueue(latin_q, "e")
			end
		else
			Q.enqueue(latin_q, latin_by_cyrillic[x])
		end
	until Q.isEmpty(cyrillic_q)

	local tbl = {}

	repeat
    	local x = Q.dequeue(latin_q)
    	local y = Q.peekFirst(latin_q) or ""
		local accent = "́"

		if y == accent then
			x = mw.ustring.toNFC(x .. y)
			Q.dequeue(latin_q)
		end

		table.insert(tbl, x)

	until Q.isEmpty(latin_q)

	return table.concat(tbl, "")
end

return export