Source file `doc.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
(************************************************************************)
(* Coq Language Server Protocol                                         *)
(* Copyright 2019 MINES ParisTech -- LGPL 2.1+                          *)
(* Copyright 2019-2023 Inria -- LGPL 2.1+                               *)
(* Written by: Emilio J. Gallego Arias                                  *)
(************************************************************************)

module Lang = JLang

module TextDocumentItem = struct
  type t =
    { uri : Lang.LUri.File.t
    ; languageId : string
    ; version : int
    ; text : string
    }
  [@@deriving yojson]
end

(* Sometimes we use this to parse VersionedTextDocumentIdentifier, we use {
   strict = false } as a quick fix *)
module TextDocumentIdentifier = struct
  type t = { uri : Lang.LUri.File.t } [@@deriving yojson { strict = false }]
end

module OVersionedTextDocumentIdentifier = struct
  type t =
    { uri : Lang.LUri.File.t
    ; version : int option [@default None]
    }
  [@@deriving yojson]
end

module VersionedTextDocumentIdentifier = struct
  type t =
    { uri : Lang.LUri.File.t
    ; version : int
    }
  [@@deriving yojson]
end