diff options
author | Stephane Glondu <steph@glondu.net> | 2012-09-20 09:41:14 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2012-09-20 09:41:14 +0200 |
commit | 8917ab003a9b7f2abf8e399b5e7ad013b31a2e0e (patch) | |
tree | ddabcfad1c52bf730690b1be7c900f25dcdf0ec3 /helper.mli | |
parent | 9216cffaaa1ef137ef5bdb5b290a930cc6198850 (diff) |
Imported Upstream version 0.3upstream/0.3
Diffstat (limited to 'helper.mli')
-rw-r--r-- | helper.mli | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/helper.mli b/helper.mli new file mode 100644 index 0000000..f4e4454 --- /dev/null +++ b/helper.mli @@ -0,0 +1,33 @@ +(***************************************************************************) +(* This is part of aac_tactics, it is distributed under the terms of the *) +(* GNU Lesser General Public License version 3 *) +(* (see file LICENSE for more details) *) +(* *) +(* Copyright 2009-2010: Thomas Braibant, Damien Pous. *) +(***************************************************************************) + +(** Debugging functions, that can be triggered on a per-file base. *) + +module type CONTROL = +sig + val debug : bool + val time : bool + val printing : bool +end +module Debug : + functor (X : CONTROL) -> +sig + (** {!debug} prints the string and end it with a newline *) + val debug : string -> unit + val debug_exception : string -> exn -> unit + + (** {!time} computes the time spent in a function, and then + print it using the given format *) + val time : + ('a -> 'b) -> 'a -> (float -> unit, out_channel, unit) format -> 'b + + (** {!pr_constr} print a Coq constructor, that can be labelled + by a string *) + val pr_constr : string -> Term.constr -> unit + + end |