Updated version 8.8.0+1.gbp069dc3b from 'upstream/8.8.0+1.gbp069dc3b'

with Debian dir 4ca0cfbbc73543887b10ee2613b222f51702e276

1 files changed, 41 insertions, 0 deletions

diff --git a/src/helper.ml b/src/helper.ml
new file mode 100644
index 0000000..c1cae2a
--- /dev/null
+++ b/src/helper.ml
@@ -0,0 +1,41 @@
+(***************************************************************************)
+(*  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.                *)
+(***************************************************************************)
+
+module type CONTROL = sig
+  val debug : bool
+  val time : bool
+  val printing : bool
+end
+
+module Debug (X : CONTROL) = struct
+  open X
+  let debug x =
+    if debug then
+      Printf.printf "%s\n%!" x
+
+
+  let time f x fmt =
+    if time then
+      let t = Sys.time () in
+      let r = f x in
+	Printf.printf fmt  (Sys.time () -. t);
+	r
+    else f x
+
+  let pr_constr env evd msg constr =
+    if printing then
+      (  Feedback.msg_notice (Pp.str (Printf.sprintf "=====%s====" msg));
+	 Feedback.msg_notice (Printer.pr_econstr_env env evd constr);
+      )
+
+
+  let debug_exception msg e =
+    debug (msg ^ (Printexc.to_string e))
+     
+
+end