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

Интерактивная навигация по истории

← Предыдущая правка Следующая правка →

@@ Строка 1: / Строка 1: @@
 local p = {}
-function p.occurrences(frame)
+local function split(s, sep)
-  local args = frame.args
+	if s == nil then return {} end
-  local pageArg = args.page or args[1]
+	local parts = {}
-  local title
+	sep = sep or "%."
-  if pageArg and pageArg ~= "" then
+	for part in string.gmatch(s, "([^" .. sep .. "]+)") do
-    title = mw.title.new(pageArg)
+		table.insert(parts, part)
-  else
+	end
-    title = mw.title.getCurrentTitle()
+	return parts
-  end
+end
-  if not title or not title.exists then
+local function parse_indexed_part(part)
-    return 'Страница не найдена'
+	-- supports "key", "key[1]" and numeric "1" forms
-  end
+	local key, idx = string.match(part, "^(.-)%[(%d+)%]$")
+	if key then
+		return key, tonumber(idx)
+	end
+	-- numeric-only part (array index)
+	local num = tonumber(part)
+	if num then
+		return nil, num
+	end
+	return part, nil
+end
-  local content = title:getContent() or ''
+local function get_by_path(tbl, path)
-  local word = args.word or args.w or ''
+	if not tbl then return nil end
-  if word == '' then return 'Укажите word=...' end
+	local parts = split(path, "%.")
+	local cur = tbl
+	for _, part in ipairs(parts) do
+		local key, idx = parse_indexed_part(part)
+		if key and key ~= "" then
+			cur = cur[key]
+		end
+		if idx then
+			-- Lua tables from mw.loadData are 1-based for arrays, so we use the index directly.
+			if type(cur) ~= "table" then
+				return nil
+			end
+			cur = cur[idx]
+		end
+		if cur == nil then
+			return nil
+		end
+	end
+	return cur
+end
-  local lc = mw.ustring.lower(content)
+local function is_array(t)
-  local target = mw.ustring.lower(word)
+	if type(t) ~= "table" then return false end
-  local esc = mw.ustring.gsub(target, "([^%w])", "%%%1")
+	local i = 0
-  local pattern = '%f[%w]' .. esc .. '%f[%W]'
+	for _ in pairs(t) do
+		i = i + 1
+		-- if any key is not a number then not a pure array
+	end
+	-- We'll treat table as array if all keys are numeric 1..n
+	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 count = 0
+local function format_value(v)
-  for _ in mw.ustring.gmatch(lc, pattern) do
+	if v == nil then return "" end
-    count = count + 1
+	local t = type(v)
-  end
+	if t == "string" or t == "number" or t == "boolean" then
+		return tostring(v)
+	elseif t == "table" then
+		-- array-like: join with commas
+		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
+			-- associative table: "k: v" pairs joined by ", "
+			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
-  return tostring(count)
+-- Public entry point for invocation
+function p.get(frame)
+	local args = frame.args or {}
+	local id = args[1] or ""
+	local pagePath = args[2] or ""
+	local keyPath = args[3] or ""
+	-- Build module load path. The user requested appending to User:IanComradeBot/
+	local baseUser = "User:IanComradeBot/"
+	local moduleName = "Module:" .. baseUser .. pagePath .. "/data"
+	-- Try load
+	local ok, data = pcall(mw.loadData, moduleName)
+	if not ok or not data then
+		-- Fallback: try using pagePath directly as a Module name (in case the caller passed full path)
+		local altModuleName = "Module:" .. pagePath .. "/data"
+		ok, data = pcall(mw.loadData, altModuleName)
+		if not ok or not data then
+			return ""
+		end
+	end
+	-- Find by id, fallback to default
+	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
+		-- If no keyPath provided, return formatted entire entry
+		return format_value(entry)
+	end
+	local value = get_by_path(entry, keyPath)
+	return format_value(value)
 end
 return p