Module:mnc-IPA

local export = {}

local lang = require("Module:languages").getByCode("mnc")
local sc = require("Module:scripts").getByCode("mnc-Mong")
local m_IPA = require("Module:IPA")

local gsub = mw.ustring.gsub
local sub = mw.ustring.sub
local gmatch = mw.ustring.gmatch
local find = mw.ustring.find
local len = mw.ustring.len

local correspondences = {
	 = "ɲ",  = "j",  = "ʃ",  = "χ",
	 = "tʰ",  = "t",  = "k",  = "p",  = "t͡ʃ", 
	 = "kʰ",  = "pʰ",  = "t͡ʃʰ",
	 = "ə",  = "ɔ",  = "ʊ",
}

local function transliterate(text)
	return (lang:transliterate(text, sc))
end

local dialects = {
	 = { name = "peking", link = "]" },
	 = { name = "alcuka", link = "]" },
	 = { name = "sibe", link = "]" },
	 = { name = "ningguta", link = "]" },
	 = { name = "mukden", link = "]" },
	 = { name = "sanjiazi", link = "]" },
}

function export.link(term)
	if find(term, "") then
		term = require("Module:mnc-Latn-translit").tr(term)
	end
	return require("Module:links").full_link{ term = term, lang = lang, sc = sc }
end

local function syllabify(term)
	for i = 1, 2 do
		term = gsub(term, "()(+)()", function(a, b, c)
			return len(b) > 1 and a .. sub(b, 1, 1) .. "." .. sub(b, 2, -1) .. c or a .. "." .. b .. c end)
	end
	return term
end

function export.toIPA(text, style)
	text = gsub(text, "", "")
	local text = transliterate(text)
	text = mw.ustring.lower(text)
	text = gsub(text, "niy", "ñ")
	text = gsub(text, "uw", "w")
	text = gsub(text, "ūw", "w")
	text = gsub(text, "iya", "ya")
	text = gsub(text, "iye", "ye")
	text = gsub(text, "iyo", "yo")
	text = gsub(text, "iyoo", "yoo") --iy + V need  to be specified since there are Chinese loanwords that use a different approach in transliteration
	
	for original in gmatch(text, "+") do
		word = gsub(original, "ng", "ŋ")
		word = syllabify(word)
		word = gsub(word, ".", correspondences)
		word = gsub(word, "ɔɔ", "oː")
		word = gsub(word, "ŋ%.k", "ŋ.ŋ")
        word = gsub(word, "ŋ%.ŋʰ", "ŋ.kʰ")
		word = gsub(word, "χi", "xi")
		word = gsub(word, "(ʰ?)()", "ɕ%1%2")
		word = gsub(word, "k(ʰ?)()", "q%1%2")
		word = gsub(word, "tʰ()", "t͡sʰ")
		word = gsub(word, "t()", "t͡s")
        text = gsub(text, "k'", "k")
        text = gsub(text, "s'", "s")
        text = gsub(text, "h'", "x")
        text = gsub(text, "ž", "ʐ")
		text = gsub(text, original, word, 1)
	end
	
	text = gsub(text, "%.? %.?", ".")
    text = gsub(text, "χj", "xj")
    text = gsub(text, "t͡ɕj", "ʈ͡ʂʐ.")
    text = gsub(text, "ɕj", "sz̩.")
    text = gsub(text, "t.z", ".t͡s")
    text = gsub(text, ".t͡sj", ".t͡sz̩")
    text = gsub(text, "t͡ʃ.j", ".t͡ɕi")
    text = gsub(text, "iɔi", "y")
	text = gsub(text, "\n", "")
	return text
end

function export.make(frame)
	local args = frame:getParent().args
	local pagetitle = mw.title.getCurrentTitle().text
	
	local p, output_t = {}, {}
	local results = {
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
	}
	
	if args then
		for index, item in ipairs(args) do
			table.insert(p, (item ~= "") and item or nil)
		end
	else
		p = { pagetitle }
	end
	
	for _, Manchu in ipairs(p) do
		table.insert(results, { pron = "" })
	end
	
	table.insert(output_t, "* ('']'') " .. m_IPA.format_IPA_full { lang = lang, items = results })
	
	for _, data in pairs(dialects) do
		if args then
			for dial_pronunciation in mw.text.gsplit(args, "/") do
				table.insert(results, { pron = "" })
			end
			table.insert(output_t, "* (''" .. data.link .. "'') " .. m_IPA.format_IPA_full { lang = lang, items = results })
		end
	end
	
	return table.concat(output_t, "\n")
end

return export