Lua面向对象之三：其它一些尝试

--调用父类被子类覆盖了的name方法
function Circle:sharp_name()
    local circle_metatable = getmetatable(self)
    local sharp_metatable = getmetatable(circle_metatable)
    sharp_metatable["name"]()
end

function Sharp:new()
    local new_sharp = { }

    local metatable = {}
    metatable.__index = self  --②，self == Sharp
    setmetatable(new_sharp, metatable)  --③ 使用metatable作为元表

    return new_sharp
end

function Circle:new()
    local new_circle = {}

    local metatable = {}
    metatable.__index = self --②，self == Circle
    setmetatable(new_circle, metatable) --③使用metatable作为元表

    return new_circle
end

local circle = Circle:new()
circle._val = 2 --覆盖赋值
circle:sharp_func() --调用父类函数
circle:circle_func() --调用新函数
circle:name() --调用覆盖函数
circle:val() --调用覆盖函数

local circle_2 = Circle:new()
circle_2._val = 3
circle_2:val()

circle:val() --再次调用测试

--调用父类被子类覆盖了的name方法
function Circle:sharp_name()
    local circle_metatable = getmetatable(self)
    local sharp_metatable = getmetatable(circle_metatable.__index)
    sharp_metatable.__index["name"]()
end