Space Station 14 Вики

Модуль:Сущность: различия между версиями

Интерактивная навигация по истории
← Предыдущая правка
Нет описания правки
Нет описания правки
 
(не показана 31 промежуточная версия этого же участника)
Строка 1: Строка 1:
local p = {}
local p = {}
local getArgs = require('Module:Arguments').getArgs
local getArgs = require('Module:Arguments').getArgs
local function trim(s)
    if not s then return s end
    return (s:gsub("^%s*(.-)%s*$", "%1"))
end
local function load_module_data(page)
    local baseUser = "IanComradeBot/"
    local moduleName = "Module:" .. baseUser .. page .. "/data"
    local ok, data = pcall(mw.loadData, moduleName)
    if not ok then return nil end
    return data
end
local function load_template_content(path)
    local title = mw.title.new("Template:" .. path)
    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
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 function makeTplCall(tplPath, sw, key, id, extra)
    local tplStr = "{{" .. tplPath .. "|" .. sw .. "|" .. key
    tplStr = tplStr .. "|id=" .. tostring(id)
    if extra and extra ~= "" then tplStr = tplStr .. "|" .. extra end
    tplStr = tplStr .. "}}"
    return tplStr
end
local function makeSourceLink(s)
    local className = s.name .. (s.kind and (s.kind:sub(1, 1):upper() .. s.kind:sub(2)) or "")
    local tplLabel = "Template:" .. s.tplPath
    return "[[" .. tplLabel .. "|" .. className .. "]]"
end
local function renderTitleBlock(key, tplCalls, sources, includeHeader, frame)
    local parts = {}
    if tplCalls and #tplCalls > 0 then
        for i, tpl in ipairs(tplCalls) do
            local add = true
            if frame then
                local expanded = frame:preprocess(tpl)
                add = expanded and trim(expanded) ~= ""
            end
            if add then
                local src = sources and sources[i]
                local line = '<div>' .. tpl .. '</div><div class="ts-Сущность-field">' .. makeSourceLink(src) .. '</div>'
                table.insert(parts, '<div class="ts-Сущность">' .. line .. '</div>')
            end
        end
        if #parts == 0 then
            return ""
        end
        if includeHeader then
            table.insert(parts, 1, "<h2>" .. mw.text.encode(key) .. "</h2>")
        end
    end
    return table.concat(parts, "\n")
end
local function buildCardCall(merged, entityId)
    local parts = {}
    -- id сущности
    if entityId and entityId ~= "" then
        parts[#parts + 1] = "id=" .. mw.text.encode(entityId)
    end
    -- типы
    if merged.tags and #merged.tags > 0 then
        table.sort(merged.tags)
        parts[#parts + 1] = "тип=" .. table.concat(merged.tags, ", ")
    end
    -- секции карточки
    if merged.sections and #merged.sections > 0 then
        table.sort(merged.sections, function(a, b)
            if a == "Сущность" then return true end
            if b == "Сущность" then return false end
            return a < b
        end)
        parts[#parts + 1] = "sections=" .. table.concat(merged.sections, ", ")
        for _, section in ipairs(merged.sections) do
            local labels = merged.labelLists[section]
            if labels and #labels > 0 then
                local enc = {}
                for i = 1, #labels do
                    enc[i] = mw.text.encode(labels[i])
                end
                parts[#parts + 1] = mw.text.encode(section) .. "=" .. table.concat(enc, ", ")
            end
        end
    end
    -- содержимое полей
    for compositeKey, displayLabel in pairs(merged.labelOverrides or {}) do
        if displayLabel and displayLabel ~= "" then
            parts[#parts + 1] = mw.text.encode(compositeKey .. "_label") .. "=" .. displayLabel
        end
    end
    for compositeKey, content in pairs(merged.contentByKey or {}) do
        if content and content ~= "" then
            parts[#parts + 1] = mw.text.encode(compositeKey) .. "=" .. content
        end
    end
    if #parts == 0 then
        return ""
    end
    return "{{карточка/сущность|" .. table.concat(parts, "|") .. "}}"
end
local function cardWrapper(frame, keyOrder, keyToTemplates, keySources, entityId, noHeaders)
    local merged = {
        sections = {},
        sectionsMap = {},
        labelLists = {},
        labelSets = {},
        labelOverrides = {},
        contentByKey = {},
        tags = {},
        tagSet = {}
    }
    for _, callKey in ipairs(keyOrder or {}) do
        local entries = keyToTemplates[callKey] or {}
        if #entries > 0 then
            table.sort(entries, function(a, b)
                if a.priority == b.priority then return a.idx < b.idx end
                return a.priority > b.priority
            end)
            for _, e in ipairs(entries) do
                local displayLabel = trim(frame:preprocess(e.tplLabel or "") or "")
                local content = trim(frame:preprocess(e.tplContent or "") or "")
                local tagText = ""
                if e.tplTag then
                    tagText = trim(frame:preprocess(e.tplTag or "") or "")
                end
                local compositeKey = (callKey:find("_", 1, true)) and callKey or ("Сущность_" .. callKey)
                local section = (callKey:find("_", 1, true)) and callKey:match("^([^_]+)") or "Сущность"
                if displayLabel ~= "" or content ~= "" then
                    if not merged.sectionsMap[section] then
                        merged.sectionsMap[section] = true
                        table.insert(merged.sections, section)
                    end
                    if displayLabel ~= "" and (not merged.labelOverrides[compositeKey] or merged.labelOverrides[compositeKey] == "") then
                        merged.labelOverrides[compositeKey] = displayLabel
                    end
                    if content ~= "" then
                        local prev = merged.contentByKey[compositeKey]
                        if prev and prev ~= "" then
                            merged.contentByKey[compositeKey] = prev .. "\n" .. content
                        else
                            merged.contentByKey[compositeKey] = content
                        end
                    end
                    merged.labelSets[section] = merged.labelSets[section] or {}
                    if not merged.labelSets[section][compositeKey] then
                        merged.labelSets[section][compositeKey] = true
                        local cur = merged.labelLists[section] or {}
                        table.insert(cur, compositeKey)
                        merged.labelLists[section] = cur
                    end
                    if tagText ~= "" then
                        if not merged.tagSet[tagText] then
                            merged.tagSet[tagText] = true
                            table.insert(merged.tags, tagText)
                        end
                    end
                end
            end
        end
    end
    if noHeaders then
        local hasLabel = false
        for _, v in pairs(merged.labelOverrides or {}) do
            if v and v ~= "" then hasLabel = true break end
        end
        if not hasLabel then
            for _, lst in pairs(merged.labelLists or {}) do
                if #lst > 0 then hasLabel = true break end
            end
        end
        local hasContent = false
        for _, v in pairs(merged.contentByKey or {}) do
            if v and v ~= "" then hasContent = true break end
        end
        if not hasLabel and not hasContent then
            return ""
        end
    end
    return buildCardCall(merged, entityId)
end
local switches = { "card", "title" }
local switchConfigs = {
    card = {
        wrapper = cardWrapper,
        fullCard = true
    },
    title = {
        wrapper = function(key, tplCalls, sources, frame)
            return renderTitleBlock(key, tplCalls, sources, true, frame)
        end
    }
}
local function getTemplateMeta(frame, tplPath)
    local expanded = frame:expandTemplate {
        title = tplPath,
        args = { "json" }
    }
    local ok, data = pcall(mw.text.jsonDecode, expanded)
    if ok and type(data) == "table" then
        return data
    end
    return ""
end
local function parseListArg(str)
    local res = {}
    if not str or str == "" then return res end
    for item in string.gmatch(str, "[^,]+") do
        local s = trim(item)
        if s ~= "" then
            local a, b = s:match("^([^_]+)_(.+)$")
            if a and b then
                res[a] = res[a] or {}
                res[a][b] = true
            end
        end
    end
    return res
end
local function renderBlocks(frame, switchesTbl, configs, keyOrder, keyToTemplates, keySources, noHeaders, entityId)
    local outLocal = {}
    for _, sw in ipairs(switchesTbl) do
        local cfg = configs[sw] or {}
        if cfg.fullCard and sw == "card" then
            local outStr = cfg.wrapper(frame, keyOrder[sw], keyToTemplates[sw], keySources[sw], entityId, noHeaders)
            if outStr and outStr ~= "" then table.insert(outLocal, outStr) end
        else
            for _, key in ipairs(keyOrder[sw] or {}) do
                local entries = keyToTemplates[sw][key] or {}
                local tplCalls = {}
                local sources = {}
                if #entries > 0 then
                    table.sort(entries, function(a, b)
                        if a.priority == b.priority then return a.idx < b.idx end
                        return a.priority > b.priority
                    end)
                    for _, e in ipairs(entries) do
                        table.insert(tplCalls, e.tpl)
                        table.insert(sources, e.source)
                    end
                end
                if noHeaders and sw == "title" then
                    local outStr = renderTitleBlock(key, tplCalls, sources, false, frame)
                    if outStr and outStr ~= "" then table.insert(outLocal, outStr) end
                else
                    if cfg.wrapper then
                        local outStr = cfg.wrapper(key, tplCalls, sources, frame)
                        if outStr and outStr ~= "" then table.insert(outLocal, outStr) end
                    end
                end
            end
        end
    end
    return outLocal
end
function p.get(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local id = args[1] or ""
    if id == "" then return "" end
    local blacklist = parseListArg(args.blacklist or "")
    local whitelist = parseListArg(args.whitelist or "")
    local hasWhitelist = next(whitelist) ~= nil
    local ignoreComponents = args.ignoreComponents or args.ignoreComponent or ""
    local ignorePrototypes = args.ignorePrototypes or args.ignorePrototype or ""
    local componentDefs = load_module_data("component.json")
    local prototypeStoreDefs = load_module_data("prototype_store.json")
    local componentStoreDefs = load_module_data("component_store.json")
    if not componentDefs or not prototypeStoreDefs or not componentStoreDefs then return "" end
    local foundComponents, 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
    for name in string.gmatch(id, "[^,]+") do
        local n = trim(name)
        if n ~= "" and n ~= id then
            if componentDefs[n] ~= nil then
                foundComponents[n] = true
            elseif prototypeStoreDefs[n] ~= nil then
                foundPrototypes[n] = true
            end
        end
    end
    if ignoreComponents ~= "" then
        for item in string.gmatch(ignoreComponents, "[^,]+") do
            local name = trim(item)
            if name ~= "" then foundComponents[name] = nil end
        end
    end
    if ignorePrototypes ~= "" then
        for item in string.gmatch(ignorePrototypes, "[^,]+") do
            local name = trim(item)
            if name ~= "" then foundPrototypes[name] = nil end
        end
    end
    local switchKeyOrder, switchKeyToTemplates, switchKeySources = {}, {}, {}
    for _, sw in ipairs(switches) do
        switchKeyOrder[sw] = {}; switchKeyToTemplates[sw] = {}; switchKeySources[sw] = {}
    end
    local ok, dp = pcall(require, "Module:GetField")
    local errors = {}
    local function processEntity(kind, name, isStore)
        local pathName = lcfirst(name)
        local tplPath = kind .. "/" .. pathName
        if isStore then
            tplPath = tplPath .. "/store"
        end
        local content = load_template_content(tplPath)
        if not content then
            if hasWhitelist then
                return
            end
            local baseType = (kind and (kind:sub(1, 1):upper() .. kind:sub(2)) or "")
            local classType = baseType
            if isStore then classType = classType .. "Store" end
            local className = name .. baseType
            local tplLabel = "Template:" .. tplPath
            table.insert(errors,
                "{{сущность/infobox/base|тип=" .. classType .. "|название=" .. className .. "|ссылка=" .. tplLabel .. "}}")
            return
        end
        local parsed = getTemplateMeta(frame, tplPath)
        for _, sw in ipairs(switches) do
            local keys = parsed[sw] or {}
            for _, key in ipairs(keys) do
                local skip = false
                if next(whitelist) ~= nil then
                    if not (whitelist[sw] and whitelist[sw][key]) then skip = true end
                else
                    if blacklist[sw] and blacklist[sw][key] then skip = true end
                end
                if not skip then
                    if not switchKeyToTemplates[sw][key] then
                        switchKeyToTemplates[sw][key] = {}
                        table.insert(switchKeyOrder[sw], key)
                    end
                    local extra = ""
                    if ok and dp and dp.flattenField then
                        local dataPage = tplPath .. ".json"
                        extra = dp.flattenField({ args = { id, dataPage } })
                    end
                    local tplStr
                    local tplLabelStr, tplContentStr, tplTagStr
                    if sw == "card" then
                        tplLabelStr = makeTplCall(tplPath, "cardLabel", key, id, extra)
                        tplContentStr = makeTplCall(tplPath, "cardContent", key, id, extra)
                        tplTagStr = makeTplCall(tplPath, "cardTag", key, id, extra)
                    else
                        tplStr = makeTplCall(tplPath, sw, key, id, extra)
                    end
                    local priority = 1
                    if parsed and parsed.priority ~= nil then
                        if type(parsed.priority) == "number" then
                            priority = parsed.priority
                        else
                            local pnum = tonumber(parsed.priority)
                            if pnum then priority = pnum end
                        end
                    end
                    local entry
                    if sw == "card" then
                        entry = {
                            tplLabel = tplLabelStr,
                            tplContent = tplContentStr,
                            tplTag = tplTagStr,
                            source = { kind = kind, name = name, pathName = pathName, tplPath = tplPath },
                            priority = priority,
                            idx = #switchKeyToTemplates[sw][key] + 1
                        }
                    else
                        entry = {
                            tpl = tplStr,
                            source = { kind = kind, name = name, pathName = pathName, tplPath = tplPath },
                            priority = priority,
                            idx = #switchKeyToTemplates[sw][key] + 1
                        }
                    end
                    table.insert(switchKeyToTemplates[sw][key], entry)
                end
            end
        end
    end
    for compName, _ in pairs(foundComponents) do processEntity("component", compName, false) end
    for protoName, _ in pairs(foundPrototypes) do processEntity("prototype", protoName, false) end
    if type(componentStoreDefs) == "table" then
        local compStore = componentStoreDefs[id]
        if type(compStore) == "table" then
            for compName in pairs(compStore) do
                processEntity("component", compName, true)
            end
        end
    end
    if type(prototypeStoreDefs) == "table" then
        local protoStore = prototypeStoreDefs[id]
        if type(protoStore) == "table" then
            for protoName in pairs(protoStore) do
                processEntity("prototype", protoName, true)
            end
        end
    end
    local out = {}
    if #errors > 0 then
        table.insert(out, '{{сущность/infobox|' .. table.concat(errors, "\n") .. '}}')
    end
    local blocks = renderBlocks(frame, switches, switchConfigs, switchKeyOrder, switchKeyToTemplates, switchKeySources,
        hasWhitelist, id)
    for _, b in ipairs(blocks) do table.insert(out, b) end
    return frame:preprocess(table.concat(out, "\n") .. "[[Категория:Сущности]]")
end
function p.preview(frame)
    local args = getArgs(frame, { removeBlanks = false })
    local tplPath = args[1] or ""
    if tplPath == "" then return "" end
    local content = load_template_content(tplPath)
    if not content then
        return ""
    end
    local parsed = getTemplateMeta(frame, tplPath) or {}
    local switchKeyOrder, switchKeyToTemplates, switchKeySources = {}, {}, {}
    for _, sw in ipairs(switches) do
        switchKeyOrder[sw] = {}; switchKeyToTemplates[sw] = {}; switchKeySources[sw] = {}
    end
    for _, sw in ipairs(switches) do
        local keys = parsed[sw] or {}
        for idx, key in ipairs(keys) do
            if not switchKeyToTemplates[sw][key] then
                switchKeyToTemplates[sw][key] = {}
                table.insert(switchKeyOrder[sw], key)
            end
            local entry
            if sw == "card" then
                entry = {
                    tplLabel = makeTplCall(tplPath, "cardLabel", key, ""),
                    tplContent = makeTplCall(tplPath, "cardContent", key, ""),
                    source = { kind = "", name = tplPath, pathName = tplPath, tplPath = tplPath },
                    priority = 1,
                    idx = #switchKeyToTemplates[sw][key] + 1
                }
            else
                entry = {
                    tpl = makeTplCall(tplPath, sw, key, ""),
                    source = { kind = "", name = tplPath, pathName = tplPath, tplPath = tplPath },
                    priority = 1,
                    idx = #switchKeyToTemplates[sw][key] + 1
                }
            end
            table.insert(switchKeyToTemplates[sw][key], entry)
        end
    end
    local whitelist = parseListArg(args.whitelist or "")
    local hasWhitelist = next(whitelist) ~= nil
    local out = {}
    local blocks = renderBlocks(frame, switches, switchConfigs, switchKeyOrder, switchKeyToTemplates, switchKeySources,
        hasWhitelist, "")
    for _, b in ipairs(blocks) do table.insert(out, b) end
    return frame:preprocess(table.concat(out, "\n"))
end


local function is_array(tbl)
local function is_array(tbl)
Строка 551: Строка 35:


     return (text:gsub(patt, replacement))
     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 = "{{ajax|<nowiki>{{#invoke:Сущность/data|get|" .. id .. params .. "}}</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.json(frame)
     local args = getArgs(frame, { removeBlanks = false })
     local args = getArgs(frame, { removeBlanks = false })
     local jsonStr = mw.text.unstripNoWiki(trim(args[1] or args.json or ""))
     local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
     local tplPath = trim(args[2] or args.template or "")
     local tplPath = mw.text.unstripNoWiki(args[2] or args.template or "")
     if jsonStr == "" or tplPath == "" then return "" end
     if jsonStr == "" or tplPath == "" then return "" end


Строка 563: Строка 81:
         return ""
         return ""
     end
     end
    local okDp, dp = pcall(require, "Module:GetField")


     local calls = {}
     local calls = {}
Строка 570: Строка 90:
         local parts = { "{{" .. tplPath, "id=" .. id }
         local parts = { "{{" .. tplPath, "id=" .. id }
         if type(obj) == "table" then
         if type(obj) == "table" then
             for k, v in pairs(obj) do
             if okDp and dp and type(dp.flattenParams) == "function" then
                if v ~= nil then
                local extra = dp.flattenParams(obj)
                    parts[#parts + 1] = tostring(k) .. "=" .. tostring(v)
                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
Строка 598: Строка 125:
     end
     end


     local rendered = table.concat(calls, "\n")
     local rendered = table.concat(calls, " ")
     return frame:preprocess(rendered)
     return frame:preprocess(rendered)
end
end
Строка 604: Строка 131:
function p.jsonList(frame)
function p.jsonList(frame)
     local args = getArgs(frame, { removeBlanks = false })
     local args = getArgs(frame, { removeBlanks = false })
     local jsonStr = mw.text.unstripNoWiki(trim(args[1] or args.json or ""))
     local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
     if jsonStr == "" then return "" end
     if jsonStr == "" then return "" end


Строка 616: Строка 143:
     local bullet = mw.text.unstripNoWiki(args.prefix or "* ")
     local bullet = mw.text.unstripNoWiki(args.prefix or "* ")
     local sep = mw.text.unstripNoWiki(args.sep 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 keyPattern = mw.text.unstripNoWiki(args.key_pattern or "(.*)")
     local keyReplace = mw.text.unstripNoWiki(args.key_replace or "\\1")
     local keyReplace = mw.text.unstripNoWiki(args.key_replace or "\\1")
Строка 621: Строка 152:
     local valueReplace = mw.text.unstripNoWiki(args.value_replace or "\\1")
     local valueReplace = mw.text.unstripNoWiki(args.value_replace or "\\1")


     local pairPattern = mw.text.unstripNoWiki(args.pattern or "")
     local pairPattern = mw.text.unstripNoWiki(args.pattern or "(.*)")
     local pairReplace = mw.text.unstripNoWiki(args.replace or "\\1")
     local pairReplace = mw.text.unstripNoWiki(args.replace or "\\1")


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