Module:kilta-headword

From Linguifex
Revision as of 11:32, 22 April 2024 by Sware (talk | contribs)
Jump to navigation Jump to search

Documentation for this module may be created at Module:kilta-headword/doc

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("kilta")
local deabb = {["adj"] = "adjectives", ["v"] = "verbs", ["adv"] = "adverbs", ["n"] = "nouns"}

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

local function plural(word)
	local pl = {}
	
	if word:match("[kh]wa$") or word:match("a$") then
		pl = {sub(word, 1, -1) .. "úr"}
	elseif word:match("ës$") or word:match("uin$") or word:match("[str]$") then
		pl = {word .. "á"}
	elseif word:match("[nml]$") then
		pl = {word .. "ur"}
	end
	
	pl.label = "plural"
	return pl
end

function export.show(frame)
	
	local params = {
		[1] = {},
		[2] = {list = true},
		["w"] = {default = PAGENAME},
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	local word = args["w"]
	local pos = args[1]; local pl = args[2]
	local data = {lang = lang, pos_category = deabb[pos], heads = {word}, categories = {}, inflections = {},}
	
	if pl[1] == '-' then
		if pos == "n" then
			table.insert(data.inflections, {label = glossary_link("uncountable")})
			table.insert(data.categories, lang:getCanonicalName() .. " uncountable " .. deabb[pos])
		end
	--[=[ elseif pos ~= "v" then
		table.insert(data.inflections, {label = glossary_link("comparative"), redup(word)})
		if pos == "adv" then table.insert(data.categories, lang:getCanonicalName() .. " comparative " .. deabb[pos]) end ]=]
	else
		table.insert(data.inflections, pl or plural(word))
	end
	
	return require('Module:headword').full_headword(data)
end

return export