...

[helm.git] / helm / software / components / library / librarian.ml

diff --git a/helm/software/components/library/librarian.ml b/helm/software/components/library/librarian.ml
index 9b08f46145c6879a745aa9de619d6a1e84cdd4da..6cedc0101a4aee756897d198b2d605128139fac9 100644 (file)
--- a/helm/software/components/library/librarian.ml
+++ b/helm/software/components/library/librarian.ml
@@ -209,8 +209,10 @@ module Make = functor (F:Format) -> struct
   let fst4 = function (x,_,_,_) -> x;;
 
   let modified_before_s_t (_,cs, ct, _, _) a b = 
-    prerr_endline ("L s_t: a " ^ F.string_of_source_object a);
-    prerr_endline ("L s_t: b " ^ F.string_of_target_object b);  
+(*    
+    time_stamp ("L s_t: a " ^ F.string_of_source_object a);
+    time_stamp ("L s_t: b " ^ F.string_of_target_object b);
+*)
     let a = try Hashtbl.find cs a with Not_found -> assert false in
     let b = 
       try
@@ -228,13 +230,17 @@ module Make = functor (F:Format) -> struct
        | Some a, Some b -> a <= b
        | _ -> false
     in
-    prerr_endline ("L s_t: " ^ string_of_bool r); r
+(*    
+    time_stamp ("L s_t: " ^ string_of_bool r);
+*)    
+    r
 
-  let modified_before_t_t (_,_,ct, _, _) a b = 
+  let modified_before_t_t (_,_,ct, _, _) a b =
 (*    
-    prerr_endline ("L t_t: a " ^ F.string_of_target_object a);
-    prerr_endline ("L t_t: b " ^ F.string_of_target_object b);
-*)    let a = 
+    time_stamp ("L t_t: a " ^ F.string_of_target_object a);
+    time_stamp ("L t_t: b " ^ F.string_of_target_object b);
+*) 
+    let a = 
       try
         match Hashtbl.find ct a with
         | Some _ as x -> x
@@ -259,15 +265,18 @@ module Make = functor (F:Format) -> struct
       with Not_found -> assert false
     in
     let r = match a, b with
-    | Some a, Some b ->
+       | Some a, Some b ->
 (*       
-       prerr_endline ("tt: a " ^ string_of_float a);
-       prerr_endline ("tt: b " ^ string_of_float b);
+       time_stamp ("tt: a " ^ string_of_float a);
+       time_stamp ("tt: b " ^ string_of_float b);
 *)       
-       a <= b
-    | _ -> false
+          a <= b
+       | _ -> false
     in
-    prerr_endline ("L t_t: " ^ string_of_bool r); r
+(*    
+    time_stamp ("L t_t: " ^ string_of_bool r);
+*)    
+    r
 
   let rec purge_unwanted_roots wanted deps =
     let roots, rest = 
@@ -391,10 +400,10 @@ module Make = functor (F:Format) -> struct
        let r = make_one root opts okd whatd in 
        r, okt && modified_before_t_t opts tgtd tgt
     in
-    prerr_endline ("L : processing " ^ str);
+    time_stamp ("L : processing " ^ str);
     try 
        let r = Hashtbl.find cc t in
-       prerr_endline ("L : " ^ string_of_bool r ^ " " ^ str);
+       time_stamp ("L : " ^ string_of_bool r ^ " " ^ str);
        ok && r
 (* say "already built" *)
     with Not_found ->
@@ -418,7 +427,7 @@ module Make = functor (F:Format) -> struct
                 HLog.error ("No root for: " ^ str); false
           else false
        in
-       prerr_endline ("L : " ^ string_of_bool res ^ " " ^ str);
+       time_stamp ("L : " ^ string_of_bool res ^ " " ^ str);
        Hashtbl.add cc t res; ok && res
 
 (****************************************************************************)