Skip to content
GitLab
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
5a5b51fd
Commit
5a5b51fd
authored
Sep 18, 2018
by
Pierre-Yves Strub
Committed by
MARCHE Claude
Oct 08, 2018
Browse files
OCaml API for provers interruption.
parent
4c518b2d
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/driver/call_provers.ml
View file @
5a5b51fd
...
...
@@ -513,6 +513,13 @@ let query_call = function
if
pid
=
0
then
NoUpdates
else
ProverFinished
(
editor_result
ret
)
let
interrupt_call
=
function
|
ServerCall
id
->
Prove_client
.
send_interrupt
~
id
|
EditorCall
pid
->
(
try
Unix
.
kill
pid
Sys
.
sigkill
with
Unix
.
Unix_error
_
->
()
)
let
rec
wait_on_call
=
function
|
ServerCall
id
as
pc
->
begin
match
query_result_buffer
id
with
...
...
@@ -551,5 +558,3 @@ let call_editor ~command fin =
let
pid
=
Unix
.
create_process
exec
argarray
fd_in
Unix
.
stdout
Unix
.
stderr
in
if
use_stdin
then
Unix
.
close
fd_in
;
EditorCall
pid
let
interrupt_call
id
=
Prove_client
.
send_interrupt
~
id
src/driver/call_provers.mli
View file @
5a5b51fd
...
...
@@ -177,7 +177,8 @@ val query_call : prover_call -> prover_update
(** non-blocking function that reports any new updates
from the server related to a given prover call. *)
val
interrupt_call
:
prover_call
->
unit
(** non-blocking function that asks for prover interruption *)
val
wait_on_call
:
prover_call
->
prover_result
(** blocking function that waits until the prover finishes. *)
val
interrupt_call
:
int
->
unit
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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