blob: 7e951a86b191158a2019580088c38a135584f01d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
open Types
let _ =
let args = List.tl (Array.to_list Sys.argv) in
let args = if args = [] then ["/tmp/t.pl"] else args in
List.iter (fun file ->
try
let lexbuf = Lexing.from_channel (Unix.open_process_in (Printf.sprintf "expand \"%s\"" file)) in
try
Info.start_a_new_file file ;
let tokens = Lexer.get_token Lexer.token lexbuf in
let t = Parser_helper.parse_tokens Parser.prog tokens (Some lexbuf) in
let _,_ = t, t in ()
with Failure s -> (
prerr_endline s ;
exit 1
)
with _ -> prerr_endline ("bad file " ^ file)
) args
|
