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

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


local function split(s, sep)
function p.main(frame)
if s == nil then return {} end
    local args = getArgs(frame, { removeBlanks = false })
local parts = {}
    local name = args[1] or ""
sep = sep or "%."
    local attributes = args[2] or ""
for part in string.gmatch(s, "([^" .. sep .. "]+)") do
    if name == "" then
table.insert(parts, part)
        return "<span class=\"error\">Ошибка: не указано имя файла.</span>"
end
    end
return parts
    local ext = (args["ext"] or "png"):gsub("^%.", "")  
end
    local namespace = args["namespace"] or "Файл"
    local max = tonumber(args["max"]) or 50
    local include_base = (args["base"] ~= "no")


local function parse_indexed_part(part)
    local found = {}
local key, idx = string.match(part, "^(.-)%[(%d+)%]$")
if key then
return key, tonumber(idx)
end
local num = tonumber(part)
if num then
return nil, num
end
return part, nil
end


local function get_by_path(tbl, path)
    if include_base then
if not tbl then return nil end
        local t = mw.title.new("Файл:" .. name .. "." .. ext)
local parts = split(path, "%.")
        if t and t.exists then
local cur = tbl
            table.insert(found, "")
for _, part in ipairs(parts) do
        end
local key, idx = parse_indexed_part(part)
    end
if key and key ~= "" then
local nextCur = nil
if type(cur) == "table" then
nextCur = cur[key]
if nextCur == nil then
nextCur = cur["!type:" .. key]
end
end
cur = nextCur
end
if idx then
if type(cur) ~= "table" then
return nil
end
cur = cur[idx]
end
if cur == nil then
return nil
end
end
return cur
end


local function is_array(t)
    for i = 1, max do
if type(t) ~= "table" then return false end
        local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext)
local i = 0
        if t and t.exists then
for _ in pairs(t) do
            table.insert(found, "-" .. i)
i = i + 1
        end
end
    end
local n = 0
for k in pairs(t) do
if type(k) ~= "number" then
return false
end
if k > n then n = k end
end
return n > 0
end


local function format_value(v)
    if #found == 0 then
if v == nil then return "" end
        return ""
local t = type(v)
    end
if t == "string" or t == "number" or t == "boolean" then
return tostring(v)
elseif t == "table" then
if is_array(v) then
local out = {}
local max = 0
for k in pairs(v) do if type(k) == "number" and k > max then max = k end end
for i = 1, max do
table.insert(out, format_value(v[i]))
end
return table.concat(out, ", ")
else
local out = {}
for k, val in pairs(v) do
table.insert(out, tostring(k) .. ": " .. format_value(val))
end
return table.concat(out, ", ")
end
else
return tostring(v)
end
end


function p.get(frame)
    local before = "[[" .. namespace .. ":" .. name
local args = frame.args or {}
    local after = "." .. ext .. "|" .. attributes .. "]]"
local id = args[1] or ""
local pagePath = args[2] or ""
local keyPath = args[3] or ""


local baseUser = "IanComradeBot/"
    local parts = {}
local moduleName = "Module:" .. baseUser .. pagePath .. "/data"
    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>")


local ok, data = pcall(mw.loadData, moduleName)
    return frame:preprocess(table.concat(parts, "\n"))
if not ok or not data then
return ""
end
 
local entry = nil
if id ~= "" then
entry = data[id]
end
if entry == nil then
entry = data["default"]
end
if entry == nil then
return ""
end
 
if keyPath == "" then
return format_value(entry)
end
 
local value = get_by_path(entry, keyPath)
return format_value(value)
end
end


return p
return p