This module page is experimental.
The details of its operation have not yet been fully decided upon. Do not deploy widely until the module page is finished.

Loudi Xiang Chinese pronunciation module. See {{zh-pron}} and Wiktionary:About Chinese/Xiang/Loudi.


local export = {}
local m_string_utils = require("Module:string utilities")

local find = m_string_utils.find
local match = m_string_utils.match

local initialConv = {
	["b"] = "p", ["p"] = "pʰ", ["bb"] = "b", ["m"] = "m",
	["d"] = "t", ["t"] = "tʰ", ["dd"] = "d", ["n"] = "n",  ["l"] = "l", 
	["z"] = "t͡s", ["c"] = "t͡sʰ", ["zz"] = "d͡z", ["s"] = "s",
	["j"] = "t͡ɕ", ["q"] = "t͡ɕʰ", ["jj"] = "d͡ʑ", ["x"] = "ɕ", ["xx"] = "ʑ",
	["g"] = "k", ["k"] = "kʰ", ["ng"] = "ŋ",
	["h"] = "x", ["gh"] = "ɣ", [""] = ""
}

local finalConv = {
	["r"] = "z̩",
	["i"] = "ɪ", ["ui"] = "u̯ɪ", ["yi"] = "ʏ̯͑ɪ",
	["u"] = "u", ["euu"] = "ɤ̟˕u̯",
	["y"] = "ʏ͑", 
	["a"] = "a̠", ["ia"] = "ɪ̯a", ["ua"] = "u̯a",
	["e"] = "e̞", ["ie"] = "ɪ̯e̞", ["ue"] = "u̯e̞", ["ye"] = "ʏ̯͑e̞", 
	["o"] = "ɔ", ["io"] = "ɪ̯ɔ", 
	["uo"] = "ʊ", ["iou"] = "ɪ̯ʊ", 
	["eu"] = "ɤ̟˕", ["ieu"] = "ɪ̯ɤ̟˕",
	["in"] = "ɪn", ["un"] = "un", ["yn"] = "ʏ͑n",
	["ong"] = "ɔŋ", ["iong"] = "ɪ̯ɔŋ", ["uong"] = "u̯ɔŋ",
	["eng"] = "ɤ̟˕ŋ", ["ieng"] = "ɪ̯ɤ̟˕ŋ", ["ueng"] = "u̯ɤ̟˕ŋ",
	["ann"] = "ã̠", ["uann"] = "u̯ã",
	["enn"] = "ẽ̞", ["uenn"] = "u̯ẽ̞",
	["onn"] = "ɔ̃", ["ionn"] = "ɪ̯ɔ̃", 
	["inn"] = "ɪ̃", ["uinn"] = "u̯ɪ̃", ["yinn"] = "ʏ͑ɪ̃",
	["m"] = "m̩", ["n"] = "n̩", ["ng"] = "ŋ̍"
}

local toneConv = {
	["1"] = "⁴⁴", ["2"] = "¹³", ["3"] = "⁴²", ["4"] = "³⁵", ["5"] = "¹¹",
	["1*"] = "⁴⁴⁻³³", ["2*"] = "¹³⁻³³", ["3*"] = "⁴²⁻¹", ["4*"] = "³⁵⁻⁵", ["5*"] = "¹¹⁻¹",
	["0"] = "³",
}

function export.ipa(text)
	if type(text) == "table" then
		text = text.args[1]
	end
	local result = {}
	for word in mw.text.gsplit(text, "/") do
		local syllables = mw.text.split(word, " ")
		local ipa = {}
		for index, syllable in ipairs(syllables) do
			local initial, final, tone
			local initial_orig = nil
			initial = syllable:match("^([bpmdtlnzcsjqxgkh]?([bdzjxhg]?))")
			final = syllable:match("^" .. initial .. "([^1-5%*]*)")
			if final == "" then
				final = initial
				initial = ""
			end
			if (find(final, "^r$") and not find(initial, "^[zcs]z?$")) or (find(initial, "^[jqx][jx]?$") and find(final, "^[aeou]")) or (find(final, "[mn]") and initial == "l") then
				error("Invalid input \"" .. syllable .. "\": initial " .. initial .. " cannot go with final " .. final .. ".")
			end	
			tone = syllable:match("[1-5%*]+$") or "0"
			if (match(initial, "[dtlzcs][dz]?")) and final == "u" then
				final = "euu"
			end
			if (match(tone, "[345]%*") and match(initial, "^[zcjq]$")) then
				initial_orig = initialConv[initial]
				initial = initial:gsub("^[zcjq]$", { ["z"] = "zz", ["c"] = "zz", ["j"] = "jj", ["q"] = "jj", })
			end
			initial = initialConv[initial] or error(("Unrecognised initial: \"%s\""):format(initial))
			final = finalConv[final] or error(("Unrecognised final: \"%s\""):format(final))
			tone = toneConv[tone] or error(("Unrecognised tone: \"%s\""):format(tone))
			ipa[index] = (initial_orig and ("<sup>(" .. initial_orig .. "-)</sup>") or "") .. initial .. final .. tone
		end
		local wordipa = table.concat(ipa, " ")
		if not (find(word, "%d")) then
			wordipa = wordipa:gsub("³", "")
		end
		table.insert(result, wordipa)
	end
	return table.concat(result, "/, /")
end

function export.rom(text)
	return (text
		:gsub("/", " / ")
		:gsub("([%d-]+%*?)", "<sup>%1</sup>"))
end

return export
"https://si.wiktionary.org/w/index.php?title=Module:hsn-pron-Loudi&oldid=82076" වෙතින් සම්ප්‍රවේශනය කෙරිණි