Commit f81a86a6 authored by François Bobot's avatar François Bobot
Browse files

latex stat : fix the latex generated for the head of the pages

after the first one.
parent 03d3a2ff
...@@ -488,30 +488,32 @@ let theory_latex_stat n dir t = ...@@ -488,30 +488,32 @@ let theory_latex_stat n dir t =
fprintf fmt "{| l |"; fprintf fmt "{| l |";
for i = 0 to (List.length provers) + depth do fprintf fmt "c |" done; for i = 0 to (List.length provers) + depth do fprintf fmt "c |" done;
fprintf fmt "}@."; fprintf fmt "}@.";
if (n == 1) then let print_head fmt =
if (depth > 1) then if (n == 1) then
fprintf fmt "\\hline \\multicolumn{%d}{|c|}{Proof obligations } " depth if (depth > 1) then
fprintf fmt "\\hline \\multicolumn{%d}{|c|}{Proof obligations } "
depth
else else
fprintf fmt "\\hline \\multicolumn{%d}{|c|}{Proof obligations } " fprintf fmt "\\hline \\multicolumn{%d}{|c|}{Proof obligations } "
(depth + 1) (depth + 1)
else else
fprintf fmt "\\hline Proof obligations "; fprintf fmt "\\hline Proof obligations ";
List.iter (fun (_, a) -> fprintf fmt "& \\provername{%s} " a) provers; List.iter (fun (_, a) -> fprintf fmt "& \\provername{%s} " a) provers;
fprintf fmt "\\\\ @."; fprintf fmt "\\\\ @.";
in
(** First head *)
print_head fmt;
fprintf fmt "\\hline \\endfirsthead @."; fprintf fmt "\\hline \\endfirsthead @.";
(** Other heads : "Continued... " added *)
fprintf fmt "\\multicolumn{%d}{r}{\\textit{Continued from previous page}} \ fprintf fmt "\\multicolumn{%d}{r}{\\textit{Continued from previous page}} \
\\\\ @." (List.length provers + 1) ; \\\\ @." (List.length provers + 1) ;
fprintf fmt "\\hline @."; fprintf fmt "\\hline @.";
if (depth > 1) then print_head fmt;
fprintf fmt "\\hline \\multicolumn{%d}{|c|}{Proof obligations } " depth
else
fprintf fmt "\\hline \\multicolumn{%d}{|c|}{Proof obligations } "
(depth + 1);
List.iter (fun (_, a) -> fprintf fmt "& \\provername{%s} " a) provers;
fprintf fmt "\\\\ @.";
fprintf fmt "\\hline \\endhead @."; fprintf fmt "\\hline \\endhead @.";
(** Other foots : "Continued..." added *)
fprintf fmt "\\hline \\multicolumn{%d}{r}{\\textit{Continued on next page}} \ fprintf fmt "\\hline \\multicolumn{%d}{r}{\\textit{Continued on next page}} \
\\\\ @." (List.length provers); \\\\ @." (List.length provers);
(** Last foot : nothing *)
fprintf fmt "\\endfoot \\endlastfoot @."; fprintf fmt "\\endfoot \\endlastfoot @.";
let column = let column =
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment