mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-08-26 04:56:03 +00:00
Code Activity

Added ml component

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2012-10-02 12:44:06 -07:00
parent 454fa7dcdd
commit bcca613cb2
60 changed files with 40332 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

36
ml/mlx_mk_context_x.idl Normal file
View file

@ -0,0 +1,36 @@
quote(mlmli,"external mk_context: (string * string) list -> context = \"caml_z3_mk_context\"
");
// Note: lack of whitespace and comments in the previous 2 lines is important for the documentation generation
quote(c,"
value caml_z3_mk_context(value key_val_list)
{
CAMLparam1( key_val_list );
CAMLlocal4( item, vkey, vval, _vres );
char * ckey;
char * cval;
Z3_config cfg;
Z3_context _res;
struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
camlidl_ctx _ctx = &_ctxs;
cfg = Z3_mk_config();
while (key_val_list != Val_emptylist)
{
item = Field(key_val_list, 0);
vkey = Field(item, 0);
vval = Field(item, 1);
ckey = camlidl_malloc_string(vkey, _ctx);
cval = camlidl_malloc_string(vval, _ctx);
Z3_set_param_value(cfg, ckey, cval);
key_val_list = Field(key_val_list, 1);
}
_res = Z3_mk_context_rc(cfg);
Z3_del_config(cfg);
_vres = camlidl_c2ml_z3_Z3_context(&_res, _ctx);
camlidl_free(_ctx);
Z3_set_error_handler(_res, error_handler_static);
CAMLreturn(_vres);
}
");