d625aaa96f
This PR implements the server-side for a new trace search mechanism in the InfoView. Demo: 
118 lines
4.5 KiB
Text
118 lines
4.5 KiB
Text
/-
|
|
Copyright (c) 2020 Marc Huisinga. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Authors: Marc Huisinga, Wojciech Nawrocki
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
public import Lean.Data.JsonRpc
|
|
public import Lean.Data.Lsp.TextSync
|
|
public import Lean.Data.Lsp.LanguageFeatures
|
|
public import Lean.Data.Lsp.CodeActions
|
|
public import Lean.Data.Lsp.Extra
|
|
|
|
public section
|
|
|
|
/-! Minimal LSP servers/clients do not have to implement a lot
|
|
of functionality. Most useful additional behavior is instead
|
|
opted into via capabilities. -/
|
|
|
|
namespace Lean
|
|
namespace Lsp
|
|
|
|
open Json
|
|
|
|
structure CompletionItemCapabilities where
|
|
insertReplaceSupport? : Option Bool := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure CompletionClientCapabilities where
|
|
completionItem? : Option CompletionItemCapabilities := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure TextDocumentClientCapabilities where
|
|
completion? : Option CompletionClientCapabilities := none
|
|
codeAction? : Option CodeActionClientCapabilities := none
|
|
inlayHint? : Option InlayHintClientCapabilities := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure ShowDocumentClientCapabilities where
|
|
support : Bool
|
|
deriving ToJson, FromJson
|
|
|
|
structure WindowClientCapabilities where
|
|
showDocument? : Option ShowDocumentClientCapabilities := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure ChangeAnnotationSupport where
|
|
groupsOnLabel? : Option Bool := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure WorkspaceEditClientCapabilities where
|
|
/-- The client supports versioned document changes in `WorkspaceEdit`s. -/
|
|
documentChanges? : Option Bool := none
|
|
/-- Whether the client in general supports change annotations on text edits. -/
|
|
changeAnnotationSupport? : Option ChangeAnnotationSupport := none
|
|
/-- The resource operations the client supports. Clients should at least support 'create', 'rename' and 'delete' files and folders. -/
|
|
resourceOperations? : Option (Array String) := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure WorkspaceClientCapabilities where
|
|
applyEdit? : Option Bool := none
|
|
workspaceEdit? : Option WorkspaceEditClientCapabilities := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure LeanClientCapabilities where
|
|
/--
|
|
Whether the client supports `DiagnosticWith.isSilent = true`.
|
|
If `none` or `false`, silent diagnostics will not be served to the client.
|
|
-/
|
|
silentDiagnosticSupport? : Option Bool := none
|
|
deriving ToJson, FromJson
|
|
|
|
structure ClientCapabilities where
|
|
textDocument? : Option TextDocumentClientCapabilities := none
|
|
window? : Option WindowClientCapabilities := none
|
|
workspace? : Option WorkspaceClientCapabilities := none
|
|
/-- Capabilities for Lean language server extensions. -/
|
|
lean? : Option LeanClientCapabilities := none
|
|
deriving ToJson, FromJson
|
|
|
|
def ClientCapabilities.silentDiagnosticSupport (c : ClientCapabilities) : Bool := Id.run do
|
|
let some lean := c.lean?
|
|
| return false
|
|
let some silentDiagnosticSupport := lean.silentDiagnosticSupport?
|
|
| return false
|
|
return silentDiagnosticSupport
|
|
|
|
structure LeanServerCapabilities where
|
|
moduleHierarchyProvider? : Option ModuleHierarchyOptions
|
|
rpcProvider? : Option RpcOptions
|
|
deriving FromJson, ToJson
|
|
|
|
-- TODO largely unimplemented
|
|
structure ServerCapabilities where
|
|
textDocumentSync? : Option TextDocumentSyncOptions := none
|
|
completionProvider? : Option CompletionOptions := none
|
|
hoverProvider : Bool := false
|
|
documentHighlightProvider : Bool := false
|
|
documentSymbolProvider : Bool := false
|
|
definitionProvider : Bool := false
|
|
declarationProvider : Bool := false
|
|
typeDefinitionProvider : Bool := false
|
|
referencesProvider : Bool := false
|
|
callHierarchyProvider : Bool := false
|
|
renameProvider? : Option RenameOptions := none
|
|
workspaceSymbolProvider : Bool := false
|
|
foldingRangeProvider : Bool := false
|
|
semanticTokensProvider? : Option SemanticTokensOptions := none
|
|
codeActionProvider? : Option CodeActionOptions := none
|
|
inlayHintProvider? : Option InlayHintOptions := none
|
|
signatureHelpProvider? : Option SignatureHelpOptions := none
|
|
experimental? : Option LeanServerCapabilities := none
|
|
deriving ToJson, FromJson
|
|
|
|
end Lsp
|
|
end Lean
|