X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Flibrary%2FlibraryClean.ml;h=1f92b5868d7102aa13e152aac3cbbc49fa211034;hb=cd5e575ed60527edac0a99196bd8d20f06841254;hp=c3eb8919f9464baf4f08f266eafdf6b5b8537073;hpb=bfcde2b08d72f1392ed61164c67d199360f0397f;p=helm.git

diff --git a/matita/components/library/libraryClean.ml b/matita/components/library/libraryClean.ml
index c3eb8919f..1f92b5868 100644
--- a/matita/components/library/libraryClean.ml
+++ b/matita/components/library/libraryClean.ml
@@ -37,6 +37,7 @@ module UM = UriManager;;
 let decompile = ref (fun ~baseuri -> assert false);;
 let set_decompile_cb f = decompile := f;;
 
+(*
 let strip_xpointer s = Pcre.replace ~pat:"#.*$" s ;;
 
 let safe_buri_of_suri suri =
@@ -216,15 +217,14 @@ let moo_root_dir = lazy (
   in
   String.sub url 7 (String.length url - 7))
 ;;
+*)
+
+let rec close_db cache_of_processed_baseuri uris next =
+  prerr_endline "CLOSE_DB "; uris (* MATITA 1.0 *)
+;;
 
 let clean_baseuris ?(verbose=true) buris =
-  prerr_endline "CLEAN_BASEURIS to be removed MATITA 1.0"; (* MATITA 1.0
   let cache_of_processed_baseuri = Hashtbl.create 1024 in
-  let dbd = LibraryDb.instance () in
-  let dbtype = 
-    if Helm_registry.get_bool "matita.system" then HSql.Library else HSql.User
-  in
-  Hashtbl.clear cache_of_processed_baseuri;
   let buris = List.map Http_getter_misc.strip_trailing_slash buris in
   debug_prerr "clean_baseuris called on:";
   if debug then
@@ -239,43 +239,12 @@ let clean_baseuris ?(verbose=true) buris =
    (fun baseuri ->
      !decompile ~baseuri;
      try 
-      let obj_file =
-       LibraryMisc.obj_file_of_baseuri ~must_exist:false ~writable:true ~baseuri
+      let lexiconfile =
+       LibraryMisc.lexicon_file_of_baseuri 
+        ~must_exist:false ~writable:true ~baseuri
       in
-       HExtlib.safe_remove obj_file ;
-       HExtlib.safe_remove 
-         (LibraryMisc.lexicon_file_of_baseuri 
-           ~must_exist:false ~writable:true ~baseuri) ;
-       HExtlib.rmdir_descend (Filename.chop_extension obj_file)
+       HExtlib.safe_remove lexiconfile;
+       HExtlib.rmdir_descend (Filename.chop_extension lexiconfile)
      with Http_getter_types.Key_not_found _ -> ())
    (HExtlib.list_uniq (List.fast_sort Pervasives.compare
-     (List.map (UriManager.buri_of_uri) l @ buris)));
-  List.iter
-   (let last_baseuri = ref "" in
-    fun uri ->
-     let buri = UriManager.buri_of_uri uri in
-     if buri <> !last_baseuri then
-      begin
-        if not (Helm_registry.get_bool "matita.verbose") then
-            (print_endline ("matitaclean " ^ buri ^ "/");flush stdout)
-          else 
-            HLog.message ("Removing: " ^ buri ^ "/*");
-       last_baseuri := buri
-      end;
-     LibrarySync.remove_obj uri
-   ) l;
-  if HSql.isMysql dbtype dbd then
-   begin
-   cleaned_no := !cleaned_no + List.length l;
-   if !cleaned_no > 30 && HSql.isMysql dbtype dbd then
-    begin
-     cleaned_no := 0;
-     List.iter
-      (function table ->
-        ignore (HSql.exec dbtype dbd ("OPTIMIZE TABLE " ^ table)))
-      [MetadataTypes.name_tbl (); MetadataTypes.rel_tbl ();
-       MetadataTypes.sort_tbl (); MetadataTypes.obj_tbl();
-       MetadataTypes.count_tbl()]
-    end
-   end
-   *)
+     (List.map (UriManager.buri_of_uri) l @ buris)))