class.lua

local mt = setmetatable
local rawget = rawget

local function _onCtor(ins, cls, ...)
    if cls.super then
        _onCtor(ins, cls.super, ...)
    end

    local ctor = rawget(cls, "Ctor")
    if ctor then
        ctor(ins, ...)
    end
end

local _rootCls = {
    __index = function(cls, key)
        local super = rawget(cls, "super")
        while super do
            local ret = rawget(super, key)
            if ret ~= nil then
                cls[key] = ret
                return ret
            end
            super = rawget(super, "super")
        end
    end,

    __call = function(cls, ...)
        local ins = mt({}, cls)
        _onCtor(ins, cls, ...)
        return ins
    end
}

local _parseSuper = function(cls, super)
    if super then
        cls.__SCNAME = super.__CNAME --为了触发autoRequire
        cls.super = super.__IMPL or super
    end
end

function class(name, super)
    local cls = {}
    cls.__index = cls
    cls.__CNAME = name
    _parseSuper(cls, super)
    return mt(cls, _rootCls)
end