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

мНет описания правки
Метки: ручная отмена отменено
Нет описания правки
 
(не показано 9 промежуточных версий этого же участника)
Строка 12: Строка 12:


local function split_first_underscore(k)
local function split_first_underscore(k)
     local a, b = k:match('^([^_]+)_(.+)$')
     local pos = k:find('_', 1, true)
     return a, b
    if not pos or pos == 1 or pos == #k then
        return nil, nil
    end
     return k:sub(1, pos - 1), k:sub(pos + 1)
end
end


local function collect_labels_from_args(args)
local function each_compound_arg(args, fn)
    local meta = {}
    local seen = {}
 
     for k, v in pairs(args) do
     for k, v in pairs(args) do
         if type(k) == 'string' and k:find('_', 1, true) then
         if type(k) == 'string' and k:find('_', 1, true) then
             local base, rem = split_first_underscore(k)
             local base, rem = split_first_underscore(k)
             if base and rem then
             if base and rem then
                 local label = trim(strip_trailing_digits(rem))
                 fn(base, rem, v)
                if label ~= '' then
                    meta[base] = meta[base] or {}
                    if not seen[base] then seen[base] = {} end
                    if not seen[base][label] then
                        table.insert(meta[base], label)
                        seen[base][label] = true
                    end
                end
             end
             end
         end
         end
     end
     end
end
local function collect_labels_from_args(args)
    local meta = {}
    local seen = {}
    each_compound_arg(args, function(base, rem)
        local label = trim(strip_trailing_digits(rem))
        if label ~= '' then
            meta[base] = meta[base] or {}
            if not seen[base] then seen[base] = {} end
            if not seen[base][label] then
                table.insert(meta[base], label)
                seen[base][label] = true
            end
        end
    end)


     for k, v in pairs(args) do
     for k, v in pairs(args) do
Строка 46: Строка 55:
end
end


local function render_from_args(args)
local function get_raw_arg(sources, key)
     local field = args[1]
    for _, source in ipairs(sources) do
     local label = args[2]
        if source and source[key] ~= nil then
            return source[key]
        end
    end
    return nil
end
 
local function render_from_frame(frame)
    local parent = frame:getParent()
    local sources = { frame.args, parent and parent.args }
     local field = get_raw_arg(sources, 1)
     local label = get_raw_arg(sources, 2)
     field = field and trim(field) or ''
     field = field and trim(field) or ''
     label = label and trim(label) or ''
     label = label and trim(label) or ''


     -- map base -> label -> value
     if field ~= '' and label ~= '' then
    local map = {}
        local value = get_raw_arg(sources, field .. '_' .. label)
    for k, v in pairs(args) do
        if value ~= nil then
        if type(k) == 'string' and k:find('_', 1, true) then
            return tostring(value)
            local base, rem = split_first_underscore(k)
            if base and rem then
                local lab = strip_trailing_digits(rem)
                lab = trim(lab)
                map[base] = map[base] or {}
                local cur = map[base][lab]
                if cur then
                    map[base][lab] = cur .. '\n' .. tostring(v)
                else
                    map[base][lab] = tostring(v)
                end
            end
         end
         end
     end
     end


     if field ~= '' and label ~= '' then
     if field ~= '' then
         local base = map[field]
         local value = get_raw_arg(sources, field)
         if base then return base[label] or '' end
         if value ~= nil then
        return ''
            return trim(tostring(value))
    end
         end
 
    if args[1] and args[2] then
        local f = trim(args[1]); local l = trim(args[2])
         local base = map[f]
        if base then return base[l] or '' end
     end
     end


Строка 87: Строка 90:


function p.main(frame)
function p.main(frame)
     local args = getArgs(frame, { removeBlanks = false })
     local parent = frame:getParent()
     local field = args[1]
     local field = get_raw_arg({ frame.args, parent and parent.args }, 1)


     if field == "json" then
     if field == "json" then
        local args = getArgs(frame, { removeBlanks = false })
         local json = collect_labels_from_args(args)
         local json = collect_labels_from_args(args)
         return mw.text.jsonEncode(json)
         return mw.text.jsonEncode(json)
     end
     end


     return render_from_args(args)
     return render_from_frame(frame)
end
end


return p
return p