Space Station 14 Вики

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

Интерактивная навигация по истории
← Предыдущая правка
мНет описания правки
Метка: отменено
Нет описания правки
 
(не показано 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
 
local function each_compound_arg(args, fn)
    for k, v in pairs(args) do
        if type(k) == 'string' and k:find('_', 1, true) then
            local base, rem = split_first_underscore(k)
            if base and rem then
                fn(base, rem, v)
            end
        end
     end
end
end


Строка 20: Строка 34:
     local seen = {}
     local seen = {}


     for k, v in pairs(args) do
     each_compound_arg(args, function(base, rem)
        if type(k) == 'string' and k:find('_', 1, true) then
        local label = trim(strip_trailing_digits(rem))
            local vs = v ~= nil and trim(tostring(v)) or ''
        if label ~= '' then
            if vs ~= '' then
            meta[base] = meta[base] or {}
                local base, rem = split_first_underscore(k)
            if not seen[base] then seen[base] = {} end
                if base and rem then
            if not seen[base][label] then
                    local label = trim(strip_trailing_digits(rem))
                table.insert(meta[base], label)
                    if label ~= '' then
                seen[base][label] = true
                        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)


     for k, v in pairs(args) do
     for k, v in pairs(args) do
Строка 57: Строка 63:
     -- map base -> label -> value
     -- map base -> label -> value
     local map = {}
     local map = {}
     for k, v in pairs(args) do
     each_compound_arg(args, function(base, rem, v)
        if type(k) == 'string' and k:find('_', 1, true) then
        local lab = trim(strip_trailing_digits(rem))
            local base, rem = split_first_underscore(k)
        map[base] = map[base] or {}
            if base and rem then
        local cur = map[base][lab]
                local lab = strip_trailing_digits(rem)
        if cur then
                lab = trim(lab)
            map[base][lab] = cur .. '\n' .. tostring(v)
                map[base] = map[base] or {}
        else
                local cur = map[base][lab]
            map[base][lab] = tostring(v)
                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 ~= '' and label ~= '' then
         local base = map[field]
         local base = map[field]
         if base then return base[label] or '' end
         if base then return base[label] or '' end
        return ''
     end
     end


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


Источник — https://station14.ru/wiki/Модуль:Сущность/поля