mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-15 13:28:47 +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 17:26:28 +00:00
parent f7b3529f01
commit f614f6824e
1 changed files with 79 additions and 79 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,27 +1,27 @@
(* (*
Copyright (C) 2012 Microsoft Corporation Copyright (C) 2012 Microsoft Corporation
Author: CM Wintersteiger (cwinter) 2012-12-17 Author: CM Wintersteiger (cwinter) 2012-12-17
*) *)
open Z3enums open Z3enums
open Z3native open Z3native
module Log = module Log =
struct struct
let m_is_open = false let m_is_open = false
(* CMW: "open" seems to be an invalid function name*) (* CMW: "open" seems to be an invalid function name*)
let open_ fn = int2lbool(open_log fn) == L_TRUE let open_ fn = int2lbool(open_log fn) == L_TRUE
let close = (close_log) let close = (close_log)
let append s = (append_log s) let append s = (append_log s)
end end
class virtual idisposable = class virtual idisposable =
object object
method virtual dispose : unit method virtual dispose : unit
end end
class context settings = class context settings =
object (self) object (self)
inherit idisposable inherit idisposable
val mutable m_n_ctx : Z3native.z3_context option = None val mutable m_n_ctx : Z3native.z3_context option = None
val mutable m_refCount : int = 0 val mutable m_refCount : int = 0
@ -50,10 +50,10 @@ class context settings =
method sub_one_ctx_obj = m_refCount <- m_refCount - 1 method sub_one_ctx_obj = m_refCount <- m_refCount - 1
method add_one_ctx_obj = m_refCount <- m_refCount + 1 method add_one_ctx_obj = m_refCount <- m_refCount + 1
end end
class virtual z3object ctx_init obj_init = class virtual z3object ctx_init obj_init =
object (self) object (self)
inherit idisposable inherit idisposable
val mutable m_ctx : context option = ctx_init val mutable m_ctx : context option = ctx_init
val mutable m_n_obj : Z3native.ptr option = obj_init val mutable m_n_obj : Z3native.ptr option = obj_init
@ -103,7 +103,7 @@ class virtual z3object ctx_init obj_init =
method get_context = m_ctx method get_context = m_ctx
(* (*
method array_to_native a = method array_to_native a =
let f e = e#get_native_object in let f e = e#get_native_object in
(Array.map f a) (Array.map f a)
@ -112,7 +112,7 @@ class virtual z3object ctx_init obj_init =
match a with match a with
| Some(x) -> (Array.length x) | Some(x) -> (Array.length x)
| None -> 0 | None -> 0
*) *)
end end