My Lua Object System

gistfile1.lua

Object = {}

local ObjectMetatables = {}

function Object:new(...)
	local clone = {}
	local meta=ObjectMetatables[self]
	if meta == nil then
		meta = {__index=self}
		ObjectMetatables[self] = meta
	end
	setmetatable(clone, meta)
	if clone.init then
		clone:init(...)
	end
	return clone
end

function Object:invokeMethodOnSuper(methodName, ...)
	local method = getmetatable(self).__index[methodName]
	return method(self, ...)
end

function Object:getInContextOfSuper(methodName)
	local method = getmetatable(self).__index[methodName]
	return function(...) return method(self, ...) end
end