From 36548d6634864a131cc83ce21491c797163de305 Mon Sep 17 00:00:00 2001
From: QGarchery <QGarchery@users.noreply.github.com>
Date: Mon, 3 Dec 2018 08:08:56 +0100
Subject: verit also works when it doesn't use the conclusion (#24)

Fixes issue #20
---
 src/trace/smtCertif.ml | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

(limited to 'src/trace/smtCertif.ml')

diff --git a/src/trace/smtCertif.ml b/src/trace/smtCertif.ml
index a0af59d..275f6d1 100644
--- a/src/trace/smtCertif.ml
+++ b/src/trace/smtCertif.ml
@@ -146,7 +146,7 @@ let used_clauses r =
   | EqTr _ | EqCgr _ | EqCgrP _
   | LiaMicromega _ | LiaDiseq _ -> []
 
-(* for debugging *)                                       
+(* For debugging certif processing purposes : <add_scertif> <select> <occur> <alloc> *)
 let to_string r =
   match r with
             Root -> "Root"
@@ -181,3 +181,32 @@ let to_string r =
                          | Forall_inst _ -> "Forall_inst"  end ^ ")"
 
 
+
+(* To use <print_certif>, pass, as first and second argument, <Form.to_smt> and <Atom.to_string> *)
+let print_certif form_to_smt atom_to_string c where=
+  let rec start c =
+    match c.prev with
+    | None -> c
+    | Some c -> start c in
+  let r = ref (start c) in
+  let out_channel = open_out where in
+  let fmt = Format.formatter_of_out_channel out_channel in
+  let continue = ref true in
+  while !continue do
+    let kind = to_string (!r.kind) in
+    let id = !r.id in
+    let pos = match !r.pos with
+      | None -> "None"
+      | Some p -> string_of_int p in
+    let used = !r.used in
+    Format.fprintf fmt "id:%i kind:%s pos:%s used:%i value:" id kind pos used;
+    begin match !r.value with
+    | None -> Format.fprintf fmt "None"
+    | Some l -> List.iter (fun f -> form_to_smt atom_to_string fmt f;
+                                    Format.fprintf fmt " ") l end;
+    Format.fprintf fmt "\n";
+    match !r.next with
+    | None -> continue := false
+    | Some n -> r := n 
+  done;
+  Format.fprintf fmt "@."; close_out out_channel
-- 
cgit