From 4fb1f6d4c0d9786c752b4c4badf2f2d62506d685 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 17 Sep 2015 17:00:44 +0100
Subject: [PATCH] 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
---
 mg-adjust-flight-makexrefs | 83 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100755 mg-adjust-flight-makexrefs

diff --git a/mg-adjust-flight-makexrefs b/mg-adjust-flight-makexrefs
new file mode 100755
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
-- 
2.39.5