Source file `print.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
(*************************************************************************)
(* 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            *)
(*************************************************************************)
(* Rocq Language Server Protocol: Rocq Print API                         *)
(*************************************************************************)

let pr_letype_env ~goal_concl_style env sigma x =
  Printer.pr_letype_env ~goal_concl_style env sigma x

let pr_letype_env ~token ~goal_concl_style env sigma x =
  let f = pr_letype_env ~goal_concl_style env sigma in
  Protect.eval ~token ~f x

let pr_goals ~token ~proof =
  let proof =
    State.Proof.to_coq proof |> Vernacstate.LemmaStack.get_top
    |> Declare.Proof.get
  in
  let f = Printer.pr_open_subgoals in
  Protect.eval ~token ~f proof

let pr_vernac ~token ~st v =
  let f = Ppvernac.pr_vernac in
  State.in_state ~token ~st ~f (Ast.to_coq v)