Strict_pipe.Writerval pipe_name : ( _, _, _ ) t -> string optionval to_linear_pipe : ( 't, 'behavior, 'return ) t -> 't Linear_pipe.Writer.tval write : ( 't, _, 'return ) t -> 't -> 'returnval close : ( _, _, _ ) t -> unitval kill : ( _, _, _ ) t -> unitThis function would first clear the pipe and then close it.
val is_closed : ( _, _, _ ) t -> bool