"ocaml-pa-do"; (* build failure, complex *)
"ocaml-lwt"; (* build failure on 4.02.0 *)
"ocaml-preludeml"; (* build failure *)
+ "cduce"; (* broken again with latest 4.02 *)
"frama-c"; (* build failure *)
+ "gappalib-coq"; (* build failure in configure script *)
]
let blocked pkg = List.mem pkg blocked
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)
sh "sudo yum-builddep -y --disablerepo=\\* --enablerepo=%s %s"
(quote yum_repo) (fedora_specfile pkg branch)
+(* Unset MAKEFLAGS so it doesn't affect local builds. *)
+let () = Unix.putenv "MAKEFLAGS" ""
+
(* Goal: rebuild all packages. *)
let rec goal all () =
- List.iter (fun pkg -> require (rebuild_started pkg)) source_packages
+ let n = List.length source_packages in
+ List.iteri (
+ fun i pkg ->
+ require (rebuild_started pkg);
+ printf "*** *** rebuilt %d/%d packages *** ***\n%!" (i+1) n
+ ) source_packages
(* Goal: That 'package' has been rebuilt and exists in Koji. *)
and rebuilt pkg =