မဝ်ဂျူ:yue-pron/Taishanese

Documentation for this module may be created at မဝ်ဂျူ:yue-pron/Taishanese/doc

local export = {}

local hsv_initial = {
	["b"] = "p", ["p"] = "pʰ", ["m"] = "ᵐb", ["f"] = "f", ["v"] = "v",
	["d"] = "t", ["t"] = "tʰ", ["n"] = "ⁿd", ["l"] = "l", ["lh"] = "ɬ",
	["g"] = "k", ["k"] = "kʰ", ["ng"] = "ᵑɡ", 
	["z"] = "t͡s", ["c"] = "t͡sʰ",
	["y"] = "j", ["s"] = "s", ["h"] = "h", [""] = ""
}

local hsv_final = {
	["a"] = "a", ["ai"] = "ai", ["au"] = "au", ["am"] = "am",
	["an"] = "an", ["ang"] = "aŋ", ["ap"] = "ap̚", ["at"] = "at̚",
	["ak"] = "ak̚", 

	["i"] = "i", ["iu"] = "iu", ["im"] = "im", ["in"] = "in", 
	["ip"] = "ip̚", ["it"] = "it̚",

	["ie"] = "iɛ", ["iau"] = "iau", ["iam"] = "iam", ["iang"] = "iaŋ", 
	["iap"] = "iap̚", ["iak"] = "iak̚",

	["u"] = "u", ["ui"] = "ui", ["un"] = "un", ["ut"] = "ut̚", 

	["e"] = "ə", ["ei"] = "ei", ["eu"] = "eu", ["em"] = "em", ["en"] = "en", 
	["uung"] = "ɵŋ", ["ep"] = "ep̚", ["et"] = "et̚", ["uuk"] = "ɵk̚", ["uut"] = "ɵt̚",

	["o"] = "ᵘɔ", ["oi"] = "ᵘɔi", ["on"] = "ᵘɔn", ["ong"] = "ɔŋ", 
	["ot"] = "ᵘɔt̚", ["ok"] = "ɔk̚", 
	
	["m"] = "m̩"
}

local hsv_tone = { ["1"]="³³", ["2"]="⁵⁵", ["3"]="²²", ["4"]="²¹", ["5"]="³²" }

function export.hoisanva_to_ipa(text)
	if text:match("2%*") or text:match("([1-5])%-%1") then
		error("Invalid Taishanese tone.")
	end
	
	text = text:gsub("[^ ,]+",function(syllable)
		local initial, final, tone, tone_ch = syllable:match("^([^aeiou]*)([^1-5]*)([1-5])([%*%-]?[1-5]?%*?)$")
		if final == "" then initial, final = "", initial end
		initial, final, tone = hsv_initial[initial], hsv_final[final], hsv_tone[tone]
		if not initial or not final then
			error("Invalid Taishanese syllable: " .. syllable)
		end
		local tone2 = false
		if tone_ch == "*" then
			tone2 = tone .. "⁵"
		elseif tone_ch:match("^%-[1-5]%*?$") then
			tone2 = hsv_tone[tone_ch:sub(2,2)]
				.. (tone_ch:sub(3,3) == "*" and "⁵" or "")
		elseif tone_ch ~= "" then
			error("Invalid Taishanese syllable: " .. syllable)
		end
		return initial..final..tone..(tone2 and ("⁻"..tone2) or "")
	end)
		:gsub(",","/, /")
	return "/" .. text .. "/"
end

return export