单例

存在这么一类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

说明：

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

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

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

原文：http://www.cnblogs.com/lightsong/p/5449790.html