New tests.
[mono.git] / mcs / mcs / complete.cs
index 9ffd0d116ec9cba8ff58ac392bd3b6cd0e32f26d..ed2f1ba2a6d369a3e3c6f499b22598285460e034 100644 (file)
 // statements even when the expression is incomplete (for example
 // completing inside a lambda
 //
+using System;
+using System.Collections.Generic;
+using System.Reflection;
+using System.Reflection.Emit;
+using System.Text;
+using Mono.CSharp.Linq;
+using System.Linq;
+
 namespace Mono.CSharp {
-       using System;
-       using System.Collections;
-       using System.Reflection;
-       using System.Reflection.Emit;
-       using System.Text;
 
        //
        // A common base class for Completing expressions, it
        // is just a very simple ExpressionStatement
        //
-       public abstract class CompletingExpression : ExpressionStatement {
+       public abstract class CompletingExpression : ExpressionStatement
+       {
+               public static void AppendResults (List<string> results, string prefix, IEnumerable<string> names)
+               {
+                       foreach (string name in names) {
+                               if (name == null || prefix == null)
+                                       continue;
+
+                               if (!name.StartsWith (prefix))
+                                       continue;
+
+                               if (results.Contains (name))
+                                       continue;
+
+                               if (prefix != null)
+                                       results.Add (name.Substring (prefix.Length));
+                               else
+                                       results.Add (name);
+                       }
+               }
+
                public override void EmitStatement (EmitContext ec)
                {
                        // Do nothing
@@ -49,36 +72,16 @@ namespace Mono.CSharp {
                        this.loc = l;
                        this.Prefix = prefix;
                }
-
-               public static void AppendResults (ArrayList results, string prefix, IEnumerable names)
-               {
-                       foreach (string name in names){
-                               if (name == null)
-                                       continue;
-                               
-                               if (!name.StartsWith (prefix))
-                                       continue;
-
-                               if (results.Contains (name))
-                                       continue;
-
-                               if (prefix != null)
-                                       results.Add (name.Substring (prefix.Length));
-                               else
-                                       results.Add (name);
-                       }
-
-               }
                
-               public override Expression DoResolve (ResolveContext ec)
+               protected override Expression DoResolve (ResolveContext ec)
                {
-                       ArrayList results = new ArrayList ();
+                       var results = new List<string> ();
 
                        AppendResults (results, Prefix, Evaluator.GetVarNames ());
-                       AppendResults (results, Prefix, ec.CurrentTypeDefinition.NamespaceEntry.CompletionGetTypesStartingWith (Prefix));
+                       AppendResults (results, Prefix, ec.CurrentMemberDefinition.Parent.NamespaceEntry.CompletionGetTypesStartingWith (Prefix));
                        AppendResults (results, Prefix, Evaluator.GetUsingList ());
                        
-                       throw new CompletionResult (Prefix, (string []) results.ToArray (typeof (string)));
+                       throw new CompletionResult (Prefix, results.ToArray ());
                }
 
                protected override void CloneTo (CloneContext clonectx, Expression t)
@@ -91,30 +94,6 @@ namespace Mono.CSharp {
                Expression expr;
                string partial_name;
                TypeArguments targs;
-
-               internal static MemberFilter CollectingFilter = new MemberFilter (Match);
-
-               static bool Match (MemberInfo m, object filter_criteria)
-               {
-                       if (m is FieldInfo){
-                               if (((FieldInfo) m).IsSpecialName)
-                                       return false;
-                               
-                       }
-                       if (m is MethodInfo){
-                               if (((MethodInfo) m).IsSpecialName)
-                                       return false;
-                       }
-
-                       if (filter_criteria == null)
-                               return true;
-                       
-                       string n = (string) filter_criteria;
-                       if (m.Name.StartsWith (n))
-                               return true;
-                       
-                       return false;
-               }
                
                public CompletionMemberAccess (Expression e, string partial_name, Location l)
                {
@@ -131,18 +110,18 @@ namespace Mono.CSharp {
                        this.targs = targs;
                }
                
-               public override Expression DoResolve (ResolveContext ec)
+               protected override Expression DoResolve (ResolveContext ec)
                {
                        Expression expr_resolved = expr.Resolve (ec,
                                ResolveFlags.VariableOrValue | ResolveFlags.Type |
-                               ResolveFlags.Intermediate | ResolveFlags.DisableStructFlowAnalysis);
+                               ResolveFlags.Intermediate);
 
                        if (expr_resolved == null)
                                return null;
 
-                       Type expr_type = expr_resolved.Type;
+                       TypeSpec expr_type = expr_resolved.Type;
                        if (expr_type.IsPointer || expr_type == TypeManager.void_type || expr_type == TypeManager.null_type || expr_type == InternalType.AnonymousMethod) {
-                               Unary.Error_OperatorCannotBeApplied (loc, ".", expr_type);
+                               Unary.Error_OperatorCannotBeApplied (ec, loc, ".", expr_type);
                                return null;
                        }
 
@@ -151,7 +130,7 @@ namespace Mono.CSharp {
                                        return null;
                        }
 
-                       ArrayList results = new ArrayList ();
+                       var results = new List<string> ();
                        if (expr_resolved is Namespace){
                                Namespace nexpr = expr_resolved as Namespace;
                                string namespaced_partial;
@@ -171,31 +150,13 @@ namespace Mono.CSharp {
                                CompletionSimpleName.AppendResults (
                                        results,
                                        partial_name, 
-                                       ec.CurrentTypeDefinition.NamespaceEntry.CompletionGetTypesStartingWith (namespaced_partial));
+                                       ec.CurrentMemberDefinition.Parent.NamespaceEntry.CompletionGetTypesStartingWith (namespaced_partial));
                        } else {
-                               MemberInfo [] result = expr_type.FindMembers (
-                                       MemberTypes.All, BindingFlags.Instance | BindingFlags.Static | BindingFlags.Public,
-                                       CollectingFilter, partial_name);
-
-                               foreach (MemberInfo r in result){
-                                       string name;
-                                       
-                                       MethodBase rasb = r as MethodBase;
-                                       if (rasb != null && rasb.IsSpecialName)
-                                               continue;
-                                       
-                                       if (partial_name == null)
-                                               name = r.Name;
-                                       else 
-                                               name = r.Name.Substring (partial_name.Length);
-                                       
-                                       if (results.Contains (name))
-                                               continue;
-                                       results.Add (name);
-                               }
+                               var r = MemberCache.GetCompletitionMembers (expr_type, partial_name).Select (l => l.Name);
+                               AppendResults (results, partial_name, r);
                        }
 
-                       throw new CompletionResult (partial_name == null ? "" : partial_name, (string []) results.ToArray (typeof (string)));
+                       throw new CompletionResult (partial_name == null ? "" : partial_name, results.ToArray ());
                }
 
                protected override void CloneTo (CloneContext clonectx, Expression t)
@@ -218,31 +179,22 @@ namespace Mono.CSharp {
                        this.loc = l;
                }
                
-               public override Expression DoResolve (ResolveContext ec)
+               protected override Expression DoResolve (ResolveContext ec)
                {
-                       MemberList members = TypeManager.FindMembers (
-                               ec.CurrentInitializerVariable.Type,
-                               MemberTypes.Field | MemberTypes.Property,
-                               BindingFlags.Instance | BindingFlags.Static | BindingFlags.Public,
-                               CompletionMemberAccess.CollectingFilter, partial_name);
-
-                       string [] result = new string [members.Count];
-                       int i = 0;
-                       foreach (MemberInfo mi in members){
-                               string name;
-                               
-                               if (partial_name == null)
-                                       name = mi.Name;
-                               else
-                                       name = mi.Name.Substring (partial_name.Length);
-                               
-                               result [i++] = name;
+                       var members = MemberCache.GetCompletitionMembers (ec.CurrentInitializerVariable.Type, partial_name);
+
+// TODO: Does this mean exact match only ?
+//                     if (partial_name != null && results.Count > 0 && result [0] == "")
+//                             throw new CompletionResult ("", new string [] { "=" });
+
+                       var results = members.Where (l => (l.Kind & (MemberKind.Field | MemberKind.Property)) != 0).Select (l => l.Name).ToList ();
+                       if (partial_name != null) {
+                               var temp = new List<string> ();
+                               AppendResults (temp, partial_name, results);
+                               results = temp;
                        }
 
-                       if (partial_name != null && i > 0 && result [0] == "")
-                               throw new CompletionResult ("", new string [] { "=" });
-                       
-                       throw new CompletionResult (partial_name == null ? "" : partial_name, result);
+                       throw new CompletionResult (partial_name == null ? "" : partial_name, results.ToArray ());
                }
 
                protected override void CloneTo (CloneContext clonectx, Expression t)
@@ -250,4 +202,5 @@ namespace Mono.CSharp {
                        // Nothing
                }
        }
+       
 }