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