pieuvre/main.ml

open Expr
open Affichage

let interpret e =
  begin
    print_expr e;
    print_newline();
    (*print_int (eval e);*)
    print_newline()
  end

let lexbuf = Lexing.from_channel stdin

let parse () = Parser.main Lexer.token lexbuf

let calc () =
  let result = parse () in
  interpret result; flush stdout

let _ = calc()