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
7ed51d4d
Commit
7ed51d4d
authored
Mar 28, 2018
by
Sylvain Dailler
Browse files
Revert "Fix calling Coq from the ide."
This reverts commit
3e91bbc5
.
parent
156439e9
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/driver/call_provers.ml
View file @
7ed51d4d
...
...
@@ -423,12 +423,8 @@ let query_result_buffer id =
Hashtbl
.
remove
result_buffer
id
;
r
with
Not_found
->
NoUpdates
(* The editor result is returned as Valid but the editor result is also always
made obsolete. We put Valid here so that it is possible to replay the proof
to get a non obsolete valid proof.
*)
let
editor_result
ret
=
{
pr_answer
=
Valid
;
pr_answer
=
Unknown
(
""
,
None
)
;
pr_status
=
ret
;
pr_output
=
""
;
pr_time
=
0
.
0
;
...
...
src/session/controller_itp.ml
View file @
7ed51d4d
...
...
@@ -433,18 +433,15 @@ let timeout_handler () =
let
q
=
Queue
.
create
()
in
while
not
(
Queue
.
is_empty
prover_tasks_edited
)
do
(* call is an EditorCall *)
let
(
callback
,
call
,
_
ores
)
as
c
=
let
(
callback
,
call
,
ores
)
as
c
=
Queue
.
pop
prover_tasks_edited
in
let
prover_update
=
Call_provers
.
query_call
call
in
match
prover_update
with
|
Call_provers
.
NoUpdates
->
Queue
.
add
c
q
|
Call_provers
.
ProverFinished
res
->
(* For editor event, the result is always obsolete and valid which
means that the proof need to be replayed to be completely checked.
Replay only replays valid goals so there would be no way to make an
interactive proof and then check it otherwise.
*)
callback
(
Done
res
)
|
Call_provers
.
ProverFinished
_res
->
(* res is meaningless for edition, we returned the old result *)
(* inform the callback *)
callback
(
match
ores
with
None
->
Undone
|
Some
r
->
Done
r
)
|
_
->
assert
(
false
)
(* An edition can only return Noupdates or finished *)
done
;
Queue
.
transfer
q
prover_tasks_edited
;
...
...
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