path: root/frontend/file_parser.ml

open Ast
open Ast_printer
open Lexing

let parse_file (filename : string) : prog =
    let f = open_in filename in
    let lex = from_channel f in
    try
        lex.lex_curr_p <- { lex.lex_curr_p with pos_fname = filename; };
        Parser.file Lexer.token lex
    with
    | Parser.Error ->
        Printf.eprintf "Parse error (invalid syntax) near %s\n"
            (string_of_position lex.lex_start_p);
        failwith "Parse error"
    | Failure "lexing: empty token" ->
        Printf.eprintf "Parse error (invalid token) near %s\n"
            (string_of_position lex.lex_start_p);
        failwith "Parse error"