diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 01:00:44 +0200 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 01:00:44 +0200 |
commit | 4a5ca97b0970e191332fb6fb4684a397b93390f5 (patch) | |
tree | b833cd9bf8f21514f5c0ae2ece473ac398aff251 /src/kahn_stdio.ml | |
parent | 6e750a757ef6fb1f41cf4c2fe39edba834b76858 (diff) | |
download | SystemeReseaux-Projet-4a5ca97b0970e191332fb6fb4684a397b93390f5.tar.gz SystemeReseaux-Projet-4a5ca97b0970e191332fb6fb4684a397b93390f5.zip |
./manager -pool-addr mypool -pool-count 16 -my-addr my_addr ./example.native
Diffstat (limited to 'src/kahn_stdio.ml')
-rw-r--r-- | src/kahn_stdio.ml | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/kahn_stdio.ml b/src/kahn_stdio.ml index a149742..badf338 100644 --- a/src/kahn_stdio.ml +++ b/src/kahn_stdio.ml @@ -45,6 +45,8 @@ module ProtoKahn: S = struct ) ) + let output s = send (Output s) + let select pl = fun cont -> assert false let select_default = fun cont -> assert false @@ -74,14 +76,6 @@ module ProtoKahn: S = struct a (Some (fun va -> let b = (f va) in b cont)) - let bind_io a f = - fun cont -> - a (Some (fun va -> - send_task - (fun () -> - let b = f va in - send_task (fun () -> b cont) false) - true)) let origin = ref false let dbg_out = ref false |