--[==[ 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 followinginto 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"]`.]
-- Arkansaslocal 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 =
for k, v in pairs(AR) do if k:find ("^I") then v.link = AR.I.link endend
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 endend
for _,auxType in ipairs 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 endend
for _,auxType in ipairs 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 endend
AR["US-Hist"].name = "Historic " .. AR.US.name
AR.AR =
AR.Hwy = AR.AR
for _,type in ipairs do for _,year in ipairs do AR[type .. " " .. year] = endend
AR["AR 1970"].shield = AR["AR 1970"].name = AR.AR.nameAR["Hwy 1970"] = AR["AR 1970"]
for _,type in ipairs do for _,auxType in ipairs do local spec = AR[" aux "][auxType] local abbrev = spec.arksuffix or " " .. spec.abbrsuffix local shieldabbr = spec.arksuffix or "" AR[type .. "-" .. auxType] = endend
for _,type in ipairs do for _,auxType in ipairs 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] = end end end endend
AR["Hwy-Truck-Spur"] =
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 =
-- add new types above this line if you want it to have the state highway browse and maintfor k, v in pairs(AR) do if k:find ("^%a") then v.maint = "ArDOT" v.browse = "Arkansas Highway System" v.browselinks = endend
for k, v in pairs(AR) do if k:match ("^%a*%s19[2-6]") then v.maint = "SHC" endend
for k, v in pairs(AR) do if k:match ("^%a*%s19[7-9]") then v.maint = "AHTD" endend
AR.CR.shield = AR.CR.shieldmain = AR.CR.maint = ""
AR.FR.shield = AR.FR.shieldmain = AR.FH.shield = AR.FR.shieldAR.FH.shieldmain = AR.FR.shieldmain
AR["US-TX"] =
return AR