Модуль:Песочница/Pok

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

local p = {}
local mw = mw

local function esc_attr(s)
    if not s then return "" end
    s = tostring(s)
    s = s:gsub("&", "&")
    s = s:gsub('"', """)
    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