mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2026-03-01 11:16:54 +00:00
Code Activity

Merge pull request #8781 from Z3Prover/copilot/fix-ts-ocaml-issues

Browse source 
Add register_on_clause to OCaml and TypeScript bindings
This commit is contained in:
Nikolaj Bjorner 2026-02-26 15:49:40 -08:00 • committed by GitHub
commit fadf045df0
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
11 changed files with 159 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2020,6 +2020,11 @@ struct
List.iter (fun e -> Z3native.ast_vector_push (gc x) term_vec e) terms;
List.iter (fun e -> Z3native.ast_vector_push (gc x) guard_vec e) guards;
Z3native.solver_solve_for (gc x) x var_vec term_vec guard_vec
let register_on_clause (s:solver) (callback: Expr.expr option -> int list -> Expr.expr list -> unit) =
Z3native.solver_register_on_clause (gc s) s (fun proof_hint deps lits ->
let lits_list = AST.ASTVector.to_expr_list lits in
callback proof_hint deps lits_list)
end