Module:ny-IPA

local m_IPA = require("Module:IPA")

local export = {}

local consonants = {
	["b"] = "ɓ", ["d"] = "ɗ", ["ŵ"] = "w⁽ᵝ⁾",
	["h"] = "ʰ", ["w"] = "ʷ", ["y"] = "ʲ",
	["l"] = "ɽ", ["r"] = "ɽ",
	["j"] = "d͡ʒ",
	["g"] = "ɡ"
}

local vowels = {"a", "e", "i", "o", "u", "á", "é", "í", "ó", "ú", "ń", "m'", "ḿ"}

local pre_replacements = {
	["awu"] = "a(w)u", ["ewu"] = "e(w)u", ["iwu"] = "i(w)u", ["owa"] = "o(w)a", ["uwa"] = "u(w)a",
	["áwu"] = "á(w)u", ["éwu"] = "é(w)u", ["íwu"] = "í(w)u", ["ówa"] = "ó(w)a", ["úwa"] = "ú(w)a",
	["awú"] = "a(w)ú", ["ewú"] = "e(w)ú", ["iwú"] = "i(w)ú", ["owá"] = "o(w)á", ["uwá"] = "u(w)á",
	["áwú"] = "á(w)ú", ["éwú"] = "é(w)ú", ["íwú"] = "í(w)ú", ["ówá"] = "ó(w)á", ["úwá"] = "ú(w)á"
}

local trigraphs = {["tcʰ"] = "t͡ʃʰ",
				   ["nɗz"] = "ⁿdz",
				   ["%(ʷ%)"] = "(w)",
				   }
				   
local digraphs = {["cʰ"] = "t͡ʃ",
			      ["sʰ"] = "ʃ",
			      ["zʲ"] = "ʒ",
			      ["ɗz"] = "d͡z",
			      ["dz"] = "d͡z",
			      ["ts"] = "t͡s",
			      ["ʰʷ"] =  "ʷʰ", 
			      ["ʰʲ"] = "ʲʰ", 
			      ["m'"] = "m",
			      ["ɓ'"] = "b",
			      ["ɗ'"] = "d",
			      ["ḿp"] = "ḿ'p",
			      ["pf"] = "p͡f",
			      ["ɓv"] = "b͡v"}
		
local nasals = {["mɓ"] = "ᵐb", ["mp"] = "ᵐp",
	            ["mv"] = "ᶬv", ["mf"] = "ᶬf",
	            ["nɗ"] = "ⁿd", ["nt"] = "ⁿt",
	            ["nɡ"] = "ᵑɡ", ["nɡ'"] = "ŋ", ["nk"] = "ᵑk",
	            ["nd͡ʒ"] = "ⁿd͡ʒ", 
	            ["nt͡ʃ"] =  "ⁿt͡ʃ",
	            ["nʲ"] = "ɲ",
	            ["ps"] = "psʲ",
	            ["ɓz"] = "bzʲ",
	            ["mb"] = "ᵐb",
	            ["nz"] = "ⁿz",
	            ["ns"] = "ⁿs",
            }
            
local syllable_ends = {}
for k,v in ipairs(vowels) do
	syllable_ends[v] = v .. " "
end

-- remove spaces from the end of a string
function rtrim(s)
	local n = #s
	while n > 0 and s:find("^%s", n) do n = n - 1 end
	return s:sub(1, n)
end

function export.IPA(text)
	
	text = rtrim(text)
	text = mw.ustring.lower(text)
	text = mw.ustring.gsub(text, "%-", "")
	
	-- if text contains spaces, recursively computer IPA for each part
	if (mw.ustring.match(text, "%s")) then
		local result = {}
		for i in mw.ustring.gmatch(text, '([^ ]+)') do
			table.insert(result, mw.ustring.sub(export.IPA(i),2,-2))	
		end
		return "/"..table.concat(result, " ").."/"
	end

	for k1,replacement in pairs(pre_replacements) do
		text = mw.ustring.gsub(text, k1, replacement)
	end
	
	text = mw.ustring.gsub(text, "m'", "m' ")
	text = mw.ustring.gsub(text, ".", syllable_ends)
	text = rtrim(text)

	local syllables = mw.text.split(text, " ", true)
	
	local result = {}

	for k1,syllable in ipairs(syllables) do
		local ipa = syllable
		
		ipa = mw.ustring.gsub(ipa, ".", consonants)

		for k2,trigraph in pairs(trigraphs) do
			ipa = mw.ustring.gsub(ipa, k2, trigraph)
		end
		
		for k2,digraph in pairs(digraphs) do
			ipa = mw.ustring.gsub(ipa, k2, digraph)
		end

		for k2,nasal in pairs(nasals) do
			ipa = mw.ustring.gsub(ipa, k2, nasal)
		end

		local first = mw.ustring.sub(ipa, 1, 1)
		
		if (first == "ʰ") then
			ipa = "h"..mw.ustring.sub(ipa,2)
		end
		if (first == "ʲ") then
			ipa = "j"..mw.ustring.sub(ipa,2)
		end
		if (first == "ʷ") then
			ipa = "w"..mw.ustring.sub(ipa,2)
		end
		
		table.insert(result, ipa)
		
	end
	
	if (#result >= 2) then
		local penultimate = result[#result-1]
		local first = mw.ustring.sub(penultimate, 1, 2)
		
		if (first ~= "ḿ'") then
			penultimate = "ˈ"..penultimate
		end

		result[#result-1] =  penultimate
	end
	
	result = table.concat(result, ".")
	
	result = mw.ustring.gsub(result, "'", "ˈ")
	result = mw.ustring.gsub(result, "%.ˈ", "ˈ")
	
	if (mw.ustring.sub(result, 1, 1) == ".") then result = mw.ustring.sub(result, 2) end

	result = "/" .. result .. "/"
	return result
	
end

function export.show(frame)
	local params = {
		[1] = {default = mw.title.getCurrentTitle().text, list=true}
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	lang = require("Module:languages").getByCode("ny")
	local items = {}
	
	for _,text in ipairs(args[1]) do
		table.insert(items, {pron = export.IPA(text), note = nil})
	end
	
	local text = args[1]

	return m_IPA.format_IPA_full { lang = lang, items = items }
	
end

return export