|
|
| (не показано 8 промежуточных версий этого же участника) |
| Строка 2: |
Строка 2: |
| local getArgs = require('Module:Arguments').getArgs | | local getArgs = require('Module:Arguments').getArgs |
|
| |
|
| local function is_array(tbl)
| | function p.main(frame) |
| local max = 0
| |
| local count = 0
| |
| for k in pairs(tbl) do
| |
| if type(k) ~= "number" then
| |
| return false
| |
| end
| |
| if k > max then max = k end
| |
| count = count + 1
| |
| end
| |
| return count > 0 and max == count
| |
| end
| |
| | |
| local function apply_pattern(s, pattern, repl)
| |
| if not pattern or pattern == "" or not s then
| |
| return s
| |
| end
| |
| | |
| local text = tostring(s)
| |
| local replacement
| |
| if repl and repl ~= "" then
| |
| replacement = tostring(repl)
| |
| replacement = replacement:gsub("\\(%d)", "%%%1")
| |
| else
| |
| replacement = "%1"
| |
| end
| |
| | |
| local patt = pattern
| |
| if not patt:find("%^") and not patt:find("%$") then
| |
| patt = "^" .. patt .. "$"
| |
| end
| |
| | |
| 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
| |
| | |
| return frame:preprocess('{{#invoke:Сущность/data|get|' .. id .. '|whitelist=' .. args.whitelist or "" .. '|blacklist=' .. args.blacklist or "" .. '}}[[Категория:Сущности]]') -- '{{ajax|<nowiki>{{#invoke:Сущность/data|get|' .. id .. '|whitelist=' .. args.whitelist or "" .. '|blacklist=' .. args.blacklist or "" .. '}}</nowiki>|auto}}[[Категория:Сущности]]'
| |
| end
| |
| | |
| function p.preview(frame)
| |
| local args = getArgs(frame, { removeBlanks = false })
| |
| local id = args[1] or ""
| |
| if id == "" then return "" end
| |
| | |
| return frame:preprocess('{{#invoke:Сущность/data|preview|' .. id .. '}}') -- '{{ajax|<nowiki>{{#invoke:Сущность/data|get|' .. id .. '}}</nowiki>|auto}}[[Категория:Сущности]]'
| |
| end
| |
| | |
| function p.json(frame) | |
| local args = getArgs(frame, { removeBlanks = false }) | | local args = getArgs(frame, { removeBlanks = false }) |
| local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "") | | local name = args[1] or "" |
| local tplPath = mw.text.unstripNoWiki(args[2] or args.template or "") | | local attributes = args[2] or "" |
| if jsonStr == "" or tplPath == "" then return "" end | | if name == "" then |
| | | return "<span class=\"error\">Ошибка: не указано имя файла.</span>" |
| local ok, data = pcall(mw.text.jsonDecode, jsonStr)
| |
| if not ok or type(data) ~= "table" then
| |
| return ""
| |
| end | | end |
| | local ext = (args["ext"] or "png"):gsub("^%.", "") |
| | local namespace = args["namespace"] or "Файл" |
| | local max = tonumber(args["max"]) or 50 |
| | local include_base = (args["base"] ~= "no") |
|
| |
|
| local okDp, dp = pcall(require, "Module:GetField") | | local found = {} |
| | |
| local calls = {}
| |
|
| |
|
| local function makeCall(id, obj) | | if include_base then |
| if type(id) ~= "string" then return end
| | local t = mw.title.new("Файл:" .. name .. "." .. ext) |
| local parts = { "{{" .. tplPath, "id=" .. id } | | if t and t.exists then |
| if type(obj) == "table" then | | table.insert(found, "") |
| if okDp and dp and type(dp.flattenParams) == "function" then
| |
| local extra = dp.flattenParams(obj)
| |
| 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 |
| parts[#parts + 1] = "}}"
| |
| calls[#calls + 1] = table.concat(parts, "|")
| |
| end | | end |
|
| |
|
| if is_array(data) then | | for i = 1, max do |
| for _, item in ipairs(data) do
| | local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext) |
| if type(item) == "table" then
| | if t and t.exists then |
| for k, v in pairs(item) do
| | table.insert(found, "-" .. i) |
| makeCall(k, v)
| |
| end
| |
| end
| |
| end | | end |
| else
| |
| for k, v in pairs(data) do
| |
| makeCall(k, v)
| |
| end
| |
| end
| |
|
| |
| if #calls == 0 then
| |
| return ""
| |
| end | | end |
|
| |
|
| local rendered = table.concat(calls, " ")
| | if #found == 0 then |
| return frame:preprocess(rendered)
| |
| end
| |
| | |
| function p.jsonList(frame)
| |
| local args = getArgs(frame, { removeBlanks = false })
| |
| local jsonStr = mw.text.unstripNoWiki(args[1] or args.json or "")
| |
| if jsonStr == "" then return "" end | |
| | |
| local ok, data = pcall(mw.text.jsonDecode, jsonStr)
| |
| if not ok or type(data) ~= "table" then
| |
| return "" | | return "" |
| end | | end |
|
| |
|
| local outputType = (args.type or "list"):lower() | | local before = "[[" .. namespace .. ":" .. name |
| | | local after = "." .. ext .. "|" .. attributes .. "]]" |
| local bullet = mw.text.unstripNoWiki(args.prefix 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 keyReplace = mw.text.unstripNoWiki(args.key_replace or "\\1")
| |
| local valuePattern = mw.text.unstripNoWiki(args.value_pattern or "(.*)") | |
| local valueReplace = mw.text.unstripNoWiki(args.value_replace or "\\1")
| |
| | |
| local pairPattern = mw.text.unstripNoWiki(args.pattern or "(.*)")
| |
| local pairReplace = mw.text.unstripNoWiki(args.replace or "\\1")
| |
| | |
| local out = {}
| |
| | |
| if is_array(data) then
| |
| for _, v in ipairs(data) do
| |
| local text = ""
| |
| | |
| if type(v) == "table" then
| |
| if is_array(v) then
| |
| text = table.concat(v, ", ")
| |
| else
| |
| local okJson, jsonVal = pcall(mw.text.jsonEncode, v)
| |
| if okJson and jsonVal then
| |
| text = jsonVal
| |
| end
| |
| end
| |
| else
| |
| text = tostring(v)
| |
| end
| |
| | |
| if text ~= "" then
| |
| local patt = valuePattern ~= "" and valuePattern or keyPattern
| |
| local repl = valueReplace ~= "" and valueReplace or keyReplace
| |
| text = apply_pattern(text, patt, repl)
| |
| | |
| local line
| |
| if outputType == "enum" then
| |
| line = text
| |
| else
| |
| line = bullet .. text
| |
| end
| |
| | |
| if pairPattern ~= "" then
| |
| line = apply_pattern(line, pairPattern, pairReplace)
| |
| end
| |
| | |
| table.insert(out, line)
| |
| end
| |
| end
| |
| else
| |
| local keys = {}
| |
| for k in pairs(data) do
| |
| keys[#keys + 1] = k
| |
| end
| |
| table.sort(keys, function(a, b) return tostring(a) < tostring(b) end)
| |
| | |
| for _, k in ipairs(keys) do
| |
| local v = data[k]
| |
| local vStr
| |
| | |
| if type(v) == "table" then
| |
| local okJson, jsonVal = pcall(mw.text.jsonEncode, v)
| |
| if okJson and jsonVal then
| |
| vStr = jsonVal
| |
| else
| |
| vStr = ""
| |
| end
| |
| else
| |
| vStr = tostring(v)
| |
| end
| |
| | |
| local baseKey = apply_pattern(tostring(k), keyPattern, "\\1")
| |
| | |
| local MARK_KEY = "\31KEY\31"
| |
| local vRepl = (valueReplace or "\\1"):gsub("\\2", MARK_KEY)
| |
| local vStr0 = apply_pattern(vStr, valuePattern, vRepl)
| |
| vStr0 = tostring(vStr0):gsub(MARK_KEY, baseKey)
| |
| | |
| local MARK_VAL = "\31VAL\31"
| |
| local kRepl = (keyReplace or "\\1"):gsub("\\2", MARK_VAL)
| |
| local keyStr0 = apply_pattern(tostring(k), keyPattern, kRepl)
| |
| local keyStr = tostring(keyStr0):gsub(MARK_VAL, vStr0)
| |
| | |
| vStr = vStr0
| |
| | |
| if vStr ~= "" then
| |
| local line
| |
| if outputType == "enum" then
| |
| line = vStr .. " " .. keyStr
| |
| else
| |
| line = bullet .. keyStr .. sep .. vStr
| |
| end
| |
| | |
| if pairPattern ~= "" then
| |
| line = apply_pattern(line, pairPattern, pairReplace)
| |
| end
| |
|
| |
|
| table.insert(out, line)
| | local parts = {} |
| end
| | table.insert(parts, "<choose before=\"" .. before .. "\" after=\"" .. after .. "\">") |
| end | | for _, suf in ipairs(found) do |
| | table.insert(parts, "<option>" .. suf .. "</option>") |
| end | | end |
| | table.insert(parts, "</choose>") |
|
| |
|
| if outputType == "enum" then | | return frame:preprocess(table.concat(parts, "\n")) |
| return frame:preprocess(table.concat(out, ", "))
| |
| else
| |
| return frame:preprocess(table.concat(out, "\n"))
| |
| end
| |
| end | | end |
|
| |
|
| return p | | return p |
Для документации этого модуля может быть создана страница Модуль:Песочница/Pok/doc
local p = {}
local getArgs = require('Module:Arguments').getArgs
function p.main(frame)
local args = getArgs(frame, { removeBlanks = false })
local name = args[1] or ""
local attributes = args[2] or ""
if name == "" then
return "<span class=\"error\">Ошибка: не указано имя файла.</span>"
end
local ext = (args["ext"] or "png"):gsub("^%.", "")
local namespace = args["namespace"] or "Файл"
local max = tonumber(args["max"]) or 50
local include_base = (args["base"] ~= "no")
local found = {}
if include_base then
local t = mw.title.new("Файл:" .. name .. "." .. ext)
if t and t.exists then
table.insert(found, "")
end
end
for i = 1, max do
local t = mw.title.new("Файл:" .. name .. "-" .. i .. "." .. ext)
if t and t.exists then
table.insert(found, "-" .. i)
end
end
if #found == 0 then
return ""
end
local before = "[[" .. namespace .. ":" .. name
local after = "." .. ext .. "|" .. attributes .. "]]"
local parts = {}
table.insert(parts, "<choose before=\"" .. before .. "\" after=\"" .. after .. "\">")
for _, suf in ipairs(found) do
table.insert(parts, "<option>" .. suf .. "</option>")
end
table.insert(parts, "</choose>")
return frame:preprocess(table.concat(parts, "\n"))
end
return p
