New utility mg-adjust-flight-makexrefs

This provides a fairly cooked way of adjusting an existing flight to
reuse previous builds.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
---
v2: New patch

diff --git a/mg-adjust-flight-makexrefs b/mg-adjust-flight-makexrefs
new file mode 100755 (executable)
index 0000000..ebbac15
--- /dev/null
+++ b/mg-adjust-flight-makexrefs
@@ -0,0 +1,83 @@
+#!/bin/bash
+#
+# usage: ./mg-adjust-flight-makexrefs [OPTIONS..] FLIGHT       \
+#              '[!]JOB-GLOB ...'                               \
+#              REF-CONDS...
+#
+# JOB-GLOB is as for shell `case'.  Sense of first match is used.
+# If no match for a job, uses reverse of sense of last glob.
+#
+# ! means keep such jobs in FLIGHT.  Without ! means delete each such
+# job from FLIGHT and replace intra-flight references to it with
+# references to the same job in a suitable other flight.
+#
+# `Suitable' means one in which the required job passed, subject to
+# REF-CONDS (which are passed to sg-check-tested).  REF-CONDS really
+# ought to include --blessings=BLESSING,... and should probably also
+# include some --branch=REF-BRANCH.
+#
+# Options:
+#   -v      Pass -v to cs-adjust-flight
+#   -D      Print our own debugging output to stderr (consider
+#             passing --debug in REF-CONDS too)
+#   -n      Dry run: do not actually run cs-adjust-flight
+
+set -e
+
+exec 3>/dev/null
+verbose=''
+
+badusage () { echo >&2 "$0: bad usage"; exit 1; }
+
+while true; do
+       case "$1" in
+       -n)     dryrun="echo" ;;
+       -v)     verbose=-v ;;
+       -D)     exec 3>&2 ;;
+       -*)     badusage ;;
+       *)      break ;;
+       esac
+       shift
+done
+
+if [ $# -le 2 ]; then badusage; fi
+
+flight=$1; shift
+keepjobs=$1; shift
+
+for j in `./cs-adjust-flight $flight jobs-list '^build-'`; do
+
+       tokeep=continue
+       todelete=:
+
+       for glob in $keepjobs; do
+               case "$glob" in
+               !*) ifmatch=$tokeep; action=$todelete ; glob="${glob#!}" ;;
+               *)  ifmatch=$todelete; action=$tokeep ;;
+               esac
+
+               case "$j" in
+               $glob)
+                       action=$ifmatch
+                       echo >&3 "ADJUST XREF $j match=$glob $action"
+                       break
+                       ;;
+               esac
+       done
+
+       # `doaction=continue'   => job remains
+       # `doaction=:'          => job gets deleted
+       echo >&3 "ADJUST XREF $j ACTION $action"
+       $action
+
+       # OK, process $j
+
+       ref=`./sg-check-tested --pass-job="$j" "$@"`
+       echo >&3 "ADJUST XREF $j r=$ref"
+       if [ "x$ref" = x ]; then continue; fi
+
+       $dryrun \
+       ./cs-adjust-flight $verbose $flight \
+               runvar-change . '/buildjob$' "$j" "$ref.$j" \
+               jobs-del "$j"
+done