//
// System.MultiCastDelegate.cs
//
-// Author:
+// Authors:
// Miguel de Icaza (miguel@ximian.com)
+// Daniel Stodden (stodden@in.tum.de)
//
// (C) Ximian, Inc. http://www.ximian.com
//
-// TODO: Mucho left to implement.
+
+//
+// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
-using System.Globalization;
-namespace System {
+using System.Collections;
+using System.Runtime.Serialization;
- public abstract class MulticastDelegate : Delegate {
+namespace System
+{
+ [System.Runtime.InteropServices.ComVisible (true)]
+ [Serializable]
+ public abstract class MulticastDelegate : Delegate
+ {
+ private MulticastDelegate prev;
+ private MulticastDelegate kpm_next;
- Delegate [] invocation_list;
-
protected MulticastDelegate (object target, string method)
: base (target, method)
{
- invocation_list = null;
+ prev = null;
}
- protected MulticastDelegate (Type target_type, string method)
- : base (target_type, method)
+ protected MulticastDelegate (Type target, string method)
+ : base (target, method)
{
- invocation_list = null;
+ prev = null;
}
-
- private MulticastDelegate (Type target_type, string method, Delegate [] list)
- : base (target_type, method)
+
+ public override void GetObjectData (SerializationInfo info, StreamingContext context)
{
- invocation_list = list;
+ base.GetObjectData (info, context);
}
-
-#if NOTYET
- public MethodInfo Method {
- get {
- return null;
- }
+
+
+ protected sealed override object DynamicInvokeImpl (object[] args)
+ {
+ if (prev != null)
+ prev.DynamicInvokeImpl (args);
+
+ return base.DynamicInvokeImpl (args);
}
-#endif
+ internal bool HasSingleTarget {
+ get { return prev == null; }
+ }
// <remarks>
// Equals: two multicast delegates are equal if their base is equal
// and their invocations list is equal.
// </remarks>
- public override bool Equals (object o)
+ public sealed override bool Equals (object obj)
{
- if (!(o is System.MulticastDelegate))
+ if (!base.Equals (obj))
return false;
- if (!base.Equals (o))
+ MulticastDelegate d = obj as MulticastDelegate;
+ if (d == null)
return false;
-
- MulticastDelegate d = (MulticastDelegate) o;
-
- if (d.invocation_list == null){
- if (invocation_list == null)
+
+ if (this.prev == null) {
+ if (d.prev == null)
return true;
- return false;
- } else if (invocation_list == null)
- return false;
-
- int i = 0;
- foreach (Delegate del in invocation_list){
- if (del != d.invocation_list [i++])
+ else
return false;
}
-
- return true;
+
+ return this.prev.Equals (d.prev);
}
//
// FIXME: This could use some improvements.
//
- public override int GetHashCode ()
+ public sealed override int GetHashCode ()
{
return base.GetHashCode ();
}
// <summary>
- // Combines this MulticastDelegate with the Delegate `follow'.
- // This can combine MulticastDelegates and Delegates
+ // Return, in order of invocation, the invocation list
+ // of a MulticastDelegate
// </summary>
- //[MonoTODO]
- protected override Delegate CombineImpl (Delegate follow)
+ public sealed override Delegate[] GetInvocationList ()
{
-
- throw new NotImplementedException ();
+ MulticastDelegate d;
+ d = (MulticastDelegate) this.Clone ();
+ for (d.kpm_next = null; d.prev != null; d = d.prev)
+ d.prev.kpm_next = d;
+
+ if (d.kpm_next == null) {
+ MulticastDelegate other = (MulticastDelegate) d.Clone ();
+ other.prev = null;
+ other.kpm_next = null;
+ return new Delegate [1] { other };
+ }
+
+ ArrayList list = new ArrayList ();
+ for (; d != null; d = d.kpm_next) {
+ MulticastDelegate other = (MulticastDelegate) d.Clone ();
+ other.prev = null;
+ other.kpm_next = null;
+ list.Add (other);
+ }
+
+ return (Delegate []) list.ToArray (typeof (Delegate));
+ }
+
+ // <summary>
+ // Combines this MulticastDelegate with the (Multicast)Delegate `follow'.
+ // This does _not_ combine with Delegates. ECMA states the whole delegate
+ // thing should have better been a simple System.Delegate class.
+ // Compiler generated delegates are always MulticastDelegates.
+ // </summary>
+ protected sealed override Delegate CombineImpl (Delegate follow)
+ {
+ MulticastDelegate combined, orig, clone;
+
+ if (this.GetType() != follow.GetType ())
+ throw new ArgumentException (Locale.GetText ("Incompatible Delegate Types."));
- // FIXME: Implement me.
- // This is not as simple to implement, as we can
- // not create an instance of MulticastDelegate.
- //
- // Got to think more about this.
+ combined = (MulticastDelegate)follow.Clone ();
+ combined.SetMulticastInvoke ();
+
+ for (clone = combined, orig = ((MulticastDelegate)follow).prev; orig != null; orig = orig.prev) {
+
+ clone.prev = (MulticastDelegate)orig.Clone ();
+ clone = clone.prev;
+ }
+
+ clone.prev = (MulticastDelegate)this.Clone ();
+
+ for (clone = clone.prev, orig = this.prev; orig != null; orig = orig.prev) {
+
+ clone.prev = (MulticastDelegate)orig.Clone ();
+ clone = clone.prev;
+ }
+
+ return combined;
+ }
+
+ private bool BaseEquals (MulticastDelegate value)
+ {
+ return base.Equals (value);
+ }
+
+ /*
+ * Perform a slightly crippled version of
+ * Knuth-Pratt-Morris over MulticastDelegate chains.
+ * Border values are set as pointers in kpm_next;
+ * Generally, KPM border arrays are length n+1 for
+ * strings of n. This one works with length n at the
+ * expense of a few additional comparisions.
+ */
+ private static MulticastDelegate KPM (MulticastDelegate needle, MulticastDelegate haystack,
+ out MulticastDelegate tail)
+ {
+ MulticastDelegate nx, hx;
+
+ // preprocess
+ hx = needle;
+ nx = needle.kpm_next = null;
+ do {
+ while ((nx != null) && (!nx.BaseEquals (hx)))
+ nx = nx.kpm_next;
+
+ hx = hx.prev;
+ if (hx == null)
+ break;
+
+ nx = nx == null ? needle : nx.prev;
+ if (hx.BaseEquals (nx))
+ hx.kpm_next = nx.kpm_next;
+ else
+ hx.kpm_next = nx;
+
+ } while (true);
+
+ // match
+ MulticastDelegate match = haystack;
+ nx = needle;
+ hx = haystack;
+ do {
+ while (nx != null && !nx.BaseEquals (hx)) {
+ nx = nx.kpm_next;
+ match = match.prev;
+ }
+
+ nx = nx == null ? needle : nx.prev;
+ if (nx == null) {
+ // bingo
+ tail = hx.prev;
+ return match;
+ }
+
+ hx = hx.prev;
+ } while (hx != null);
+
+ tail = null;
+ return null;
+ }
+
+ protected sealed override Delegate RemoveImpl (Delegate value)
+ {
+ if (value == null)
+ return this;
+
+ // match this with value
+ MulticastDelegate head, tail;
+ head = KPM ((MulticastDelegate)value, this, out tail);
+ if (head == null)
+ return this;
+
+ // duplicate chain without head..tail
+ MulticastDelegate prev = null, retval = null, orig;
+ for (orig = this; (object)orig != (object)head; orig = orig.prev) {
+ MulticastDelegate clone = (MulticastDelegate)orig.Clone ();
+ if (prev != null)
+ prev.prev = clone;
+ else
+ retval = clone;
+ prev = clone;
+ }
+ for (orig = tail; (object)orig != null; orig = orig.prev) {
+ MulticastDelegate clone = (MulticastDelegate)orig.Clone ();
+ if (prev != null)
+ prev.prev = clone;
+ else
+ retval = clone;
+ prev = clone;
+ }
+ if (prev != null)
+ prev.prev = null;
+
+ return retval;
+ }
+
+ public static bool operator == (MulticastDelegate d1, MulticastDelegate d2)
+ {
+ if (d1 == null)
+ return d2 == null;
+
+ return d1.Equals (d2);
+ }
+
+ public static bool operator != (MulticastDelegate d1, MulticastDelegate d2)
+ {
+ if (d1 == null)
+ return d2 != null;
+
+ return !d1.Equals (d2);
}
}
}
projects / mono.git / blobdiff