Lua中面向对象

一、Lua中类的简单实现：

（1）版本——摘自 Cocos2.0中的:

--Create an class.
function class(classname, super)
    local superType = type(super)
    local cls  

    if superType ~= "function" and superType ~= "table" then
        superType = nil
        super = nil
    end  

    if superType == "function" or (super and super.__ctype == ) then
        -- inherited from native C++ Object
        cls = {}  

        if superType == "table" then
            -- copy fields from super
            for k,v in pairs(super) do cls[k] = v end
            cls.__create = super.__create
            cls.super    = super
        else
            cls.__create = super
        end  

        cls.ctor    = function() end
        cls.__cname = classname
        cls.__ctype =   

        function cls.new(...)
            local instance = cls.__create(...)
            -- copy fields from class to native object
            for k,v in pairs(cls) do instance[k] = v end
            instance.class = cls
            instance:ctor(...)
            return instance
        end  

    else
        -- inherited from Lua Object
        if super then
            cls = clone(super)
            cls.super = super
        else
            cls = {ctor = function() end}
        end  

        cls.__cname = classname
        cls.__ctype =  -- lua
        cls.__index = cls  

        function cls.new(...)
            local instance = setmetatable({}, cls)
            instance.class = cls
            instance:ctor(...)
            return instance
        end
    end  

    return cls
end 

下面是测试这段功能的代码片：

----------------------------------create  a father-------------------------------------------------
local testClassbase = class("testClassbase")
function testClassbase:ctor(data,closeUI)
        print(data)
    self.a = data
    print(self.a)
    self.b = closeUI
end

function testClassbase:print_member()
    print("-----data")
    print(self.a)
    print("===closeUI")
    print(self.b)
end

---------------------------------main---------------------------------------------------------------------
print("++++begin++++")
testa =testClassbase.new(,true)
testa:print_member()    --注意这里要用冒号去调用

如果要构造一个派生类来继承上面那个基类，那么需要加上下面这么一段

function clone(object)                                       --clone函数
    local lookup_table = {}                                 --新建table用于记录
    local function _copy(object)                           --_copy(object)函数用于实现复制
        if type(object) ~= "table" then
            return object                                        ---如果内容不是table 直接返回object(例如如果是数字\字符串直接返回该数字\该字符串)
        elseif lookup_table[object] then
            return lookup_table[object]                   --这里是用于递归滴时候的,如果这个table已经复制过了,就直接返回
        end
        local new_table = {}
        lookup_table[object] = new_table              --新建new_table记录需要复制的二级子表,并放到lookup_table[object]中.
        for key, value in pairs(object) do
            new_table[_copy(key)] = _copy(value)   --遍历object和递归_copy(value)把每一个表中的数据都复制出来
        end
        return setmetatable(new_table, getmetatable(object))--每一次完成遍历后,就对指定table设置metatable键值
    end
    return _copy(object)                                      --返回clone出来的object表指针/地址
end

测试继承的代码：

--------------------------------copy a child-----------------------------------------------------------
local testClassChild = class("testClassChild",testClassbase)

function testClassChild:ctor(data,UIclose)
       self.a = data
       self.b = UIclose
end

function testClassChild:Greet()
        self.sayhello()
    self:print_member()
end

---------------------------------main---------------------------------------------------------------------
print("++++begin++++")
testa =testClassbase.new(,true)
testa:print_member()    --注意这里要用冒号去调用

print("--------------------------")
testb = testClassChild.new(,false)
testb:Greet()

完整代码：

--Create an class.
function class(classname, super)
    local superType = type(super)
    local cls  

    if superType ~= "function" and superType ~= "table" then
        superType = nil
        super = nil
    end  

    if superType == "function" or (super and super.__ctype == ) then
        -- inherited from native C++ Object
        cls = {}  

        if superType == "table" then
            -- copy fields from super
            for k,v in pairs(super) do cls[k] = v end
            cls.__create = super.__create
            cls.super    = super
        else
            cls.__create = super
        end  

        cls.ctor    = function() end
        cls.__cname = classname
        cls.__ctype =   

        function cls.new(...)  --
            local instance = cls.__create(...)
            -- copy fields from class to native object
            for k,v in pairs(cls) do instance[k] = v end
            instance.class = cls
            instance:ctor(...)
            return instance
        end  

    else
        -- inherited from Lua Object
        if super then
            cls = clone(super)
            cls.super = super
        else
            cls = {ctor = function() end}
        end  

        cls.__cname = classname
        cls.__ctype =  -- lua
        cls.__index = cls  

        function cls.new(...)
            local instance = setmetatable({}, cls)
            instance.class = cls
            instance:ctor(...)
            return instance
        end
    end  

    return cls
end  

--------------------------------------------------clone_function--------------------------------------------------------------------------------

function clone(object)                                       --clone函数
    local lookup_table = {}                                 --新建table用于记录
    local function _copy(object)                           --_copy(object)函数用于实现复制
        if type(object) ~= "table" then
            return object                                        ---如果内容不是table 直接返回object(例如如果是数字\字符串直接返回该数字\该字符串)
        elseif lookup_table[object] then
            return lookup_table[object]                   --这里是用于递归滴时候的,如果这个table已经复制过了,就直接返回
        end
        local new_table = {}
        lookup_table[object] = new_table              --新建new_table记录需要复制的二级子表,并放到lookup_table[object]中.
        for key, value in pairs(object) do
            new_table[_copy(key)] = _copy(value)   --遍历object和递归_copy(value)把每一个表中的数据都复制出来
        end
        return setmetatable(new_table, getmetatable(object))--每一次完成遍历后,就对指定table设置metatable键值
    end
    return _copy(object)                                      --返回clone出来的object表指针/地址
end 

----------------------------------create a father-------------------------------------------------
local testClassbase = class("testClassbase")
function testClassbase:ctor(data,closeUI)
--        print(data)
    self.a = data
--    print(self.a)
    self.b = closeUI
end

function testClassbase:sayhello()
      print("father say hello")
end

function testClassbase:print_member()
    print("-----data")
    print(self.a)
    print("===closeUI")
    print(self.b)
end

--------------------------------copy a child-----------------------------------------------------------
local testClassChild = class("testClassChild",testClassbase)

function testClassChild:ctor(data,UIclose)
       self.a = data
       self.b = UIclose
end

function testClassChild:Greet()
        self.sayhello()
    self:print_member()
end

---------------------------------main---------------------------------------------------------------------
print("++++begin++++")
testa =testClassbase.new(,true)
testa:print_member()    --注意这里要用冒号去调用

print("--------------------------")
testb = testClassChild.new(,false)
testb:Greet()

（2） 版本：

据说是云风大神写的：

这个是构造class的函数和上面的构造方法有很大的不同：

具体讲解我找了一篇写的还不错的博客：http://blog.csdn.net/mywcyfl/article/details/37706085

下面代码可以直接拿来运行：

local _class={}
function class(super)
    local class_type={}
    class_type.ctor     = false
    class_type.super    = super
    class_type.new      =
        function(...)
            local obj={}
            do
                local create
                create = function(c,...)
                    if c.super then
                        create(c.super,...)
                    end
                    if c.ctor then
                        c.ctor(obj,...)
                    end
                end  

                create(class_type,...)
            end
            setmetatable(obj,{ __index = _class[class_type] })
            return obj
        end
    local vtbl={}
    _class[class_type]=vtbl  

    setmetatable(class_type,{__newindex=
        function(t,k,v)
            vtbl[k]=v
        end
    })  

    if super then
        setmetatable(vtbl,{__index=
            function(t,k)
                local ret=_class[super][k]
                vtbl[k]=ret
                return ret
            end
        })
    end  

    return class_type
end 

测试代码：

base_type=class()                -- 定义一个基类 base_type
function base_type:ctor(x)       -- 定义 base_type 的构造函数
    print("base_type ctor")
    self.x=x
end  

function base_type:print_x()     -- 定义一个成员函数 base_type:print_x
    print(self.x)
end
function base_type:hello()        -- 定义另一个成员函数 base_type:hello
    print("hello base_type")
end  

test=class(base_type)            -- 定义一个类 test 继承于 base_type
function test:ctor()             -- 定义 test 的构造函数
    print("test ctor")
end
function test:hello()            -- 重载 base_type:hello 为 test:hello
    --test.super:hello()
    print("hello test")
end  

a=test.new()                   -- 输出两行，base_type ctor 和 test ctor 。这个对象被正确的构造了。
a:print_x()                     -- 输出  ，这个是基类 base_type 中的成员函数。
a:hello()                       -- 输出 hello test ，这个函数被重载了。