Module:rad-IPA

See {{rad-IPA}}.

---

local export = {}
local data = {
	["a"] = {
		["i"] = "ai",
		["o"] = {
			["i"] = "ɔi",
			[false] = "ɔː",
		},
		["u"] = "au",
		[false] = "a",
	},
	["á"] = "aː",
	["ả"] = "aːː",
	["â"] = "ɤ",
	["âi"] = "ɤi",
	["b"] = "b",
	["c"] = "ts",
	["d"] = {
		["x"] = "dʒ",
		["z"] = "dz",
		[false] = "d",
	},
	["ð"] = "ð",
	["e"] = {
		["a"] = "æː",
		["i"] = "ei",
		[false] = "ɛ",
	},
	["f"] = "f",
	["g"] = "ɡ",
	["h"] = "h",
	["ħ"] = "ɣ",
	["i"] = {
		["e"] = {
			["a"] = "ia",
			[false] = "ie",
		},
		[false] = "i",
	},
	["í"] = "iː",
	["ỉ"] = {
		["e"] = "iːe",
		[false] = "iːː",
	},
	["j"] = "j",
	["ĵ"] = "ĵ",
	["k"] = "k",
	["ķ"] = "tʃ",
	["l"] = "l",
	["m"] = "m",
	["n"] = "n",
	["ņ"] = "ŋ",
	["o"] = {
		["a"] = "ɔa",
		[false] = "ɔ",
	},
	["ø"] = {
		["a"] = "œa",
		["i"] = "ei",
		[false] = "œ",
	},
	["p"] = "p",
	["q"] = "k",
	["r"] = "r",
	["s"] = "s",
	["ș"] = "ʃ",
	["t"] = "t",
	["u"] = {
		["i"] = "ɤi",
		["o"] = {
			["a"] = "ua",
			[false] = "uo",
		},
		[false] = "u",
	},
	["û"] = "ɤ",
	["ú"] = "uː",
	["ủ"] = {
		["o"] = "uːo",
		[false] = "uːː",
	},
	["ū"] = "ū",
	["v"] = "v",
	["w"] = "w",
	["x"] = "ʒ",
	["ỳ"] = "ỳ",
	["z"] = "z",
	["þ"] = "θ",
	["·"] = "·",
	[" "] = " ",
	["."] = "|",
}
data["à"] = data["a"]
data["è"] = data["e"]
data["ì"] = data["i"]
data["ò"] = data["o"]
data["y"] = data["i"]
data["ý"] = data["í"]
data["ỷ"] = data["ỉ"]
data[","] = data["."]
data["!"] = data["."]
data["?"] = data["."]
IPA = {}
function append_IPA (working_IPA)
	local IPA_size = #IPA --This variable needs to be set before the function or it breaks.
	if IPA_size > 0 then
			for i=1, IPA_size do
				IPA[IPA_size - i + 2] = IPA[IPA_size - i + 1]
			end
	end
	IPA[1] = working_IPA
end
-- BEGIN BASE GENERATION --
function generate_IPA(s)
	local s_len = mw.ustring.len(s)
	IPA = {}
	local split_s = {}
	for i = 1, s_len do
	  split_s[i] = mw.ustring.sub(s, i,i)
	end
	if s_len == 0 then
		error("Empty input.")
	end
	while s_len > 0 do
		local getData = {}
		local multiMatch = false
		local i_iteration = -2
		if s_len < 3 then
			i_iteration = 1 - s_len
		end
		for i = i_iteration, 0 do
		  getData = data[split_s[s_len + i]]
		  local deadEnd = false
		  if data[split_s[s_len + i]] == nil then
			error("'" .. split_s[s_len + i] .. "' is an invalid character.")
		  end
		  while type(getData) == "table" do
			if i == 0 then
				if getData[false] then
				  getData = getData[false]
				else
				  error(split_s[s_len] .. " is an invalid character.")
				end
			else
			  for j = 1, 0 - i do
				-- DEBUG PRINT ONLY
				local currentCombo = ""
				if i == -2 and j == 2 then
					currentCombo = split_s[s_len + i + j - 2] .. " + " .. split_s[s_len + i + j - 1] .. " + " .. split_s[s_len + i + j]
					else
					currentCombo = split_s[s_len + i + j - 1] .. " + " .. split_s[s_len + i + j]
				end
				-- END OF DEBUG PRINT
				if getData[split_s[s_len + i + j]] then
				  getData = getData[split_s[s_len + i + j]]
				  if type(getData) == "string" then
					if j + i == 0 then
					  multiMatch = true
					  break
					else
					  getData = {}
					  deadEnd = true
					  break
					end
				  elseif j + i == 0 and getData[false] then
					getData = getData[false]
					multiMatch = true
					break
				  elseif j + i == 0 and not getData[false] then
					error("data[" .. table.concat(getData, "][") .. "][false] is missing." )
				  else
				  end
				  else
					getData = {}
					deadEnd = true
					break
				end
			  end
			  if type(getData) == "table" then break end
			end
		  end
		  if type(getData) == "string" and (i == 0 or multiMatch == true) then
			  append_IPA(getData)
			  s = mw.ustring.sub(s, 1, s_len + i - 1)
			  s_len = mw.ustring.len(s)
			  break
			elseif deadEnd == false then
		  end
		end
	end
	return table.concat(IPA)
	-- END OF BASE GENERATION --
end

function export.generate(frame)
	local args = m_parameters.process(frame:getParent().args, params)
	generate_IPA(args[1])
end

return export