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

Материал из Space Station 14 Вики
Интерактивная навигация по истории
← Предыдущая правка
Нет описания правки
Нет описания правки
 
(не показано 9 промежуточных версий этого же участника)
Строка 2: Строка 2:
local getArgs = require('Module:Arguments').getArgs
local getArgs = require('Module:Arguments').getArgs


local function is_array(tbl)
function p.main(frame)
    local max = 0
    local count = 0
    for k in pairs(tbl) do
        if type(k) ~= "number" then
            return false
        end
        if k > max then max = k end
        count = count + 1
    end
    return count > 0 and max == count
end
 
local function apply_pattern(s, pattern, repl)
    if not pattern or pattern == "" or not s then
        return s
    end
 
    local text = tostring(s)
    local replacement
    if repl and repl ~= "" then
        replacement = tostring(repl)
        replacement = replacement:gsub("\\(%d)", "%%%1")
    else
        replacement = "%1"
    end
 
    local patt = pattern
    if not patt:find("%^") and not patt:find("%$") then
        patt = "^" .. patt .. "$"
    end
 
    return (text:gsub(patt, replacement))
end
 
function p.get(frame)
     local args = getArgs(frame, { removeBlanks = false })
     local args = getArgs(frame, { removeBlanks = false })
     local id = args[1] or ""
     local name = args[1] or ""
    if id == "" then return "" end
     local attributes = args[2] or ""
 
     if name == "" then
return frame:preprocess('{{ajax|<nowiki>{{сущность|' .. id .. '}}</nowiki>|auto}}[[Категория:Сущности]]')
        return "<span class=\"error\">Ошибка: не указано имя файла.</span>"
end
 
function p.json(frame)
     local args = getArgs(frame, { removeBlanks = false })
    local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
    local tplPath = mw.text.unstripNoWiki(args[2] or args.template or "")
     if jsonStr == "" or tplPath == "" then return "" end
 
    local ok, data = pcall(mw.text.jsonDecode, jsonStr)
    if not ok or type(data) ~= "table" then
        return ""
     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 okDp, dp = pcall(require, "Module:GetField")
     local found = {}
 
    local calls = {}


     local function makeCall(id, obj)
     if include_base then
        if type(id) ~= "string" then return end
         local t = mw.title.new("Файл:" .. name .. "." .. ext)
         local parts = { "{{" .. tplPath, "id=" .. id }
         if t and t.exists then
         if type(obj) == "table" then
            table.insert(found, "")
            if okDp and dp and type(dp.flattenParams) == "function" then
                local extra = dp.flattenParams(obj)
                for i = 1, #extra do
                    parts[#parts + 1] = extra[i]
                end
            else
                for k, v in pairs(obj) do
                    if v ~= nil then
                        parts[#parts + 1] = tostring(k) .. "=" .. tostring(v)
                    end
                end
            end
         end
         end
        parts[#parts + 1] = "}}"
        calls[#calls + 1] = table.concat(parts, "|")
     end
     end


     if is_array(data) then
     for i = 1, max do
        for _, item in ipairs(data) do
        local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext)
            if type(item) == "table" then
         if t and t.exists then
                for k, v in pairs(item) do
             table.insert(found, "-" .. i)
                    makeCall(k, v)
                end
            end
         end
    else
        for k, v in pairs(data) do
             makeCall(k, v)
         end
         end
     end
     end


     if #calls == 0 then
     if #found == 0 then
         return ""
         return ""
     end
     end


     local rendered = table.concat(calls, " ")
     local before = "[[" .. namespace .. ":" .. name
     return frame:preprocess(rendered)
     local after = "." .. ext .. "|" .. attributes .. "]]"
end


function p.jsonList(frame)
     local parts = {}
     local args = getArgs(frame, { removeBlanks = false })
     table.insert(parts, "<choose before=\"" .. before .. "\" after=\"" .. after .. "\">")
     local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
     for _, suf in ipairs(found) do
    if jsonStr == "" then return "" end
        table.insert(parts, "<option>" .. suf .. "</option>")
 
     local ok, data = pcall(mw.text.jsonDecode, jsonStr)
    if not ok or type(data) ~= "table" then
        return ""
     end
     end
    table.insert(parts, "</choose>")


     local outputType = (args.type or "list"):lower()
     return frame:preprocess(table.concat(parts, "\n"))
 
    local bullet = mw.text.unstripNoWiki(args.prefix or "* ")
    local sep = mw.text.unstripNoWiki(args.sep or ": ")
    if outputType == "none" then
        bullet = ""
        sep = ""
    end
    local keyPattern = mw.text.unstripNoWiki(args.key_pattern or "(.*)")
    local keyReplace = mw.text.unstripNoWiki(args.key_replace or "\\1")
    local valuePattern = mw.text.unstripNoWiki(args.value_pattern or "(.*)")
    local valueReplace = mw.text.unstripNoWiki(args.value_replace or "\\1")
 
    local pairPattern = mw.text.unstripNoWiki(args.pattern or "(.*)")
    local pairReplace = mw.text.unstripNoWiki(args.replace or "\\1")
 
    local out = {}
 
    if is_array(data) then
        for _, v in ipairs(data) do
            local text = ""
 
            if type(v) == "table" then
                if is_array(v) then
                    text = table.concat(v, ", ")
                else
                    local okJson, jsonVal = pcall(mw.text.jsonEncode, v)
                    if okJson and jsonVal then
                        text = jsonVal
                    end
                end
            else
                text = tostring(v)
            end
 
            if text ~= "" then
                local patt = valuePattern ~= "" and valuePattern or keyPattern
                local repl = valueReplace ~= "" and valueReplace or keyReplace
                text = apply_pattern(text, patt, repl)
 
                local line
                if outputType == "enum" then
                    line = text
                else
                    line = bullet .. text
                end
 
                if pairPattern ~= "" then
                    line = apply_pattern(line, pairPattern, pairReplace)
                end
 
                table.insert(out, line)
            end
        end
    else
        local keys = {}
        for k in pairs(data) do
            keys[#keys + 1] = k
        end
        table.sort(keys, function(a, b) return tostring(a) < tostring(b) end)
 
        for _, k in ipairs(keys) do
            local v = data[k]
            local vStr
 
            if type(v) == "table" then
                local okJson, jsonVal = pcall(mw.text.jsonEncode, v)
                if okJson and jsonVal then
                    vStr = jsonVal
                else
                    vStr = ""
                end
            else
                vStr = tostring(v)
            end
 
            local baseKey = apply_pattern(tostring(k), keyPattern, "\\1")
 
            local MARK_KEY = "\31KEY\31"
            local vRepl = (valueReplace or "\\1"):gsub("\\2", MARK_KEY)
            local vStr0 = apply_pattern(vStr, valuePattern, vRepl)
            vStr0 = tostring(vStr0):gsub(MARK_KEY, baseKey)
 
            local MARK_VAL = "\31VAL\31"
            local kRepl = (keyReplace or "\\1"):gsub("\\2", MARK_VAL)
            local keyStr0 = apply_pattern(tostring(k), keyPattern, kRepl)
            local keyStr = tostring(keyStr0):gsub(MARK_VAL, vStr0)
 
            vStr = vStr0
 
            if vStr ~= "" then
                local line
                if outputType == "enum" then
                    line = vStr .. " " .. keyStr
                else
                    line = bullet .. keyStr .. sep .. vStr
                end
 
                if pairPattern ~= "" then
                    line = apply_pattern(line, pairPattern, pairReplace)
                end
 
                table.insert(out, line)
            end
        end
    end
 
    if outputType == "enum" then
        return frame:preprocess(table.concat(out, ", "))
    else
        return frame:preprocess(table.concat(out, "\n"))
    end
end
end


return p
return p

Текущая версия от 02:52, 17 марта 2026

Для документации этого модуля может быть создана страница Модуль:Песочница/Pok/doc 

local p = {}
local getArgs = require('Module:Arguments').getArgs

function p.main(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local name = args[1] or ""
    local attributes = args[2] or ""
    if name == "" then
        return "<span class=\"error\">Ошибка: не указано имя файла.</span>"
    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 found = {}

    if include_base then
        local t = mw.title.new("Файл:" .. name .. "." .. ext)
        if t and t.exists then
            table.insert(found, "")
        end
    end

    for i = 1, max do
        local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext)
        if t and t.exists then
            table.insert(found, "-" .. i)
        end
    end

    if #found == 0 then
        return ""
    end

    local before = "[[" .. namespace .. ":" .. name
    local after = "." .. ext .. "|" .. attributes .. "]]"

    local parts = {}
    table.insert(parts, "<choose before=\"" .. before .. "\" after=\"" .. after .. "\">")
    for _, suf in ipairs(found) do
        table.insert(parts, "<option>" .. suf .. "</option>")
    end
    table.insert(parts, "</choose>")

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

return p
Источник — https://station14.ru/index.php?title=Модуль:Песочница/Pok&oldid=161719