lua中基类和“继承机制”

基类：基类定义了所有对于派生类来说普通的属性和方法，派生类从基类继承所需的属性和方法，且在派生类中增加新的属性和方法。

继承：继承是Ｃ＋＋语言的一种重要机制，它允许在已定义的类的基础上产生新类。

lua基类和C++基类极为相似，但是lua中却没有继承这一说，更没有所谓的派生类。lua只能通过一种行为（元表）来模拟C++继承这一方法。

元表：lua中提供的元表是用于帮助lua数据变量完成某些非预定义功能的个性化行为，当它做某一种操作，然而self表中却没有定义实现这种操作的方法，那么为了实现这一操作便会去元表中找实现这一操作的方法。

如果每一层的元表都定义一种方法指向上一层要“继承”的lua表，这样是不是就和C++继承一样了，有木有！

元方法：C++中的继承不会改变语言的常规行为。但是lua中却提供了一种可以改变table行为的方法，有两种可以改变的table行为：（__index元方法）查询table及（ __newindex元方法）修改table中不存在的字段

（1）__index元方法：当对元表中不存在的字段进行访问时，得到的结果为nil。通过定义这个元表的__index，那个访问结果将由这个方法决定。

这个方法也是“继承”父类的方法。

（2）__newindex元方法：当对元表中不存在的字段进行赋值时，解释器会先找到这个元表的__newindex，如果有就调用它，对__newindex指向的表进行赋值操作， 如果没有才对self表进行赋值。

--保存类类型的虚表
local _class = {}

GLOBAL_OBJ_COUNT = {}
ENABLE_OBJ_COUNT = 0

function FindClassName(target, depth)
    for key,value in pairs(_G) do
        if value == target then
            return key
        end
    end
end

function ClasCountRetain(c)
    local key = FindClassName(c)
    if GLOBAL_OBJ_COUNT[key] == nil then
        GLOBAL_OBJ_COUNT[key] = 1
    else
        GLOBAL_OBJ_COUNT[key] = GLOBAL_OBJ_COUNT[key] + 1
    end
end

function ClasCountRelease(c)
    local key = FindClassName(c)
    if GLOBAL_OBJ_COUNT[key] == nil then
        GLOBAL_OBJ_COUNT[key] = -100000--标识异常
    else
        GLOBAL_OBJ_COUNT[key] = GLOBAL_OBJ_COUNT[key] - 1
    end
end




function PrintLuaClassCount( ... )
    print("PrintLuaClassCount.............")
    for key,value in pairs(GLOBAL_OBJ_COUNT) do
        print("PrintLuaClassCount:"..key..":",value)
    end
end


function BaseClass(super)

    -- 生成一个类类型
    local class_type = {}
    -- 在创建对象的时候自动调用
    class_type.__init = false
    class_type.__delete = false
    class_type.super = super

    class_type.New = function(...)           --定义New成员方法
        -- 生成一个类对象
        local obj = {}
        obj._class_type = class_type

        -- 在初始化之前注册基类方法
        setmetatable(obj, { __index = _class[class_type] })

        -- 调用初始化方法
        do
            local create 
            create = function(c, ...)         
                if c.super then
                    create(c.super, ...)      --对所有基类都进行init
                end
                if ENABLE_OBJ_COUNT ~= 0 then
                    ClasCountRetain(c)
                end
                if c.__init then
                    c.__init(obj, ...)
                end
            end

            create(class_type, ...)
        end

        -- 注册一个delete方法
        obj.DeleteMe = function(self)
            local now_super = self._class_type 
            while now_super ~= nil do
                if ENABLE_OBJ_COUNT ~= 0 then
                    ClasCountRelease(now_super)
                end    
                if now_super.__delete then
                    now_super.__delete(self)        --对所有基类都进行delete
                end
                now_super = now_super.super
            end
        end

        return obj
    end

    local vtbl = {}
    _class[class_type] = vtbl    

    setmetatable(class_type, {__newindex =
        function(t,k,v)
            vtbl[k] = v                      --赋值操作时self找不到的字段则对vtbl表赋值
        end
        , 
        __index = vtbl, --For call parent method
    })

    if super then
        setmetatable(vtbl, {__index =       --元表做“继承”操作
            function(t,k)
                local ret = _class[super][k]
                return ret
            end
        })
    end

    return class_type
end