Module:qhv-headword: Difference between revisions

Jump to navigation Jump to search

Module:qhv-headword (view source)

Revision as of 15:06, 15 February 2021

6,012 bytes added ,  15 February 2021
no edit summary
No edit summary
No edit summary
Line 1: Line 1:
local export = {}
local export = {}
local pos_functions = {}


local lang = require("Module:languages").getByCode("gem-pro")
local legal_gender = {
["aq"] = true,
["lun"] = true,
["sol"] = true,
["ter"] = true,
["p"] = true,
}
 
local gender_names = {
["aq"] = "aquatic",
["lun"] = "lunar",
["sol"] = "solar",
["ter"] = "terrestrial"
}
 
local legal_verb_classes = { -- TBD
["1"] = true,
["2"] = true,
["3"] = true,
["4"] = true,
["5"] = true,
["6"] = true,
["7"] = true,
}
 
local lang = require("Module:languages").getByCode("qhv")


-- The main entry point.
-- The main entry point.
Line 7: Line 33:
function export.show(frame)
function export.show(frame)
local args = frame:getParent().args
local args = frame:getParent().args
SUBPAGENAME = mw.title.getCurrentTitle().subpageText
PAGENAME = mw.title.getCurrentTitle().text
local head = args["head"]; if head == "" then head = nil end
local head = args["head"]; if head == "" then head = nil end
-- The part of speech. This is also the name of the category that
-- entries go in. However, the two are separate (the "cat" parameter)
-- because you sometimes want something to behave as an adjective without
-- putting it in the adjectives category.
local poscat = frame.args[1] or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
local poscat = frame.args[1] or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
local postype = args["type"]; if postype == "" then postype = nil end
local class = frame.args[2]; if class == "" then class = nil end
local data = {lang = lang, pos_category = (postype and postype .. " " or "") .. poscat, categories = {}, heads = {head}, genders = {}, inflections = {}}
local data = {lang = lang, pos_category = poscat, categories = {}, heads = {head}, genders = {}, inflections = {}}
if poscat == "adjectives" then
if pos_functions[poscat] then
if SUBPAGENAME:find("^-") then
pos_functions[poscat](class, args, data)
data.pos_category = "suffixes"
end
data.categories = {"Proto-Germanic adjective-forming suffixes"}
return
require("Module:headword").full_headword(data)
end
 
pos_functions.nouns = function(class, args, data)
local params = {
[1] = {list = "g", default = detect_gender(params.head)},
[2] = {list = "gen"},
[3] = {list = "pl"},
[4] = {list = "dim"},
["head"] = {default = PAGENAME},
["m"] = {list = true},
["f"] = {list = true},
}
local args = require("Module:parameters").process(args, params)
data.heads = {args["head"]}
-- Gender
for _, g in ipairs(args[1]) do
if legal_gender[g] then
table.insert(data.genders, g)
if g == "p" then
table.insert(data.categories, "German pluralia tantum")
else
table.insert(data.categories, "German " .. gender_names[g] .. " nouns")
end
else
if g == "m-s" or g == "f-s" or g == "n-s" or g == "m-p" or g == "f-p" or g == "n-p" then
require("Module:debug").track("de-headword/genders")
end
table.insert(data.genders, "?")
end
end
if args[1][1] ~= "p" then
-- Genitive
if not args[2][1] then
if args[1][1] == "m" or args[1][1] == "n" then
table.insert(args[2], PAGENAME .. "s")
else
table.insert(args[2], PAGENAME)
end
end
end
adjective(args, data)
for i, form in ipairs(args[2]) do
elseif poscat == "adverbs" then
args[2][i] = {term = form}
if SUBPAGENAME:find("^-") then
data.pos_category = "suffixes"
data.categories = {"Proto-Germanic adverb-forming suffixes"}
end
end
adverb(args, data)
args[2].accel = {form = "gen|s"}
elseif poscat == "determiners" then
args[2].label = "genitive"
adjective(args, data)
table.insert(data.inflections, args[2])
elseif poscat == "nouns" then
if SUBPAGENAME:find("^-") then
-- Plural
data.pos_category = "suffixes"
if not args[3][1] and data.pos_category == "nouns" then
data.categories = {"Proto-Germanic noun-forming suffixes"}
table.insert(args[3], PAGENAME .. "en")
end
end
noun_gender(args, data)
if args[3][1] == "-" then
elseif poscat == "proper nouns" then
table.insert(data.inflections, {label = "no plural"})
noun_gender(args, data)
table.insert(data.categories, "German uncountable nouns")
elseif poscat == "verbs" then
elseif #args[3] > 0 then
if SUBPAGENAME:find("^-") then
for i, form in ipairs(args[3]) do
data.pos_category = "suffixes"
args[3][i] = {term = form}
data.categories = {"Proto-Germanic verb-forming suffixes"}
end
args[3].accel = {form = "p"}
args[3].label = "plural"
table.insert(data.inflections, args[3])
end
end
end
end
return require("Module:headword").full_headword(data)
-- Diminutive
if #args[4] > 0 then
for i, form in ipairs(args[4]) do
args[4][i] = {term = form, genders = {"n"}}
end
args[4].accel = {form = "diminutive", gender = "n"}
args[4].label = "diminutive"
table.insert(data.inflections, args[4])
end
-- Other gender
if #args.f > 0 then
args.f.label = "female"
table.insert(data.inflections, args.f)
end
if #args.m > 0 then
args.m.label = "male"
table.insert(data.inflections, args.m)
end
end
end


-- Display information for a noun's gender
pos_functions.adjectives = function(class, args, data)
-- This is separate so that it can also be used for proper nouns
local params = {
function noun_gender(args, data)
[1] = {list = "comp"},
local valid_genders = {
[2] = {list = "sup"},
["m"] = true,
["head"] = {},
["f"] = true,
}
["n"] = true,
local args = require("Module:parameters").process(args, params)
["m-p"] = true,
data.heads = {args["head"]}
["f-p"] = true,
["n-p"] = true}
-- Iterate over all gn parameters (g2, g3 and so on) until one is empty
if args[1][1] == "-" then
local g = args[1] or ""; if g == "" then g = "?" end
table.insert(data.inflections, {label = "not comparable"})
local i = 2
table.insert(data.categories, "German uncomparable adjectives")
return
end
while g ~= "" do
if #args[1] > 0 then
if not valid_genders[g] then
for i, form in ipairs(args[1]) do
g = "?"
args[1][i] = {term = (form == "er" and PAGENAME .. "er" or form),
accel = {form = "comparative"}}
end
end
else
-- If any of the specifications is a "?", add the entry
args[1] = {request = true}
-- to a cleanup category.
table.insert(data.categories, "de-adj lacking comparative")
if g == "?" then
end
table.insert(data.categories, "Requests for gender in Proto-Germanic entries")
args[1].label = "[[Appendix:Glossary#comparative|comparative]]"
elseif g == "m-p" or g == "f-p" or g == "n-p" then
table.insert(data.inflections, args[1])
table.insert(data.categories, "Proto-Germanic pluralia tantum")
if #args[2] > 0 then
for i, form in ipairs(args[2]) do
args[2][i] = {
term = "am [[" ..  (form == "sten" and PAGENAME .. "sten" or form) .. "]]",
accel = {form = "superlative"}}
end
end
else
table.insert(data.genders, g)
args[2] = {request = true}
g = args["g" .. i] or ""
table.insert(data.categories, "de-adj lacking superlative")
i = i + 1
end
end
args[2].label = "[[Appendix:Glossary#superlative|superlative]]"
table.insert(data.inflections, args[2])
end
end


function adjective(args, data)
pos_functions["proper nouns"] = pos_functions.nouns
local adverb = args["adv"]; if adverb == "" then adverb = nil end
 
local comparative = args[1]; if comparative == "" then comparative = nil end
pos_functions.verbs = function(class, args, data)
local superlative = args[2]; if superlative == "" then superlative = nil end
if args[2] then -- old-style
local params = {
if adverb then
[1] = {list = "pres", required = true},
table.insert(data.inflections, {label = "adverb", adverb})
["pres_qual"] = {list = "pres=_qual", allow_holes = true},
[2] = {list = "past", required = true},
["past_qual"] = {list = "past=_qual", allow_holes = true},
[3] = {list = "pp", required = true},
["pp_qual"] = {list = "pp=_qual", allow_holes = true},
[4] = {list = "pastsubj"},
["pastsubj_qual"] = {list = "pastsubj=_qual", allow_holes = true},
["aux"] = {list = true},
["aux_qual"] = {list = "aux=_qual", allow_holes = true},
["head"] = {list = true},
["class"] = {list = true},
}
 
local args = require("Module:parameters").process(args, params)
data.heads = args["head"]
 
local function collect_forms(label, accel_form, forms, qualifiers)
if forms[1] == "-" then
return {label = "no " .. label}
else
local into_table = accel_form and {label = label, accel = {form = accel_form}} or {label = label}
for i, form in ipairs(forms) do
table.insert(into_table, {term = form, qualifiers = qualifiers[i] and {qualifiers[i]} or nil})
end
return into_table
end
end
 
if #args.class > 0 then
local class_descs, cats = require("Module:de-verb").process_verb_classes(args.class)
for _, cats in ipairs(cats) do
table.insert(data.categories, cats)
end
table.insert(data.inflections, {label = require("Module:table").serialCommaJoin(class_descs, {conj = "or"})})
end
table.insert(data.inflections, collect_forms("third-person singular present", "3|s|pres", args[1], args.pres_qual))
table.insert(data.inflections, collect_forms("past tense", "1//3|s|pret", args[2], args.past_qual))
table.insert(data.inflections, collect_forms("past participle", "perf|part", args[3], args.pp_qual))
if #args[4] > 0 then
table.insert(data.inflections, collect_forms("past subjunctive", "1//3|s|sub|II", args[4], args.pastsubj_qual))
end
if #args.aux > 0 then
table.insert(data.inflections, collect_forms("auxiliary", nil, args.aux, args.aux_qual))
end
return
end
end
 
if comparative then
local function get_headword_inflection(forms, label, accel_form)
table.insert(data.inflections, {label = "comparative", comparative})
if forms then
local inflection = accel_form and {label = label, accel = {form = accel_form}} or {label = label}
for _, form in ipairs(forms) do
local qualifiers
if form.footnotes then
qualifiers = {}
for _, footnote in ipairs(form.footnotes) do
footnote = footnote:gsub("^%[(.*)%]$", "%1")
table.insert(qualifiers, footnote)
end
end
table.insert(inflection, {term = form.form, qualifiers = qualifiers})
end
return inflection
elseif label then
return {label = "no " .. label}
else
return {}
end
end
end
 
if superlative then
local alternant_multiword_spec = require("Module:de-verb").do_generate_forms(args, "from headword")
table.insert(data.inflections, {label = "superlative", superlative})
for _, cat in ipairs(alternant_multiword_spec.categories) do
table.insert(data.categories, cat)
end
end
end
table.insert(data.inflections, {label = table.concat(alternant_multiword_spec.verb_types, " or ")})


function adverb(args, data)
if #data.heads == 0 then
local adjective = args["adj"]; if adjective == "" then adjective = nil end
for _, head in ipairs(alternant_multiword_spec.forms.infinitive_linked) do
local comparative = args[1]; if comparative == "" then comparative = nil end
table.insert(data.heads, head.form)
local superlative = args[2]; if superlative == "" then superlative = nil end
end
end
if adjective then
table.insert(data.inflections, get_headword_inflection(alternant_multiword_spec.forms.pres_3s,
table.insert(data.inflections, {label = "adjective", adjective})
"third-person singular present", "3|s|pres"))
local pret_3s = alternant_multiword_spec.forms.pret_3s
table.insert(data.inflections, get_headword_inflection(pret_3s, "past tense", "1//3|s|pret"))
table.insert(data.inflections, get_headword_inflection(alternant_multiword_spec.forms.perf_part,
"past participle", "perf|part"))
-- See if we need the past subjunctive, i.e. there exist past subjunctive forms whose stem is not the
-- same as some past tense form. To facilitate comparison, we truncate final -e in both preterite 3s
-- and past subjunctive 3s, to handle cases like subjunctive 'ginge aus' vs. preterite 'ging aus'.
-- We need to compare 3s forms (and not e.g. 3p forms, where the issue with truncating -e doesn't
-- occur) so we work correctly with impersonal verbs.
local need_past_subj
local truncated_pret_3s_forms = {}
if pret_3s then
for _, form in ipairs(pret_3s) do
local truncated_form = form.form:gsub("e$", ""):gsub("e ", " ") -- discard 2nd retval
table.insert(truncated_pret_3s_forms, truncated_form)
end
end
local subii_3s = alternant_multiword_spec.forms.subii_3s
local truncated_subii_3s_forms = {}
if subii_3s then
for _, form in ipairs(subii_3s) do
local truncated_form = form.form:gsub("e$", ""):gsub("e ", " ") -- discard 2nd retval
table.insert(truncated_subii_3s_forms, truncated_form)
end
end
end
for _, past_subj_form in ipairs(truncated_subii_3s_forms) do
if comparative then
local saw_same = false
table.insert(data.inflections, {label = "comparative", comparative})
for _, pret_3s_form in ipairs(truncated_pret_3s_forms) do
if past_subj_form == pret_3s_form then
saw_same = true
break
end
end
if not saw_same then
need_past_subj = true
break
end
end
end
if need_past_subj then
if superlative then
table.insert(data.inflections, get_headword_inflection(subii_3s, "past subjunctive", "1//3|s|sub|II"))
table.insert(data.inflections, {label = "superlative", superlative})
end
end
local auxes = alternant_multiword_spec.forms.aux
table.insert(data.inflections, get_headword_inflection(auxes, "auxiliary"))
end
end


return export
return export
Retrieved from "https://linguifex.com/wiki/Special:MobileDiff/220137"

Navigation menu