diff options
| author | filliatr | 1999-11-26 08:40:18 +0000 |
|---|---|---|
| committer | filliatr | 1999-11-26 08:40:18 +0000 |
| commit | 45800868bf532be4348ab7025144e4caec5c3a83 (patch) | |
| tree | 481a220a932c5fdec4e5135474148f7ef07a3743 /lib | |
| parent | 07ce425ee676ccee0bc1309855ea8343279b63f0 (diff) | |
ajouts divers pour module Printer
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@145 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/options.ml | 9 | ||||
| -rw-r--r-- | lib/options.mli | 4 |
2 files changed, 13 insertions, 0 deletions
diff --git a/lib/options.ml b/lib/options.ml index 4e8597aaf5..e0cebb1ebb 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -24,3 +24,12 @@ let silently f x = with e -> begin silent := oldsilent; raise e end + +(* The number of printed hypothesis in a goal *) + +let print_hyps_limit = ref (None : int option) +let set_print_hyps_limit n = print_hyps_limit := Some n +let unset_print_hyps_limit () = print_hyps_limit := None +let print_hyps_limit () = !print_hyps_limit + + diff --git a/lib/options.mli b/lib/options.mli index 2d2a566bf0..c159767aec 100644 --- a/lib/options.mli +++ b/lib/options.mli @@ -14,3 +14,7 @@ val make_silent : bool -> unit val is_silent : unit -> bool val silently : ('a -> 'b) -> 'a -> 'b +val set_print_hyps_limit : int -> unit +val unset_print_hyps_limit : unit -> unit +val print_hyps_limit : unit -> int option + |