Edge Rewrite
// HTMLRewriter · presentation

This page was redesigned at the edge.

Cloudflare fetched the original article and streamed it through HTMLRewriter to apply an entirely new visual system without rebuilding the source page.

Jump to content

Module:Road data/strings/USA/AR

Permanently protected module
From Wikipedia, the free encyclopedia

--[==[
To inspect the content of this data module, use [[Special:ExpandTemplates]]
and enter the following input text:
  {{#invoke:Road data/dump|dump|module=Module:<name-of-this-module>}}

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&nbsp;%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 = "[[Arkansas Department of Transportation|ArDOT]]"
	v.browse = "[[Arkansas Highway System]]"
	v.browselinks = {
		[1] = "[[List of Interstate Highways in Arkansas|Interstate]]",
		[2] = "[[List of U.S. Highways in Arkansas|US]]",
		[3] = "[[List of highways in Arkansas|Business]]",
		[4] = "[[List of Arkansas state highway business routes|Secondary]]",
		[5] = "[[List of state highway spurs in Arkansas|Spurs]]",
		[6] = "[[List of suffixed Arkansas state highways|Suffixed]]",
		[7] = "[[Arkansas Scenic Byways|Scenic]]",
		[8] = "[[Arkansas Heritage Trails System|Heritage]]"
	}
	end
end

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

for k, v in pairs(AR) do if k:match ("^%a*%s19[7-9]") then
	v.maint = "[[Arkansas Highway and Transportation Department|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