open Printf
open MatitaTypes
+let safe_remove fname = if Sys.file_exists fname then Sys.remove fname
+
let is_dir fname =
try
(Unix.stat fname).Unix.st_kind = Unix.S_DIR
| _ -> []
let get_proof_aliases status = status.aliases
-
+
let qualify status name = get_string_option status "baseuri" ^ "/" ^ name
let unopt = function None -> failwith "unopt: None" | Some v -> v
| h1::h2::tl when h1 = h2 -> list_uniq (h2 :: tl)
| h1::tl (* when h1 <> h2 *) -> h1 :: list_uniq tl
-let end_ma_RE = Pcre.regexp "\\.ma$"
+let debug_wrap name f =
+ prerr_endline (sprintf "debug_wrap: ==>> %s" name);
+ let res = f () in
+ prerr_endline (sprintf "debug_wrap: <<== %s" name);
+ res
+