X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter.ml;h=f7ca2388c89b9653d04f8087ac4d021fc8d1e966;hb=fdd8107cc53f5e862004aa5fcd48593ee5634234;hp=7fee306a605d169763849e2c55cea21851810776;hpb=29af46301fcf532dbebd3ef0eef666adc7e6ccf4;p=helm.git

diff --git a/helm/ocaml/getter/http_getter.ml b/helm/ocaml/getter/http_getter.ml
index 7fee306a6..f7ca2388c 100644
--- a/helm/ocaml/getter/http_getter.ml
+++ b/helm/ocaml/getter/http_getter.ml
@@ -264,16 +264,7 @@ let resolve uri =
   if remote () then
     resolve_remote uri
   else
-    
-    (**** FIXME ******)
-    if is_cic_uri uri && Pcre.pmatch ~pat:"\\.univ$" uri then
-      begin
-	prerr_endline "!!! E' in ~tassi !!!";
-	"file:///home/tassi/mylib" ^ 
-	(String.sub uri 4 ((String.length uri) - 4)) ^ ".xml.gz"
-      end
-    else
-      (map_of_uri uri)#resolve uri
+    (map_of_uri uri)#resolve uri
 	
 let register ~uri ~url =
   if remote () then
@@ -384,8 +375,8 @@ let getalluris () =
     getalluris_remote ()
   else
     let filter uri =
-      (Pcre.pmatch ~rex:heading_cic_RE uri) &&
-      not (Pcre.pmatch ~rex:trailing_types_RE uri)
+      (Pcre.pmatch ~rex:heading_cic_RE uri)
+(*       && not (Pcre.pmatch ~rex:trailing_types_RE uri) *)
     in
     return_uris (Lazy.force cic_map) filter
 
@@ -500,9 +491,6 @@ let ls =
                  let dir =
                   "theory" ^ String.sub !dir_found 3
                    (String.length !dir_found - 3) ^ ".theory" in
-(*
-prerr_endline ("### " ^ uri ^ " ==> " ^ !dir_found ^ " ==> " ^ dir);
-*)
                  if not (List.mem dir !valid_candidates) then
                  valid_candidates := dir::!valid_candidates
                end
@@ -515,10 +503,6 @@ prerr_endline ("### " ^ uri ^ " ==> " ^ !dir_found ^ " ==> " ^ dir);
              then
               (index_not_generated_yet := false ;
                store_obj "index.theory"));
-(*
-prerr_endline ("@@@ " ^ String.concat " " !valid_candidates);
-prerr_endline ("!!! " ^ String.concat " " (List.map fst !candidates_found));
-*)
       List.iter
        (fun (uri,localpart) ->
          if not (List.mem uri !valid_candidates) then