sig
  type item = Biocaml_line.t
  module Error : sig type t = [ `premature_end_of_input ] end
  val of_char_stream : char Stream.t -> Biocaml_lines.item Stream.t
  val of_channel : Pervasives.in_channel -> Biocaml_lines.item Stream.t
  val to_channel :
    Biocaml_lines.item Stream.t -> Pervasives.out_channel -> unit
  module Buffer :
    sig
      type t
      exception No_next_line
      val make : ?filename:string -> unit -> Biocaml_lines.Buffer.t
      val feed_line : Biocaml_lines.Buffer.t -> Biocaml_lines.item -> unit
      val feed_string : Biocaml_lines.Buffer.t -> string -> unit
      val queued_lines : Biocaml_lines.Buffer.t -> int
      val is_empty : Biocaml_lines.Buffer.t -> bool
      val next_line : Biocaml_lines.Buffer.t -> Biocaml_lines.item option
      val next_line_exn : Biocaml_lines.Buffer.t -> Biocaml_lines.item
      val current_position : Biocaml_lines.Buffer.t -> Biocaml_pos.t
      val contents :
        Biocaml_lines.Buffer.t -> Biocaml_lines.item list * string option
      val empty : Biocaml_lines.Buffer.t -> unit
    end
  module Transform :
    sig
      val string_to_item :
        unit -> (string, Biocaml_lines.item) Biocaml_transform.t
      val group2 :
        unit ->
        (Biocaml_lines.item,
         (Biocaml_lines.item * Biocaml_lines.item,
          [> `premature_end_of_input ])
         Core.Std.Result.t)
        Biocaml_transform.t
      val item_to_string :
        ?buffer:[ `clear of int | `reset of int ] ->
        unit -> (Biocaml_lines.item, string) Biocaml_transform.t
      val make :
        ?name:string ->
        ?filename:string ->
        next:(Biocaml_lines.Buffer.t ->
              [ `not_ready | `output of ('b, 'errnext) Core.Result.t ]) ->
        on_error:([ `incomplete_input of
                      Biocaml_pos.t * Biocaml_lines.item list * string option
                  | `next of 'errnext ] -> 'err) ->
        unit -> (string, ('b, 'err) Core.Result.t) Biocaml_transform.t
      val make_merge_error :
        ?name:string ->
        ?filename:string ->
        next:(Biocaml_lines.Buffer.t ->
              [ `not_ready
              | `output of
                  ('a,
                   [> `incomplete_input of
                        Biocaml_pos.t * Biocaml_lines.item list *
                        string option ]
                   as 'b)
                  Core.Result.t ]) ->
        unit -> (string, ('a, 'b) Core.Result.t) Biocaml_transform.t
    end
end