]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/matitaMisc.ml
packaging cleanup: get rid of ancient debhelpers, use dh_install
[helm.git] / helm / matita / matitaMisc.ml
index 9ddc268a815265d336cd43348b16caa8b6f5d451..e3aadd5b5a616d143c17dd22ab71d25f7ac06626 100644 (file)
@@ -121,7 +121,7 @@ let mkdir path =
     | piece::tl -> 
         let path = where ^ "/" ^ piece in
         (try
-          Unix.mkdir path 755
+          Unix.mkdir path 0o755
         with 
         | Unix.Unix_error (Unix.EEXIST,_,_) -> ()
         | Unix.Unix_error (e,_,_) -> raise (Failure (Unix.error_message e)));
@@ -246,26 +246,7 @@ class ['a] browser_history ?memento size init =
 let singleton f =
   let instance = lazy (f ()) in
   fun () -> Lazy.force instance
-(*
-let mkdir d =
-  let errmsg = sprintf "Unable to create directory \"%s\"" d in
-  try
-    let dir = "mkdir -p " ^ d in 
-    (match Unix.system dir with
-    | Unix.WEXITED 0 -> ()
-    | Unix.WEXITED n -> 
-        MatitaLog.error ("'mkdir -p " ^ dir ^ "' failed with "^string_of_int n);
-        failwith errmsg
-    | Unix.WSIGNALED s 
-    | Unix.WSTOPPED s -> 
-        MatitaLog.error 
-          ("'mkdir -p " ^ dir ^ "' signaled with " ^ string_of_int s);
-        failwith errmsg)
-  with Unix.Unix_error _ as exc -> 
-    MatitaLog.error 
-      ("Unix error in makigin dir " ^ (MatitaExcPp.to_string exc));
-    failwith errmsg
-*)
+
 let get_proof_status status =
   match status.proof_status with
   | Incomplete_proof s -> s
@@ -310,8 +291,9 @@ let obj_file_of_baseuri baseuri =
   path ^ ".moo"
 
 let obj_file_of_script f =
- let baseuri = baseuri_of_file f in
-  obj_file_of_baseuri baseuri
+ if f = "coq.ma" then BuildTimeConf.coq_notation_script else
+  let baseuri = baseuri_of_file f in
+   obj_file_of_baseuri baseuri
 
 let rec list_uniq = function 
   | [] -> []