Changeset 340 for trunk/Include/Classes/System/Delegate.ab

Timestamp:

Sep 28, 2007, 3:32:25 AM (17 years ago)

Author:

dai

Message:

デリゲートを試験実装
【現状のデリゲート制約】
・ダイナミックメソッド限定
・パラメータ相違チェックは行っていない

GCHandle.allocatedメンバをListクラスに変更。
List.Removeメソッドを追加

File:

• trunk/Include/Classes/System/Delegate.ab (modified) (3 diffs)

trunk/Include/Classes/System/Delegate.ab

@@ -1 +1 @@
 Namespace System
+
 
 Class _SimpleDelegate
 Public
+    hasThisPtr As Boolean
     object As Object
     methodPtr As VoidPtr
 
     Sub _SimpleDelegate( object As Object, methodPtr As VoidPtr )
+        This.hasThisPtr = True
         This.object = object
+        This.methodPtr = methodPtr
+    End Sub
+    Sub _SimpleDelegate( methodPtr As VoidPtr )
+        This.hasThisPtr = False
+        This.object = Nothing
         This.methodPtr = methodPtr
     End Sub
@@ -16 +24 @@
     simpleDelegates As System.Collections.Generic.List<_SimpleDelegate>
 
+    Sub _Add( dg As DelegateBase )
+        Dim i As Long
+        For i=0 To ELM(dg.simpleDelegates.Count)
+            simpleDelegates.Add( dg.simpleDelegates[i] )
+        Next
+    End Sub
+
 Public
     Sub DelegateBase()
         simpleDelegates = New System.Collections.Generic.List<_SimpleDelegate>()
     End Sub
-    Sub Add( sd As System._SimpleDelegate )
-        simpleDelegates.Add( sd )
-    End Sub
+
+/*
+    Sub Operator + ( sd As System._SimpleDelegate )
+        Add( sd )
+    End Sub*/
 Public
 End Class
@@ -28 +45 @@
 
 End Namespace
+
+
+Function _System_CreateSimpleDynamicDelegate( object As Object, methodPtr As VoidPtr ) As System._SimpleDelegate
+    Return New System._SimpleDelegate( object, methodPtr )
+End Function
+Function _System_CreateSimpleStaticDelegate( methodPtr As VoidPtr ) As System._SimpleDelegate
+    Return New System._SimpleDelegate( methodPtr )
+End Function