Source file `workspace.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(************************************************************************)
(* Coq Language Server Protocol                                         *)
(* Copyright 2019 MINES ParisTech -- Dual License LGPL 2.1 / GPL3+      *)
(* Written by: Emilio J. Gallego Arias                                  *)
(************************************************************************)

module Lang_ = Lang
module Lang = JLang

module WorkspaceFolder = struct
  type t =
    { uri : Lang.LUri.File.t
    ; name : string
    }
  [@@deriving yojson]
end

module WorkspaceFoldersChangeEvent = struct
  type t =
    { added : WorkspaceFolder.t list
    ; removed : WorkspaceFolder.t list
    }
  [@@deriving yojson]
end

module DidChangeWorkspaceFoldersParams = struct
  type t = { event : WorkspaceFoldersChangeEvent.t } [@@deriving yojson]
end

module TextEdit = struct
  type t =
    { range : Lang.Range.t
    ; newText : string
    }
  [@@deriving yojson]
end

module WorkspaceEdit = struct
  type t = { changes : (Lang.LUri.File.t * TextEdit.t list) list }
  [@@deriving of_yojson]

  let tok (uri, edits) =
    ( Lang_.LUri.File.to_string_uri uri
    , `List (List.map TextEdit.to_yojson edits) )

  let to_yojson { changes } =
    `Assoc [ ("changes", `Assoc (List.map tok changes)) ]
end