let rec packages_parser fname stanza_parser acc p =
  let filename = ("Filename",(Format822.dummy_loc,Filename.basename fname)) in
  match Format822_parser.stanza_822 Format822_lexer.token_822 p.Format822.lexbuf with
  |None -> acc
  |Some stanza -> begin
      match stanza_parser (filename::stanza) with
      |None -> packages_parser fname stanza_parser acc p
      |Some st -> packages_parser fname stanza_parser (st::acc) p
  end