Events

Author: Jomixedyu

README.md

@@ -26,6 +26,7 @@
   - [抛出异常与捕捉异常](#抛出异常与捕捉异常)
   - [文件处理](#文件处理)
   - [委托](#委托)
+  - [事件](#事件)
   - [序列化](#序列化)
   - [实用工具](#实用工具)
 
@@ -280,7 +281,45 @@ end)
 
 
 ## 委托
-C#在语言层面实现委托，将实例封装在委托对象中，而Lua则需要对对象进行绑定（类似于C++std）
+无实例的函数委托
+```lua
+local function SetAge1(i)
+    Console.WriteLine("setAge1:", i)
+end
+local delegate = Delegate.New(nil, SetAge1)
+--使用Invoke调用
+delegate:Invoke(2)
+```
+有实例的函数委托
+```lua
+local TestObject = class.extends("Test.TestObject", Object)
+function TestObject:SetNumber(i)
+    Console.WriteLine("SetNumber:", i)
+end
+
+local testObj = TestObject.New()
+--提供实例
+local deleg = Delegate.New(testObj, TestObject.SetNumber)
+--不光可以使用Invoke，还可以直接用()
+deleg(5)
+```
+
+## 事件
+事件采用多播委托的形式实现
+```lua
+local function EventFun1()
+    Console.WriteLine("EventFun1")
+end
+
+local function EventFun2()
+    Console.WriteLine("EventFun2")
+end
+
+local event = Event.New()
+event:Add(nil, EventFun1)
+event:Add(Delegate.New(nil, EventFun2))
+event:Invoke()
+```
 
 ## 序列化
 * 序列化方法，将lua表转换为字符串，或将字符串反序列化为lua语句/表

SysLib/Collections/List.lua

@@ -106,4 +106,19 @@ function List:GetEnumerator()
     end
 end
 
+function List:Equals(target)
+    ---@type SysLib.Collections.List
+    local list = target
+    if self:GetCount() ~= list:GetCount() then
+        return false
+    end
+
+    for i = 1, self:GetCount() do
+        if self:Get(i) ~= list:Get(i) then
+            return false
+        end
+    end
+    return true
+end
+
 return List

SysLib/Delegate.lua

@@ -1,55 +1,29 @@
 -------------------ModuleInfo-------------------
 --- Author       : jx
 --- Date         : 2020/02/15 23:58
---- Description  : 委托（函数指针封装）
+--- Description  : 委托
 ------------------------------------------------
 ---@class SysLib.Delegate : SysLib.Object
----@field New fun(obj, methodPointer):SysLib.Delegate
-local Delegate = class.extends("SysLib.Delegate", SysLib.Object)
+---@field New fun(target, method):SysLib.Delegate
+local Delegate, base = class.extends("SysLib.Delegate", SysLib.Object)
 
-function Delegate:constructor(obj, methodPointer)
-    self.multiDelegate = SysLib.Collections.List.New()
-    if methodPointer == nil then
-        methodPointer = obj
-        obj = nil
-    end
-    if methodPointer then
-        self:Add(obj, methodPointer)
-    end
-end
-
----@overload fun(funcPointer:function)
-function Delegate:Add(obj, methodPointer)
-    local struct = {
-        target = obj,
-        methodPointer = methodPointer
-    }
-    self.multiDelegate:Add(struct)
+function Delegate:constructor(target, method)
+    self.target = target
+    self.method = method
 end
 
-function Delegate:Remove(obj, methodPointer)
-    --multi
-    for index, value in ipairs(self.multiDelegate) do
-        if value.target == obj and v.methodPointer == methodPointer then
-            self.multiDelegate:RemoveAt(index)
-            break
-        end
+function Delegate:Invoke(...)
+    if self.target ~= nil then
+        --instance
+        self.method(self.target, ...)
+    else
+        --static
+        self.method(...)
     end
 end
 
-function Delegate:RemoveAll()
-    self.multiDelegate:Clear()
-end
-function Delegate:Invoke(...)
-    for index, v in ipairs(self.multiDelegate) do
-        if v.target ~= nil then
-            --instance
-            v.methodPointer(v.target, ...)
-        else
-            --static
-            v.methodPointer(...)
-        end
-    end
+function Delegate:Equals(target)
+    return self.target == target.target and self.method == target.method
 end
 
 return Delegate

SysLib/Event.lua

@@ -0,0 +1,56 @@
+-------------------ModuleInfo-------------------
+--- Author       : jx
+--- Date         : 2021/09/13 15:24
+--- Description  : Events
+------------------------------------------------
+---@class SysLib.Event : SysLib.Object
+local Event = class.extends("SysLib.Event", SysLib.Object)
+
+function Event:constructor()
+    self.multiDelegate = SysLib.Collections.List.New()
+end
+
+---@overload fun(delegate)
+function Event:Add(target, method)
+    if not method then
+        --delegate
+        if target:GetType() ~= gettype(SysLib.Delegate) then
+            throw(SysLib.ArgumentException.New("type error"))
+        end
+        self.multiDelegate:Add(target)
+        return
+    end
+    self.multiDelegate:Add(SysLib.Delegate.New(target, method))
+end
+
+---@overload fun(delegate)
+function Event:Remove(target, method)
+
+    if not method then
+        --delegate
+        if target:GetType() ~= gettype(SysLib.Delegate) then
+            throw(SysLib.ArgumentException.New("type error"))
+        end
+        self.multiDelegate:Remove(target)
+        return
+    end
+
+    for index, item in each(self.multiDelegate) do
+        if item.target == target and item.method == method then
+            self.multiDelegate:RemoveAt(index)
+            return
+        end
+    end
+end
+
+function Event:RemoveAll()
+    self.multiDelegate:Clear()
+end
+
+function Event:Invoke(...)
+    for index, value in each(self.multiDelegate) do
+        value:Invoke(...)
+    end
+end
+
+return Event

SysLib/Object.lua

@@ -23,14 +23,8 @@ function Object:Dispose()
 
 end
 --virtual
-function Object:Equals(b, c)
-    --判断对象地址
-    if c == nil then
-        --instance
-        c = b
-        b = self
-    end
-    return b == c
+function Object:Equals(target)
+    return self == target
 end
 
 ---@return Type

SysLib/_include.lua

@@ -58,6 +58,7 @@ SysLib.Runtime = {}
 SysLib.Runtime.Serialization = require "SysLib.Runtime.Serialization" if _SMPL then Serialization = SysLib.Runtime.Serialization end
 
 SysLib.Console = require "SysLib.Console"      if _SMPL then Console   = SysLib.Console   end
+SysLib.Event = require "SysLib.Event"          if _SMPL then Event     = SysLib.Event     end
 SysLib.Delegate = require "SysLib.Delegate"    if _SMPL then Delegate  = SysLib.Delegate  end
 SysLib.Convert = require "SysLib.Convert"      if _SMPL then Convert   = SysLib.Convert   end
 SysLib.Activator = require "SysLib.Activator"  if _SMPL then Activator = SysLib.Activator end

Test/DelegateEventsTest.lua

@@ -1,29 +1,34 @@
-
+--委托
 local function SetAge1(i)
     Console.WriteLine("setAge1:", i)
 end
-
 local delegate = Delegate.New(nil, SetAge1)
-
 --使用Invoke调用
 delegate:Invoke(2)
 
-local function SetAge2(i)
-    Console.WriteLine("setAge2:", i)
-end
---添加多播委托
-delegate:Add(nil, SetAge2)
---使用()调用
-delegate(4)
 
---创建实例对象
+--实例委托
 local TestObject = class.extends("Test.TestObject", Object)
 function TestObject:SetNumber(i)
     Console.WriteLine("SetNumber:", i)
 end
+
 local testObj = TestObject.New()
+--提供实例
+local delegate2 = Delegate.New(testObj, TestObject.SetNumber)
+delegate2:Invoke(3)
 
-Console.WriteLine("add instance method")
-delegate:Add(testObj, TestObject.SetNumber)
 
-delegate:Invoke(5)
+--Events
+local function EventFun1()
+    Console.WriteLine("EventFun1")
+end
+
+local function EventFun2()
+    Console.WriteLine("EventFun2")
+end
+
+local event = Event.New()
+event:Add(nil, EventFun1)
+event:Add(Delegate.New(nil, EventFun2))
+event:Invoke()