Jump to content

Module:Road data/strings/USA/PR

Permanently protected module
From Wikipedia, the free encyclopedia
This is an old revision of this page, as edited by Fredddie (talk | contribs) at 22:31, 9 August 2022 (test). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

--[==[
To inspect the content of this data module, PRe [[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["PR-Hist"]`.
]==]

-- Puerto Rico
local PR = {}

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

local suffix = " ([dab||%dab%, |]Puerto Rico)"

PR.I.shield = "I-PR%route%.svg"
PR.I.link = "Interstate PR%route%"
PR.I.abbr = "PRI-%route%"

local shieldmain = {
	default = {
		hook = "splitlen",
		split = 3,
		above = {
			hook = "split",
			split = 300,
			above = "Ellipse sign %route%.svg",
			below = "PR secondary %route%.svg"
		},
		below = "PR primary %route%.svg"
	},
	["1"] = {"PR primary %route%.svg", "PR urban primary %route%.svg", "PR secondary %route%.svg", "Ellipse sign %route%.svg"},
	["1P"] = {"PR urban primary %route%.svg", "Ellipse sign %route%.svg"},
	["1R"] = {"PR urban primary %route%.svg", "Ellipse sign %route%.svg"},
	["2"] = {"PR primary %route%.svg", "PR urban primary %route%.svg", "PR secondary %route%.svg"},
	["2R"] = "PR urban primary %route%.svg",
	["3"] = {"PR primary %route%.svg", "PR urban primary %route%.svg", "PR secondary %route%.svg", "Ellipse sign %route%.svg"},
	["3R"] = "PR urban primary %route%.svg",
	["5"] = {"PR primary %route%.svg", "PR urban primary %route%.svg", "PR secondary %route%.svg", "Ellipse sign %route%.svg"},
	["6"] = "PR urban primary %route%.svg",
	["8"] = "PR urban primary %route%.svg",
	["9"] = "PR urban primary %route%.svg",
	["14"] = {"PR urban primary %route%.svg", "PR secondary %route%.svg", "Ellipse sign %route%.svg"},
	["14P"] = "PR urban primary %route%.svg",
	["14R"] = "Ellipse sign %route%.svg",
	["15"] = {"PR urban primary %route%.svg", "Ellipse sign %route%.svg"},
	["16"] = "PR urban primary %route%.svg",
}

PR.PR = {
	shield = "PR primary %route%.svg",
	shieldmain = shieldmain,
	name = "Highway %route%",
	link = "Puerto Rico Highway %route% [dab||(%dab%)|]",
	abbr = "PR-%route%",
	width = "expand",
	translation = "Ruta %route%",
	lang = "es"
}

PR.Urban = {
	shield = "PR urban primary %route%.svg"
}

PR.Sec = {
	shield = {
		ifexists = true,
		default = "PR secondary %route%.svg",
		otherwise = {
			hook = "splitlen",
			split = 3,
			above = "CR %route% jct wide.svg",
			below = "CR %route% jct.svg"
		}
	}
}
	

PR.Ter = {
	shield = "Ellipse sign %route%.svg"
}

for k, v in pairs(PR) do if k:find ("^%a") then 
	v.name = PR.PR.name
	v.link = PR.PR.link
	v.abbr = PR.PR.abbr
	v.width = PR.PR.width
	v.translation = PR.PR.translation
	v.lang = PR.PR.lang
	end
end

for _,type in ipairs({'PR', 'Urban', 'Sec', 'Ter'}) do
	for _,auxType in ipairs({"Spur"}) do
		local spec = PR[" aux "][auxType]
		PR[type .. "-" .. auxType] = {
			shield = PR[type].shield,
			shieldmain = PR[type].shield,
			name = PR[type].name .. " Spur",
			link = PR[type].link .. " Spur" .. suffix,
			abbr = PR[type].abbr .. " Spur",
			banner = "Spur plate (es).svg",
			aux = spec.aux,
			width = PR[type].width,
			translation = "Ruta %route% Ramal",
			lang = "es"
		}
	end
end

PR["PR-Spur"].banner = "Spur plate blue (es).svg"
PR["Sec-Spur"].banner = "Spur plate county (es).svg"
PR["PR-Ramal"] = PR["PR-Spur"]	
PR["Urban-Ramal"] = PR["Urban-Spur"]
PR["Sec-Ramal"] = PR["Sec-Spur"]
PR["Ter-Ramal"] = PR["Ter-Spur"]

-- add new types above this line if you want it to have the state highway browse and maint
for k, v in pairs(PR) do if k:find ("^%a") then
	v.maint = "[[Puerto Rico Department of Transportation and Public Works|Puerto Rico DTPW]]"
	end
end

return PR