From 8917ab003a9b7f2abf8e399b5e7ad013b31a2e0e Mon Sep 17 00:00:00 2001 From: Stephane Glondu Date: Thu, 20 Sep 2012 09:41:14 +0200 Subject: Imported Upstream version 0.3 --- AAC_helper.ml | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 AAC_helper.ml (limited to 'AAC_helper.ml') diff --git a/AAC_helper.ml b/AAC_helper.ml deleted file mode 100644 index 637def1..0000000 --- a/AAC_helper.ml +++ /dev/null @@ -1,41 +0,0 @@ -(***************************************************************************) -(* 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 msg constr = - if printing then - ( Pp.msgnl (Pp.str (Printf.sprintf "=====%s====" msg)); - Pp.msgnl (Printer.pr_constr constr); - ) - - - let debug_exception msg e = - debug (msg ^ (Printexc.to_string e)) - - -end -- cgit v1.2.3