模組:NavboxV2/NavboxContext

-- 工具方法
function tableToString(_table)
    local outputs = {}
    if _table == nil then
        table.insert(outputs, '<nil>')
    elseif type(_table) == 'table' then
        for k, v in pairs(_table) do
            local output
            if type(v) == 'table' then
                output = tableToString(v)
            else
                output = tostring(v)
            end
            table.insert(outputs, tostring(k) .. "=" .. output)
        end
    end
    return '{' .. table.concat(outputs, ",") .. '}'
end

-- Context start
local _NavboxContext = {}
local NavboxContextNewObj = function(_prefix, _level, _type, _parent)
    return {
        ['prefix'] = _prefix,
        ['level'] = _level,
        ['type'] = _type,
        ['_Context'] = {}
    }
end

local NavboxContextMetaFunction = {
    __index = function(_obj, key)
        local _key = tostring(key)
        if _key == 'prefix' or _key == 'level' or _key == 'type' then
            return rawget(_obj, _key)
        else
            return rawget(_obj, '_Context')[_key]
        end
    end,
    __newindex = function(_obj, key, val)
        local _key = tostring(key)
        if _key == 'prefix' or _key == 'level' or _key == 'type' then
            rawset(_obj, _key, val)
        else
            rawget(_obj, '_Context')[_key] = val
        end
    end,
    __tostring = function(_obj)
        local output = {}
        table.insert(output, 'prefix=' .. _obj['prefix'])
        table.insert(output, 'level=' .. _obj['level'])
        table.insert(output, 'type=' .. _obj['type'])
        for k, v in pairs(_obj._Context) do
            local t_v = v
            if t_v == nil then
                t_v = ''
            elseif type(t_v) == 'table' then
                t_v = tableToString(t_v)
            end
            table.insert(output, k .. '=' .. t_v)
        end
        return 'context:{\n' .. table.concat(output, ",\n") .. '\n}'
    end
}

_NavboxContext.new = function(prefix, level, t_type)
    local _prefix = prefix or ""
    local _level = level or 1
    local _type = t_type or ''

    local newobj = NavboxContextNewObj(_prefix, _level, _type)
    setmetatable(newobj, NavboxContextMetaFunction)
    return newobj
end

return _NavboxContext
-- Context end