Module:Sandbox/BrandonXLF/Module:Map params

Module documentation[view] [edit] [history] [purge]

{{#invoke:Map params|map}} maps parameters received by a function to wikitext using |1= or to a template call using |call=.

Usage

{{#invoke:Map params|main|parameters}}

Parameters

Input

• |prefixn= - The prefix of the parameters to process. All registered prefixes will be checked to determine if a number is present in the provided arguments. |prefix1= defaults to processing unnamed parameters.
• |extran= - An extra parameter to pass to the wikitext or template being called. If the extra parameter is suffixed with a number (same as prefixed parameters but not checked to determine if a number is present), add the suffix (i). For example, style(i).
• |sparse= - Set to yes to support parameter lists with gaps. Defaults to no.
• |optnum= - Whether or not to support passing the first parameter without a number, i.e. allow it to be |prefix= rather than |prefix1=. Defaults to yes.

Map to

• |1= - The wikitext to map parameters to. Parameters are substituted with their number removed, i.e. |itemn= becomes |item= etc. The parameter {{{i}}} is replaced with the current index and {{{1}}} is replaced with the current unnamed parameter (if applicable).
• |call= - Template to call. Parameters are passed with their number removed, i.e. |itemn= becomes |item= etc. The parameter {{{i}}} is the current index and {{{1}}} is the current unnamed parameter (if applicable). Overrides |1=.

Concatenation

• |sep= / |2= - Separator to add between outputs. To preserve leading and tailing whitespace, |2= can be used instead, or |1= when |call= is being used.
• |conj= - Special separator to use before the final output. Outer spaces can be added with {{sp}} or  .

Advanced

• |expand= - Whether or not to expand templates, parser functions, extension tags, etc. after substituting parameters. This is most useful when |1= is used without <nowiki>...</nowiki> tags and can provide a slight performance advantage. Only relevant when using |1=. Defaults to yes.

See also

The above documentation is transcluded from Module:Sandbox/BrandonXLF/Module:Map params/doc. (edit | history)
Editors can experiment in this module's sandbox (create | mirror) and testcases (edit | run) pages.
Subpages of this module.

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

local function escPattern(s)
	return s:gsub('([%(%)%%%.%[%]%*%+%-%?%^%$])', '%%%1')
end

local function getPrefixes(args)
	local prefixes = {}
    local i = 1

    repeat
    	table.insert(prefixes, args['prefix' .. i] or '')
    	i = i + 1
    until not args['prefix' .. i]
    
    return prefixes
end

function p.map(frame)
	local result = {}
	local parent = frame:getParent()
	
	-- Note: The difference between angle brackets and their entities is lost
	local code = mw.text.unstripNoWiki(frame.args[1]):gsub('&lt;', '<'):gsub('&gt;', '>')
	local sep = frame.args.sep or ''
	local conj = frame.args.conj or sep
	local start = tonumber(frame.args.start or 1)
	local expand = yesno(frame.args.expand or true)
	local prefixes = getPrefixes(frame.args)
	
	local iter
	local nums
	local first
	
	if yesno(frame.args.sparse or false) then
		local seenNums = {} 
	    nums = {}

	    for k, _ in pairs(parent.args) do
	    	local prefixMatch = false
	    	local j = 1

			-- Check every prefix for a match
	    	while prefixes[j] and not prefixMatch do
	    		local numStr = tostring(k):match('^' .. escPattern(prefixes[j]) .. '([1-9]%d*)$')

	    		if numStr then
	    			local num = tonumber(numStr)

	    			if num ~= nil and num >= start and not seenNums[num] then
	    				table.insert(nums, num)
	    				seenNums[num] = true
	    			end
	    		end
	    		
	    		if numStr ~= nil then
	    			prefixMatch = true
	    		end

	    		j = j + 1
	    	end
	    end
	
	    table.sort(nums)
	    
	    -- Iterate over each found number
	    function sequenceIter(a, i)
			i = i + 1
			
			local v = a[i]
			
			if v then
				return i, v
			end
	    end
	    
	    iter = sequenceIter
	    first = 0
	else
		-- Iterate each number and check for any matches
		local function prefixIter(a, i)
			i = i + 1
			
	    	local j = 1
	    	local prefixMatch = false
	    	
	    	-- Check every prefix for a match
	    	while prefixes[j] and not prefixMatch do
	    		prefixMatch = a[prefixes[j] .. i]
	    		j = j + 1
	    	end
	    	
	    	if prefixMatch then
	    		return i, i
	    	end
		end
		
	    iter = prefixIter
	    nums = parent.args
	    first = start - 1
	end
	
	for _, num in iter, nums, first do
		local args = {}
		
		-- Inherent arguments passed to the template
		for k, v in pairs(parent.args) do
			args[k] = v
		end
		
		-- Pass current parameters without their numeric suffix
		for _, prefix in ipairs(prefixes) do
			args[prefix ~= '' and prefix or '@'] = args[prefix ~= '' and prefix .. num or num]
		end
		
		local processed = code
			:gsub("{{[iI]}}", num) -- Custom magic word {{I}}
			:gsub("{{{([^{}|]*)|?[^{}]*}}}", args) -- Substitute parameters
			
		if expand then
			table.insert(result, frame:preprocess(processed))
		else
			table.insert(result, processed)
		end
	end
	
	return mw.text.listToText(result, sep, conj)
end

return p