require('strict')
local p =
local getArgs = require('Module:Arguments').getArgslocal yesno = require('Module:Yesno')local parser = require('Module:Road data/parser').parserlocal roadData = require('Module:Road data/sandbox') -- REMOVE SANDBOX
local data = mw.loadData('Module:Jcon/data/sandbox') -- REMOVE SANDBOXlocal ON = mw.loadData('Module:Road data/strings/CAN/ON')
-- Normalize the given road typelocal function normalizeType(roadType) roadType = (roadType or ):lower -- Make the road type lowercase
for index, placeType in ipairs(data.placeTypes) do roadType = roadType -- Remove the place types from the road type :gsub('^' .. placeType .. ' of ', ) :gsub(' ' .. placeType .. '$', ) :gsub(' ' .. placeType .. ' road$', ) end return data.typeMap[roadType] or roadTypeend
-- Generate wikitext to show a MTO signlocal function showSign(fileName, size, args) local size = size:match('^%d+px$') and size or require('Module:Road data/size')._size fileName = data.signs[fileName] -- Get the file name from the sign definition return '' -- Return the file wikitextend
-- Display a link, accounting for presentation argumentslocal function displayLink(link, display, args, followNoLink, noSelfRedirect) local titleObj = mw.title.new(link) local noLink = followNoLink and yesno(args.nolink) local showRed = yesno(args.showred) if (not noLink) and (showRed or (titleObj and titleObj.exists)) and not (noSelfRedirect and titleObj and titleObj.redirectTarget
-- Generate the text part of the outputlocal function getText(parserArgs, args, noSelfRedirect) local linkParserArgs = for k, v in pairs(parserArgs) do linkParserArgs[k] = v end linkParserArgs.ignoreifexists = true local link = parser(linkParserArgs, 'link', nil) local display = if yesno(args.fulltext) then -- Display the full link title when requested display = parser(parserArgs, 'name', nil) else display = parser(parserArgs, 'abbr', nil) end return displayLink(link, display, args, true, noSelfRedirect)end
-- Gets the wikitext link for a placelocal function getPlace(place, args) return displayLink(place .. ', Ontario', place, args)end
-- Process routes present in the provided argumentslocal function processRoutes(roadType, size, showShield, showText, args, prefix, name) local shield = -- Generated shield wikitext local text = -- Generated text/link wikitext local conNumber = prefix ~= 'con' and 1 or 0 -- The number of the entry being processed local paramName = prefix ~= 'con' and prefix or 2 -- Route number parameter name local typeParam = prefix ~= 'con' and prefix .. 'type' or nil -- Road type override parameter name local dirParam = prefix ~= 'con' and prefix .. 'dir' or 'dir' -- Direction parameter name
while args[paramName] do local routeRoadType = roadType -- Local copy of the road info if typeParam and args[typeParam] then -- Override the road info if one is provided routeRoadType = normalizeType(args[typeParam]) end -- Arguments for the road data parser local parserArgs = if showShield then local routeShield = roadData.shield(parserArgs, yesno(args.shield) and 'list', size) -- Generate route shield if routeShield ~= then if shield ~= then shield = shield .. ' ' end -- Add space after existing shields shield = shield .. routeShield -- Add the shield end end if showText then local routeText = getText(parserArgs, args) -- Generate route text if routeText ~= then if text ~= then text = text .. ' / ' end -- Add " / " after existing text text = text .. routeText -- Add route text end end if args[dirParam] then text = text .. ' ' .. args[dirParam] -- Add the direction end conNumber = conNumber + 1 -- Move on to the next concurrency local suffix = conNumber
-- Update the parameter names paramName = prefix .. suffix typeParam = prefix .. 'type' .. suffix dirParam = prefix .. 'dir' .. suffix end if name and yesno(args.namefirst) then text = name .. ' (' .. text .. ')' -- Output name before text when namefirst is set to yes elseif name then text = text .. ' (' .. name .. ')' -- Add the name to the produced text end return shield, text -- Return generated shield and text wikitextend
-- Entry function for function p.jcon(frame) local args = getArgs(frame)
if yesno(args.ot) then -- Set correct arguments if output should be only text args.nosh = 'yes' args.nolink = 'yes' end
local roadType = normalizeType(args[1]) -- The first road type local showShield = not yesno(args.nosh) local showText = not yesno(args.notext) local shieldAfter = yesno(args.picaft or args['pic aft']) local size = args.size or 'jct' local shield = nil -- Generated shield wikitext local text = nil -- Generated text/name wikitext if data.signs[roadType] then -- Handle MTO signs shield = showSign(roadType, size, args) text = args[2] or elseif ON[roadType] then -- Handle numbered roads shield, text = processRoutes(roadType, size, showShield, showText, args, 'con', args[3]) -- Handle to and via parameters local toShield, toText = processRoutes(roadType, size, showShield, showText, args, 'to', args.toname) local viaShield, viaText = processRoutes(roadType, size, showShield, showText, args, 'via', args.vianame) if toShield ~= then shield = shield .. (shield
and 'To ' or ' to ') .. toText -- Add to text end if viaShield ~= then -- Add via shields to the output shield = shield .. (shield
if showText then if text ~= then text = text .. ' / ' end -- Add " / " after existing text text = text .. 'TCH' -- Add the TCH text end end local output = -- The returned output if not shieldAfter then -- Add the shield if it goes first output = output .. shield end if text ~= then if output ~= then output = output .. ' ' end -- Add a NBSP after the shield if it exists output = output .. text -- Add the generated text to the output end -- Process control cities if args.city or args.town then output = output .. ' – ' .. getPlace(args.city or args.town, args) -- Add the first city local extraCityNum = 2 -- The number of the additional city being processed while args['city' .. extraCityNum] or args['town' .. extraCityNum] do local val = args['city' .. extraCityNum] or args['town' .. extraCityNum] output = output .. ', ' .. getPlace(val, args) -- Add extra cities extraCityNum = extraCityNum + 1 end end
if shieldAfter and shield then if output ~= then output = output .. ' ' end -- Add a space if output already has text output = output .. shield -- Add the shield if it goes last end
return outputend
-- Entry function for function p.shieldlist(frame) local args = getArgs(frame) local type = normalizeType(args[1]) local route = args[2] if not ON[type] then return end -- Add table local out = '
| ' .. routeShield .. ' | ' .. routeText .. ' |
return p