@@ Строка 1: / Строка 1: @@
 local p = {}
-function p.main(frame)
+local function trim(s)
-    local args = frame.args
+	if not s then return s end
+	return (s:gsub("^%s*(.-)%s*$", "%1"))
+end
-    local id = args[1]
+local function split(s, sep)
-    if not id then
+	if s == nil then return {} end
-        return "Ошибка: не указан обязательный параметр id."
+	local parts = {}
-    end
+	sep = sep or "%."
+	for part in string.gmatch(s, "([^" .. sep .. "]+)") do
+		table.insert(parts, part)
+	end
+	return parts
+end
-    local itemStack = frame:preprocess(string.format('{{#invoke:Prototypes/Хранилище/Предмет|main|framing|stack|%s}}', id))
+local function parse_keys_from_template(content)
-    local itemContained = frame:preprocess(string.format('{{#invoke:Prototypes/Хранилище/Предмет|main|framing|contained|%s}}', id))
+	if not content then return {} end
-    local itemSlot = frame:preprocess(string.format('{{#invoke:Prototypes/Хранилище/Предмет|main|framing|slot|%s}}', id))
+	local keys = {}
-    local itemChem = frame:preprocess(string.format('{{СollapsibleMenu|color=#3e7c82|{{#invoke:Prototypes/Хранилище/Предмет|main|chem|%s}}}}', id))
+	local lower = content:lower()
+	local titlePos = lower:find("|%s*title%s*=")
-    local itemName = frame:preprocess("{{#invoke:Entity Lookup|getname|" .. id .. "}}")
+	if not titlePos then
+		return keys
+	end
+	local startBrace = content:find("{{", titlePos)
+	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(titlePos)
+		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(keys, k)
+		end
+	end
+	return keys
+end
-    local prefix = args[2] or ""
+local function load_module_data(page)
-    local label = args["label"]
+	local baseUser = "IanComradeBot/"
-    if label == nil then
+	local moduleName = "Module:" .. baseUser .. page .. "/data"
-        label = itemName
+	local ok, data = pcall(mw.loadData, moduleName)
-    end
+	if not ok then return nil end
+	return data
+end
-    local image
+local function load_template_content(path)
-    local size = args["size"] or "32px"
+	local title = mw.title.new("Template:" .. path)
-    if args["image"] then
+	if not title then return nil end
-        image = string.format("[[Файл:%s|%s]]", args["image"], size)
+	local ok, content = pcall(function() return title:getContent() end)
-    else
+	if not ok then return nil end
-        image = string.format("[[Файл:%s.png|%s]]", id, size)
+	return content
-    end
+end
-    local labelOutput = label
+function p.get(frame)
-    if args["link"] then
+	local args = frame.args or {}
-        local linkTarget = args["link"]
+	local id = args[1] or ""
-        if linkTarget == "" then
+	if id == "" then return "" end
-            linkTarget = itemName
-        end
-        if label ~= "" then
-            labelOutput = string.format("[[%s|%s]]", linkTarget, label)
-        else
-            labelOutput = ""
-        end
-    end
-    local result = image .. " "
+	local componentDefs = load_module_data("component.json")
-    if args["repository"] then
+	local prototypeDefs = load_module_data("prototype.json")
-        result = result .. itemStack .. " " .. labelOutput .. " " .. itemContained .. " " .. itemSlot .. " " .. itemChem
+	if not componentDefs or not prototypeDefs then
-    else
+		return ""
-        result = result .. prefix .. " " .. labelOutput
+	end
-    end
-    return frame:preprocess("<span>" .. result .. "</span>")
+	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 keyOrder = {}
+	local keyToTemplates = {}
+	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
+	for compName,_ in pairs(foundComponents) do
+		local compPathName = lcfirst(compName)
+		local tplPath = "component/" .. compPathName
+		local content = load_template_content(tplPath)
+		if not content then
+			table.insert(errors, "Ошибка: не найден шаблон component/" .. compPathName)
+		else
+			local keys = parse_keys_from_template(content)
+			for _, key in ipairs(keys) do
+				if not keyToTemplates[key] then
+					keyToTemplates[key] = {}
+					table.insert(keyOrder, key)
+				end
+				table.insert(keyToTemplates[key], "{{" .. tplPath .. "|title|" .. key .. "}}")
+			end
+		end
+	end
+	for protoName,_ in pairs(foundPrototypes) do
+		local protoPathName = lcfirst(protoName)
+		local tplPath = "prototype/" .. protoPathName
+		local content = load_template_content(tplPath)
+		if not content then
+			table.insert(errors, "Ошибка: не найден шаблон prototype/" .. protoPathName)
+		else
+			local keys = parse_keys_from_template(content)
+			for _, key in ipairs(keys) do
+				if not keyToTemplates[key] then
+					keyToTemplates[key] = {}
+					table.insert(keyOrder, key)
+				end
+				table.insert(keyToTemplates[key], "{{" .. tplPath .. "|title|" .. key .. "}}")
+			end
+		end
+	end
+	for _, e in ipairs(errors) do
+		table.insert(out, "<div class=\"error\">" .. mw.text.encode(e) .. "</div>")
+	end
+	for _, key in ipairs(keyOrder) do
+		table.insert(out, "<h2>" .. mw.text.encode(key) .. "</h2>")
+		for _, tplCall in ipairs(keyToTemplates[key]) do
+			table.insert(out, tplCall)
+		end
+	end
+	return frame:preprocess(table.concat(out, "\n\n"))
 end
 return p

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