Module:Road data/strings/USA/AR

--[==[ To inspect the content of this data module, use Special:ExpandTemplates and enter the following input text:

To inspect the content of this data module when editing, enter the following into the Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include the route type, e.g., `p.I` and `p["US-Hist"]`. ]==]

-- Arkansas local AR = {}

local util = require("Module:Road data/util") util.addAll(AR, require("Module:Road data/strings/USA")) local format = mw.ustring.format

local suffix = " ([dab||%dab%, |]Arkansas)" local suffix2 = " [dab||(%dab%)|]"

AR.I.link = {	["30"] = "Interstate 30", ["57"] = "Interstate 57#Future", ["130"] = "Loop (Texarkana)", ["440"] = "Interstate 440 (Arkansas)", ["540"] = "Interstate 540 (Arkansas)", default = {hook = "splitlen", split = 3, above = "Interstate %route%", below = "Interstate %route% in Arkansas"}}

for k, v in pairs(AR) do if k:find ("^I") then v.link = AR.I.link end end

AR.US.name = "U.S. Highway %route%" AR.US.shield = "US %route% (AR).svg" AR.US.link = "U.S. Route %route% [dab||(%dab%, Arkansas)|in Arkansas]"

for k, v in pairs(AR) do if k:find ("^US %d") then v.name = AR.US.name v.link = AR.US.link v.abbr = AR.US.abbr end end

for _,auxType in ipairs({"Alt", "Bus", "City", "Conn", "Spur"}) do	local spec = AR[" aux "][auxType] local abbrev = spec.arksuffix or " " .. spec.abbrsuffix for k, v in pairs(AR) do if k:find (auxType) then if k:find ("^US") then v.shield = "US %route%" .. spec.arksuffix .. ".svg" v.name = AR.US.name .. abbrev v.link = AR.US.base .. abbrev .. suffix v.abbr = AR.US.abbr .. abbrev v.banner = nil v.width = "wide" end end end end

for _,auxType in ipairs({"Byp", "Opt", "Scenic", "Temp", "Truck"}) do	local spec = AR[" aux "][auxType] for k, v in pairs(AR) do if k:find (auxType) then if k:find ("^US") then v.shield = AR.US.shield v.link = AR.US.base .. spec.abbrsuffix .. suffix v.width = "expand" end end end end

AR["US-Hist"].name = "Historic " .. AR.US.name

AR.AR = { base = "Arkansas Highway %route%", name = "Highway %route%", shield = { default = "Arkansas %route%.svg", ["917"] = "Arkansas 917-1.svg", ["980"] = "Arkansas 980(Airport).svg" },	link = "Arkansas Highway %route%" .. suffix2, abbr = "AR %route%", width = "expand", bannersuffix = { default = "", ["917"] = "brown", ["980"] = "blue" }	}

AR.Hwy = AR.AR

for _,type in ipairs({'AR', 'Hwy'}) do	for _,year in ipairs({"1926", "1948", "1970"}) do AR[type .. " " .. year] = { shield = format("Arkansas %%route%% %s.svg", year), name = "State Road %route%", link = AR.AR.link, abbr = AR.AR.abbr, width = "square" }	end end

AR["AR 1970"].shield = { hook = "splitlen", split = 3, above = { default = "Arkansas %route% 1970.svg", ["917"] = "Arkansas 917-1.svg", ["980"] = "Arkansas 980(Airport).svg" },		below = AR.AR.shield } AR["AR 1970"].name = AR.AR.name AR["Hwy 1970"] = AR["AR 1970"]

for _,type in ipairs({'AR', 'Hwy'}) do	for _,auxType in ipairs({"Alt", "Bus", "Byp", "City", "Conn", "Spur", "Truck"}) do		local spec = AR[" aux "][auxType] local abbrev = spec.arksuffix or " " .. spec.abbrsuffix local shieldabbr = spec.arksuffix or "" AR[type .. "-" .. auxType] = { shield = "Arkansas %route%" .. shieldabbr .. ".svg", name = AR.AR.name .. abbrev, link = AR.AR.base .. abbrev .. suffix2, abbr = AR.AR.abbr .. abbrev, aux = spec.aux, width = { hook = "splitlen", split = 2, above = "wide", below = "square" }		}	end end

for _,type in ipairs({'AR', 'Hwy'}) do	for _,auxType in ipairs({"Byp", "Truck"}) do		local spec = AR[" aux "][auxType] local abbrev = spec.arksuffix or " " .. spec.abbrsuffix for k, v in pairs(AR) do if k:find (auxType) then if k:find ("^US") then AR[type .. "-" .. auxType] = { shield = AR.AR.shield, name = AR.AR.name .. abbrev, link = AR.AR.base .. spec.abbrsuffix .. suffix, abbr = AR.AR.abbr .. abbrev, banner = spec.bannerprefix .. " plate.svg", aux = spec.aux, width = "expand" }				end end end end end

AR["Hwy-Truck-Spur"] = { shield = AR["AR-Spur"].shield, name = AR["AR-Spur"].name, link = AR["AR-Spur"].link, abbr = AR["AR-Spur"].abbr, banner = "Truck plate.svg", width = AR["AR-Spur"].width }

AR["AR-Truck-Spur"] = AR["Hwy-Truck-Spur"] AR["Hwy-Spur-Truck"] = AR["Hwy-Truck-Spur"] AR["AR-Spur-Truck"] = AR["Hwy-Truck-Spur"] AR.CRP = { shield = "Crowley's Ridge Parkway generic.svg", name = "Crowley's Ridge Parkway", link = "Crowley's Ridge Parkway", abbr = "Crowley's Ridge Pkwy.", bannersuffix = "green" }

-- add new types above this line if you want it to have the state highway browse and maint for k, v in pairs(AR) do if k:find ("^%a") then v.maint = "ArDOT" v.browse = "Arkansas Highway System" v.browselinks = { [1] = "Interstate", [2] = "US", [3] = "Business", [4] = "Secondary", [5] = "Spurs", [6] = "Suffixed", [7] = "Scenic", [8] = "Heritage" }	end end

for k, v in pairs(AR) do if k:match ("^%a*%s19[2-6]") then v.maint = "SHC" end end

for k, v in pairs(AR) do if k:match ("^%a*%s19[7-9]") then v.maint = "AHTD" end end

AR.CR.shield = { arg = "county", default = "CR %route% jct.svg", Lee = "Lee County %route% AR.svg" } AR.CR.shieldmain = { arg = "county", default = "%county% County %route%.svg", Lee = "Lee County %route% AR.svg" } AR.CR.maint = ""

AR.FR.shield = {hook = "splitlen", split = 4, above = "", below = "Forest Route %route%.svg" } AR.FR.shieldmain = {hook = "splitlen", split = 4, above = "", below = "Forest Route %route%.svg" } AR.FH.shield = AR.FR.shield AR.FH.shieldmain = AR.FR.shieldmain

AR["US-TX"] = {alias = {module = "USA/TX", type = "US"}}

return AR