Add skeleton for ComAlias implementation (partial rollback).

Author: comintern

Rubberduck.Parsing/ComReflection/ComAlias.cs

@@ -0,0 +1,39 @@
+using System;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.Linq;
+using System.Runtime.InteropServices;
+using System.Runtime.InteropServices.ComTypes;
+using System.Security.Permissions;
+using System.Text;
+using System.Threading.Tasks;
+using TYPEATTR = System.Runtime.InteropServices.ComTypes.TYPEATTR;
+
+namespace Rubberduck.Parsing.ComReflection
+{
+    public class ComAlias : ComBase
+    {
+        public VarEnum VarType { get; set; }
+
+        public string TypeName { get; set; }
+
+        public ComAlias(ITypeLib typeLib, ITypeInfo info, int index, TYPEATTR attributes) : base(typeLib, index)
+        {
+            Index = index;
+            Documentation = new ComDocumentation(typeLib, index);
+            VarType = (VarEnum)attributes.tdescAlias.vt;
+            if (ComVariant.TypeNames.ContainsKey(VarType))
+            {
+                TypeName = ComVariant.TypeNames[VarType];
+            }
+            else if (VarType == VarEnum.VT_USERDEFINED)
+            {
+                //?
+            }
+            else
+            {
+                throw new NotImplementedException(string.Format("Didn't expect an alias with a type of {0}.", VarType));
+            }
+        }
+    }
+}

Rubberduck.Parsing/ComReflection/ComProject.cs

@@ -25,6 +25,12 @@ public class ComProject : ComBase
         // ReSharper disable once NotAccessedField.Local
         private TypeLibTypeFlags _flags;
 
+        private readonly List<ComAlias> _aliases = new List<ComAlias>();
+        public IEnumerable<ComAlias> Aliases
+        {
+            get { return _aliases; }
+        }
+
         private readonly List<ComInterface> _interfaces = new List<ComInterface>();
         public IEnumerable<ComInterface> Interfaces
         {
@@ -119,6 +125,7 @@ private void LoadModules(ITypeLib typeLibrary)
                             _classes.Add(coclass as ComCoClass);
                             if (type != null) KnownTypes.TryAdd(typeAttributes.guid, coclass);
                             break;
+                        case TYPEKIND.TKIND_ALIAS:
                         case TYPEKIND.TKIND_DISPATCH:
                         case TYPEKIND.TKIND_INTERFACE:
                             var intface = type ?? new ComInterface(typeLibrary, info, typeAttributes, index);
@@ -134,8 +141,11 @@ private void LoadModules(ITypeLib typeLibrary)
                             _modules.Add(module as ComModule);
                             if (type != null) KnownTypes.TryAdd(typeAttributes.guid, module);
                             break;
-                        case TYPEKIND.TKIND_ALIAS:
-                            //TKIND_ALIAS does not appear to be a supported member type in VBA.
+                        //case TYPEKIND.TKIND_ALIAS:
+                        //    //TKIND_ALIAS does not appear to be a supported member type in VBA - cache it internally to use the aliased type.
+                        //    var alias = new ComAlias(typeLibrary, info, index, typeAttributes);
+                        //    _aliases.Add(alias);
+                        //    break;
                         case TYPEKIND.TKIND_UNION:
                             //TKIND_UNION is not a supported member type in VBA.
                             break;

Rubberduck.Parsing/Rubberduck.Parsing.csproj

@@ -111,6 +111,7 @@
     <Compile Include="Binding\ParenthesizedDefaultBinding.cs" />
     <Compile Include="Binding\TypeBindingContext.cs" />
     <Compile Include="Binding\ExpressionClassification.cs" />
+    <Compile Include="ComReflection\ComAlias.cs" />
     <Compile Include="ComReflection\ComBase.cs" />
     <Compile Include="ComReflection\ComCoClass.cs" />
     <Compile Include="ComReflection\ComDocumentation.cs" />