\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
+module P = Printf
+module L = Log
module AO = AutOutput
module MA = MetaAut
module MO = MetaOutput
let stage = ref 2 in
let meta_file = ref None in
let set_summary i = summary := i in
- let print_version () = print_endline version_string; exit 0 in
+ let print_version () = L.warn version_string; exit 0 in
let set_stage i = stage := i in
let close = function
| None -> ()
let read_file name =
if !summary > 0 then Time.gmtime version_string;
if !summary > 1 then
- Printf.printf "Processing file: %s\n" name; flush stdout;
+ L.warn (P.sprintf "Processing file: %s" name);
if !summary > 0 then Time.utime_stamp "started";
let ich = open_in name in
let lexbuf = Lexing.from_channel ich in