Add AliasDeclaration and DeclarationType.ComAlias, adjust binding.

Author: comintern

Rubberduck.Parsing/Binding/SimpleNameTypeBinding.cs

@@ -205,6 +205,11 @@ procedural module or class module within a referenced project.
             {
                 return new SimpleNameExpression(referencedProjectEnumType, ExpressionClassification.Type, _expression);
             }
+            var referencedProjectAliasType = _declarationFinder.FindMemberReferencedProject(_project, _module, _parent, name, DeclarationType.ComAlias);
+            if (referencedProjectAliasType != null)
+            {
+                return new SimpleNameExpression(referencedProjectAliasType, ExpressionClassification.Type, _expression);
+            }
             return null;
         }
     }

Rubberduck.Parsing/ComReflection/ComVariant.cs

@@ -13,6 +13,7 @@ public class ComVariant
             {VarEnum.VT_DISPATCH, Tokens.Object},
             {VarEnum.VT_VOID, string.Empty},
             {VarEnum.VT_VARIANT, Tokens.Variant},
+            {VarEnum.VT_UNKNOWN, Tokens.Object},
             {VarEnum.VT_BLOB_OBJECT, Tokens.Object},
             {VarEnum.VT_STORED_OBJECT, Tokens.Object},
             {VarEnum.VT_STREAMED_OBJECT, Tokens.Object},
@@ -35,7 +36,7 @@ public class ComVariant
             {VarEnum.VT_DECIMAL, Tokens.Decimal},
             {VarEnum.VT_EMPTY, Tokens.Empty},
             {VarEnum.VT_R4, Tokens.Single},
-            {VarEnum.VT_R8, Tokens.Double},
+            {VarEnum.VT_R8, Tokens.Double}
         };
 
 

Rubberduck.Parsing/ComReflection/ReferencedDeclarationsCollector.cs

@@ -132,6 +132,12 @@ public List<Declaration> LoadDeclarationsFromLibrary()
             _serialized = new SerializableProject(project);
             _declarations.Add(project);
 
+            foreach (var alias in type.Aliases.Select(item => new AliasDeclaration(item, project, projectName)))
+            {
+                _declarations.Add(alias);
+                _serialized.AddDeclaration(new SerializableDeclarationTree(alias));
+            }
+
             foreach (var module in type.Members)
             {
                 var moduleName = new QualifiedModuleName(_referenceName, _path,

Rubberduck.Parsing/Rubberduck.Parsing.csproj

@@ -147,6 +147,7 @@
     <Compile Include="ComReflection\ComModule.cs" />
     <Compile Include="ComReflection\ComProject.cs" />
     <Compile Include="SymbolList.cs" />
+    <Compile Include="Symbols\AliasDeclaration.cs" />
     <Compile Include="Symbols\DeclarationLoaders\SpecialFormDeclarations.cs" />
     <Compile Include="Symbols\CommentNode.cs" />
     <Compile Include="ComReflection\ComParameter.cs" />

Rubberduck.Parsing/Symbols/AccessibilityCheck.cs

@@ -45,10 +45,15 @@ public static bool IsMemberAccessible(Declaration callingProject, Declaration ca
             {
                 return true;
             }
+            if (calleeMember.IsBuiltIn && calleeMember.Accessibility > Accessibility.Friend)
+            {
+                return true;
+            }
             var memberModule = Declaration.GetModuleParent(calleeMember);
             return IsModuleAccessible(callingProject, callingModule, memberModule)
                     && (calleeMember.DeclarationType.HasFlag(DeclarationType.EnumerationMember)
                         || calleeMember.DeclarationType.HasFlag(DeclarationType.UserDefinedTypeMember)
+                        || calleeMember.DeclarationType.HasFlag(DeclarationType.ComAlias)
                         || HasPublicScope(calleeMember)
                         || (IsEnclosingProject(callingProject, memberModule) && IsAccessibleThroughoutTheSameProject(calleeMember)));
         }

Rubberduck.Parsing/Symbols/AliasDeclaration.cs

@@ -0,0 +1,26 @@
+using Rubberduck.Parsing.ComReflection;
+using Rubberduck.VBEditor;
+
+namespace Rubberduck.Parsing.Symbols
+{
+    public class AliasDeclaration : Declaration
+    {
+        public AliasDeclaration(ComAlias alias, Declaration parent, QualifiedModuleName module)
+            : base(
+                module.QualifyMemberName(alias.Name),
+                parent,
+                parent,
+                alias.TypeName,
+                null,
+                false,
+                false,
+                Accessibility.Public,
+                DeclarationType.ComAlias,
+                null,
+                Selection.Home,
+                false,
+                null,
+                true)
+        { }
+    }
+}

Rubberduck.Parsing/Symbols/DeclarationType.cs

@@ -63,6 +63,8 @@ public enum DeclarationType
         UnresolvedMember = 1 << 26,
         [DebuggerDisplay("BracketedExpression")]
         BracketedExpression = 1 << 27,
+        [DebuggerDisplay("ComAlias")]
+        ComAlias = 1 << 28
     }
 
     public interface IIdentifier { IdentifierNode Identifier { get; } }

Rubberduck.Parsing/Symbols/TypeAnnotationPass.cs

@@ -41,7 +41,9 @@ public void Execute()
 
         private void AnnotateType(Declaration declaration)
         {
-            if (declaration.DeclarationType == DeclarationType.ClassModule || declaration.DeclarationType == DeclarationType.UserDefinedType)
+            if (declaration.DeclarationType == DeclarationType.ClassModule || 
+                declaration.DeclarationType == DeclarationType.UserDefinedType || 
+                declaration.DeclarationType == DeclarationType.ComAlias)
             {
                 declaration.AsTypeDeclaration = declaration;
                 return;