มอดูล:Road data/strings/USA/AR

--**
To inspect the content of this data module, use Special:ExpandTemplates
and enter the following input text:
module=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 = " (Arkansas)"
local suffix2 = " "
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% 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"
}
AR.Hwy = AR.AR
for _,type in ipairs({'AR', 'Hwy'}) do
	for _,year in ipairs({"1926", "1948", "1970"}) do
		ARtype .. " " .. 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 ""
		ARtype .. "-" .. 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
				ARtype .. "-" .. 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."
}
-- 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*%s192-6") then
	v.maint = "SHC"
	end
end
for k, v in pairs(AR) do if k:match ("^%a*%s197-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