diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-24 23:25:07 +0200 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-24 23:25:07 +0200 |
commit | 6e750a757ef6fb1f41cf4c2fe39edba834b76858 (patch) | |
tree | f339630beb8a9a1a6f3544b40547ce9c83f23a91 /src/proto.ml | |
parent | c5e69a904e79e807c5b075c08ce82183133e7b4c (diff) | |
download | SystemeReseaux-Projet-6e750a757ef6fb1f41cf4c2fe39edba834b76858.tar.gz SystemeReseaux-Projet-6e750a757ef6fb1f41cf4c2fe39edba834b76858.zip |
./manager -local-proc 4 ./example.native does what expected.
Diffstat (limited to 'src/proto.ml')
-rw-r--r-- | src/proto.ml | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/proto.ml b/src/proto.ml new file mode 100644 index 0000000..f0517d4 --- /dev/null +++ b/src/proto.ml @@ -0,0 +1,21 @@ +open Util + +(* Protocol definitions *) + +type task = unit -> unit +type msg_task = string -> unit +type task_descr = string +type msg_task_descr = string + +exception ProtocolError of string + +type message = + | Hello + | Get of id * msg_task_descr + | Put of id * string + | RequestTask + | GiveTask of task_descr * bool + | GiveMsgTask of string * msg_task_descr + | FinalResult of string + + |