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

最新推荐文章于 2024-09-04 16:56:02 发布

chubaisheng8627

最新推荐文章于 2024-09-04 16:56:02 发布

阅读量120

点赞数

文章标签： lua c# 测试

原文链接：https://my.oschina.net/riseworlds/blog/696653

版权

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