Module:Infobox road/route

Module documentationviewedithistorypurge

This module pulls data from road data strings, such as Module:Road data/strings/USA, and passes it through three functions that draw the necessary route marker images and displays the route name in {{Infobox road}}.

Output examples

Description	Output	Output (sandbox)
Florida Both	State Road 869	State Road 869
No parameters
Only |marker_image=
Florida |marker_image=none	State Road A1A	State Road A1A
Only |name=	Autoroute 10	Autoroute 10
Australia	National Highway 31	National Highway 31
New Zealand	State Highway 2	State Highway 2
Interstate |name=	Motorway 10	Motorway 10
Interstate (Infobox road small)	Interstate 95	Interstate 95
France	Autorute A1	Autorute A1
UK	A303	A303
Brazil	SP-052	SP-052
Chile	Route 5	Route 5
BC	Highway 16	Highway 16
Saskatchewan	Highway 600	Highway 600
Quebec	Autoroute 35	Autoroute 35
Ontario	Highway 407	Highway 407
ON Secondary	Highway 522	Highway 522
ON Tertiary	Highway 800	Highway 800
NWT	Inuvik–Tuktoyaktuk Highway	Inuvik–Tuktoyaktuk Highway
Manitoba	Provincial Trunk Highway 3	Provincial Trunk Highway 3
Tennessee Dual	State Route 1	State Route 1
DE/MD Dual	Route 54	Route 54
Puerto Rico type=PR	Highway 1	Highway 1
Puerto Rico type=Urban	Highway 1	Highway 1
Wisconsin	State Trunk Highway 243	State Trunk Highway 243
North Carolina	Georgia State Route 246 and North Carolina Highway 106	Georgia State Route 246 and North Carolina Highway 106
Nevada BLSR	State Route 660	State Route 660
Utah BLSR	State Route 120	State Route 120
Texas Both	State Highway 1	State Highway 1
Texas tollway	Pres. George Bush Turnpike	Pres. George Bush Turnpike
1926 USH	U.S. Route 6	U.S. Route 6
1948 USH	U.S. Route 40	U.S. Route 40
Special route	U.S. Route 78 Business	U.S. Route 78 Business
Special route (style=small)	Business US Highway 131	Business US Highway 131
Alaska |marker_image=	Alaska Route 2	Alaska Route 2
DC	District of Columbia Route 295	District of Columbia Route 295
Mexico	Federal Highway 40D	Federal Highway 40D
Sonora	State Highway 149	State Highway 149
GRR	Great River Road	Great River Road
Tour	Lake Michigan Circle Tour	Lake Michigan Circle Tour
Turnpike	Kansas Turnpike	Kansas Turnpike
County road	County Road Z36	County Road Z36
Parish road	Parish Road 16	Parish Road 16
CSAH	County State-Aid Highway 81	County State-Aid Highway 81
Secondary	Secondary Highway 206	Secondary Highway 206
Supplemental	Route BB	Route BB
Oregon	Oregon Route 35	Oregon Route 35
Oregon Highway	John Day Highway No. 5	John Day Highway No. 5
Belgium	National Route 1	National Route 1
Belgium	E19	E19
Old Highway 91	U.S. Route 91 Old	U.S. Route 91 Old

The above documentation is transcluded from Module:Infobox road/route/doc. (edit | history)
Editors can experiment in this module's sandbox (edit | diff) and testcases (create) pages.
Subpages of this module.

local p = {} 

local format = mw.ustring.format
require('strict')
local getArgs = require('Module:Arguments').getArgs	
local parserModule = require 'Module:Road data/parser'
local parser = parserModule.parser

local function banner(args, style)
	if args.marker_image then return nil end
	
	local bannerSize
		if style == 'small' then
			bannerSize = "40px"
		else
			bannerSize = "72px"
		end
	
	local shield = parser(args, 'banner')
	local alt = parser(args, 'banner')

	if not shield or shield == '' then
		return nil
	else
		return string.format('[[File:%s|%s|alt=%s]]', shield, bannerSize, alt)
	end
end



local function shield(args, style)

	if args.marker_image then return args.marker_image end
	
	local horizontalSize
	local verticalSize
		if style == 'small' then
			horizontalSize = "90x40px"
			verticalSize = "40x90px"
		else
			horizontalSize = "154x72px"
			verticalSize = "72x154px"
		end

	local shield = parser(args, 'shieldmain') or parser(args, 'shield') or ''
	
	local label = parser(args, 'name') or parser(args, 'abbr') or ''
	local alt = label .. ' marker'
	local orientation = parser(args, 'orientation')
	
	local function simpleSize(args)
		if orientation and orientation == 'upright' then
			return verticalSize
		else
			return horizontalSize
		end
	end
	
	local function shield_size(image_name, orientation)
		local image = 'File:' .. image_name
		local title = mw.title.new(image)

		local width = title.file.width
		local height = title.file.height
		
		if (orientation and orientation == 'upright') or height > width then
			return verticalSize
		else
			return horizontalSize
		end
	end
	
	
	
	if not shield or shield == '' then
		return nil
	elseif type(shield) == 'table' then
		local res = {}
		local sizes = {}
		for i,v in ipairs(shield) do
			sizes[i] = v
			res[i] = string.format('[[File:%s|%s|alt=%s]]', v, shield_size(v), alt)
		end
    	return table.concat(res, ' ')
	else
		return string.format('[[File:%s|%s|alt=%s]]', shield, simpleSize(args), alt)
	end
end

-- Links/abbreviations
local function name(args)
	local name = args.name or parser(args, 'name') or parser(args, 'abbr')
	return name
end

function p._routeInfo(args)
	
	local style = args.style
	local banner = banner(args, style)
	local shield = shield(args, style)
	local name = name(args)

	if not args.type and not args.route and not args.name and not args.marker_image then
		local container = nil
	else local container = mw.html.create('div'):cssText('text-align:center;')
		if shield == nil or args.marker_image == 'none' or args.name and not args.marker_image and not args.type and not args.route then 
			container:tag('div'):cssText('margin:0.1em;'):wikitext(name)
		elseif args.marker_image ~= '' and args.name == '' or args.name == nil and not args.type and not args.route then
			container:tag('div'):cssText('margin:0.1em;'):wikitext(shield)
		elseif args.country == 'AUS' then
			container:tag('div'):cssText('margin:0.1em;'):wikitext(name)
			container:tag('div'):cssText('margin:0.1em 0 0 0;'):wikitext(shield)
		else
			container:tag('div'):cssText('margin:0.1em 0 0 0;'):wikitext(banner)
			container:tag('div'):cssText('margin:0 0 0.1em;'):wikitext(shield)
			container:tag('div'):cssText('margin:0.1em;'):wikitext(name)
		end
		return tostring(container)
	end
end

function p.routeInfo(frame)
	local args = getArgs(frame)
	return p._routeInfo(args);
end

function p._shields(args)
	
	local style = args.style
	local banner = banner(args, style)
	local shield = shield(args, style)

	if not args.type and not args.route and not args.name and not args.marker_image then
		local container = nil
	else local container = mw.html.create('div'):cssText('text-align:center; display: inline-block; vertical-align: baseline; line-height: 0;')
		container:tag('div'):cssText('margin:0.1em 0 0 0;'):wikitext(banner)
		container:tag('div'):cssText('margin:0 0 0.1em;'):wikitext(shield)
	return tostring(container)
	end
end

function p.shields(frame)
	local args = getArgs(frame)
	return p._shields(args);
end


function p._names(args)
	local name = name(args)
	return name
end

function p.names(frame)
	local args = getArgs(frame)
	return p._names(args);
end

return p