let deb_parse_input options urilist =
let archs =
if options.Debian.Debcudf.native <> "" then
options.Debian.Debcudf.native :: options.Debian.Debcudf.foreign
else []
in
let dll =
List.map (fun l ->
let filelist = List.map unpack l in
Debian.Packages.input_raw ~archs filelist
) urilist
in
deb_load_list options dll