观察者模式--lua实现

--[[  
        抽象主题（Subject）角色：主题角色把所有对观察考对象的引用保存在一个聚集里，  
    每个主题都可以有任何数量的观察者。抽象主题提供一个接口，可以增加和删除观察者对  
    象，主题角色又叫做抽象被观察者（Observable）角色，一般用一个抽象类或者一个接口  
    实现。  
        抽象观察者（Observer）角色：为所有的具体观察者定义一个接口，在得到主题的通  
    知时更新自己。这个接口叫做更新接口。抽象观察者角色一般用一个抽象类或者一个接口  
    实现。在这个示意性的实现中，更新接口只包含一个方法（即Update()方法），这个方法  
    叫做更新方法。  
        具体主题（ConcreteSubject）角色：将有关状态存入具体现察者对象；在具体主题  
    的内部状态改变时，给所有登记过的观察者发出通知。具体主题角色又叫做具体被观察者  
    角色（Concrete Observable）。具体主题角色通常用一个具体子类实现。  
        具体观察者（ConcreteObserver）角色：存储与主题的状态自恰的状态。具体现察者  
    角色实现抽象观察者角色所要求的更新接口，以便使本身的状态与主题的状态相协调。如  
    果需要，具体现察者角色可以保存一个指向具体主题对象的引用。具体观察者角色通常用  
    一个具体子类实现。  
]]--  
  
  
  
Subject = {}  
  
function Subject:new(o)  
    o = o or {}  
    setmetatable(o,self)  
    self.__index = self  
    return o  
end  
  
ConcreteSubject = Subject:new()  
  
function ConcreteSubject:Attach(theconcreteobserver)  
    if self.observers == nil then  
        self.observers = {}  
    end  
    table.insert(self.observers,theconcreteobserver)  
end  
  
function ConcreteSubject:Detach(theconcreteobserver)  
    for k, v in pairs(self.observers) do  
        if v == theconcreteobserver then  
            table.remove(self.observers,k)  
            break  
        end  
    end  
end  
  
function ConcreteSubject:Notify()  
    for _, v in pairs(self.observers) do  
        v:Update()  
    end  
end  
  
Observer = {}  
  
function Observer:new(o)  
    o = o or {}  
    setmetatable(o,self)  
    self.__index = self  
    return o  
end  
  
ConcreteObserver = Observer:new()  
  
function ConcreteObserver:new(s,n)  
    o = {}  
    setmetatable(o,self)  
    self.__index = self  
    o.subject = s  
    o.observername = n  
    return o  
end  
  
function ConcreteObserver:Update()  
    print("陈冠稀大喊："..self.observername.."!!"..self.subject.subjectstate)  
end  
  
s = ConcreteSubject:new()  
  
s:Attach(ConcreteObserver:new(s,"张伯芝"))  
zhongxintong = ConcreteObserver:new(s,"钟欣同")  
chenwenyuan  = ConcreteObserver:new(s,"陈文援")  
s:Attach(zhongxintong)  
s:Attach(chenwenyuan)  
s.subjectstate = "谢霆疯来了,快躲起来!!"  
s:Notify()  
  
s:Detach(zhongxintong)  
s:Detach(chenwenyuan)  
s.subjectstate = "谢霆疯走了,快回家!!"  
s:Notify()  

输出结果：

陈冠稀大喊：张伯芝!!谢霆疯来了,快躲起来!!
陈冠稀大喊：钟欣同!!谢霆疯来了,快躲起来!!
陈冠稀大喊：陈文援!!谢霆疯来了,快躲起来!!
陈冠稀大喊：张伯芝!!谢霆疯走了,快回家!!