You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
284 B
12 lines
284 B
let _ =
|
|
|
|
if Array.length Sys.argv < 2 then failwith (Format.sprintf "usage: %s <log file>" Sys.argv.(0));
|
|
|
|
let file = Sys.argv.(1) in
|
|
let chan = open_in file in
|
|
|
|
let msgs = Opazl.Parser.from_channel chan in
|
|
|
|
close_in chan;
|
|
|
|
Opazl.Pp.fprintf_file Format.std_formatter msgs
|
|
|