steed/stead/vars.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)