let pp tables pkg =
let v =
try Cudf.lookup_package_property pkg "number"
with Not_found ->
if (pkg.Cudf.version mod 2) = 1 then
Debian.Debcudf.get_real_version tables
(pkg.Cudf.package,pkg.Cudf.version)
else
fatal "Real package without Debian Version"
in
let l =
List.filter_map (fun k ->
try Some(k,Cudf.lookup_package_property pkg k)
with Not_found -> None
) ["architecture";"source";"sourcenumber";"equivs"]
in (pkg.Cudf.package,v,l)