X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaDb.ml;h=0c10a81e855463ce12ca15b3dac8e407854dc0ce;hb=63722506a5e378f3e05b46612cb91c132d994082;hp=17aac37450cf091faad1fbaced5d1589eb89f408;hpb=ebc063e65d908c9f35619c92454dbbe76bdabd40;p=helm.git

diff --git a/helm/matita/matitaDb.ml b/helm/matita/matitaDb.ml
index 17aac3745..0c10a81e8 100644
--- a/helm/matita/matitaDb.ml
+++ b/helm/matita/matitaDb.ml
@@ -37,6 +37,7 @@ let instance =
 
 
 let xpointer_RE = Pcre.regexp "#.*$"
+let file_scheme_RE = Pcre.regexp "^file://"
 
 let clean_owner_environment () =
   let dbd = instance () in
@@ -65,10 +66,7 @@ let clean_owner_environment () =
     (fun uri ->
       let uri = Pcre.replace ~rex:xpointer_RE ~templ:"" uri in
       List.iter
-        (fun suffix -> 
-          (*prerr_endline ("unregistering " ^ uri ^ suffix);*)
-          Http_getter.unregister (uri ^ suffix))
-        
+        (fun suffix -> MatitaMisc.safe_remove (uri ^ suffix ^ ".xml.gz"))
         [""; ".body"; ".types"])
     owned_uris;
   List.iter (fun statement -> 
@@ -161,3 +159,8 @@ let xpointers_of_ind uri =
   let l = ref [] in
   Mysql.iter rc (fun a ->  match a.(0) with None ->()|Some a -> l := a:: !l);
   List.map UriManager.uri_of_string !l
+
+let reset_owner_environment () =
+  clean_owner_environment ();
+  create_owner_environment ()
+