(* The name of the rebuild, and also the magic substring that must
* appear in the %changelog when the package has been rebuilt.
*)
-let rebuild_name = "OCaml 4.02.0 beta"
+let rebuild_name = "ocaml-4.02.0-0.8.git10e45753.fc22"
(* Local repository that contains build dependencies. *)
let yum_repo = "koji-rawhide"
* dependent packages.
*)
let blocked = [
- "ocaml-bitstring"; (* needs upstream fix for 4.02.0 *)
-
"ocaml-mikmatch"; (* build failure on 4.02.0 *)
"ocaml-omake"; (* build failure on 4.02.0 with hevea *)
"ocaml-p3l"; (* build failure on 4.02.0 -warn-error A *)
"ocaml-pa-do"; (* build failure, complex *)
"ocaml-lwt"; (* build failure on 4.02.0 *)
"ocaml-preludeml"; (* build failure *)
- "cduce"; (* complex 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
let ignored = [
"ocaml-srpm-macros"; (* don't need to build this *)
"ocaml"; (* rebuilt by hand *)
- "ocaml-findlib"; (* rebuilt by hand *)
- "ocaml-camlidl"; (* rebuilt by orionp *)
"whenjobs"; (* obsolete *)
"libguestfs"; (* rebuilt by hand *)
"graphviz"; (* rebuilt by hand *)
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)
+(* We could make this a goal, but it's cheap enough to run it unconditionally. *)
+let install_build_dependencies pkg =
+ sh "sudo yum clean all --disablerepo=\\* --enablerepo=%s"
+ (quote yum_repo);
+ 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 =
target (memory_exists key);
- (* Do a local test build to ensure the Koji build will work. *)
+ install_build_dependencies pkg;
+
+ (* Do a local test build to ensure the Koji build will work. *)
sh "
cd %s
- sudo yum-builddep -y --disablerepo=\\* --enablerepo=%s %s
- fedpkg local
- " (fedora_repo pkg branch)
- (quote yum_repo)
- (fedora_specfile pkg branch);
+ fedpkg local
+ " (fedora_repo pkg branch);
memory_set key "1"
git pull --rebase
" repodir;
- sh "sudo yum-builddep -y --disablerepo=\\* --enablerepo=%s %s"
- (quote yum_repo) specfile;
+ install_build_dependencies pkg;
(* For rationale behind always bumping the spec file, see comment
* in 'fedora.ml'.