mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-12 20:18:18 +00:00
Code Activity

ML API: Cleanup

Browse source 
Signed-off-by: Christoph M. Wintersteiger <cwinter@microsoft.com>
This commit is contained in:
Christoph M. Wintersteiger 2013-02-20 18:37:52 +00:00
parent 09aa02759f
commit 2af1f81ae1
4 changed files with 1159 additions and 1099 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/ml/Makefile
View file

@ -3,5 +3,5 @@
# in the top-level build directory. # in the top-level build directory.
all: all:
OCAML_COMPAT=c ocamlc -g -annot -o ml_example.byte -I ../../bld_dbg -I ../../bld_dbg/api/ml z3.cma ml_example.ml OCAML_COMPAT=c C:/ocamlw32/bin/ocamlc -g -annot -o ml_example.byte -I ../../bld_dbg -I ../../bld_dbg/api/ml z3.cma ml_example.ml
ocamlopt -g -annot -o ml_example -I ../../bld_dbg -I ../../bld_dbg/api/ml z3.cmxa ml_example.ml C:/ocamlw32/bin/ocamlopt -g -annot -o ml_example -I ../../bld_dbg -I ../../bld_dbg/api/ml z3.cmxa ml_example.ml

5
examples/ml/ml_example.ml
View file

@ -15,6 +15,9 @@ open Z3.Tactic.ApplyResult
open Z3.Probe open Z3.Probe
open Z3.Solver open Z3.Solver
open Z3.Arithmetic open Z3.Arithmetic
open Z3.Arithmetic.Integer
open Z3.Arithmetic.Real
open Z3.BitVector
exception TestFailedException of string exception TestFailedException of string
@ -35,7 +38,7 @@ let model_converter_test ( ctx : context ) =
(Real.mk_numeral_nd ctx 10 1)))) |]) ; (Real.mk_numeral_nd ctx 10 1)))) |]) ;
(Goal.assert_ g4 [| (mk_eq ctx (Goal.assert_ g4 [| (mk_eq ctx
(expr_of_arith_expr yr) (expr_of_arith_expr yr)
(expr_of_arith_expr (mk_add ctx [| xr; (arith_expr_of_real_expr (real_expr_of_rat_num (Real.mk_numeral_nd ctx 1 1))) |] ))) |] ) ; (expr_of_arith_expr (Arithmetic.mk_add ctx [| xr; (arith_expr_of_real_expr (real_expr_of_rat_num (Real.mk_numeral_nd ctx 1 1))) |]) ) ) |] ) ;
(Goal.assert_ g4 [| (mk_gt ctx yr (arith_expr_of_real_expr (real_expr_of_rat_num (Real.mk_numeral_nd ctx 1 1)))) |]) ; (Goal.assert_ g4 [| (mk_gt ctx yr (arith_expr_of_real_expr (real_expr_of_rat_num (Real.mk_numeral_nd ctx 1 1)))) |]) ;
( (
let ar = (Tactic.apply (mk_tactic ctx "simplify") g4 None) in let ar = (Tactic.apply (mk_tactic ctx "simplify") g4 None) in

2
scripts/update_api.py
View file

@ -1155,6 +1155,7 @@ def mk_ml():
ml_native.write('(** The native (raw) interface to the dynamic Z3 library. *)\n\n') ml_native.write('(** The native (raw) interface to the dynamic Z3 library. *)\n\n')
ml_i.write('(* Automatically generated file *)\n\n') ml_i.write('(* Automatically generated file *)\n\n')
ml_i.write('(** The native (raw) interface to the dynamic Z3 library. *)\n\n') ml_i.write('(** The native (raw) interface to the dynamic Z3 library. *)\n\n')
ml_i.write('(**/**)\n\n');
ml_native.write('open Z3enums\n\n') ml_native.write('open Z3enums\n\n')
ml_native.write('(**/**)\n') ml_native.write('(**/**)\n')
ml_native.write('type ptr\n') ml_native.write('type ptr\n')
@ -1214,6 +1215,7 @@ def mk_ml():
ml_native.write(' "n_%s_bytecode"\n' % ml_method_name(name)) ml_native.write(' "n_%s_bytecode"\n' % ml_method_name(name))
ml_native.write('\n') ml_native.write('\n')
ml_native.write(' end\n\n') ml_native.write(' end\n\n')
ml_i.write('\n(**/**)\n');
# Exception wrappers # Exception wrappers
for name, result, params in _dotnet_decls: for name, result, params in _dotnet_decls:

2111
src/api/ml/z3.ml
View file

File diff suppressed because it is too large Load diff