* http://helm.cs.unibo.it/
*)
+(* $Id$ *)
+
let log_level = ref 1
let get_log_level () = !log_level
let set_log_level l = log_level := l
| None, _ -> prerr_endline msg
| Some fname, Some oc ->
output_string oc msg;
+ output_string oc "\n";
flush oc
| Some _, None -> assert false