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
7ea0162a
Commit
7ea0162a
authored
Nov 30, 2016
by
MARCHE Claude
Browse files
ITP server takes scheduler as argument
parent
ee0cf016
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/session/itp_server.ml
View file @
7ea0162a
...
...
@@ -69,20 +69,19 @@ type request_type =
type
ide_request
=
request_type
*
node_ID
open
Unix_scheduler
open
Session_itp
open
Controller_itp
open
Session_user_interface
open
Stdlib
module
C
=
Controller_itp
.
Make
(
Unix_Scheduler
)
module
type
Protocol
=
sig
val
get_requests
:
unit
->
ide_request
list
val
notify
:
notification
->
unit
end
module
Make
(
P
:
Protocol
)
=
struct
module
Make
(
S
:
Controller_itp
.
Scheduler
)
(
P
:
Protocol
)
=
struct
module
C
=
Controller_itp
.
Make
(
S
)
let
debug
=
Debug
.
lookup_flag
"ide_info"
(* TODO register itp_server *)
...
...
@@ -507,7 +506,7 @@ exception Bad_prover_name of prover
List
.
iter
treat_request
(
P
.
get_requests
()
);
true
let
_
=
Unix_Scheduler
.
idle
~
prio
:
1
treat_requests
let
_
=
S
.
idle
~
prio
:
1
treat_requests
end
src/session/itp_server.mli
View file @
7ea0162a
...
...
@@ -38,13 +38,21 @@ type error_notification =
type
notification
=
|
Node_change
of
node_ID
*
node_info
(* inform that the data of the given node changed *)
|
New_subtree
of
node_ID
*
session_tree
(* the given node has a new child whose contents is the given tree *)
|
Remove
of
node_ID
(* the given node was removed *)
|
Initialized
of
infos
*
prover
list
*
transformation
list
*
strategy
list
(* initial global data *)
|
Saved
(* the session was saved on disk *)
|
Session_Tree
of
session_tree
(* the full session tree is sent *)
|
Error
of
error_notification
(* an error occured *)
|
Message
of
string
(* an informative message *)
type
request_type
=
|
Command
of
string
...
...
@@ -68,8 +76,10 @@ module type Protocol = sig
end
module
Make
(
P
:
Protocol
)
:
sig
module
Make
(
S
:
Controller_itp
.
Scheduler
)
(
P
:
Protocol
)
:
sig
val
treat_requests
:
unit
->
bool
val
get_config
:
unit
->
Whyconf
.
config
(* Nothing ! *)
end
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