repl.lua

-- helper functions for repl'ing around
--
--
local repl=_G.repl or {}

local function print_tree(tab)
	local indent=""
	local text=""
	local i=#tab
	while i>0 do
		text=text..indent.."+ "..tostring(tab[i]).."\n"
		indent=indent.." "
		i=i-1
	end

	print(text)
end

function repl.inspect_object(obj)
	local chain={}

	while obj do
		table.insert(chain, obj)
		obj=obj:manager()
	end

	print_tree(chain)
end

function repl.inspect_table(tab)
	for k,v in pairs(tab) do
		print(k,v)
	end
end

_G.repl=repl