package coq-lsp

  1. Overview
  2. Docs
package coq-lsp
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file json.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
type token =
  | NULL
  | TRUE
  | FALSE
  | STRING of string
  | INT of int
  | FLOAT of float
  | LEFT_BRACK
  | RIGHT_BRACK
  | LEFT_BRACE
  | RIGHT_BRACE
  | COMMA
  | COLON
  | EOF

module CAst = struct
  type 'a t =
    { v : 'a
    ; range : Lang.Range.t
    }

  let make ~range v = { v; range }
end

type lstring = string CAst.t

type value_r =
  | Assoc of (lstring * value) list
  | Bool of bool
  | Float of float
  | Int of int
  | List of value list
  | Null
  | String of string

and value = value_r CAst.t

let rec find key = function
  | [] -> None
  | ({ CAst.v; _ }, b) :: l -> if compare v key = 0 then Some b else find key l