Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
f33839b6
Commit
f33839b6
authored
Sep 26, 2011
by
Asma Tafat-Bouzid
Browse files
Latex statisics
parent
ae70d9dc
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/replay.ml
View file @
f33839b6
...
...
@@ -335,13 +335,23 @@ let prover_name a =
|
M
.
Undetected_prover
s
->
s
let
rec
goal_latex_stat
n
fmt
prov
depth
depth_max
column
subgoal
_subgoals_max
g
=
if
n
==
1
&&
depth
>
0
then
if
subgoal
>
0
then
if
n
==
1
then
begin
if
depth
>
0
then
if
subgoal
>
0
then
fprintf
fmt
"
\\
cline{%d-%d} @."
(
depth
+
1
)
column
else
()
(*fprintf fmt "\\cline{%d-%d} @." depth column*)
else
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
begin
if
depth_max
>
1
then
...
...
@@ -442,10 +452,17 @@ let theory_latex_stat n dir t =
fprintf
fmt
"
\\
hline Proof obligations "
;
List
.
iter
(
fun
(
_
,
a
)
->
fprintf
fmt
"& %s "
a
)
provers
;
fprintf
fmt
"
\\\\
@."
;
if
(
depth
>
1
)
then
List
.
iter
(
goal_latex_stat
n
fmt
provers
0
depth
((
List
.
length
provers
)
+
depth
)
0
0
)
(
M
.
goals
t
)
else
List
.
iter
(
goal_latex_stat
n
fmt
provers
0
depth
((
List
.
length
provers
)
+
depth
+
1
)
0
0
)
(
M
.
goals
t
);
let
column
=
if
n
==
1
then
if
depth
>
1
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}@."
;
close_out
ch
...
...
Write
Preview
Markdown
is supported
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