View source for Module:Besoh

-- Module:Besoh — inflection and estimated pronunciation for Besoh (YCQ-BE).
-- Morphology mirrors the language's table rules: plural -u (-'u after vowels),
-- dative postposition bi, locative -on (-'on after vowels) with the 'u'
-- collapse in the plural locative; stative -va, perfect particle va'.
-- pron() implements the ten spoken laws (stress is not estimated).
local p = {}
local U = mw.ustring

local VOW = "aeiouäëïöü"
local function ends_vowel(w)
	return U.find(w, "[" .. VOW .. "]$") ~= nil
end

function p._plural(w)
	local last = U.sub(w, -1)
	if last == "e" or last == "o" then
		return U.sub(w, 1, -2) .. "u"       -- final e/o merge into the -u
	end
	return w .. (ends_vowel(w) and "'u" or "u")
end
function p._dative(w) return w .. "bi" end
function p._locative(w)
	return w .. (ends_vowel(w) and "'on" or "on")
end
function p._loc_pl(w)
	local f = p._locative(p._plural(w))
	return (U.gsub(f, "'u'", "'"))
end
function p._stative(w) return w .. "va" end
function p._perfect(w) return "va' " .. w end

-- estimated pronunciation from the orthography (laws 6–15, segmental only)
function p._pron(w)
	local s = w
	-- letters to base sounds
	for a, b in pairs({ ["ś"]="ʃ", ["ź"]="ʒ", ["c"]="ʦ", ["j"]="ʣ", ["ñ"]="ɲ",
		["n"]="ŋ", ["ĥ"]="x", ["ĝ"]="ɣ", ["ǵ"]="ʁ", ["'"]="ʔ",
		["ä"]="aː", ["ë"]="eː", ["ï"]="iː", ["ö"]="oː", ["ü"]="uː" }) do
		s = U.gsub(s, a, b)
	end
	s = U.gsub(s, "iu", "y")
	s = U.gsub(s, "x([iey])", "ç%1")
	local NAS = { a="ã", e="ẽ", i="ĩ", o="õ", u="ũ" }
	s = U.gsub(s, "([aeiou])ŋ$", function(v) return NAS[v] end)
	s = U.gsub(s, "([aeiouyː])ʔ$", "%1ˀ")
	s = U.gsub(s, "([aeiouyː])b([aeiouy])", "%1β%2")
	s = U.gsub(s, "([aeiouyː])d([aeiouy])", "%1ð%2")
	s = U.gsub(s, "([aeiouyː])g([aeiouy])", "%1ɣ%2")
	local L = "pbtdkgqʦʣfvszʃʒxɣʁhmɲŋrlβðç"
	s = U.gsub(s, "e([" .. L .. "][" .. L .. "])", "ɛ%1")
	s = U.gsub(s, "o([" .. L .. "][" .. L .. "])", "ɔ%1")
	s = U.gsub(s, "e([" .. L .. "])$", "ɛ%1")
	s = U.gsub(s, "o([" .. L .. "])$", "ɔ%1")
	local VOC = "aeiouyɛɔãẽĩõũ"
	if U.find(s, "[" .. VOC .. "].*[eo]$") and not U.find(s, "[" .. VOC .. "ː][eo]$") then
		s = U.gsub(s, "[eo]$", "əː")
	end
	local DEV = { b="p", d="t", g="k", v="f", z="s", ["ʒ"]="ʃ", ["ʣ"]="ʦ", ["ɣ"]="x" }
	local VCE = { p="b", t="d", k="g", f="v", s="z", ["ʃ"]="ʒ", ["ʦ"]="ʣ" }
	s = U.gsub(s, "([ptkfsʃʦ])([bdgvzʒʣ])", function(a, b2) return VCE[a] .. b2 end)
	s = U.gsub(s, "([bdgvzʒʣɣ])$", function(a) return DEV[a] end)
	return s
end

local function cell(form, link)
	local shown
	if link then
		shown = "'''[[Dictionary:" .. form .. "#Besoh|" .. form .. "]]'''"
	else
		shown = "'''" .. form .. "'''"
	end
	return shown .. "<br /><small>/" .. p._pron(form) .. "/</small>"
end

local function headword(frame)
	local w = mw.text.trim(frame:getParent().args.word or frame:getParent().args[1] or "")
	if w == "" then w = mw.title.getCurrentTitle().text end
	return w
end

-- {{YCQ-BE-decl}} — noun table; the bare plural links to its own entry.
function p.decl(frame)
	local w = headword(frame)
	local rows = {
		'{| class="wikitable" style="text-align:center"',
		'! !! SG !! PL',
		'|-', '! Ø',
		'| ' .. cell(w, false) .. ' || ' .. cell(p._plural(w), true),
		'|-', '! DAT',
		'| ' .. cell(p._dative(w), true) .. ' || ' .. cell(p._dative(p._plural(w)), true),
		'|-', '! LOC',
		'| ' .. cell(p._locative(w), true) .. ' || ' .. cell(p._loc_pl(w), true),
		'|}',
	}
	return table.concat(rows, "\n")
end

-- {{YCQ-BE-conj}} — verb table.
function p.conj(frame)
	local w = headword(frame)
	local rows = {
		'{| class="wikitable" style="text-align:center"',
		'! !! Ø !! STAT',
		'|-', '! Ø',
		'| — || ' .. cell(p._stative(w), true),
		'|-', '! PERF',
		'| ' .. cell(p._perfect(w), false) .. ' || ' .. cell(p._perfect(p._stative(w)), false),
		'|}',
	}
	return table.concat(rows, "\n")
end

return p