lua class

_class = {}

function BaseClass(super)
    local class_type = {}
    local vtbl = {}
    _class[class_type] = vtbl

    setmetatable(class_type, {
        __newindex = function(t, k, v)
            vtbl[k] = v
        end,
        __index = vtbl
    })
    if super then
        setmetatable(vtbl, {
            __index = _class[super]
        })
    end


    class_type.__init = false
    class_type.__delete = false
    class_type.super = super
    class_type.New = function(...)
        local obj = {}
        obj._class_type = class_type
        setmetatable(obj, {__index = _class[class_type]})

        do
            local create = function(c, ...)
                if c.super then
                    create(c.super, ...)
                end
                if c.__init then
                    c.__init(obj, ...)
                end
            end

            create(class_type, ...)
        end

        obj.DeleteMe = function(self)
            local now_super = self._class_type
            while now_super ~= nil  do
                if now_super.__delete then
                    now_super.__delete(self)
                end
                now_super = now_super.super
            end
        end

        return obj
    end

    return class_type
end