tagging rc-1

[helm.git] / matita / matitaMisc.ml

diff --git a/matita/matitaMisc.ml b/matita/matitaMisc.ml
index 0c4329e554350936ea863f1c2e581e13df8ca5d9..bb745f7030f968817f544fa4a49d1828eba4795e 100644 (file)
--- a/matita/matitaMisc.ml
+++ b/matita/matitaMisc.ml
@@ -30,7 +30,10 @@ open Printf
 (** Functions "imported" from Http_getter_misc *)
 
 let normalize_dir = Http_getter_misc.normalize_dir
-let strip_suffix = Http_getter_misc.strip_suffix
+let strip_suffix ~suffix s = 
+  try 
+    Http_getter_misc.strip_suffix ~suffix s
+  with Invalid_argument _ -> s
 
 let absolute_path file =
   if file.[0] = '/' then file else Unix.getcwd () ^ "/" ^ file
@@ -150,3 +153,9 @@ let list_tl_at ?(equality=(==)) e l =
     | hd :: tl -> aux tl
   in
   aux l
+
+let shutup () = 
+  HLog.set_log_callback (fun _ _ -> ());
+  let out = open_out "/dev/null" in
+  Unix.dup2 (Unix.descr_of_out_channel out) (Unix.descr_of_out_channel stderr)
+