Space Station 14 Вики

Модуль:GetField: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
мНет описания правки
мНет описания правки
Строка 2: Строка 2:


local function split(s, sep)
local function split(s, sep)
if s == nil then return {} end
    if s == nil then return {} end
local parts = {}
    local parts = {}
sep = sep or "%."
    sep = sep or "%."
for part in string.gmatch(s, "([^" .. sep .. "]+)") do
    for part in string.gmatch(s, "([^" .. sep .. "]+)") do
table.insert(parts, part)
        table.insert(parts, part)
end
    end
return parts
    return parts
end
end


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


local function get_by_path(tbl, path)
local function get_by_path(tbl, path)
if not tbl then return nil end
    if not tbl then return nil end
local parts = split(path, "%.")
    local parts = split(path, "%.")
local cur = tbl
    local cur = tbl
for _, part in ipairs(parts) do
    for _, part in ipairs(parts) do
local key, idx = parse_indexed_part(part)
        local key, idx = parse_indexed_part(part)
if key and key ~= "" then
        if key and key ~= "" then
local nextCur = nil
            local nextCur = nil
if type(cur) == "table" then
            if type(cur) == "table" then
nextCur = cur[key]
                nextCur = cur[key]
if nextCur == nil then
                if nextCur == nil then
nextCur = cur["!type:" .. key]
                    nextCur = cur["!type:" .. key]
end
                end
end
            end
cur = nextCur
            cur = nextCur
end
        end
if idx then
        if idx then
if type(cur) ~= "table" then
            if type(cur) ~= "table" then
return nil
                return nil
end
            end
cur = cur[idx]
            cur = cur[idx]
end
        end
if cur == nil then
        if cur == nil then
return nil
            return nil
end
        end
end
    end
return cur
    return cur
end
end


local function is_array(t)
local function is_array(t)
if type(t) ~= "table" then return false end
    if type(t) ~= "table" then return false end
local i = 0
    local i = 0
for _ in pairs(t) do
    for _ in pairs(t) do
i = i + 1
        i = i + 1
end
    end
local n = 0
    local n = 0
for k in pairs(t) do
    for k in pairs(t) do
if type(k) ~= "number" then
        if type(k) ~= "number" then
return false
            return false
end
        end
if k > n then n = k end
        if k > n then n = k end
end
    end
return n > 0
    return n > 0
end
end


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


function p.get(frame)
function p.get(frame)
local args = frame.args or {}
    local args = frame.args or {}
local id = args[1] or ""
    local id = args[1] or ""
local pagePath = args[2] or ""
    local pagePath = args[2] or ""
local keyPath = args[3] or ""
    local keyPath = args[3] or ""


local baseUser = "IanComradeBot/"
    local baseUser = "IanComradeBot/"
local moduleName = "Module:" .. baseUser .. pagePath .. "/data"
    local moduleName = "Module:" .. baseUser .. pagePath .. "/data"


local ok, data = pcall(mw.loadData, moduleName)
    local ok, data = pcall(mw.loadData, moduleName)
if not ok or not data then
    if not ok or not data then
return ""
        return ""
end
    end


local entry = nil
    local entry = nil
if id ~= "" then
    if id ~= "" then
entry = data[id]
        entry = data[id]
end
    end
if entry == nil then
    if entry == nil then
entry = data["default"]
        entry = data["default"]
end
    end
if entry == nil then
    if entry == nil then
return ""
        return ""
end
    end


if keyPath == "" then
    if keyPath == "" then
return format_value(entry)
        return format_value(entry)
end
    end


local value = get_by_path(entry, keyPath)
    local value = get_by_path(entry, keyPath)
return format_value(value)
    return format_value(value)
end
end


function p.flattenField(frame)
function p.flattenField(frame)
local args = frame.args or {}
    local args = frame.args or {}
local id = args[1] or ""
    local id = args[1] or ""
local pagePath = args[2] or ""
    local pagePath = args[2] or ""
if id == "" or pagePath == "" then return "" end
    if id == "" or pagePath == "" then return "" end


local baseUser = "IanComradeBot/"
    local baseUser = "IanComradeBot/"
local moduleName = "Module:" .. baseUser .. pagePath .. "/data"
    local moduleName = "Module:" .. baseUser .. pagePath .. "/data"
local ok, data = pcall(mw.loadData, moduleName)
    local ok, data = pcall(mw.loadData, moduleName)
if not ok or not data then
    if not ok or not data then
return ""
        return ""
end
    end


local entry = data[id] or data["default"] or {}
    local entry = data[id] or data["default"] or {}


local flat = {}
    local flat = {}
local function walk(tbl, prefix)
    local function walk(tbl, prefix)
if type(tbl) ~= "table" then
        if type(tbl) ~= "table" then
flat[prefix] = format_value(tbl)
            flat[prefix] = format_value(tbl)
return
            return
end
        end
if prefix ~= "" then
        if prefix ~= "" then
flat[prefix] = format_value(tbl)
            flat[prefix] = format_value(tbl)
end
        end
if is_array(tbl) then
        if is_array(tbl) then
local max = 0
            local max = 0
for k in pairs(tbl) do if type(k) == "number" and k > max then max = k end end
            for k in pairs(tbl) do if type(k) == "number" and k > max then max = k end end
for i = 1, max do
            for i = 1, max do
local v = tbl[i]
                local v = tbl[i]
local key = (prefix == "" and tostring(i) or prefix .. "." .. tostring(i))
                local key = (prefix == "" and tostring(i) or prefix .. "." .. tostring(i))
if type(v) == "table" then
                if type(v) == "table" then
walk(v, key)
                    walk(v, key)
else
                else
flat[key] = format_value(v)
                    flat[key] = format_value(v)
end
                end
end
            end
else
        else
for k, v in pairs(tbl) do
            for k, v in pairs(tbl) do
local key = (prefix == "" and tostring(k) or prefix .. "." .. tostring(k))
                local key = (prefix == "" and tostring(k) or prefix .. "." .. tostring(k))
if type(v) == "table" then
                if type(v) == "table" then
walk(v, key)
                    walk(v, key)
else
                else
flat[key] = format_value(v)
                    flat[key] = format_value(v)
end
                end
end
            end
end
        end
end
    end


walk(entry, "")
    walk(entry, "")


local parts = {}
    local parts = {}
for k, v in pairs(flat) do
    for k, v in pairs(flat) do
table.insert(parts, tostring(k) .. "=" .. tostring(v))
        table.insert(parts, tostring(k) .. "=" .. tostring(v))
end
    end
return table.concat(parts, "|")
    return table.concat(parts, "|")
end
end


return p
return p
Источник — https://station14.ru/wiki/Модуль:GetField