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
c4773ded
Commit
c4773ded
authored
Jan 21, 2011
by
François Bobot
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
whybench : load the file concurrently with the external proof
parent
6169cae5
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
8 deletions
+13
-8
src/bench/bench.ml
src/bench/bench.ml
+3
-1
src/bench/whybench.ml
src/bench/whybench.ml
+10
-7
No files found.
src/bench/bench.ml
View file @
c4773ded
...
...
@@ -115,12 +115,13 @@ let call s callback tool prob =
(
Trans
.
singleton
tool
.
ttrans
)
in
apply_transformation_l
~
callback
:
(
trans_cb
pval
)
trans
task
in
(** Split *)
let
ths
=
prob
.
ptask
tool
.
tenv
tool
.
tuse
in
let
ths
=
do_why_sync
(
prob
.
ptask
tool
.
tenv
)
tool
.
tuse
in
MTask
.
start
s
;
List
.
iter
iter_task
ths
;
MTask
.
stop
s
let
general
?
(
callback
=
fun
_
_
_
_
_
->
()
)
iter
add
=
Debug
.
dprintf
debug
"Start one general@."
;
let
s
=
MTask
.
create
()
in
iter
(
fun
v
tool
prob
->
let
cb
pval
i
task
res
=
...
...
@@ -407,6 +408,7 @@ struct
let
v
=
Queue
.
pop
t
.
queue
in
Mutex
.
unlock
t
.
mutex
;
f
v
;
Thread
.
yield
()
;
main
()
in
let
_
=
Thread
.
create
main
()
in
t
...
...
src/bench/whybench.ml
View file @
c4773ded
...
...
@@ -28,6 +28,8 @@ open Trans
module
B
=
Bench
module
C
=
Call_provers
let
debug
=
Debug
.
register_flag
"main"
let
usage_msg
=
sprintf
"Usage: %s [options] [[file|-] [-T <theory> [-G <goal>]...]...]...
[-P <prover> ]..."
...
...
@@ -317,8 +319,10 @@ let () =
ttime
=
of_option
!
opt_timelimit
;
tmem
=
of_option
!
opt_memlimit
;
}
in
Debug
.
dprintf
debug
"Load provers@."
;
tools
:=
List
.
map
map_prover
!
opt_prover
;
Debug
.
dprintf
debug
"Load transformations@."
;
let
transl
=
let
lookup
acc
t
=
Trans
.
compose_l
(
try
Trans
.
singleton
(
Trans
.
lookup_transform
t
env
)
with
...
...
@@ -329,9 +333,7 @@ let () =
let
fold_prob
acc
=
function
|
None
,
_
->
acc
|
Some
f
,
_
->
let
env
=
env
in
let
task
=
!
opt_task
in
let
tlist
=
let
gen
env
task
=
let
fname
,
cin
=
match
f
with
|
"-"
->
"stdin"
,
stdin
|
f
->
f
,
open_in
f
...
...
@@ -343,15 +345,16 @@ let () =
let
fold
acc
(
n
,
l
)
=
List
.
rev_append
(
List
.
map
(
fun
v
->
((
"cmdline"
,
""
,
n
)
,
v
))
l
)
acc
in
th
|>
List
.
map
map
|>
List
.
fold_left
fold
[]
in
(* let gen = Env.Wenv.memoize 3 (fun env -> *)
(* let memo = Trans.store (fun task -> gen env task) in *)
(* Trans.apply memo) in *)
let
gen
_
_
=
tlist
in
let
gen
=
Env
.
Wenv
.
memoize
3
(
fun
env
->
let
memo
=
Trans
.
store
(
fun
task
->
gen
env
task
)
in
Trans
.
apply
memo
)
in
{
B
.
ptask
=
gen
;
ptrans
=
fun
_
->
transl
;
}
::
acc
in
Debug
.
dprintf
debug
"Load problems@."
;
probs
:=
Queue
.
fold
fold_prob
[]
opt_queue
;
Debug
.
dprintf
debug
"Load bench@."
;
let
cmdl
=
"commandline"
in
let
bench
=
List
.
map
(
Benchrc
.
read_file
config
)
!
opt_benchrc
in
let
bench
=
if
!
tools
<>
[]
&&
!
probs
<>
[]
then
...
...
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