From: "sejourne kevin" <sejourne_kevin@yahoo.fr>
> I'not sure of what you want, but does this do the job?
> let système command f_line = 
>   let cin = Unix.open_process_in command
>   in 
>     (try while true do
>       f_line (input_line cin);
>     done with | End_of_file -> ());
>   Unix.close_process_in cin
> ;;
> It is just a function that give to 'f_line' evry 
> lines produced by a pipe by the 'command'.

No, unfortunately, since it cannot time out when no input is
available.  Also, I have to write the network communication as a
separate process, which is more complex than using select.  My
previous messages give more details on what I'd like to do.

	Eijiro