13 lines
291 B
OCaml
13 lines
291 B
OCaml
|
open Ast
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
try
|
||
|
|
let oi = open_in "test.node" in
|
||
|
|
let lexbuf = Lexing.from_channel oi in
|
||
|
|
let result = Parser.main Lexer.token lexbuf in
|
||
|
|
Format.printf "%a" Pp.pp_prog result;
|
||
|
|
close_in oi
|
||
|
|
with Lexer.Lexing_error s ->
|
||
|
|
Format.printf "Code d'erreur:\n\t%s\n\n" s
|
||
|
|
|