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
841b97b2
Commit
841b97b2
authored
Sep 24, 2011
by
MARCHE Claude
Browse files
Improved monitoring of running proofs
parent
39918c7e
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ide/gmain.ml
View file @
841b97b2
...
...
@@ -230,7 +230,7 @@ let cleaning_box =
~
packing
:
cleaning_frame
#
add
()
let
monitor_frame
=
GBin
.
frame
~
label
:
"
M
onitor"
GBin
.
frame
~
label
:
"
Proof m
onitor
ing
"
~
packing
:
(
tools_window_vbox
#
pack
~
expand
:
false
)
()
let
monitor_box
=
...
...
src/ide/replay.ml
View file @
841b97b2
...
...
@@ -119,7 +119,8 @@ module M = Session.Make
|
None
->
timeout_handler
:=
Some
(
float
ms
/.
1000
.
0
,
f
);
|
Some
_
->
failwith
"Replay.timeout: already one handler installed"
let
notify_timer_state
_
_
_
=
()
let
notify_timer_state
w
s
r
=
Printf
.
eprintf
"Progress: %d/%d/%d
\r
%!"
w
s
r
end
)
...
...
@@ -484,6 +485,7 @@ let () =
if
!
opt_latex2
<>
""
then
print_latex_statistics
2
!
opt_latex2
else
let
callback
report
=
eprintf
"@."
;
let
files
,
n
,
m
=
List
.
fold_left
file_statistics
([]
,
0
,
0
)
(
M
.
get_all_files
()
)
in
...
...
src/ide/session.ml
View file @
841b97b2
...
...
@@ -447,9 +447,9 @@ let timeout_handler () =
let
continue
=
match
l
with
|
[]
->
(*
*)
(*
eprintf "Info: timeout_handler stopped@.";
(*
*)
*)
false
|
_
->
true
in
...
...
@@ -464,9 +464,9 @@ let run_timeout_handler () =
if
!
timeout_handler_activated
then
()
else
begin
timeout_handler_activated
:=
true
;
(*
*)
(*
eprintf "Info: timeout_handler started@.";
(*
*)
*)
O
.
timeout
~
ms
:
100
timeout_handler
end
...
...
@@ -506,9 +506,9 @@ let idle_handler () =
true
with
Queue
.
Empty
->
idle_handler_activated
:=
false
;
(*
*)
(*
eprintf "Info: idle_handler stopped@.";
(*
*)
*)
false
|
e
->
Format
.
eprintf
"@[Exception raise in Session.idle_handler:@ %a@.@]"
...
...
@@ -521,9 +521,9 @@ let run_idle_handler () =
if
!
idle_handler_activated
then
()
else
begin
idle_handler_activated
:=
true
;
(*
*)
(*
eprintf "Info: idle_handler started@.";
(*
*)
*)
O
.
idle
idle_handler
end
...
...
@@ -548,14 +548,15 @@ let cancel_scheduled_proofs () =
callback
Interrupted
done
with
|
Queue
.
Empty
->
()
|
Queue
.
Empty
->
O
.
notify_timer_state
0
0
(
List
.
length
!
running_proofs
)
let
schedule_proof_attempt
~
debug
~
timelimit
~
memlimit
?
old
~
command
~
driver
~
callback
goal
=
(*
*)
eprintf
"Scheduling a new proof attempt@."
;
(*
*)
(*
eprintf "Scheduling a new proof attempt@.";
*)
Queue
.
push
(
Action_proof_attempt
(
debug
,
timelimit
,
memlimit
,
old
,
command
,
driver
,
callback
,
goal
))
...
...
@@ -1762,10 +1763,14 @@ let check_all ~callback =
file
.
theories
)
!
all_files
;
let
timeout
()
=
(*
Printf.eprintf "Progress: %d/%d\r%!" !proofs_done !proofs_to_do;
*)
if
!
proofs_done
=
!
proofs_to_do
then
begin
(*
Printf.eprintf "\n%!";
*)
decr
maximum_running_proofs
;
callback
!
reports
;
false
...
...
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