(* To compile this file, run:
 *
 * ocamlbuild -use-ocamlfind -pkg compsci631 -pkg ppx_test verif.d.byte
 *
 * This produces an executable called verif.d.byte.
 *)

open Smtlib
open Imp
open Printf

let z3_path = "z3" (* Update this with the path to Z3 or to a debugging script. *)

let solver = make_solver z3_path

let verify (pre : bexp) (cmd : cmd) (post : bexp) : bool =
  failwith "not implemented"

let _ =
  let filename = Sys.argv.(1)
  let (pre, cmd, post) = from_file filename in
  if verify pre cmd post then
    (printf "Verification SUCCEEDED.\n%!"; exit 0)
  else
    (printf "Verification FAILED.\n%!"; exit 1)