1 function class(super, autoConstructSuper) 2     local classType = {}; 3     classType.autoConstructSuper = autoConstructSuper or (autoConstructSuper == nil); 4      5     if super then 6         classType.super = super; 7         local mt = getmetatable(super); 8         setmetatable(classType, { __index = super; __newindex = mt and mt.__newindex;}); 9     else10         classType.setDelegate = function(self,delegate)11             self.m_delegate = delegate;12         end13     end14 15     return classType;16 end17 18 19 function new(classType, ...)20     local obj = {};21     local mt = getmetatable(classType);22     setmetatable(obj, { __index = classType; __newindex = mt and mt.__newindex;});23     do24         local create;25         create =26             function(c, ...)27                 if c.super and c.autoConstructSuper then28                     create(c.super, ...);29                 end30                 if rawget(c,"ctor") then31                     obj.currentSuper = c.super;32                     c.ctor(obj, ...);33                 end34             end35 36         create(classType, ...);37     end38     obj.currentSuper = nil;39     return obj;40 end41 42 43 function delete(obj)44     do45         local destory =46             function(c)47                 while c do48                     if rawget(c,"dtor") then49                         c.dtor(obj);50                     end51               52                     c = getmetatable(c);53                     c = c and c.__index;                   54                 end55             end56         destory(obj);57     end58 end