- Fixed baseline aligning calcs
[mono.git] / mcs / mcs / pending.cs
old mode 100755 (executable)
new mode 100644 (file)
index 4bfaa6f..eebb411
@@ -20,11 +20,21 @@ namespace Mono.CSharp {
        struct TypeAndMethods {
                public Type          type;
                public MethodInfo [] methods;
+
+               // 
+               // Whether it is optional, this is used to allow the explicit/implicit
+               // implementation when a parent class already implements an interface. 
+               //
+               // For example:
+               //
+               // class X : IA { }  class Y : X, IA { IA.Explicit (); }
+               //
+               public bool          optional;
                
                // Far from ideal, but we want to avoid creating a copy
                // of methods above.
                public Type [][]     args;
-               
+
                //
                // This flag on the method says `We found a match, but
                // because it was private, we could not use the match
@@ -35,6 +45,13 @@ namespace Mono.CSharp {
                // create a proxy for it.  This is used when implementing
                // an interface's indexer with a different IndexerName.
                public MethodInfo [] need_proxy;
+
+               //
+               // The name of the indexer (if it exists), precompute set/get, because
+               // they would be recomputed many times inside a loop later on.
+               //
+               public string set_indexer_name;
+               public string get_indexer_name;
        }
 
        public class PendingImplementation {
@@ -57,10 +74,8 @@ namespace Mono.CSharp {
 
                static bool IsVirtualFilter (MemberInfo m, object filterCriteria)
                {
-                       if (!(m is MethodInfo))
-                               return false;
-
-                       return ((MethodInfo) m).IsVirtual;
+                       MethodInfo mi = m as MethodInfo;
+                       return (mi == null) ? false : mi.IsVirtual;
                }
 
                /// <summary>
@@ -83,7 +98,7 @@ namespace Mono.CSharp {
                        Type current_type = t;
                        
                        do {
-                               MemberInfo [] mi;
+                               MemberList mi;
                                
                                mi = TypeContainer.FindMembers (
                                        current_type, MemberTypes.Method,
@@ -99,14 +114,10 @@ namespace Mono.CSharp {
                                                searching = false;
                                }
 
-                               if (mi == null)
+                               if (mi.Count == 0)
                                        continue;
 
-                               int count = mi.Length;
-                               if (count == 0)
-                                       continue;
-
-                               if (count == 1 && !(mi [0] is MethodBase))
+                               if (mi.Count == 1 && !(mi [0] is MethodBase))
                                        searching = false;
                                else 
                                        list = TypeManager.CopyNewMethods (list, mi);
@@ -126,7 +137,7 @@ namespace Mono.CSharp {
                        return list;
                }
 
-               PendingImplementation (TypeContainer container, Type [] ifaces, ArrayList abstract_methods, int total)
+               PendingImplementation (TypeContainer container, MissingInterfacesInfo [] missing_ifaces, ArrayList abstract_methods, int total)
                {
                        TypeBuilder type_builder = container.TypeBuilder;
                        
@@ -134,35 +145,42 @@ namespace Mono.CSharp {
                        pending_implementations = new TypeAndMethods [total];
 
                        int i = 0;
-                       if (ifaces != null){
-                               foreach (Type t in ifaces){
-                                       MethodInfo [] mi;
+                       foreach (MissingInterfacesInfo missing in missing_ifaces){
+                               MethodInfo [] mi;
+                               Type t = missing.Type;
 
-                                       if (t is TypeBuilder){
-                                               Interface iface;
+                               if (!t.IsInterface)
+                                       continue;
 
-                                               iface = TypeManager.LookupInterface (t);
-                                               
-                                               mi = iface.GetMethods ();
-                                       } else
-                                               mi = t.GetMethods ();
-
-                                       int count = mi.Length;
-                                       pending_implementations [i].type = t;
-                                       pending_implementations [i].methods = mi;
-                                       pending_implementations [i].args = new Type [count][];
-                                       pending_implementations [i].found = new bool [count];
-                                       pending_implementations [i].need_proxy = new MethodInfo [count];
-
-                                       int j = 0;
-                                       foreach (MethodInfo m in mi){
-                                               Type [] types = TypeManager.GetArgumentTypes (m);
-
-                                               pending_implementations [i].args [j] = types;
-                                               j++;
-                                       }
-                                       i++;
+                               if (t is TypeBuilder){
+                                       TypeContainer iface;
+
+                                       iface = TypeManager.LookupInterface (t);
+
+                                       mi = iface.GetMethods ();
+                               } else 
+                                       mi = t.GetMethods ();
+
+                               int count = mi.Length;
+                               pending_implementations [i].type = t;
+                               pending_implementations [i].optional = missing.Optional;
+                               pending_implementations [i].methods = mi;
+                               pending_implementations [i].args = new Type [count][];
+                               pending_implementations [i].found = new bool [count];
+                               pending_implementations [i].need_proxy = new MethodInfo [count];
+                               string indexer_name = TypeManager.IndexerPropertyName (t);
+
+                               pending_implementations [i].set_indexer_name = "set_" + indexer_name;
+                               pending_implementations [i].get_indexer_name = "get_" + indexer_name;
+                               
+                               int j = 0;
+                               foreach (MethodInfo m in mi){
+                                       Type [] types = TypeManager.GetArgumentTypes (m);
+                                       
+                                       pending_implementations [i].args [j] = types;
+                                       j++;
                                }
+                               i++;
                        }
 
                        if (abstract_methods != null){
@@ -174,6 +192,10 @@ namespace Mono.CSharp {
                                pending_implementations [i].found = new bool [count];
                                pending_implementations [i].args = new Type [count][];
                                pending_implementations [i].type = type_builder;
+
+                               string indexer_name = TypeManager.IndexerPropertyName (type_builder);
+                               pending_implementations [i].set_indexer_name = "set_" + indexer_name;
+                               pending_implementations [i].get_indexer_name = "get_" + indexer_name;
                                
                                int j = 0;
                                foreach (MemberInfo m in abstract_methods){
@@ -186,6 +208,58 @@ namespace Mono.CSharp {
                                }
                        }
                }
+
+               struct MissingInterfacesInfo {
+                       public Type Type;
+                       public bool Optional;
+
+                       public MissingInterfacesInfo (Type t)
+                       {
+                               Type = t;
+                               Optional = false;
+                       }
+               }
+
+               static MissingInterfacesInfo [] EmptyMissingInterfacesInfo = new MissingInterfacesInfo [0];
+               
+               static MissingInterfacesInfo [] GetMissingInterfaces (TypeBuilder type_builder)
+               {
+                       //
+                       // Notice that TypeBuilders will only return the interfaces that the Type
+                       // is supposed to implement, not all the interfaces that the type implements.
+                       //
+                       // Even better -- on MS it returns an empty array, no matter what.
+                       //
+                       // Completely broken.  So we do it ourselves!
+                       //
+                       Type [] impl = TypeManager.GetExplicitInterfaces (type_builder);
+
+                       if (impl == null || impl.Length == 0)
+                               return EmptyMissingInterfacesInfo;
+
+                       MissingInterfacesInfo [] ret = new MissingInterfacesInfo [impl.Length];
+
+                       for (int i = 0; i < impl.Length; i++)
+                               ret [i] = new MissingInterfacesInfo (impl [i]);
+                       
+                       // we really should not get here because Object doesnt implement any
+                       // interfaces. But it could implement something internal, so we have
+                       // to handle that case.
+                       if (type_builder.BaseType == null)
+                               return ret;
+                       
+                       Type [] parent_impls = TypeManager.GetInterfaces (type_builder.BaseType);
+                       
+                       foreach (Type t in parent_impls) {
+                               for (int i = 0; i < ret.Length; i ++) {
+                                       if (t == ret [i].Type) {
+                                               ret [i].Optional = true;
+                                               break;
+                                       }
+                               }
+                       }
+                       return ret;
+               }
                
                //
                // Factory method: if there are pending implementation methods, we return a PendingImplementation
@@ -197,36 +271,10 @@ namespace Mono.CSharp {
                static public PendingImplementation GetPendingImplementations (TypeContainer container)
                {
                        TypeBuilder type_builder = container.TypeBuilder;
-                       Type [] ifaces;
+                       MissingInterfacesInfo [] missing_interfaces;
                        Type b = type_builder.BaseType;
-                       int icount = 0;
-
-                       //
-                       // Notice that TypeBuilders will only return the interfaces that the Type
-                       // is supposed to implement, not all the interfaces that the type implements.
-                       //
-                       // Completely broken.  Anyways, we take advantage of this, so we only register
-                       // the implementations that we need, as they are those that are listed by the
-                       // TypeBuilder.
-                       //
-                       ifaces = type_builder.GetInterfaces ();
-#if DEBUG
-                       {
-                               Type x = type_builder;
 
-                               while (x != null){
-                                       Type [] iff = x.GetInterfaces ();
-                                       Console.WriteLine ("Type: " + x.Name);
-                                       
-                                       foreach (Type tt in iff){
-                                               Console.WriteLine ("  Iface: " + tt.Name);
-                                       }
-                                       x = x.BaseType;
-                               }
-                       }
-#endif
-                                       
-                       icount = ifaces.Length;
+                       missing_interfaces = GetMissingInterfaces (type_builder);
 
                        //
                        // If we are implementing an abstract class, and we are not
@@ -246,11 +294,11 @@ namespace Mono.CSharp {
                                        implementing_abstract = false;
                        }
                        
-                       int total = icount +  (implementing_abstract ? 1 : 0);
+                       int total = missing_interfaces.Length +  (implementing_abstract ? 1 : 0);
                        if (total == 0)
                                return null;
 
-                       return new PendingImplementation (container, ifaces, abstract_methods, total);
+                       return new PendingImplementation (container, missing_interfaces, abstract_methods, total);
                }
 
                public enum Operation {
@@ -282,7 +330,7 @@ namespace Mono.CSharp {
 
                public void ImplementIndexer (Type t, MethodInfo mi, Type ret_type, Type [] args, bool clear_one) 
                {
-                       InterfaceMethod (t, mi.Name, ret_type, args,
+                       InterfaceMethod (t, null, ret_type, args,
                                         clear_one ? Operation.ClearOne : Operation.ClearAll, mi);
                }
                
@@ -315,39 +363,39 @@ namespace Mono.CSharp {
                                if (!(t == null || tm.type == t))
                                        continue;
 
-                               int i = 0;
-                               foreach (MethodInfo m in tm.methods){
-                                       if (m == null){
-                                               i++;
+                               int method_count = tm.methods.Length;
+                               MethodInfo m;
+                               for (int i = 0; i < method_count; i++){
+                                       m = tm.methods [i];
+
+                                       if (m == null)
                                                continue;
-                                       }
 
+                                       //
                                        // `need_proxy' is not null when we're implementing an
                                        // interface indexer and this is Clear(One/All) operation.
+                                       //
                                        // If `name' is null, then we do a match solely based on the
                                        // signature and not on the name (this is done in the Lookup
                                        // for an interface indexer).
-                                       if ((name != null) && (need_proxy == null) && (name != m.Name)){
-                                               i++;
+                                       //
+                                       if (name == null){
+                                               if (m.Name != tm.get_indexer_name && m.Name != tm.set_indexer_name)
+                                                       continue;
+                                       } else if ((need_proxy == null) && (name != m.Name))
                                                continue;
-                                       }
 
                                        if (ret_type != m.ReturnType){
                                                if (!((ret_type == null && m.ReturnType == TypeManager.void_type) ||
                                                      (m.ReturnType == null && ret_type == TypeManager.void_type)))
-                                               {
-                                                       i++;
                                                        continue;
-                                               }
                                        }
 
                                        //
                                        // Check if we have the same parameters
                                        //
-                                       if (tm.args [i].Length != arg_len){
-                                               i++;
+                                       if (tm.args [i].Length != arg_len)
                                                continue;
-                                       }
 
                                        int j, top = args.Length;
                                        bool fail = false;
@@ -358,10 +406,8 @@ namespace Mono.CSharp {
                                                        break;
                                                }
                                        }
-                                       if (fail){
-                                               i++;
+                                       if (fail)
                                                continue;
-                                       }
 
                                        if (op != Operation.Lookup){
                                                // If `t != null', then this is an explicitly interface
@@ -370,9 +416,13 @@ namespace Mono.CSharp {
                                                // interface indexer.  In this case, we need to create
                                                // a proxy if the implementation's IndexerName doesn't
                                                // match the IndexerName in the interface.
-                                               if ((t == null) && (need_proxy != null) && (name != m.Name))
+                                               bool name_matches = false;
+                                               if (name == m.Name || m.Name == tm.get_indexer_name || m.Name == tm.set_indexer_name)
+                                                       name_matches = true;
+                                               
+                                               if ((t == null) && (need_proxy != null) && !name_matches)
                                                        tm.need_proxy [i] = need_proxy;
-                                               else
+                                               else 
                                                        tm.methods [i] = null;
                                        }
                                        tm.found [i] = true;
@@ -448,15 +498,17 @@ namespace Mono.CSharp {
                        
                        Type [] args = TypeManager.GetArgumentTypes (mi);
                        ms = new MethodSignature (mi.Name, mi.ReturnType, args);
-                       MemberInfo [] list = TypeContainer.FindMembers (
+                       MemberList list = TypeContainer.FindMembers (
                                container.TypeBuilder.BaseType, MemberTypes.Method | MemberTypes.Property,
                                BindingFlags.Public | BindingFlags.Instance,
                                MethodSignature.method_signature_filter, ms);
 
-                       if (list == null || list.Length == 0)
+                       if (list.Count == 0)
                                return false;
 
-                       DefineProxy (iface_type, (MethodInfo) list [0], mi, args);
+                       MethodInfo parent = (MethodInfo) list [0];
+                       if (!parent.IsAbstract)
+                               DefineProxy (iface_type, parent, mi, args);
                        return true;
                }
 
@@ -473,7 +525,7 @@ namespace Mono.CSharp {
                        for (i = 0; i < top; i++){
                                Type type = pending_implementations [i].type;
                                int j = 0;
-                               
+
                                foreach (MethodInfo mi in pending_implementations [i].methods){
                                        if (mi == null)
                                                continue;
@@ -491,21 +543,24 @@ namespace Mono.CSharp {
                                                if (ParentImplements (type, mi))
                                                        continue;
 
-                                               string extra = "";
+                                               if (pending_implementations [i].optional)
+                                                       continue;
                                                
-                                               if (pending_implementations [i].found [j])
-                                                       extra = ".  (method might be private or static)";
-                                               Report.Error (
-                                                       536, container.Location,
-                                                       "`" + container.Name + "' does not implement " +
-                                                       "interface member `" +
-                                                       type.FullName + "." + mi.Name + "'" + extra);
+                                               if (pending_implementations [i].found [j]) {
+                                                       string[] methodLabel = TypeManager.CSharpSignature (mi).Split ('.');
+                                                       Report.Error (536, container.Location,
+                                                                     "'{0}' does not implement interface member '{1}'. '{2}.{3}' " +
+                                                                     "is either static, not public, or has the wrong return type",
+                                                                     container.Name, TypeManager.CSharpSignature (mi),
+                                                                     container.Name, methodLabel[methodLabel.Length - 1]);
+                                               }
+                                               else { 
+                                                       Report.Error (535, container.Location, "'{0}' does not implement interface member '{1}'",
+                                                               container.Name, TypeManager.CSharpSignature (mi));
+                                               }
                                        } else {
-                                               Report.Error (
-                                                       534, container.Location,
-                                                       "`" + container.Name + "' does not implement " +
-                                                       "inherited abstract member `" +
-                                                       type.FullName + "." + mi.Name + "'");
+                                               Report.Error (534, container.Location, "'{0}' does not implement inherited abstract member '{1}'",
+                                                       container.Name, TypeManager.CSharpSignature (mi));
                                        }
                                        errors = true;
                                        j++;