blob: cc5bb19b65dafe1428853ab51c54137c8996ca90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
open Types
let _ =
let file = try Sys.argv.(2) with _ -> try Sys.argv.(1) with _ -> "/tmp/t.pl" in
let lexbuf = Lexing.from_channel (open_in file) in
let _ =
try
Info.start_a_new_file file ;
if false then
let t = Lexer.lexbuf2list Lexer.token lexbuf in
let _,_ = t, t in ""
else
Parser.prog Lexer.token lexbuf
with Failure s -> (
prerr_endline s ;
exit 1
) in
()
|
