partial def Lean.Language.SnapshotTree.findInfoTreeAtPos (tree : Lean.Language.SnapshotTree) (pos : String.Pos) : Task (Option Lean.Elab.InfoTree)

Finds the first (in pre-order) snapshot task in tree whose range? contains pos and which contains an info tree, and then returns that info tree, waiting for any snapshot tasks on the way. Subtrees that do not contain the position are skipped without forcing their tasks.

partial def Lean.Language.SnapshotTree.findInfoTreeAtPos.goSeq (pos : String.Pos) : List (Lean.Language.SnapshotTask Lean.Language.SnapshotTree) → Task (Option Lean.Elab.InfoTree)

structure Lean.Server.RequestError : Type

• code : Lean.JsonRpc.ErrorCode
• message : String

instance Lean.Server.instInhabitedRequestError : Inhabited Lean.Server.RequestError

Equations

• Lean.Server.instInhabitedRequestError = { default := { code := default, message := default } }

def Lean.Server.RequestError.fileChanged : Lean.Server.RequestError

Equations

• Lean.Server.RequestError.fileChanged = { code := Lean.JsonRpc.ErrorCode.contentModified, message := "File changed." }

def Lean.Server.RequestError.methodNotFound (method : String) : Lean.Server.RequestError

Equations

• Lean.Server.RequestError.methodNotFound method = { code := Lean.JsonRpc.ErrorCode.methodNotFound, message := toString "No request handler found for '" ++ toString method ++ toString "'" }

def Lean.Server.RequestError.invalidParams (message : String) : Lean.Server.RequestError

Equations

• Lean.Server.RequestError.invalidParams message = { code := Lean.JsonRpc.ErrorCode.invalidParams, message := message }

def Lean.Server.RequestError.internalError (message : String) : Lean.Server.RequestError

Equations

• Lean.Server.RequestError.internalError message = { code := Lean.JsonRpc.ErrorCode.internalError, message := message }

def Lean.Server.RequestError.ofException (e : Lean.Exception) : IO Lean.Server.RequestError

Equations

• Lean.Server.RequestError.ofException e = do let __do_lift ← e.toMessageData.toString pure (Lean.Server.RequestError.internalError __do_lift)

def Lean.Server.RequestError.ofIoError (e : IO.Error) : Lean.Server.RequestError

Equations

• Lean.Server.RequestError.ofIoError e = Lean.Server.RequestError.internalError (toString e)

def Lean.Server.RequestError.toLspResponseError (id : Lean.JsonRpc.RequestID) (e : Lean.Server.RequestError) : Lean.JsonRpc.ResponseError Unit

Equations

• Lean.Server.RequestError.toLspResponseError id e = { id := id, code := e.code, message := e.message, data? := none }

def Lean.Server.parseRequestParams (paramType : Type) [Lean.FromJson paramType] (params : Lean.Json) : Except Lean.Server.RequestError paramType

Equations

• One or more equations did not get rendered due to their size.

structure Lean.Server.RequestContext : Type

• rpcSessions : Lean.RBMap UInt64 (IO.Ref Lean.Server.FileWorker.RpcSession) compare
• srcSearchPath : Lean.SearchPath
• doc : Lean.Server.FileWorker.EditableDocument
• hLog : IO.FS.Stream
• initParams : Lean.Lsp.InitializeParams

@[reducible, inline]

abbrev Lean.Server.RequestTask (α : Type u_1) : Type u_1

Equations

• Lean.Server.RequestTask α = Task (Except Lean.Server.RequestError α)

@[reducible, inline]

abbrev Lean.Server.RequestT (m : Type → Type u_1) (α : Type) : Type u_1

Equations

• Lean.Server.RequestT m = ReaderT Lean.Server.RequestContext (ExceptT Lean.Server.RequestError m)

@[reducible, inline]

abbrev Lean.Server.RequestM (α : Type) : Type

Workers execute request handlers in this monad.

Equations

• Lean.Server.RequestM = ReaderT Lean.Server.RequestContext (EIO Lean.Server.RequestError)

@[reducible, inline]

abbrev Lean.Server.RequestTask.pure {α : Type u_1} (a : α) : Lean.Server.RequestTask α

Equations

• Lean.Server.RequestTask.pure a = { get := Except.ok a }

instance Lean.Server.instMonadLiftIORequestM : MonadLift IO Lean.Server.RequestM

Equations

• One or more equations did not get rendered due to their size.

instance Lean.Server.instMonadLiftEIOExceptionRequestM : MonadLift (EIO Lean.Exception) Lean.Server.RequestM

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.RequestM.readDoc {m : Type → Type u_1} [Monad m] [MonadReaderOf Lean.Server.RequestContext m] : m Lean.Server.FileWorker.EditableDocument

Equations

• Lean.Server.RequestM.readDoc = do let rc ← readThe Lean.Server.RequestContext pure rc.doc

def Lean.Server.RequestM.asTask {α : Type} (t : Lean.Server.RequestM α) : Lean.Server.RequestM (Lean.Server.RequestTask α)

Equations

• t.asTask = do let rc ← readThe Lean.Server.RequestContext liftM (ReaderT.run t rc).asTask

def Lean.Server.RequestM.mapTask {α : Type u_1} {β : Type} (t : Task α) (f : α → Lean.Server.RequestM β) : Lean.Server.RequestM (Lean.Server.RequestTask β)

Equations

• Lean.Server.RequestM.mapTask t f = do let rc ← readThe Lean.Server.RequestContext liftM (EIO.mapTask (fun (x : α) => f x rc) t)

def Lean.Server.RequestM.bindTask {α : Type u_1} {β : Type} (t : Task α) (f : α → Lean.Server.RequestM (Lean.Server.RequestTask β)) : Lean.Server.RequestM (Lean.Server.RequestTask β)

Equations

• Lean.Server.RequestM.bindTask t f = do let rc ← readThe Lean.Server.RequestContext liftM (EIO.bindTask t fun (x : α) => f x rc)

def Lean.Server.RequestM.waitFindSnapAux {α : Type} (notFoundX : Lean.Server.RequestM α) (x : Lean.Server.Snapshots.Snapshot → Lean.Server.RequestM α) : Except IO.Error (Option Lean.Server.Snapshots.Snapshot) → Lean.Server.RequestM α

Equations

• notFoundX.waitFindSnapAux x✝ x = match x with | Except.error e => throw (Lean.Server.RequestError.ofIoError e) | Except.ok none => notFoundX | Except.ok (some snap) => x✝ snap

def Lean.Server.RequestM.withWaitFindSnap {β : Type} (doc : Lean.Server.FileWorker.EditableDocument) (p : Lean.Server.Snapshots.Snapshot → Bool) (notFoundX : Lean.Server.RequestM β) (x : Lean.Server.Snapshots.Snapshot → Lean.Server.RequestM β) : Lean.Server.RequestM (Lean.Server.RequestTask β)

Create a task which waits for the first snapshot matching p, handles various errors, and if a matching snapshot was found executes x with it. If not found, the task executes notFoundX.

Equations

• Lean.Server.RequestM.withWaitFindSnap doc p notFoundX x = let findTask := IO.AsyncList.waitFind? p doc.cmdSnaps; Lean.Server.RequestM.mapTask findTask (notFoundX.waitFindSnapAux x)

def Lean.Server.RequestM.bindWaitFindSnap {β : Type} (doc : Lean.Server.FileWorker.EditableDocument) (p : Lean.Server.Snapshots.Snapshot → Bool) (notFoundX : Lean.Server.RequestM (Lean.Server.RequestTask β)) (x : Lean.Server.Snapshots.Snapshot → Lean.Server.RequestM (Lean.Server.RequestTask β)) : Lean.Server.RequestM (Lean.Server.RequestTask β)

See withWaitFindSnap.

Equations

• Lean.Server.RequestM.bindWaitFindSnap doc p notFoundX x = let findTask := IO.AsyncList.waitFind? p doc.cmdSnaps; Lean.Server.RequestM.bindTask findTask (notFoundX.waitFindSnapAux x)

def Lean.Server.RequestM.withWaitFindSnapAtPos {α : Type} (lspPos : Lean.Lsp.Position) (f : Lean.Server.Snapshots.Snapshot → Lean.Server.RequestM α) : Lean.Server.RequestM (Lean.Server.RequestTask α)

Create a task which waits for the snapshot containing lspPos and executes f with it. If no such snapshot exists, the request fails with an error.

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.RequestM.findCmdParsedSnap (doc : Lean.Server.FileWorker.EditableDocument) (p : Lean.Language.Lean.CommandParsedSnapshot → Bool) : Task (Option Lean.Language.Lean.CommandParsedSnapshot)

Finds the first CommandParsedSnapshot fulfilling p, asynchronously.

Equations

• One or more equations did not get rendered due to their size.

partial def Lean.Server.RequestM.findCmdParsedSnap.go (p : Lean.Language.Lean.CommandParsedSnapshot → Bool) (cmdParsed : Lean.Language.Lean.CommandParsedSnapshot) : Task (Option Lean.Language.Lean.CommandParsedSnapshot)

def Lean.Server.RequestM.findInfoTreeAtPos (doc : Lean.Server.FileWorker.EditableDocument) (pos : String.Pos) : Task (Option Lean.Elab.InfoTree)

Finds the info tree of the first snapshot task containing pos, asynchronously. The info tree may be from a nested snapshot, such as a single tactic.

See SnapshotTree.findInfoTreeAtPos for details on how the search is done.

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.RequestM.runCommandElabM {α : Type} (snap : Lean.Server.Snapshots.Snapshot) (c : Lean.Server.RequestT Lean.Elab.Command.CommandElabM α) : Lean.Server.RequestM α

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.RequestM.runCoreM {α : Type} (snap : Lean.Server.Snapshots.Snapshot) (c : Lean.Server.RequestT Lean.CoreM α) : Lean.Server.RequestM α

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.RequestM.runTermElabM {α : Type} (snap : Lean.Server.Snapshots.Snapshot) (c : Lean.Server.RequestT Lean.Elab.TermElabM α) : Lean.Server.RequestM α

Equations

• One or more equations did not get rendered due to their size.

The global request handlers table

We maintain a global map of LSP request handlers. This allows user code such as plugins to register its own handlers, for example to support ITP functionality such as goal state visualization.

For details of how to register one, see registerLspRequestHandler.

structure Lean.Server.RequestHandler : Type

• fileSource : Lean.Json → Except Lean.Server.RequestError Lean.Lsp.DocumentUri
• handle : Lean.Json → Lean.Server.RequestM (Lean.Server.RequestTask Lean.Json)

opaque Lean.Server.requestHandlers : IO.Ref (Lean.PersistentHashMap String Lean.Server.RequestHandler)

def Lean.Server.registerLspRequestHandler (method : String) (paramType : Type) [Lean.FromJson paramType] [Lean.Lsp.FileSource paramType] (respType : Type) [Lean.ToJson respType] (handler : paramType → Lean.Server.RequestM (Lean.Server.RequestTask respType)) : IO Unit

NB: This method may only be called in initialize blocks (user or builtin).

A registration consists of:

• a type of JSON-parsable request data paramType
• a FileSource instance for it so the system knows where to route requests
• a type of JSON-serializable response data respType
• an actual handler which runs in the RequestM monad and is expected to produce an asynchronous RequestTask which does any waiting/computation

A handler task may be cancelled at any time, so it should check the cancellation token when possible to handle this cooperatively. Any exceptions thrown in a request handler will be reported to the client as LSP error responses.

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.lookupLspRequestHandler (method : String) : IO (Option Lean.Server.RequestHandler)

Equations

• Lean.Server.lookupLspRequestHandler method = do let __do_lift ← ST.Ref.get Lean.Server.requestHandlers pure (__do_lift.find? method)

def Lean.Server.chainLspRequestHandler (method : String) (paramType : Type) [Lean.FromJson paramType] (respType : Type) [Lean.FromJson respType] [Lean.ToJson respType] (handler : paramType → Lean.Server.RequestTask respType → Lean.Server.RequestM (Lean.Server.RequestTask respType)) : IO Unit

NB: This method may only be called in initialize blocks (user or builtin).

Register another handler to invoke after the last one registered for a method. At least one handler for the method must have already been registered to perform chaining.

For more details on the registration of a handler, see registerLspRequestHandler.

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.routeLspRequest (method : String) (params : Lean.Json) : IO (Except Lean.Server.RequestError Lean.Lsp.DocumentUri)

Equations

• One or more equations did not get rendered due to their size.

def Lean.Server.handleLspRequest (method : String) (params : Lean.Json) : Lean.Server.RequestM (Lean.Server.RequestTask Lean.Json)

Equations

• One or more equations did not get rendered due to their size.