`sig
class type in_obj_stream =
object
method block_size : int
method close_in : unit -> unit
method input : string -> int -> int -> int
method input_byte : unit -> int
method input_char : unit -> char
method input_line : unit -> string
method pos_in : int
method really_input : string -> int -> int -> unit
method skip : int -> unit
method want : int -> unit
method want_another_block : unit -> unit
method window : Netbuffer.t
method window_at_eof : bool
method window_length : int
end
class input_stream :
?len:int ->
?block_size:int -> Netchannels.in_obj_channel -> in_obj_stream
class sub_stream :
?len:int -> ?delimiter:string -> Netstream.in_obj_stream -> in_obj_stream
val print_in_obj_stream :
Format.formatter -> Netstream.in_obj_stream -> unit
end`