Synced with latest commits. Merge remote-tracking branch 'rubberduck-vba/next' into next

BZngr · BZngr · commit f0c8a50f74ee · 2017-03-02T08:15:56.000-08:00
diff --git a/RetailCoder.VBE/Inspections/ImplicitByRefParameterInspection.cs b/RetailCoder.VBE/Inspections/ImplicitByRefParameterInspection.cs
@@ -23,7 +23,7 @@ public ImplicitByRefParameterInspection(RubberduckParserState state)
         public override IEnumerable<InspectionResultBase> GetInspectionResults()
         {
             var interfaceMembers = UserDeclarations.FindInterfaceImplementationMembers();
-            var builtinEventHandlers = State.DeclarationFinder.FindBuiltinEventHandlers();
+            var builtinEventHandlers = State.DeclarationFinder.FindEventHandlers();
 
             var issues = State.DeclarationFinder
                 .UserDeclarations(DeclarationType.Parameter)
diff --git a/RetailCoder.VBE/Inspections/ParameterCanBeByValInspection.cs b/RetailCoder.VBE/Inspections/ParameterCanBeByValInspection.cs
@@ -33,7 +33,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()
 
             var eventMembers = declarations.Where(item => !item.IsBuiltIn && item.DeclarationType == DeclarationType.Event).ToList();
             var formEventHandlerScopes = State.FindFormEventHandlers().Select(handler => handler.Scope);
-            var eventHandlerScopes = State.DeclarationFinder.FindBuiltinEventHandlers().Concat(declarations.FindUserEventHandlers()).Select(e => e.Scope);
+            var eventHandlerScopes = State.DeclarationFinder.FindEventHandlers().Concat(declarations.FindUserEventHandlers()).Select(e => e.Scope);
             var eventScopes = eventMembers.Select(s => s.Scope)
                 .Concat(formEventHandlerScopes)
                 .Concat(eventHandlerScopes);
diff --git a/RetailCoder.VBE/Inspections/ParameterNotUsedInspection.cs b/RetailCoder.VBE/Inspections/ParameterNotUsedInspection.cs
@@ -1,6 +1,5 @@
 using System.Collections.Generic;
 using System.Linq;
-using Rubberduck.Common;
 using Rubberduck.Inspections.Abstract;
 using Rubberduck.Inspections.Resources;
 using Rubberduck.Inspections.Results;
@@ -29,7 +28,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()
             var interfaceMembers = State.DeclarationFinder.FindAllInterfaceMembers();
             var interfaceImplementationMembers = State.DeclarationFinder.FindAllInterfaceImplementingMembers();
 
-            var builtInHandlers = State.DeclarationFinder.FindBuiltinEventHandlers();
+            var handlers = State.DeclarationFinder.FindEventHandlers();
 
             var parameters = State.DeclarationFinder
                 .UserDeclarations(DeclarationType.Parameter)
@@ -39,7 +38,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()
                                     && parameter.ParentDeclaration.DeclarationType != DeclarationType.LibraryFunction
                                     && parameter.ParentDeclaration.DeclarationType != DeclarationType.LibraryProcedure
                                     && !interfaceMembers.Contains(parameter.ParentDeclaration)
-                                    && !builtInHandlers.Contains(parameter.ParentDeclaration))
+                                    && !handlers.Contains(parameter.ParentDeclaration))
                 .ToList();
 
             var issues = from issue in parameters
diff --git a/RetailCoder.VBE/Inspections/ProcedureCanBeWrittenAsFunctionInspection.cs b/RetailCoder.VBE/Inspections/ProcedureCanBeWrittenAsFunctionInspection.cs
@@ -43,7 +43,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()
             }
 
             var userDeclarations = UserDeclarations.ToList();
-            var builtinHandlers = State.DeclarationFinder.FindBuiltinEventHandlers().ToList();
+            var builtinHandlers = State.DeclarationFinder.FindEventHandlers().ToList();
 
             var contextLookup = userDeclarations.Where(decl => decl.Context != null).ToDictionary(decl => decl.Context);
 
diff --git a/RetailCoder.VBE/Inspections/ProcedureNotUsedInspection.cs b/RetailCoder.VBE/Inspections/ProcedureNotUsedInspection.cs
@@ -41,7 +41,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()
             var handlers = State.DeclarationFinder.UserDeclarations(DeclarationType.Control)
                 .SelectMany(control => declarations.FindEventHandlers(control)).ToList();
 
-            var builtInHandlers = State.DeclarationFinder.FindBuiltinEventHandlers();
+            var builtInHandlers = State.DeclarationFinder.FindEventHandlers();
             handlers.AddRange(builtInHandlers);
 
             var withEventFields = State.DeclarationFinder.UserDeclarations(DeclarationType.Variable).Where(item => item.IsWithEvents).ToList();
diff --git a/RetailCoder.VBE/Inspections/UseMeaningfulNameInspection.cs b/RetailCoder.VBE/Inspections/UseMeaningfulNameInspection.cs
@@ -42,7 +42,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()
             var settings = _settings.Load(new CodeInspectionSettings()) ?? new CodeInspectionSettings();
             var whitelistedNames = settings.WhitelistedIdentifiers.Select(s => s.Identifier).ToArray();
 
-            var handlers = State.DeclarationFinder.FindBuiltinEventHandlers();
+            var handlers = State.DeclarationFinder.FindEventHandlers();
 
             var issues = UserDeclarations
                             .Where(declaration => !string.IsNullOrEmpty(declaration.IdentifierName) &&
diff --git a/RetailCoder.VBE/Root/RubberduckModule.cs b/RetailCoder.VBE/Root/RubberduckModule.cs
@@ -466,7 +466,9 @@ private IMenuItem GetRefactoringsParentMenu()
             var items = new IMenuItem[]
             {
                 KernelInstance.Get<CodePaneRefactorRenameCommandMenuItem>(),
+#if DEBUG
                 KernelInstance.Get<RefactorExtractMethodCommandMenuItem>(),
+#endif
                 KernelInstance.Get<RefactorReorderParametersCommandMenuItem>(),
                 KernelInstance.Get<RefactorRemoveParametersCommandMenuItem>(),
                 KernelInstance.Get<RefactorIntroduceParameterCommandMenuItem>(),
diff --git a/Rubberduck.Parsing/ComReflection/ComAlias.cs b/Rubberduck.Parsing/ComReflection/ComAlias.cs
@@ -1,6 +1,4 @@
-﻿using System;
-using System.Diagnostics;
-using System.Runtime.InteropServices;
+﻿using System.Diagnostics;
 using System.Runtime.InteropServices.ComTypes;
 using TYPEATTR = System.Runtime.InteropServices.ComTypes.TYPEATTR;
 using TYPEFLAGS = System.Runtime.InteropServices.ComTypes.TYPEFLAGS;
@@ -10,7 +8,6 @@ namespace Rubberduck.Parsing.ComReflection
     [DebuggerDisplay("{Name} As {TypeName}")]
     public class ComAlias : ComBase
     {
-        public VarEnum VarType { get; private set; }
         public string TypeName { get; private set; }
         public bool IsHidden { get; private set; }
         public bool IsRestricted { get; private set; }
@@ -20,7 +17,6 @@ public ComAlias(ITypeLib typeLib, ITypeInfo info, int index, TYPEATTR attributes
             Index = index;
             Documentation = new ComDocumentation(typeLib, index);
             Guid = attributes.guid;
-            VarType = (VarEnum)attributes.tdescAlias.vt;
             IsHidden = attributes.wTypeFlags.HasFlag(TYPEFLAGS.TYPEFLAG_FHIDDEN);
             IsRestricted = attributes.wTypeFlags.HasFlag(TYPEFLAGS.TYPEFLAG_FRESTRICTED);
             
@@ -29,22 +25,9 @@ public ComAlias(ITypeLib typeLib, ITypeInfo info, int index, TYPEATTR attributes
                 TypeName = "LongPtr";
                 return;                
             }
-          
-            if (ComVariant.TypeNames.ContainsKey(VarType))
-            {
-                TypeName = ComVariant.TypeNames[VarType];
-            }
-            else if (VarType == VarEnum.VT_USERDEFINED)
-            {
-                ITypeInfo refType;
-                info.GetRefTypeInfo((int)attributes.tdescAlias.lpValue, out refType);
-                var doc = new ComDocumentation(refType, -1);
-                TypeName = doc.Name;
-            }
-            else
-            {
-                throw new NotImplementedException(string.Format("Didn't expect an alias with a type of {0}.", VarType));
-            }
+
+            var aliased = new ComParameter(attributes, info);
+            TypeName = aliased.TypeName;
         }
     }
 }
diff --git a/Rubberduck.Parsing/ComReflection/ComParameter.cs b/Rubberduck.Parsing/ComReflection/ComParameter.cs
@@ -37,7 +37,6 @@ public string DeclarationName
         public bool IsOptional { get; private set; }
         public bool IsParamArray { get; set; }
 
-
         private Guid _enumGuid = Guid.Empty;
         public bool IsEnumMember
         {
@@ -81,6 +80,12 @@ public ComParameter(ELEMDESC elemDesc, ITypeInfo info, string name)
             DefaultAsEnum = member != null ? member.Name : string.Empty;
         }
 
+        //This overload should only be used for retrieving the TypeName from a random TYPEATTR. TODO: Should be a base class of ComParameter instead.
+        public ComParameter(TYPEATTR attributes, ITypeInfo info)
+        {
+            GetParameterType(attributes.tdescAlias, info);
+        }
+
         private void GetParameterType(TYPEDESC desc, ITypeInfo info)
         {
             var vt = (VarEnum)desc.vt;
diff --git a/Rubberduck.Parsing/Symbols/BoundExpressionVisitor.cs b/Rubberduck.Parsing/Symbols/BoundExpressionVisitor.cs
@@ -1,5 +1,6 @@
 ﻿using Rubberduck.Parsing.Annotations;
 using Rubberduck.Parsing.Binding;
+using Rubberduck.Parsing.Grammar;
 using Rubberduck.VBEditor;
 
 namespace Rubberduck.Parsing.Symbols
@@ -47,6 +48,13 @@ private void Visit(
             bool isAssignmentTarget,
             bool hasExplicitLetStatement)
         {
+            if (isAssignmentTarget && expression.Context.Parent is VBAParser.IndexExprContext && !expression.ReferencedDeclaration.IsArray)
+            {
+                // 'SomeDictionary' is not the assignment target in 'SomeDictionary("key") = 42'
+                // ..but we want to treat array index assignment as assignment to the array itself.
+                isAssignmentTarget = false;
+            }
+
             var callSiteContext = expression.Context;
             var identifier = expression.Context.GetText();
             var callee = expression.ReferencedDeclaration;
diff --git a/Rubberduck.Parsing/Symbols/DeclarationFinder.cs b/Rubberduck.Parsing/Symbols/DeclarationFinder.cs
@@ -64,7 +64,7 @@ public DeclarationFinder(IReadOnlyList<Declaration> declarations, IEnumerable<IA
             _parametersByParent = declarations.Where(declaration => declaration.DeclarationType == DeclarationType.Parameter)
                 .GroupBy(declaration => declaration.ParentDeclaration).ToConcurrentDictionary();
             _userDeclarationsByType = declarations.Where(declaration => !declaration.IsBuiltIn).GroupBy(declaration => declaration.DeclarationType).ToConcurrentDictionary();
-            _builtinEvents = new Lazy<ConcurrentBag<Declaration>>(() => FindBuiltInEventHandlers(declarations), true);
+            _eventHandlers = new Lazy<ConcurrentBag<Declaration>>(() => FindEventHandlers(declarations), true);
 
             _projects = _projects = new Lazy<ConcurrentBag<Declaration>>(() => new ConcurrentBag<Declaration>(declarations.Where(d => d.DeclarationType == DeclarationType.Project)), true);
             _classes = new Lazy<ConcurrentBag<Declaration>>(() => new ConcurrentBag<Declaration>(declarations.Where(d => d.DeclarationType == DeclarationType.ClassModule)), true);
@@ -165,12 +165,12 @@ public IEnumerable<Declaration> FindDeclarationsWithNonBaseAsType()
             }
         }
 
-        private readonly Lazy<ConcurrentBag<Declaration>> _builtinEvents; 
-        public IEnumerable<Declaration> FindBuiltinEventHandlers()
+        private readonly Lazy<ConcurrentBag<Declaration>> _eventHandlers; 
+        public IEnumerable<Declaration> FindEventHandlers()
         {
             lock (ThreadLock)
             {
-                return _builtinEvents.Value;
+                return _eventHandlers.Value;
             }
         }
 
@@ -695,7 +695,23 @@ private IEnumerable<Declaration> FindAllInReferencedProjectByPriority(Declaratio
             }
         }
 
-        public ConcurrentBag<Declaration> FindBuiltInEventHandlers(IEnumerable<Declaration> declarations)
+        private IEnumerable<Declaration> FindFormControlHandlers(IReadOnlyList<Declaration> declarations)
+        {
+            var controls = declarations
+                .Where(declaration => declaration.DeclarationType == DeclarationType.Control);
+            var handlerNames = declarations
+                .Where(declaration => declaration.IsBuiltIn && declaration.DeclarationType == DeclarationType.Event)
+                .SelectMany(e => controls.Select(c => c.IdentifierName + "_" + e.IdentifierName));
+            if (!_userDeclarationsByType.ContainsKey(DeclarationType.Procedure))
+            {
+                return Enumerable.Empty<Declaration>();
+            }
+            var handlers = _userDeclarationsByType[DeclarationType.Procedure]
+                .Where(procedure => handlerNames.Contains(procedure.IdentifierName));
+            return handlers;
+        }
+
+        private ConcurrentBag<Declaration> FindEventHandlers(IEnumerable<Declaration> declarations)
         {
             var declarationList = declarations.ToList();
 
@@ -725,7 +741,9 @@ public ConcurrentBag<Declaration> FindBuiltInEventHandlers(IEnumerable<Declarati
                 (!item.IsBuiltIn &&
                  item.DeclarationType == DeclarationType.Procedure &&
                  handlerNames.Contains(item.IdentifierName))
-                );
+                )
+                .Concat(_handlersByWithEventsField.Value.SelectMany(kvp => kvp.Value))
+                .Concat(FindFormControlHandlers(declarationList));
 
             return new ConcurrentBag<Declaration>(handlers);
         }
diff --git a/RubberduckTests/Grammar/ResolverTests.cs b/RubberduckTests/Grammar/ResolverTests.cs
@@ -902,6 +902,30 @@ End Sub
                 && !item.IsAssignment));
         }
 
+        [TestMethod]
+        public void SubscriptWrite_IsNotAssignmentReferenceToObjectDeclaration()
+        {
+            var code = @"
+Public Sub DoSomething()
+    Dim foo As Object
+    Set foo = CreateObject(""Scripting.Dictionary"")
+    foo(""key"") = 42
+End Sub
+";
+            // act
+            var state = Resolve(code);
+
+            // assert
+            var declaration = state.AllUserDeclarations.Single(item =>
+                item.DeclarationType == DeclarationType.Variable
+                && item.IdentifierName == "foo");
+
+            Assert.IsNotNull(declaration.References.SingleOrDefault(item =>
+                item.ParentScoping.DeclarationType == DeclarationType.Procedure
+                && item.ParentScoping.IdentifierName == "DoSomething"
+                && !item.IsAssignment));
+        }
+
         [TestMethod]
         public void ArraySubscriptWrite_IsAssignmentReferenceToArrayDeclaration()
         {
diff --git a/RubberduckTests/Inspections/ObjectVariableNotSetInpsectionTests.cs b/RubberduckTests/Inspections/ObjectVariableNotSetInpsectionTests.cs
@@ -16,6 +16,34 @@ namespace RubberduckTests.Inspections
     [TestClass]
     public class ObjectVariableNotSetInpsectionTests
     {
+        [TestMethod]
+        [TestCategory("Inspections")]
+        public void ObjectVariableNotSet_GivenIndexerObjectAccess_ReturnsNoResult()
+        {
+            const string inputCode = @"
+Private Sub DoSomething()
+    Dim target As Object
+    Set target = CreateObject(""Scripting.Dictionary"")
+    target(""foo"") = 42
+End Sub
+";
+            //Arrange
+            var builder = new MockVbeBuilder();
+            IVBComponent component;
+            var vbe = builder.BuildFromSingleStandardModule(inputCode, out component);
+            var mockHost = new Mock<IHostApplication>();
+            mockHost.SetupAllProperties();
+            var parser = MockParser.Create(vbe.Object, new RubberduckParserState(vbe.Object));
+
+            parser.Parse(new CancellationTokenSource());
+            if (parser.State.Status >= ParserState.Error) { Assert.Inconclusive("Parser Error"); }
+
+            var inspection = new ObjectVariableNotSetInspection(parser.State);
+            var inspectionResults = inspection.GetInspectionResults();
+
+            Assert.AreEqual(0, inspectionResults.Count());
+        }
+
         [TestMethod]
         [TestCategory("Inspections")]
         public void ObjectVariableNotSet_GivenStringVariable_ReturnsNoResult()

Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,7 @@ public ImplicitByRefParameterInspection(RubberduckParserState state)`
`23`	`23`	`public override IEnumerable<InspectionResultBase> GetInspectionResults()`
`24`	`24`	`{`
`25`	`25`	`var interfaceMembers = UserDeclarations.FindInterfaceImplementationMembers();`
`26`		`- var builtinEventHandlers = State.DeclarationFinder.FindBuiltinEventHandlers();`
	`26`	`+ var builtinEventHandlers = State.DeclarationFinder.FindEventHandlers();`
`27`	`27`
`28`	`28`	`var issues = State.DeclarationFinder`
`29`	`29`	`.UserDeclarations(DeclarationType.Parameter)`
Original file line number	Diff line number	Diff line change
`@@ -43,7 +43,7 @@ public override IEnumerable<InspectionResultBase> GetInspectionResults()`
`43`	`43`	`}`
`44`	`44`
`45`	`45`	`var userDeclarations = UserDeclarations.ToList();`
`46`		`- var builtinHandlers = State.DeclarationFinder.FindBuiltinEventHandlers().ToList();`
	`46`	`+ var builtinHandlers = State.DeclarationFinder.FindEventHandlers().ToList();`
`47`	`47`
`48`	`48`	`var contextLookup = userDeclarations.Where(decl => decl.Context != null).ToDictionary(decl => decl.Context);`
`49`	`49`
Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,6 @@ public string DeclarationName`
`37`	`37`	`public bool IsOptional { get; private set; }`
`38`	`38`	`public bool IsParamArray { get; set; }`
`39`	`39`
`40`		`-`
`41`	`40`	`private Guid _enumGuid = Guid.Empty;`
`42`	`41`	`public bool IsEnumMember`
`43`	`42`	`{`
`@@ -81,6 +80,12 @@ public ComParameter(ELEMDESC elemDesc, ITypeInfo info, string name)`
`81`	`80`	`DefaultAsEnum = member != null ? member.Name : string.Empty;`
`82`	`81`	`}`
`83`	`82`
	`83`	`+ //This overload should only be used for retrieving the TypeName from a random TYPEATTR. TODO: Should be a base class of ComParameter instead.`
	`84`	`+ public ComParameter(TYPEATTR attributes, ITypeInfo info)`
	`85`	`+ {`
	`86`	`+ GetParameterType(attributes.tdescAlias, info);`
	`87`	`+ }`
	`88`	`+`
`84`	`89`	`private void GetParameterType(TYPEDESC desc, ITypeInfo info)`
`85`	`90`	`{`
`86`	`91`	`var vt = (VarEnum)desc.vt;`