Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Why3
why3
Commits
e9417db4
Commit
e9417db4
authored
Sep 20, 2011
by
Asma Tafat
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Latex statistics
parent
e20de078
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
23 additions
and
13 deletions
+23
-13
src/ide/replay.ml
src/ide/replay.ml
+23
-13
No files found.
src/ide/replay.ml
View file @
e9417db4
...
...
@@ -332,12 +332,12 @@ let prover_name a =
let
rec
goal_latex_stat
n
fmt
prov
depth
depth_max
first
g
=
if
(
n
==
1
)
then
begin
if
not
first
then
for
i
=
1
to
depth
do
fprintf
fmt
"&"
done
if
(
depth
<
depth_max
)
then
for
i
=
1
to
depth
do
fprintf
fmt
"&"
done
else
for
i
=
1
to
depth
-
1
do
fprintf
fmt
"&"
done
else
if
depth
>
0
then
fprintf
fmt
"&"
end
else
begin
for
i
=
1
to
depth
do
fprintf
fmt
"
\\
quad"
done
if
depth
>
0
then
fprintf
fmt
"&"
end
;
if
(
depth
<=
1
)
then
fprintf
fmt
"
\\
verb|%s| "
(
M
.
goal_expl
g
);
...
...
@@ -346,21 +346,31 @@ let rec goal_latex_stat n fmt prov depth depth_max first g =
begin
if
(
n
==
1
)
then
begin
if
depth
>
0
then
for
i
=
depth
to
(
depth_max
-
depth
)
do
fprintf
fmt
"&"
done
if
(
depth_max
<=
1
)
then
begin
if
depth
>
0
then
for
i
=
depth
to
(
depth_max
-
depth
)
do
fprintf
fmt
"&"
done
else
for
i
=
depth
to
(
depth_max
-
depth
-
1
)
do
fprintf
fmt
"&"
done
end
else
for
i
=
depth
to
(
depth_max
-
depth
-
1
)
do
fprintf
fmt
"&"
done
;
for
i
=
depth
to
(
depth_max
-
depth
-
1
)
do
fprintf
fmt
"&"
done
end
;
List
.
iter
(
fun
(
p
,
_pr
)
->
try
let
pr
=
Hashtbl
.
find
proofs
p
in
let
s
=
pr
.
M
.
proof_state
in
match
s
with
Session
.
Done
res
->
if
res
.
Call_provers
.
pr_answer
=
Call_provers
.
Valid
then
fprintf
fmt
"& %.2f "
res
.
Call_provers
.
pr_time
else
fprintf
fmt
"& - "
|
_
->
fprintf
fmt
"& "
Session
.
Done
res
->
begin
match
res
.
Call_provers
.
pr_answer
with
Call_provers
.
Valid
->
fprintf
fmt
"& %.2f "
res
.
Call_provers
.
pr_time
|
Call_provers
.
Invalid
->
fprintf
fmt
"& _ "
|
Call_provers
.
Timeout
->
fprintf
fmt
"& timeout "
|
Call_provers
.
Unknown
_s
->
fprintf
fmt
"& ? "
|
_
->
fprintf
fmt
"& "
end
|
_
->
fprintf
fmt
"& "
with
Not_found
->
fprintf
fmt
"&"
)
prov
;
fprintf
fmt
"
\\\\
\\
hline @."
;
end
...
...
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