From 70e1c9d0f4a53d5589d207ab77cfa77b1bdeee57 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Fri, 1 Aug 2014 21:56:04 +0100 Subject: [PATCH] Sort the packages that we build smartly. --- fedora_ocaml_rebuild.ml | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/fedora_ocaml_rebuild.ml b/fedora_ocaml_rebuild.ml index 38c4cc0..d316f77 100644 --- a/fedora_ocaml_rebuild.ml +++ b/fedora_ocaml_rebuild.ml @@ -68,6 +68,30 @@ let source_packages = in List.filter (fun pkg -> not (is_blocked pkg)) source_packages +(* Short the dependencies lists so that the build order is stable + * each time it runs. + *) +let pkg_deps = + List.map (fun (pkg, deps) -> pkg, List.sort compare deps) pkg_deps + +(* Sort the source packages so that the packages with the largest + * number of reverse dependencies [other packages that depend on it] + * appear earlier in the list, on the basis that building these + * packages first has the greatest advantage. + *) +let source_packages = + let rdeps pkg = + Utils.filter_map ( + fun (rdep, deps) -> if List.mem pkg deps then Some rdep else None + ) pkg_deps + in + let cmp p1 p2 = + let r1 = rdeps p1 and r2 = rdeps p2 in + let n1 = List.length r1 and n2 = List.length r2 in + if n1 <> n2 then compare n2 n1 else compare p1 p2 + in + List.sort cmp source_packages + let () = printf "final list of source packages = %s\n%!" (String.concat " " source_packages) -- 1.8.3.1