Diff: Module:Infobox

local p = {}

local p = {}

local args = {}

local args = {}

local origArgs = {}

local origArgs = {}

local root

local root

local empty_row_categories = {}

local empty_row_categories = {}

local category_in_empty_row_pattern = '%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]'

local category_in_empty_row_pattern = '%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]'

local has_rows = false

local has_rows = false

local lists = {

local lists = {

	plainlist_t = {

	plainlist_t = {

		patterns = {

		patterns = {

			'^plainlist$',

			'^plainlist$',

			'%splainlist$',

			'%splainlist$',

			'^plainlist%s',

			'^plainlist%s',

			'%splainlist%s'

			'%splainlist%s'

		},

		},

		found = false,

		found = false,

		styles = 'Plainlist/styles.css'

		styles = 'Plainlist/styles.css'

	},

	},

	hlist_t = {

	hlist_t = {

		patterns = {

		patterns = {

			'^hlist$',

			'^hlist$',

			'%shlist$',

			'%shlist$',

			'^hlist%s',

			'^hlist%s',

			'%shlist%s'

			'%shlist%s'

		},

		},

		found = false,

		found = false,

		styles = 'Hlist/styles.css'

		styles = 'Hlist/styles.css'

	}

	}

}

}

local function has_list_class(args_to_check)

local function has_list_class(args_to_check)

	for _, list in pairs(lists) do

	for _, list in pairs(lists) do

		if not list.found then

		if not list.found then

			for _, arg in pairs(args_to_check) do

			for _, arg in pairs(args_to_check) do

				for _, pattern in ipairs(list.patterns) do

				for _, pattern in ipairs(list.patterns) do

					if mw.ustring.find(arg or '', pattern) then

					if mw.ustring.find(arg or '', pattern) then

						list.found = true

						list.found = true

						break

						break

					end

					end

				end

				end

				if list.found then break end

				if list.found then break end

			end

			end

		end

		end

	end

	end

end

end

local function fixChildBoxes(sval, tt)

local function fixChildBoxes(sval, tt)

	local function notempty( s ) return s and s:match( '%S' ) end

	local function notempty( s ) return s and s:match( '%S' ) end

	if notempty(sval) then

	if notempty(sval) then

		local marker = '<span class=special_infobox_marker>'

		local marker = '<span class=special_infobox_marker>'

		local s = sval

		local s = sval

		-- start moving templatestyles and categories inside of table rows

		-- start moving templatestyles and categories inside of table rows

		local slast = ''

		local slast = ''

		while slast ~= s do

		while slast ~= s do

			slast = s

			slast = s

			s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*%]%])', '%2%1')

			s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*%]%])', '%2%1')

			s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)', '%2%1')

			s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>%s*)(\127[^\127]*UNIQ%-%-templatestyles%-%x+%-QINU[^\127]*\127)', '%2%1')

		end

		end

		-- end moving templatestyles and categories inside of table rows

		-- end moving templatestyles and categories inside of table rows

		s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')

		s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')

		s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)

		s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)

		if s:match(marker) then

		if s:match(marker) then

			s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')

			s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')

			s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')

			s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')

			s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')

			s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')

			s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')

			s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')

			s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')

			s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')

			s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')

		end

		end

		if s:match(marker) then

		if s:match(marker) then

			local subcells = mw.text.split(s, marker)

			local subcells = mw.text.split(s, marker)

			s = ''

			s = ''

			for k = 1, #subcells do

			for k = 1, #subcells do

				if k == 1 then

				if k == 1 then

					s = s .. subcells[k] .. '</' .. tt .. '></tr>'

					s = s .. subcells[k] .. '</' .. tt .. '></tr>'

				elseif k == #subcells then

				elseif k == #subcells then

					local rowstyle = ' style="display:none"'

					local rowstyle = ' style="display:none"'

					if notempty(subcells[k]) then rowstyle = ''	end

					if notempty(subcells[k]) then rowstyle = ''	end

					s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' ..

					s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' ..

						subcells[k]

						subcells[k]

				elseif notempty(subcells[k]) then

				elseif notempty(subcells[k]) then

					if (k % 2) == 0 then

					if (k % 2) == 0 then

						s = s .. subcells[k]

						s = s .. subcells[k]

					else

					else

						s = s .. '<tr><' .. tt .. ' colspan=2>\n' ..

						s = s .. '<tr><' .. tt .. ' colspan=2>\n' ..

							subcells[k] .. '</' .. tt .. '></tr>'

							subcells[k] .. '</' .. tt .. '></tr>'

					end

					end

				end

				end

			end

			end

		end

		end

		-- the next two lines add a newline at the end of lists for the PHP parser

		-- the next two lines add a newline at the end of lists for the PHP parser

		-- [[Special:Diff/849054481]]

		-- [[Special:Diff/849054481]]

		-- remove when [[:phab:T191516]] is fixed or OBE

		-- remove when [[:phab:T191516]] is fixed or OBE

		s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')

		s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')

		s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')

		s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')

		s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')

		s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')

		s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')

		s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')

		return s

		return s

	else

	else

		return sval

		return sval

	end

	end

end

end

-- Cleans empty tables

-- Cleans empty tables

local function cleanInfobox()

local function cleanInfobox()

	root = tostring(root)

	root = tostring(root)

	if has_rows == false then

	if has_rows == false then

		root = mw.ustring.gsub(root, '<table[^<>]*>%s*</table>', '')

		root = mw.ustring.gsub(root, '<table[^<>]*>%s*</table>', '')

	end

	end

end

end

-- Returns the union of the values of two tables, as a sequence.

-- Returns the union of the values of two tables, as a sequence.

local function union(t1, t2)

local function union(t1, t2)

	local vals = {}

	local vals = {}

	for k, v in pairs(t1) do

	for k, v in pairs(t1) do

		vals[v] = true

		vals[v] = true

	end

	end

	for k, v in pairs(t2) do

	for k, v in pairs(t2) do

		vals[v] = true

		vals[v] = true

	end

	end

	local ret = {}

	local ret = {}

	for k, v in pairs(vals) do

	for k, v in pairs(vals) do

		table.insert(ret, k)

		table.insert(ret, k)

	end

	end

	return ret

	return ret

end

end

-- Returns a table containing the numbers of the arguments that exist

-- Returns a table containing the numbers of the arguments that exist

-- for the specified prefix. For example, if the prefix was 'data', and

-- for the specified prefix. For example, if the prefix was 'data', and

-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.

-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.

local function getArgNums(prefix)

local function getArgNums(prefix)

	local nums = {}

	local nums = {}

	for k, v in pairs(args) do

	for k, v in pairs(args) do

		local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')

		local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')

		if num then table.insert(nums, tonumber(num)) end

		if num then table.insert(nums, tonumber(num)) end

	end

	end

	table.sort(nums)

	table.sort(nums)

	return nums

	return nums

end

end

-- Adds a row to the infobox, with either a header cell

-- Adds a row to the infobox, with either a header cell

-- or a label/data cell combination.

-- or a label/data cell combination.

local function addRow(rowArgs)

local function addRow(rowArgs)

	if rowArgs.header and rowArgs.header ~= '_BLANK_' then

	if rowArgs.header and rowArgs.header ~= '_BLANK_' then

		has_rows = true

		has_rows = true

		has_list_class({ rowArgs.rowclass, rowArgs.class, args.headerclass })

		has_list_class({ rowArgs.rowclass, rowArgs.class, args.headerclass })

		root

		root

			:tag('tr')

			:tag('tr')

				:addClass(rowArgs.rowclass)

				:addClass(rowArgs.rowclass)

				:cssText(rowArgs.rowstyle)

				:cssText(rowArgs.rowstyle)

				:tag('th')

				:tag('th')

					:attr('colspan', '2')

					:attr('colspan', '2')

					:addClass('infobox-header')

					:addClass('infobox-header')

					:addClass(rowArgs.class)

					:addClass(rowArgs.class)

					:addClass(args.headerclass)

					:addClass(args.headerclass)

					-- @deprecated next; target .infobox-<name> .infobox-header

					-- @deprecated next; target .infobox-<name> .infobox-header

					:cssText(args.headerstyle)

					:cssText(args.headerstyle)

					:cssText(rowArgs.rowcellstyle)

					:cssText(rowArgs.rowcellstyle)

					:wikitext(fixChildBoxes(rowArgs.header, 'th'))

					:wikitext(fixChildBoxes(rowArgs.header, 'th'))

		if rowArgs.data then

		if rowArgs.data then

			root:wikitext(

			root:wikitext(

				'[[Category:Pages using infobox templates with ignored data cells]]'

				'[[Category:Pages using infobox templates with ignored data cells]]'

			)

			)

		end

		end

	elseif rowArgs.data and rowArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then

	elseif rowArgs.data and rowArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then

		has_rows = true

		has_rows = true

		has_list_class({ rowArgs.rowclass, rowArgs.class })

		has_list_class({ rowArgs.rowclass, rowArgs.class })

		local row = root:tag('tr')

		local row = root:tag('tr')

		row:addClass(rowArgs.rowclass)

		row:addClass(rowArgs.rowclass)

		row:cssText(rowArgs.rowstyle)

		row:cssText(rowArgs.rowstyle)

		if rowArgs.label then

		if rowArgs.label then

			row

			row

				:tag('th')

				:tag('th')

					:attr('scope', 'row')

					:attr('scope', 'row')

					:addClass('infobox-label')

					:addClass('infobox-label')

					-- @deprecated next; target .infobox-<name> .infobox-label

					-- @deprecated next; target .infobox-<name> .infobox-label

					:cssText(args.labelstyle)

					:cssText(args.labelstyle)

					:cssText(rowArgs.rowcellstyle)

					:cssText(rowArgs.rowcellstyle)

					:wikitext(rowArgs.label)

					:wikitext(rowArgs.label)

					:done()

					:done()

		end

		end

		local dataCell = row:tag('td')

		local dataCell = row:tag('td')

		dataCell

		dataCell

			:attr('colspan', not rowArgs.label and '2' or nil)

			:attr('colspan', not rowArgs.label and '2' or nil)

			:addClass(not rowArgs.label and 'infobox-full-data' or 'infobox-data')

			:addClass(not rowArgs.label and 'infobox-full-data' or 'infobox-data')

			:addClass(rowArgs.class)

			:addClass(rowArgs.class)

			-- @deprecated next; target .infobox-<name> .infobox(-full)-data

			-- @deprecated next; target .infobox-<name> .infobox(-full)-data

			:cssText(rowArgs.datastyle)

			:cssText(rowArgs.datastyle)

			:cssText(rowArgs.rowcellstyle)

			:cssText(rowArgs.rowcellstyle)

			:wikitext(fixChildBoxes(rowArgs.data, 'td'))

			:wikitext(fixChildBoxes(rowArgs.data, 'td'))

	else

	else

		table.insert(empty_row_categories, rowArgs.data or '')

		table.insert(empty_row_categories, rowArgs.data or '')

	end

	end

end

end

local function renderTitle()

local function renderTitle()

	if not args.title then return end

	if not args.title then return end

	has_rows = true

	has_rows = true

	has_list_class({args.titleclass})

	has_list_class({args.titleclass})

	root

	root

		:tag('caption')

		:tag('caption')

			:addClass('infobox-title')

			:addClass('infobox-title')

			:addClass(args.titleclass)

			:addClass(args.titleclass)

			-- @deprecated next; target .infobox-<name> .infobox-title

			-- @deprecated next; target .infobox-<name> .infobox-title

			:cssText(args.titlestyle)

			:cssText(args.titlestyle)

			:wikitext(args.title)

			:wikitext(args.title)

end

end

local function renderAboveRow()

local function renderAboveRow()

	if not args.above then return end

	if not args.above then return end

	has_rows = true

	has_rows = true

	has_list_class({ args.aboveclass })

	has_list_class({ args.aboveclass })

	root

	root

		:tag('tr')

		:tag('tr')

			:tag('th')

			:tag('th')

				:attr('colspan', '2')

				:attr('colspan', '2')

				:addClass('infobox-above')

				:addClass('infobox-above')

				:addClass(args.aboveclass)

				:addClass(args.aboveclass)

				-- @deprecated next; target .infobox-<name> .infobox-above

				-- @deprecated next; target .infobox-<name> .infobox-above

				:cssText(args.abovestyle)

				:cssText(args.abovestyle)

				:wikitext(fixChildBoxes(args.above,'th'))

				:wikitext(fixChildBoxes(args.above,'th'))

end

end

local function renderBelowRow()

local function renderBelowRow()

	if not args.below then return end

	if not args.below then return end

	has_rows = true

	has_rows = true

	has_list_class({ args.belowclass })

	has_list_class({ args.belowclass })

	root

	root

		:tag('tr')

		:tag('tr')

			:tag('td')

			:tag('td')

				:attr('colspan', '2')

				:attr('colspan', '2')

				:addClass('infobox-below')

				:addClass('infobox-below')

				:addClass(args.belowclass)

				:addClass(args.belowclass)

				-- @deprecated next; target .infobox-<name> .infobox-below

				-- @deprecated next; target .infobox-<name> .infobox-below

				:cssText(args.belowstyle)

				:cssText(args.belowstyle)

				:wikitext(fixChildBoxes(args.below,'td'))

				:wikitext(fixChildBoxes(args.below,'td'))

end

end

local function addSubheaderRow(subheaderArgs)

local function addSubheaderRow(subheaderArgs)

	if subheaderArgs.data and

	if subheaderArgs.data and

		subheaderArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then

		subheaderArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then

		has_rows = true

		has_rows = true

		has_list_class({ subheaderArgs.rowclass, subheaderArgs.class })

		has_list_class({ subheaderArgs.rowclass, subheaderArgs.class })

		local row = root:tag('tr')

		local row = root:tag('tr')

		row:addClass(subheaderArgs.rowclass)

		row:addClass(subheaderArgs.rowclass)

		local dataCell = row:tag('td')

		local dataCell = row:tag('td')

		dataCell

		dataCell

			:attr('colspan', '2')

			:attr('colspan', '2')

			:addClass('infobox-subheader')

			:addClass('infobox-subheader')

			:addClass(subheaderArgs.class)

			:addClass(subheaderArgs.class)

			:cssText(subheaderArgs.datastyle)

			:cssText(subheaderArgs.datastyle)

			:cssText(subheaderArgs.rowcellstyle)

			:cssText(subheaderArgs.rowcellstyle)

			:wikitext(fixChildBoxes(subheaderArgs.data, 'td'))

			:wikitext(fixChildBoxes(subheaderArgs.data, 'td'))

	else

	else

		table.insert(empty_row_categories, subheaderArgs.data or '')

		table.insert(empty_row_categories, subheaderArgs.data or '')

	end

	end

end

end

local function renderSubheaders()

local function renderSubheaders()

	if args.subheader then

	if args.subheader then

		args.subheader1 = args.subheader

		args.subheader1 = args.subheader

	end

	end

	if args.subheaderrowclass then

	if args.subheaderrowclass then

		args.subheaderrowclass1 = args.subheaderrowclass

		args.subheaderrowclass1 = args.subheaderrowclass

	end

	end

	local subheadernums = getArgNums('subheader')

	local subheadernums = getArgNums('subheader')

	for k, num in ipairs(subheadernums) do

	for k, num in ipairs(subheadernums) do

		addSubheaderRow({

		addSubheaderRow({

			data = args['subheader' .. tostring(num)],

			data = args['subheader' .. tostring(num)],

			-- @deprecated next; target .infobox-<name> .infobox-subheader

			-- @deprecated next; target .infobox-<name> .infobox-subheader

			datastyle = args.subheaderstyle,

			datastyle = args.subheaderstyle,

			rowcellstyle = args['subheaderstyle' .. tostring(num)],

			rowcellstyle = args['subheaderstyle' .. tostring(num)],

			class = args.subheaderclass,

			class = args.subheaderclass,

			rowclass = args['subheaderrowclass' .. tostring(num)]

			rowclass = args['subheaderrowclass' .. tostring(num)]

		})

		})

	end

	end

end

end

local function addImageRow(imageArgs)

local function addImageRow(imageArgs)

	if imageArgs.data and

	if imageArgs.data and

		imageArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then

		imageArgs.data:gsub(category_in_empty_row_pattern, ''):match('^%S') then

		has_rows = true

		has_rows = true

		has_list_class({ imageArgs.rowclass, imageArgs.class })

		has_list_class({ imageArgs.rowclass, imageArgs.class })

		local row = root:tag('tr')

		local row = root:tag('tr')

		row:addClass(imageArgs.rowclass)

		row:addClass(imageArgs.rowclass)

		local dataCell = row:tag('td')

		local dataCell = row:tag('td')

		dataCell

		dataCell

			:attr('colspan', '2')

			:attr('colspan', '2')

			:addClass('infobox-image')

			:addClass('infobox-image')

			:addClass(imageArgs.class)

			:addClass(imageArgs.class)

			:cssText(imageArgs.datastyle)

			:cssText(imageArgs.datastyle)

			:wikitext(fixChildBoxes(imageArgs.data, 'td'))

			:wikitext(fixChildBoxes(imageArgs.data, 'td'))

	else

	else

		table.insert(empty_row_categories, imageArgs.data or '')

		table.insert(empty_row_categories, imageArgs.data or '')

	end

	end

end

end

local function renderImages()

local function renderImages()

	if args.image then

	if args.image then

		args.image1 = args.image

		args.image1 = args.image

	end

	end

	if args.caption then

	if args.caption then

		args.caption1 = args.caption

		args.caption1 = args.caption

	end

	end

	local imagenums = getArgNums('image')

	local imagenums = getArgNums('image')

	for k, num in ipairs(imagenums) do

	for k, num in ipairs(imagenums) do

		local caption = args['caption' .. tostring(num)]

		local caption = args['caption' .. tostring(num)]

		local data = mw.html.create():wikitext(args['image' .. tostring(num)])

		local data = mw.html.create():wikitext(args['image' .. tostring(num)])

		if caption then

		if caption then

			data

			data

				:tag('div')

				:tag('div')

					:addClass('infobox-caption')

					:addClass('infobox-caption')

					-- @deprecated next; target .infobox-<name> .infobox-caption

					-- @deprecated next; target .infobox-<name> .infobox-caption

					:cssText(args.captionstyle)

					:cssText(args.captionstyle)

					:wikitext(caption)

					:wikitext(caption)

		end

		end

		addImageRow({

		addImageRow({

			data = tostring(data),

			data = tostring(data),

			-- @deprecated next; target .infobox-<name> .infobox-image

			-- @deprecated next; target .infobox-<name> .infobox-image

			datastyle = args.imagestyle,

			datastyle = args.imagestyle,

			class = args.imageclass,

			class = args.imageclass,

			rowclass = args['imagerowclass' .. tostring(num)]

			rowclass = args['imagerowclass' .. tostring(num)]

		})

		})

	end

	end

end

end

-- When autoheaders are turned on, preprocesses the rows

-- When autoheaders are turned on, preprocesses the rows

local function preprocessRows()

local function preprocessRows()

	if not args.autoheaders then return end

	if not args.autoheaders then return end

	local rownums = union(getArgNums('header'), getArgNums('data'))

	local rownums = union(getArgNums('header'), getArgNums('data'))

	table.sort(rownums)

	table.sort(rownums)

	local lastheader

	local lastheader

	for k, num in ipairs(rownums) do

	for k, num in ipairs(rownums) do

		if args['header' .. tostring(num)] then

		if args['header' .. tostring(num)] then

			if lastheader then

			if lastheader then

				args['header' .. tostring(lastheader)] = nil

				args['header' .. tostring(lastheader)] = nil

			end

			end

			lastheader = num

			lastheader = num

		elseif args['data' .. tostring(num)] and

		elseif args['data' .. tostring(num)] and

			args['data' .. tostring(num)]:gsub(

			args['data' .. tostring(num)]:gsub(

				category_in_empty_row_pattern, ''

				category_in_empty_row_pattern, ''

			):match('^%S') then

			):match('^%S') then

			local data = args['data' .. tostring(num)]

			local data = args['data' .. tostring(num)]

			if data:gsub(category_in_empty_row_pattern, ''):match('%S') then

			if data:gsub(category_in_empty_row_pattern, ''):match('%S') then

				lastheader = nil

				lastheader = nil

			end

			end

		end

		end

	end

	end

	if lastheader then

	if lastheader then

		args['header' .. tostring(lastheader)] = nil

		args['header' .. tostring(lastheader)] = nil

	end

	end

end

end

-- Gets the union of the header and data argument numbers,

-- Gets the union of the header and data argument numbers,

-- and renders them all in order

-- and renders them all in order

local function renderRows()

local function renderRows()

	local rownums = union(getArgNums('header'), getArgNums('data'))

	local rownums = union(getArgNums('header'), getArgNums('data'))

	table.sort(rownums)

	table.sort(rownums)

	for k, num in ipairs(rownums) do

	for k, num in ipairs(rownums) do

		addRow({

		addRow({

			header = args['header' .. tostring(num)],

			header = args['header' .. tostring(num)],

			label = args['label' .. tostring(num)],

			label = args['label' .. tostring(num)],

			data = args['data' .. tostring(num)],

			data = args['data' .. tostring(num)],

			datastyle = args.datastyle,

			datastyle = args.datastyle,

			class = args['class' .. tostring(num)],

			class = args['class' .. tostring(num)],

			rowclass = args['rowclass' .. tostring(num)],

			rowclass = args['rowclass' .. tostring(num)],

			-- @deprecated next; target .infobox-<name> rowclass

			-- @deprecated next; target .infobox-<name> rowclass

			rowstyle = args['rowstyle' .. tostring(num)],

			rowstyle = args['rowstyle' .. tostring(num)],

			rowcellstyle = args['rowcellstyle' .. tostring(num)]

			rowcellstyle = args['rowcellstyle' .. tostring(num)]

		})

		})

	end

	end

end

end

local function renderNavBar()

local function renderNavBar()

	if not args.name then return end

	if not args.name then return end

	has_rows = true

	has_rows = true

	root

	root

		:tag('tr')

		:tag('tr')

			:tag('td')

			:tag('td')

				:attr('colspan', '2')

				:attr('colspan', '2')

				:addClass('infobox-navbar')

				:addClass('infobox-navbar')

				:wikitext(require('Module:Navbar')._navbar{

				:wikitext(require('Module:Navbar')._navbar{

					args.name,

					args.name,

					mini = 1,

					mini = 1,

				})

				})

end

end

local function renderItalicTitle()

local function renderItalicTitle()

	local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])

	local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])

	if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then

	if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then

		root:wikitext(require('Module:Italic title')._main({}))

		root:wikitext(require('Module:Italic title')._main({}))

	end

	end

end

end

-- Categories in otherwise empty rows are collected in empty_row_categories.

-- Categories in otherwise empty rows are collected in empty_row_categories.

-- This function adds them to the module output. It is not affected by

-- This function adds them to the module output. It is not affected by

-- args.decat because this module should not prevent module-external categories

-- args.decat because this module should not prevent module-external categories

-- from rendering.

-- from rendering.

local function renderEmptyRowCategories()

local function renderEmptyRowCategories()

	for _, s in ipairs(empty_row_categories) do

	for _, s in ipairs(empty_row_categories) do

		root:wikitext(s)

		root:wikitext(s)

	end

	end

end

end

-- Render tracking categories. args.decat == turns off tracking categories.

-- Render tracking categories. args.decat == turns off tracking categories.

local function renderTrackingCategories()

local function renderTrackingCategories()

	if args.decat == 'yes' then return end

	if args.decat == 'yes' then return end

	if args.child == 'yes' then

	if args.child == 'yes' then

		if args.title then

		if args.title then

			root:wikitext(

			root:wikitext(

				'[[Category:Pages using embedded infobox templates with the title parameter]]'

				'[[Category:Pages using embedded infobox templates with the title parameter]]'

			)

			)

		end

		end

	elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then

	elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then

		root:wikitext('[[Category:Articles using infobox templates with no data rows]]')

		root:wikitext('[[Category:Articles using infobox templates with no data rows]]')

	end

	end

end

end

--[=[

--[=[

Loads the templatestyles for the infobox.

Loads the templatestyles for the infobox.

TODO: FINISH loading base templatestyles here rather than in

TODO: FINISH loading base templatestyles here rather than in

MediaWiki:Common.css. There are 4-5000 pages with 'raw' infobox tables.

MediaWiki:Common.css. There are 4-5000 pages with 'raw' infobox tables.

See [[Mediawiki_talk:Common.css/to_do#Infobox]] and/or come help :).

See [[Mediawiki_talk:Common.css/to_do#Infobox]] and/or come help :).

When we do this we should clean up the inline CSS below too.

When we do this we should clean up the inline CSS below too.

Will have to do some bizarre conversion category like with sidebar.

Will have to do some bizarre conversion category like with sidebar.

]=]

]=]

local function loadTemplateStyles()

local function loadTemplateStyles()

	local frame = mw.getCurrentFrame()

	local frame = mw.getCurrentFrame()

	local hlist_templatestyles = ''

	local hlist_templatestyles = ''

	if lists.hlist_t.found then

	if lists.hlist_t.found then

		hlist_templatestyles = frame:extensionTag{

		hlist_templatestyles = frame:extensionTag{

			name = 'templatestyles', args = { src = lists.hlist_t.styles }

			name = 'templatestyles', args = { src = lists.hlist_t.styles }

		}

		}

	end

	end

	local plainlist_templatestyles = ''

	local plainlist_templatestyles = ''

	if lists.plainlist_t.found then

	if lists.plainlist_t.found then

		plainlist_templatestyles = frame:extensionTag{

		plainlist_templatestyles = frame:extensionTag{

			name = 'templatestyles', args = { src = lists.plainlist_t.styles }

			name = 'templatestyles', args = { src = lists.plainlist_t.styles }

		}

		}

	end

	end

	-- See function description

	-- See function description

	local base_templatestyles = frame:extensionTag{

	local base_templatestyles = frame:extensionTag{

		name = 'templatestyles', args = { src = 'Module:Infobox/styles.css' }

		name = 'templatestyles', args = { src = 'Module:Infobox/styles.css' }

	}

	}

	local templatestyles = ''

	local templatestyles = ''

	if args['templatestyles'] then

	if args['templatestyles'] then

		templatestyles = frame:extensionTag{

		templatestyles = frame:extensionTag{

			name = 'templatestyles', args = { src = args['templatestyles'] }

			name = 'templatestyles', args = { src = args['templatestyles'] }

		}

		}

	end

	end

	local child_templatestyles = ''

	local child_templatestyles = ''

	if args['child templatestyles'] then

	if args['child templatestyles'] then

		child_templatestyles = frame:extensionTag{

		child_templatestyles = frame:extensionTag{

			name = 'templatestyles', args = { src = args['child templatestyles'] }

			name = 'templatestyles', args = { src = args['child templatestyles'] }

		}

		}

	end

	end

	local grandchild_templatestyles = ''

	local grandchild_templatestyles = ''

	if args['grandchild templatestyles'] then

	if args['grandchild templatestyles'] then

		grandchild_templatestyles = frame:extensionTag{

		grandchild_templatestyles = frame:extensionTag{

			name = 'templatestyles', args = { src = args['grandchild templatestyles'] }

			name = 'templatestyles', args = { src = args['grandchild templatestyles'] }

		}

		}

	end

	end

	return table.concat({

	return table.concat({

		-- hlist -> plainlist -> base is best-effort to preserve old Common.css ordering.

		-- hlist -> plainlist -> base is best-effort to preserve old Common.css ordering.

		-- this ordering is not a guarantee because the rows of interest invoking

		-- this ordering is not a guarantee because the rows of interest invoking

		-- each class may not be on a specific page

		-- each class may not be on a specific page

		hlist_templatestyles,

		hlist_templatestyles,

		plainlist_templatestyles,

		plainlist_templatestyles,

		base_templatestyles,

		base_templatestyles,

		templatestyles,

		templatestyles,

		child_templatestyles,

		child_templatestyles,

		grandchild_templatestyles

		grandchild_templatestyles

	})

	})

end

end

-- common functions between the child and non child cases

-- common functions between the child and non child cases

local function structure_infobox_common()

local function structure_infobox_common()

	renderSubheaders()

	renderSubheaders()

	renderImages()

	renderImages()

	preprocessRows()

	preprocessRows()

	renderRows()

	renderRows()

	renderBelowRow()

	renderBelowRow()

	renderNavBar()

	renderNavBar()

	renderItalicTitle()

	renderItalicTitle()

	renderEmptyRowCategories()

	renderEmptyRowCategories()

	renderTrackingCategories()

	renderTrackingCategories()

	cleanInfobox()

	cleanInfobox()

end

end

-- Specify the overall layout of the infobox, with special settings if the

-- Specify the overall layout of the infobox, with special settings if the

-- infobox is used as a 'child' inside another infobox.

-- infobox is used as a 'child' inside another infobox.

local function _infobox()

local function _infobox()

	if args.child ~= 'yes' then

	if args.child ~= 'yes' then

		root = mw.html.create('table')

		root = mw.html.create('table')

		root

		root

			:addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox')

			:addClass(args.subbox == 'yes' and 'infobox-subbox' or 'infobox')

			:addClass(args.bodyclass)

			:addClass(args.bodyclass)

			-- @deprecated next; target .infobox-<name>

			-- @deprecated next; target .infobox-<name>

			:cssText(args.bodystyle)

			:cssText(args.bodystyle)

		has_list_class({ args.bodyclass })

		has_list_class({ args.bodyclass })

		renderTitle()

		renderTitle()

		renderAboveRow()

		renderAboveRow()

	else

	else

		root = mw.html.create()

		root = mw.html.create()

		root

		root

			:wikitext(args.title)

			:wikitext(args.title)

	end

	end

	structure_infobox_common()

	structure_infobox_common()

	return loadTemplateStyles() .. root

	return loadTemplateStyles() .. root

end

end

-- If the argument exists and isn't blank, add it to the argument table.

-- If the argument exists and isn't blank, add it to the argument table.

-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.

-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.

local function preprocessSingleArg(argName)

local function preprocessSingleArg(argName)

	if origArgs[argName] and origArgs[argName] ~= '' then

	if origArgs[argName] and origArgs[argName] ~= '' then

		args[argName] = origArgs[argName]

		args[argName] = origArgs[argName]

	end

	end

end

end

-- Assign the parameters with the given prefixes to the args table, in order, in

-- Assign the parameters with the given prefixes to the args table, in order, in

-- batches of the step size specified. This is to prevent references etc. from

-- batches of the step size specified. This is to prevent references etc. from

-- appearing in the wrong order. The prefixTable should be an array containing

-- appearing in the wrong order. The prefixTable should be an array containing

-- tables, each of which has two possible fields, a "prefix" string and a

-- tables, each of which has two possible fields, a "prefix" string and a

-- "depend" table. The function always parses parameters containing the "prefix"

-- "depend" table. The function always parses parameters containing the "prefix"

-- string, but only parses parameters in the "depend" table if the prefix

-- string, but only parses parameters in the "depend" table if the prefix

-- parameter is present and non-blank.

-- parameter is present and non-blank.

local function preprocessArgs(prefixTable, step)

local function preprocessArgs(prefixTable, step)

	if type(prefixTable) ~= 'table' then

	if type(prefixTable) ~= 'table' then

		error("Non-table value detected for the prefix table", 2)

		error("Non-table value detected for the prefix table", 2)

	end

	end

	if type(step) ~= 'number' then

	if type(step) ~= 'number' then

		error("Invalid step value detected", 2)

		error("Invalid step value detected", 2)

	end

	end

	-- Get arguments without a number suffix, and check for bad input.

	-- Get arguments without a number suffix, and check for bad input.

	for i,v in ipairs(prefixTable) do

	for i,v in ipairs(prefixTable) do

		if type(v) ~= 'table' or type(v.prefix) ~= "string" or

		if type(v) ~= 'table' or type(v.prefix) ~= "string" or

			(v.depend and type(v.depend) ~= 'table') then

			(v.depend and type(v.depend) ~= 'table') then

			error('Invalid input detected to preprocessArgs prefix table', 2)

			error('Invalid input detected to preprocessArgs prefix table', 2)

		end

		end

		preprocessSingleArg(v.prefix)

		preprocessSingleArg(v.prefix)

		-- Only parse the depend parameter if the prefix parameter is present

		-- Only parse the depend parameter if the prefix parameter is present

		-- and not blank.

		-- and not blank.

		if args[v.prefix] and v.depend then

		if args[v.prefix] and v.depend then

			for j, dependValue in ipairs(v.depend) do

			for j, dependValue in ipairs(v.depend) do

				if type(dependValue) ~= 'string' then

				if type(dependValue) ~= 'string' then

					error('Invalid "depend" parameter value detected in preprocessArgs')

					error('Invalid "depend" parameter value detected in preprocessArgs')

				end

				end

				preprocessSingleArg(dependValue)

				preprocessSingleArg(dependValue)

			end

			end

		end

		end

	end

	end

	-- Get arguments with number suffixes.

	-- Get arguments with number suffixes.

	local a = 1 -- Counter variable.

	local a = 1 -- Counter variable.

	local moreArgumentsExist = true

	local moreArgumentsExist = true

	while moreArgumentsExist == true do

	while moreArgumentsExist == true do

		moreArgumentsExist = false

		moreArgumentsExist = false

		for i = a, a + step - 1 do

		for i = a, a + step - 1 do

			for j,v in ipairs(prefixTable) do

			for j,v in ipairs(prefixTable) do

				local prefixArgName = v.prefix .. tostring(i)

				local prefixArgName = v.prefix .. tostring(i)

				if origArgs[prefixArgName] then

				if origArgs[prefixArgName] then

					-- Do another loop if any arguments are found, even blank ones.

					-- Do another loop if any arguments are found, even blank ones.

					moreArgumentsExist = true

					moreArgumentsExist = true

					preprocessSingleArg(prefixArgName)

					preprocessSingleArg(prefixArgName)

				end

				end

				-- Process the depend table if the prefix argument is present

				-- Process the depend table if the prefix argument is present

				-- and not blank, or we are processing "prefix1" and "prefix" is

				-- and not blank, or we are processing "prefix1" and "prefix" is

				-- present and not blank, and if the depend table is present.

				-- present and not blank, and if the depend table is present.

				if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then

				if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then

					for j,dependValue in ipairs(v.depend) do

					for j,dependValue in ipairs(v.depend) do

						local dependArgName = dependValue .. tostring(i)

						local dependArgName = dependValue .. tostring(i)

						preprocessSingleArg(dependArgName)

						preprocessSingleArg(dependArgName)

					end

					end

				end

				end

			end

			end

		end

		end

		a = a + step

		a = a + step

	end

	end

end

end

-- Parse the data parameters in the same order that the old {{infobox}} did, so

-- Parse the data parameters in the same order that the old {{infobox}} did, so

-- that references etc. will display in the expected places. Parameters that

-- that references etc. will display in the expected places. Parameters that

-- depend on another parameter are only processed if that parameter is present,

-- depend on another parameter are only processed if that parameter is present,

-- to avoid phantom references appearing in article reference lists.

-- to avoid phantom references appearing in article reference lists.

local function parseDataParameters()

local function parseDataParameters()

	preprocessSingleArg('autoheaders')

	preprocessSingleArg('autoheaders')

	preprocessSingleArg('child')

	preprocessSingleArg('child')

	preprocessSingleArg('bodyclass')

	preprocessSingleArg('bodyclass')

	preprocessSingleArg('subbox')

	preprocessSingleArg('subbox')

	preprocessSingleArg('bodystyle')

	preprocessSingleArg('bodystyle')

	preprocessSingleArg('title')

	preprocessSingleArg('title')

	preprocessSingleArg('titleclass')

	preprocessSingleArg('titleclass')

	preprocessSingleArg('titlestyle')

	preprocessSingleArg('titlestyle')

	preprocessSingleArg('above')

	preprocessSingleArg('above')

	preprocessSingleArg('aboveclass')

	preprocessSingleArg('aboveclass')

	preprocessSingleArg('abovestyle')

	preprocessSingleArg('abovestyle')

	preprocessArgs({

	preprocessArgs({

		{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}

		{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}

	}, 10)

	}, 10)

	preprocessSingleArg('subheaderstyle')

	preprocessSingleArg('subheaderstyle')

	preprocessSingleArg('subheaderclass')

	preprocessSingleArg('subheaderclass')

	preprocessArgs({

	preprocessArgs({

		{prefix = 'image', depend = {'caption', 'imagerowclass'}}

		{prefix = 'image', depend = {'caption', 'imagerowclass'}}

	}, 10)

	}, 10)

	preprocessSingleArg('captionstyle')

	preprocessSingleArg('captionstyle')

	preprocessSingleArg('imagestyle')

	preprocessSingleArg('imagestyle')

	preprocessSingleArg('imageclass')

	preprocessSingleArg('imageclass')

	preprocessArgs({

	preprocessArgs({

		{prefix = 'header'},

		{prefix = 'header'},

		{prefix = 'data', depend = {'label'}},

		{prefix = 'data', depend = {'label'}},

		{prefix = 'rowclass'},

		{prefix = 'rowclass'},

		{prefix = 'rowstyle'},

		{prefix = 'rowstyle'},

		{prefix = 'rowcellstyle'},

		{prefix = 'rowcellstyle'},

		{prefix = 'class'}

		{prefix = 'class'}

	}, 50)

	}, 50)

	preprocessSingleArg('headerclass')

	preprocessSingleArg('headerclass')

	preprocessSingleArg('headerstyle')

	preprocessSingleArg('headerstyle')

	preprocessSingleArg('labelstyle')

	preprocessSingleArg('labelstyle')

	preprocessSingleArg('datastyle')

	preprocessSingleArg('datastyle')

	preprocessSingleArg('below')

	preprocessSingleArg('below')

	preprocessSingleArg('belowclass')

	preprocessSingleArg('belowclass')

	preprocessSingleArg('belowstyle')

	preprocessSingleArg('belowstyle')

	preprocessSingleArg('name')

	preprocessSingleArg('name')

	-- different behaviour for italics if blank or absent

	-- different behaviour for italics if blank or absent

	args['italic title'] = origArgs['italic title']

	args['italic title'] = origArgs['italic title']

	preprocessSingleArg('decat')

	preprocessSingleArg('decat')

	preprocessSingleArg('templatestyles')

	preprocessSingleArg('templatestyles')

	preprocessSingleArg('child templatestyles')

	preprocessSingleArg('child templatestyles')

	preprocessSingleArg('grandchild templatestyles')

	preprocessSingleArg('grandchild templatestyles')

end

end

-- If called via #invoke, use the args passed into the invoking template.

-- If called via #invoke, use the args passed into the invoking template.

-- Otherwise, for testing purposes, assume args are being passed directly in.

-- Otherwise, for testing purposes, assume args are being passed directly in.

function p.infobox(frame)

function p.infobox(frame)

	if frame == mw.getCurrentFrame() then

	if frame == mw.getCurrentFrame() then

		origArgs = frame:getParent().args

		origArgs = frame:getParent().args

	else

	else

		origArgs = frame

		origArgs = frame

	end

	end

	parseDataParameters()

	parseDataParameters()

	return _infobox()

	return _infobox()

end

end

-- For calling via #invoke within a template

-- For calling via #invoke within a template

function p.infoboxTemplate(frame)

function p.infoboxTemplate(frame)

	origArgs = {}

	origArgs = {}

	for k,v in pairs(frame.args) do origArgs[k] = mw.text.trim(v) end

	for k,v in pairs(frame.args) do origArgs[k] = mw.text.trim(v) end

	parseDataParameters()

	parseDataParameters()

	return _infobox()

	return _infobox()

end

end

return p

return p