Implement ObsoleteCallingConventionInspection.

Author: comintern

Rubberduck.CodeAnalysis/Inspections/Concrete/ObsoleteCallingConventionInspection.cs

@@ -0,0 +1,58 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using Antlr4.Runtime;
+using Rubberduck.Inspections.Abstract;
+using Rubberduck.Inspections.Concrete;
+using Rubberduck.Inspections.Results;
+using Rubberduck.Parsing;
+using Rubberduck.Parsing.Grammar;
+using Rubberduck.Parsing.Inspections.Abstract;
+using Rubberduck.Parsing.VBA;
+using Rubberduck.Resources.Inspections;
+using Rubberduck.VBEditor;
+
+namespace Rubberduck.Inspections.Inspections.Concrete
+{
+    public sealed class ObsoleteCallingConventionInspection : ParseTreeInspectionBase
+    {
+        public ObsoleteCallingConventionInspection(RubberduckParserState state)
+            : base(state)
+        {
+            Listener = new ObsoleteCallingConventionListener();
+        }
+
+        public override IInspectionListener Listener { get; }
+
+        protected override IEnumerable<IInspectionResult> DoGetInspectionResults()
+        {
+            return Listener.Contexts
+                .Where(context => ((VBAParser.DeclareStmtContext) context.Context).CDECL() != null &&
+                    !IsIgnoringInspectionResultFor(context.ModuleName, context.Context.Start.Line))
+                .Select(context => new QualifiedContextInspectionResult(this,
+                    string.Format(InspectionResults.ObsoleteCallingConventionInspection,
+                        ((VBAParser.DeclareStmtContext) context.Context).identifier().GetText()), context));
+        }
+
+        public class ObsoleteCallingConventionListener : VBAParserBaseListener, IInspectionListener
+        {
+            private readonly List<QualifiedContext<ParserRuleContext>> _contexts = new List<QualifiedContext<ParserRuleContext>>();
+            public IReadOnlyList<QualifiedContext<ParserRuleContext>> Contexts => _contexts;
+
+            public QualifiedModuleName CurrentModuleName { get; set; }
+
+            public void ClearContexts()
+            {
+                _contexts.Clear();
+            }
+
+            public override void ExitDeclareStmt(VBAParser.DeclareStmtContext context)
+            {
+                _contexts.Add(new QualifiedContext<ParserRuleContext>(CurrentModuleName, context));
+                base.ExitDeclareStmt(context);
+            }
+        }
+    }
+}

Rubberduck.CodeAnalysis/Rubberduck.CodeAnalysis.csproj

@@ -79,6 +79,7 @@
     <Compile Include="Inspections\Concrete\EmptyForLoopBlockInspection.cs" />
     <Compile Include="Inspections\Concrete\BooleanAssignedInIfElseInspection.cs" />
     <Compile Include="Inspections\Concrete\EmptyWhileWendBlockInspection.cs" />
+    <Compile Include="Inspections\Concrete\ObsoleteCallingConventionInspection.cs" />
     <Compile Include="Inspections\Concrete\ObsoleteErrorSyntaxInspection.cs" />
     <Compile Include="Inspections\Concrete\ObsoleteMemberUsageInspection.cs" />
     <Compile Include="Inspections\Concrete\SheetAccessedUsingStringInspection.cs" />

Rubberduck.Resources/Inspections/InspectionInfo.Designer.cs

@@ -331,4 +331,7 @@ If the parameter can be null, ignore this inspection result; passing a null valu
   <data name="ObsoleteMemberUsageInspection" xml:space="preserve">
     <value>This member is marked '@Obsolete'. It should no longer be used, there should be a better alternative.</value>
   </data>
+  <data name="ObsoleteCallingConventionInspection" xml:space="preserve">
+    <value>Windows implementations of Visual Basic only support the StdCall calling convention, and use of of the CDecl calling convention is only supported in Macintosh versions of VBA. Use of this keyword in Windows will result in runtime error 49 - 'Bad DLL calling convention'. If this procedure is only intended to be used on Macintosh hosts, it should be conditionally compiled.</value>
+  </data>
 </root>

Rubberduck.Resources/Inspections/InspectionInfo.resx

@@ -330,4 +330,7 @@
   <data name="ObsoleteMemberUsageInspection" xml:space="preserve">
     <value>Member marked as '@Obsolete' is used</value>
   </data>
+  <data name="ObsoleteCallingConventionInspection" xml:space="preserve">
+    <value>Use of obsolete 'CDecl' calling convention</value>
+  </data>
 </root>

Rubberduck.Resources/Inspections/InspectionNames.Designer.cs

@@ -353,4 +353,8 @@
     <value>Consider replacing the call to '{0}'. {1}</value>
     <comment>{1} Replacement documentation</comment>
   </data>
+  <data name="ObsoleteCallingConventionInspection" xml:space="preserve">
+    <value>'{0}' is declared using the obsolete 'CDecl' calling convention.</value>
+    <comment>{0} Procedure name</comment>
+  </data>
 </root>