Lua中实现类似C#的事件机制

Lua的语法非常灵活, 使用他的metatable及metamethod可以模拟出很多语言的特性.

C#中我们这样使用事件:

xxx.Click += new System.EventHandler(xxx_Click);
private void xxx_Click(object sender, EventArgs e)
{
/**/
}

在Lua中要达到同样的效果, 并且支持事件多播机制, 其关键在于重写metamethod __call, 从而使得不光function才能被调用, table也能够被调用.

主要思想就是, 通过一个table来保存注册事件的若干响应函数, 然后拿table当function一样来调用, 重写__call后, 实现调用table时遍历执行table中的注册方法.

需要在lua5.0 或 lua.net上执行, lua 5.1略有改动.

1 --test.lua
   2 do
   3
   4 --事件原型对象, 所有事件由此原型生成
   5 Event = {}
   6
   7 function Event:New()
   8         local event = {}
   9         setmetatable(event, self)
  10         --覆盖__index逻辑
  11         self.__index = self
  12         --覆盖__call逻辑
  13         self.__call = self.Call
  14         return event
  15 end
  16
  17 --事件注册, 通过此方法将响应方法注册到事件上.
  18 --@source:响应方法的所属对象
  19 --@func:响应方法
  20 function Event:Add(source, func)
  21         table.insert(self, {source, func})     
  22 end
  23
  24 --内部方法, 重写了默认__call逻辑, 当event被触发调用时, 循环执行event中注册的响应方法
  25 --@table:对象产生调用时将本身传入
  26 --@...:调用参数
  27 function Event.Call(table, ...)
  28         for _, item in ipairs(table) do
  29                 --item[1]就是source, item[2]就是func响应方法
  30                 --lua 5.1中无需使用unpack(arg), 直接使用...即可
  31                 item[2](item[1], unpack(arg))
  32         end
  33 end
  34
  35 ------------------以下为测试用例-----------------------
  36
  37 --创建一个window对象, 注册按钮的点击事件
  38 Window = {
  39         Name = "Simonw's Window",      
  40 }
  41
  42 function Window:Init()
  43         --注册事件, self即Window, 对象来源.
  44         Button.ClickEvent:Add(self, self.Button_OnClick)       
  45 end
  46
  47 --响应事件方法, sender即是传来的Button对象
  48 function Window:Button_OnClick(sender) 
  49         print(sender.Name.." Click On "..self.Name)
  50 end
  51
  52 --创建一个button对象, 拥有ClickEvent这样的事件
  53 Button = {
  54         Name = "A Button",
  55         --创建事件
  56         ClickEvent = Event:New(),
  57 }
  58
  59 --执行点击按钮的动作
  60 function Button:Click()
  61         print('Click begin')
  62         --触发事件, self即sender参数
  63         self.ClickEvent(self)
  64         print('Click end')
  65 end
  66
  67 --从这里执行
  68 Window:Init()
  69 Button:Click()
  70 --[[
  71 执行结果:
  72 > dofile 'test.lua'
  73 Click begin
  74 A Button Click On Simonw's Window
  75 Click end
  76 ]]
  77
  78 end


posted @ 2007-10-11 15:15  至尊王者  阅读(711)  评论(0编辑  收藏  举报