Commit | Line | Data |
---|---|---|
78c9eca5 SK |
1 | open Printf |
2 | ||
3 | let () = | |
4 | let path_to_program_file = Sys.argv.(1) in | |
5 | let ic = open_in path_to_program_file in | |
6 | let lexbuf = Lexing.from_channel ic in | |
7 | let rec parse_and_print () = | |
8 | let token = Tiger.Lexer.token lexbuf in | |
9 | printf "%s\n" (Tiger.Parser.Token.to_string token); | |
10 | match token with | |
11 | | Tiger.Parser.Token.EOF -> () | |
12 | | _ -> parse_and_print () | |
13 | in | |
14 | parse_and_print (); | |
15 | close_in ic; |