模組:Adjacent stations/renderSuccessionBox

模块文档[创建]

local tableTools = require('Module:TableTools')
local yesNo = require('Module:Yesno')
local i18n = require('Module:Adjacent stations/i18n')
local root, lang, data= mw.html.create('table'), 'en-GB', {}
root:addClass('wikitable adjacent-stations')
local function renderHeader(stopNoun, systemIcon, systemTitle)
	root
		:tag('tr')
			:tag('th')
				:addClass('hcA')
				:wikitext(i18n[lang]['preceding'](stopNoun))
				:done()
			:tag('th')
				:attr('colspan', 3)
				:addClass('hmA')
				:wikitext(systemIcon and systemIcon .. ' ', systemTitle)
				:done()
			:tag('th')
				:addClass('hcA')
				:wikitext(i18n[lang]['following'](stopNoun))
end
local function renderSubHeader(subHeader)
	root
		:tag('tr')
			:tag('th')
				:attr('colspan', 5)
				:addClass('hmA')
				:wikitext(subHeader)
end
local function renderSideCell(row, rowSpan, adjacent, terminus, oneWay, circular, through, Reverse, note)
	local mainText, subText = mw.html.create('div')
	if adjacent then
		mainText:wikitext(adjacent)
		subText = mw.html.create('div')
		subText:addClass('isA')
		if adjacent == terminus then
			subText:wikitext('Terminus')
		else
			subText:wikitext(oneWay and 'one-way operation' or circular and terminus or i18n[lang]['towards'](terminus))
		end
	else
		mainText:css('font-style', 'italic')
		mainText:wikitext(Reverse and 'Reverses direction' or through and i18n[lang]['through'](through) or 'Terminus')
	end
	row
		:tag('td')
			:attr('rowspan', rowSpan)
			:addClass('bcA')
			:node(mainText)
				:tag('div')
					:css('font-size', 'smaller')
					:wikitext(note)
					:done()
			:node(subText)
end
local function renderMidCells(row, rowSpan, colour, backgroundColour, lineTitle, typeTitle, note, transfer)
	row
		:tag('td')
			:attr('rowspan', rowSpan)
			:addClass('bbA')
			:css('background-color', colour and string.match(colour, '#') and colour or colour and '#' .. colour)
			:done()
		:tag('td')
			:attr('rowspan', rowSpan)
			:addClass('bcA')
			:css('background-color', backgroundColour)
			:wikitext(lineTitle)
				:tag('div')
					:wikitext(typeTitle)
					:done()
				:tag('div')
					:css('font-size', 'smaller')
					:wikitext(note)
					:done()
				:tag('div')
					:addClass('isA')
					:wikitext(i18n[lang]['transfer'](transfer))
					:done()
			:done()
		:tag('td')
			:attr('rowspan', rowSpan)
			:addClass('bbA')
			:css('background-color', colour and string.match(colour, '#') and colour or colour and '#' .. colour)
end
local function renderNonStopRow(title, colour, isFormer)
	root
		:tag('tr')
			:tag('td')
				:attr('colspan', 5)
				:addClass('bcA')
					:tag('div')
						:tag('span')
							:css('border', '1px solid #000')
							:css('background-color', colour and colour and string.match(colour, '#') and colour or colour and '#' .. colour)
							:wikitext('    ')
							:done()
						:wikitext(' ', isFormer == true and i18n[lang]['nonstop_past'](title) or i18n[lang]['nonstop_present'](title))
end
local function renderNoteRow(note)
	root
		:tag('tr')
			:tag('td')
				:attr('colspan', 5)
				:addClass('bcA')
				:wikitext(note)
end
local function dig(...)
	-- Digs through a table with sub-tables using arguments as keys, returning the value of the last key argument
	-- Analogous to returning a file given a file path with sub-folders
	-- Returns nil if any given sub-table does not exist
	local arg = {...}
	local a, i = arg[1], 1
	while a and i < select('#', ...) do
		a = a[arg[i + 1]]
		i = i + 1
	end
	if i == select('#', ...) then return a end
end
local function getStationTitle(station, i)
	if station then
		local stationFormat = data[i]['station format'] or error(i18n[lang]['error_format'])
		local link = stationFormat[station] or stationFormat[1]
		return string.match(link, '%[%[.+%]%]') and string.gsub(link, '%%1', station) or '[[' .. string.gsub(link, '%%1', station) .. '|' .. station .. ']]'
	end
end
local function getTerminus(termini, i, to)
	if type(termini) == 'string' then
		return getStationTitle(termini, i)
	elseif type(termini) == 'table' then
		local j, t = 1, {}
		while termini[j] and to ~= termini[j] do
			t[j] = getStationTitle(termini[j], i)
			j = j + 1
		end
		return getStationTitle(termini[j], i) or mw.text.listToText(t, nil, ' or ')
	end
end
local function p(args)
	args = tableTools.numData(args)
	if args.other then
		args[1] = args[1] or {}
		for k, _ in pairs(args.other) do args[1][k] = args[1][k] or args['other'][k] end
	end
	args = tableTools.compressSparseArray(args)
	local j, k, l = 2, 2, 2
	local default, lineData, typeData, fallback
	for i, v in ipairs(args) do
		args[i]['system'] = args[i]['system'] or args[i - 1]['system']
		data[i] = mw.loadData('Module:Adjacent stations/' .. args[i]['system'])
		lang = data[i]['lang'] or 'en-GB'
		default = function (n) return dig(data[n], 'lines', '_default') end
		if args[i]['line'] then
			args[i]['line'] =
				dig(data[i], 'lines', args[i]['line']) and args[i]['line'] or
				dig(data[i], 'aliases', string.lower(args[i]['line'])) or
				error(i18n[lang]['error_unknown'](args[i]['line']))
		else
			args[i]['line'] = default(i) and '_default' or args[i - 1]['line']
		end
		lineData = function (n, line) return
			dig(data[n], 'lines', line or args[n]['line']) or
			dig(data[n], 'lines', dig(data[n], 'aliases', string.lower(line or args[n]['line'])))
		end
		typeData = function (n) return dig(lineData(n), 'types', args[n]['type']) end
		if i == 1 or args[i]['system'] ~= args[i - 1]['system'] then
			renderHeader(
				data[i]['header stop noun'] or i18n[lang]['stop_noun'],
				data[i]['system icon'],
				data[i]['system title'] or '[[' .. args[i]['system'] .. ']]')
		end
		if v.header then renderSubHeader(v.header) end
		fallback = function (s, n)
			return dig(typeData(n or i), s) or dig(lineData(n or i), s) or dig(default(n or i), s)
		end
		if v.nonstop then
			renderNonStopRow(fallback('title'), fallback('color'), v.nonstop == 'former')
		else
			local row = root:tag('tr')
			if i > j - 2  then
				while args[j] and
					args[j]['left'] == args[i]['left'] and
					args[j]['to-left'] == args[i]['to-left'] and
					args[j]['oneway-left'] == args[i]['oneway-left'] and
					args[j]['note-left'] == args[i]['note-left'] and
					(args[j]['through-left'] or args[j]['through']) == (args[i]['through-left'] or args[i]['through']) and
					(args[j]['reverse-left'] or args[j]['reverse']) == (args[i]['reverse-left'] or args[i]['reverse']) and
					fallback('oneway-left', j) == fallback('oneway-left') and
					fallback('circular', j) == fallback('circular') do
					j = j + 1
				end
				renderSideCell(
					row,
					j - i,
					getStationTitle(v.left, i),
					yesNo(fallback('circular')) and fallback('left terminus') or getTerminus(fallback('left terminus'), i, v['to-left']),
					yesNo(v['oneway-left'] or fallback('oneway-left')),
					yesNo(fallback('circular')),
					(v['through-left'] or v['through']) and dig(lineData(i, v['through-left'] or v['through']), 'title'),
					yesNo(v['reverse-left'] or v['reverse']),
					v['note-left'])
				j = j + 1
			end
			if i > k - 2 then
				while args[k] and
					args[k]['line'] == args[i]['line'] and
					args[k]['type'] == args[i]['type'] and
					args[k]['note-mid'] == args[i]['note-mid']
					do
					k = k + 1
				end
				renderMidCells(
					row,
					k - i,
					fallback('color'),
					fallback('background color'),
					lineData(i)['title'] or string.gsub(dig(default(i), 'title'), '%%1', v.line),
					dig(typeData(i), 'title'),
					v['note-mid'] or lineData(i)['note-mid'],
					getStationTitle(v.transfer, i))
				k = k + 1
			end
			if i > l - 2  then
				while args[l] and
					args[l]['right'] == args[i]['right'] and
					args[l]['to-right'] == args[i]['to-right'] and
					args[l]['oneway-right'] == args[i]['oneway-right'] and
					args[l]['note-right'] == args[i]['note-right'] and
					(args[l]['through-right'] or args[l]['through']) == (args[i]['through-right'] or args[i]['through']) and
					(args[l]['reverse-right'] or args[l]['reverse']) == (args[i]['reverse-right'] or args[i]['reverse']) and
					fallback('oneway-right', l) == fallback('oneway-right') and
					fallback('circular', l) == fallback('circular') do
					l = l + 1
				end
				renderSideCell(
					row,
					l - i,
					getStationTitle(v.right, i),
					yesNo(fallback('circular')) and fallback('right terminus') or getTerminus(fallback('right terminus'), i, v['to-right']),
					yesNo(v['oneway-right'] or fallback('oneway-right')),
					yesNo(fallback('circular')),
					(v['through-right'] or v['through']) and dig(lineData(i, v['through-right'] or v['through']), 'title'),
					yesNo(v['reverse-right'] or v['reverse']),
					v['note-right'])
				l = l + 1
			end
		end
		if v['note-row'] then renderNoteRow(v['note-row']) end
	end
	return root
end
return p