Difference between revisions of "Module:Template wrapper/sandbox"

From blackwiki
Jump to navigation Jump to search
test>Trappist the monk
test>Trappist the monk
Line 25: Line 25:
 
]]
 
]]
  
local function add_parameter (k, v, args, list, alias_map)
+
local function add_parameter (k, v, args, list)
 
if list then
 
if list then
 
table.insert( args, table.concat ({k, '=', v})); -- write parameter names and values to args table as string
 
table.insert( args, table.concat ({k, '=', v})); -- write parameter names and values to args table as string
 
else
 
else
-- TODO: do alias conversion / check before adding
+
args[k] = v; -- copy parameters to args table
if alias_map then
 
 
 
--if 1 then
 
-- error (mapped_aliases[1])
 
-- error (mw.dumpObject (mapped_aliases))
 
--end
 
 
 
 
 
if alias_map[k] then -- if this parameter is an alias of a target-template parameter
 
args[alias_map[k]] = v -- use the target template's parameter name
 
elseif alias_map[k..'#'] then -- non-enumerated parameter matches enumerated parameter pattern? enumerator at end only
 
args[alias_map[k..'#']:gsub('#', '')] = v; -- remove '#' and copy parameter to args table
 
elseif k:match ('%d+') then -- if this parameter name contains digits
 
local temp = k:gsub ('%d+', '#'); -- make a copy; digits replaced with single '#'
 
local enum = k:match ('%d+'); -- get the enumerator
 
 
if alias_map[temp] then
 
args[alias_map[temp]:gsub('#', enum)] = v; -- replace '#' with enumerator and add to args
 
else
 
args[k] = v; -- not in aliases list copy parameter to args table
 
end
 
else
 
args[k] = v; -- copy parameter to args table
 
end
 
else
 
args[k] = v; -- copy parameters to args table
 
end
 
 
end
 
end
 
end
 
end
Line 65: Line 38:
 
returns a table of local template (parent frame) parameter names and the target template names that match where
 
returns a table of local template (parent frame) parameter names and the target template names that match where
 
in [key]=<value> pairs where:
 
in [key]=<value> pairs where:
[key] is local template parameter name
+
[key] is local template parameter name (an alias)
<value> is target template parameter name
+
<value> is target template parameter name (the canonical parameter name used in the working template)
  
 
The parameter |_alias-map= has the form:
 
The parameter |_alias-map= has the form:
 
|_alias-map=<list>
 
|_alias-map=<list>
where <list> is a comma-separated list of parameter name pairs in the form
+
where <list> is a comma-separated list of alias / canonical parameter name pairs in the form
 
<from> : <to>
 
<from> : <to>
 
where:
 
where:
<from> is the local template's parameter name
+
<from> is the local template's parameter name (alias)
<to> is the target template's parameter name
+
<to> is the target template's parameter name (canonical)
 
for enumerated parameters place an octothorp (#) where the enumerator digits are placed in the parameter names:
 
for enumerated parameters place an octothorp (#) where the enumerator digits are placed in the parameter names:
 
<from#> : <to#>
 
<from#> : <to#>
Line 136: Line 109:
 
]=]
 
]=]
  
local function pframe_args_get (pframe_args, args, exclude, _ignore, alias_map, _include_positional, list)
+
local function pframe_args_get (pframe_args, args, exclude, _include_positional, list)
 
for k, v in pairs (pframe_args) do
 
for k, v in pairs (pframe_args) do
if (('number' == type (k) and alias_map[k]) or 'string' == type (k)) and not is_in_table (exclude, k) then
+
if 'string' == type (k) and not is_in_table (exclude, k) then -- do not pass along excluded parameters
-- if 'string' == type (k) and not is_in_table (exclude, k) then -- do not pass along excluded parameters
 
-- if not is_in_table (exclude, k) then -- do not pass along excluded parameters
 
 
if v and ('' ~= v) then -- pass along only those parameters that have assigned values
 
if v and ('' ~= v) then -- pass along only those parameters that have assigned values
 
if 'unset' == v:lower() then -- special keyword to unset 'default' parameters set in the wrapper template
 
if 'unset' == v:lower() then -- special keyword to unset 'default' parameters set in the wrapper template
 
v = ''; -- unset the value in the args table
 
v = ''; -- unset the value in the args table
 
end
 
end
if not is_in_table (_ignore, k) then
+
add_parameter (k, v, args, list) -- add all other parameters to args in the style dictated by list; alias map only supported for local-template parameters
add_parameter (k, v, args, list, alias_map) -- add all other parameters to args in the style dictated by list; alias map only supported for local-template parameters
 
end
 
 
end
 
end
 
end
 
end
Line 174: Line 143:
 
local template;
 
local template;
 
local exclude = {}; -- table of parameter names for parameters that are not passed to the working template
 
local exclude = {}; -- table of parameter names for parameters that are not passed to the working template
local _ignore = {}; -- table of pframe parameter names for parameters that are passed to the working template as the same name
+
local reuse_list = {}; -- table of pframe parameter names whose values are modified before they are passed to the working template as the same name
local alias_map = {}; -- table that maps local parameter names to target template parameter names
+
local alias_map = {}; -- table that maps parameter aliases to working template canonical parameter names
 
local _include_positional;
 
local _include_positional;
 
 
Line 181: Line 150:
 
exclude = mw.text.split (frame.args._exclude, "%s*,%s*"); -- make a table from its contents
 
exclude = mw.text.split (frame.args._exclude, "%s*,%s*"); -- make a table from its contents
 
end
 
end
-- TODO: _ignore needs a better name
+
-- TODO: |_ignore= needs a better name (|_reuse=)
 
if frame.args._ignore and ('' ~= frame.args._ignore) then -- if there is |_ignore= and it's not empty
 
if frame.args._ignore and ('' ~= frame.args._ignore) then -- if there is |_ignore= and it's not empty
_ignore = mw.text.split (frame.args._ignore, "%s*,%s*"); -- make a table from its contents
+
reuse_list = mw.text.split (frame.args._ignore, "%s*,%s*"); -- make a table from its contents
 
end
 
end
  
Line 198: Line 167:
 
-- ... the working template; positional parameters are not excludable
 
-- ... the working template; positional parameters are not excludable
 
 
local pframe = frame:getParent(); -- here we get the wrapper template's 'live' parameters from pframe.args
+
local _pframe_args = frame:getParent().args; -- here we get the wrapper template's 'live' parameters from pframe.args
pframe_args_get (pframe.args, args, exclude, _ignore, alias_map, _include_positional, list); -- add parameters and values to args that are not listed in the exclude table
+
local pframe_args = {}; -- a local table that we can modify
 +
 
 +
for k, v in pairs (_pframe_args) do -- make a copy that we can modify
 +
pframe_args[k] = v;
 +
end
 +
 +
-- here we look for pframe parameters that are aliases of canonical parameter names; when found
 +
-- we replace the alias with the canonical. We do this here because the reuse_list works on
 +
-- canonical parameter names so first we convert alias parameter names to canonical names and then
 +
-- we remove those canonical names from the pframe table that are reused (provided to the working
 +
-- template through the frame args table)
 +
 
 +
for k, v in pairs (alias_map) do -- k is alias name, v is canonical name
 +
if pframe_args[k] then -- if pframe_args has parameter with alias name
 +
pframe_args[v] = _pframe_args[k]; -- create new canonical name with alias' value
 +
pframe_args[k] = nil; -- unset the alias
 +
end
 +
end
 +
 
 +
for k, v in pairs (pframe_args) do -- do enumerated parameter alias -> canonical translation
 +
if 'string' == type (k) then -- only named parameters can be enumerated
 +
if alias_map[k..'#'] then -- non-enumerated alias matches enumerated parameter pattern? enumerator at end only
 +
pframe_args[alias_map[k..'#']:gsub('#', '')] = v; -- remove '#' and copy parameter to pframe_args table
 +
pframe_args[k] = nil; -- unset the alias
 +
elseif k:match ('%d+') then -- if this parameter name contains digits
 +
local temp = k:gsub ('%d+', '#'); -- make a copy; digits replaced with single '#'
 +
local enum = k:match ('%d+'); -- get the enumerator
 +
 +
if alias_map[temp] then -- if this parameter is a recognized enumerated alias
 +
pframe_args[alias_map[temp]:gsub('#', enum)] = v; -- use canonical name and replace '#' with enumerator and add to pframe_args
 +
pframe_args[k] = nil; -- unset the alias
 +
end
 +
end
 +
end
 +
end
 +
-- remove parameters that will be reused
 +
for k, v in ipairs (reuse_list) do -- k is numerical index, v is canonical parameter name to ignore
 +
if pframe_args[v] then -- if pframe_args has parameter that should be ignored
 +
pframe_args[v] = nil; -- unset the ignored parameter
 +
end
 +
end
 +
 
 +
pframe_args_get (pframe_args, args, exclude, _include_positional, list); -- add parameters and values to args that are not listed in the exclude table
  
 
return template; -- args now has all default and live parameters, return working template name
 
return template; -- args now has all default and live parameters, return working template name

Revision as of 20:49, 4 November 2018

Documentation for this module may be created at Module:Template wrapper/sandbox/doc

require('Module:No globals');

local error_msg = '<span style=\"font-size:100%\" class=\"error\"><code style=\"color:inherit; border:inherit; padding:inherit;\">&#124;_template=</code> missing or empty</span>';


--[[--------------------------< I S _ I N _ T A B L E >--------------------------------------------------------

scan through tbl looking for value; return true if found, false else

]]

local function is_in_table (tbl, value)
    for k, v in pairs (tbl) do
        if v == value then return true end
    end
    return false;
end


--[[--------------------------< A D D _ P A R A M E T E R >----------------------------------------------------

adds parameter name and its value to args table according to the state of boolean list argument; kv pair for
template execution; k=v string for template listing.

]]

local function add_parameter (k, v, args, list)
	if list then
		table.insert( args, table.concat ({k, '=', v}));						-- write parameter names and values to args table as string
	else
		args[k] = v;															-- copy parameters to args table
	end
end


--[[--------------------------< A L I A S _ M A P _ G E T >----------------------------------------------------

returns a table of local template (parent frame) parameter names and the target template names that match where
in [key]=<value> pairs where:
	[key] is local template parameter name (an alias)
	<value> is target template parameter name (the canonical parameter name used in the working template)

The parameter |_alias-map= has the form:
	|_alias-map=<list>
where <list> is a comma-separated list of alias / canonical parameter name pairs in the form
	<from> : <to>
where:
	<from> is the local template's parameter name (alias)
	<to> is the target template's parameter name (canonical)
	for enumerated parameters place an octothorp (#) where the enumerator digits are placed in the parameter names:
		<from#> : <to#>

]]

local function alias_map_get (_alias_map)
	local T = mw.text.split (_alias_map, '%s*,%s*');							-- convert the comma-separated list into a table of alias pairs
	local mapped_aliases = {};													-- mapped aliases will go here
	local l_name, t_name;														-- parameter names
	
	for _, alias_pair in ipairs (T) do											-- loop through the table of alias pairs
		l_name, t_name = alias_pair:match ('(.-)%s*:%s*(.+)');					-- from each pair, get local and target parameter names
		if l_name and t_name then												-- if both are set
			if tonumber (l_name) then
				l_name = tonumber (l_name);										-- convert number-as-text to a number
			end
			mapped_aliases[l_name] = t_name;									-- add them to the map table
		end
	end

	return mapped_aliases;
end


--[[--------------------------< F R A M E _ A R G S _ G E T >--------------------------------------------------

Fetch the wrapper template's 'default' and control parameters; adds default parameters to args

returns content of |_template= parameter (name of the working template); nil else

]]

local function frame_args_get (frame_args, args, list)
	local template;

	for k, v in pairs (frame_args) do											-- here we get the wrapper template's 'default' parameters
		if 'string' == type (k) and (v and ('' ~= v)) then						-- do not pass along positional or empty parameters
			if '_template' == k then
				template = v;													-- save the name of template that we are wrapping
			elseif '_exclude' ~= k and '_ignore' ~= k and '_include-positional' ~= k  and '_alias-map' ~= k then	-- these already handled so ignore here; 
				add_parameter (k, v, args, list);								-- add all other parameters to args in the style dictated by list
			end
		end
	end

	return template;															-- return contents of |_template= parameter
end


--[=[--------------------------< P F R A M E _ A R G S _ G E T >------------------------------------------------

Fetches the wrapper template's 'live' parameters; adds live parameters that aren't members of the exclude table to
args table; positional parameters may not be excluded

pframe parameters that are _ignored are 'reused':
	|chapter=[[wikisource:{{{chapter}}}]]

no return value

]=]

local function pframe_args_get (pframe_args, args, exclude, _include_positional, list)
	for k, v in pairs (pframe_args) do
		if 'string' == type (k) and not is_in_table (exclude, k) then			-- do not pass along excluded parameters
			if v and ('' ~= v) then												-- pass along only those parameters that have assigned values
				if 'unset' == v:lower() then									-- special keyword to unset 'default' parameters set in the wrapper template
					v = '';														-- unset the value in the args table
				end
				add_parameter (k, v, args, list)								-- add all other parameters to args in the style dictated by list; alias map only supported for local-template parameters
			end
		end
	end

	if _include_positional then
		for i, v in ipairs (pframe_args) do										-- pass along positional parameters
			if 'unset' == v:lower() then										-- special keyword to unset 'default' parameters set in the wrapper template
				v = '';															-- unset the value in the args table
			end
			add_parameter (i, v, args, list);
		end
	end
end


--[[--------------------------< _ M A I N >--------------------------------------------------------------------

Collect the various default and live parameters into args styled according to boolean list.

returns name of the working or listed template or nil for an error message

]]

local function _main (frame, args, list)
	local template;
	local exclude = {};															-- table of parameter names for parameters that are not passed to the working template
	local reuse_list = {};														-- table of pframe parameter names whose values are modified before they are passed to the working template as the same name
	local alias_map = {};														-- table that maps parameter aliases to working template canonical parameter names
	local _include_positional;
	
	if frame.args._exclude and ('' ~= frame.args._exclude) then					-- if there is |_exclude= and it's not empty
		exclude = mw.text.split (frame.args._exclude, "%s*,%s*");				-- make a table from its contents
	end
																				-- TODO: |_ignore= needs a better name (|_reuse=)
	if frame.args._ignore and ('' ~= frame.args._ignore) then					-- if there is |_ignore= and it's not empty
		reuse_list = mw.text.split (frame.args._ignore, "%s*,%s*");				-- make a table from its contents
	end

	if frame.args['_alias-map'] and ('' ~= frame.args['_alias-map']) then		-- if there is |_alias-map= and it's not empty
		alias_map = alias_map_get (frame.args['_alias-map']);					-- make a table from its contents
	end

	template = frame_args_get (frame.args, args, list);							-- get parameters provided in the {{#invoke:template wrapper|...|...}}
	if nil == template or '' == template then									-- this is the one parameter that is required by this module
		return nil;																-- not present, tell calling function to emit an error message
	end
	
	_include_positional = 'yes' == frame.args['_include-positional'];			-- when true pass all positional parameters along with non-excluded named parameters to ...
																				-- ... the working template; positional parameters are not excludable
																				
	local _pframe_args = frame:getParent().args;								-- here we get the wrapper template's 'live' parameters from pframe.args
	local pframe_args = {};														-- a local table that we can modify

	for k, v in pairs (_pframe_args) do											-- make a copy that we can modify
		pframe_args[k] = v;
	end
	
-- here we look for pframe parameters that are aliases of canonical parameter names; when found
-- we replace the alias with the canonical.  We do this here because the reuse_list works on
-- canonical parameter names so first we convert alias parameter names to canonical names and then
-- we remove those canonical names from the pframe table that are reused (provided to the working
-- template through the frame args table)

	for k, v in pairs (alias_map) do											-- k is alias name, v is canonical name
		if pframe_args[k] then													-- if pframe_args has parameter with alias name
			pframe_args[v] = _pframe_args[k];									-- create new canonical name with alias' value
			pframe_args[k] = nil;												-- unset the alias
		end
	end

	for k, v in pairs (pframe_args) do											-- do enumerated parameter alias -> canonical translation
		if 'string' == type (k) then											-- only named parameters can be enumerated
			if alias_map[k..'#'] then											-- non-enumerated alias matches enumerated parameter pattern? enumerator at end only
				pframe_args[alias_map[k..'#']:gsub('#', '')] = v;				-- remove '#' and copy parameter to pframe_args table
				pframe_args[k] = nil;											-- unset the alias
			elseif k:match ('%d+') then											-- if this parameter name contains digits
				local temp = k:gsub ('%d+', '#');								-- make a copy; digits replaced with single '#'
				local enum = k:match ('%d+');									-- get the enumerator
				
				if alias_map[temp] then											-- if this parameter is a recognized enumerated alias
					pframe_args[alias_map[temp]:gsub('#', enum)] = v;			-- use canonical name and replace '#' with enumerator and add to pframe_args
					pframe_args[k] = nil;										-- unset the alias
				end
			end
		end
	end
																				-- remove parameters that will be reused
	for k, v in ipairs (reuse_list) do											-- k is numerical index, v is canonical parameter name to ignore
		if pframe_args[v] then													-- if pframe_args has parameter that should be ignored
			pframe_args[v] = nil;												-- unset the ignored parameter
		end
	end

	pframe_args_get (pframe_args, args, exclude, _include_positional, list);	-- add parameters and values to args that are not listed in the exclude table

	return template;															-- args now has all default and live parameters, return working template name
end


--[[--------------------------< W R A P >----------------------------------------------------------------------

Template entry point.  Call this function to 'execute' the working template

]]

local function wrap (frame)
	local args = {};															-- table of default and live parameters and their values to be passed to the wrapped template
	local template;																-- the name of the working template

	template = _main (frame, args, false);										-- get default and live parameters and the name of the working template
	if not template then														-- template name is required
		return error_msg;														-- emit error message and abandon if template name not present
	end

	return frame:expandTemplate {title=template, args=args};					-- render the working template
end


--[[--------------------------< L I S T >----------------------------------------------------------------------

Template entry point.  Call this function to 'display' the source for the working template.  This function added
as a result of a TfD here: Wikipedia:Templates_for_discussion/Log/2018_April_28#Module:PassArguments

This function replaces a similarly named function which was used in {{cite compare}} and {{cite compare2}}

Values in the args table are numerically indexed strings in the form 'name=value'

]]


local function list (frame)
	local args = {};															-- table of default and live parameters and their values to be passed to the listed template
	local template;																-- the name of the listed template

	template = _main (frame, args, true);										-- get default and live parameters and the name of the listed template
	if not template then														-- template name is required
		return error_msg;														-- emit error message and abandon if template name not present
	end

	return frame:preprocess (table.concat ({'<code style="color:inherit; background:inherit; border:none;"><nowiki>{{', template, ' |', table.concat( args, ' |' ), '}}</nowiki></code>'}));	-- render the template
end


--[[--------------------------< E X P O R T E D   F U N C T I O N S >------------------------------------------
]]

return {
	list = list,
	wrap = wrap,
	};