Module:anui-headword

From Linguifex
Revision as of 18:10, 15 July 2021 by Sware (talk | contribs)
Jump to navigation Jump to search


local match = mw.ustring.match
local u = mw. ustring.char
local gsub = mw.ustring.gsub
local sub = mw.ustring.sub

local TILDEB = u(0x0330) -- COMBINING TILDE BELOW ̰◌

local export = {}

local lang = require("Module:languages").getByCode("art-nui")
local deabb = {["adj"] = "adjectives", ["v"] = "verbs", ["adv"] = "adverbs",}

local function glossary_link(entry, text)
	text = text or entry
	return "[[wikt:Appendix:Glossary#" .. entry .. "|" .. text .. "]]"
end

local function m(word)
	-- as in [[Module:anui-pron]], account for syllabic m
	word = word:gsub("([uùm]ʼ?)m", "%1ᴍ")
	word = word:gsub("m(ʼᴍ)", "ᴍ%1")
	word = word:gsub("([aeiouàèìòù])m", "%1ᴍ")
	word = word:gsub("([aeiouàèìòù])ᴍ([aeiou])", "%1m%2")
	
	return word
end

local function redup(word, grave)
	word = word:gsub("([ḛḭṵaɔ]" .. TILDEB .. "?)", {["ḛ"] = "è", ["ḭ"] = "ì", ["ṵ"] = "ù", ["a" .. TILDEB] = "à", ["o" .. TILDEB] = "ò"})
	word = m(word)
	
	local consonant = "[ǃǂǁʘʼʇxqrʛɴɬšṣschjklmptŋṉṭṯ]"
	local vowel = "[aeiouàèìòùʼãĩõᴍ]"
	-- CV > C₁(v)C₂V
	local C = match(word, "^" .. vowel .. "?(" .. consonant .. "*)")
	local V = match(word, consonant .. "*(" .. vowel .. "*)")
	
	local r2 = match(word, C .. "(.*)")
	local v = gsub(sub(V, 1, 1), "[àèìòù]", {["à"] = "a", ["è"] = "e", ["ì"] = "i", ["ò"] = "o", ["ù"] = "u"})
	
	local pref = match(C, "[sšṣɬ][ʇǃǂǁʘ]") ~= nil
	local nasal = match(C, "ɴ") ~= nil
	local glottal = match(C, "[ʇǃǂǁʘṭcɬq]ʼ") ~= nil
	local uvular = match(C, "x") ~= nil
	
	if (nasal or pref) or glottal then word = C .. (glottal and "" or v) .. gsub(C, "[sšṣɬ]([ʇǃǂǁʘ])", "%1") .. r2
	elseif uvular then word = gsub(C, "([ʇǃǂǁʘ])x", "%1") .. v .. C .. r2
	else word = C .. v .. C .. r2 end
	
	word = word:gsub("ᴍ", "m")
	if not grave then
		word = word:gsub("[àèìòù]", {["è"] = "ḛ", ["ì"] = "ḭ", ["ù"] = "ṵ", ["à"] = "a" .. TILDEB, ["ò"] = "o" .. TILDEB})
	end
	
	return word
end

function export.show(frame)
	local args = frame:getParent().args
	local word = args["w"] or mw.title.getCurrentTitle().text
	local data = {lang = lang, pos_category = deabb[args[1]], heads = {word}, categories = {}, inflections = {},}
	local pos = args[1]; local f = args[2]
	
	if f == '-' then
		if pos == "adj" then
			table.insert(data.inflections, {label = "not " .. glossary_link("comparable")})
			table.insert(data.categories, lang:getCanonicalName() .. " uncomparable adjectives")
		end
	elseif pos ~= "v" then
		table.insert(data.inflections, {label = glossary_link("comparative"), redup(word, args["grave"])})
		if pos == "adverbs" then table.insert(data.categories, lang:getCanonicalName() .. " comparative " .. pos) end
	else
		table.insert(data.inflections, {label = "[[w:applicative voice|applicative]]", redup(word, args["grave"])})
	end
	
	return require('Module:headword').full_headword(data)
end

return export