Module:siwa-headword

The following documentation is located at Module:siwa-headword/doc.^[edit]

Useful links: subpage list • links • transclusions • testcases • sandbox

---

local export = {}

function format_pos(poscat)
	if poscat == "noun" then
		return "'''" .. args[1] .. "'''"
	end	
end

-- The main entry point.
-- This is the only function that can be invoked from a template.
function export.show(frame)
	local PAGENAME = mw.title.getCurrentTitle().text
	local params = {
		[2] = { default = PAGENAME },
		[1] = {},
	}
	local args = require("Module:parameters").process(getParent().args, params)
	
	local head = args[2]
	if head == "" then
		head = nil
	end
	
	local poscat = args[1]
	local data = {lang = lang, pos_category = (postype and postype .. " " or "") .. poscat, categories = {}, heads = {head}, genders = {}, inflections = {}}
	
	if poscat == "adjectives" then
		if PAGENAME:find("^-") then
			data.pos_category = "suffixes"
			data.categories = {"Proto-Germanic adjective-forming suffixes"}
		end
		adjective(args, data)
	elseif poscat == "adverbs" then
		if SUBPAGENAME:find("^-") then
			data.pos_category = "suffixes"
			data.categories = {"Proto-Germanic adverb-forming suffixes"}
		end
		adverb(args, data)
	elseif poscat == "determiners" then
		adjective(args, data)
	elseif poscat == "nouns" then
		if PAGENAME:find("^-") then
			data.pos_category = "suffixes"
			data.categories = {"Proto-Germanic noun-forming suffixes"}
		end
		noun_gender(args, data)
	elseif poscat == "proper nouns" then
		noun_gender(args, data)
	elseif poscat == "verbs" then
		if PAGENAME:find("^-") then
			data.pos_category = "suffixes"
			data.categories = {"Proto-Germanic verb-forming suffixes"}
		end
	end
	
	return format_pos(poscat)
end

-- Display information for a noun's gender
-- This is separate so that it can also be used for proper nouns
function noun_gender(args, data)
	local valid_genders = {
		["m"] = true,
		["f"] = true,
		["n"] = true,
		["m-p"] = true,
		["f-p"] = true,
		["n-p"] = true}
	
	-- Iterate over all gn parameters (g2, g3 and so on) until one is empty
	local g = args[1] or ""; if g == "" then g = "?" end
	local i = 2
	
	while g ~= "" do
		if not valid_genders[g] then
			g = "?"
		end
		
		-- If any of the specifications is a "?", add the entry
		-- to a cleanup category.
		if g == "?" then
			table.insert(data.categories, "Requests for gender in Proto-Germanic entries")
		elseif g == "m-p" or g == "f-p" or g == "n-p" then
			table.insert(data.categories, "Proto-Germanic pluralia tantum")
		end
 
		table.insert(data.genders, g)
		g = args["g" .. i] or ""
		i = i + 1
	end
end

function adjective(args, data)
	local adverb = args["adv"]; if adverb == "" then adverb = nil end
	local comparative = args[1]; if comparative == "" then comparative = nil end
	local superlative = args[2]; if superlative == "" then superlative = nil end
	
	if adverb then
		table.insert(data.inflections, {label = "adverb", adverb})
	end
	
	if comparative then
		table.insert(data.inflections, {label = "comparative", comparative})
	end
	
	if superlative then
		table.insert(data.inflections, {label = "superlative", superlative})
	end
end

function adverb(args, data)
	local adjective = args["adj"]; if adjective == "" then adjective = nil end
	local comparative = args[1]; if comparative == "" then comparative = nil end
	local superlative = args[2]; if superlative == "" then superlative = nil end
	
	if adjective then
		table.insert(data.inflections, {label = "adjective", adjective})
	end
	
	if comparative then
		table.insert(data.inflections, {label = "comparative", comparative})
	end
	
	if superlative then
		table.insert(data.inflections, {label = "superlative", superlative})
	end
end

return export