git/AT

#!/bin/sh

log=Meta/AT.log
>>"$log"
buildlog=Meta/AT.build-logs
mkdir -p "$buildlog"
t="/tmp/AT.$$"

trap 'rm -f "$t.*"; exit' 0 1 2 3 15

_x40="[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]"
_x40="$_x40$_x40$_x40$_x40$_x40$_x40$_x40$_x40"

log_prune () {
	cp "$log" "$log.bak"

	git for-each-ref --format='%(objectname)' 'refs/heads/*/*' |
	git rev-list --not ko/maint --not --stdin |
	while read commit
	do
		git rev-parse --verify "$commit^{tree}"
	done | sort -u >"$t.tree0"
	sed -ne "s/A \($_x40\)	.*/\1/p" "$log" | sort -u >"$t.tree1"
	comm -13 "$t.tree0" "$t.tree1" | sed -e 's|.*|/^A &/d|' >"$t.prune"

	next=$(git rev-parse --verify "refs/heads/next^0")
	ko_next=$(git rev-parse --verify "refs/remotes/ko/next^0")
	echo "/^N /{
		s/^N $next /&/
		t ok
		s/^N $ko_next /&/
		t ok
		d
		: ok
}" >>"$t.prune"

	sed -f "$t.prune" "$log" >"$t.pruned"
	cat "$t.pruned" >"$log"
}

check_skip_test () {
	GIT_SKIP_TESTS=
	git diff --name-only ko/master "$1" >"$t.d"
	if ! grep -q -e git-svn "$t.d"
	then
		GIT_SKIP_TESTS="$GIT_SKIP_TESTS t91??"
	fi
	if ! grep -q -e git-cvsexportcommit "$t.d"
	then
		GIT_SKIP_TESTS="$GIT_SKIP_TESTS t9200"
	fi
	if ! grep -q -e git-cvsimport "$t.d"
	then
		GIT_SKIP_TESTS="$GIT_SKIP_TESTS t9600"
	fi
	if test -n "$GIT_SKIP_TESTS"
	then
		export GIT_SKIP_TESTS
	else
		unset GIT_SKIP_TESTS
	fi
}

autotest () {
	commit=$(git rev-parse --verify "$1^0") &&
	tree=$(git rev-parse --verify "$commit^{tree}") || return 1
	grep -s "^A $tree	" "$log" >/dev/null && return 0
	o="$buildlog/$tree"

	git reset -q --hard HEAD^0 &&
	git checkout -q "$commit^0" || return 1

	check_skip_test "$tree"

	PAGER= git show -s --pretty='format:* %h %s%n' "$commit" --
	if ! Meta/Make -pedantic >"$o" 2>&1
	then
		status="build error"
	elif ! Meta/Make -pedantic test >>"$o" 2>&1
	then
		status="test error"
	else
		status=ok
		rm -f "$o"
	fi
	: Meta/Make clean >/dev/null 2>&1
	echo "A $tree	$status" >>"$log"
	echo "$status"
}

append_to_status () {
	if test -z "$status"
	then
		status="$1"
	else
		status="$status; $1"
	fi
}

nexttest () {
	mb=$(git merge-base "$commit" "$next") || return 1
	test "$mb" = "$commit" && return 0
	grep -s "^N $next $commit	" "$log" >/dev/null && return 0

	branch="${refname#refs/heads/}"
	git reset -q --hard next^0

	echo "* $branch"

	status= skip_build=
	if ! git merge "$commit" >/dev/null 2>&1
	then
		conflict_count=$(git ls-files -u |
				sed -e 's/.*	//' |
				sort -u |
				xargs grep -e '^<<<<<<< ' |
				wc -l)
		if test $conflict_count = 0
		then
			append_to_status "rerere ok"
		else
			skip_build=t
			append_to_status "conflict $conflict_count"
		fi
	fi
	if test -z "$skip_build"
	then
		o="$buildlog/$commit"
		check_skip_test "$commit"
		if ! Meta/Make -pedantic >"$o" 2>&1
		then
			append_to_status "build error"
		elif ! Meta/Make -pedantic test >>"$o" 2>&1
		then
			append_to_status "test error"
		else
			append_to_status "test ok"
			rm -f "$o"
		fi
	fi
	: Meta/Make clean >/dev/null 2>&1
	echo "N $next $commit	$status" >>"$log"
	echo "$status"
}

loop () {
	Meta/Make clean >/dev/null 2>&1
	git reset --hard -q
	git checkout -q HEAD^0
	next=$(git rev-parse --verify "refs/remotes/ko/next^0")

	while :
	do
		log_prune

		date

		l0=$(ls -l "$log")

		git for-each-ref --format='%(objectname)' 'refs/heads/*/*' |
		git rev-list --not ko/maint ko/master --not --stdin |
		while read commit
		do
			autotest "$commit" || echo "oops?"
		done

		l1=$(ls -l "$log")
		test "$l0" = "$l1" || continue

		git for-each-ref --format='%(objectname) %(refname)' \
						'refs/heads/*/*' |
		while read commit refname
		do
			nexttest "$commit" "$refname" || echo "oops?"
		done

		l1=$(ls -l "$log")
		test "$l0" = "$l1" || continue

		sleep 600 || exit
	done
}

case "$#" in
0)
	loop
	exit ;;
esac

(
	git rev-list --no-walk "$@" 2>/dev/null || git rev-list "$@"
) |
while read commit
do
	autotest "$commit"
done