မဝ်ဂျူ:mai-Tirh-translit

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

-- Transliteration for Maithili in Tirhuta script

local export = {}
local gsub = mw.ustring.gsub
local match = mw.ustring.match

local conv = {
	-- consonants
	["𑒏"] = "k", ["𑒐"] = "kh", ["𑒑"] = "g", ["𑒒"] = "gh", ["𑒓"] = "ṅ",
	["𑒔"] = "c", ["𑒕"] = "ch", ["𑒖"] = "j", ["𑒗"] = "jh", ["𑒘"] = "ñ",
	["𑒙"] = "ṭ", ["𑒚"] = "ṭ", ["𑒛"] = "ḍ", ["𑒜"] = "ḍh", ["𑒝"] = "ṇ",
	["𑒞"] = "t", ["𑒟"] = "th", ["𑒠"] = "d", ["𑒡"] = "dh", ["𑒢"] = "n",
	["𑒣"] = "p", ["𑒤"] = "ph", ["𑒥"] = "b", ["𑒦"] = "bh", ["𑒧"] = "m",
	["𑒨"] = "y", ["𑒩"] = "r", ["𑒪"] = "l", ["𑒫"] = "v", ["𑒪𑓃"] = "ḷ",
	["𑒬"] = "ś", ["𑒭"] = "ṣ", ["𑒮"] = "s", ["𑒯"] = "h",
	["𑒛𑓃"] = "ṛ", ["𑒜𑓃"] = "ṛh",

	-- vowel diacritics
	["𑒱"] = "i", ["𑒳"] = "u", ["𑒹"] = "ē", ["𑒺"] = "e", ["𑒼"] = "ō", ["𑒽"] = "o", ["𑒰"] = "ā", ["𑒲"] = "ī", ["𑒴"] = "ū",
	["𑒵"] = "r̥", ["𑒶"] = "r̥̄", ["𑒻"] = "ai", ["𑒾"] = "au", ["𑒷"] = "l̥", ["𑒸"] = "l̥̄",
	
	-- vowels
	["𑒁"] = "a", ["𑒂"] = "ā", ["𑒃"] = "i", ["𑒄"] = "ī", ["𑒅"] = "u", ["𑒆"] = "ū",
	["𑒇"] = "r̥", ["𑒈"] = "r̥̄", ["𑒉"] = "l̥", ["𑒊"] = "l̥̄",
	["𑒋"] = "ē", ["𑒌"] = "ai", ["𑒍"] = "ō", ["𑒎"] = "au", 
	 ["२"] = "’", ["𑒁𑒺"] = "ê",["𑒁𑒽"] = "ô",

    ["ऽ"] = "²", -- avagraha
	["𑒿"] = "̃", -- chandrabindu
	["𑓀"] = "̃", -- anusvara
	["𑓅"] = "̃", -- gvang
	["𑓁"] = "ḥ", -- visarga
	["𑓂"] = "", -- virama
	["𑓇"] = "om̐", -- om

	-- numerals
	["𑓐"] = "0", ["𑓑"] = "1", ["𑓒"] = "2", ["𑓓"] = "3", ["𑓔"] = "4", ["𑓕"] = "5", ["𑓖"] = "6", ["𑓗"] = "7", ["𑓘"] = "8", ["𑓙"] = "9",

	-- punctuation
	["।"] = ".", -- danda
	["॥"] = ".", -- double danda
	["+"] = "", -- compound separator
	-- abbreviation sign
	["॰"] = "."
}

local nasal_assim = {
	["𑒏"] = "𑒓", ["𑒐"] = "𑒓", ["𑒑"] = "𑒓", ["𑒒"] = "𑒓",
	["𑒔"] = "𑒘", ["𑒕"] = "𑒘", ["𑒖"] = "𑒘", ["𑒗"] = "𑒘", ["𑒘"] = "𑒘",
	["𑒙"] = "𑒝", ["𑒚"] = "𑒝", ["𑒛"] = "𑒝", ["𑒜"] = "𑒝",
	["𑒞"] = "𑒢", ["𑒟"] = "𑒢", ["𑒠"] = "𑒢", ["𑒡"] = "𑒢", ["𑒢"] = "𑒢",
	["𑒣"] = "𑒧", ["𑒤"] = "𑒧", ["𑒥"] = "𑒧", ["𑒦"] = "𑒧", ["𑒧"] = "𑒧"
}
local perm_cl = {
	["𑒧𑓂𑒪"] = true
}
local all_cons, special_cons = "𑒏𑒐𑒑𑒒𑒓𑒔𑒕𑒖𑒗𑒘𑒙𑒚𑒛𑒜𑒝𑒞𑒟𑒠𑒡𑒢𑒣𑒤𑒥𑒦𑒧𑒨𑒩𑒪𑒫𑒮𑒬𑒭𑒯𑒩", "𑒕𑒏𑒐𑒑𑒞𑒮𑒯𑒨𑒟𑒛𑒜𑒚𑒣𑒠𑒝𑒡𑒩𑒭𑒙𑒪𑒫𑒥𑒦𑒛𑒔𑒢𑒬𑒧"
local vowel, vowel_sign = "a𑒱𑒳𑒵𑒹𑒼𑒰𑒲𑒴𑒻𑒾𑒰𑒻𑒽𑒰𑒰𑒽𑒺", "𑒁𑒃𑒅𑒋𑒍𑒂𑒄𑒆𑒇𑒈𑒁𑒺𑒁𑒽𑒫𑓃𑒨𑓃𑒁𑒂𑒌𑒎𑒂𑒋"
local syncope_pattern = '([' .. vowel .. vowel_sign .. '])(𑓃?[' .. all_cons .. '])a(𑓃?[' .. all_cons .. '])([𑓀𑒿]?[' .. vowel .. vowel_sign .. '])'
local function rev_string(text)
	local result, length = {}, mw.ustring.len(text)
	for i = length, 1, -1 do
		table.insert(result, mw.ustring.sub(text, i, i))
	end
	return table.concat(result)
end

function export.tr(text, lang, sc)
	text =
		gsub(
		text,
		"([" .. all_cons .. "]𑓃?)([" .. vowel .. "𑓂]?)",
		function(c, d)
			return c .. (d == "" and "a" or d)
		end
	)

	for word in mw.ustring.gmatch(text, "[𑒿-॥a]+") do
		local orig_word = word

		word = rev_string(word)
		
		word = gsub(
			word,
			'^a(𑓃?)([' .. all_cons .. '])(.)(.?)',
			function(opt, first, second, third)
				local a = ""
				if match(first, '[' .. special_cons .. ']')
					and match(second, '𑓂')
					and not perm_cl[first..second..third]
					or match(first .. second, '𑒨[𑒲𑒺]') then
						a = "a"
				end
				
				return a .. opt .. first .. second .. third
			end
		)

	while match(word, syncope_pattern) do
			word = gsub(word, syncope_pattern, "%1%2ᵊ%3%4")
		end

		word =
			gsub(
			word,
			"(.?)𑓀(.)",
			function(succ, prev)
				return succ ..
					(succ .. prev == "a" and "𑓂𑒧" or
						(succ == "" and match(prev, "[" .. vowel .. "]") and "̃" or nasal_assim[succ] or "̃")) ..
						prev
			end
		)

		local escaped_orig_word = gsub(orig_word, "%+", "")
		text = gsub(text, orig_word, rev_string(word))
		text = gsub(text, "𑒖𑓂𑒘", "gy")
	end
	text = gsub(text, "ā([iu])̃", "ā͠%1")
	text = gsub(text, "uu", "u")
	text = gsub(text, "aâ", "â")
	text = gsub(text, "ii", "i")
	text = gsub(text, "([iīaāuūeoâ])a", "%1")
	text = gsub(text, "[<>]", "")
	text = gsub(text, ".𑓃?", conv)
	return mw.ustring.toNFC(text)
end

return export