local function units(args)

-- Alternate units, e.g., California's postmiles.

local alt_unit = args.altunit

if alt_unit then -- Alternate units override standard units.

-- Row span (`auspan` = "alt[ernate] unit span")

local auspan = args.auspan or jspan

-- Create the alternate unit cell as a header cell for the row,

-- since it is usually unique within the table.

row:tag('th'):attr('scope', 'row')

:css('text-align', 'right')

:attr('rowspan', auspan)

:wikitext(alt_unit) -- Store the contents of alt_unit in the cell.

else

-- Convert numeric distances to a secondary unit, and display both units.

-- Distance in the primary unit, or 'none'

local unit = args.unit

-- If `unit` is "none", no cells are displayed.

if unit == "none" then return end

local unitdef = args.unitdef or "km" -- The primary unit ('mi' or 'km')

-- Convert and format the distance.

local lengths = convert(unit, unitdef)

-- Row span (`uspan` = "unit span")

local uspan = args.uspan or jspan

-- Create the primary unit cell as a header cell for the row,

-- since it is usually unique within the table.

local primary = row:tag('th'):attr('scope', 'row')

:css('text-align', 'right')

:attr('rowspan', uspan)

-- Store the primary distance and any conversion error message in the cell.

:wikitext(lengths[lengths.orig])

local secondary = row:tag('th'):attr('scope', 'row') -- Create the secondary unit cell.

:css('text-align', 'right')

:attr('rowspan', uspan)

:wikitext(lengths[lengths.comp]) -- Store the secondary distance in the cell.

local unit2 = args.unit2

if unit2 then -- A second distance is provided.

local line = args.line -- A horizontal rule may be requested between the distances.

if line then

-- Add a horizontal rule to both cells.

primary:tag('hr', selfClosing)

secondary:tag('hr', selfClosing)

else

-- Add an en-dash and a line break to both cells.

primary:wikitext('–'):tag('br', selfClosing)

secondary:wikitext('–'):tag('br', selfClosing)

end

-- Convert and format the second distance.

local lengths2 = convert(unit2, unitdef)

-- Add the second distance and any conversion error message to the primary distance cell.

primary:wikitext(lengths2[lengths2.orig])

-- Add the converted second distance to the secondary distance cell.

secondary:wikitext(lengths2[lengths2.comp])

end

local unit_ref = args.unit_ref

if unit_ref then -- A reference is provided for the distance.

primary:wikitext(unit_ref) -- Add reference to the primary distance cell.

end

end

end

local typesSpec = {}

local function applyTypeStyle(cell, multiple)

cell:attr('title', typesSpec.title)

:css('background', multiple and typesSpec.colors or typesSpec.color)

if multiple and typesSpec.minWidth then

-- minimum cell width to make enough room for all colors

cell:css('min-width', format('%dpx', typesSpec.minWidth))

end

end

local function place(args)

local place = args.place -- Contents of the place cell

-- Do nothing if `place` is "none"

if place == "none" then return end

local colspan = 2 -- Initial column span

local exit = args[1] -- Whether this table has exit number columns

local named = args[2] -- Whether this table has named junction column

-- Adjust column span

if exit == "old" then colspan = colspan + 2

elseif exit == "exit" then colspan = colspan + 1

end

if named == "name" then colspan = colspan + 1 end

-- Row span (`pspan` = "place span")

local pspan = args.pspan or jspan

local placeCell = row:tag('td') -- Create place cell

:css('text-align', 'center')

:attr('colspan', colspan)

:attr('rowspan', pspan)

:wikitext(place) -- Store the place in the cell

applyTypeStyle(placeCell, true)

end

local function exits(args)

local exit = args[1] -- 'exit', 'old', or nil

local named = args[2] -- 'name' or nil

if exit == 'old' then -- Add old exit number cell

local oldExits = {}

if args.old then insert(oldExits, args.old) end

local num = 0

repeat

num = num + 1

local key = "old" .. num

if args[key] then insert(oldExits, args[key]) end

until num > 1 and args[key] == nil

-- Row span (`ospan` = "old span")

local ospan = args.ospan or jspan

local oldExitCell = row:tag('td') -- Create old exit number cell

:css('text-align', 'center')

:css('background-color', '#d3d3d3')

:attr('title', 'Former exit number')

:attr('rowspan', ospan)

if #oldExits > 2 then

-- Create a collapsible table for many old exit numbers.

local numOldExits = #oldExits

local tbl = oldExitCell:tag("table")

:attr("class", "collapsible collapsed")

:css("margin", "auto")

:css("border-collapse", "collapse")

tbl:tag("th"):attr("scope", "col")

local ul = tbl:tag("tr"):tag("td"):tag("div")

:attr("class", "plainlist")

:tag("ul")

:css("text-align", "center")

for num,oldExit in ipairs(oldExits) do

if num < numOldExits then

ul:tag("li"):wikitext(oldExit)

end

end

-- Most recent number is always shown below the table.

oldExitCell:wikitext(oldExits[numOldExits])

else

-- Create an hlist for few old exit numbers.

local ul = oldExitCell:tag("div")

:attr("class", "hlist")

:tag("ul")

:css("text-align", "center")

for _,oldExit in ipairs(oldExits) do

ul:tag("li"):wikitext(oldExit)

end

end

end

if exit then -- "exit" or "old" is defined; add current exit number cell

-- Row span (`espan` = "exit span")

local espan = args.espan or jspan

local exitCell = row:tag('td') -- Create exit number cell

:css('text-align', 'center')

:attr('rowspan', espan)

:wikitext(args.exit) -- Store the exit number in the cell

applyTypeStyle(exitCell)

end

if named then -- Junction list has a junction name column

local namespan = args.namespan or jspan -- Row span

local nameCell = row:tag('td') -- Create junction name cell

:attr('rowspan', namespan)

:wikitext(args.name) -- Store the junction name in the cell

applyTypeStyle(nameCell)

end

end

local function destinations(args)

local road = args.road -- Contents of the destinations cell

-- Do nothing if `road` is "none"

if road == "none" then return end

-- Column span (`rcspan` = "road column span"), default to 1

local rcspan = args.rcspan or 1

-- Row span (`rspan` = "road span")

local rspan = args.rspan or jspan

local destCell = row:tag('td') -- Create destination cell

:attr('colspan', rcspan)

:attr('rowspan', rspan)

:wikitext(road) -- Store the destination in the cell

applyTypeStyle(destCell)

end

local function notes(args)

local notes = args.notes -- Contents of the notes cell

-- Do nothing if `notes` is "none"

if notes == "none" then return end

-- Row span (`nspan` = "notes span")

local nspan = args.nspan or jspan

local notesCell = row:tag('td') -- Create notes cell

:attr('rowspan', nspan)

:wikitext(notes) -- Store the notes in the cell

applyTypeStyle(notesCell, true)

end

function p._jctint(args)

jspan = args.jspan or 1 -- Global row span for all columns; defaults to 1

-- {{{type}}} argument to determine color and tooltips

local argType = args.type

if argType then -- {{{type}}} was passed

local types = mw.text.split(argType, ",")

table.sort(types, function(a, b) return a > b end)

-- Type-based data for colors and tooltips

local definedTypes = mw.loadData("Module:Road data/RJL types")

local colors = {}

local titles = {}

for _,type in ipairs(types) do

local typeSpec = definedTypes[string.lower(type)] -- Retrieve the type spec

if typeSpec then

insert(colors, typeSpec.color)

insert(titles, 1, typeSpec.jctint)

title = typeSpec.jctint -- Store the tooltip globally

else

errors.type = util.err("Invalid type: " .. argType)

end

end

local colorWidth = 36

local colorSpec = {}

local lastColor

local colorCount = 0

for _,color in ipairs(colors) do

if lastColor then

insert(colorSpec, format("%s %dpx", lastColor, colorCount * colorWidth))

end

insert(colorSpec, format("%s %dpx", color, colorCount * colorWidth))

lastColor = color

colorCount = colorCount + 1

end

if colorCount > 1 then

typesSpec.colors = format("linear-gradient(-90deg, %s);", concat(colorSpec, ", "))

typesSpec.minWidth = (colorCount - 1) * colorWidth

end

typesSpec.color = lastColor

typesSpec.title = concat(titles, ", ")

end

local root = mw.html.create() -- Create the root mw.html object to return

-- Create the table row and store it globally

row = root:tag('tr'):css('text-align', 'left')

locations(args) -- Handle location arguments

units(args) -- Handle distance arguments

if args.place then -- {{{place}}} spans all columns to the right of the distances

place(args) -- Create cell for place

else

exits(args) -- Handle exit/named junction arguments

destinations(args) -- Handle destinations

notes(args) -- Handle notes

end

-- Prepare error messages.

local errorMsg = {}

for key,msg in pairs(errors) do

-- Add the transcluding page to an error tracking category.

local prefix = errorTypes[key].prefix and errorTypes[key].prefix .. " " or ""

insert(errorMsg, format("%s%s%%page%%", msg, errorTypes[key].cat, prefix))

end

if #errorMsg > 0 then

local page = mw.title.getCurrentTitle().prefixedText -- Get transcluding page's title

-- Add error cell

local msg = mw.ustring.gsub(concat(errorMsg, " "), "%%page%%", page)

row:tag("td"):wikitext(msg)

end

-- Return the HTML code in the mw.html object as a string

return tostring(root)

end

function p.jctint(frame)

-- Import module function to work with passed arguments

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

-- Gather passed arguments into easy-to-use table

local args = getArgs(frame)

return p._jctint(args)

end

return p -- Return package