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
b59eaac0
Commit
b59eaac0
authored
Feb 20, 2011
by
Andrei Paskevich
Browse files
cosmetic
parent
77e46959
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/driver/call_provers.ml
View file @
b59eaac0
...
...
@@ -156,32 +156,32 @@ let call_on_buffer ~command ?(timelimit=0) ?(memlimit=0)
let
out
=
Sysutil
.
channel_contents
cout
in
close_in
cout
;
fun
()
->
if
Debug
.
nottest_flag
debug
then
begin
Sys
.
remove
fin
;
Sys
.
remove
fout
;
end
;
let
ans
=
match
ret
with
|
Unix
.
WSTOPPED
n
->
Debug
.
dprintf
debug
"Call_provers: stopped by signal %d@."
n
;
HighFailure
|
Unix
.
WSIGNALED
n
->
Debug
.
dprintf
debug
"Call_provers: killed by signal %d@."
n
;
HighFailure
|
Unix
.
WEXITED
n
->
Debug
.
dprintf
debug
"Call_provers: exited with status %d@."
n
;
(
try
List
.
assoc
n
exitcodes
with
Not_found
->
grep
out
regexps
)
in
Debug
.
dprintf
debug
"Call_provers: prover output:@
\n
%s@."
out
;
let
time
=
Util
.
default_option
time
(
grep_time
out
timeregexps
)
in
let
ans
=
match
ans
with
|
HighFailure
when
!
on_timelimit
&&
timelimit
>
0
&&
time
>=
(
0
.
9
*.
float
timelimit
)
->
Timeout
|
_
->
ans
in
{
pr_answer
=
ans
;
pr_output
=
out
;
pr_time
=
time
}
fun
()
->
if
Debug
.
nottest_flag
debug
then
begin
Sys
.
remove
fin
;
Sys
.
remove
fout
;
end
;
let
ans
=
match
ret
with
|
Unix
.
WSTOPPED
n
->
Debug
.
dprintf
debug
"Call_provers: stopped by signal %d@."
n
;
HighFailure
|
Unix
.
WSIGNALED
n
->
Debug
.
dprintf
debug
"Call_provers: killed by signal %d@."
n
;
HighFailure
|
Unix
.
WEXITED
n
->
Debug
.
dprintf
debug
"Call_provers: exited with status %d@."
n
;
(
try
List
.
assoc
n
exitcodes
with
Not_found
->
grep
out
regexps
)
in
Debug
.
dprintf
debug
"Call_provers: prover output:@
\n
%s@."
out
;
let
time
=
Util
.
default_option
time
(
grep_time
out
timeregexps
)
in
let
ans
=
match
ans
with
|
HighFailure
when
!
on_timelimit
&&
timelimit
>
0
&&
time
>=
(
0
.
9
*.
float
timelimit
)
->
Timeout
|
_
->
ans
in
{
pr_answer
=
ans
;
pr_output
=
out
;
pr_time
=
time
}
let
query_call
call
=
try
Some
(
call
[
Unix
.
WNOHANG
])
with
Exit
->
None
...
...
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