From 630a469bc912386e9c6a059be3ab6fe9049c3483 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 5 Jul 2005 09:05:28 +0000 Subject: [PATCH] Fixed a bug that prevented the removal of the XML files during the ./matitaclean all --- helm/matita/matitaDb.ml | 5 ++++- helm/matita/matitacleanLib.ml | 3 ++- 2 files changed, 6 insertions(+), 2 deletions(-) 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 ^ "/") = [] -- 2.39.2