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
1fa19380
Commit
1fa19380
authored
Mar 21, 2017
by
MARCHE Claude
Browse files
explanation text for nodes other than goals
parent
7bff80d8
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/session/itp_server.ml
View file @
1fa19380
...
...
@@ -634,18 +634,31 @@ module Make (S:Controller_itp.Scheduler) (P:Protocol) = struct
iter_the_files
send_node
root
(* -- send the task -- *)
let
task_of_id
d
id
=
let
task
=
get_task
d
.
cont
.
controller_session
id
in
let
tables
=
get_tables
d
.
cont
.
controller_session
id
in
Pp
.
string_of
(
Driver
.
print_task
~
cntexample
:
false
?
name_table
:
tables
d
.
task_driver
)
task
let
send_task
nid
=
let
d
=
get_server_data
()
in
match
any_from_node_ID
nid
with
|
APn
id
->
let
task
=
get_task
d
.
cont
.
controller_session
id
in
let
tables
=
get_tables
d
.
cont
.
controller_session
id
in
let
s
=
Pp
.
string_of
(
fun
fmt
->
Driver
.
print_task
~
cntexample
:
false
?
name_table
:
tables
d
.
task_driver
fmt
)
task
in
P
.
notify
(
Task
(
nid
,
s
))
|
_
->
P
.
notify
(
Task
(
nid
,
"can not associate a task to a node that is not a goal."
))
let
s
=
task_of_id
d
id
in
P
.
notify
(
Task
(
nid
,
s
))
|
ATh
t
->
P
.
notify
(
Task
(
nid
,
"Theory "
^
(
theory_name
t
)
.
Ident
.
id_string
))
|
APa
pid
->
let
parid
=
get_proof_attempt_parent
d
.
cont
.
controller_session
pid
in
let
s
=
task_of_id
d
parid
in
P
.
notify
(
Task
(
nid
,
s
))
|
AFile
f
->
P
.
notify
(
Task
(
nid
,
"File "
^
f
.
file_name
))
|
ATn
tid
->
let
name
=
get_transf_name
d
.
cont
.
controller_session
tid
in
let
args
=
get_transf_args
d
.
cont
.
controller_session
tid
in
P
.
notify
(
Task
(
nid
,
"Transformation "
^
String
.
concat
" "
(
name
::
args
)))
(* -------------------- *)
...
...
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