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

Материал из Space Station 14 Вики
Интерактивная навигация по истории
← Предыдущая правка
Нет описания правки
Нет описания правки
 
(не показано 38 промежуточных версий этого же участника)
Строка 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
        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


local function parse_keys_from_template(content, switches)
    for i = 1, max do
if not content then return {} end
        local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext)
local lower = content:lower()
        if t and t.exists then
local result = {}
            table.insert(found, "-" .. i)
for _, sw in ipairs(switches) do
        end
result[sw] = {}
    end
local swLower = sw:lower()
local pos = lower:find("|%s*" .. swLower .. "%s*=")
if not pos then
-- no keys for this switch
else
local startBrace = content:find("{{", pos)
local region = nil
if startBrace then
local len = #content
local i = startBrace
local depth = 0
while i <= len - 1 do
local two = content:sub(i, i+1)
if two == "{{" then
depth = depth + 1
i = i + 2
elseif two == "}}" then
depth = depth - 1
i = i + 2
if depth == 0 then
region = content:sub(startBrace, i-1)
break
end
else
i = i + 1
end
end
end
if not region then
local substr = content:sub(pos)
local endPos = substr:find("}}")
if endPos then
region = substr:sub(1, endPos)
else
region = substr
end
end
for key in string.gmatch(region, "|%s*([^=|%}]-)%s*=") do
local k = trim(key)
if k ~= "" then
table.insert(result[sw], k)
end
end
end
end
return result
end


local function load_module_data(page)
    if #found == 0 then
local baseUser = "IanComradeBot/"
        return ""
local moduleName = "Module:" .. baseUser .. page .. "/data"
    end
local ok, data = pcall(mw.loadData, moduleName)
if not ok then return nil end
return data
end


local function load_template_content(path)
    local before = "[[" .. namespace .. ":" .. name
local title = mw.title.new("Template:" .. path)
    local after = "." .. ext .. "|" .. attributes .. "]]"
if not title then return nil end
local ok, content = pcall(function() return title:getContent() end)
if not ok then return nil end
return content
end


function p.get(frame)
    local parts = {}
local args = frame.args or {}
    table.insert(parts, "<choose before=\"" .. before .. "\" after=\"" .. after .. "\">")
local id = args[1] or ""
    for _, suf in ipairs(found) do
if id == "" then return "" end
        table.insert(parts, "<option>" .. suf .. "</option>")
    end
    table.insert(parts, "</choose>")


local componentDefs = load_module_data("component.json")
    return frame:preprocess(table.concat(parts, "\n"))
local prototypeDefs = load_module_data("prototype.json")
if not componentDefs or not prototypeDefs then
return ""
end
 
local foundComponents = {}
local foundPrototypes = {}
local compList = componentDefs[id]
if type(compList) == "table" then
for _, v in ipairs(compList) do
if type(v) == "string" then
foundComponents[v] = true
end
end
end
 
local protoList = prototypeDefs[id]
if type(protoList) == "table" then
for _, v in ipairs(protoList) do
if type(v) == "string" then
foundPrototypes[v] = true
end
end
end
 
for name in string.gmatch(id, "[^,]+") do
local n = trim(name)
if n ~= "" then
if componentDefs[n] ~= nil then
foundComponents[n] = true
end
if prototypeDefs[n] ~= nil then
foundPrototypes[n] = true
end
if componentDefs[n] == nil and prototypeDefs[n] == nil then
foundComponents[n] = true
end
end
end
 
local out = {}
local errors = {}
local switches = { "card", "title" }
local switchKeyOrder = {}
local switchKeyToTemplates = {}
for _, sw in ipairs(switches) do
switchKeyOrder[sw] = {}
switchKeyToTemplates[sw] = {}
end
local switchConfigs = {
card = {
wrapper = function(key, tplCalls)
if not tplCalls or #tplCalls == 0 then return "" end
return "{{card|" .. mw.text.encode(key) .. "|" .. table.concat(tplCalls, " ") .. "}}"
end
},
title = {
wrapper = function(key, tplCalls)
local parts = {}
table.insert(parts, "<h2>" .. mw.text.encode(key) .. "</h2>")
if tplCalls and #tplCalls > 0 then
for _, tpl in ipairs(tplCalls) do
table.insert(parts, tpl)
end
end
return table.concat(parts, "\n")
end
}
}
 
local function lcfirst(s)
if not s or s == "" then return s end
return string.lower(s:sub(1,1)) .. (s:sub(2) or "")
end
 
local items = {}
for compName,_ in pairs(foundComponents) do
table.insert(items, { kind = "component", name = compName })
end
for protoName,_ in pairs(foundPrototypes) do
table.insert(items, { kind = "prototype", name = protoName })
end
 
for _, item in ipairs(items) do
local kind = item.kind
local name = item.name
local pathName = lcfirst(name)
local tplPath = kind .. "/" .. pathName
local content = load_template_content(tplPath)
if not content then
table.insert(errors, "Ошибка: не найден шаблон " .. kind .. "/" .. pathName)
else
local parsed = parse_keys_from_template(content, switches)
for _, sw in ipairs(switches) do
local keys = parsed[sw] or {}
for _, key in ipairs(keys) do
if not switchKeyToTemplates[sw][key] then
switchKeyToTemplates[sw][key] = {}
table.insert(switchKeyOrder[sw], key)
end
table.insert(switchKeyToTemplates[sw][key], "{{" .. tplPath .. "|title|" .. key .. "}}")
end
end
end
end
 
for _, e in ipairs(errors) do
table.insert(out, "<div class=\"error\">" .. mw.text.encode(e) .. "</div>")
end
 
for _, sw in ipairs(switches) do
local cfg = switchConfigs[sw] or {}
for _, key in ipairs(switchKeyOrder[sw]) do
local tplCalls = switchKeyToTemplates[sw][key] or {}
if cfg.wrapper then
local outStr = cfg.wrapper(key, tplCalls)
if outStr and outStr ~= "" then
table.insert(out, outStr)
end
end
end
end
 
return frame:preprocess(table.concat(out, "\n\n"))
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