From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 5 Jul 2005 09:05:28 +0000 (+0000)
Subject: Fixed a bug that prevented the removal of the XML files during the
X-Git-Tag: V_0_7_1~98
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=630a469bc912386e9c6a059be3ab6fe9049c3483;p=helm.git

Fixed a bug that prevented the removal of the XML files during the
./matitaclean all
---

diff --git a/helm/matita/matitaDb.ml b/helm/matita/matitaDb.ml
index 0c10a81e8..4e8691f93 100644
--- a/helm/matita/matitaDb.ml
+++ b/helm/matita/matitaDb.ml
@@ -66,7 +66,10 @@ let clean_owner_environment () =
     (fun uri ->
       let uri = Pcre.replace ~rex:xpointer_RE ~templ:"" uri in
       List.iter
-        (fun suffix -> MatitaMisc.safe_remove (uri ^ suffix ^ ".xml.gz"))
+        (fun suffix ->
+          try
+           MatitaMisc.safe_remove (Http_getter.resolve (uri ^ suffix))
+          with Http_getter_types.Key_not_found _ -> ())
         [""; ".body"; ".types"])
     owned_uris;
   List.iter (fun statement -> 
diff --git a/helm/matita/matitacleanLib.ml b/helm/matita/matitacleanLib.ml
index f8376416e..37c87d770 100644
--- a/helm/matita/matitacleanLib.ml
+++ b/helm/matita/matitacleanLib.ml
@@ -117,10 +117,11 @@ let rec fix uris next =
   
 let clean_baseuris buris =
   let buris = List.map HGM.strip_trailing_slash buris in
-(*  List.iter prerr_endline buris;*)
+  (* List.iter prerr_endline buris; *)
   let l = fix [] buris in
   let l = MatitaMisc.list_uniq (List.fast_sort Pervasives.compare l) in
   let l = List.map UriManager.uri_of_string l in
+  (* List.iter (fun u -> prerr_endline (UriManager.string_of_uri u)) l; *)
   List.iter MatitaSync.remove l
   
 let is_empty buri = HG.ls (HGM.strip_trailing_slash buri ^ "/") = []