Source file reader.ml

exception Invalid_parsing of string

module type S = sig
  val of_flow :
    ?initial_size:int -> max_size:int -> _ Eio.Flow.source -> Rpmfile.metadata
  (** @raise  Invalid_parsing *)
end

module Make (S : Rpmfile.Selector.S) : S = struct
  let of_flow ?(initial_size = 3_000) ~max_size flow =
    let buf = Eio.Buf_read.of_flow flow ~initial_size ~max_size in
    let parser =
      Parsers.metadata_parser ~select_signature_tag:S.select_signature_tag
        ~select_header_tag:S.select_header_tag
    in

    match Eio.Buf_read.format_errors parser buf with
    | Ok metadata -> metadata
    | Error (`Msg m) -> raise (Invalid_parsing m)
end