local p = {}
local function trim(s) return mw.ustring.match(s, '^%s*(.-)%s*$') end
local function isnotempty(s) return s and mw.ustring.match(s, '%S') end
function p.check(frame) local args = frame.args local pargs = frame:getParent().args local checknested = isnotempty(args['nested']) local delimiter = isnotempty(args['delimiter']) and args['delimiter'] or ';' local argpairs = {}
for k, v in pairs(args) do if type(k) == 'number' then local plist = mw.text.split(v, delimiter) local pfound = {} local count = 0 for ii, vv in ipairs(plist) do vv = trim(vv) if checknested and pargs[vv] or isnotempty(pargs[vv]) then count = count + 1 table.insert(pfound, vv) end end if count > 1 then table.insert(argpairs, pfound) end end end
local warnmsg = {}
local res =
local cat =
if args['cat'] and (
mw.ustring.match(args['cat'],'^[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]:') or
mw.ustring.match(args['cat'],'^رده:')
)
then
cat = args['cat']
end
local template = args['template'] and ' در ' .. args['template'] or
if #argpairs > 0 then
for i, v in ipairs( argpairs ) do
table.insert(
warnmsg,
mw.ustring.format(
'استفاده از بیش از یکی از پارامترهای زیر%s: %s.',
template,
table.concat(v, ', ')
)
)
if cat ~= then
res = res .. '' .. (v[1] == and ' ' or ) .. v[1] .. ''
end
end
end
if #warnmsg > 0 then
res = require('Module:If preview')._warning({
table.concat(warnmsg, '
')
}) .. res
end
return res
end
return p