Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
f81a86a6
Commit
f81a86a6
authored
Oct 21, 2011
by
François Bobot
Browse files
latex stat : fix the latex generated for the head of the pages
after the first one.
parent
03d3a2ff
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/replay.ml
View file @
f81a86a6
...
...
@@ -488,30 +488,32 @@ let theory_latex_stat n dir t =
fprintf
fmt
"{| l |"
;
for
i
=
0
to
(
List
.
length
provers
)
+
depth
do
fprintf
fmt
"c |"
done
;
fprintf
fmt
"}@."
;
if
(
n
==
1
)
then
if
(
depth
>
1
)
then
fprintf
fmt
"
\\
hline
\\
multicolumn{%d}{|c|}{Proof obligations } "
depth
let
print_head
fmt
=
if
(
n
==
1
)
then
if
(
depth
>
1
)
then
fprintf
fmt
"
\\
hline
\\
multicolumn{%d}{|c|}{Proof obligations } "
depth
else
fprintf
fmt
"
\\
hline
\\
multicolumn{%d}{|c|}{Proof obligations } "
(
depth
+
1
)
else
fprintf
fmt
"
\\
hline Proof obligations "
;
List
.
iter
(
fun
(
_
,
a
)
->
fprintf
fmt
"&
\\
provername{%s} "
a
)
provers
;
fprintf
fmt
"
\\\\
@."
;
fprintf
fmt
"
\\
hline
\\
multicolumn{%d}{|c|}{Proof obligations } "
(
depth
+
1
)
else
fprintf
fmt
"
\\
hline Proof obligations "
;
List
.
iter
(
fun
(
_
,
a
)
->
fprintf
fmt
"&
\\
provername{%s} "
a
)
provers
;
fprintf
fmt
"
\\\\
@."
;
in
(** First head *)
print_head
fmt
;
fprintf
fmt
"
\\
hline
\\
endfirsthead @."
;
(** Other heads : "Continued... " added *)
fprintf
fmt
"
\\
multicolumn{%d}{r}{
\\
textit{Continued from previous page}} \
\\\\
@."
(
List
.
length
provers
+
1
)
;
fprintf
fmt
"
\\
hline @."
;
if
(
depth
>
1
)
then
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
"
\\\\
@."
;
print_head
fmt
;
fprintf
fmt
"
\\
hline
\\
endhead @."
;
(** Other foots : "Continued..." added *)
fprintf
fmt
"
\\
hline
\\
multicolumn{%d}{r}{
\\
textit{Continued on next page}} \
\\\\
@."
(
List
.
length
provers
);
(** Last foot : nothing *)
fprintf
fmt
"
\\
endfoot
\\
endlastfoot @."
;
let
column
=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment