From Wikipedia, the free encyclopedia
local p = {}
local getArgs = require ( 'Module:Arguments' ). getArgs
local lengthModule = require ( "Module:Infobox road/length" )
local parserModule = require ( "Module:Road data/parser" )
local parser = parserModule . parser
local 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 country
end
-- HEADER COLORS
function p . headerStyle ( args )
local deleted = args . decommissioned or args . deleted
local uc = args . header_type == "under construction" or args . header_type == "const" or args . header_type == "uc"
local minor = args . header_type == "minor"
local hist = args . header_type == "hist" or args . header_type == "historic" or args . header_type == "historical" or args . header_type == "scenic"
local color = parser ( args , 'color' )
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"
end
end
function p . _section ( args )
if args . section1 or args . length_km1 or args . length_mi1 or args . length_notes1 or args . direction_a1 or
args . terminus_a1 or args . junction1 or args . junctions1 or args . direction_b1 or args . terminus_b1 then
local infobox_args = {
'child' = "yes" ,
'decat' = "yes" ,
'headerclass' = p . headerStyle ( args )
}
local i = 1
while ( 1 ) do
local num = i
local j = (( i - 1 ) * 5 ) + 1
local headern = "header" .. j
local lengthLabeln = "label" .. ( j + 1 )
local lengthDatan = "data" .. ( j + 1 )
local directionAn = "label" .. ( j + 2 )
local terminusAn = "data" .. ( j + 2 )
local jctClassn = "class" .. ( j + 3 )
local jctLabeln = "label" .. ( j + 3 )
local jctDatan = "data" .. ( j + 3 )
local directionBn = "label" .. ( j + 4 )
local terminusBn = "data" .. ( j + 4 )
if args 'section' .. i or args "length_km" .. i or args "length_mi" .. i or args "length_notes" .. i or args "direction_a" .. i or
args "terminus_a" .. i or args "junction" .. i or args "junctions" .. i or args "direction_b" .. i or args "terminus_b" .. i then
if i == 1 then
infobox_args 'title' = args 'section' .. i or "Section " .. i
else
infobox_args headern = args 'section' .. i or "Section " .. i
end
end
infobox_args lengthLabeln = "Length"
infobox_args lengthDatan = lengthModule . _length ( num , args )
local dir_a = args "direction_a" .. i or args . direction_a or ''
if dir_a ~= '' then
infobox_args directionAn = dir_a .. " end"
else
infobox_args directionAn = "From"
end
infobox_args terminusAn = args "terminus_a" .. i
infobox_args jctClassn = "plainlist"
infobox_args jctLabeln = "Major intersections"
infobox_args jctDatan = args "junction" .. i or args "junctions" .. i
local dir_b = args "direction_b" .. i or args . direction_b or ''
if dir_b ~= '' then
infobox_args directionBn = dir_b .. " end"
else
infobox_args directionBn = "From"
end
infobox_args terminusBn = args "terminus_b" .. i
if i == 25 then
break
else
i = i + 1
end
end
return frame : expandTemplate ({ title = 'Infobox' , args = infobox_args })
else return nil
end
end
function p . section ( frame )
args = getArgs ( frame )
return p . _section ( args )
end
local function loop ( args )
local ring_road = args . ring_road or ''
if ring_road ~= '' then
return "[[Ring road]] around " .. ring_road
end
local beltway_city = args . beltway_city or ''
if beltway_city ~= '' then
return "[[Beltway]] around " .. beltway_city
end
local orbital = args . orbital or ''
if orbital ~= '' then
return "[[Orbital road|Orbital]] around " .. orbital
end
local loop = args . loop or ''
if loop ~= '' then
return "[[Loop road|Loop]] around " .. loop
end
local tloop = args . tloop or ''
if tloop == 'none' then
return "Tourist loop"
elseif tloop ~= '' then
return "Tourist loop around " .. tloop
end
return nil
end
function p . _main ( args )
if args . terminus_a or args . junction or args . junctions or args . terminus_b or args . ring_road or args . beltway_city or
args . orbital or args . loop or args . tloop then
local infobox_args = {
'child' = "yes" ,
'decat' = "yes" ,
}
infobox_args 'title' = args . section0 or "Major junctions"
infobox_args 'data1' = loop ( args )
local dir_a = args . direction_a or ''
if dir_a ~= '' then
infobox_args 'label2' = dir_a .. " end"
else
infobox_args 'label2' = "From"
end
infobox_args 'data2' = args . terminus_a
infobox_args 'class3' = "plainlist"
infobox_args 'label3' = "<span style='display:none;'>Major intersections</span>"
infobox_args 'data3' = args . junction or args . junctions
local dir_b = args . direction_b or ''
if dir_b ~= '' then
infobox_args 'label4' = dir_b .. " end"
else
infobox_args 'label4' = "To"
end
infobox_args 'data4' = args . terminus_b
return frame : expandTemplate ({ title = 'Infobox' , args = infobox_args })
else
return nil
end
end
function p . main ( frame )
args = getArgs ( frame )
return p . _main ( args )
end
return p