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
