Jump to content

Module:Unsubst-infobox

Permanently protected module
From Wikipedia, the free encyclopedia
This is an old revision of this page, as edited by Jc86035 (talk | contribs) at 05:27, 14 May 2017. The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

local p = {}

local specialParams = {
	['$P'] = 'parameters',
	['$E'] = 'extra parameters',
	['$U'] = 'usual parameters',
	['$A'] = 'aliases',
	['$B'] = 'template content'
}

p[''] = function ( frame )
	if not frame:getParent() then
		error( '{{#invoke:Unsubst-infobox|}} makes no sense without a parent frame' )
	end
	if not frame.args['$B'] then
		error( '{{#invoke:Unsubst-infobox|}} requires parameter $B (template content)' )
	end
	if not frame.args['$P'] then
		error( '{{#invoke:Unsubst-infobox|}} requires parameter $P (parameter list)' )
	end
	
	if mw.isSubsting() then
		---- substing
		-- Combine passed args with passed defaults
		local args = {}
		for k, v in pairs( frame.args ) do
			if not specialParams[k] then
				if v == '__DATE__' then
					v = mw.getContentLanguage():formatDate( 'F Y' )
				end
				args[k] = v
			end
		end
		for k, v in pairs( frame:getParent().args ) do
			args[k] = v
		end

		-- Build an equivalent template invocation
		-- First, find the title to use
		local titleobj = mw.title.new(frame:getParent():getTitle())
		local title
		if titleobj.namespace == 10 then -- NS_TEMPLATE
			title = titleobj.text
		elseif titleobj.namespace == 0 then -- NS_MAIN
			title = ':' .. titleobj.text
		else
			title = titleobj.prefixedText
		end

		-- Build the invocation body with numbered args first, then named
		local ret = '{{' .. title
		for k, v in ipairs( args ) do
			if string.find( v, '=', 1, true ) then
				-- likely something like 1=foo=bar, we need to do it as a named arg
				break
			end
			if not aliases[k] then
				ret = ret .. '|' .. v
				args[k] = nil
			end
		end
		
		-- Pull lists from special parameters
		local params = mw.text.split( frame.args['$P'], '%s*,%s*' )
		local usual, extra = {}, {}
		if frame.args['$U'] then
			local tmp = mw.text.split( frame.args['$U'], '%s*,%s*' )
			for k, v in ipairs( tmp ) do usual[v] = true end
		elseif frame.args['$E'] then
			local tmp = mw.text.split( frame.args['$E'], '%s*,%s*' )
			for k, v in ipairs( tmp ) do extra[v] = true end
		end
		local aliases = {}
		if frame.args['$A'] then
			for k, v in ipairs( mw.text.split( frame.args['$A'], '%s*,%s*' ) ) do
				local tmp = mw.text.split( v, '%s*=%s*' )
				aliases[tmp[1]] = aliases[tmp[2]]
			end
		end
		
		-- Pull information from parameter aliases
		for k, v in pairs( args ) do
			if aliases[k] and ((not args[aliases[k]]) or args[aliases[k]] == '') then args[aliases[k]] = v end
		end
		
		-- Replace parameter list with short version if full version not necessary
		local tmp = 0
		if #usual > 0 then
			for k, v in pairs( args ) do
				if not usual[k] then
					tmp = 1
					break
				end
			end
		else
			tmp = 1
		end
		if tmp == 0 then params = usual end
		
		-- Indent parameters correctly
		local maxlength = 0
		for k, v in ipairs( params ) do
			local tmp = mw.ustring.len( v )
			if tmp > maxlength then maxlength = tmp end
		end
		
		for k, v in ipairs( params ) do
			if not extra[k] or (args[v] and args[v] ~= '') then
				ret = ret .. '\n| ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (args[v] or '')
			end
		end
	
		ret = ret .. '\n}}'
		
		ret = mw.ustring.gsub(ret, '%s+\n', '\n')
		
		return ret
	else
		-- Not substing
		-- Just return the "body"
		return frame.args['$B']
	end
end

return p