Space Station 14 Вики

Модуль:Песочница/Pok: различия между версиями

Интерактивная навигация по истории
← Предыдущая правка
мНет описания правки
Метка: отменено
Нет описания правки
 
(не показано 20 промежуточных версий этого же участника)
Строка 1: Строка 1:
local p = {}
local p = {}
local getArgs = require('Module:Arguments').getArgs


local function trim(s)
function p.main(frame)
     if not s then return s end
    local args = getArgs(frame, { removeBlanks = false })
     return (s:gsub('^%s*(.-)%s*$', '%1'))
    local name = args[1] or ""
end
    local attributes = args[2] or ""
 
     if name == "" then
local function strip_trailing_digits(s)
        return "<span class=\"error\">Ошибка: не указано имя файла.</span>"
     return s:gsub('%d+$', '')
    end
end
     local ext = (args["ext"] or "png"):gsub("^%.", "")  
    local namespace = args["namespace"] or "Файл"
    local max = tonumber(args["max"]) or 50
     local include_base = (args["base"] ~= "no")


local function split_first_underscore(k)
     local found = {}
     local a, b = k:match('^([^_]+)_(.+)$')
    return a, b
end


local function collect_labels_from_args(args)
     if include_base then
     local meta = {}
        local t = mw.title.new("Файл:" .. name .. "." .. ext)
    local seen = {}
         if t and t.exists then
    for k, v in pairs(args) do
             table.insert(found, "")
         if type(k) == 'string' and k:find('_', 1, true) then
             local base, rem = split_first_underscore(k)
            if base and rem then
                local label = strip_trailing_digits(rem)
                label = trim(label)
                if label ~= '' then
                    meta[base] = meta[base] or {}
                    if not seen[base] then seen[base] = {} end
                    if not seen[base][label] then
                        table.insert(meta[base], label)
                        seen[base][label] = true
                    end
                end
            end
         end
         end
     end
     end
    return meta
end
local function render_from_args(args)
    local field = args[1] or args.field or args["field"]
    local label = args[2] or args.label or args["label"]
    field = field and trim(field) or ''
    label = label and trim(label) or ''


     -- map base -> label -> value
     for i = 1, max do
    local map = {}
         local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext)
    for k, v in pairs(args) do
        if t and t.exists then
         if type(k) == 'string' and k:find('_', 1, true) then
            table.insert(found, "-" .. i)
            local base, rem = split_first_underscore(k)
            if base and rem then
                local lab = strip_trailing_digits(rem)
                lab = trim(lab)
                map[base] = map[base] or {}
                local cur = map[base][lab]
                if cur then
                    map[base][lab] = cur .. '\n' .. tostring(v)
                else
                    map[base][lab] = tostring(v)
                end
            end
         end
         end
     end
     end


     if field ~= '' and label ~= '' then
     if #found == 0 then
        local base = map[field]
         return ""
        if base then return base[label] or '' end
         return ''
     end
     end


     if args[1] and args[2] then
     local before = "[[" .. namespace .. ":" .. name
        local f = trim(args[1]); local l = trim(args[2])
     local after = "." .. ext .. "|" .. attributes .. "]]"
        local base = map[f]
        if base then return base[l] or '' end
    end
 
     return ''
end
 
local function has_nonempty_args(args)
    for _, v in pairs(args) do
        if type(v) == "string" and v:match("%S") then
            return true
        end
    end
    return false
end
 
function p.main(frame)
    local args = frame.args or {}


     if not has_nonempty_args(args) then
     local parts = {}
        local meta = collect_labels_from_args(args)
    table.insert(parts, "<choose before=\"" .. before .. "\" after=\"" .. after .. "\">")
         return mw.text.jsonEncode(meta)
    for _, suf in ipairs(found) do
         table.insert(parts, "<option>" .. suf .. "</option>")
     end
     end
    table.insert(parts, "</choose>")


     return render_from_args(args)
     return frame:preprocess(table.concat(parts, "\n"))
end
end


return p
return p
Источник — https://station14.ru/wiki/Модуль:Песочница/Pok