simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-07 19:55:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed bad tabls in dot backend

Browse source
This commit is contained in:
Guillaume Bury 2016-06-29 21:25:53 +02:00
parent f19c6b9b77
commit 49267897e8
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
backend/dot.ml
View file

@ -20,6 +20,9 @@ module Make(S : Res.S)(A : Arg with type atom := S.atom and type lemma := S.lemm
let print_clause fmt c = let print_clause fmt c =
let v = c.S.St.atoms in let v = c.S.St.atoms in
if Vec.is_empty v then
Format.fprintf fmt "⊥"
else
let n = Vec.size v in let n = Vec.size v in
for i = 0 to n - 1 do for i = 0 to n - 1 do
Format.fprintf fmt "%a" A.print_atom (Vec.get v i); Format.fprintf fmt "%a" A.print_atom (Vec.get v i);
@ -48,7 +51,7 @@ module Make(S : Res.S)(A : Arg with type atom := S.atom and type lemma := S.lemm
| f :: r -> | f :: r ->
Format.fprintf fmt "<TR><TD BGCOLOR=\"%s\" rowspan=\"%d\">%s</TD><TD>%a</TD></TR>" Format.fprintf fmt "<TR><TD BGCOLOR=\"%s\" rowspan=\"%d\">%s</TD><TD>%a</TD></TR>"
color (List.length l) rule f (); color (List.length l) rule f ();
List.iter (fun f -> Format.fprintf fmt "<TR><TD></TD><TD>%a</TD></TR>" f ()) r List.iter (fun f -> Format.fprintf fmt "<TR><TD>%a</TD></TR>" f ()) r
let print_dot_node fmt id color c rule rule_color l = let print_dot_node fmt id color c rule rule_color l =
Format.fprintf fmt "%s [shape=plaintext, label=<<TABLE %a>%a</TABLE>>];@\n" Format.fprintf fmt "%s [shape=plaintext, label=<<TABLE %a>%a</TABLE>>];@\n"