14.403
edits
Changes
Jump to navigation
Jump to search
Sətir 1:
Sətir 1: − + − ---------------------------------------------------------+ − + − ---------------------------------------------------------+ − + − local tf, cs=f:getParent(), {};+ − local findcs=function(a) cs[a]=f.args[a] end;+ − (f.args['|фиксрег'] or f.args['|fixreg'] or ''):gmatch(' *([^%n]+) *', findcs); − -- {{!}}фиксрег = список разделённых новыми строками аргументов, регистр которых не менять − local args,am={}; − for a,v in pairs(tf.args) do − am = a:lower():gsub('[_ ]+',' '); − args[ cs[a] and a or ( f.args[am] or am ) ] = v − end − − M['forall'] = function(f)-- Итератор по аргументам вызывающего шаблона.+ − -- f.args[1] — имя вызываемого шаблона.+ − local tf,ac,res,tln,sep,gl=f:getParent(),{},{},f.args[1]:match('^%s*([^#]-)%s*#(.*)$'),tonumber(f.args[2]) or 1;+ − if not tln then tln,sep=f.args[1]:match('^%s*(.-)%s*$'),'' end+ − for p,k in pairs(f.args) do if type(p)=='string' then ac[p]=k end end+ − local ans,i,ablk={},1;+ − while tf.args[i] do+ − if gl==1 then+ − ans[i] = tf:expandTemplate{ title=tln; args={tf.args[i], unpack(ac)} }+ − else+ − ablk={}; for j = 0, gl-1 do ablk[j] = tf.args[i*gl+j] end;+ − for k,v in pairs(ac) do ablk[k]=v end;+ − ans[i] = tf:expandTemplate{ title=tln; args=ablk }+ − end+ − i = i+1+ − end+ − return table.concat(ans,sep)+ + + − + − -- (обезопасивание) значений параметров. + − local i,ac,acn=0,{},{};+ − local function repl(s)+ − return s:gsub('{{','{{Х'):gsub('}}',"{{ЪЪ}}"):gsub('{{Х','{{ХХ}}')--: --замена фигурных скобок+ − :gsub('=','{{=}}'):gsub('|','{{!}}') + − end+ − for k,v in pairs(f:getParent().args) do+ − if type(k)=='number' then ac[k]=repl(v); i=i+1+ − else acn[repl(k)]=repl(v)end+ − end − if i ~= #ac-1 then --нумерованные параметры не сплошные − for k,v in pairs(ac) do − if k>i then acn[tostring(k)] = v; ac[k]=nil end-- удалять в pairs можно − end − end − for k,v in pairs(acn) do − table.insert(ac, table.concat(f.args[2] or "\n ", k, f.args[3] or ' = ', v, f.args[4] or '') ) − end − return table.concat(ac,'|') − function M.npc(f)-- Итератор по именованно-нумерованным параметрам.+ − local tf, ac, ns = f:getParent(), {}, {};+ − for k,v in pairs(tf.args) do+ − local b,n = string.match(k,"^(.-)%s*(%d*)$");+ − n = tonumber(n);+ − if n then+ − if f.args[b] then+ − if not ac[n] then+ − ac[n] = mw.clone(f.args)+ − setmetatable( ac[n], nil ) -- metatable ломает expandTemplate − table.insert(ns,n) − end − ac[n][b] = v − end--if f.args[b] − end--if n − end--for − table.sort(ns); − local tmod = #f.args-1 − for n,i in ipairs(ns) do − ns[n]=tf:expandTemplate{ title=f.args[n % tmod+1]; args=ac[i] } − end − return table.concat(ns) − function M.call(f)-- Просто вызывает шаблон с аргументами вызывающего.+ − return f:getParent():expandTemplate{ title=f.args[1]; args=f:getParent().args }+ + + + + + + + − + − -- f.args[1] — разделитель.+ − local t, tf, i = {}, f:getParent(), tonumber(f.args.from) or 1+ − local k,j,m = tonumber(f.args.to),i,f.args[3]+ − while k and i<=k or tf.args[i] do+ − if (+ − ({+ − ['_']=function(s)return s~=''end;+ − ['s']=function(s)return not tostring(s):match("^%s*$")end+ − })[m] or function() return true end+ − )(tf.args[i]) then+ − t[j]=tf.args[i];+ − j=j+1+ − end;+ − i=i+1+ − end+ − + + + + + + + + + + + + + + + + + + + + + + + + + + + + + − -------------------------------------------------------+ − + − -------------------------------------------------------+ − --[[+ − function M.split(f)-- Разрезает строку f.args[3]+ − -- указанным в f.args[2](?) разделителем+ − -- и передаёт куски шаблону f.args[1].+ − − -- «f.args[1]» в строке выше — точно не ошибка? --Incnis Mrsi − while i do − table.insert( ac, f.args[3]:sub(oldi, i-1) ); oldi=e+1 − table.insert( ac, f.args[3]:sub(oldi, #f.args[3]-1) ) − return f:getParent():expandTemplate{ title=f.args[1]; args=ac } − end − ]] − − function M.cycle(f)-- Действует аналогично forall по числовой переменной, − -- изменяющейся (по умолчанию, от 1) до f.args[2]. − local tf,ac=f:getParent(),{}; Sətir 132:
Sətir 126: + − + − + − local r=tf:expandTemplate{ title=f.args[1]; args={s,unpack(ac)} }+ − s=s+1;+ − if r~='' then table.insert(acr,r); return r end+ + + + + − + − while s<fh do dc() end+ + + + + − + − + − + − --[[Функция не пашет как можно ждать — пробелы отсекаются после передачи параметров в expandTemplate+ − function M.pass(f)-- Передаёт шаблону параметры без подрезки.+ − local ac,i={},1; − while f.args[2*i] do ac[ tonumber(f.args[2*i]) or f.args[2*i] ] = f.args[2*i+1]; i=i+1 end; − return f:getParent():expandTemplate{ title=f.args[1]; args=ac } − end − ]] −
Module:Transclude (başlanğıc kodu nəzərdən keçir)
20:11, 28 aprel 2021 versiyası
, 20:11, 28 aprel 2021Nəzərə çarpan dəyişiklik yoxdur.
local M={}
local p={}
-- Функции для работы с параметрами вызвавшего шаблона --
-- Вызывает внутренний шаблон с аргументами объемлющего шаблона
function p.call(frame)
function M.uni(f)-- Унификация имён параметров; псевдонимы.
local template = frame.args[1]
local args = frame:getParent().args
return frame:expandTemplate{ title=template, args=args }
return tf:expandTemplate{title=f.args[1]; args=args}
end
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
end
function M.escapeparams(f)-- Нормализация
-- Вызывает внутренний шаблон, передавая ему нумерованные параметры объемлющего шаблона по-одному
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
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
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
end
function M.join(f)-- Версия forall с разделителем вместо шаблона.
-- Вызывает внутренний шаблон несколько раз, передавая в него блоки аргументов объемлющего шаблона
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
return mw.text.listToText(t,f.args[1],f.args[2] or f.args[1])
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
end
-- Функции для работы с параметрами шаблона в invoke --
-- Действует аналогично 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';
local tf, ac, oldi, i, e =f:getParent(), {}, 1, f.args[3]:find(f.args[1],1,true)
end
end
for p,k in pairs(f.args) do
for p,k in pairs(f.args) do
if type(p)=='number' then
if type(p)=='number' then
f.args[2]:match('%.%.%s*(%S.*)%s*$') or f.args[2] or '';
f.args[2]:match('%.%.%s*(%S.*)%s*$') or f.args[2] or '';
fh=tonumber(fh) or fh:match('^%s*(.-)%s*$');
fh=tonumber(fh) or fh:match('^%s*(.-)%s*$');
s=tonumber(s);
local acr={};
local acr={};
if not tonumber(s) then error('Начало цикла «'..s..'» — не число') end
if not s then error('Начало цикла «'..s..'» — не число') end
local function dc()
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
end
if type(fh)=='number' then
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
elseif fh~='' then
while tf:expandTemplate{ title=fh; args={s,unpack(ac)} } do dc() end
while tf:expandTemplate{ title=fh; args={s,unpack(ac)} } do dc('asc') end
else
else
while dc() do end
while dc('asc') do end
end
end
return table.concat(acr)
return table.concat(acr, sep)
end
end
return p
return M