Lua 中实现面向对象

local _class={}
?
function class(super)
	local class_type=}
	class_type.ctor=false
	class_type.super=super
	class_type.new=function(...) 
			local obj=}
			do
				local create
				create = (c,...)
					if c.super then
						create(c.super,0)">end
					if c.ctor then
						c.ctor(obj,0)">end
				end
?
				create(class_type,102)">)
			end
			setmetatable{ __index=_class[class_type] }return obj
		end
	local vtbl=}
	_class]=vtbl
?
	{__newindex=
		(t,k,v)
			vtbl[k]=v
		end
	)
?
	if super then
		(vtbl,102)">{__index=
			)
				local ret=_class[super]]
				vtbl]=ret
				return ret
			end
		end
?
	return class_type
end