Модуль:Transclude
Выгляд
Дакументацыю да гэтага модуля можна стварыць у Модуль:Transclude/Дакументацыя
local p={}
-- Выклікае ўнутраны шаблон з аргументамі абдымаючага шаблона
function p.call(frame)
local template = frame.args[1]
local args = frame:getParent().args
return frame:expandTemplate{ title=template, args=args }
end
-- Агульная рэалізацыя для forall і call
local function forallImpl(args, separator, conjunction, func)
-- нумараваныя ключы з args
local keys = {}
-- перабор у адвольным парадку, нават для нумараваных ключоў
for key, value in pairs(args) do
if type(key) == 'number' and value and value ~= '' then
table.insert(keys, key)
end
end
table.sort(keys)
local results = {}
for _, key in ipairs(keys) do
local value = func(args[key])
table.insert(results, value)
end
return mw.text.listToText(results, separator, conjunction)
end
-- выклікае унутраны шаблон, перадаючы яму нумараваныя параметры абдымаючага шаблона па-адным
function p.forall(frame)
local template = frame.args[1]
local separator = frame.args.separator or ''
local conjunction = frame.args.conjunction or separator
local args = frame:getParent().args
local func = function(value)
return frame:expandTemplate{ title = template, args = {value} } -- або другі frame?
end
return forallImpl(args, separator, conjunction, func)
end
-- Бярэ нумараваныя аргументы абдымаючага шаблона і склейвае іх у адзіны радок
function p.join(frame)
local separator = frame.args[1] or ''
local conjunction = frame.args[2] or separator
local args = frame:getParent().args
local func = function(value)
return value
end
return forallImpl(args, separator, conjunction, func)
end
-- Службовая функцыя: выдаляе дублікаты з адсартаванага масіва з нумараванымі індэксамі
local function deleteDuplicates(args)
local res = {}
for key, value in pairs(args) do
if args[key+1] ~= value then
table.insert(res, value)
end
end
return res
end
-- выклікае ўнутраны шаблон некалькі разоў, перадаючы ў яго блокі аргументаў абдымаючага шаблона
function p.npc(frame)
local args = frame:getParent().args
local templateFrame = frame:getParent()
local template = frame.args[1]
-- вызначэнне, блокі аргументаў з якімі нумарамі патрэбны:
-- калі ў абдымаючым шаблоне есць "параметр12" і ў выкліку модуля ёсць "параметр", то выклікаецца 12-ы блок
local nums = {}
for key, _ in pairs(args) do
local main, num = string.match(key, '^(.-)%s*(%d*)$')
num = tonumber(num)
-- улічваць "параметр12", толькі калі задана "параметр"
if num and frame.args[main] then
table.insert(nums, num)
end
end
table.sort(nums)
nums = deleteDuplicates(nums)
-- праходзіць па патрэбных нумарах блокаў па ўзрастанні і аднаразова
-- падстаўляць у шаблон:
-- 1. агульныя аргументы дадзенага модуля
-- 2. аргументы абдымаючага шаблона накшталт "параметр12" як "параметр" у 12-ы блок
local results = {}
for _, blockNum in ipairs(nums) do
-- общіе аргументы модуля, которыя перадаются у каждый блок
local blockArgs = mw.clone(frame.args)
-- metatable ломае expandTemplate
setmetatable(blockArgs, nil)
for key, value in pairs(args) do
local main, num = string.match(key, '^(.-)%s*(%d*)$')
num = tonumber(num)
-- перадаваць "параметр12" як "параметр" у 12-ы блок, только еслі есць "параметр" у выкліку модуля
if blockNum == num and frame.args[main] then
blockArgs[main] = value
end
end
local blockText = templateFrame:expandTemplate{ title=template; args=blockArgs }
table.insert(results, blockText)
end
return table.concat(results)
end
-- Дзейнічае аналагічна forall па лічбавай пераменай, якая змяняецца (прадвызначата, ад 1) да f.args[2].
function p.cycle(f)
local tf,ac,op=f:getParent(), {}, f.args.output or 'inline';
local sep='';
if op == 'newline' then
sep='\n';
end
for p,k in pairs(f.args) do
if type(p)=='number' then
if p>2 then ac[p-1]=k end
else ac[p]=k
end
end
local s,fh = f.args[2]:match('^%s*(%-?%d+)%s*%.%.') or 1,
f.args[2]:match('%.%.%s*(%S.*)%s*$') or f.args[2] or '';
fh=tonumber(fh) or fh:match('^%s*(.-)%s*$');
s=tonumber(s);
local acr={};
if not s then error('Начало цікла «'..s..'» — не чысло') end
local function dc(order)
local r=tf:expandTemplate{ title=f.args[1]; args={s,unpack(ac)} }
if order == 'desc' then
s=s-1;
else
s=s+1;
end
if r~='' then table.insert(acr,r); return r end
end
if type(fh)=='number' then
if fh > s then
while s<=fh do dc('asc') end
else
while s>=fh do dc('desc') end
end
elseif fh~='' then
while tf:expandTemplate{ title=fh; args={s,unpack(ac)} } do dc('asc') end
else
while dc('asc') do end
end
return table.concat(acr, sep)
end
return p