Added Document/Project analyzers

Author: Omar Tawfik

vsintegration/src/FSharp.Editor/DocumentDiagnosticAnalyzer.fs

@@ -0,0 +1,43 @@
+// Copyright (c) Microsoft Corporation.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+
+namespace Microsoft.VisualStudio.FSharp.Editor
+
+open System
+open System.Composition
+open System.Collections.Immutable
+open System.Threading
+open System.Threading.Tasks
+
+open Microsoft.CodeAnalysis
+open Microsoft.CodeAnalysis.Diagnostics
+open Microsoft.CodeAnalysis.Host.Mef
+open Microsoft.CodeAnalysis.Text
+open Microsoft.CodeAnalysis.SolutionCrawler
+
+open Microsoft.FSharp.Compiler
+open Microsoft.FSharp.Compiler.SourceCodeServices
+
+open Microsoft.VisualStudio.FSharp.LanguageService
+
+[<DiagnosticAnalyzer(FSharpCommonConstants.FSharpLanguageName)>]
+type internal FSharpDocumentDiagnosticAnalyzer() =
+    inherit DocumentDiagnosticAnalyzer()
+    
+    override this.SupportedDiagnostics with get() = ImmutableArray<DiagnosticDescriptor>.Empty
+
+    override this.AnalyzeSyntaxAsync(document: Document, addDiagnostic: Action<Diagnostic>, cancellationToken: CancellationToken): Task =
+        let computation = async {
+            let! sourceText = document.GetTextAsync(cancellationToken) |> Async.AwaitTask
+            let options = CommonRoslynHelpers.GetFSharpProjectOptionsForRoslynProject(document.Project)
+            let! parseResults = FSharpChecker.Instance.ParseFileInProject(document.Name, sourceText.ToString(), options)
+            
+            parseResults.Errors |> Seq.iter(fun (error) -> printf "%A" error) |> ignore
+
+            return List<Diagnostic>.Empty
+        }
+
+        let action() = computation |> Async.RunSynchronously |> Seq.iter(fun diagnostic -> addDiagnostic.Invoke(diagnostic))
+        Task.Run(action, cancellationToken)
+
+    override this.AnalyzeSemanticsAsync(_: Document, _: Action<Diagnostic>, _: CancellationToken): Task =
+        Task.CompletedTask

vsintegration/src/FSharp.Editor/FSharp.Editor.fsproj

@@ -31,19 +31,22 @@
   <ItemGroup>
     <Compile Include="AssemblyInfo.fs" />
     <Compile Include="ColorizationService.fs">
-        <Link>Classification\ColorizationService.fs</Link>
+      <Link>Classification\ColorizationService.fs</Link>
     </Compile>
     <Compile Include="BraceMatchingService.fs">
-        <Link>Utilities\BraceMatchingService.fs</Link>
+      <Link>Utilities\BraceMatchingService.fs</Link>
     </Compile>
     <Compile Include="IndentationService.fs">
-        <Link>Utilities\IndentationService.fs</Link>
+      <Link>Utilities\IndentationService.fs</Link>
     </Compile>
     <Compile Include="BreakpointResolutionService.fs">
-        <Link>Debugging\BreakpointResolutionService.fs</Link>
+      <Link>Debugging\BreakpointResolutionService.fs</Link>
     </Compile>
     <Compile Include="LanguageDebugInfoService.fs">
-        <Link>Debugging\LanguageDebugInfoService.fs</Link>
+      <Link>Debugging\LanguageDebugInfoService.fs</Link>
+    </Compile>
+    <Compile Include="DocumentDiagnosticAnalyzer.fs">
+        <Link>Diagnostics\DocumentDiagnosticAnalyzer.fs</Link>
     </Compile>
     <Compile Include="ProjectSiteService.fs" />
     <Compile Include="ContentType.fs" />

vsintegration/src/FSharp.LanguageService/FSharp.LanguageService.fsproj

@@ -86,6 +86,7 @@
     <Reference Include="Microsoft.VisualStudio.Shell.Interop.8.0.dll" />
     <Reference Include="Microsoft.VisualStudio.Shell.Interop.9.0.dll" />
     <Reference Include="Microsoft.VisualStudio.Shell.Interop.10.0.dll" />
+    <Reference Include="Microsoft.VisualStudio.Shell.Interop.11.0.dll" />
     <Reference Include="Microsoft.VisualStudio.Shell.Interop.dll" />
     <Reference Include="Microsoft.VisualStudio.Shell.Immutable.10.0.dll" />
     <Reference Include="Microsoft.VisualStudio.Shell.Immutable.11.0.dll" />

vsintegration/src/FSharp.LanguageService/ProjectSite.fs

@@ -59,7 +59,7 @@ type internal FSharpProjectSite(hierarchy: IVsHierarchy, serviceProvider: System
             | (VSConstants.S_OK, id) -> id
             | _ -> uint32 VSConstants.VSITEMID.Nil
 
-        let document = this.ProjectTracker.DocumentProvider.TryGetDocumentForFile(this, itemid, file, SourceCodeKind.Regular, fun x -> true)
+        let document = this.ProjectTracker.DocumentProvider.TryGetDocumentForFile(this, itemid, file, SourceCodeKind.Regular, false, fun x -> true)
         this.AddDocument(document, true)
 
     member internal this.OnProjectSettingsChanged(hier: IVsHierarchy, site : IProjectSite) =