package coq-lsp

You can search for identifiers within the package.

in-package search v0.2.0

Language Server Protocol native server for Coq

Install

dune-project

Dependency

github.com Readme Changelog Edit opam file Versions (34)

Authors

Maintainers

E

e@x80.org

Sources

coq-lsp-0.2.4.8.20.tbz

sha256=9e3736371fe2c2dd5af50e2a360f070f8c329516c60f01ba3dc7378b80b77172

sha512=d5302f5dc4d7700910b7a7a2d1558770e15bfc0c7bcf9de2ccfd321b4e3cd591848d8e11f03e87362a8d81df72ec4af57dda2c3c5737b34726dcee35de2e56c8

doc/src/coq-lsp.fleche/stats.ml.html

Source file `stats.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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
(*************************************************************************)
(* Copyright 2015-2019 MINES ParisTech -- Dual License LGPL 2.1+ / GPL3+ *)
(* Copyright 2019-2024 Inria           -- Dual License LGPL 2.1+ / GPL3+ *)
(* Copyright 2024-2025 Emilio J. Gallego Arias  -- LGPL 2.1+ / GPL3+     *)
(* Copyright 2025      CNRS                     -- LGPL 2.1+ / GPL3+     *)
(* Written by: Emilio J. Gallego Arias & coq-lsp contributors            *)
(*************************************************************************)

module Kind = struct
  type t =
    | Hashing
    | Parsing
    | Exec
end

type t =
  { time : float
  ; memory : float
  }

let stats : (Kind.t, t) Hashtbl.t = Hashtbl.create 1000
let z = { time = 0.0; memory = 0.0 }
let find kind = Hashtbl.find_opt stats kind |> Option.default z

module Global = struct
  type nonrec 'a stats = t
  type nonrec t = t * t * t

  let zero () = (z, z, z)
  let dump () = (find Kind.Hashing, find Kind.Parsing, find Kind.Exec)

  let restore (h, p, e) =
    Hashtbl.replace stats Kind.Hashing h;
    Hashtbl.replace stats Kind.Parsing p;
    Hashtbl.replace stats Kind.Exec e

  let get_f (h, p, e) ~kind =
    match kind with
    | Kind.Hashing -> h
    | Parsing -> p
    | Exec -> e

  let to_string (h, p, e) =
    Format.asprintf "hashing: %f | parsing: %f | exec: %f" h.time p.time e.time
end

let bump kind { time; memory } =
  let acc = find kind in
  let time = acc.time +. time in
  let memory = acc.memory +. memory in
  Hashtbl.replace stats kind { time; memory }

let time_and_mem f x =
  let { Gc.major_words = mw_prev; _ } = Gc.quick_stat () in
  let before = Unix.gettimeofday () in
  let v = f x in
  let after = Unix.gettimeofday () in
  let { Gc.major_words = mw_after; _ } = Gc.quick_stat () in
  let time = after -. before in
  let memory = mw_after -. mw_prev in
  (v, { time; memory })

let record ~kind ~f x =
  let res, stats = time_and_mem f x in
  bump kind stats;
  (res, stats)

let get_accumulated ~kind = find kind

let reset () =
  Hashtbl.remove stats Kind.Hashing;
  Hashtbl.remove stats Kind.Parsing;
  Hashtbl.remove stats Kind.Exec;
  ()

let mb = 1024 * 1024

let pp_words fmt w =
  (* Format is not working great for floating point values... *)
  let w = int_of_float w in
  let value, spec =
    if w < 1024 then (w, "w ")
    else if w < mb then (w / 1024, "Kw")
    else (w / mb, "Mw")
  in
  Format.fprintf fmt "@[%4d %s@]" value spec