--[==[ 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"]`.]
-- Wisconsinlocal WI =
local util = require("Module:Road data/util")local format = mw.ustring.formatutil.addAll(WI, require("Module:Road data/strings/USA"))
local suffix = " ([dab||%dab%, |]Wisconsin)"local suffix2 = " [dab||(%dab%)|]"
WI.I.link =
for k, v in pairs(WI) do if k:find ("^I") then v.link = WI.I.link endend
for _,auxType in ipairs do local spec = WI[" aux "][auxType] for k, v in pairs(WI) do if k:find (auxType) then if k:find ("I-") then v.link = WI.I.base .. " " .. spec.name .. " (Wisconsin)" v.name = spec.name .. " " .. WI.I.name v.abbr = spec.abbrsuffix .. " " .. WI.I.abbr end end endend
WI.BL.link = "Interstate %route% Business ([dab||%dab%, |]Wisconsin)"WI.BL.abbr = "BL I-%route%"
WI.BS.link = "Interstate %route% Business ([dab||%dab%, |]Wisconsin)"WI.BS.abbr = "BS I-%route%" WI.US.shield = "US %route% (WI).svg"WI.US.shieldmain = "US %route% (WI).svg"WI.US.name = "U.S. Highway %route%"WI.US.link = WI.US.width = "square"
for k, v in pairs(WI) do if k:find ("^US %d") then v.name = WI.US.name v.link = WI.US.link endend
for _,auxType in ipairs do local spec = WI[" aux "][auxType] for k, v in pairs(WI) do if k:find (auxType) then if k:find ("^US") then v.shield = WI.US.shield v.shieldmain = WI.US.shieldmain v.name = spec.name .. " " .. WI.US.name v.link = WI.US.base .. " " .. spec.name .. suffix v.abbr = spec.abbrsuffix .. " " .. WI.US.abbr v.width = "square" end end endendWI["US 1961"].shield = "US %route% (1961 cutout).svg"WI["US 1965"] = WI["US 1961"]
for _,type in ipairs do for _,auxType in ipairs do local spec = WI[" aux "][auxType] WI[type .. "-" .. auxType] = endend
WI.WI = WI.STH = WI.WIWI.WIS = WI.WI
for _,year in ipairs do WI["WI " .. year] = endfor _,type in ipairs do for _,auxType in ipairs do local spec = WI[" aux "][auxType] WI[type .. "-" .. auxType] = endend
WI.RR =
WI.Rustic = WI.RR
-- add new types above this line if you want it to have the state highway browse and maintfor k, v in pairs(WI) do if k:find ("^%a") then v.maint = "WisDOT" v.browse = "Wisconsin State Trunk Highway System" v.browselinks = endend
WI.Kettle =
WI.CTH =
WI.CR = WI.CTH
WI.IL = WI.IA = WI.MI = WI.M = WI.MN =
return WI