Module:etymology/templates/doublet

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

local concat = table.concat local format_categories = require_when_needed("Module:utilities", "format_categories") local insert = table.insert local process_params = require_when_needed("Module:parameters", "process") local serial_comma_join = require_when_needed("Module:table", "serialCommaJoin")

local export = {}

local rsplit = mw.text.split local rsubn = mw.ustring.gsub local ulower = string.ulower

-- version of rsubn that discards all but the first return value local function rsub(term, foo, bar) return (rsubn(term, foo, bar)) end

local function get_parsed_part(template, lang, args, terms, i)	local term = terms[i] local alt = args["alt"][i] local id = args["id"][i] local sc = args["sc"][i] local tr = args["tr"][i] local ts = args["ts"][i] local gloss = args["t"][i] local pos = args["pos"][i] local lit = args["lit"][i] local g = args["g"][i]

if not (term or alt or tr or ts) then require("Module:debug/track")(template .. "/no term or alt or tr") return nil else return require("Module:links").full_link(			{ term = term, alt = alt, id = id, lang = lang, sc = sc, tr = tr,			ts = ts, gloss = gloss, pos = pos, lit = lit,			genders = g and rsplit(g, ",") or {}		}, "term", true) end end

local function get_parsed_parts(template, lang, args, terms) local parts = {}

-- Find the maximum index among any of the list parameters. local maxmaxindex = 0 for _, v in pairs(args) do		if type(v) == "table" and v.maxindex and v.maxindex > maxmaxindex then maxmaxindex = v.maxindex end end

for index = 1, maxmaxindex do		insert(parts, get_parsed_part(template, lang, args, terms, index)) end return parts end

local function get_args(frame) local boolean = {type = "boolean"} local list = {list = true, allow_holes = true, require_index = true} return process_params(frame:getParent.args, {		[1] = {			required = true,			type = "language",			default = "und"		},		[2] = {list = true, allow_holes = true},		["t"] = list,		["gloss"] = {			list = true,			allow_holes = true,			require_index = true,			alias_of = "t"		},		["tr"] = list,		["ts"] = list,		["g"] = list,		["id"] = list,		["alt"] = list,		["lit"] = list,		["pos"] = list,		["sc"] = {			type = "script",			list = true,			allow_holes = true,			require_index = true		},		["nocap"] = boolean, -- should be processed in the template itself		["notext"] = boolean,		["nocat"] = boolean,		["sort"] = {},	}) end

-- Implementation of miscellaneous templates such as that can take -- multiple terms. Doesn't handle or, which display -- + signs between elements and use compound_like in Module:affix/templates. function export.misc_variant_multiple_terms(frame) local args = get_args(frame) local lang = args[1]

local parts = {} if not args["notext"] then insert(parts, frame.args["text"]) end if #args[2] > 0 or #args["alt"] > 0 then if not args["notext"] then insert(parts, " ") insert(parts, frame.args["oftext"] or "of") insert(parts, " ") end local formatted_terms = get_parsed_parts(ulower( -- Remove link and convert uppercase to lowercase to get an -- approximation of the original template name. rsub(rsub(frame.args["text"], "^%[%[.*|", ""), "%]%]$", "")),			lang, args, args[2]) insert(parts, serial_comma_join(formatted_terms)) end if not args["nocat"] and frame.args["cat"] then local categories = {} insert(categories, lang:getFullName .. " " .. frame.args["cat"]) insert(parts, format_categories(categories, lang, args["sort"])) end

return concat(parts) end

return export