let parse_packages_in ?filter ?(archs=[]) ?(extras=[]) fname ic =
info "Parsing Packages file %s..." fname;
try
let stanza_parser = parse_package_stanza filter archs extras in
Format822.parse_from_ch (packages_parser fname stanza_parser []) ic
with ParseError (field,errmsg) -> fatal "Filename %s\n %s : %s" fname field errmsg