Commit f33839b6 by Asma Tafat-Bouzid

### Latex statisics

parent ae70d9dc
 ... @@ -335,13 +335,23 @@ let prover_name a = ... @@ -335,13 +335,23 @@ let prover_name a = | M.Undetected_prover s -> s | M.Undetected_prover s -> s let rec goal_latex_stat n fmt prov depth depth_max column subgoal _subgoals_max g = let rec goal_latex_stat n fmt prov depth depth_max column subgoal _subgoals_max g = if n == 1 && depth > 0 then if n == 1 then if subgoal > 0 then begin if depth > 0 then if subgoal > 0 then fprintf fmt "\\cline{%d-%d} @." (depth + 1) column fprintf fmt "\\cline{%d-%d} @." (depth + 1) column else () else () (*fprintf fmt "\\cline{%d-%d} @." depth column*) (*fprintf fmt "\\cline{%d-%d} @." depth column*) else else fprintf fmt "\\hline @."; fprintf fmt "\\hline @."; end else begin if depth > 0 then fprintf fmt "\\cline{%d-%d} @." 2 column else fprintf fmt "\\hline @." end; if(n ==1) then if(n ==1) then begin begin if depth_max > 1 then if depth_max > 1 then ... @@ -442,10 +452,17 @@ let theory_latex_stat n dir t = ... @@ -442,10 +452,17 @@ let theory_latex_stat n dir t = fprintf fmt "\\hline Proof obligations "; fprintf fmt "\\hline Proof obligations "; List.iter (fun (_, a) -> fprintf fmt "& %s " a) provers; List.iter (fun (_, a) -> fprintf fmt "& %s " a) provers; fprintf fmt "\\\\ @."; fprintf fmt "\\\\ @."; if (depth > 1) then let column = List.iter (goal_latex_stat n fmt provers 0 depth ((List.length provers) + depth) 0 0) (M.goals t) if n == 1 then else if depth > 1 List.iter (goal_latex_stat n fmt provers 0 depth ((List.length provers) + depth + 1) 0 0) (M.goals t); then (List.length provers) + depth else (List.length provers) + depth + 1 else (List.length provers) + 1 in List.iter (goal_latex_stat n fmt provers 0 depth column 0 0) (M.goals t); fprintf fmt "\\hline \\end{tabular}@."; fprintf fmt "\\hline \\end{tabular}@."; close_out ch close_out ch ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!