Stay Hungry,Stay Foolish!

LUA OOP 单例模式实现的 一个 方案

单例

存在这么一类class, 无论class怎么初始化, 产生的instance都是同一个对象。

 

Code

string.toHTMLCode = function(self)

    return encodeHTML(self)

end

-- Instantiates a class

local function _instantiate(class, ...)

    -- 单例模式,如果实例已经生成,则直接返回

    if rawget(class, "__singleton") then

        -- _G[class]值为本class的实例

        if _G[class] then

            return _G[class]

        end

    end

    local inst = setmetatable({__class=class}, {__index = class})

    if inst.__init__ then

        inst:__init__(...)

    end

    --单例模式,如果实例未生成,则将实例记录到类中

    if rawget(class, "__singleton") then

        if not _G[class] then

            _G[class] = inst

        end

    end

    return inst

end

-- LUA类构造函数

local function class(base)

    local metatable = {

        __call = _instantiate,

        __index = base

    }

    -- __parent 属性缓存父类,便于子类索引父类方法

    local _class = {__parent = base}

    -- 在class对象中记录 metatable ,以便重载 metatable.__index

    _class.__metatable = metatable

    return setmetatable(_class, metatable)

end

 

---- code lua format ------

-- Instantiates a class
local function _instantiate(class, ...)
    -- 抽象类不能实例化
    if rawget(class, "__abstract") then
        error("asbtract class cannot be instantiated.")
    end

    -- 单例模式,如果实例已经生成,则直接返回
    if rawget(class, "__singleton") then
        -- _G[class]值为本class的实例
        if _G[class] then
            return _G[class]
        end
    end

    local inst = setmetatable({__class=class}, {__index = class})
    if inst.__init__ then
        inst:__init__(...)
    end

    --单例模式,如果实例未生成,则将实例记录到类中
    if rawget(class, "__singleton") then
        if not _G[class] then
            _G[class] = inst

            -- 对类对象增加实例获取接口
            class.getInstance = function ( self )
                return _G[class]
            end
            -- 对类对象增加实例销毁
            class.destroyInstance = function ( self )
                return _G[class]
            end
        end
    end

    return inst
end

-- LUA类构造函数
local function class(base)
    local metatable = {
        __call = _instantiate,
        __index = base
    }

    -- __parent 属性缓存父类,便于子类索引父类方法
    local _class = {__parent = base}

    -- 在class对象中记录 metatable ,以便重载 metatable.__index
    _class.__metatable = metatable

    return setmetatable(_class, metatable)
end

--- Test whether the given object is an instance of the given class.
-- @param object Object instance
-- @param class Class object to test against
-- @return Boolean indicating whether the object is an instance
-- @see class
-- @see clone
function instanceof(object, class)
    local meta = getmetatable(object)
    while meta and meta.__index do
        if meta.__index == class then
            return true
        end
        meta = getmetatable(meta.__index)
    end

    return false
end

 

 

使用说明:

使用方法, class继承方式不变

如果给定义的class设置一个 _singleton 为 true, 开启单利模式。

Dmenu = class() -- 菜单类
Dmenu.__singleton = true -- 开启单例模式

 

使用类创建实例:

local menu = Dmenu()
if Dmenu:getInstance() == menu then
print("true")
end

Dmenu:destroyInstance()
menu:destroyInstance()

 

posted @ 2016-05-01 00:03  lightsong  阅读(1206)  评论(0编辑  收藏  举报
Life Is Short, We Need Ship To Travel