Module:letter headword - Revision history

Sware at 12:08, 8 May 2026

2026-05-08T12:08:03Z

← Older revision		Revision as of 12:08, 8 May 2026
Line 272:		Line 272:
	}		}
	-- All letters can also be used as nouns ("There are two f's in that word").		-- All letters can also be used as nouns ("There are two f's in that word").
	~~insert(data.categories, lang:getFullName() .. " nouns")~~
	~~if sc:getCode() ~= "None" then~~
	~~insert(data.categories, sc:getCategoryName() .. " characters")~~
	~~end~~
	local uppage = uupper(pagename)		local uppage = uupper(pagename)
	local lopage = ulower(pagename)		local lopage = ulower(pagename)

Sware: Undo revision 515266 by Sware (talk)

2026-05-08T11:30:33Z

Undo revision 515266 by Sware (talk)

← Older revision		Revision as of 11:30, 8 May 2026
Line 47:		Line 47:
	end		end

	local function resolve_plus(termobjs, default, paramname)		local function resolve_plus(termobjs, default, paramname, lang)
	local saw_plus = false		local saw_plus = false
	for _, termobj in ipairs(termobjs) do		for _, termobj in ipairs(termobjs) do
Line 88:		Line 88:
	end		end

	local function parse_equivalent(value, default, paramname, no_prefix_colon)		local function parse_equivalent(value, default, paramname, no_prefix_colon, lang)
	if not value then		if not value then
	return nil		return nil
Line 116:		Line 116:
	termobjs = {{ term = value }}		termobjs = {{ term = value }}
	end		end
	termobjs = resolve_plus(termobjs, default, paramname)		termobjs = resolve_plus(termobjs, default, paramname, lang)
	for _, termobj in ipairs(termobjs) do		for _, termobj in ipairs(termobjs) do
	if not no_prefix_colon then		if not no_prefix_colon then
Line 317:		Line 317:
	insert(data.inflections, {label = "no case"})		insert(data.inflections, {label = "no case"})
	else		else
	local upper = ~~(lang:hasType("conlang") and "Contionary:" or "") ..~~ parse_equivalent(args.upper or "+", ucfirstpage, "upper")		local upper = parse_equivalent(args.upper or "+", ucfirstpage, "upper", lang)
	local lower = ~~(lang:hasType("conlang") and "Contionary:" or "") ..~~ parse_equivalent(args.lower or "+", lopage, "lower")		local lower = parse_equivalent(args.lower or "+", lopage, "lower", lang)
	local allcaps = ~~(lang:hasType("conlang") and "Contionary:" or "") ..~~ parse_equivalent(args.allcaps or ulen(pagename) == 1 and args.upper or "+", uppage, "allcaps")		local allcaps = parse_equivalent(args.allcaps or ulen(pagename) == 1 and args.upper or "+", uppage, "allcaps", lang)
	local mixed = ~~(lang:hasType("conlang") and "Contionary:" or "") ..~~ parse_equivalent(args.mixed, nil, "mixed")		local mixed = parse_equivalent(args.mixed, nil, "mixed", lang)
	local pagenameobj = {{term = ":" .. pagename, tr = "-"}}		local pagenameobj = {{term = ":" .. pagename, tr = "-"}}
	if typ == "upper" then		if typ == "upper" then
Line 377:		Line 377:
	local default_pls		local default_pls
	if iargs.pl_ending then		if iargs.pl_ending then
	default_pls = parse_equivalent(iargs.pl_ending, nil, "pl_ending", "no_prefix_colon")		default_pls = parse_equivalent(iargs.pl_ending, nil, "pl_ending", "no_prefix_colon", lang)
	for _, pl_ending in ipairs(default_pls) do		for _, pl_ending in ipairs(default_pls) do
	if pl_ending.term == "_" then		if pl_ending.term == "_" then
Line 386:		Line 386:
	end		end
	end		end
	local pls = parse_equivalent(args.pl or "+", default_pls, "pl")		local pls = parse_equivalent(args.pl or "+", default_pls, "pl", lang)
	if not pls[2] and pls[1].term == ":" .. pagename then		if not pls[2] and pls[1].term == ":" .. pagename then
	require(headword_utilities_module).insert_fixed_inflection {		require(headword_utilities_module).insert_fixed_inflection {
Line 399:		Line 399:

	if args.modern then		if args.modern then
	local termobjs = parse_equivalent(args.modern, nil, "modern")		local termobjs = parse_equivalent(args.modern, nil, "modern", lang)
	insert_inflection(termobjs, "modern equivalent")		insert_inflection(termobjs, "modern equivalent")
	end		end
Line 405:		Line 405:
	if others[1] then		if others[1] then
	for _, other in ipairs(others) do		for _, other in ipairs(others) do
	local termobjs = parse_equivalent(other.value, nil, other.obj:getCode())		local termobjs = parse_equivalent(other.value, nil, other.obj:getCode(), lang)
	for _, termobj in ipairs(termobjs) do		for _, termobj in ipairs(termobjs) do
	if other.objtype == "language" then		if other.objtype == "language" then

Sware at 11:19, 8 May 2026

2026-05-08T11:19:53Z

← Older revision		Revision as of 11:19, 8 May 2026
Line 317:		Line 317:
	insert(data.inflections, {label = "no case"})		insert(data.inflections, {label = "no case"})
	else		else
	local upper = parse_equivalent(args.upper or "+", ucfirstpage, "upper")		local upper = (lang:hasType("conlang") and "Contionary:" or "") .. parse_equivalent(args.upper or "+", ucfirstpage, "upper")
	local lower = parse_equivalent(args.lower or "+", lopage, "lower")		local lower = (lang:hasType("conlang") and "Contionary:" or "") .. parse_equivalent(args.lower or "+", lopage, "lower")
	local allcaps = parse_equivalent(args.allcaps or ulen(pagename) == 1 and args.upper or "+", uppage, "allcaps")		local allcaps = (lang:hasType("conlang") and "Contionary:" or "") .. parse_equivalent(args.allcaps or ulen(pagename) == 1 and args.upper or "+", uppage, "allcaps")
	local mixed = parse_equivalent(args.mixed, nil, "mixed")		local mixed = (lang:hasType("conlang") and "Contionary:" or "") .. parse_equivalent(args.mixed, nil, "mixed")
	local pagenameobj = {{term = ":" .. pagename, tr = "-"}}		local pagenameobj = {{term = ":" .. pagename, tr = "-"}}
	if typ == "upper" then		if typ == "upper" then

Sware: Created page with "local export = {} local force_cat = false local require_when_needed = require("Module:utilities/require when needed") local headword_module = "Module:headword" local headword_utilities_module = "Module:headword utilities" local JSON_module = "Module:JSON" local languages_module = "Module:languages" local parameters_module = "Module:parameters" local scripts_module = "Module:scripts" local table_module = "Module:table" local m_string_utilities = require("Module:string..."

2026-05-08T10:49:52Z

Created page with "local export = {} local force_cat = false local require_when_needed = require("Module:utilities/require when needed") local headword_module = "Module:headword" local headword_utilities_module = "Module:headword utilities" local JSON_module = "Module:JSON" local languages_module = "Module:languages" local parameters_module = "Module:parameters" local scripts_module = "Module:scripts" local table_module = "Module:table" local m_string_utilities = require("Module:string..."

New page

local export = {}

local force_cat = false

local require_when_needed = require("Module:utilities/require when needed")

local headword_module = "Module:headword"
local headword_utilities_module = "Module:headword utilities"
local JSON_module = "Module:JSON"
local languages_module = "Module:languages"
local parameters_module = "Module:parameters"
local scripts_module = "Module:scripts"
local table_module = "Module:table"

local m_string_utilities = require("Module:string utilities")
local glossary_link = require_when_needed(headword_utilities_module, "glossary_link")
local deep_equals = require_when_needed(table_module, "deepEquals")
local shallow_copy = require_when_needed(table_module, "shallowCopy")

local uupper = m_string_utilities.upper
local ucfirst = m_string_utilities.ucfirst
local ulower = m_string_utilities.lower
local ulen = m_string_utilities.len
local insert = table.insert

local per_language_defaults = {
de = {g = "n"},
en = {pl_ending = "s,'s"},
it = {g = "f,m", pl_ending = "_"},
pt = {g = "m"},
}

local function ine(val)
if not val then
return val
end
val = mw.text.trim(val)
if val == "" then return nil else return val end
end

local function add_initial_colon_to_term(term)
if term ~= "-" and term ~= "+" and not term:find("^:") then
-- Make sure we link to the specified term even if it has a diacritic that would normally be stripped off.
term = ":" .. term
end
return term
end

local function resolve_plus(termobjs, default, paramname)
local saw_plus = false
for _, termobj in ipairs(termobjs) do
if termobj.term == "+" then
saw_plus = true
break
end
end
if not saw_plus then
return termobjs
end
if not default then
error(("Saw '+' for param '%s' but no default available"):format(paramname))
end
if type(default) == "string" then
for _, termobj in ipairs(termobjs) do
if termobj.term == "+" then
termobj.term = default
end
end
return termobjs
end
if type(default) ~= "table" then
error("Internal error: `default` should be nil, string or list of strings")
end

local resolved_termobjs = {}
for _, termobj in ipairs(termobjs) do
if termobj.term == "+" then
for _, defval in ipairs(default) do
defval = shallow_copy(defval)
require(headword_utilities_module).combine_termobj_qualifiers_labels(defval, termobj)
insert(resolved_termobjs, defval)
end
else
insert(resolved_termobjs, termobj)
end
end
return resolved_termobjs
end

local function parse_equivalent(value, default, paramname, no_prefix_colon)
if not value then
return nil
end
local termobjs
if value == "+" then
-- optimization to avoid loading [[Module:headword utilities]]
if not default then
error(("Saw '+' for param '%s' but no default available"):format(paramname))
end
if type(default) == "string" then
termobjs = {{term = default}}
else
if type(default) ~= "table" then
error("Internal error: `default` should be nil, string or list of term objects")
end
termobjs = default
end
elseif value:find("[,<]") then
termobjs = require(headword_utilities_module).parse_term_with_modifiers {
val = value,
paramname = paramname,
splitchar = ",",
include_mods = {"tr", "ts", "t", "sc"},
}
else
termobjs = {{ term = value }}
end
termobjs = resolve_plus(termobjs, default, paramname)
for _, termobj in ipairs(termobjs) do
if not no_prefix_colon then
termobj.term = add_initial_colon_to_term(termobj.term)
end
termobj.tr = "-"
end
return termobjs
end

--[==[
Implementation of the letter headword template for a given language (e.g. {{tl|en-letter}}, {{tl|it-letter}} or
{{tl|sh-letter}}). Supports the following invocation parameters:
; {{para|pos}}
: The plural part of speech to use; defaults to {{cd|letters}}. Other possibilities are e.g. {{cd|numeral symbols}} for
numeral symbols (letters used for list items).
; {{para|lang}}
: The language code of the language of the headword template. Omit for language-agnostic {{tl|letter}}.
; {{para|sc}}
: Specify the default script code. Rarely needs to be given.
; {{para|g}}
: Specify the default gender(s) of the letter. Multiple comma-separated values are allowed, along with qualifier, label
and reference inline modifiers. See [[Module:gender and number]] for more information, including the allowed values.
The default(s) can be overridden using the {{para|g}} template parameter.
; {{para|pl_ending}} ...
: Specify the default ending(s) of the plural form(s) of the letter. Multiple items should be comma-separated, and
qualifier, label, reference, transliteration and gloss inline modifiers are allowed. Use the value {{cd|_}} to
indicate a null ending. The default(s) can be overridden using the {{para|pl}} template parameter.
; {{para|allow_tr|1}}
: Specify that the template allows the {{para|tr}} parameter to be given for specifying transliteration.
]==]
function export.show(frame)
local list_param = {list = true, disallow_holes = true}
local boolean_param = {type = "boolean"}
local frame_args = frame.args
local parent_args = frame:getParent().args

-- Extract language and any per-language defaults. If they exist, clone the frame args and set the defaults into the
-- frame args before parsing. If there is no language specified at either the invocation or template level, we'll
-- get an error later.
local lang = ine(frame_args.lang) or ine(parent_args[1])
if lang and per_language_defaults[lang] then
local cloned_frame_args = {}
for k, v in pairs(frame_args) do
cloned_frame_args[k] = v
end
local defaults = per_language_defaults[lang]
for k, v in pairs(defaults) do
if cloned_frame_args[k] == nil then
cloned_frame_args[k] = v
end
end
frame_args = cloned_frame_args
end

local iargs = require(parameters_module).process(frame_args, {
pos = {default = "letters"},
lang = {type = "language", template_default = "und"},
sc = {type = "script"},
g = {type = "genders"},
pl_ending = true,
allow_tr = boolean_param,
})
local allowed_types = {"upper", "lower", "mixed", "allcaps", "nocase"}
local params = {
g = {type = "genders"},
sc = {type = "script"},
type = {set = allowed_types},
head = list_param,
upper = true,
lower = true,
mixed = true,
allcaps = true,
pl = true,
nopl = boolean_param,
id = true,
sort = true,
pagename = true,
modern = true,
}
local langparam, otherparam
if not iargs.lang then
langparam = 1
otherparam = 2
params[langparam] = {type = "language", required = true, template_default = "und"}
else
otherparam = 1
end
params[otherparam] = list_param
if iargs.g and iargs.g[1] then
params.nog = boolean_param
end
if iargs.allow_tr or not iargs.lang then
params.tr = list_param
end
if not iargs.lang then
params.ts = list_param
end
local args = require(parameters_module).process(parent_args, params)
local others = {}

for i, otherspec in ipairs(args[otherparam]) do
local lang_sc, rest = otherspec:match("^([a-zA-Z0-9-]+):([^ ].*)$")
if not lang_sc then
error(("Expected other-lang or other-script param %s=%s to begin with a language code or script code followed by a colon and no space"):format(i + otherparam - 1, otherspec))
end
local obj = require(scripts_module).getByCode(lang_sc)
local objtype
if obj then
objtype = "script"
else
obj = require(languages_module).getByCode(lang_sc, nil, "allow etym")
if obj then
objtype = "language"
else
error(("Unrecognized language or script '%s' in %s=%s"):format(lang_sc, i + otherparam - 1, otherspec))
end
end
insert(others, {
obj = obj,
objtype = objtype,
value = rest,
})
end

local pagename = args.pagename or mw.loadData("Module:headword/data").pagename
if args.type then
if args.type ~= "upper" and args.type ~= "lower" and args.type ~= "mixed" and args.type ~= "nocase" then
error(("Unrecognized value for type '%s'; should be one of 'upper', 'lower', 'mixed' or 'nocase'"):format(
args.type))
end
end
local lang = langparam and args[langparam] or iargs.lang
local sc = args.sc or iargs.sc or lang:findBestScript(pagename)

local data = {
lang = lang,
sc = sc,
pos_category = iargs.pos,
categories = {},
pagename = pagename,
inflections = {},
id = args.id,
sort_key = args.sort,
heads = args.head,
translits = args.tr,
transcriptions = args.ts,
force_cat_output = force_cat,
genders = not args.nog and (args.g and args.g[1] and args.g or iargs.g) or nil,
categories = {},
-- Disable "terms with redundant script codes" and "terms with non-redundant manual script codes"
-- categories. We always specify the script and the categories simply aren't useful in this case; having
-- them just clutters the categories with letter entries.
no_script_code_cat = true,
}
-- All letters can also be used as nouns ("There are two f's in that word").
insert(data.categories, lang:getFullName() .. " nouns")
if sc:getCode() ~= "None" then
insert(data.categories, sc:getCategoryName() .. " characters")
end
local uppage = uupper(pagename)
local lopage = ulower(pagename)
local ucfirstpage = ucfirst(lopage)

local function insert_inflection(termobjs, label)
if not termobjs or not termobjs[1] then
return
end
if termobjs[1].term == "-" then
require(headword_utilities_module).insert_inflection {
headdata = data,
terms = termobjs,
label = label,
}
else
termobjs.label = label
insert(data.inflections, termobjs)
end
end

local typ = args.type
if not typ then
if uppage == lopage then
typ = "nocase"
elseif data.pagename == ucfirstpage then
typ = "upper"
elseif data.pagename == uppage then
typ = "allcaps"
elseif data.pagename == lopage then
typ = "lower"
else
typ = "mixed"
end
end

if typ == "nocase" then
if args.upper or args.lower or args.mixed or args.allcaps then
error("Can't specify upper=, lower=, mixed= or allcaps= when letter has no case")
end
insert(data.inflections, {label = "no case"})
else
local upper = parse_equivalent(args.upper or "+", ucfirstpage, "upper")
local lower = parse_equivalent(args.lower or "+", lopage, "lower")
local allcaps = parse_equivalent(args.allcaps or ulen(pagename) == 1 and args.upper or "+", uppage, "allcaps")
local mixed = parse_equivalent(args.mixed, nil, "mixed")
local pagenameobj = {{term = ":" .. pagename, tr = "-"}}
if typ == "upper" then
if args.upper then
error("Already uppercase; can't specify upper=")
end
insert(data.inflections, {label = "[[wikt:Appendix:Capital letter|upper case]]"})
insert_inflection(lower, "lower case")
if not deep_equals(pagenameobj, allcaps) then
insert_inflection(allcaps, "[[wikt:Appendix:Capital letter|all caps]]")
end
insert_inflection(mixed, "mixed case")
elseif typ == "lower" then
if args.lower then
error("Already lowercase; can't specify lower=")
end
insert(data.inflections, {label = "lower case"})
if deep_equals(upper, allcaps) then
if ulen(pagename) == 1 then
insert_inflection(upper, "[[wikt:Appendix:Capital letter|upper case]]")
else
insert_inflection(upper, "[[wikt:Appendix:Capital letter|upper case]] and all caps")
end
else
insert_inflection(upper, "[[wikt:Appendix:Capital letter|upper case]]")
insert_inflection(allcaps, "[[wikt:Appendix:Capital letter|all caps]]")
end
insert_inflection(mixed, "mixed case")
elseif typ == "allcaps" then
if args.allcaps then
error("Already all-caps; can't specify allcaps=")
end
insert(data.inflections, {label = "[[wikt:Appendix:Capital letter|all caps]]"})
if not deep_equals(pagenameobj, upper) then
insert_inflection(upper, "[[wikt:Appendix:Capital letter|upper case]]")
end
insert_inflection(lower, "lower case")
insert_inflection(mixed, "mixed case")
else
if args.mixed then
error("Already mixed-case; can't specify mixed=")
end
insert(data.inflections, {label = "mixed case"})
insert_inflection(lower, "lower case")
if deep_equals(upper, allcaps) then
insert_inflection(upper, "[[wikt:Appendix:Capital letter|upper case]] and all caps")
else
insert_inflection(upper, "[[wikt:Appendix:Capital letter|upper case]]")
insert_inflection(allcaps, "[[wikt:Appendix:Capital letter|all caps]]")
end
end
end
if args.nopl then
insert(data.inflections, {label = "no plural"})
elseif args.pl or iargs.pl_ending then
local default_pls
if iargs.pl_ending then
default_pls = parse_equivalent(iargs.pl_ending, nil, "pl_ending", "no_prefix_colon")
for _, pl_ending in ipairs(default_pls) do
if pl_ending.term == "_" then
pl_ending.term = pagename
else
pl_ending.term = pagename .. pl_ending.term
end
end
end
local pls = parse_equivalent(args.pl or "+", default_pls, "pl")
if not pls[2] and pls[1].term == ":" .. pagename then
require(headword_utilities_module).insert_fixed_inflection {
headdata = data,
originating_term = pls[1],
label = glossary_link("invariable"),
}
else
insert_inflection(pls, "plural")
end
end

if args.modern then
local termobjs = parse_equivalent(args.modern, nil, "modern")
insert_inflection(termobjs, "modern equivalent")
end

if others[1] then
for _, other in ipairs(others) do
local termobjs = parse_equivalent(other.value, nil, other.obj:getCode())
for _, termobj in ipairs(termobjs) do
if other.objtype == "language" then
termobj.lang = other.obj
else
termobj.sc = other.obj
end
end
insert_inflection(termobjs, other.obj:getCanonicalName() .. " equivalent")
end
end

if args.json then
return require(JSON_module).toJSON(data)
end
return require(headword_module).full_headword(data)
end

return export