containertables.inc.lua

--[[ I created this class for an easy way of managing the objects inside a container in the MOO. ]]

containertable = { };

function containertable:add(object)

	local subt = self[(object and object._properties.name) or ""];

	if not subt then subt = { };

		self[(object and object._properties.name) or ""] = subt; 

		-- Also, all object's aliases need to point to subt

		if object._tags then

			for i, tag in ipairs(object._tags) do

				self[tag] = subt;

			end

		end

	end

	table.insert(subt, object);

	return object;

end

function containertable:remove(object)

	local subt = self[(object._properties and object._properties.name) or ""];

	if not subt then return false; end

	for n, stored_object in pairs(subt) do

		if object == stored_object then table.remove(subt, n); return object; end

	end

	return false;

end

function containertable:addalias(name, tag)

	self[tag] = self[name];

end

function containertable:findobject(name)

	local subt = self[name or ""];

	if not subt then subt = self[""]; if not subt then return; end end

	return subt[1];

end

function containertable:getallobjects()

	all = {};

	for tag, list in pairs(self) do

		for n, object in ipairs(list) do

			all[object] = true;

		end

	end

	return all; -- We return a table, where the objects are the keys, and the values are true

end

function createcontainertable(t)

	return setmetatable(t or {}, { __index = containertable });

end