let make ?name ?filename ~next ~on_error () =
    let lo_parser = parsing_buffer ?filename () in
    make ?name ()
      ~feed:(feed_string lo_parser)
      ~next:(fun stopped ->
        match next lo_parser with
        | `output (Ok r) -> `output (Ok r)
        | `output (Error r) -> `output (Error (on_error (`next r)))
        | `not_ready ->
          if stopped then (
            if is_empty lo_parser then
              `end_of_stream
            else
              let l,o = contents lo_parser in
              `output
                (Error
                   (on_error
                      (`incomplete_input (current_position lo_parser, l, o))))
          ) else
            `not_ready)