50 lines
893 B
Lua
50 lines
893 B
Lua
isForSave = hook(isForSave,
|
|
function (f, k, v, s, ...) -- k - key, v - value, s -- parent table
|
|
local i,o
|
|
if type(s.var) == 'table' then
|
|
for i,o in ipairs(s.var) do
|
|
if o == k then
|
|
return true
|
|
end
|
|
end
|
|
end
|
|
return f(k, v, s, unpack(arg))
|
|
end)
|
|
|
|
function __vars_fill(v)
|
|
local k,o
|
|
if type(v.var) == 'table' then
|
|
local k,o
|
|
local vars = {}
|
|
for k,o in pairs(v.var) do
|
|
if tonumber(k) and type(o) == 'string' then
|
|
stead.table.insert(vars, o)
|
|
else
|
|
if v[k] then
|
|
error ("Variable overwrites object property: "..tostring(k));
|
|
end
|
|
v[k] = o
|
|
stead.table.insert(vars, k);
|
|
end
|
|
end
|
|
v.var = vars;
|
|
end
|
|
end
|
|
|
|
vars_object = obj {
|
|
nam = 'vars',
|
|
ini = function(s)
|
|
local fill = function(k, o)
|
|
__vars_fill(o)
|
|
end
|
|
__vars_fill(_G)
|
|
for_each_object(fill);
|
|
end
|
|
}
|
|
|
|
obj = hook(obj,
|
|
function(f, v, ...)
|
|
__vars_fill(v)
|
|
return f(v, unpack(arg))
|
|
end)
|