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
8a4e6770
Commit
8a4e6770
authored
Sep 14, 2016
by
Clément Fumex
Browse files
add a save session command in why3shell
parent
0276bace
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/why3shell/why3shell.ml
View file @
8a4e6770
...
...
@@ -263,7 +263,15 @@ let test_print_goal fmt _args =
let
id
=
first_goal
()
in
let
task
=
Session_itp
.
get_task
cont
.
Controller_itp
.
controller_session
id
in
fprintf
fmt
"@[====================== Task =====================@
\n
%a@]@."
(
Driver
.
print_task
~
cntexample
:
false
task_driver
)
task
(
Driver
.
print_task
~
cntexample
:
false
task_driver
)
task
let
test_save_session
_fmt
args
=
match
args
with
|
file
::
_
->
Session_itp
.
save_session
(
file
^
".xml"
)
cont
.
Controller_itp
.
controller_session
;
printf
"session saved@."
|
[]
->
printf
"missing session file name@."
let
test_reload
fmt
_args
=
fprintf
fmt
"Reloading... @?"
;
...
...
@@ -281,6 +289,7 @@ let commands =
"t"
,
"test schedule_proof_attempt with alt-ergo on the first goal"
,
test_schedule_proof_attempt
;
"g"
,
"prints the first goal"
,
test_print_goal
;
"r"
,
"reload the session (test only)"
,
test_reload
;
"s"
,
"[s my_session] save the current session in my_session.xml"
,
test_save_session
;
"tr"
,
"test schedule_transformation with split_goal on the first goal"
,
test_transformation
;
]
...
...
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