initial code

Author: razzmatazz

src/CSharpLanguageServer/Diagnostics.fs

@@ -1,17 +1,56 @@
 namespace CSharpLanguageServer
 
+open System.IO
 open Microsoft.Extensions.Logging
+open Ionide.LanguageServerProtocol
+open Ionide.LanguageServerProtocol.Server
+open Ionide.LanguageServerProtocol.Types
+open Ionide.LanguageServerProtocol.JsonRpc
 
 open CSharpLanguageServer.Types
 open CSharpLanguageServer.Logging
+open CSharpLanguageServer.RoslynHelpers
 
 module Diagnostics =
     let private logger = Logging.getLoggerByName "Diagnostics"
 
-    let diagnoseSolution (settings: ServerSettings): int =
-        logger.LogDebug("diagnoseSolution: loading solution, settings={settings}", settings.SolutionPath)
+    type LspClientStub() =
+        interface System.IDisposable with
+            member _.Dispose() = ()
 
-        logger.LogError("diagnoseSolution: loading solution {sln}", settings.SolutionPath)
+        interface ILspClient with
+            member _.WindowShowMessage(p: ShowMessageParams) = async { logger.LogDebug("WindowShowMessage: {message}", p.Message); return () }
+            member _.WindowLogMessage(p: LogMessageParams) = async { logger.LogDebug("WindowLogMessage: {message}", p.Message); return () }
+            member _.TelemetryEvent(_: LSPAny) = async { return () }
+            member _.TextDocumentPublishDiagnostics(_: PublishDiagnosticsParams) = async { return () }
+            member _.LogTrace(_: LogTraceParams) = async { return () }
+            member _.CancelRequest(_: CancelParams) = async { return () }
+            member _.Progress(_: ProgressParams) = async { return () }
+            member _.WorkspaceWorkspaceFolders() = async { return LspResult.Ok None }
+            member _.WorkspaceConfiguration(_: ConfigurationParams) = async { return LspResult.Ok [||] }
+            member _.WindowWorkDoneProgressCreate(_: WorkDoneProgressCreateParams) = async { return LspResult.Ok () }
+            member _.WorkspaceSemanticTokensRefresh() = async { return LspResult.Ok () }
+            member _.WindowShowDocument(_: ShowDocumentParams) = async { return LspResult.Ok { Success = false } }
+            member _.WorkspaceInlineValueRefresh() = async { return LspResult.Ok () }
+            member _.WorkspaceInlayHintRefresh() = async { return LspResult.Ok () }
+            member _.WorkspaceDiagnosticRefresh() = async { return LspResult.Ok () }
+            member _.ClientRegisterCapability(_: RegistrationParams) = async { return LspResult.Ok () }
+            member _.ClientUnregisterCapability(_: UnregistrationParams) = async { return LspResult.Ok () }
+            member _.WindowShowMessageRequest(_: ShowMessageRequestParams) = async { return LspResult.Ok None }
+            member _.WorkspaceCodeLensRefresh() = async { return LspResult.Ok () }
+            member _.WorkspaceApplyEdit(_: ApplyWorkspaceEditParams) = async { return LspResult.Ok { Applied = false; FailureReason = None; FailedChange = None } }
+
+    let diagnoseSolution (settings: ServerSettings): Async<int> = async {
+        logger.LogDebug("diagnoseSolution: settings={settings}", settings)
+
+        logger.LogDebug("diagnoseSolution: loading solution..")
+
+        let lspClient = LspClientStub()
+        //let cwd = (string (Directory.GetCurrentDirectory())
+        let cwd = "/Users/bob/src/test-csharp-net8"
+        let! sln = loadSolutionOnSolutionPathOrDir lspClient logger None cwd
 
         let exitCode = 0
-        exitCode
+
+        return exitCode
+    }

src/CSharpLanguageServer/Program.fs

@@ -59,7 +59,8 @@ let entry args =
         match serverArgs.TryGetResult <@ Diagnose @> with
         | Some _ ->
             Logging.setupLogging LogLevel.Trace
-            diagnoseSolution settings
+            let exitCode = diagnoseSolution settings |> Async.RunSynchronously
+            exitCode
 
         | _ ->
             Logging.setupLogging settings.LogLevel