summaryrefslogtreecommitdiff
path: root/proofs/tactic_debug.mli
blob: 04b3cedfaaa3a77d6efdaffe7762fba9879fb5f2 (plain)
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
(************************************************************************)
(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012     *)
(*   \VV/  **************************************************************)
(*    //   *      This file is distributed under the terms of the       *)
(*         *       GNU Lesser General Public License Version 2.1        *)
(************************************************************************)

open Environ
open Pattern
open Evd
open Proof_type
open Names
open Tacexpr
open Term

(** This module intends to be a beginning of debugger for tactic expressions.
   Currently, it is quite simple and we can hope to have, in the future, a more
   complete panel of commands dedicated to a proof assistant framework *)

val set_tactic_printer : (glob_tactic_expr ->Pp.std_ppcmds) -> unit
val set_match_pattern_printer :
  (env -> constr_pattern match_pattern -> Pp.std_ppcmds) -> unit
val set_match_rule_printer :
  ((Genarg.glob_constr_and_expr * constr_pattern,glob_tactic_expr) match_rule -> Pp.std_ppcmds) ->
    unit

(** Debug information *)
type debug_info =
  | DebugOn of int
  | DebugOff

(** Prints the state and waits *)
val debug_prompt :
  int -> goal sigma -> glob_tactic_expr -> (debug_info -> 'a) -> 'a

(** Initializes debugger *)
val db_initialize : unit -> unit

(** Prints a constr *)
val db_constr : debug_info -> env -> constr -> unit

(** Prints the pattern rule *)
val db_pattern_rule :
  debug_info -> int -> (Genarg.glob_constr_and_expr * constr_pattern,glob_tactic_expr) match_rule -> unit

(** Prints a matched hypothesis *)
val db_matched_hyp :
  debug_info -> env -> identifier * constr option * constr -> name -> unit

(** Prints the matched conclusion *)
val db_matched_concl : debug_info -> env -> constr -> unit

(** Prints a success message when the goal has been matched *)
val db_mc_pattern_success : debug_info -> unit

(** Prints a failure message for an hypothesis pattern *)
val db_hyp_pattern_failure :
  debug_info -> env -> name * constr_pattern match_pattern -> unit

(** Prints a matching failure message for a rule *)
val db_matching_failure : debug_info -> unit

(** Prints an evaluation failure message for a rule *)
val db_eval_failure : debug_info -> Pp.std_ppcmds -> unit

(** An exception handler *)
val explain_logic_error: (exn -> Pp.std_ppcmds) ref

(** For use in the Ltac debugger: some exception that are usually
   consider anomalies are acceptable because they are caught later in
   the process that is being debugged.  One should not require
   from users that they report these anomalies. *)
val explain_logic_error_no_anomaly : (exn -> Pp.std_ppcmds) ref

(** Prints a logic failure message for a rule *)
val db_logic_failure : debug_info -> exn -> unit

(** Prints a logic failure message for a rule *)
val db_breakpoint : debug_info ->
  identifier Util.located message_token list -> unit