blob: 1fcd42e6fbdfb5ac36a13dd7b77ff69c516e8513 (
plain)
1
2
3
4
5
|
val parser_loop :
(unit -> unit) * (int -> string -> char Stream.t -> string list -> 'a) *
(char Stream.t -> 'b) * (int -> string -> unit) * (int -> string -> unit) *
(int -> string -> unit) -> in_channel -> 'c
val flush_until_end_of_stream : 'a Stream.t -> unit
|