Користувач:HIKC/Чернеткомодуль: відмінності між версіями

Матеріал з Енциклопедія Драматика
Перейти до навігації Перейти до пошуку
(Створена сторінка: -- This module may be used to compare the arguments passed to the parent -- with a list of arguments, returning a specified result if an argument is -- not on t...)
 
м (Сторінка очищена)
 
Рядок 1: Рядок 1:
-- This module may be used to compare the arguments passed to the parent
-- with a list of arguments, returning a specified result if an argument is
-- not on the list
-- modified at ukwiki
local p = {}


local function trim(s)
  return s:match('^%s*(.-)%s*$')
end
local function isnotempty(s)
  return s and trim(s) ~= ''
end
function p.check (frame)
  local args = frame.args
  local pargs = frame:getParent().args
  local ignoreblank = isnotempty(frame.args['ignoreblank'])
  local showblankpos = isnotempty(frame.args['showblankpositional'])
  local knownargs = {}
  local unknown = frame.args['unknown'] or '<s>|_VALUE_=</s>, '-- якщо не задано
  local preview = frame.args['preview'] or '<s>|_VALUE_=</s>, '-- завжди попередж. в прев'ю
  local values = {}
  local res = {}
  local regexps = {}
  local revisionid = isnotempty( frame:preprocess( "{{REVISIONID}}" ) )
  local function nounderscore( pargs )
    for k, v in pairs(pargs) do
      k = mw.ustring.gsub(k, '[_]', ' ')
    end
    return pargs
  end
-- create the list of known args, regular expressions, and the return string
  for k, v in pairs(args) do
    if type(k) == 'number' then
      v = trim(v)
      knownargs[v] = 1
    elseif k:find('^regexp[1-9][0-9]*$') then
      table.insert(regexps, '^' .. v .. '$')
    end
  end
  if not isnotempty(preview) then preview = unknown end
-- loop over the parent args, and make sure they are on the list
  for k, v in pairs(pargs) do
    if type(k) == 'string' and knownargs[k] == nil then
      local knownflag = false
      for i, regexp in ipairs(regexps) do
        if mw.ustring.match(k, regexp) then
          knownflag = true
          break
        end
      end
      if not knownflag and ( not ignoreblank or isnotempty(v) ) then
        k = mw.ustring.gsub(k, '[^%w\-_ ]', '?')
        table.insert(values, k)
      end
    elseif type(k) == 'number' and knownargs[tostring(k)] == nil and ( showblankpos or isnotempty(v) ) then
      local vlen = mw.ustring.len(v)
      v = mw.ustring.sub(v, 1, (vlen < 25) and vlen or 25)
      v = mw.ustring.gsub(v, '[^%w\-_ ]', '?')
      table.insert(values, k .. ' = ' .. v .. ((vlen >= 25) and ' ...' or ''))
    end
  end
-- add resuls to the output tables
  if #values > 0 then
    if not revisionid then unknown = preview
end
    for k, v in pairs(values) do
-- Fix odd bug for | = which gets stripped to the empty string and
-- breaks category links
      if v == '' then v = ' ' end
      local r = unknown:gsub('_VALUE_', v)
      table.insert(res, r)
    end
    if not revisionid then
      table.insert(res, 1, '<div class="hatnote" style="color:red; border:1px dashed pink; border-radius:10px;"><strong>Увага:</strong> {{[['
          .. tostring(mw.getCurrentFrame():getParent():getTitle()) .. ']]}}: не розумію параметр(и):<br/><span style="font-color:black;font-size:85%;">')
      table.insert(res, '</span><br/>(це повідомлення лише в попередперегляді). [[Вікіпедія:Проект:Шаблони#Параметри шаблонів|Докладніше]]</div>')
    end
  end
  return table.concat(res)
end
return p

Поточна версія на 22:05, 7 серпня 2018

Отримано з https://drama.kropyva.ch/index.php?title=Користувач:HIKC/Чернеткомодуль&oldid=12178