From c83cc6c663566b82531b670f8b492c6ff1e1f18f Mon Sep 17 00:00:00 2001 From: Sapan Bhatia Date: Fri, 27 Mar 2009 21:02:47 +0000 Subject: [PATCH] Cleaned up a bit --- directfifowatcher.ml | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/directfifowatcher.ml b/directfifowatcher.ml index dc7a985..4ebbe93 100644 --- a/directfifowatcher.ml +++ b/directfifowatcher.ml @@ -53,7 +53,7 @@ let list_check lst elt _ = in list_check_rec lst -let openentry_int fifoin = +let fs_openentry fifoin = let fdin = try openfile fifoin [O_RDONLY;O_NONBLOCK] 0o777 with e->logprint "Error opening and connecting FIFO: %s,%o\n" fifoin 0o777;raise e @@ -63,7 +63,7 @@ let openentry_int fifoin = (** Open entry safely, by first masking out the file to be opened *) let openentry_safe root_dir fqp_in backend_spec = let restore = move_gate fqp_in in - let fd_in = openentry_int restore in + let fd_in = fs_openentry restore in move_ungate fqp_in restore; let (fqp,slice_name) = backend_spec in Hashtbl.replace direct_fifo_table fqp_in (Some(root_dir,fqp,slice_name,fd_in)) @@ -164,7 +164,11 @@ let sigchld_handle s = in reap_all_processes() - +(** The backendhandler class: defines event handlers for events in +the backend backend directory. + @param dir_root The location of the backend in the server context (eg. root context for vservers) + @param frontend_list List of frontends to serve with this backend + *) let rec add_dir_watch fqp = Dirwatcher.add_watch fqp [S_Open] direct_fifo_handler and -- 2.43.0