Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
why3
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
121
Issues
121
List
Boards
Labels
Service Desk
Milestones
Merge Requests
17
Merge Requests
17
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Why3
why3
Commits
f173d328
Commit
f173d328
authored
Dec 18, 2010
by
Andrei Paskevich
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add version-printing option + set VERSION to 0.63
parent
212c6d7e
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
57 additions
and
9 deletions
+57
-9
Version
Version
+1
-1
src/bench/whybench.ml
src/bench/whybench.ml
+13
-2
src/config/whyconfig.ml
src/config/whyconfig.ml
+13
-2
src/ide/gconfig.ml
src/ide/gconfig.ml
+1
-1
src/ide/gmain.ml
src/ide/gmain.ml
+17
-1
src/main.ml
src/main.ml
+12
-2
No files found.
Version
View file @
f173d328
# Why version
# Why version
VERSION=0.
10
VERSION=0.
63
src/bench/whybench.ml
View file @
f173d328
...
@@ -33,6 +33,9 @@ let usage_msg = sprintf
...
@@ -33,6 +33,9 @@ let usage_msg = sprintf
[-P <prover> ]..."
[-P <prover> ]..."
(
Filename
.
basename
Sys
.
argv
.
(
0
))
(
Filename
.
basename
Sys
.
argv
.
(
0
))
let
version_msg
=
sprintf
"Why3 bench tool, version %s (build date: %s)"
Config
.
version
Config
.
builddate
let
opt_queue
=
Queue
.
create
()
let
opt_queue
=
Queue
.
create
()
let
opt_input
=
ref
None
let
opt_input
=
ref
None
...
@@ -109,6 +112,7 @@ let opt_list_metas = ref false
...
@@ -109,6 +112,7 @@ let opt_list_metas = ref false
let
opt_list_flags
=
ref
false
let
opt_list_flags
=
ref
false
let
opt_debug_all
=
ref
false
let
opt_debug_all
=
ref
false
let
opt_version
=
ref
false
let
opt_quiet
=
ref
false
let
opt_quiet
=
ref
false
...
@@ -183,7 +187,10 @@ let option_list = Arg.align [
...
@@ -183,7 +187,10 @@ let option_list = Arg.align [
" Set all debug flags (except parse_only and type_only)"
;
" Set all debug flags (except parse_only and type_only)"
;
"--debug"
,
Arg
.
String
add_opt_debug
,
"--debug"
,
Arg
.
String
add_opt_debug
,
"<flag> Set a debug flag"
;
"<flag> Set a debug flag"
;
"--quiet"
,
Arg
.
Set
opt_quiet
,
" Print only what asked"
"--quiet"
,
Arg
.
Set
opt_quiet
,
" Print only what asked"
;
"--version"
,
Arg
.
Set
opt_version
,
" Print version information"
]
]
let
tools
=
ref
[]
let
tools
=
ref
[]
...
@@ -215,6 +222,10 @@ let () =
...
@@ -215,6 +222,10 @@ let () =
(** listings*)
(** listings*)
let
opt_list
=
ref
false
in
let
opt_list
=
ref
false
in
if
!
opt_version
then
begin
opt_list
:=
true
;
printf
"%s@."
version_msg
end
;
if
!
opt_list_transforms
then
begin
if
!
opt_list_transforms
then
begin
opt_list
:=
true
;
opt_list
:=
true
;
printf
"@[<hov 2>Known non-splitting transformations:@
\n
%a@]@
\n
@."
printf
"@[<hov 2>Known non-splitting transformations:@
\n
%a@]@
\n
@."
...
@@ -222,7 +233,7 @@ let () =
...
@@ -222,7 +233,7 @@ let () =
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms
()
));
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms
()
));
printf
"@[<hov 2>Known splitting transformations:@
\n
%a@]@
\n
@."
printf
"@[<hov 2>Known splitting transformations:@
\n
%a@]@
\n
@."
(
Pp
.
print_list
Pp
.
newline
Pp
.
string
)
(
Pp
.
print_list
Pp
.
newline
Pp
.
string
)
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms_l
()
))
;
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms_l
()
))
end
;
end
;
if
!
opt_list_printers
then
begin
if
!
opt_list_printers
then
begin
opt_list
:=
true
;
opt_list
:=
true
;
...
...
src/config/whyconfig.ml
View file @
f173d328
...
@@ -27,11 +27,16 @@ let usage_msg =
...
@@ -27,11 +27,16 @@ let usage_msg =
$WHY3LIB and $WHYDATA are used only when a configuration file is created"
$WHY3LIB and $WHYDATA are used only when a configuration file is created"
(
Filename
.
basename
Sys
.
argv
.
(
0
))
(
Filename
.
basename
Sys
.
argv
.
(
0
))
let
version_msg
=
sprintf
"Why3 configuration utility, version %s (build date: %s)"
Config
.
version
Config
.
builddate
(* let libdir = ref None *)
(* let libdir = ref None *)
(* let datadir = ref None *)
(* let datadir = ref None *)
let
conf_file
=
ref
None
let
conf_file
=
ref
None
let
autoprovers
=
ref
false
let
autoprovers
=
ref
false
let
autoplugins
=
ref
false
let
autoplugins
=
ref
false
let
opt_version
=
ref
false
let
save
=
ref
true
let
save
=
ref
true
...
@@ -54,9 +59,11 @@ let option_list = Arg.align [
...
@@ -54,9 +59,11 @@ let option_list = Arg.align [
"--autodetect-plugins"
,
Arg
.
Set
autoplugins
,
"--autodetect-plugins"
,
Arg
.
Set
autoplugins
,
" autodetect the plugins in the default library directories"
;
" autodetect the plugins in the default library directories"
;
"--install-plugin"
,
Arg
.
String
add_plugin
,
"--install-plugin"
,
Arg
.
String
add_plugin
,
"install a plugin to the actual libdir"
;
"
install a plugin to the actual libdir"
;
"--dont-save"
,
Arg
.
Clear
save
,
"--dont-save"
,
Arg
.
Clear
save
,
"dont modify the config file"
" dont modify the config file"
;
"--version"
,
Arg
.
Set
opt_version
,
" print version information"
]
]
let
anon_file
_
=
Arg
.
usage
option_list
usage_msg
;
exit
1
let
anon_file
_
=
Arg
.
usage
option_list
usage_msg
;
exit
1
...
@@ -94,6 +101,10 @@ let plugins_auto_detection config =
...
@@ -94,6 +101,10 @@ let plugins_auto_detection config =
let
()
=
let
()
=
Arg
.
parse
option_list
anon_file
usage_msg
;
Arg
.
parse
option_list
anon_file
usage_msg
;
if
!
opt_version
then
begin
printf
"%s@."
version_msg
;
exit
0
end
;
let
config
=
let
config
=
try
read_config
!
conf_file
try
read_config
!
conf_file
with
Not_found
->
with
Not_found
->
...
...
src/ide/gconfig.ml
View file @
f173d328
...
@@ -299,7 +299,7 @@ let show_about_window () =
...
@@ -299,7 +299,7 @@ let show_about_window () =
"Andrei Paskevich"
"Andrei Paskevich"
]
]
~
copyright
:
"Copyright 2010 Univ Paris-Sud, CNRS, INRIA"
~
copyright
:
"Copyright 2010 Univ Paris-Sud, CNRS, INRIA"
~
license
:
"G
nu
Lesser General Public License"
~
license
:
"G
NU
Lesser General Public License"
~
website
:
"https://gforge.inria.fr/projects/why3"
~
website
:
"https://gforge.inria.fr/projects/why3"
~
website_label
:
"Project web site"
~
website_label
:
"Project web site"
~
version
:
Config
.
version
~
version
:
Config
.
version
...
...
src/ide/gmain.ml
View file @
f173d328
...
@@ -92,6 +92,7 @@ open Gconfig
...
@@ -92,6 +92,7 @@ open Gconfig
let
includes
=
ref
[]
let
includes
=
ref
[]
let
file
=
ref
None
let
file
=
ref
None
let
opt_version
=
ref
false
let
spec
=
Arg
.
align
[
let
spec
=
Arg
.
align
[
(
"-I"
,
(
"-I"
,
...
@@ -102,9 +103,18 @@ let spec = Arg.align [
...
@@ -102,9 +103,18 @@ let spec = Arg.align [
Arg.String (fun s -> input_files := s :: !input_files),
Arg.String (fun s -> input_files := s :: !input_files),
"<f> add file f to the project (ignored if it is already there)") ;
"<f> add file f to the project (ignored if it is already there)") ;
*)
*)
(
"-v"
,
Arg
.
Set
opt_version
,
" print version information"
)
;
]
]
let
usage_str
=
"whydb [options] [<file.why>|<project directory>]"
let
version_msg
=
sprintf
"Why3 IDE, version %s (build date: %s)"
Config
.
version
Config
.
builddate
let
usage_str
=
sprintf
"Usage: %s [options] [<file.why>|<project directory>]"
(
Filename
.
basename
Sys
.
argv
.
(
0
))
let
set_file
f
=
match
!
file
with
let
set_file
f
=
match
!
file
with
|
Some
_
->
|
Some
_
->
raise
(
Arg
.
Bad
"only one parameter"
)
raise
(
Arg
.
Bad
"only one parameter"
)
...
@@ -113,6 +123,12 @@ let set_file f = match !file with
...
@@ -113,6 +123,12 @@ let set_file f = match !file with
let
()
=
Arg
.
parse
spec
set_file
usage_str
let
()
=
Arg
.
parse
spec
set_file
usage_str
let
()
=
if
!
opt_version
then
begin
printf
"%s@."
version_msg
;
exit
0
end
let
fname
=
match
!
file
with
let
fname
=
match
!
file
with
|
None
->
|
None
->
Arg
.
usage
spec
usage_str
;
Arg
.
usage
spec
usage_str
;
...
...
src/main.ml
View file @
f173d328
...
@@ -30,6 +30,9 @@ let usage_msg = sprintf
...
@@ -30,6 +30,9 @@ let usage_msg = sprintf
"Usage: %s [options] [[file|-] [-T <theory> [-G <goal>]...]...]..."
"Usage: %s [options] [[file|-] [-T <theory> [-G <goal>]...]...]..."
(
Filename
.
basename
Sys
.
argv
.
(
0
))
(
Filename
.
basename
Sys
.
argv
.
(
0
))
let
version_msg
=
sprintf
"Why3 platform, version %s (build date: %s)"
Config
.
version
Config
.
builddate
let
opt_queue
=
Queue
.
create
()
let
opt_queue
=
Queue
.
create
()
let
opt_input
=
ref
None
let
opt_input
=
ref
None
...
@@ -109,6 +112,7 @@ let opt_list_flags = ref false
...
@@ -109,6 +112,7 @@ let opt_list_flags = ref false
let
opt_parse_only
=
ref
false
let
opt_parse_only
=
ref
false
let
opt_type_only
=
ref
false
let
opt_type_only
=
ref
false
let
opt_debug_all
=
ref
false
let
opt_debug_all
=
ref
false
let
opt_version
=
ref
false
let
option_list
=
Arg
.
align
[
let
option_list
=
Arg
.
align
[
"-"
,
Arg
.
Unit
(
fun
()
->
add_opt_file
"-"
)
,
"-"
,
Arg
.
Unit
(
fun
()
->
add_opt_file
"-"
)
,
...
@@ -186,7 +190,9 @@ let option_list = Arg.align [
...
@@ -186,7 +190,9 @@ let option_list = Arg.align [
"--debug-all"
,
Arg
.
Set
opt_debug_all
,
"--debug-all"
,
Arg
.
Set
opt_debug_all
,
" Set all debug flags (except parse_only and type_only)"
;
" Set all debug flags (except parse_only and type_only)"
;
"--debug"
,
Arg
.
String
add_opt_debug
,
"--debug"
,
Arg
.
String
add_opt_debug
,
"<flag> Set a debug flag"
]
"<flag> Set a debug flag"
;
"--version"
,
Arg
.
Set
opt_version
,
" Print version information"
]
let
()
=
let
()
=
try
try
...
@@ -218,6 +224,10 @@ let () =
...
@@ -218,6 +224,10 @@ let () =
(** listings*)
(** listings*)
let
opt_list
=
ref
false
in
let
opt_list
=
ref
false
in
if
!
opt_version
then
begin
opt_list
:=
true
;
printf
"%s@."
version_msg
end
;
if
!
opt_list_transforms
then
begin
if
!
opt_list_transforms
then
begin
opt_list
:=
true
;
opt_list
:=
true
;
printf
"@[<hov 2>Known non-splitting transformations:@
\n
%a@]@
\n
@."
printf
"@[<hov 2>Known non-splitting transformations:@
\n
%a@]@
\n
@."
...
@@ -225,7 +235,7 @@ let () =
...
@@ -225,7 +235,7 @@ let () =
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms
()
));
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms
()
));
printf
"@[<hov 2>Known splitting transformations:@
\n
%a@]@
\n
@."
printf
"@[<hov 2>Known splitting transformations:@
\n
%a@]@
\n
@."
(
Pp
.
print_list
Pp
.
newline
Pp
.
string
)
(
Pp
.
print_list
Pp
.
newline
Pp
.
string
)
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms_l
()
))
;
(
List
.
sort
String
.
compare
(
Trans
.
list_transforms_l
()
))
end
;
end
;
if
!
opt_list_printers
then
begin
if
!
opt_list_printers
then
begin
opt_list
:=
true
;
opt_list
:=
true
;
...
...
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