mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-23 17:15:31 +00:00
Code Activity

ML API bugfixes

Browse source 
Signed-off-by: Christoph M. Wintersteiger <cwinter@microsoft.com>
This commit is contained in:
Christoph M. Wintersteiger 2012-12-20 04:10:38 +00:00
parent 0fad5abd19
commit b193b827ed
3 changed files with 101 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

20
examples/ml/ml_example.ml
View file

@ -4,11 +4,19 @@
*)
open Z3
let _ = ignore(Log.open_ "z3.log") ;
let cfg = Some [("model", "true"); ("proof", "false")] in
let ctx = (new context cfg) in
Printf.printf "Disposing...\n";
ctx#dispose ;
exception ExampleException of string
let _ =
if not (Log.open_ "z3.log") then
raise (ExampleException "Log couldn't be opened.")
else
(
Printf.printf "Running Z3 version %s\n" Version.to_string ;
let cfg = [("model", "true"); ("proof", "false")] in
let ctx = (new context cfg) in
Printf.printf "Disposing...\n";
ctx#dispose (* can do, but we'd rather let it go out of scope *) ;
);
Printf.printf "Exiting.\n";
;;