39 lines
1.1 KiB
OCaml
39 lines
1.1 KiB
OCaml
|
(*
|
||
|
|
Cours "Sémantique et Application à la Vérification de programmes"
|
||
|
|
|
||
|
|
Antoine Miné 2015
|
||
|
|
Marc Chevalier 2018
|
||
|
|
Josselin Giet 2021
|
||
|
|
Ecole normale supérieure, Paris, France / CNRS / INRIA
|
||
|
|
*)
|
||
|
|
|
||
|
|
(*
|
||
|
|
Opens and parses a file given as argument.
|
||
|
|
*)
|
||
|
|
|
||
|
|
open Abstract_syntax_tree
|
||
|
|
open Cfg_printer
|
||
|
|
open Lexing
|
||
|
|
|
||
|
|
(* parsing, with nice error messages *)
|
||
|
|
|
||
|
|
let parse_file (filename: string) : prog =
|
||
|
|
let file = open_in filename in
|
||
|
|
let lexbuf = from_channel file in
|
||
|
|
lexbuf.lex_curr_p <- {lexbuf.lex_curr_p with pos_fname = filename; pos_lnum = 1};
|
||
|
|
let module MI = Parser.MenhirInterpreter in
|
||
|
|
let checkpoint = Parser.Incremental.file lexbuf.lex_curr_p
|
||
|
|
and supplier = MI.lexer_lexbuf_to_supplier Lexer.token lexbuf
|
||
|
|
and succeed x = x
|
||
|
|
and fail checkpoint =
|
||
|
|
let position = string_of_position lexbuf.lex_start_p in
|
||
|
|
let error_msg =
|
||
|
|
match checkpoint with
|
||
|
|
| MI.HandlingError env -> env |> MI.current_state_number |> Parser_messages.message
|
||
|
|
| _ -> assert false (* This should not happen. *)
|
||
|
|
in
|
||
|
|
Printf.printf "%s: %s" position error_msg;
|
||
|
|
exit 1
|
||
|
|
in
|
||
|
|
MI.loop_handle succeed fail supplier checkpoint
|