let parse_architectures buildarchlist (_loc,s) =
let matchsource sourcearchlist buildarchlist =
List.exists (fun arch ->
List.exists(fun source ->
Architecture.src_matches_arch source arch
) sourcearchlist
) buildarchlist
in
let sourcearchlist = Packages.lexbuf_wrapper Packages_parser.archlist_top (_loc,s) in
if buildarchlist = [] then sourcearchlist
else if matchsource sourcearchlist buildarchlist then sourcearchlist
else raise (Packages.IgnorePackage "")