lua class_function

@param string classname 类名
@param [mixed super] 父类或者创建对象实例的函数
@return table
function class(classname, super)

    if _G[classname] then
        error("this aleady define"..classname)
    end
    
    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 == 1) 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
            cls.ctor = function() end
        end

        cls.__cname = classname
        cls.__ctype = 1

        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 = {}
            setmetatable(cls, {__index = super})
            cls.super = super
        else
            cls = {ctor = function() end}
        end

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

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

    _G[classname] = cls
    return cls
end

function singleton_class(curClass)
    if curClass.Instance == nil then
        curClass.Instance = curClass.new()
    end
    return curClass.Instance
end

@param mixed obj 要检查的对象
@param string classname 类名
@return boolean
function iskindof(obj, classname)
    local t = type(obj)
    local mt
    if t == "table" then
        mt = getmetatable(obj)
    elseif t == "userdata" then
        mt = tolua.getpeer(obj)
    end

    while mt do
        if mt.__cname == classname then
            return true
        end
        mt = mt.super
    end

    return false
end

 

---@class aa
---@field public Instance aa
A= class("aa")
singleton_class(A)
 
function A:func1()
    ...
end

function A.func2()
    ...
end

require "aa"
---直接生成全局变量A
A.instance:func1()
A.instance.func2()

---@class bb:cc
bb= class("bb", cc)
function bb:ctor(...)
    ...
end

function bb:func1()
---:带隐藏参数self
    ...
end

function bb.func2()
    ...
end


require “bb”
B = bb:new(...)
B:func1()
b.func2()