Module:Infobox road/sandbox explained

local p = local getArgs = require('Module:Arguments').getArgslocal util = require("Module:Road data/util")local yesno = require('Module:Yesno')local langModule = require('Module:Lang')local routeModule = require("Module:Infobox road/route")local parserModule = require("Module:Road data/parser")local parser = parserModule.parserlocal format = mw.ustring.formatlocal frame = mw.getCurrentFrame

local function country(args) local state = args.state or args.province local country local countryModule = mw.loadData("Module:Road data/countrymask") local country = args.country or countryModule[state] return countryend

-- HEADER COLORS

function p.headerStyle(frame) local args = getArgs(frame) local header if args.header_type

nil then header = args.header_type else header = string.lower(args.header_type) end local deleted = args.decommissioned or args.deleted or header

"former" local uc = header

"under construction" or header

"const" or header

"uc" local minor = header

"minor" local hist = header

"hist" or header

"historic" or header

"historical" or header

"scenic" local color = parser(args, 'color') or args['header_color'] local freeway = header

"freeway" if freeway then return "header-MUTCDblue" elseif uc then return "header-uc" elseif minor then return "header-minor" elseif deleted and header

'hist' or deleted and color

'hist' then return "header-deleted-hist" elseif deleted then return "header-deleted" elseif hist then return "header-hist" elseif color then return "header-" .. color elseif args.state or args.province or args.country then local country = country(args) return "header-" .. country or "header-default" else return "header-default" endend

-- SECOND IMAGE

local function photo(args) local country = country(args) local photo = args.photo or args.image local width = args.photo_wide or args.image_width or "290px" local alt = args.photo_alt or args.image_alt or photo if photo

nil then return nil elseif country

"USA" then return nil else return string.format('', photo, width, alt) endend

function p.photo(frame) local args = getArgs(frame) return photo(args)end

-- TRANSLATION

local function translate(args, lang) local lang = parser(args, 'lang') or args.lang or 'none' local translation = args.translation or parser(args, 'translation') or if country(args)

"PAK" and translation ~= then local route = args.route if route ~= nil then local arabicModule = require("Module:Convert to eastern arabic numerals") local arabic = arabicModule._convert local translated = string.gsub(translation, route, arabic) return frame:expandTemplate else return frame:expandTemplate end elseif translation ~= and lang

'none' then return translation elseif country(args)

"CHN" and args.type

"Expwy" then local trans = require("Module:Road data/masks/CHN/Expwy translations") local route = args.route return langModule._lang() elseif country(args)

"HUN" then local nominal = require("Module:Road data/masks/HUN") local routeNum local leading if string.len(args.route) > 2 then routeNum = string.match(args.route, "%d%d$", 0) leading = string.match(args.route, "(%d*)%d%d$", 0) else routeNum = args.route leading = end if args.type

"M" then return langModule._lang elseif args.type

"Mb" then return langModule._lang elseif args.type

"MR" then return langModule._lang elseif args.type

"Mb" then return langModule._lang end elseif lang

"ar" and translation ~= then local route = args.route local arabicModule = require("Module:Convert to eastern arabic numerals") local arabic = arabicModule._convert local translated = string.gsub(translation, route, arabic) return langModule._lang() elseif translation ~= and lang ~= 'none' then return langModule._lang() else return nil endend

function p.translate(frame) local pframe = frame:getParent local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself local args = pframe.args -- the arguments passed TO the template, in the wikitext that transcludes the template local lang = config.lang return translate(args, lang)end

-- MAINTAINED BY

local function maint(args) local maint = args.maint or parser(args, 'maint') or if maint

"none" or maint

then return nil else return "Maintained by " .. maint endend

function p.maint(frame) local args = getArgs(frame) return maint(args)end

-- DEFINED BY LAW

local function law(args) local law = parser(args, 'law') or if args.section

then return nil else return "Defined by " .. law endend

function p.law(frame) local args = getArgs(frame) return law(args)end

-- EXISTED

function p._existed(args) local formed = args.established or args.formed or local deleted = args.decommissioned or args.deleted or if formed

then return nil elseif deleted

then return formed .. "–present" else return formed .. "–" .. deleted endend

function p.existed(frame) local args = getArgs(frame) return p._existed(args)end

-- TIME PERIOD

local function period(args) local infobox_args = infobox_args['bodystyle'] = 'display:inline-table;' infobox_args['child'] = 'yes' infobox_args['decat'] = 'yes' infobox_args['label1'] = "Time period" infobox_args['data1'] = args.time_period if args.time_period then infobox_args['label2'] = "Cultural significance" infobox_args['data2'] = args.significance infobox_args['label3'] = "Known for" infobox_args['data3'] = args.known_for infobox_args['label4'] = "Related routes" infobox_args['data4'] = args.related else infobox_args['label3'] = "Known for" infobox_args['data3'] = args.known_for end

return frame:expandTemplate end

local function period_params(args)

if args.time_period or args.known_for then return true else return false endend

function p.period(frame) local args = getArgs(frame) if period_params(args)

false then return nil else return period(args) end end

-- ALLOCATION

local function allocation(args) local country = country(args) if country

"AUS" then return "Allocation" else return "Component
highways" endend

function p.allocation(frame) local args = getArgs(frame) return allocation(args)end

-- SPUR OF

local function spurOf(args) local state = args.state or args.province local country = args.country local county = args.county local parentType = args.spur_type local parentRoute = args.spur_of local aux = parser(args, 'aux') or "Auxiliary route" or nil local jct = frame:expandTemplate

if not parentType and not parentRoute then return nil elseif type(aux)

"table" then return "Auxiliary route of " .. jct else return tostring(aux) .. " of " .. jct endend

function p.spurOf(frame) local args = getArgs(frame) return spurOf(args)end

-- PART OF

local function partOf(args) if args["e-road"] or args.ahn or args.tahn or args.mrn then

local infobox_args = infobox_args['bodystyle'] = 'display:inline-table;' infobox_args['child'] = 'yes' infobox_args['decat'] = 'yes'

if args["e-road"] then local eshield = args["e-road-shield"] or infobox_args['data1'] = eshield .. " Part of " .. args["e-road"] end if args.ahn then local ashield = args["ahn-shield"] or infobox_args['data2'] = ashield .. " Part of " .. args.ahn end if args.tahn then local tshield = args["tahn-shield"] or infobox_args['data3'] = tshield .. " Part of " .. args.tahn end if args.mrn then local mshield = args["mrn-shield"] or infobox_args['data4'] = mshield .. " Part of " .. args.mrn end return frame:expandTemplate else return nil end end

function p.partOf(frame) local args = getArgs(frame) return partOf(args)end

--BROWSE LINKS

local function browse(args) if args.nobrowse then return nil end local previousRoute = args.previous_route local nextRoute = args.next_route if previousRoute or nextRoute then local boxModule = require "Module:Road data/browse/sandbox" local primary = boxModule._browse(args) local tblModule = require "Module:Road data/browsetable" return tblModule._browsetable(primary) endend

function p.browse(frame) local args = getArgs(frame) return browse(args)end

local function extended(args) local extended = args.browse if args.nobrowse or extended

nil then return nil else local tblModule = require "Module:Road data/browsetable" -- Negative margin to counteract infobox border-spacing return tblModule._browsetable(extended, 'margin-top:-3px') endend

function p.extended(frame) local args = getArgs(frame) return extended(args)end

-- HIGHWAY SYSTEM LINKS

local function system(args) if args.system1 then local infobox_args = local i = 1 while (1) do local systemClassn = "class" .. i local systemDatan = "data" .. i local systemArgn = args['system' .. i] infobox_args[systemClassn] = "hlist" infobox_args[systemDatan] = systemArgn if i

10 then break else i = i + 1 end end return frame:expandTemplate endend

function p.system(frame) local args = getArgs(frame) return system(args)end

-- ROUTE INFORMATION HEADER

local function info(args) local maint = maint(args) local law = law(args) local period = period_params(args) local existed = args.established or args.formed or nil local spur = args.spur_type or args.spur_of or nil local part = partOf(args) if period

true or spur ~= nil or part ~= nil or existed ~= nil or maint ~= nil or args.section or args.length_mi or args.length_km or args.allocation or args.history or args.restrictions or args.tourist or args.status or args.margary then return "Route information" else return nil endend

function p.info(frame) local args = getArgs(frame) return info(args)end

-- HIGHWAY SYSTEM HEADER

local function highwaySystem(args) if args.nobrowse then return nil end local country = country(args) or args.countries if country

nil then return nil elseif country

"GBR" or country

"ENG" or country

"NIR" or country

"SCT" or country

"WLS" or country

"GGY" or country

"IMN" or country

"JEY" or country

"AIA" or country

"BMU" or country

"IOT" or country

"VGB" or country

"CYM" or country

"FLK" or country

"GIB" or country

"MSR" or country

"PCN" or country

"SHN" or country

"SGS" or country

"TCA" then return "Road network" else return "Highway system" endend

function p.highwaySystem(frame) local args = getArgs(frame) return highwaySystem(args)end

return p