[tiger.ml.git] / tiger / src / exe / tigerc.ml

open Printf

let () =
  let path_to_program_file = Sys.argv.(1) in
  let ic = open_in path_to_program_file in
  let lexbuf = Lexing.from_channel ic in
  let rec parse_and_print () =
    match Tiger.Lexer.token lexbuf with
    | None ->
        ()
    | Some token ->
        printf "%s\n" (Tiger.Parser.Token.to_string token);
        parse_and_print ()
  in
  parse_and_print ();
  close_in ic;
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 () =
b828a6e7 SK	8	match Tiger.Lexer.token lexbuf with
	9	\| None ->
	10	()
	11	\| Some token ->
	12	printf "%s\n" (Tiger.Parser.Token.to_string token);
	13	parse_and_print ()
78c9eca5 SK	14	in
	15	parse_and_print ();
	16	close_in ic;