local p = {}
local SUFFIX = ""
-- Change to main module upon deployment
local parserModuleName = "Module:Road data/parser" .. SUFFIX
local cityModuleName = "Module:Jct/city" .. SUFFIX
local convert_num = require("Module:Numeral converter").convert
local concat = table.concat
local insert = table.insert
local format = mw.ustring.format
local roadDataModule = require("Module:Road data" .. SUFFIX)
local rdt
-- Links/abbreviations
local function routeText(route, jctname, frame)
local link
local type = route.type
if not type or type == '' then
link = route.route
else
link = roadDataModule.link(route)
end
local dir = route.dir and ' ' .. string.lower(route.dir) or ''
local routeText = link .. dir
local name = route.name
if name and name ~= '' then
local mainText = jctname and name or routeText
local parenText = jctname and routeText or name
if route.rdt then
return frame:expandTemplate{ title = 'BSsplit', args = {mainText, parenText, align = 'right', valign = 'middle' } }
else
return format('%s (%s)', mainText, parenText)
end
else
return routeText
end
end
local function extra(args)
local extraTypes = mw.loadData('Module:Road data/extra')
local extraIcon = extraTypes[string.lower(args.extra or args['اضافی'] or '')]
if not extraIcon then return '' end
local size = require("Module:Road data/size").size({style = 'jct'})
local countryIcon = extraIcon[(args.country or args['کشور'])] or extraIcon.default
if type(countryIcon) == 'table' then
local localIcon = countryIcon[(args.state or args['ایالت'])] or countryIcon.default
return mw.ustring.format("[[پرونده:%s|%s|جایگزین=|پیوند=]]", localIcon, size)
else
return mw.ustring.format("[[پرونده:%s|%s|جایگزین=|پیوند=]]", countryIcon, size)
end
end
local function parseArgs(args)
local state = args.state or args['ایالت'] or args.province or args['استان'] or ''
args.state = state
args['ایالت'] = state
local country
if (args.country or args['کشور']) and (args.country or args['کشور']) ~= '' then
country = string.upper(args.country or args['کشور'])
else
local countryModule = mw.loadData("Module:Road data/countrymask")
country = countryModule[state] or 'UNK'
end
args.country = country
args['کشور'] = country
local params = {'denom', 'county', 'township', 'dab', 'nolink', 'noshield', 'to', 'dir', 'name'}
local routes = {}
local routeCount = 1
local seenTo = false
while true do
local routeType = args[routeCount * 2 - 1]
if not routeType then break end
local route = {type = routeType, route = convert_num('en', args[routeCount * 2])}
for _,v in pairs(params) do
route[v] = args[v .. routeCount]
end
route.country = country
route.state = state
-- Set the first .to to true.
-- Set all following .to to ''.
if seenTo then
if route.to then
-- Report duplicate to flag.
route.toerror = true
end
route.to = ''
elseif route.to then
route.to = true
seenTo = true
end
route.rdt = args.rdt
insert(routes, route)
routeCount = routeCount + 1
end
return routes
end
local function prefix(to, num)
if to and to ~= '' then
return num == 1 and 'به ' or ' به '
end
return num == 1 and '' or ' / '
end
-- پارامتر type به این تابع افزوده شدهاست
local function addErrorMsg(catCode, type, msg, errorMsg)
errorMsg.code = errorMsg.code or catCode
insert(errorMsg, format('<span style="display: none;">%s پودمان:Jct: %s</span>', type, msg))
end
function p._jct(args, frame)
rdt = args.rdt
local routes = parseArgs(args)
local shields = {}
local links = {}
local allMissingShields = {}
local typeErr = false
local toErr = false
frame = frame or mw.getCurrentFrame()
for num, route in ipairs(routes) do
if not ((args.noshield or args['بدون سپر']) or route.noshield) then
local shield, missingShields = roadDataModule.shield(route)
insert(shields, shield)
if missingShields[1] then
insert(allMissingShields, concat(missingShields, ' / '))
end
end
local prefix = prefix(route.to, num)
if prefix ~= '' then insert(links, prefix) end
insert(links, routeText(route, args.jctname or args['نام تقاطع'], frame))
typeErr = typeErr or route.typeerror or false
toErr = toErr or route.toerror or false
end
local graphics = concat(shields) .. extra(args) .. ' '
local linkText = concat(links)
local cities = ''
if args.city1 or args['شهر۱'] or args.location1 or args['موقعیت۱'] then
local citiesPrefix
if args.citiesprefix or args['پیشوند شهرها'] then
citiesPrefix = (args.citiesprefix or args['پیشوند شهرها']) ~= '' and format(" %s ", args.citiesprefix or args['پیشوند شهرها']) or ''
else
citiesPrefix = ' '
end
local cityModule = require(cityModuleName)
cities = citiesPrefix .. cityModule.city(args)
end
local errorMsg = {}
-- Errors must be reported by the level of severity, most severe first.
if typeErr then
-- Report invalid type errors.
addErrorMsg("§", 'خطای', 'نوع مسیر نامعتبر', errorMsg)
end
if #allMissingShields > 0 then
-- Report missing shield error.
-- shieldExists() would have populated missingShields if shields are missing.
addErrorMsg("¶", 'خطای', 'گرافیک نماد مسیر ناموجود: ' .. concat(allMissingShields, ' / '), errorMsg)
end
if toErr then
-- Report invalid to errors.
addErrorMsg("&", 'خطا', 'آرگومان «به» نامعتبر', errorMsg)
end
if args.road or args['جاده'] then
-- Report deprecated "road" warning.
addErrorMsg("∆", 'هشدار', 'پارامتر «جاده» منسوخ شدهاست', errorMsg)
end
if #errorMsg > 0 then
local page = mw.title.getCurrentTitle().prefixedText -- Get transcluding page's title
-- Add a category for the first, most severe error.
insert(errorMsg, format('[[رده:خطاهای الگوی تقاطع|%s %s]]', errorMsg.code, page))
errorMsg = concat(errorMsg)
else
errorMsg = ''
end
return graphics .. linkText .. cities .. errorMsg
end
function p.jct(frame)
-- Import module function to work with passed arguments
local getArgs = require('Module:Arguments').getArgs
local args = getArgs(frame, {removeBlanks = false})
return p._jct(args, frame)
end
function p._roadlink(args, frame)
local routes = parseArgs(args)
local links = {}
local typeErr = false
local toErr = false
frame = frame or mw.getCurrentFrame()
for num,route in ipairs(routes) do
local prefix = prefix(route.to, num)
if prefix ~= '' then insert(links, prefix) end
insert(links, routeText(route, args.jctname or args['نام تقاطع'], frame))
typeErr = typeErr or route.typeerror or false
toErr = toErr or route.toerror or false
end
local linkText = concat(links)
local cities = ''
if args.city1 or args['شهر۱'] or args.location1 or args['موقعیت۱'] then
local citiesPrefix
if args.citiesprefix or args['پیشوند شهرها'] then
citiesPrefix = (args.citiesprefix or args['پیشوند شهرها']) ~= '' and format(" %s ", args.citiesprefix or args['پیشوند شهرها']) or ''
else
citiesPrefix = ' '
end
local cityModule = require(cityModuleName)
cities = citiesPrefix .. cityModule.city(args)
end
local errorMsg = {}
-- Errors must be reported by the level of severity, most severe first.
if typeErr then
-- Report invalid type errors.
addErrorMsg("2", 'خطای', 'نوع مسیر نامعتبر', errorMsg)
end
if toErr then
-- Report invalid to errors.
addErrorMsg("3", 'خطای', 'آرگومان «به» نامعتبر', errorMsg)
end
if args.road or args['جاده'] then
-- Report deprecated "road" warning.
addErrorMsg("W", 'هشدار', 'پارامتر «جاده» منسوخ شدهاست', errorMsg)
end
if #errorMsg > 0 then
local page = mw.title.getCurrentTitle().prefixedText -- Get transcluding page's title
-- Add a category for the first, most severe error.
insert(errorMsg, format('[[رده:خطاهای الگوی تقاطع|%s %s]]', errorMsg.code, page))
errorMsg = concat(errorMsg)
else
errorMsg = ''
end
return linkText .. cities
end
function p.roadlink(frame)
-- Import module function to work with passed arguments
local getArgs = require('Module:Arguments').getArgs
local args = getArgs(frame, {removeBlanks = true})
return p._roadlink(args, frame)
end
return p