မဝ်ဂျူ:tl-translit

Documentation for this module may be created at မဝ်ဂျူ:tl-translit/doc

local export = {}

local consonants = {
	['ᜃ']='k', ['ᜄ']='g', ['ᜅ']='ng', 
    ['ᜆ']='t', ['ᜇ']='d', ['ᜈ']='n', 
    ['ᜉ']='p', ['ᜊ']='b', ['ᜋ']='m', 
    ['ᜌ']='y', ['ᜎ']='l', ['ᜏ']='w', 
    ['ᜐ']='s', ['ᜑ']='h',
}

local diacritics = {
	['ᜒ']='i', ['ᜓ']='u', ['᜔']='',
}

local tt = {
	-- vowels
	['ᜀ']='a', ['ᜁ']='i', ['ᜂ']='u',
	--punctuation        
    ['᜶']='.', -- pamudpod 
    ['᜵']=',' -- single pamudpod
}

function export.tr(text, lang, sc)
	if sc ~= "Tglg" then
		return nil
	end
	
	text = mw.ustring.gsub(text,'([ᜃ᜔ᜄ᜔ᜅ᜔ᜆ᜔ᜈ᜔ᜉ᜔ᜊ᜔ᜋ᜔ᜌ᜔ᜎ᜔ᜏ᜔ᜐ᜔])'..'([ᜀᜁᜂ])','%1-%2')
	text = mw.ustring.gsub(
		text,
		'([ᜃ-ᜑ])'..
		'([ᜒᜓ᜔]?)'..
		'([ᜀ-ᜂ]?)',
		function(c, d, e)
			if d == "" and e ~= "" then        
				if tt[e] == "i" or tt[e] == "u" then return consonants[c] .. 'a' .. tt[e] .. ''
				else return consonants[c] .. 'a' .. tt[e] end
				elseif e ~= "" then
				return consonants[c] .. diacritics[d] .. tt[e]
			elseif d == "" then        
				return consonants[c] .. 'a'
			else
				return consonants[c] .. diacritics[d]
			end
		end)

	text = mw.ustring.gsub(text, '.', tt)
	
	--convert intervocalic D to R
	text = mw.ustring.gsub(text,"([aiu])d([aiu])","%1r%2")
	--remove hyphen between vowels
	text = mw.ustring.gsub(text,"([aiu])-([aiu])","%1%2")

	
	return text
end
 
return export