lua 多重继承的实现在

--多重继承  
--在tabel  plist中查找K
local function search(k,plist)  
    for i=1,#plist do  
        local v=plist[i][k] --   取一个基类  
        if v then return v end  
    end  
end  
  

function createClass(...)  
    local c={};    --新类
    local parents={...};  
  -- 类在其父表中搜索方法
    setmetatable(c,{__index=function(t,k) return search(k,parents) end } );  
  -- 将C作为其实例的元表  
    c.__index=c;  
  --为这个类定义一个新的构造函数
    function c:new(o)  
        o=o or {};  
        setmetatable(o,c);  
        return o;  
    end  
  
    return c;   --返回新类
end  
  

--接下来是使用createClass类的例子。假设他有两个类，一个是account类另一个是Name类，它有两个方法一个是getname，etname
Named={};  
function Named:getname()  
    return self.name;  
end  
  
function Named:setname(n)  
    self.name=n;  
end  


Account={balance=0};  
  
function Account:new(o)  
    o= o or {}  
    setmetatable(o,self);  
    self.__index=self;  
    return o;  
end  
  
function Account.deposit(self,v)  
    self.balance=self.balance+v;  
end  
  
function Account:withdraw(v)  
    if (v) > self.balance then error "insufficient funds"; end  
    self.balance=self.balance-v;  
end  

  --创建一个新类NamedAccount 同时从Account,Named派生，只需调用createClass
NamedAccount=createClass(Account,Named);  
  --如下创建并使用实例
account=NamedAccount:new{name="June"};  
print (account:getname());   -- June