lua中class的一种实现方式，单例扩充

 

先上代码

 

local _class={}
 
function class(super,singleton)
    local class_type={}
    class_type.ctor=false
    class_type.super=super
    class_type.new=function(...) 
            local obj={}
            do
                local create
                create = function(c,...)
                    if c.super then
                        create(c.super,...)
                    end
                    if c.ctor then
                        c.ctor(obj,...)
                    end
                end
 
                create(class_type,...)
            end
            setmetatable(obj,{ __index=_class[class_type] })
            return obj
        end
    if singleton then
        class_type.instance = singleton
        class_type.Instance = function()
            if class_type.instance==true then                
                class_type.instance = class_type.new()
            end
            return class_type.instance
        end
    end    
    local vtbl={}
    _class[class_type]=vtbl
 
    setmetatable(class_type,{__newindex=
        function(t,k,v)
            vtbl[k]=v
        end
    })
 
    if super then
        setmetatable(vtbl,{__index=
            function(t,k)
                local ret=_class[super][k]
                vtbl[k]=ret
                return ret
            end
        })
    end
 
    return class_type
end

想在lua项目中添加单例， class的核心部分是借鉴的云风大神的代码，由于实用了newindex元方法对类的赋值进行拦截并将vtbl方法集保存到_class中。所以没法像之前习惯的方式添加class.Instance对类添加方法。所以在class中通过提前定义Instance的方式添加了单例的支持（类似于提前定义的ctor）

在这个class实现中。类本身只提供new，ctor方法实现创建实例和构造方法，super指向父类

使用newindex元方法拦截所有对类的赋值（方法集），赋值到类的原表中，并将vtbl方法集保存在_class中 用类名class索引 。并且在类进行new 实例化的时候。把实例的原表index方法指向之前保存的vtbl

如果父类存在，就用类本身的vtbl的index元方法去索引父类中是否存在 如果存在copy给子类使用，避免冗余