@@ Строка 1: / Строка 1: @@
 local p = {}
-local rules = {
+local function trim(s)
-    {"ия$", "ия", "ии"},     -- стратегия -> стратегии
+	if not s then return s end
-    {"ие$", "ие", "ия"},     -- здание -> здания
+	return (s:gsub("^%s*(.-)%s*$", "%1"))
-    {"ка$", "ка", "ки"},     -- собака -> собаки
+end
-    {"ок$", "ок", "ки"},     -- носок -> носки
-    {"ец$", "ец", "цы"},     -- столбец -> столбцы
-    {"ье$", "ье", "ья"},     -- зелье -> зелья
-    {"ый$", "ый", "ые"},     -- малый -> малые, новый -> новые
-    {"ий$", "ий", "ие"},     -- синий -> синие
-    {"ой$", "ой", "ие"},     -- большой -> большие
-    {"ое$", "ое", "ые"},     -- холодное -> холодные
-    {"ее$", "ее", "ие"},     -- синее -> синие
-    {"т$", "т", "ты"},       -- предмет -> предметы
-    {"е$", "е", "я"},        -- поле -> поля
-    {"й$", "й", "и"},        -- край -> края
-    {"ь$", "ь", "и"},        -- лошадь -> лошади
-    {"о$", "о", "а"}         -- окно -> окна
-}
-function p.main(frame)
+local function split(s, sep)
-    local text = frame.args[1] or ""
+	if s == nil then return {} end
-    local words = {}
+	local parts = {}
-    for word in text:gmatch("%S+") do
+	sep = sep or "%."
-        -- Если слово заканчивается на "о" или "я", оставляем без изменений,
+	for part in string.gmatch(s, "([^" .. sep .. "]+)") do
-        -- за исключением случаев, когда слово оканчивается на "мя" (например, "время")
+		table.insert(parts, part)
-        if word:match("[оя]$") and not word:match("мя$") then
+	end
-            table.insert(words, word)
+	return parts
-        else
+end
-            local pluralized = nil
-            for _, rule in ipairs(rules) do
+local function parse_keys_from_template(content)
-                if word:match(rule[1]) then
+	if not content then return {} end
-                    pluralized = word:gsub(rule[2] .. "$", rule[3])
+	local keys = {}
-                    break
+	local lower = content:lower()
-                end
+	local titlePos = lower:find("|%s*title%s*=")
-            end
+	if not titlePos then
-            if not pluralized then
+		return keys
-                pluralized = word
+	end
-            end
-            table.insert(words, pluralized)
+	local startBrace = content:find("{{", titlePos)
-        end
+	local region = nil
-    end
+	if startBrace then
-    return table.concat(words, " ")
+		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 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
+function p.get(frame)
+	local args = frame.args or {}
+	local id = args[1] or ""
+	if id == "" then return "" end
+	local componentDefs = load_module_data("component.json")
+	local prototypeDefs = load_module_data("prototype.json")
+	if not componentDefs or not prototypeDefs then
+		return ""
+	end
+	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: различия между версиями