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
close_in ic;
Buffer.contents buf
+let output_file data file =
+ let oc = open_out file in
+ output_string oc data;
+ close_out oc
+
+
+let absolute_path file =
+ if file.[0] = '/' then file else Unix.getcwd () ^ "/" ^ file
+
let is_proof_script fname = true (** TODO Zack *)
let is_proof_object fname = true (** TODO Zack *)