Module:Routemap - Knowledge (XXG)

Module documentation[view] [edit] [history] [purge]
This module is rated as ready for general use. It has reached a mature form and is thought to be relatively bug-free and ready for use wherever appropriate. It is ready to mention on help pages and other Knowledge (XXG) resources as an option for new users to learn. To reduce server load and bad output, it should be improved by sandbox testing rather than repeated trial-and-error editing.
This Lua module is used on approximately 28,000 pages and changes may be widely noticed. Test changes in the module's /sandbox or /testcases subpages, or in your own module sandbox. Consider discussing changes on the talk page before implementing them.
Transwikiing this module requires TemplateStyles, Module:Navbar and Module:Color contrast.
Related pages
Template (talk) Template sandbox Template testcases Template doc Template subpages Module Module sandbox Module testcases Module doc Module subpages
This module depends on the following other modules:
This module handles the {{Routemap}}, {{BSsplit}}, {{BSto}}, {{BScvt}}, {{BSsrws}}, {{RoutemapRoute}} and {{RoutemapRouteIcon}} templates. For usage instructions, see the respective templates' pages.
For sandbox test results, see Template:Routemap/testcases (purged) and Template:BSsplit/testcases (purged).
Tracking categories are at Category:Routemap tracking categories.
To do

Make it easier to change sizes
Long-term: Add support for merging and splitting table cells
Add a link to where the TemplateStyles are defined
The above documentation is transcluded from Module:Routemap/doc. (edit | history)
Editors can experiment in this module's sandbox (edit | diff) and testcases (create) pages.
Subpages of this module.
local i18n = {
	errors = {
		 = "Missing parameter!",
		 = "Collapsible section not closed properly!",
		 = "Missing start-Collapsible markup!",
		 = "Collapsible section must not be empty!",
		 = "Invalid first row of collapsible section!",
		 = "Invalid collapsible replacement row!",
		 = "Invalid colspan set!",
	},
	 = {
		default = ']',
		 = ']',
		 = ']',
		 = ']',
		 = ']',
		 = ']',
		 = ']'
	},
	text = {
		navbar_mini = false, -- for navbar pos 2 only
		navbar_text = 'This diagram:', -- for navbar pos 2 only
		legend_text = 'Legend',
		legend = {
			default = '[[Template:Railway line legend',
			track = '[[Template:Railway track legend',
			bus = '[[Template:Bus route legend',
			road = '[[Template:Roads legend',
			canal = '[[Template:Waterways legend',
			water = '[[Template:Waterways legend',
			waterway = '[[Template:Waterways legend',
			foot = '[[Template:Trails legend',
			footpath = '[[Template:Trails legend',
			walkway = '[[Template:Trails legend'
		}
	},
	html = {
		 = '<div style="%s">]%s</div>',
		 = '<div class="RMic" style="%s">]</div>',
		 = '<div style="%s"><div class="RMov">%s</div><div%s>]%s</div></div>',
		 = '<div class="RMtx RM%s" style="%s"><div%s style="%s" title="%s">%s%s%s%s%s%s</div></div>',
		 = '<div class="RMtx RM%s" style="%s"><div%s style="%s" title="%s">%s%s%s%s%s</div></div>',
		 = '<div class="RM%s" style="%s"><div class="RMov">%s</div><div class="RMtx RM%s" style="%s"><div%s style="%s" title="%s">%s%s%s%s%s%s</div></div></div>',
		 = '<div class="RM%s" style="%s">%s</div>',
		 = '<div style="%s"><div class="RMov">%s</div><div class="RMsp RM%s" style="%s">%s</div></div>',

		 = '<div class="RMf_" style="%s"><div class="RMfm" style="background:%s"></div></div>',
		 = '<div class="RMf_ RM%s" style="%s"></div>',

		 = '\
|class="RMl4" style="%s"|<div class="RMsi">%s</div>',-- parameters:linfo4-width, linfo4
		 = '<div class="RMsi">%s</div> ',
		 = ' <div class="RMsi">%s</div>',
		 = '\
|class="RMr4" style="%s"|<div class="RMsi">%s</div>',-- parameters:rinfo4-width, rinfo4

		 = '\
|- %s\
|class="RMl" colspan="%s" style="%s"|%s\
|%s style="%s"|<div class="RMsi">%s</div>\
|class="RMir" style="%s"|%s\
|%s style="%s"|<div class="RMsi">%s</div>\
|class="RMr" colspan="%s" style="%s"|%s%s',-- parameters: linfo4-fmt, colspan-left, linfo3+2-width, linfo3+2, linfo1-pad, linfo1-width, linfo1, bg, cells, rinfo1-pad, rinfo1-width, rinfo1, colspan-right, rinfo2+3-width, rinfo2+3, rinfo4-fmt

		 = '\
|- style="line-height:1"\
|colspan="7" style="padding:0 !important;background:%s"|\
{|class="RMcollapse %s%s" style="%s"',-- parameters: bg, "collapsible "/"mw-collapsible mw-", collapse-state, "float:right" / ""

		 = '\n|}',

		 = '45px',-- 50px is the minimal width for  /  button. Use 40px for  / 
		 = '\n! style="padding-right:3px;min-width:%s;%s" |',--parameters: left-button-width, linfo4-width
		 = '\
{|cellspacing="0" cellpadding="0" style="line-height:1;width:100%%;padding:0 !important;margin:0 !important"\
|style="padding:0 3px 0 1px;text-align:left"|<div class="RMsi">%s</div>\
|style="text-align:right"| %s\
|}',-- parameters: linfo4, linfo3+2
		 = '45px',-- 72px is the minimal width for  /  button at 90%. Use 58px for  / 
		 = '\
{|cellspacing="0" cellpadding="0" style="line-height:1;width:100%%;padding:0 !important;margin:0 !important"\
|style="text-align:left"| %s\
|style="padding:0 1px 0 3px;text-align:right"|<div class="RMsi">%s</div>\
|}',-- parameters: rinfo2+3, linfo4
		 = '\n| style="padding-left:3px;font-size:90%%;min-width:%s;%s" |',--parameters: right-button-width, rinfo4-width

		 = '\
|- style="line-height:1"\
|colspan="7" style="padding:0 %s"|<div style="position:relative">\
{| class="RMreplace" style="%sbackground:%s"',-- parameters: "right-button-width 0 0" / "0 0 left-button-width", "right:0px" / "", bg
		 = '\n|}</div>',

		 = '%s\n|-\n| colspan="7" style="background:%s;text-align:%s;%s"|\n%s',
		 = '\n|-\n|style="padding:0 3px 0 0;%s"|\n|style="%s"|\n|%s style="%s"|\n|\n|%s style="%s"|\n|style="%s"|\n|style="padding:0 0 0 3px;%s"|'
		}
}
local p,q={},{}

local getArgs = require('Module:Arguments').getArgs

local function makeInvokeFunction(funcName)
	-- makes a function that can be returned from #invoke, using
	-- ].
	return function (frame)
		local args = getArgs(frame, {parentOnly = true})
		return p(args)
	end
end

local function formaterror(key,param)
	local result = string.format(i18n.html, '', '', '', '', '<span class="error">' .. string.format(i18n.errors or (tostring(key) .. ' %s'),
		tostring(param or '')) .. '</span>')
	if mw.site.namespaces.isContent then result = result .. (i18n or i18n.default or '') end
	return result
end

local function RGBbyCode(code)-- RGB codes for BSicon sets at Commons:Category:Icons for railway descriptions/other colors
	local colors = {--       Any changes should be discussed at Commons:Talk:BSicon/Colors
		bahn     = 'BE2D2C', ex          = 'D77F7E',
		u        = '003399', uex         = '6281C0',
		f        = '008000', fex         = '64B164',
		g        = '2CA05A', gex         = '7EC49A',
		azure    = '3399FF', ex_azure    = '99CCFF',
		black    = '000000', ex_black    = '646464',
		blue     = '0078BE', ex_blue     = '64ACD6',
		brown    = '8D5B2D', ex_brown    = 'B89A7F',
		carrot   = 'ED9121', ex_carrot   = 'F1BA76', excarrot   = 'F1BA76', ex_excarrot   = 'F3D2A9',
		cerulean = '1A8BB9', ex_cerulean = '73B7D3',
		cyan     = '40E0D0', ex_cyan     = '8AEAE1',
		deepsky  = '00BFFF', ex_deepsky  = '7FDFFF',
		denim    = '00619F', ex_denim    = '649EC3',
		fuchsia  = 'B5198D', ex_fuchsia  = 'D173B8',
		golden   = 'D7C447', ex_golden   = 'E5DA8E',
		green    = '2DBE2C', ex_green    = '7FD67E',
		grey     = '999999', ex_grey     = 'C0C0C0',
		jade     = '53B147', ex_jade     = '95CE8E',
		lavender = '9999FF', ex_lavender = 'C0C0FF',
		lime     = '99CC00', ex_lime     = 'D1E681',
		maroon   = '800000', ex_maroon   = 'B16464',
		ochre    = 'CC6600', ex_ochre    = 'DEA164',
		olive    = '837902', ex_olive    = 'B2AC64',
		orange   = 'FF6600', ex_orange   = 'FF9955',
		pink     = 'F0668D', ex_pink     = 'F4A1B8',
		purple   = '8171AC', ex_purple   = 'B1A8CB',
		red      = 'EF161E', ex_red      = 'F37176',
		ruby     = 'CC0066', ex_ruby     = 'DE64A1', exruby     = 'DE64A1', ex_exruby     = 'E89FC4',
		saffron  = 'FFAB2E', ex_saffron  = 'FFC969',
		sky      = '069DD3', ex_sky      = '67C2E3',
		steel    = 'A1B3D4', ex_steel    = 'C4CFE3',
		teal     = '339999', ex_teal     = '82C0C0', exteal     = '82C0C0', ex_exteal     = 'B1D6D6',
		violet   = '800080', ex_violet   = 'B164B1',
		yellow   = 'FFD702', ex_yellow   = 'FFEB81',
	}
	return colors or colors.bahn
end

p.RGBbyCode = makeInvokeFunction('_RGBbyCode')

function p._RGBbyCode(args)
	return RGBbyCode(args)
end

local function properties(str)
--str is a combination of properties with following syntax:
--property name=value,property name1=value1,property name2=value2 and so on
	local result = {}
	for i, v in ipairs(mw.text.split(str, ',')) do
		if v then
			local t = mw.text.split(v, '=')
			if string.find(v, '=') then
				t = mw.text.trim(t) --trim parameter names
				table.insert(result, t)
				result] = t or '' --fill table with pairs "property"="value"
			elseif result] then
				table.insert(result, result)
				result] = result]..','..t --if no equals sign then tack t onto the previous result
			else
				table.insert(result, '~~')
			end
		else
			table.insert(result, '~~')
		end
	end
	return result
end

local function positive(x)
	if not x then return nil else x = string.lower(x) end
	if x == 'yes' or x == 'y' or x == '1' or x == 'true' then return 1 end
end

local function negative(x)
	if not x then return nil else x = string.lower(x) end
	if x == 'no' or x == 'n' or x == '0' or x == 'false' then return 0 end
end

local function alignment(x, y, z)
	if not x then return nil end
	local directions = {
		    = {'l', 'left',},
		   = {'r', 'right',},
		     = {'a', 't', 'top',},
		  = {'e', 'b', 'bottom',},
		        = {'la', 'tl', 'c4', 'nw', 'top-left', 'topleft',},
		       = {'ra', 'tr', 'c1', 'ne', 'top-right', 'topright',},
		     = {'le', 'bl', 'c3', 'sw', 'bottom-left', 'bottomleft',},
		    = {'re', 'br', 'c2', 'se', 'bottom-right', 'bottomright',},
		  = {'c', 'center', 'centre',},
		  = {'m', 'middle',},
		      = {'ma', 'tc', 'top-center', 'top-centre', 'topcenter', 'topcentre',},
		   = {'me', 'bc', 'bottom-center', 'bottom-centre', 'bottomcenter', 'bottomcentre',},
		     = {'lm', 'ml', 'middle-left', 'middleleft',},
		    = {'rm', 'mr', 'middle-right', 'middleright',},
		   = {'cm', 'mc', 'middle-center', 'middle-centre', 'middlecenter', 'middlecentre',},
	}
	for k, v in pairs(directions) do
		for _, name in ipairs(v) do
			if x:lower() == name then
				local values = mw.text.split(k, '-')
				if values == 'inherit' then values = y end
				if values == 'inherit' then values = z end
				return values
			end
		end
	end
	return {y, z}
end

local function cell(icon,overlapIcons,rowProps)--[[

Icon handling. Each icon is defined as in the following example:
icon ID!~overlap icon ID!@image link target
Values for an icon ID containing "*" are treated as text, with the letter(s) before "*" as width prefix(es).
No limit on overlapping icons or text; just separate them by "!~".
Parameters can be added after every object, separated to the left by "!_". This, if there is a link, must be after the link.
Parameters for individual objects in an overlapping stack can also be added, separated to the left by "__".
Unless a link is provided, each cell will have mouseover text indicating its contents.

]]
	local tmp, tmp2, cellProps, iconProps, overlapProps, tmp_sep, link, tracking, icontext, iconpre = {}, {}, {}, {}, {}, '', '', ''
	if #overlapIcons > 0 then
		tmp = mw.text.split(overlapIcons, '!_')
		if #tmp > 1 then overlapIcons, cellProps = tmp, properties(tmp) end
		tmp = mw.text.split(overlapIcons, '!@')
		overlapIcons = tmp
		if #tmp > 1 then link = tmp end
		tmp = mw.text.split(icon, '__')
		icon = tmp
		if #tmp > 1 then iconProps = properties(tmp) end
		for i, v in ipairs(overlapIcons) do
			tmp = mw.text.split(v, '__')
			overlapIcons = mw.text.trim(tmp)
			if #tmp > 1 then overlapProps = properties(tmp) else overlapProps = {} end
		end
	else
		tmp = mw.text.split(icon, '_')
		if #tmp > 1 then icon, cellProps = tmp, properties(tmp) end
		tmp = mw.text.split(icon, '!@')
		icon = mw.text.trim(tmp)
		if #tmp > 1 then link = tmp end
	end
	if #overlapIcons > 0 and icon ~= '' then tmp_sep = '; ' end
	local icontip = mw.text.nowiki(mw.text.unstripNoWiki(icon..tmp_sep..table.concat(overlapIcons, '; ')))
	local textspl = string.find(icon, '%*')
	if textspl then
		icontext = mw.text.trim(mw.ustring.sub(icon, textspl + 1))
		if textspl ~= 1 then iconpre = mw.text.trim(mw.ustring.sub(icon, 1, textspl - 1)) end
	end
	cellProps.class = ''
	if cellProps.style then cellProps.style = ';'..cellProps.style else cellProps.style = '' end
	cellProps.bg = cellProps.bg or cellProps.background or cellProps.bgcolor
	if cellProps.bg then cellProps.style = cellProps.style..';background:'..cellProps.bg end
	if #overlapIcons > 0 or icontext then
		cellProps._before, cellProps._after = rowProps._before or '', rowProps._after or ''
		cellProps.color = cellProps.color or cellProps.colour ; cellProps.bold = cellProps.bold or cellProps.b ; cellProps.italic = cellProps.italic or cellProps.i or cellProps.it
		if cellProps.color then cellProps.style = cellProps.style..';color:'..cellProps.color end
		if positive(cellProps.italic) then cellProps.style = cellProps.style..';font-style:italic' end
		if positive(cellProps.bold) then cellProps.style = cellProps.style..';font-weight:bold' end
		if not cellProps.fontsize or rowProps.fontsize or cellProps.fontsize == 'info' then
		elseif cellProps.fontsize == 'cmt' or cellProps.fontsize == 'comment' then
			cellProps._before, cellProps._after = '<div class="RMsi">', '</div>'
		else
			cellProps.style = cellProps.style..';font-size:'..cellProps.fontsize
		end
		if cellProps.align or rowProps.align then
			rowProps.align = rowProps.align or {'middle', 'center'}
			cellProps.align = alignment(cellProps.align, rowProps.align, rowProps.align) or rowProps.align
			cellProps.style, cellProps.textfmt = cellProps.style..';text-align:'..cellProps.align, ';vertical-align:'..cellProps.align
		else
			cellProps.textfmt = ''
		end
	end
	if #overlapIcons > 0 then
		tmp = {}
		for i, v in ipairs(overlapIcons) do
			local thislink = link
			if i ~= #overlapIcons then thislink = '' end
			if thislink and thislink ~= '' then icontip = thislink end
			if overlapProps.style then overlapProps.style = ';'..overlapProps.style else overlapProps.style = '' end
			overlapProps.bg = overlapProps.bg or overlapProps.background or overlapProps.bgcolor
			if overlapProps.bg then overlapProps.style = overlapProps.style..';background:'..overlapProps.bg end
			local tmp_textspl = string.find(v, '%*')
			if tmp_textspl then
				overlapProps.class = ''
				local tmp_icontext, tmp_iconpre = mw.text.trim(mw.ustring.sub(v, tmp_textspl + 1)), ''
				if tmp_textspl ~= 1 then tmp_iconpre = mw.text.trim(mw.ustring.sub(v, 1, tmp_textspl - 1)) end
				overlapProps._before, overlapProps._after = cellProps._before, cellProps._after
				overlapProps.color = overlapProps.color or overlapProps.colour ; overlapProps.bold = overlapProps.bold or overlapProps.b ; overlapProps.italic = overlapProps.italic or overlapProps.i or overlapProps.it
				if overlapProps.color then overlapProps.style = overlapProps.style..';color:'..overlapProps.color end
				if positive(overlapProps.italic) then overlapProps.style = overlapProps.style..';font-style:italic' end
				if positive(overlapProps.bold) then overlapProps.style = overlapProps.style..';font-weight:bold' end
				if rowProps.fontsize or cellProps.fontsize or overlapProps.fontsize == 'info' then
				elseif not overlapProps.fontsize then
					overlapProps.class = ' class="RMts"'
				elseif overlapProps.fontsize == 'cmt' or overlapProps.fontsize == 'comment' then
					overlapProps._before, overlapProps._after = '<div class="RMsi">', '</div>'
				else
					overlapProps.style = overlapProps.style..';font-size:'..overlapProps.fontsize
				end
				if overlapProps.align or cellProps.align then
					cellProps.align = cellProps.align or {'middle', 'center'}
					overlapProps.align = alignment(overlapProps.align, cellProps.align, cellProps.align) or cellProps.align
					overlapProps.style, overlapProps.textfmt = overlapProps.style..';text-align:'..overlapProps.align, ';vertical-align:'..overlapProps.align
				else
					overlapProps.style, overlapProps.textfmt = overlapProps.style..';text-align:center', ';vertical-align:middle'
				end
				if overlapProps.abbr then
					overlapProps.tag = {'<abbr title="'..string.gsub(overlapProps.abbr, '"', '&quot;')..'">', '</abbr>'}
				else
					overlapProps.tag = {'', ''}
				end
				table.insert(tmp, string.format(i18n.html, (tmp_iconpre and tmp_iconpre ~= '' and tmp_iconpre or '_'), overlapProps.style, overlapProps.class, overlapProps.textfmt, icontip, overlapProps.tag, overlapProps._before, tmp_icontext, overlapProps._after, overlapProps.tag))
			else
				v = mw.text.trim(v)
				if string.find(v, 'num') then
					if not string.find(v, 'numN%d+') then tracking = tracking..(i18n or i18n.default) end
				end
				table.insert(tmp, string.format(i18n.html, overlapProps.style, v, thislink, icontip))
			end
		end
		if iconProps.style then tmp2 = true else iconProps.style = '' end
		iconProps.bg = iconProps.bg or iconProps.background or iconProps.bgcolor
		if iconProps.bg then iconProps.style = iconProps.style..';background:'..iconProps.bg end
		if string.match(icon, '^?o?c?d?b?s?w?$') then
			if tmp2 then iconProps.style = ';'..iconProps.style end
			return string.format(i18n.html, cellProps.style, mw.text.trim(table.concat(tmp)), (string.match(icon, '^.+$') or '_'), iconProps.style, tracking)
		elseif icontext then
			iconProps.class = ''
			iconProps._before, iconProps._after = cellProps._before, cellProps._after
			iconProps.color = iconProps.color or iconProps.colour ; iconProps.bold = iconProps.bold or iconProps.b ; iconProps.italic = iconProps.italic or iconProps.i or iconProps.it
			if iconProps.color then iconProps.style = iconProps.style..';color:'..iconProps.color end
			if positive(iconProps.italic) then iconProps.style = iconProps.style..';font-style:italic' end
			if positive(iconProps.bold) then iconProps.style = iconProps.style..';font-weight:bold' end
			if rowProps.fontsize or cellProps.fontsize or iconProps.fontsize == 'info' then
			elseif not iconProps.fontsize then
				iconProps.class = ' class="RMts"'
			elseif iconProps.fontsize == 'cmt' or iconProps.fontsize == 'comment' then
				iconProps._before, iconProps._after = '<div class="RMsi">', '</div>'
			else
				iconProps.style = iconProps.style..';font-size:'..iconProps.fontsize
			end
			if iconProps.align or cellProps.align then
				cellProps.align = cellProps.align or {'middle', 'center'}
				iconProps.align = alignment(iconProps.align, cellProps.align, cellProps.align) or cellProps.align
				iconProps.style, iconProps.textfmt = iconProps.style..';text-align:'..iconProps.align, ';vertical-align:'..iconProps.align
			else
				iconProps.style, iconProps.textfmt = iconProps.style..';text-align:center', ';vertical-align:middle'
			end
			if iconProps.abbr then
				iconProps.tag = {'<abbr title="'..string.gsub(iconProps.abbr, '"', '&quot;')..'">', '</abbr>'}
			else
				iconProps.tag = {'', ''}
			end
			if tmp2 then iconProps.style = ';'..iconProps.style end
			return string.format(i18n.html, (iconpre and iconpre ~= '' and iconpre or '_'), cellProps.style, mw.text.trim(table.concat(tmp)), (iconpre and iconpre ~= '' and iconpre or '_'), iconProps.style, iconProps.class, iconProps.textfmt, icontip, iconProps.tag, iconProps._before, icontext, iconProps._after, tracking, iconProps.tag)
		else
			if iconProps.style ~= '' then iconProps.style = string.gsub(' style="'..iconProps.style..'"', '";', '"', 1) end
			if string.find(icon, 'num') then
				if not string.find(icon, 'numN%d+') then tracking = tracking..(i18n or i18n.default) end
			end
			return string.format(i18n.html, cellProps.style, mw.text.trim(table.concat(tmp)), iconProps.style, icon, icontip, tracking)
		end
	end
	if string.match(icon, '^?o?c?d?b?s?w?$') then
		return string.format(i18n.html, (string.match(icon, '^.+$') or '_'), cellProps.style, tracking)
	else
		if link and link ~= '' then icontip = link end
		if icontext then
			if not cellProps.fontsize and not rowProps.fontsize then cellProps.class = ' class="RMts"' end
			if cellProps.abbr then
				cellProps.tag = {'<abbr title="'..string.gsub(cellProps.abbr, '"', '&quot;>')..'">', '</abbr>'}
			else
				cellProps.tag = {'', ''}
			end
			return string.format(i18n.html, (iconpre and iconpre ~= '' and iconpre or '_'), cellProps.style, cellProps.class, cellProps.textfmt, icontip, cellProps.tag, cellProps._before, icontext, cellProps._after, tracking, cellProps.tag)
		else
			if string.find(icon, 'num') then
				if not string.find(icon, 'numN%d+') then tracking = tracking..(i18n or i18n.default) end
			end
			return string.format(i18n.html, cellProps.style, icon, link, icontip, tracking)
		end
	end
end

local function fillercell(code, height)
--Creates a 5px-high row.
--Values in icon pattern can only be , d,  or #.
	height = mw.text.trim(height)
	if height ~= '' then
		if tonumber(height) then height = height..'px' end
		height = 'height:'..height..';min-height:'..height
	end
	if string.match(code, '^?o?c?d?b?s?w?$') then
		return string.format(i18n.html, (string.match(code, '^.+$') or '_'), height)
	elseif mw.ustring.sub(code,1,1) == '#' then
		return string.format(i18n.html, height, code)
	else
		return string.format(i18n.html, height, '#'..RGBbyCode(code))
	end
end

local function row(pattern,noformatting,filler)--[[

Row handling. Each row looks like the following:
row properties~~linfo4~~linfo3~~linfo2~~linfo1! !(icon pattern)~~rinfo1~~rinfo2~~rinfo3~~rinfo4~~row properties

]]
	local result = { = '',  = '',  = '', rowstyle = '',  = {},  = '',  = '',  = '',  = {}}
	local lcolspan, rcolspan, linfo4_fmt, rinfo4_fmt = '2', '2', '', ''
	local left, right, icons, overlapIcons, tmp = {}, {}, {}, {}, mw.text.split(pattern, '! !')
	if #tmp > 1 then--splitting the pattern by '! !'
		left = tmp ; right = tmp
	else
		left = '' ; right = tmp or ''
	end

	tmp = mw.text.split(left, '~~')--analysing the left part
	if #tmp > 1 then--if there are several ~~
		result = mw.getCurrentFrame():preprocess(mw.text.trim(tmp))
		result = mw.text.trim(tmp)
		if #tmp > 2 then
			tmp = mw.text.trim(tmp)
			if tmp ~= '' then result = string.format(i18n.html, tmp) .. result end
			if #tmp > 3 then
				tmp = mw.text.trim(tmp)
				if tmp ~= '' then
					result = mw.getCurrentFrame():preprocess(tmp)
					lcolspan = '1'
					linfo4_fmt = string.format(i18n.html, '', result)
				end
				if #tmp > 4 then result.rowProp = properties(mw.text.trim(tmp)) end
			end
		end
	else--assume only linfo2 was provided.
		result = mw.text.trim(tmp)
	end
	result = mw.getCurrentFrame():preprocess(result)--expand possible templates in info.

	tmp = mw.text.split(right, '~~')--analysing the right part
	if #tmp > 2 then
		result = mw.getCurrentFrame():preprocess(mw.text.trim(tmp))
		result = mw.text.trim(tmp)
		if #tmp > 3 then
			tmp = mw.text.trim(tmp)
			if tmp ~= '' then result = result .. string.format(i18n.html, tmp) end
			if #tmp > 4 then
				tmp = mw.text.trim(tmp)
				if tmp ~= '' then
					result = mw.getCurrentFrame():preprocess(tmp)
					rcolspan = '1'
					rinfo4_fmt = string.format(i18n.html, '', result)
				end
				if #tmp > 5 then result.rowProp = properties(mw.text.trim(tmp)) end
			end
		end
	else--assume only rinfo2 was provided.
		result = mw.text.trim(tmp or '')
	end
	result = mw.getCurrentFrame():preprocess(result)

-- The below parameter functions are passed through to the cells.
	if result.rowProp.fontsize == 'cmt' or result.rowProp.fontsize == 'comment' then
		result.rowProp._before, result.rowProp._after = '<div class="RMsi">', '</div>'
	end
	if result.rowProp.align then
		result.rowProp.align = alignment(result.rowProp.align, 'middle', 'center') or {'middle', 'center'}
	end

	icons = mw.text.split(tmp, '\\')--splitting the string of icons first by "\"
	if type(filler) == 'string' then
		result.style = ';font-size:0px'
		for i, v in ipairs(icons) do table.insert(result, fillercell(v, filler)) end--no !@ or !~ for filler row
	else
		result.style = ''
		for i, v in ipairs(icons) do
			tmp = mw.text.split(v, '!~')
			icons = tmp
			table.remove(tmp, 1)
			table.insert(overlapIcons, tmp)
		end
		for i, v in ipairs(icons) do table.insert(result, cell(v, overlapIcons, result.rowProp)) end
	end
	result = table.concat(result)
	if result.rowProp.style then result.style = result.style..';'..result.rowProp.style end
	result.rowProp.bg = result.rowProp.bg or result.rowProp.background or result.rowProp.bgcolor ; result.rowProp.color = result.rowProp.color or result.rowProp.colour ; result.rowProp.bold = result.rowProp.bold or result.rowProp.b ; result.rowProp.italic = result.rowProp.italic or result.rowProp.i or result.rowProp.it
	if result.rowProp.bg then result.style = result.style..';background:'..result.rowProp.bg end
	if result.rowProp.color then result.style = result.style..';color:'..result.rowProp.color end
	if positive(result.rowProp.italic) then result.style = result.style..';font-style:italic' end
	if positive(result.rowProp.bold) then result.style = result.style..';font-weight:bold' end
	if result.rowProp.fontsize and result.rowProp._after == '' and result.rowProp.fontsize ~= 'info' then
		result.style = result.style..';font-size:'..result.rowProp.fontsize
	end
	if noformatting then
		return result
	else
		return string.format(i18n.html, linfo4_fmt, lcolspan, '', result, q.linfo1_pad, '', result, result.style,
			result, q.rinfo1_pad, '', result, rcolspan, '', result, rinfo4_fmt)
	end
end

--↓ This table handles diagram rows beginning with a hyphen ("-").
q = {collapsibles = -1, text_width = {'', '', '', '', '', ''}, linfo1_pad = 'class="RMl1"', rinfo1_pad = 'class="RMr1"', bg = '#F9F9F9'}
q.isKeyword = function(pattern, i, rows, justTest)
	if mw.ustring.sub(pattern, 1, 1) ~= '-' then if justTest then return false else return nil end end--not a valid keyword
	local tmp = mw.text.split(string.sub(pattern, 2), '%-')
	if type(q])=="function" and tmp ~= 'isKeyword' then
		if justTest then return tmp else return q](tmp, i, rows) end--valid keyword
	else
		if justTest then return false else return nil end
	end
end
q = function(params, i, rows)
	table.remove(rows, i)
	local tmp = q.isKeyword(rows, i, rows, true)
	if tmp then
		if tmp == 'endCollapsible' then return formaterror('collapsible-block-empty')
		else return formaterror('collapsible-block-no-first-row') .. q.isKeyword(rows, i, rows) --no valid keywords that can follow "startCollapsible"
		end
	end
	if q.collapsibles == -1 then q.collapsibles = 1 else q.collapsibles = q.collapsibles + 1 end--q.collapsibles == -1 means there are no collapsibles at all; 0 - all closed; >0 - some not closed
	local collapsed, replace, props = params, params or '', properties(table.concat(params, '-', 4))--params is the keyword name so all indices are shifted by one.
	if collapsed == nil or collapsed == '' then collapsed = 'collapsed' end
	if props.bg == nil or props.bg == '' then props.bg = 'transparent' ; props = q.bg else props = props.bg end
	local mode, float, result
	if q.rinfo1_pad == '' then mode = 'collapsible ' ; float = 'float:right;'
	else mode = 'mw-collapsible mw-' ; float = ''
	end
	result = string.format(i18n.html, props.bg, mode, collapsed, float)
	tmp = row(rows, true, nil)
	local linfo4_3_2_fmt, rinfo2_3_4_fmt = '', ''
	if q.rinfo1_pad == '' then
		if tmp ~= '' or tmp ~= '' then linfo4_3_2_fmt = string.format(i18n.html, tmp, tmp) end
		result = result .. string.format(i18n.html, string.format(i18n.html, i18n.html, q.text_width),
			'1', q.text_width, linfo4_3_2_fmt, q.linfo1_pad, q.text_width, tmp, tmp.style, tmp, '', '', '', '1', '', '', string.format(i18n.html, '', ''))
	else
		if tmp ~= '' or tmp ~= '' then rinfo2_3_4_fmt = string.format(i18n.html, tmp, tmp) end
		result = result .. string.format(i18n.html, string.format(i18n.html, q.text_width, tmp),
			'1', q.text_width, tmp, q.linfo1_pad, q.text_width, tmp, tmp.style, tmp, q.rinfo1_pad, q.text_width, tmp,
			'1', q.text_width, rinfo2_3_4_fmt, string.format(i18n.html, i18n.html, q.text_width))
	end
	if replace ~= '' then
		if q.isKeyword(rows, i, rows, true) then return result .. formaterror('collapsible-block-no-replacement') end--a plain row needed for replacement
		table.remove(rows, i)
		tmp = row(rows, true, nil)
		local padding, right = i18n.html .. ' 0 0', ''
		if q.rinfo1_pad == '' then padding = '0 0 ' .. i18n.html ; right = 'right:0px;' end
		result = result .. string.format(i18n.html, padding, right, props)
		linfo4_3_2_fmt = '' ; rinfo2_3_4_fmt = ''
		if q.rinfo1_pad == '' then
			if tmp ~= '' or tmp ~= '' then linfo4_3_2_fmt = string.format(i18n.html, tmp, tmp) end
			result = result .. string.format(i18n.html, string.format(i18n.html, '', ''), '1', q.text_width, linfo4_3_2_fmt,
				q.linfo1_pad, q.text_width, tmp, tmp.style, tmp, '', '', '', '1', '', '', string.format(i18n.html, '', ''))
		else
			if tmp ~= '' or tmp ~= '' then rinfo2_3_4_fmt = string.format(i18n.html, tmp, tmp) end
			result = result .. string.format(i18n.html, string.format(i18n.html, q.text_width, tmp), '1', q.text_width,
				tmp, q.linfo1_pad, q.text_width, tmp, tmp.style, tmp, q.rinfo1_pad, q.text_width, tmp, '1', q.text_width,
				rinfo2_3_4_fmt, string.format(i18n.html, '', ''))
		end
		result = result .. i18n.html
	end
	return result
end
q = function(params, i, rows)
	if q.collapsibles > 0 then
		q.collapsibles = q.collapsibles - 1
		return i18n.html
	else
		return formaterror('collapsible-block-not-open')
	end
end
q = function(params, i, rows)
	if params == 'end' then return '' end
	local tmp, j, nrows, props = {}, 0, tonumber(params), properties(table.concat(params, '-', 3))
	if nrows ~= 0 then table.remove(rows, i) end
	if nrows == nil then nrows = #rows - i + 1 end
	while j < nrows and i <= #rows do
		j = j + 1
		if rows == '-colspan-end'  then
			j = nrows
		else
			table.insert(tmp, rows)
		end
		if nrows ~= j or i == #rows then table.remove(rows, i) end
	end
	if j < nrows then j = formaterror('colspan-less-rows-than-set',j) else j = '' end
	return string.format(i18n.html, j, props.bg or '', props.align or '', props or '', mw.getCurrentFrame():preprocess(table.concat(tmp, '\n')))
end
q = function(params, i, rows)
	local tmp, height = table.concat(params, '-', 3), (params or '')
	if #params < 3 or tmp == '' then return formaterror('parameter-missing') end--TODO: specify the name of the parameter
	if params ~= '' then height = params end
	return row(tmp, nil, height)
end

function p.RGBbyCode(frame)
	return RGBbyCode(mw.text.trim(frame.args or ''))
end

local function localroute(pattern,ptw,pbg,process)
	local tmp = {}
	if mw.text.trim(pbg) ~= '' then q.bg = pbg end
	tmp = mw.text.split(mw.text.trim(ptw), '%s*,%s*')
	if #tmp == 6 then
		for i = 1, 6 do
			if tmp ~= '' then
				if tonumber(string.sub(tmp,-1)) then
					q.text_width = 'width:' .. tmp .. 'px;min-width:' .. tmp .. 'px;'
				else
					q.text_width = 'width:' .. tmp .. ';min-width:' .. tmp .. ';'
				end
			end
		end
		if tmp == '' and tmp == '' and tmp == '' then
			q.rinfo1_pad = ''--padding for rinfo1 column = 0, not 3px
		elseif tmp == '' and tmp == '' and tmp == '' then
			q.linfo1_pad = ''
		end--padding for linfo1 column = 0, not 3px
	elseif #tmp == 3 then
		for i = 1, 3 do
			if tmp ~= '' then
				if tonumber(string.sub(tmp,-1)) then
					q.text_width = 'width:' .. tmp .. 'px;min-width:' .. tmp .. 'px;'
				else
					q.text_width = 'width:' .. tmp .. ';min-width:' .. tmp .. ';'
				end
			end
		end
		q.linfo1_pad = ''
	elseif #tmp == 1 and tmp ~= '' then
		if tonumber(string.sub(tmp,-1)) then
			q.text_width = 'width:' .. tmp .. 'px;min-width:' .. tmp .. 'px;'
		else
			q.text_width = 'width:' .. tmp .. ';min-width:' .. tmp .. ';'
		end
		q.linfo1_pad = ''
	end
	for i = 1, 6 do
		tmp = tonumber(mw.ustring.match(q.text_width, ':(+%.?*)px;'))
		if tmp then
			tmp = tmp*3/40
			q.text_width = 'width:' .. tmp .. 'em;min-width:' .. tmp .. 'em;'
		end
	end
	tmp = {}

	local index = 0
	local rows = {}
	if not process or process == '' or negative(process) then
		pattern = mw.ustring.gsub(pattern, '\n(#)', '%1')
	end
	for item in pattern:gmatch('(*)\n?') do
		item = mw.text.trim(item)
		if item ~= '' then
			index = index + 1
			rows = item
		end
	end
	if index == 0 then return formaterror('parameter-missing') end
	for i, v in ipairs(rows) do
		local keyword = q.isKeyword(v, i, rows)
		if type(keyword) ~= "string" then
			table.insert(tmp, row(v, nil, nil))
		else
			table.insert(tmp, keyword)
		end
	end

	if q.collapsibles > 0 then table.insert(tmp, formaterror('collapsible-block-not-closed') .. q()) end
	if q.collapsibles ~= -1 then
		if q.rinfo1_pad == '' then
			q.text_width = q.text_width .. 'min-width:' .. i18n.html .. ';'
		else
			q.text_width = q.text_width .. 'min-width:' .. i18n.html .. ';'
		end
	end
	-- ↓ empty row to set column widths; ↑ if q.collapsibles ≠ -1 and there are collapsible sections, leftmost or rightmost column should be wide enough to accomodate the button
	table.insert(tmp, string.format(i18n.html, q.text_width, q.text_width, q.linfo1_pad, q.text_width, q.rinfo1_pad, q.text_width, q.text_width, q.text_width))
	return mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(table.concat(tmp), 'style=";* *', 'style="'), '\n| *style="" *|', '\n|'), ' ?style=""', ''), ' ?colspan="1"', ''), '<div class="RMsi"></div>', ''), 'class="RM%+', 'class="RM_'), '(class="* RM)%+', '%1_')
end

local function getArgNums(prefix, args)
	-- Copied from Module:Infobox on enwiki.
	-- Returns a table containing the numbers of the arguments that exist
	-- for the specified prefix. For example, if the prefix were 'data', and
	-- 'data1', 'data2', and 'data5' existed, this would return {1, 2, 5}.
	local nums = {}
	for k, v in pairs(args) do
		local num = tostring(k):match('^' .. prefix .. '(%d*)$')
		if num then table.insert(nums, tonumber(num)) end
	end
	table.sort(nums)
	return nums
end

local greatercontrast = require('Module:Color contrast')._greatercontrast
local rgb_black = '#252525' -- class .mw-body in Mediawiki:Common.css

p.infobox = makeInvokeFunction('_infobox')

function p._infobox(args) -- Creates a pretty box.
	args.map1, args.tw, args, args, args = args.map1 or args.map, args.tw or args or args, args or args, args or args, args or args or args or args
	local function map_prefix(x) return 'map'..x end
	local mapnums, prefix = {}
	if args and args ~= '' then
		prefix = tonumber
		for k, v in pairs(args) do
			if type(k) == 'number' then table.insert(mapnums, k) end
		end
	else
		prefix = map_prefix
		mapnums = getArgNums('map', args)
		table.sort(mapnums)
	end
	local classes = {}
	args = args or args or args or '#27404E'
	args = args or args or greatercontrast{args, '#FFF', rgb_black}
	args.legend = args.legend or ''
	local navbar = require('Module:Navbar').navbar
	local navtable = {}
	if args.navbar then
		navtable = {args.navbar, mini = i18n.text.navbar_mini, text = i18n.text.navbar_text}
		args.navbar = navbar(navtable)
	else
		args.navbar = ''
	end
	local result = ''
	if args.inline then result = result..'&#32;\n' end
	result = result..'{|'
	args.collapse = args.collapse or args.collapsed
	if args.inline or negative(args.collapsible) then
		args.collapsible = '0'
	else
		table.insert(classes, 'collapsible')
		if args.collapse then table.insert(classes, 'collapsed') end
	end
	args.float = args.float or 'right'
	if args.float == 'right' then
		args.margin = 'margin-left:1em;'
	elseif args.float == 'left' then
		args.margin = 'margin-right:1em;'
	else
		args.margin = ''
	end
	args.fontsize2 = 10000/88
	if args.inline then
		table.insert(classes, 'RMinline')
		args.fontsize = 100
	else
		table.insert(classes, 'RMbox')
		args.fontsize = 88 -- as above: CSS rule for .infobox in %
	end
	args.bg = args.bg or '#F9F9F9'
	args.style = args.style or ''
	result = result .. 'class="' .. table.concat(classes, ' ') .. '" cellspacing="0" cellpadding="0" style="float:' .. args.float .. ';clear:' .. args.float .. ';margin-top:0;margin-bottom:1em;' .. args.margin .. 'empty-cells:show;border-collapse:collapse;font-size:' .. args.fontsize .. '%;background:' .. args.bg .. ';color:inherit;' .. args.style .. '"'
	args.title = args.title or ''
	if args.inline or args.title == 'no' or args.title == '0' then
	else
		result = result .. '\n! style="color:' .. args .. ';background:' .. args .. ';text-align:center;padding:5px"|'
		if args then
			result = result .. '<div>'
		else
			if args.navbar ~= '' then
				navtable.mini = true
				navtable.brackets = true
				navtable.style = 'float:left;margin-right:5px;white-space:nowrap'
				navtable.fontstyle = 'font-size:'..args.fontsize2..'%;color:' .. args
				args.navbar = navbar(navtable) .. '<div style="margin-left:55px">'
			else
				args.navbar = '<div>'
			end
			result = result .. args.navbar
		end
		result = result .. '<div style="white-space:nowrap;'
		if args.collapsible == '0' and (args or args.navbar == '<div>') then
		else
			result = result .. 'margin-right:55px;'
			if args or args.navbar == '<div>' then
				result = result .. 'margin-left:55px;'
			end
		end
		result = result .. 'font-size:'..args.fontsize2..'%">' .. args.title .. '</div></div>'
	end
	args.top = args.top or args
	if args.top then
		result = result .. '\n|-\n|style="padding:0px 5px;text-align:center;'..(args.topstyle or '')..'"|' .. args.top
	end
	result = result .. '\n|-\n|style="line-height:normal;padding:4px 5px"|'
	if args.navbar ~= '' and args == '1' then
		if not positive(args) and not negative(args) then navtable.mini = true; args.navbar = navbar(navtable) end
		result = result .. '<div style="float:left;padding-right:5px">' .. args.navbar .. '</div>'
	end
	args.legend2 = mw.ustring.lower(args.legend)
	if args.legend2 ~= 'no' and args.legend2 ~= '0' then
		args.legend = i18n.text.legend or ((args.legend2 ~= '') and ('[['..args.legend) or i18n.text.legend.default)
		args.legend = args.legend .. '|' .. (args or i18n.text.legend_text) .. ']]'
		result = result .. '<div class="selfreference noprint" style="text-align:right;font-size:97%">' .. args.legend .. '</div>'
	end
	if args.inline then args.padding2 = '0px' else args.padding2 = '0px 6px' end
	for k, v in ipairs(mapnums) do
		if not mapnums then
			if not args.inline then args.padding2 = '0px 6px 6px' end
		end
		args.ending = ''
		if args then
			args.header_margin = '0'
			if k == 1 then args.border_header = 'border-bottom: 5px solid '..args.bg..';' else args.border_header = 'border-top: 5px solid '..args.bg..';border-bottom: 5px solid '..args.bg..';' end
			if positive(args) then
				args.header_margin = '0 55px'
				args.ending = '\n|}'
				if positive(args) or positive(args) then args.map_collapsed = ' mw-collapsed autocollapse' else args.map_collapsed = '' end
				result = result..'\n|-\n|\n{|class="mw-collapsible'..args.map_collapsed..'" cellpadding="0" cellspacing="0" style="display:table;min-width:100%;margin:0 auto"'
			end
			if args.inline then args.header_style2 = ' style="line-height:normal"' else args.header_style2 = '' end
			result = result..'\n|-'..args.header_style2..'\n!style="'..args.border_header..'padding:3px 5px;text-align:center;vertical-align:middle;color:'..rgb_black..';background:#EEEEEE" | <div style="margin:'..args.header_margin..';font-size:'..10000/args.fontsize..'%">'..args..'</div>'
			args.border_top = ''
		else
			if k == 1 then args.border_top = '' else args.border_top = 'border-top: 5px solid '..args.bg..';' end
		end
		result = result .. '\n|-\n|style="'..args.border_top..'padding:' .. args.padding2 .. '"|\n{|class="nogrid routemap" style="font-size:'..(args.fontsize2 * .95)..'%"\n'..localroute(args, (args or args or args or args.tw or ''), args.bg, args.process)..'\n|}'..args.ending
	end
	args.bottom = args.bottom or args.footnote
	if args.bottom then
		if args.inline then args.padding2 = '6px' else args.padding2 = '0px' end
		result = result .. '\n|-\n|style="line-height:normal;text-align:right;padding:' .. args.padding2 .. ' 5px 5px;'..(args.bottomstyle or args.footnotestyle or '')..'"|' .. args.bottom
		if string.find(args.bottom, '&action=edit') then result = result .. (i18n or i18n.default) end
	end
	if args.navbar ~= '' and args == '2' then
		if negative(args) or positive(args) then navtable.mini = true; args.navbar = navbar(navtable) end
		if args.inline and not args.bottom then args.padding2 = '6px' else args.padding2 = '0px' end
		result = result .. '\n|-\n|style="line-height:normal;padding:' .. args.padding2 .. ' 5px 3px;text-align:center"|' .. args.navbar
	end
	return result .. '\n|}'
end

local function base(t1,t2,link,stn,italic,it,it2,bold,align,style,bg1,bg2,line,fs1,fs2,lh,v1,swap,inp,bs)
--Creates an inline table with two rows of text. Can be used in any Routemap text cell.
--Implemented in the BSsplit, BSto, BSsrws and BScvt templates.
	if not align then
		if bs == 'cvt' then
			align = 'right'
		else
			align = 'inherit'
		end
	end
	style = style or ''
	local result = '&#32;<table cellspacing="0" cellpadding="0" class="RMsplit" style="text-align:'..align
	if italic or it == 'all' then result = result..';font-style:italic' end
	if bold then result = result..';font-weight:bold' end
	local rowstart = '<tr><td style="text-align:inherit;padding:0;line-height:'
	result = result..';'..style..'">'..rowstart..lh
	if line then result = result..';border-bottom:1px solid gray' end
	local bgpad = ';padding-left:.5em;padding-right:.5em'
	local function bgtext(v)
		return ';color:'..greatercontrast{v, '#FFF', rgb_black}
	end
	if bg1 then
		result = result..bgpad..bgtext(bg1)..';background:'..bg1
	elseif bg2 then
		result = result..bgpad
	end
	if fs1 then result = result..';font-size:'..fs1 end
	result = result..'">'
	if not t1 or string.find(t1, '^%s*$') then
		if not t2 then t2 = '' end
		if string.find(t2, '<br ?/?>') == nil then t1 = '&nbsp;' end
	end
	if not t2 or string.find(t2, '^%s*$') then
		if not t1 then t1 = '' end
		if string.find(t1, '<br ?/?>') == nil then t2 = '&nbsp;' end
	end
	if bs == 'srws' then
		if stn then
			link = t1..' '..t2..' '..stn
		else
			link = t1..' '..t2..' railway station'
		end
	elseif bs == 'cvt' then
		local split, floor, outp, v2, mult = mw.text.split, math.floor
		local function trim(x)
			return string.gsub(x, '%s', '')
		end
		local cvt = { -- conversion values
			 = 1.609344,
			 = 20.1168,
			 = 80,
			 = 1 / .9144,
			 = .9144,
			 = .3048,
		}
		local sf = { -- 10 ^ floor(log10(cvt) + .5); or 10 ^ floor(log10(cvt] * cvt) + .5) for dual-unit inputs. this corrects the accuracy of result so that it usually has same significant figures
			 = 1,
			 = 10,
			 = .01,
			 = 1,
			 = 1,
			 = .1,
		}
		if not inp then inp = 'mi' end
		inp = string.lower(trim(inp))
		if inp == 'ch' or inp == 'yd' or inp == 'ft' then -- output unit
			outp = 'm'
		elseif inp == 'm' then
			outp = 'yd'
		else
			if inp ~= 'mi;ch' then inp = 'mi' end
			outp = 'km'
		end
		local pos = string.find(v1, '%.')
		if not pos then
			mult = 1
		else
			mult = 10 ^ (string.len(v1) - pos)
		end
		local inps = string.find(inp, ';')
		if inps then
			inps = split(inp, ';')
			if swap then
				t1 = v1..'&nbsp;'..outp
				v1 = tonumber(v1)
				t2 = floor(v1 / cvt])..'&nbsp;'..inps..'&nbsp;'..floor(v1 % cvt] / cvt] * cvt * mult * sf + .5) / mult / sf..'&nbsp;'..inps
			else
				v1 = split(trim(v1), ';')
				t1 = v1..'&nbsp;'..inps..'&nbsp;'..v1..'&nbsp;'..inps
				t2 = floor((tonumber(v1) * cvt] + tonumber(v1) * cvt] / cvt) * mult / sf + .5) / mult * sf..'&nbsp;'..outp
			end
		else
			if swap then
				v2 = floor(tonumber(v1) / cvt * mult * sf + .5) / mult / sf
				inp, outp = outp, inp
			else
				v2 = floor(tonumber(v1) * cvt * mult / sf + .5) / mult * sf
			end
			t1 = v1..'&nbsp;'..inp
			t2 = v2..'&nbsp;'..outp
		end
	end
	if t1 then
		if link then
			result = result..']'
		else
			result = result..t1
		end
	end
	local rowend = '</td></tr>'
	result = result..rowend..rowstart..lh
	if bg2 then
		result = result..bgpad..bgtext(bg2)..';background:'..bg2
	elseif bg1 then
		result = result..bgpad
	end
	if fs2 then result = result..';font-size:'..fs2 end
	if (it ~= 'off' and bs == 'to') or it2 == 'italic' then
		result = result..';font-style:italic'
	elseif it == 'off' then
		result = result..';font-style:normal'
	end
	result = result..'">'
	if t2 then
		if link then
			result = result..']'
		else
			result = result..t2
		end
	end
	result = result..rowend..'</table>&#32;'
	if bs == 'to' or bs == 'srws' then
		if t1 == '&nbsp;' or t2 == '&nbsp;' then result = result..(i18n or i18n.default) end
	end
	if string.find(t1, '<br ?/?>') ~= nil or string.find(t2, '<br ?/?>') ~= nil then result = result..(i18n or i18n.default) end
	if bs == 'split' then
		if link and t1 and t2 then
			if string.find(link, '^'..t1..' '..t2..' ') then result = result..(i18n or i18n.default) end
		end
	end
	return result
end

p.BSto = makeInvokeFunction('_BSto')

function p._BSto(args)
	args = args or args.L
	args = args or args.it or args.i
	args = args or args.b
	return base(args,args,args,nil,nil,args,nil,args,args.align,args.style,args.bg1,args.bg2,args.line,'105%','inherit','.9',nil,nil,nil,'to')
end

p.BSsplit = makeInvokeFunction('_BSsplit')

function p._BSsplit(args)
	args = args or args.L
	args = args or args.it or args.i
	args = args or args.b
	return base(args,args,args,nil,args,nil,nil,args,args.align,args.style,args.bg1,args.bg2,args.line,'inherit','inherit','.9',nil,nil,nil,'split')
end

p.BSsrws = makeInvokeFunction('_BSsrws')

function p._BSsrws(args)
	args = args or args.S
	args = args or args.it or args.i
	args = args or args.b
	return base(args,args,nil,args,args,nil,nil,args,args.align,args.style,args.bg1,args.bg2,args.line,'inherit','inherit','.9',nil,nil,nil,'srws')
end

p.BScvt = makeInvokeFunction('_BScvt')

function p._BScvt(args)
	return base(nil,nil,nil,nil,nil,nil,args.alt,nil,args.align,args.style,args.bg1,args.bg2,args.line,'inherit','inherit','.9',args,args,args,'cvt')
end

p.rmri = makeInvokeFunction('_rmri')

function p._rmri(args)--[[

Displays a blue arrow pointing in one of eight directions.
Implemented in the RoutemapRouteIcon template.

]]
	local directions, result = {
	         = {'u', 'up'},
	       = {'d', 'dn', 'down'},
	       = {'l', 'left'},
	      = {'r', 'right'},
	 = {'ur', 'ne', 'c1', 'upperright'},
	 = {'lr', 'se', 'c2', 'lowerright'},
	  = {'ll', 'sw', 'c3', 'lowerleft'},
	  = {'ul', 'nw', 'c4', 'upperleft'},
	}
	local d, link, size = args, args, args
	if not d then
		if args ~= ' ' then d, link, size = args, args, 's' end
	end
	for k, v in pairs(directions) do
		for _, name in ipairs(v) do
			if d:lower() == name then
				if size == 's' then
					size = '7'
				elseif not size then
					size = '10'
				end
				if not link then link = '' end
				result = ']'
			end
		end
	end
	if not result then
		return '<span style="color:#f00">Invalid ] arrow value "<span style="font-style:italic">'..d..'</span>".</span>'..(i18n or i18n.default)
	else
		return result
	end
end

p.rmr = makeInvokeFunction('_rmr')

function p._rmr(args)--[[

Displays text between two blue arrows (or to the left/right side of one).
Text can be split with an en dash if entered in both first and second numbered parameters.
Implemented in the RoutemapRoute template.

]]
	args.l = args.l or args.Licon or args.licon or args.L
	args.r = args.r or args.Ricon or args.ricon or args.R
	if args.l then args.l = p._rmri{args.l,args.llink,(args.lsize or args.size),' '}..'&nbsp;' else args.l = '' end
	if args.r then args.r = '&nbsp;'..p._rmri{args.r,args.rlink,(args.rsize or args.size),' '} else args.r = '' end
	if args then
		if args then args = args..'&nbsp;–&nbsp;'..args end
	else
		args = args or ''
	end
	if args == '' or args.enclosed == 'no' then
		args.b1, args.b2 = '', ''
	else
		args.b1, args.b2 = '(', ')'
	end
	return args.b1..args.l..args..args.r..args.b2
end

function p.BSrow(frame)
	local args = getArgs(frame, {
		parentOnly = true,
		removeBlanks = false,
	})
	return p._BSrow(args)
end

function p._BSrow(args)--[[

Creates Routemap syntax for a diagram row based on parameters.
Implemented in the RDTr template.

]]
	args.n = tonumber(args.n or '')
	if not args.n then
		local icontotal = getArgNums('', args)
		table.sort(icontotal)
		args.n = icontotal or 1
	end
	local count, icons, overlaps, overlapCalc = tonumber(args) or 1, {}, {}, math.log10(args.n)
	local text = (args.text and '*') or ''
	if overlapCalc == math.floor(overlapCalc) then overlapCalc = 10^(overlapCalc) else overlapCalc = 10^(math.floor(overlapCalc) + 1) end
	while count <= args.n do
		local cellparams, overlapn = {}, (string.match(count/overlapCalc, '%.(0+)') or '')..count
		table.insert(icons, (text..(args or '')))
		if args then
			local iconparams, overlapparams, overlapt = {}, {}, {}
			for k, v in pairs({bg = (args or args or args), color = (args or args), b = (args or args), i = (args or args or args), align = args, fontsize = args, abbr = args, style = args}) do
				if v then table.insert(iconparams, k..'='..v) end
			end
			if iconparams then icons = icons..'__'..table.concat(iconparams, ',') end
			for k, v in pairs({bg = (args or args or args), color = (args or args), b = (args or args), i = (args or args or args), align = args, fontsize = args, abbr = args, style = args}) do
				if v then table.insert(overlapparams, k..'='..v) end
			end
			if overlapparams then args = args..'__'..table.concat(overlapparams, ',') end
			overlaps = getArgNums('O'..overlapn, args) or {}
			table.sort(overlaps)
			if overlaps then
				for i, v in ipairs(overlaps) do
					overlapparams = {}
					for k, v2 in pairs({bg = (args or args or args), color = (args or args), b = (args or args), i = (args or args or args), align = args, fontsize = args, abbr = args, style = args}) do
						if v2 then table.insert(overlapparams, k..'='..v2) end
					end
					if overlapparams then args = args..'__'..table.concat(overlapparams, ',') end
					table.insert(overlapt, text..args)
				end
				overlaps = '!~'..text..args..'!~'..table.concat(overlapt, '!~')
			else
				overlaps = '!~'..text..args
			end
			icons = icons..overlaps
		else
			if args then table.insert(cellparams, 'abbr='..args) end
		end
		if args then icons = icons..'!@'..args end
		for k, v in pairs({bg = (args or args or args), color = (args or args), b = (args or args), i = (args or args or args), align = args, fontsize = args, style = args}) do
			if v then table.insert(cellparams, k..'='..v) end
		end
		if cellparams then icons = icons..'!_'..table.concat(cellparams, ',') end
		count = count + 1
	end
	local row, rowparams, left, right = table.concat(icons, '\\'), {}
	for k, v in pairs({bg = (args.bg or args.background or args.bgcolor), color = (args.color or args.colour), b = (args.b or args.bold), i = (args.i or args.it or args.italic), align = args.align, fontsize = args.fontsize, style = args.style}) do
		if v then table.insert(rowparams, k..'='..v) end
	end
	if rowparams then args.R5 = table.concat(rowparams, ',') end
	for i, v in ipairs({'R1', 'R2', 'R3', 'R4', 'R5', 'L1', 'L2', 'L3', 'L4'}) do
		if not args or string.find(args, '^%s*$') then args = nil end
	end
	if args.R5 then
		right = {(args.R1 or ' '), (args.R2 or ' '), (args.R3 or ' '), (args.R4 or ' '), args.R5}
	elseif args.R4 then
		right = {(args.R1 or ' '), (args.R2 or ' '), (args.R3 or ' '), args.R4}
	elseif args.R3 then
		right = {(args.R1 or ' '), (args.R2 or ' '), args.R3}
	elseif args.R1 then
		right = {args.R1, (args.R2 or '')}
	elseif args.R2 then
		right = {args.R2}
	end
	if right then row = row..'~~'..table.concat(right, '~~') end
	if args.L4 then
		left = {args.L4, (args.L3 or ' '), (args.L2 or ' '), (args.L1 or '')}
	elseif args.L3 then
		left = {args.L3, (args.L2 or ' '), (args.L1 or '')}
	elseif args.L1 then
		left = {(args.L2 or ''), args.L1}
	elseif args.L2 then
		left = {args.L2}
	end
	if left then row = table.concat(left, '~~')..'! !'..row end
	return row
end

function p.BSrow_lite(frame)
	local args = getArgs(frame, {
		removeBlanks = false,
	})
	return p._BSrow_lite(args)
end

function p._BSrow_lite(args)--[[

Creates Routemap syntax for a diagram row based on parameters.
Intended to be used to substitute legacy templates.
Note that for compatibility the link and sidebar parameter names are different.

]]
	args.n = tonumber(args.n or '')
	if not args.n then
		local icontotal = getArgNums('', args)
		table.sort(icontotal)
		args.n = icontotal or 1
	end
	local count, icons, overlaps, overlapCalc = tonumber(args) or 1, {}, {}, math.log10(args.n)
	local text = (args.text and '*') or ''
	if overlapCalc == math.floor(overlapCalc) then overlapCalc = 10^(overlapCalc) else overlapCalc = 10^(math.floor(overlapCalc) + 1) end
	while count <= args.n do
		local cellparams, overlapn = {}, (string.match(count/overlapCalc, '%.(0+)') or '')..count
		table.insert(icons, (text..(args or '')))
		if args then
			local overlapt = {}
			overlaps = getArgNums('O'..overlapn, args) or {}
			table.sort(overlaps)
			if overlaps then
				for i, v in ipairs(overlaps) do table.insert(overlapt, text..args) end
				overlaps = '!~'..text..args..'!~'..table.concat(overlapt, '!~')
			else
				overlaps = '!~'..text..args
			end
			icons = icons..overlaps
		end
		if args then icons = icons..'!@'..args end
		count = count + 1
	end
	local row, rowparams, left, right = table.concat(icons, '\\'), {}
	for k, v in pairs({bg = (args.bg or args.background or args.bgcolor), style = args.style}) do
		if v then table.insert(rowparams, k..'='..v) end
	end
	if rowparams then args.r5 = table.concat(rowparams, ',') end
	for i, v in ipairs({'r1', 'r2', 'r3', 'r4', 'r5', 'l1', 'l2', 'l3', 'l4'}) do
		if not args or string.find(args, '^%s*$') then args = nil end
	end
	if args.r5 then
		right = {(args.r1 or ' '), (args.r2 or ' '), (args.r3 or ' '), (args.r4 or ' '), args.r5}
	elseif args.r4 then
		right = {(args.r1 or ' '), (args.r2 or ' '), (args.r3 or ' '), args.r4}
	elseif args.r3 then
		right = {(args.r1 or ' '), (args.r2 or ' '), args.r3}
	elseif args.r1 then
		right = {args.r1, (args.r2 or '')}
	elseif args.r2 then
		right = {args.r2}
	end
	if right then row = row..'~~'..table.concat(right, '~~') end
	if args.l4 then
		left = {args.l4, (args.l3 or ' '), (args.l2 or ' '), (args.l1 or '')}
	elseif args.l3 then
		left = {args.l3, (args.l2 or ' '), (args.l1 or '')}
	elseif args.l1 then
		left = {(args.l2 or ''), args.l1}
	elseif args.l2 then
		left = {args.l2}
	end
	if left then row = table.concat(left, '~~')..'! !'..row end
	return row
end

local function pre_block(text)
	-- Pre tags returned by a module do not act like wikitext <pre>...</pre>.
	return '<pre>' ..
		mw.text.nowiki(text) ..
		(text:sub(-1) == '\n' and '' or '\n') ..
		'</pre>\n'
end

function p.convertbs(frame)--[[

Converts a legacy route diagram into Routemap format.
Code to be used is displayed in preview mode or after saving the page, above the original code.

{{#invoke:Routemap|convertbs|<nowiki>
(Original diagram)
</nowiki>}}

]]
	local org = mw.text.unstripNoWiki(frame.args or 'Paste legacy RDT markup between nowiki tags')
	local res = org
	res = string.gsub(res, '{{%-?map', '{{Routemap') -- "%-" is an escape for hyphen which is used as "between" in pattern.
	res = string.gsub(res, '{|%s?{{ailway line header}}', '{{Routemap')
	res = string.gsub(res, '{{%-header%d?|', '{{safesubst:BS-header/safesubst|') -- "%d?" means optional digit in case use of variant template like BS-header3.
	res = string.gsub(res, '{{%-table%d?}}', '|map =')
	res = string.gsub(res, '{{(%d?)(%d?)|', '{{safesubst:BS%1%2/safesubst|')
	res = string.gsub(res, '{{(%d?)(%d?)%-replace|', '!replace{{safesubst:BS%1%2/safesubst|')
	res = string.gsub(res, '{{(%d?)(%d?)%-startCollapsible|', '-startCollapsible-collapsed\n{{safesubst:BS%1%2/safesubst|')
	res = string.gsub(res, '{{(%d?)(%d?)%-sc|', '-startCollapsible-collapsed\n{{safesubst:BS%1%2/safesubst|')
	res = string.gsub(res, '{{(%d?)(%d?)%text|', '{{safesubst:BS%1%2text/safesubst|')
	res = string.gsub(res, '{{(%d?)(%d?)%-2|', '{{safesubst:BS%1%2-2/safesubst|')
	res = string.gsub(res, '{{(%d?)(%d?)%-2replace|', '!replace{{safesubst:BS%1%2-2|')
	res = string.gsub(res, '{{(%d?)(%d?)%-2sc|', '-startCollapsible-collapsed\n{{safesubst:BS%1%2-2|')
	res = string.gsub(res, '{{!}}}', '-endCollapsible-')
	res = string.gsub(res, '{{nd}}', '-endCollapsible-')
	res = string.gsub(res, '|}\n?|}', '}}') -- Replace ending of Railway line header map setup.
	res = string.gsub(res, '{{%-colspan}}\n{{safesubst', '{{safesubst') -- BS-colspan is unnecessary and would cause error in Routemap.
	res = string.gsub(res, '{{%-colspan}}\n%-%-%-%-', '-colspan-2\n----')
	res = string.gsub(res, '&lt;', '<')
	res = string.gsub(res, '&gt;', '>')
	if string.find(res, '!replace') or string.find(res, '|%s*bg%s*=') then
		local restable = mw.text.split(res, '\n')
		for i, v in ipairs(restable) do
			if string.find(v, '!replace') then
				restable = string.gsub(restable, '!replace', '')
				restable = string.gsub(restable, 'collapsed', 'collapsed-replace')
			end
			if (string.find(v, '|%s*bg%s*=%s*#?+') or string.find(v, '|%s*bg%s*=%s*#?{{+}}%s*|') or string.find(v, '|%s*bg%s*=%s*#?{{+}}%s*}}')) and string.find(restable, '^-startCollapsible') then
				local bg = string.match(v, '|%s*bg%s*=%s*(#?+)') or string.find(v, '|%s*bg%s*=%s*(#?{{+}})%s*|') or string.find(v, '|%s*bg%s*=%s*(#?{{+}})%s*}}')
				restable = string.gsub(restable, '|%s*bg%s*=%s*'..bg, '')
				restable = string.gsub(restable, '%-?$', '--bg=')..bg
				if string.find(restable, '!replace') then
					restable = string.gsub(restable, '!replace', '')
					restable = string.gsub(restable, 'collapsed%-', 'collapsed-replace')
					if (string.find(restable, '|%s*bg%s*=%s*#?+') or string.find(restable, '|%s*bg%s*=%s*#?{{+}}%s*|') or string.find(restable, '|%s*bg%s*=%s*#?{{+}}%s*}}')) then
						local bg2 = string.match(restable, '|%s*bg%s*=%s*(#?+)') or string.find(restable, '|%s*bg%s*=%s*(#?{{+}})%s*|') or string.find(restable, '|%s*bg%s*=%s*(#?{{+}})%s*}}')
						if bg2 == bg then restable = string.gsub(restable, '|%s*bg%s*=%s*'..bg2, '') end
					end
				end
			end
		end
		res = table.concat(restable, '\n')
	end
	return "\n'''Safe substitution''':\n" .. pre_block(res) .. "'''''Original''''':\n" .. pre_block(org)
end

return p
Categories: