Make a copy of the old ZipLib
[mono.git] / mcs / class / System / System.ComponentModel.Design.Serialization / InstanceDescriptor.cs
index a944813a901378b454203cefcb3057040ead19f6..c3940e4757f0070bc0d69b29a623a0489e9a565a 100644 (file)
 //
-// System.ComponentModel.Design.Serialization.InstanceDescriptor
+// System.ComponentModel.Design.Serialization.InstanceDescriptor.cs
 //
 // Authors:
-//      Martin Willemoes Hansen (mwh@sysrq.dk)
+//   Martin Willemoes Hansen (mwh@sysrq.dk)
+//   Andreas Nahr (ClassDevelopment@A-SoftTech.com)
 //
 // (C) 2003 Martin Willemoes Hansen
+// (C) 2003 Andreas Nahr
+// Copyright (C) 2005 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.Collections;
 using System.Reflection;
+using System.Security.Permissions;
+
+namespace System.ComponentModel.Design.Serialization {
+
+       [PermissionSet (SecurityAction.LinkDemand, Unrestricted = true)]
+       public sealed class InstanceDescriptor {
+
+               private MemberInfo member;
+               private ICollection arguments;
+               private bool isComplete;
+
+               public InstanceDescriptor (MemberInfo member, ICollection arguments)
+                       : this (member, arguments, true)
+               {
+               }
 
-namespace System.ComponentModel.Design.Serialization
-{
-       public sealed class InstanceDescriptor
-       {
-               [MonoTODO]
-               public InstanceDescriptor (MemberInfo info, 
-                                          ICollection collection)
+               public InstanceDescriptor(MemberInfo member, ICollection arguments, bool isComplete)
                {
+                       this.isComplete = isComplete;
+                       if ((member != null) && !IsMemberValid (member, arguments))
+                               throw new ArgumentException ("Only Constructor, Method, Field or Property members allowed", "member");
+                       this.member = member;
+                       this.arguments = arguments;
                }
 
-               [MonoTODO]
-               public InstanceDescriptor(MemberInfo info, 
-                                         ICollection coolection, 
-                                         bool boolean)
+               private bool IsMemberValid (MemberInfo member, ICollection arguments)
                {
-                       throw new NotImplementedException();
+                       switch (member.MemberType) {
+                       // According to docs only these types are allowed
+                       case MemberTypes.Constructor:
+                               ConstructorInfo CI = (ConstructorInfo) member;
+                               if (arguments == null) // null counts as no arguments
+                                       if (CI.GetParameters().Length != 0)
+                                               throw new ArgumentException ("Invalid number of arguments for this constructor", "arguments");
+                               if (arguments.Count != CI.GetParameters().Length)
+                                       throw new ArgumentException ("Invalid number of arguments for this constructor", "arguments");
+                               return true;
+                       case MemberTypes.Method:
+                               MethodInfo MI = (MethodInfo) member;
+                               if (!MI.IsStatic)
+                                       throw new ArgumentException ("InstanceDescriptor only describes static (VB.Net: shared) members", "member");
+                               if (arguments == null) // null counts as no arguments
+                                       if (MI.GetParameters().Length != 0)
+                                               throw new ArgumentException ("Invalid number of arguments for this method", "arguments");
+                               if (arguments.Count != MI.GetParameters().Length)
+                                       throw new ArgumentException ("Invalid number of arguments for this method", "arguments");
+                               return true;
+                       case MemberTypes.Field:
+                               FieldInfo FI = (FieldInfo) member;
+                               if (!FI.IsStatic)
+                                       throw new ArgumentException ("InstanceDescriptor only describes static (VB.Net: shared) members", "member");
+                               if (arguments == null) // null counts as no arguments
+                                       return true;
+                               if (arguments.Count == 0)
+                                       throw new ArgumentException ("Field members do not take any arguments", "arguments");
+                               return true;
+                       case MemberTypes.Property:
+                               PropertyInfo PI = (PropertyInfo) member;
+                               if (!(PI.CanRead))
+                                       throw new ArgumentException ("That property cannot be read", "member");
+                               MethodInfo PIM = PI.GetGetMethod();
+                               if (!PIM.IsStatic)
+                                       throw new ArgumentException ("InstanceDescriptor only describes static (VB.Net: shared) members", "member");
+                               if (arguments == null) // null counts as no arguments
+                                       if (PIM.GetParameters().Length != 0)
+                                               throw new ArgumentException ("Invalid number of arguments for this property", "arguments");
+                               if (arguments.Count != PIM.GetParameters().Length)
+                                       throw new ArgumentException ("Invalid number of arguments for this property", "arguments");
+                               return true;
+                       }
+                       return false;
                }
 
                public ICollection Arguments {
-                       [MonoTODO]
-                       get { throw new NotImplementedException(); }
+                       get { 
+                               // It seems MS does not return null even if we specified null as parameter (but does not cause an exception)
+                               if (arguments == null)
+                                       return new object[0];
+                               return arguments;
+                       }
                }
 
                public bool IsComplete {
-                       [MonoTODO]
-                       get { throw new NotImplementedException(); }
+                       get { return isComplete; }
                }
 
                public MemberInfo MemberInfo {
-                       [MonoTODO]
-                       get { throw new NotImplementedException(); }
+                       get { return member; }
                }
 
-               [MonoTODO]
-               public object Invoke()
+               private bool HasThis ()
                {
-                       throw new NotImplementedException();
+                       if (member is ConstructorInfo)
+                               return false;
+                       MethodInfo mi = (member as MethodInfo);
+                       if (mi != null)
+                               return !mi.IsStatic;
+                       FieldInfo fi = (member as FieldInfo);
+                       if (fi != null)
+                               return !fi.IsStatic;
+                       PropertyInfo pi = (member as PropertyInfo);
+                       if (pi != null)
+                               return !pi.GetGetMethod ().IsStatic;
+                       return true;
                }
 
-               [MonoTODO]
-               ~InstanceDescriptor()
+               public object Invoke()
                {
+                       object[] parsearguments;
+                       if (arguments == null)
+                               parsearguments = new object[0];
+                       else if (HasThis ()) {
+                               parsearguments = new object[arguments.Count - 1];
+                               arguments.CopyTo (parsearguments, 0);
+                       } else {
+                               parsearguments = (arguments as object[]);
+                               if (parsearguments == null) {
+                                       parsearguments = new object[arguments.Count];
+                                       arguments.CopyTo (parsearguments, 0);
+                               }
+                       }
+
+                       //MemberInfo member;
+                       switch (member.MemberType) {
+                       case MemberTypes.Constructor:
+                               ConstructorInfo CI = (ConstructorInfo) member;
+                               return CI.Invoke (parsearguments);
+
+                       case MemberTypes.Method:
+                               MethodInfo MI = (MethodInfo) member;
+                               return MI.Invoke (null, parsearguments);
+
+                       case MemberTypes.Field:
+                               FieldInfo FI = (FieldInfo) member;
+                               return FI.GetValue (null);
+
+                       case MemberTypes.Property:
+                               PropertyInfo PI = (PropertyInfo) member;
+                               return PI.GetValue (null, parsearguments);
+                       }
+                       return null;
                }
        }
 }