Modül:lbe-alfabeçeviri

local export = {}

local tt = {
	="b", ="p", ="f", ="w", ="m",
	="d", ="t", ="j", ="n", ="z", ="c",
	="s", ="ž", ="š", ="š̄", 
	="l", ="č", ="r", ="g", ="k", ="χ", 
	="ʾ", ="a", ="ə̱", ="y", ="i", ="o", ="u", 
	="ë", ="’", ="ə̱", ="ju", ="ja",
	="B", ="P", ="F", ="W", ="M",
	="D", ="T", ="J", ="N", ="Z", ="C",
	="S", ="Ž", ="Š", ="Š̄", 
	="L", ="Č", ="R", ="G", ="K", ="Χ", 
	="ʾ", ="A", ="Ə̱", ="Y", ="I", ="O", ="U", 
	="Ë", ="’", ="Ə̱", ="Ju", ="Ja"};

local tetragraphs = {
	 = 'x̄',
	 = 'X̄',
}

local digraphs = {
	 = 'p̄',
	 = 'ṗ',
	 = 't̄', 
	 = 'a̱',
	 = 'o̱',
	 = 'P̄',
	 = 'Ṗ',
	 = 'T̄',
	 = 'A̱',
	 = 'O̱',
	 = 'c̣',
	 = 'c̄',
	 = 'ṭ',
	 = 's̄',
	 = 'č̄',
	 = 'č̣',
	 = 'q̇',
	 = 'k̄',
	 = 'ḳ',
	 = 'x',
	 = 'q',
	 = 'q̄',
	 = 'ġ',
	 = 'χ̄',
	 = 'ʿ',
	 = 'ḥ',
	 = 'h',
	 = 'C̣',
	 = 'C̄',
	 = 'Ṭ',
	 = 'S̄',
	 = 'Č̄',
	 = 'Č̣',
	 = 'Q̇',
	 = 'K̄',
	 = 'Ḳ',
	 = 'X',
	 = 'Q',
	 = 'Q̄',
	 = 'Ġ',
	 = 'Χ̄',
	 = 'ʿ',
	 = 'Ḥ',
	 = 'H',
}

function export.tr(text, lang, sc)
	local str_gsub = string.gsub
	local UTF8_char = '*'
	
	-- Convert capital to lowercase palochka. Lowercase is found in tables
	-- above.
	text = str_gsub(text, mw.ustring.char(0x4C0), mw.ustring.char(0x4CF))
	
	for tetragraph, replacement in pairs(tetragraphs) do
		text = str_gsub(text, tetragraph, replacement)
	end
	
	for digraph, replacement in pairs(digraphs) do
		text = str_gsub(text, digraph, replacement)
	end
	
	text = str_gsub(text, UTF8_char, tt)
	
	return text
end

return export