Mentions légales du service
Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
why3
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Deploy
Releases
Container registry
Monitor
Service Desk
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Why3
why3
Commits
eb78f282
Commit
eb78f282
authored
15 years ago
by
Jean-Christophe Filliâtre
Browse files
Options
Downloads
Patches
Plain Diff
programs: command line option -L instead of -I to be consistent with why
parent
44e05191
No related branches found
No related tags found
No related merge requests found
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
Makefile.in
+3
-3
3 additions, 3 deletions
Makefile.in
src/programs/pgm_main.ml
+4
-1
4 additions, 1 deletion
src/programs/pgm_main.ml
src/programs/pgm_wp.ml
+26
-1
26 additions, 1 deletion
src/programs/pgm_wp.ml
src/programs/pgm_wp.mli
+3
-0
3 additions, 0 deletions
src/programs/pgm_wp.mli
with
36 additions
and
5 deletions
Makefile.in
+
3
−
3
View file @
eb78f282
...
...
@@ -241,7 +241,7 @@ clean::
# test target
%
:
%.mlw bin/whyml.byte
bin/whyml.byte
-
I
theories
$*
.mlw
bin/whyml.byte
-
L
theories
$*
.mlw
###############
# proof manager
...
...
@@ -474,7 +474,7 @@ clean::
bench
::
bin/why.@OCAMLBEST@ bin/whyml.@OCAMLBEST@
sh bench/bench
\
"bin/why.@OCAMLBEST@"
\
"bin/whyml.@OCAMLBEST@ -
I
theories"
"bin/whyml.@OCAMLBEST@ -
L
theories"
BENCH_PLUGINS_CMO
:=
helloworld.cmo simplify_array.cmo
BENCH_PLUGINS_CMO
:=
$(
addprefix bench/plugins/,
$(
BENCH_PLUGINS_CMO
))
...
...
@@ -515,7 +515,7 @@ test: bin/why.byte $(TOOLS)
@
for
i
in
output_coq/
*
.v
;
do
printf
"coq
$$
i
\\
n"
&&
coqc
$$
i
;
done
testl
:
bin/whyml.byte
ocamlrun
-bt
bin/whyml.byte
-
I
theories/ tests/test-pgm-jcf.mlw
ocamlrun
-bt
bin/whyml.byte
-
L
theories/ tests/test-pgm-jcf.mlw
###############
# installation
...
...
This diff is collapsed.
Click to expand it.
src/programs/pgm_main.ml
+
4
−
1
View file @
eb78f282
...
...
@@ -27,14 +27,17 @@ let parse_only = ref false
let
type_only
=
ref
false
let
debug
=
ref
false
let
loadpath
=
ref
[]
let
prover
=
ref
None
let
()
=
Arg
.
parse
[
"--parse-only"
,
Arg
.
Set
parse_only
,
"stops after parsing"
;
"--type-only"
,
Arg
.
Set
type_only
,
"stops after type-checking"
;
"--debug"
,
Arg
.
Set
debug
,
"sets the debug flag"
;
"-
I
"
,
Arg
.
String
(
fun
s
->
loadpath
:=
s
::
!
loadpath
)
,
"-
L
"
,
Arg
.
String
(
fun
s
->
loadpath
:=
s
::
!
loadpath
)
,
"<dir> adds dir to the loadpath"
;
"-P"
,
Arg
.
String
(
fun
s
->
prover
:=
Some
s
)
,
"<prover> proves the verification conditions"
;
]
(
fun
f
->
files
:=
f
::
!
files
)
"usage: whyl [options] files..."
...
...
This diff is collapsed.
Click to expand it.
src/programs/pgm_wp.ml
+
26
−
1
View file @
eb78f282
open
Why
open
Ident
open
Term
open
Decl
open
Theory
open
Pgm_ttree
let
file
uc
_dl
=
let
wp
_l
_e
=
f_true
(* TODO *)
let
wp_recfun
_l
_def
=
f_true
(* TODO *)
let
add_wp_decl
uc
l
f
=
let
pr
=
create_prsymbol
(
id_fresh
(
"WP_"
^
l
.
ls_name
.
id_string
))
in
let
d
=
create_prop_decl
Pgoal
pr
f
in
add_decl
uc
d
let
decl
uc
=
function
|
Dlet
(
l
,
e
)
->
let
f
=
wp
l
e
in
add_wp_decl
uc
l
f
|
Dletrec
dl
->
let
add_one
uc
(
l
,
def
)
=
let
f
=
wp_recfun
l
def
in
add_wp_decl
uc
l
f
in
List
.
fold_left
add_one
uc
dl
|
Dparam
_
->
uc
let
file
uc
dl
=
let
uc
=
List
.
fold_left
decl
uc
dl
in
Theory
.
close_theory
uc
This diff is collapsed.
Click to expand it.
src/programs/pgm_wp.mli
+
3
−
0
View file @
eb78f282
...
...
@@ -3,3 +3,6 @@ open Why
open
Theory
val
file
:
theory_uc
->
Pgm_ttree
.
file
->
theory
(** takes as input the result of [Pgm_typing.file] and produces
a theory containing the verification conditions as goals,
one for each function *)
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
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!
Save comment
Cancel
Please
register
or
sign in
to comment