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

Материал из Space Station 14 Вики
Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Нет описания правки
Нет описания правки
Строка 1: Строка 1:
local p = {}
local p = {}
local getArgs = require('Module:Arguments').getArgs
local mw = mw


local function is_array(tbl)
local function esc_attr(s)
    local max = 0
     if not s then return "" end
    local count = 0
     s = tostring(s)
    for k in pairs(tbl) do
     s = s:gsub("&", "&")
        if type(k) ~= "number" then
     s = s:gsub('"', """)
            return false
    s = s:gsub("<", "&lt;")
        end
     s = s:gsub(">", "&gt;")
        if k > max then max = k end
     return s
        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 id = args[1] or ""
    if id == "" then return "" end
 
    local params = ""
    for k, v in pairs(args) do
        if k ~= 1 then
            params = params .. "|" .. k .. "=" .. v
        end
     end
 
    local text = "{{#invoke:Сущность/data|get|" .. id .. params .. "}}[[Категория:Сущности]]" -- TODO: {{ajax|<nowiki></nowiki>|auto}}
 
    return frame:preprocess(text)
end
 
function p.preview(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local id = args[1] or ""
    if id == "" then return "" end
 
    local params = ""
    for k, v in pairs(args) do
        if k ~= 1 then
            params = params .. "|" .. k .. "=" .. v
        end
    end
 
    local text = "{{#invoke:Сущность/data|preview|" .. id .. params .. "}}"
 
     return frame:preprocess(text)
end
end


function p.json(frame)
function p.main(frame)
     local args = getArgs(frame, { removeBlanks = false })
     local args = frame.args or {}
     local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
     local name = args[1] or args["name"] or ""
    local tplPath = mw.text.unstripNoWiki(args[2] or args.template or "")
     if name == "" then
     if jsonStr == "" or tplPath == "" then return "" end
        return "<span class=\"error\">Ошибка: не указано имя файла.</span>"
 
    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 = {}
     if include_base then
 
         local t = mw.title.new("File:" .. name .. "." .. ext)
    local function makeCall(id, obj)
         if t and t.exists then
        if type(id) ~= "string" then return end
            table.insert(found, "")
         local parts = { "{{" .. tplPath, "id=" .. id }
         if type(obj) == "table" then
            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("File:" .. 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 .. "]]"
end
 
function p.jsonList(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
    if jsonStr == "" then return "" end
 
    local ok, data = pcall(mw.text.jsonDecode, jsonStr)
    if not ok or type(data) ~= "table" then
        return ""
    end
 
    local outputType = (args.type or "list"):lower()
 
    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 parts = {}
                local line
    table.insert(parts, "<choose before=\"" .. esc_attr(before) .. "\" after=\"" .. esc_attr(after) .. "\">")
                if outputType == "enum" then
    for _, suf in ipairs(found) do
                    line = vStr .. " " .. keyStr
        table.insert(parts, "<option>" .. esc_attr(suf) .. "</option>")
                else
                    line = bullet .. keyStr .. sep .. vStr
                end
 
                if pairPattern ~= "" then
                    line = apply_pattern(line, pairPattern, pairReplace)
                end
 
                table.insert(out, line)
            end
        end
     end
     end
    table.insert(parts, "</choose>")


     if outputType == "enum" then
     return table.concat(parts, "\n")
        return frame:preprocess(table.concat(out, ", "))
    else
        return frame:preprocess(table.concat(out, "\n"))
    end
end
end


return p
return p

Версия от 02:43, 17 марта 2026

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

local p = {}
local mw = mw

local function esc_attr(s)
    if not s then return "" end
    s = tostring(s)
    s = s:gsub("&", "&amp;")
    s = s:gsub('"', "&quot;")
    s = s:gsub("<", "&lt;")
    s = s:gsub(">", "&gt;")
    return s
end

function p.main(frame)
    local args = frame.args or {}
    local name = args[1] or args["name"] 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("File:" .. name .. "." .. ext)
        if t and t.exists then
            table.insert(found, "")
        end
    end

    for i = 1, max do
        local t = mw.title.new("File:" .. 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 .. "]]"

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

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

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