CicEnvironment SETTINGS (trust and clean_tmp)
* ************************************************************************** *)
+let debug = false;;
let cleanup_tmp = true;;
let trust = ref (fun _ -> true);;
let set_trust f = trust := f
let trust_obj uri = !trust uri
-let debug_print = fun x -> prerr_endline (Lazy.force x)
+let debug_print = if debug then fun x -> prerr_endline (Lazy.force x) else ignore
(* ************************************************************************** *
TYPES
if List.mem_assq uri !frozen_list then
(* CIRCULAR DEPENDENCY DETECTED, print the error and raise *)
begin
- print_endline "\nCircularDependency!\nfrozen list: \n";
+(*
+ prerr_endline "\nCircularDependency!\nfrozen list: \n";
List.iter (
fun (u,(_,o)) ->
let su = UriManager.string_of_uri u in
let univ = if o = None then "NO_UNIV" else "" in
- print_endline (su^" "^univ))
+ prerr_endline (su^" "^univ))
!frozen_list;
+*)
raise (CircularDependency (lazy (UriManager.string_of_uri uri)))
end
else