(Lua中的类 - 2)在Lua中实现类的继承

--[[
2.给metatable设置metatable实现类的继承
原理：
    metatable也是一个table，所以可以给metatable设置metatable
    即创建一个table（A），作为基类，创建一个table（B），继承自A，B也是一个类，然后创建一个B类的对象table（Obj）。
    Obj的metatable是B，也就是说Obj是B类的一个对象，而B的metatable是A，此时可以说B是继承于A的一个类。
]]

-- Animal类
Animal = {}
Animal.__index = Animal     -- Animal是一个类

Animal.type = "unknown animal"

function Animal:new()
    local obj = {}
    setmetatable(obj, Animal)
    return obj
end

function Animal:move()
    print("Animal move")
end

-- Tiger类
Tiger = {}
setmetatable(Tiger, {__index = Animal}) -- 继承自Animal
Tiger.__index = Tiger   -- Tiger也是一个类

Tiger.type = "Tiger"
Tiger.name = "FatTiger"

function Tiger:new()
    local obj = {}
    setmetatable(obj, Tiger)
    return obj
end

function Tiger:howl()
    print("I am a Tiger.")
end 

-- 一个Tiger类的对象
local scott = Tiger:new()

print(scott.type)   -- Tiger中的type
print(scott.name)   -- Tiger中的name
scott:move()    -- 在scott中没有move字段，则到元表Tiger中找，Tiger中没有，则到Tiger的元表Animal中找
scott:howl()    -- Tiger中的howl函数