git://git.onelab.eu
/
vsys.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
60f2512
)
(no commit message)
author
Sapan Bhatia
<sapanb@cs.princeton.edu>
Fri, 29 Feb 2008 19:41:02 +0000
(19:41 +0000)
committer
Sapan Bhatia
<sapanb@cs.princeton.edu>
Fri, 29 Feb 2008 19:41:02 +0000
(19:41 +0000)
fifowatcher.ml
patch
|
blob
|
history
diff --git
a/fifowatcher.ml
b/fifowatcher.ml
index
6e2a12a
..
c26295f
100644
(file)
--- a/
fifowatcher.ml
+++ b/
fifowatcher.ml
@@
-70,7
+70,6
@@
and reopenentry_int fdin fifoin fifoout =
@param outdescriptor Name of output pipe, out descriptor
*)
and receive_fifo_event eventdescriptor outdescriptor =
@param outdescriptor Name of output pipe, out descriptor
*)
and receive_fifo_event eventdescriptor outdescriptor =
- printf "received fifo event\n";flush Pervasives.stdout;
let (evfname,evfd) = eventdescriptor in
let (fname_other,fd_other) = outdescriptor in
(* Open the output pipe, or use stdout instead *)
let (evfname,evfd) = eventdescriptor in
let (fname_other,fd_other) = outdescriptor in
(* Open the output pipe, or use stdout instead *)
@@
-87,7
+86,6
@@
and receive_fifo_event eventdescriptor outdescriptor =
If not, register it and start a new session.*)
let pipe = try Hashtbl.find open_fds evfd with
| Not_found ->
If not, register it and start a new session.*)
let pipe = try Hashtbl.find open_fds evfd with
| Not_found ->
- printf "fd not found!\n";flush Pervasives.stdout;
(* Ok, need to launch script *)
let execpath,slice_name = Hashtbl.find fdmap evfd in
let (script_infd,pout) = Unix.pipe () in
(* Ok, need to launch script *)
let execpath,slice_name = Hashtbl.find fdmap evfd in
let (script_infd,pout) = Unix.pipe () in