Lua 类管理器

-- ***** Class Manager 类管理*****‘local ClassManager = {}local this = ClassManagerfunction ClassManager.Class(className, ...)print('ClassManager::Class')--print(className)-- 构建类local cls = {__className = className}--print(cls)-- 父类集合local supers = {...}for _, super in pairs(supers) do-- 获取父类的类型local superType = type(super)--print(superType)assert(superType == nil or superType == 'table' or superType == 'function',string.format("class() - create class \"%s\" with invalid super class type \"%s\"",className, superType))if superType == 'function' thenassert(cls.__create == nil, string.format("class() - create class \"%s\" with more than one creating function",className))cls.__create = superelseif superType == 'table' thenif super['.isclass'] thenassert(cls.__create == nil,string.format("class() - create class \"%s\" with more than one creating function or native class",className));cls.__create = function() super:create() endelse-- 用来保存父类cls.__supers = cls.__supers or {}local dp = falsefor _, v in pairs(cls.__supers) doif v.__className == super.__className thendp = truebreakendend-- set first super pure lua class as class.superif not dp then-- 将父类中所有的对象（变量或者函数）拷贝到子类中cls.__supers[#cls.__supers + 1] = superif not cls.super thencls.super = superendendendelseerror(string.format("class() - create class \"%s\" with invalid super type",className), 0)endendcls.__index = clsif not cls.__supers or #cls.__supers == 1 thensetmetatable(cls, {__index = cls.super})else-- 设置cls的元表为supers中的父类setmetatable(cls, {__index = function(_, key)local supers = cls.__supersfor i=1, #supers dolocal super = supers[i]if super[key] then return super[key] endendend})end-- 添加默认构造函数if not cls.constructor thencls.constructor = function() endend-- new 方法构建类对象cls.new = function(...)-- 构建一个对象local instanceif cls.__create theninstance = cls.__create(...)elseinstance = {}end-- 设置对象的元表为当前类setmetatable(instance, cls)instance.class = clsinstance:constructor(...)return instanceendcls.create = function(_, ...)return cls.new(...)end-- 返回类return clsendlocal setmetatableindex = function(t, index)local mt = getmetatable(t)mt = mt or {}if not mt.__index thenmt.__index = indexsetmetatable(t, mt)elseif mt.__index ~= index thensetmetatableindex(mt, index)end
endreturn ClassManager