Added core.objectmanager

1 files changed, 60 insertions, 0 deletions

diff --git a/core/objectmanager.lua b/core/objectmanager.lua
new file mode 100644
index 00000000..b8e5eb3f
--- /dev/null
+++ b/core/objectmanager.lua
@@ -0,0 +1,60 @@
+

+local new_multitable = require "util.multitable".new;

+local t_insert = table.insert;

+local t_concat = table.concat;

+local tostring = tostring;

+local unpack = unpack;

+local pairs = pairs;

+local error = error;

+local type = type;

+local _G = _G;

+

+local data = new_multitable();

+

+module "objectmanager"

+

+function set(...)

+	return data:set(...);

+end

+function remove(...)

+	return data:remove(...);

+end

+function get(...)

+	return data:get(...);

+end

+

+local function get_path(path)

+	if type(path) == "table" then return path; end

+	local s = {};

+	for part in tostring(path):gmatch("[%w_]+") do

+		t_insert(s, part);

+	end

+	return s;

+end

+

+function get_object(path)

+	path = get_path(path)

+	return data:get(unpack(path)), path;

+end

+function set_object(path, object)

+	path = get_path(path);

+	data:set(unpack(path), object);

+end

+

+data:set("ls", function(_dir)

+	local obj, dir = get_object(_dir);

+	if not obj then error("object not found: " .. t_concat(dir, '/')); end

+	local r = {};

+	if type(obj) == "table" then

+		for key, val in pairs(obj) do

+			r[key] = type(val);

+		end

+	end

+	return r;

+end);

+data:set("get", get_object);

+data:set("set", set_object);

+data:set("echo", function(...) return {...}; end);

+data:set("_G", _G);

+

+return _M;