mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-06-06 14:13:23 +00:00
Code Activity

More ML API

Browse source 
Signed-off-by: Christoph M. Wintersteiger <cwinter@microsoft.com>
This commit is contained in:
Christoph M. Wintersteiger 2012-12-19 08:06:10 +00:00
parent e2ac8c73d9
commit d2d4bf7f83
3 changed files with 87 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

45
scripts/update_api.py
View file

@ -159,7 +159,7 @@ Type2JavaW = { VOID : 'void', VOID_PTR : 'jlong', INT : 'jint', UINT : 'jint', I
# Mapping to ML types
Type2ML = { VOID : 'unit', VOID_PTR : 'VOIDP', INT : 'int', UINT : 'int', INT64 : 'int', UINT64 : 'int', DOUBLE : 'float',
STRING : 'string', STRING_PTR : 'char**',
BOOL : 'int', SYMBOL : 'symbol', PRINT_MODE : 'int', ERROR_CODE : 'int' }
BOOL : 'int', SYMBOL : 'z3_symbol', PRINT_MODE : 'int', ERROR_CODE : 'int' }
next_type_id = FIRST_OBJ_ID
@ -213,10 +213,7 @@ def type2javaw(ty):
def type2ml(ty):
global Type2ML
if (ty >= FIRST_OBJ_ID):
return 'int'
else:
return Type2ML[ty]
return Type2ML[ty]
def _in(ty):
return (IN, ty);
@ -1106,6 +1103,7 @@ def is_array_param(p):
return False
def mk_ml():
global Type2Str
if not is_ml_enabled():
return
ml_dir = get_component('ml').src_dir
@ -1114,29 +1112,12 @@ def mk_ml():
ml_native = open(ml_nativef, 'w')
ml_native.write('(* Automatically generated file *)\n\n')
ml_native.write('open Z3enums\n\n')
ml_native.write('module Z3native = struct\n\n')
ml_native.write(' type context\n')
ml_native.write(' and symbol\n')
ml_native.write(' and ast\n')
ml_native.write(' and sort = private ast\n')
ml_native.write(' and func_decl = private ast\n')
ml_native.write(' and app = private ast\n')
ml_native.write(' and pattern = private ast\n')
ml_native.write(' and params\n')
ml_native.write(' and param_descrs\n')
ml_native.write(' and model\n')
ml_native.write(' and func_interp\n')
ml_native.write(' and func_entry\n')
ml_native.write(' and fixedpoint\n')
ml_native.write(' and ast_vector\n')
ml_native.write(' and ast_map\n')
ml_native.write(' and goal\n')
ml_native.write(' and tactic\n')
ml_native.write(' and probe\n')
ml_native.write(' and apply_result\n')
ml_native.write(' and solver\n')
ml_native.write(' and stats\n\n')
ml_native.write(' exception Exception of string\n\n')
ml_native.write('type ptr\n')
ml_native.write('and z3_symbol = ptr\n')
for k, v in Type2Str.iteritems():
if is_obj(k):
ml_native.write('and %s = ptr\n' % v.lower())
ml_native.write('\nexception Exception of string\n\n')
# ML declarations
ml_native.write(' module ML2C = struct\n\n')
@ -1192,9 +1173,9 @@ def mk_ml():
i = i + 1
ml_native.write(') in\n')
if len(params) > 0 and param_type(params[0]) == CONTEXT:
ml_native.write(' let err = (Z3enums.int2error_code (ML2C.n_get_error_code a0)) in \n')
ml_native.write(' if err <> Z3enums.OK then\n')
ml_native.write(' raise (Exception (ML2C.n_get_error_msg_ex a0 (Z3enums.error_code2int err)))\n')
ml_native.write(' let err = (int2error_code (ML2C.n_get_error_code a0)) in \n')
ml_native.write(' if err <> OK then\n')
ml_native.write(' raise (Exception (ML2C.n_get_error_msg_ex a0 (error_code2int err)))\n')
ml_native.write(' else\n')
if result == VOID:
ml_native.write(' ()\n')
@ -1202,8 +1183,6 @@ def mk_ml():
ml_native.write(' res\n')
ml_native.write('\n')
ml_native.write('end\n')
# C interface
ml_wrapper = open(ml_wrapperf, 'w')
ml_wrapper.write('// Automatically generated file\n\n')