【Lua】面向对象编程，二

多重继承：

module(...,package.seeall)

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.__index=c    --c作为其实例的元表

    c.new=function(self,o)
    o=o or {}
    setmetatable(o,c)
    return o
    end
    
    return c
end

注：

Lua实现多重继承的关键在于，__index元字段为一个函数

--多重继承
   NamedAccount=MMultiInherit.createClass(MNamed.Named,MAccount.Account)     
   account=NamedAccount:new()
   account:setName("Paul")
   print(account:getName())
   print(account:getBalance()

注：

如上创建一个继承自Named类和Account类的新类NamedAccount，需要调用createClass，创建NamedAccount对象account，Lua在account中无法找到setName时，会查找account元表中的__index字段，该字段为NamedAccount，由于NamedAccount无法提供setName字段，因此Lua查找NamedAccount元表中的__index字段，是一个函数，Lua就调用它，该函数现在Named中查找setName字段，最终在Named中找到一个非nil的值。

类的封装：

Lua实现类的封装（私密性）的做法是，通过两个table来表示一个对象，一个table用于保存对象的状态，另一个用于对象的操作，或者称为“接口”，对象本身通过第二个table来访问（即通过气接口的方法来访问）。

module(...,package.seeall)

--[[
    Lua 私密性实现，通过两个table表示一个对象，一个table用于保存对象的状态；另一个用于对象的操作，或者称为“接口”，

对象本身通过第二个table来访问，即通过其接口的方法来访问。
]]
function newAccount(initialBalance)

    --保存对象的状态
    local self={
        balance=initialBalance,
        limit=1000.0
    }

    local extra=function()
        if self.balance > self.limit then
            return self.balance *0.1
        else
            return 0
        end
    end

    local withdraw=function(money)
        self.balance=self.balance-money
    end

    local deposit=function(money)
        self.balance=self.balance+money
    end

    local getBalance=function()
        return self.balance+extra()
    end

    --返回对象的“接口”
    return {
        withdraw=withdraw,
        deposit=deposit,
        getBalance=getBalance
    }
end

注：

如上所示，函数先创建了一个table，用于保存对象的内部状态，并将其存储在局部变量self中，然后再创建对象的方法，最后函数创建并返回一个供外部使用的对象，其中将方法名与真正的方法实现匹配起来。

这种设计给予了存储在self table中的所有东西完全的私密性，只能通过newAccount中创建的函数访问self table，另外可以定义私有的方法，他们类似于共有的方法，但是不放入接口中，如extra函数，即为私有方法。