Module:Parameters/sandbox

-- This module implements Template:Parameters. -- [SublimeLinter luacheck-globals:mw]

local DEFINITIONS = { alt = { code = '', dlist = 'text alternative for image; see WP:ALT'}, coordinates = { code = '', dlist = 'using Coord'}, coords = { code = '', dlist = 'using Coord'}, native_name = { code = '', dlist = 'name in local language; if more than one, separate ' .. 'using Plainlist, use lang, and omit native_name_lang'}, native_name_lang = { code = '', dlist = 'language two- or three-letter ISO code'}, start_date = { code = '', dlist = 'use '}, end_date = { code = '', dlist = 'use '}, url = { code = '', dlist = 'using URL'}, website = { code = '', dlist = 'using {{subst:URL|example.com}}'},}

local p = {} local removeDuplicates = require('Module:TableTools').removeDuplicates local yesno = require('Module:Yesno')

local function makeInvokeFunction(funcName) return function(frame) local getArgs = require('Module:Arguments').getArgs return p[funcName](getArgs(frame, {removeBlanks = false})) end end

local function extractParams(page) local source = mw.title.new(page, 'Template'):getContent

local parameters = {} for parameter in string.gmatch(source, '{{{(.-)%f[}|<>]') do		table.insert(parameters, parameter) end return removeDuplicates(parameters) end

local function map(tbl, transform) local returnTable = {} for k, v in pairs(tbl) do		returnTable[k] = transform(v) end return returnTable end

local function strMap(tbl, transform) local returnTable = map(tbl, transform) return table.concat(returnTable) end

function p._check(args) local title = args.base or mw.title.getCurrentTitle.fullText return string.format(		'{{#invoke:Check for unknown parameters|check|unknown=' ..		'|%s}}', title,		table.concat(extractParams(args.base), '|')) end

function p._code(args) local definitions = yesno(args.definitions) local pad = yesno(args.pad)

local parameters = extractParams(args.base) -- Space-pad the parameters to align the equal signs vertically if pad then local lengthPerPara = map(parameters, function (parameter)			return string.len(parameter) end) -- Lua doesn't support printf's <*> to specify the width, apparently local fs = string.format('%%-%ss', math.max(unpack(lengthPerPara))) for i, parameter in pairs(parameters) do			parameters[i] = string.format(fs, parameter) end end

local title = args.base or mw.title.getCurrentTitle.baseText return string.format( {{%s %s}}, title, strMap(parameters, function(s) if definitions then return string.format('| %s = %s\n', s,					DEFINITIONS[s] and DEFINITIONS[s].code or '') else return string.format('| %s = \n', s)			end end)) end

function p._flatcode(args) local parameters = extractParams(args.base) local title = args.base or mw.title.getCurrentTitle.baseText return string.format(' {{tlp|%s%s}}', title, strMap(parameters, function(s) return string.format(' |%s{{=}} %s ', s, s)		end)	) end

function p._compare(args) local Set = require('Module:Set')

local function normaliseParams(parameters) local paramsNorm = {} -- Prepare a key lookup metatable, which will hold the original -- parameter names for each normalised parameter, e.g. -- [test] = {TEST, Test}. paramIndex functions like a Python -- defaultdict, where the default is a table. local paramIndex = setmetatable({}, {__index = function(t, k)			if not rawget(t, k) then				rawset(t, k, {})			end			return rawget(t, k)		end}) for _, parameter in pairs(parameters) do			table.insert(paramsNorm,				string.lower(string.gsub(parameter, '%A', ''))) table.insert(paramIndex[				string.lower(string.gsub(parameter, '%A', ''))], parameter) end

paramsNorm = removeDuplicates(paramsNorm) -- Overload key lookup in paramsNorm. While Module:Set will -- operate on the table (which is to say, the normalised parameters		-- array), key access will be by way of the paramIndex metatable. setmetatable(paramsNorm, {__index = paramIndex}) return paramsNorm end

local baseParams = extractParams(args.base) local otherParams = extractParams(args.other) local baseNormParams = normaliseParams(Set.valueComplement( otherParams, baseParams)) local otherNormParams = normaliseParams(otherParams)

return string.format(Identical: %s Similar: %s Disparate: %s,	strMap(Set.valueIntersection(baseParams, otherParams), function(v) return string.format('* %s\n', v) end),	strMap(Set.valueIntersection(baseNormParams, otherNormParams), function(v) return string.format('* %s < %s [%s]\n',			table.concat(baseNormParams[v], '; '),			table.concat(otherNormParams[v], '; '),			v) end),	strMap(Set.valueComplement(otherNormParams, baseNormParams), function(v) return strMap(baseNormParams[v],			function(s) return string.format('* %s\n', s) end) end)) end

function p._demo(args) local title = args.base and ('|_template=' .. args.base) or '' return string.format('{{Parameter names example%s|%s}}', title,		table.concat(extractParams(args.base), '|')) end

function p._dlist(args) local definitions = yesno(args.definitions, true) local defFormat = '; %s: %s\n' local nonDefFormat = '; %s: \n' if args._para then defFormat = '; {{para|%s}}: %s\n' nonDefFormat = '; {{para|%s}}: \n' end return strMap(extractParams(args.base),		function(s)			if definitions then				return string.format(defFormat, s,					DEFINITIONS[s] and DEFINITIONS[s].dlist or '')			else				return string.format(nonDefFormat, s)			end		end) end

function p._dlistpara(args) args._para = true return p._dlist(args) end

function p._list(args) return strMap(extractParams(args.base),		function(s) return string.format('* %s\n', s) end) end

p.check = makeInvokeFunction('_check') p.code = makeInvokeFunction('_code') p.flatcode = makeInvokeFunction('_flatcode') p.compare = makeInvokeFunction('_compare') p.demo = makeInvokeFunction('_demo') p.dlist = makeInvokeFunction('_dlist') p.dlistpara = makeInvokeFunction('_dlistpara') p.list = makeInvokeFunction('_list')

return p