let rpm_load_list dll =
IFDEF HASRPM THEN
let tables = Rpm.Rpmcudf.init_tables (List.flatten dll) in
let cll =
List.map (fun l ->
List.map (Rpm.Rpmcudf.tocudf tables) l
) dll
in
(* Rpm.Rpmcudf.clear tables; *)
let from_cudf (p,i) = (p,string_of_int i) in
let to_cudf (p,v) = (p,Rpm.Rpmcudf.get_cudf_version tables (p,v)) in
let preamble = Rpm.Rpmcudf.preamble in
(preamble,cll,from_cudf,to_cudf)
ELSE
failwith "librpm not available. re-configure with --with-rpm"
END