Module:gmh-headword

local export = {} local pos_functions = {}

local force_cat = false -- for testing; if true, categories appear in non-mainspace pages

local lang = require("Module:languages").getByCode("gmh") local langname = "Middle High German"

-- Table of all valid genders. local valid_genders = { ["m"] = true, ["f"] = true, ["n"] = true, ["m-p"] = true, ["f-p"] = true, ["n-p"] = true, ["?"] = true, ["?-p"] = true, }

local rfind = mw.ustring.find

local function track(track_id) require("Module:debug/track")("gmh-headword/" .. track_id) return true end

local function glossary_link(anchor, text) text = text or anchor return "" .. text .. "" end

-- The main entry point. -- This is the only function that can be invoked from a template. function export.show(frame) local iparams = { [1] = {required = true}, ["def"] = {}, }	local iargs = require("Module:parameters").process(frame.args, iparams) local args = frame:getParent.args local poscat = iargs[1] local def = iargs.def

local parargs = frame:getParent.args

local params = { ["head"] = {list = true}, ["id"] = {}, ["sort"] = {}, ["splithyph"] = {type = "boolean"}, ["nolinkhead"] = {type = "boolean"}, ["json"] = {type = "boolean"}, ["pagename"] = {}, -- for testing }

if pos_functions[poscat] then for key, val in pairs(pos_functions[poscat].params) do			params[key] = val end end

local args = require("Module:parameters").process(parargs, params)

local pagename = args.pagename or mw.title.getCurrentTitle.text

local data = { lang = lang, pos_category = poscat, categories = {}, heads = args.head, genders = {}, inflections = {}, pagename = pagename, id = args.id, sort_key = args.sort, force_cat_output = force_cat, }

local is_suffix = false if pagename:find("^%-") and poscat ~= "suffix forms" then is_suffix = true data.pos_category = "suffixes" local singular_poscat = require("Module:string utilities").singularize(poscat) table.insert(data.categories, langname .. " " .. singular_poscat .. "-forming suffixes") table.insert(data.inflections, {label = singular_poscat .. "-forming suffix"}) end

if pos_functions[poscat] then pos_functions[poscat].func(def, args, data, is_suffix) end

-- mw.ustring.toNFD performs decomposition, so letters that decompose -- to an ASCII vowel and a diacritic, such as é, are counted as vowels and -- do not need to be included in the pattern. if not pagename:find("[ %-]") and not rfind(mw.ustring.lower(mw.ustring.toNFD(pagename)), "[aeiouyæœø]") then table.insert(data.categories, langname .. " words without vowels") end

if args.json then return require("Module:JSON").toJSON(data) end return require("Module:headword").full_headword(data) end

local function get_noun_params(is_proper) params = { [1] = {alias_of = "g"}, ["indecl"] = {type = "boolean"}, }	local function insert_list_param(arg) params[arg] = {list = true} params[arg .. "_qual"] = {list = arg .. "\1_qual", allow_holes = true} end insert_list_param("g") insert_list_param("m") insert_list_param("f") insert_list_param("adj") insert_list_param("dim") insert_list_param("aug") insert_list_param("pej") insert_list_param("dem") insert_list_param("fdem") return params end

local function do_nouns(is_proper, def, args, data, is_suffix) for i, g in ipairs(args.g) do		if not valid_genders[g] then error("Unrecognized gender: '" .. g .. "'") end track("gender-" .. g)		if args.g_qual[i] then table.insert(data.genders, {spec = g, qualifiers = {args.g_qual[i]}}) else table.insert(data.genders, g)		end end if args.indecl then table.insert(data.inflections, {label = glossary_link("indeclinable")}) table.insert(data.categories, langname .. " indeclinable nouns") end local function handle_infl(arg, label) local vals = args[arg] local quals = args[arg .. "_qual"] if #vals > 0 then local inflections = {} for i, val in ipairs(vals) do				table.insert(inflections, {term = val, q = quals and quals[i] and {quals[i]} or nil}) end inflections.label = label table.insert(data.inflections, inflections) end end handle_infl("m", "masculine") handle_infl("f", "feminine") handle_infl("adj", "related adjective") handle_infl("dim", "diminutive") handle_infl("aug", "augmentative") handle_infl("pej", "pejorative") handle_infl("dem", "demonym") handle_infl("fdem", "female demonym") end

pos_functions["nouns"] = { params = get_noun_params(false), func = function(def, args, data, is_suffix) return do_nouns(false, def, args, data, is_suffix) end, }

pos_functions["adjectives"] = { params = { [1] = {list = "comp"}, [2] = {list = "sup"}, ["adv"] = {list = true}, ["indecl"] = {type = "boolean"}, },	func = function(def, args, data, is_suffix) if args.indecl then table.insert(data.inflections, {label = glossary_link("indeclinable")}) table.insert(data.categories, langname .. " indeclinable adjectives") end if args[1][1] == "-" then table.insert(data.inflections, {label = "not comparable"}) table.insert(data.categories, langname .. " uncomparable adjectives") elseif #args[1] > 0 then local comp = args[1] comp.label = "comparative" comp.accel = {form = "comparative"} table.insert(data.inflections, comp) table.insert(data.categories, langname .. " comparable adjectives") end if #args[2] > 0 then local sup = args[2] sup.label = "superlative" sup.accel = {form = "superlative"} table.insert(data.inflections, sup) end if #args.adv > 0 then args.adv.label = "adverb" table.insert(data.inflections, args.adv) end end, }

return export