[thirdparty/gcc.git] / contrib / patch_tester.sh

#!/bin/sh

# Tests a set of patches from a directory.
# Copyright (C) 2007-2024 Free Software Foundation, Inc.
# Contributed by Sebastian Pop <sebastian.pop@amd.com>

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

cat <<EOF

WARNING: This script should only be fed with patches from known
         authorized and trusted sources.  Don't even think about
         hooking it up to a raw feed from the gcc-patches list or
         you'll regret it.

EOF

args=$@

svnpath=svn://gcc.gnu.org/svn/gcc
dashj=
default_standby=1
standby=$default_standby
default_watermark=0.60
watermark=$default_watermark
savecompilers=false
nopristinecache=false
nogpg=false
stop=false

usage() {
    cat <<EOF
patch_tester.sh [-j<N>] [-standby N] [-watermark N] [-savecompilers] [-nogpg]
                [-svnpath URL] [-stop] [-nopristinecache]
                <source_dir> [patches_dir [state_dir [build_dir]]]

    J is the flag passed to make.  Default is empty string.

    STANDBY is the number of minutes between checks for new patches in
    PATCHES_DIR.  Default is ${default_standby} minutes.

    WATERMARK is the 5 minute average system charge under which a new
    compile can start.  Default is ${default_watermark}.

    SAVECOMPILERS copies the compilers in the same directory as the
    test results for the non patched version.  Default is not copy.

    NOPRISTINECACHE prevents use of cached test results from any earlier
    test runs on the pristine version of the branch and revision under
    test (the default behaviour).  This should be used when testing the
    same revision and patch with multiple sets of configure options, as
    these may affect the set of baseline failures.

    NOGPG can be used to avoid checking the GPG signature of patches.

    URL is the location of the GCC SVN repository.  The default is
    ${svnpath}.

    STOP exits when PATCHES_DIR is empty.

    SOURCE_DIR is the directory containing GCC's toplevel configure.

    PATCHES_DIR is the directory containing the patches to be tested.
    Default is SOURCE_DIR/patches.

    STATE_DIR is where the tester maintains its internal state.
    Default is SOURCE_DIR/state.

    BUILD_DIR is the build tree, a temporary directory that this
    script will delete and recreate.  Default is SOURCE_DIR/obj.

EOF
    exit 1
}

makedir () {
    DIRNAME=$1
    mkdir -p $DIRNAME
    if [ $? -ne 0 ]; then
	echo "ERROR: could not make directory $DIRNAME"
	exit 1
    fi
}

while [ $# -ne 0 ]; do
    case $1 in
	-j*)
	    dashj=$1; shift
	    ;;
	-standby)
	    [[ $# > 2 ]] || usage
	    standby=$2; shift; shift
	    ;;
	-watermark)
	    [[ $# > 2 ]] || usage
	    watermark=$2; shift; shift
	    ;;
	-savecompilers)
	    savecompilers=true; shift
	    ;;
	-nopristinecache)
	    nopristinecache=true; shift
	    ;;
	-nogpg)
	    nogpg=true; shift
	    ;;
	-stop)
	    stop=true; shift
	    ;;
	-svnpath)
	    svnpath=$2; shift; shift
	    ;;
	-*) 
	    echo "Invalid option: $1"
	    usage
	    ;;
	*)
	    break
	    ;;
    esac
done

test $# -eq 0 && usage

SOURCE=$1
PATCHES=
STATE=
BUILD=

if [[ $# < 2 ]]; then
    PATCHES=$SOURCE/patches
else
    PATCHES=$2
fi
if [[ $# < 3 ]]; then
    STATE=$SOURCE/state
else
    STATE=$3
fi
if [[ $# < 4 ]]; then
    BUILD=$SOURCE/obj
else
    BUILD=$4
fi

[ -d $PATCHES ] || makedir $PATCHES
[ -d $STATE ] || makedir $STATE
[ -d $STATE/patched ] || makedir $STATE/patched
[ -d $SOURCE ] || makedir $SOURCE
[ -f $SOURCE/config.guess ] || {
    cd $SOURCE
    svn -q co $svnpath/trunk .
    if [ $? -ne 0 ]; then
	echo "ERROR: initial svn checkout failed"
	exit 1
    fi
}

# This can contain required local settings:
#  default_config  configure options, always passed
#  default_make    make bootstrap options, always passed
#  default_check   make check options, always passed
[ -f $STATE/defaults ] && . $STATE/defaults

VERSION=`svn info $SOURCE | grep "^Revision:" | sed -e "s/^Revision://g" -e "s/ //g"`

exec >> $STATE/tester.log 2>&1 || exit 1
set -x

TESTING=$STATE/testing
REPORT=$TESTING/report
PRISTINE=$TESTING/pristine
PATCHED=$TESTING/patched
PATCH=
TARGET=`$SOURCE/config.guess || exit 1` 
TESTLOGS="gcc/testsuite/gcc/gcc.sum
gcc/testsuite/gfortran/gfortran.sum
gcc/testsuite/g++/g++.sum
gcc/testsuite/objc/objc.sum
$TARGET/libstdc++-v3/testsuite/libstdc++.sum
$TARGET/libffi/testsuite/libffi.sum
$TARGET/libgomp/testsuite/libgomp.sum
$TARGET/libmudflap/testsuite/libmudflap.sum"
COMPILERS="gcc/cc1
gcc/cc1obj
gcc/cc1plus
gcc/f951
gcc/jc1
gcc/gnat1
gcc/tree1"

now () {
    echo `TZ=UTC date +"%Y_%m_%d_%H_%M_%S"`
}

report () {
    echo "$@" >> $REPORT
}

freport () {
    if [ -s $1 ]; then
	report "(cat $1"
	cat $1 >> $REPORT
	report "tac)"
    fi
}

cleanup () {
    cd $SOURCE
    svn cleanup && svn revert -R . && svn st | cut -d' ' -f5- | xargs rm -v
}

selfexec () {
    exec ${CONFIG_SHELL-/bin/sh} $0 $args
}

update () {
    svn_branch=`grep "^branch:" $PATCH | sed -e "s/^branch://g" -e "s/ //g"`
    if [ x$svn_branch = x ]; then
	svn_branch=trunk
    fi

    svn_revision=`grep "^revision:" $PATCH | sed -e "s/^revision://g" -e "s/ //g"`
    if [ x$svn_revision = x ]; then
	svn_revision=HEAD
    fi

    cleanup
    cd $SOURCE
    case $svn_branch in
	trunk)
	    if ! svn switch -r $svn_revision $svnpath/trunk &> $TESTING/svn ; then
		report "failed to update svn sources with"
		report "svn switch -r $svn_revision $svnpath/trunk"
		freport $TESTING/svn
		return 1
	    fi
	    ;;

	${svnpath}*)
	    if ! svn switch -r $svn_revision $svn_branch &> $TESTING/svn ; then
		report "failed to update svn sources with"
		report "svn switch -r $svn_revision $svn_branch"
		freport $TESTING/svn
		return 1
	    fi
	    ;;

	*)
	    if ! svn switch -r $svn_revision $svnpath/branches/$svn_branch &> $TESTING/svn ; then
		report "failed to update svn sources with"
		report "svn switch -r $svn_revision $svnpath/branches/$svn_branch"
		freport $TESTING/svn
		return 1
	    fi
	    ;;
    esac
    contrib/gcc_update --touch

    current_version=`svn info $SOURCE | grep "^Revision:" | sed -e "s/^Revision://g" -e "s/ //g"`
    if [[ $VERSION < $current_version ]]; then
	if [ -f $SOURCE/contrib/patch_tester.sh ]; then
	    selfexec
	fi
    fi

    return 0
}

apply_patch () {
    if [ $nogpg = false ]; then
	if ! gpg --batch --verify $PATCH &> $TESTING/gpgverify ; then
	    report "your patch failed to verify:"
	    freport $TESTING/gpgverify
	    return 1
	fi
    fi

    cd $SOURCE
    if ! patch -p0 < $PATCH &> $TESTING/patching ; then
	report "your patch failed to apply:"
	report "(check that the patch was created at the top level)"
	freport $TESTING/patching
	return 1
    fi

    # Just assume indexes for now -- not really great, but svn always
    # makes them.
    grep "^Index: " $PATCH | sed -e 's/Index: //' | while read file; do
	# If the patch resulted in an empty file, delete it.
	# This is how svn reports deletions.
	if [ ! -s $file ]; then
	    rm -f $file
	    report "Deleting empty file $file"
	fi
    done
}

save_compilers () {
    for COMPILER in $COMPILERS ; do
	if [ -f $BUILD/$COMPILER ]; then
	    cp $BUILD/$COMPILER $PRISTINE
	fi
    done
}

bootntest () {
    rm -rf $BUILD
    mkdir $BUILD
    cd $BUILD

    CONFIG_OPTIONS=`grep "^configure:" $PATCH | sed -e "s/^configure://g"`
    CONFIG_OPTIONS="$default_config $CONFIG_OPTIONS"
    if ! eval $SOURCE/configure $CONFIG_OPTIONS &> $1/configure ; then
	report "configure with `basename $1` version failed with:"
	freport $1/configure
	return 1
    fi

    MAKE_ARGS=`grep "^make:" $PATCH | sed -e "s/^make://g"`
    MAKE_ARGS="$default_make $MAKE_ARGS"
    if ! eval make $dashj $MAKE_ARGS &> $1/bootstrap ; then
	report "bootstrap with `basename $1` version failed with last lines:"
	tail -30 $1/bootstrap > $1/last_bootstrap
	freport $1/last_bootstrap
	report "grep --context=20 Error bootstrap:"
	grep --context=20 Error $1/bootstrap > $1/bootstrap_error
	freport $1/bootstrap_error
	return 1
    fi

    CHECK_OPTIONS=`grep "^check:" $PATCH | sed -e "s/^check://g"`
    CHECK_OPTIONS="$default_check $CHECK_OPTIONS"
    eval make $dashj $CHECK_OPTIONS -k check &> $1/check

    SUITESRUN="`grep 'Summary ===' $1/check | cut -d' ' -f 2 | sort`"
    if [ x$SUITESRUN = x ]; then
	report "check with `basename $1` version failed, no testsuites were run"
	return 1
    fi

    for LOG in $TESTLOGS ; do
	if [ -f $BUILD/$LOG ]; then
	    mv $BUILD/$LOG $1
	    mv `echo "$BUILD/$LOG" | sed -e "s/\.sum/\.log/g"` $1
	fi
    done

    return 0
}

bootntest_patched () {
    cleanup
    mkdir -p $PATCHED
    apply_patch && bootntest $PATCHED
    return $?
}

# Build the pristine tree with exactly the same options as the patch under test.
bootntest_pristine () {
    cleanup
    current_branch=`svn info $SOURCE | grep "^URL:" | sed -e "s/URL: //g" -e "s,${svnpath},,g"`
    current_version=`svn info $SOURCE | grep "^Revision:" | sed -e "s/^Revision://g" -e "s/ //g"`
    PRISTINE=$STATE/$current_branch/$current_version

    if [ $nopristinecache = true ]; then
      rm -rf $PRISTINE
    fi
    if [ -d $PRISTINE ]; then
	ln -s $PRISTINE $TESTING/pristine
	return 0
    else
	mkdir -p $PRISTINE
	ln -s $PRISTINE $TESTING/pristine
	bootntest $PRISTINE
	RETVAL=$?
	if [ $RETVAL = 0 -a $savecompilers = true ]; then
	    save_compilers
	fi
	return $RETVAL
    fi
}

regtest () {
    touch $1/report
    touch $1/passes
    touch $1/failed
    touch $1/regress

    for LOG in $TESTLOGS ; do
	NLOG=`basename $LOG`
	if [ -f $1/$NLOG ]; then
	    awk '/^FAIL: / { print "'$NLOG'",$2; }' $1/$NLOG
	fi
    done | sort | uniq > $1/failed

    comm -12 $1/failed $1/passes >> $1/regress
    NUMREGRESS=`wc -l < $1/regress | tr -d ' '`

    if [ $NUMREGRESS -eq 0 ] ; then
	for LOG in $TESTLOGS ; do
	    NLOG=`basename $LOG`
	    if [ -f $1/$NLOG ] ; then
		awk '/^PASS: / { print "'$NLOG'",$2; }' $1/$NLOG
	    fi
	done | sort | uniq | comm -23 - $1/failed > $1/passes
	echo "there are no regressions with your patch." >> $1/report
    else
	echo "with your patch there are $NUMREGRESS regressions." >> $1/report
	echo "list of regressions with your patch:" >> $1/report
	cat $1/regress >> $1/report
    fi
}

contrib_compare_tests () {
    report "comparing logs with contrib/compare_tests:"
    for LOG in $TESTLOGS ; do
 	NLOG=`basename $LOG`
 	if [ -f $PRISTINE/$NLOG -a -f $PATCHED/$NLOG ]; then
 	    $SOURCE/contrib/compare_tests $PRISTINE/$NLOG $PATCHED/$NLOG > $TESTING/compare_$NLOG
 	    freport $TESTING/compare_$NLOG
 	fi
    done
}

compare_passes () {
    regtest $PRISTINE
    cp $PRISTINE/passes $PATCHED
    regtest $PATCHED
    freport $PATCHED/report
    report "FAILs with patched version:"
    freport $PATCHED/failed
    report "FAILs with pristine version:"
    freport $PRISTINE/failed

    # contrib_compare_tests
}

write_report () {
    backup_patched=$STATE/patched/`now`
    report "The files used for the validation of your patch are stored in $backup_patched on the tester machine."

    EMAIL=`grep "^email:" $PATCH | sed -e "s/^email://g" -e "s/ //g"`
    if [ x$EMAIL != x ]; then
	mutt -s "[regtest] Results for `basename $PATCH` on $TARGET" -i $REPORT -a $PATCH $EMAIL
    fi

    mv $TESTING $backup_patched
}

announce () {
    EMAIL=`grep "^email:" $PATCH | sed -e "s/^email://g" -e "s/ //g"`
    if [ x$EMAIL != x ]; then

	START_REPORT=$TESTING/start_report
	echo "Hi, " >> $START_REPORT
	echo "I'm the automatic tester running on $TARGET." >> $START_REPORT
	echo "I just started to look at your patch `basename $PATCH`." >> $START_REPORT
	echo "Bye, your automatic tester." >> $START_REPORT
	mutt -s "[regtest] Starting bootstrap for `basename $PATCH` on $TARGET" -i $START_REPORT $EMAIL
    fi
}

# After selfexec, $TESTING is already set up.  
if [ -d $TESTING ]; then
    # The only file in $TESTING is the patch.
    PATCH=`ls -rt -1 $TESTING | head -1`
    PATCH=$TESTING/$PATCH
    if [ -f $PATCH ]; then
	bootntest_patched && bootntest_pristine && compare_passes
	write_report
    fi
fi

firstpatch=true
while true; do
    PATCH=`ls -rt -1 $PATCHES | head -1`
    if [ x$PATCH = x ]; then
	if [ $stop = true ]; then
	    if [ $firstpatch = true ]; then
		echo "No patches ready to test, quitting."
		exit 1
	    else
		echo "No more patches to test."
		exit 0
	    fi
	fi
	sleep ${standby}m
    else
	firstpatch=false
	sysload=`uptime | cut -d, -f 5`
	if [[ $sysload > $watermark ]]; then
	    # Wait a bit when system load is too high.
	    sleep ${standby}m
	else
	    mkdir -p $TESTING
	    mv $PATCHES/$PATCH $TESTING/
	    PATCH=$TESTING/$PATCH

	    announce
	    update && bootntest_patched && bootntest_pristine && compare_passes
	    write_report
	fi
    fi
done
Commit	Line	Data
0f55312a SP	1	#!/bin/sh
	2
	3	# Tests a set of patches from a directory.
a945c346	4	# Copyright (C) 2007-2024 Free Software Foundation, Inc.
0f55312a SP	5	# Contributed by Sebastian Pop <sebastian.pop@amd.com>
	6
	7	# This program is free software; you can redistribute it and/or modify
	8	# it under the terms of the GNU General Public License as published by
66d3504c	9	# the Free Software Foundation; either version 3 of the License, or
0f55312a SP	10	# (at your option) any later version.
	11
	12	# This program is distributed in the hope that it will be useful,
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16
	17	# You should have received a copy of the GNU General Public License
	18	# along with this program; if not, write to the Free Software
	19	# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
	20
	21	cat <<EOF
	22
	23	WARNING: This script should only be fed with patches from known
	24	authorized and trusted sources. Don't even think about
	25	hooking it up to a raw feed from the gcc-patches list or
	26	you'll regret it.
	27
	28	EOF
	29
	30	args=$@
	31
1d4edfd6	32	svnpath=svn://gcc.gnu.org/svn/gcc
0f55312a SP	33	dashj=
	34	default_standby=1
	35	standby=$default_standby
	36	default_watermark=0.60
	37	watermark=$default_watermark
	38	savecompilers=false
a7150b3d	39	nopristinecache=false
0f55312a	40	nogpg=false
1d4edfd6	41	stop=false
0f55312a SP	42
	43	usage() {
	44	cat <<EOF
	45	patch_tester.sh [-j<N>] [-standby N] [-watermark N] [-savecompilers] [-nogpg]
a7150b3d	46	[-svnpath URL] [-stop] [-nopristinecache]
0f55312a SP	47	<source_dir> [patches_dir [state_dir [build_dir]]]
	48
	49	J is the flag passed to make. Default is empty string.
	50
	51	STANDBY is the number of minutes between checks for new patches in
	52	PATCHES_DIR. Default is ${default_standby} minutes.
	53
	54	WATERMARK is the 5 minute average system charge under which a new
3825be8c	55	compile can start. Default is ${default_watermark}.
0f55312a SP	56
	57	SAVECOMPILERS copies the compilers in the same directory as the
	58	test results for the non patched version. Default is not copy.
	59
a7150b3d DK	60	NOPRISTINECACHE prevents use of cached test results from any earlier
	61	test runs on the pristine version of the branch and revision under
	62	test (the default behaviour). This should be used when testing the
	63	same revision and patch with multiple sets of configure options, as
	64	these may affect the set of baseline failures.
	65
0f55312a SP	66	NOGPG can be used to avoid checking the GPG signature of patches.
0f55312a SP	67
1d4edfd6 JJ	68	URL is the location of the GCC SVN repository. The default is
	69	${svnpath}.
	70
	71	STOP exits when PATCHES_DIR is empty.
	72
0f55312a SP	73	SOURCE_DIR is the directory containing GCC's toplevel configure.
	74
	75	PATCHES_DIR is the directory containing the patches to be tested.
	76	Default is SOURCE_DIR/patches.
	77
	78	STATE_DIR is where the tester maintains its internal state.
	79	Default is SOURCE_DIR/state.
	80
	81	BUILD_DIR is the build tree, a temporary directory that this
	82	script will delete and recreate. Default is SOURCE_DIR/obj.
	83
	84	EOF
	85	exit 1
	86	}
	87
1d4edfd6 JJ	88	makedir () {
	89	DIRNAME=$1
	90	mkdir -p $DIRNAME
	91	if [ $? -ne 0 ]; then
	92	echo "ERROR: could not make directory $DIRNAME"
	93	exit 1
	94	fi
	95	}
	96
0f55312a SP	97	while [ $# -ne 0 ]; do
	98	case $1 in
	99	-j*)
	100	dashj=$1; shift
	101	;;
	102	-standby)
	103	[[ $# > 2 ]] \|\| usage
	104	standby=$2; shift; shift
	105	;;
	106	-watermark)
	107	[[ $# > 2 ]] \|\| usage
	108	watermark=$2; shift; shift
	109	;;
	110	-savecompilers)
	111	savecompilers=true; shift
	112	;;
a7150b3d DK	113	-nopristinecache)
	114	nopristinecache=true; shift
	115	;;
0f55312a SP	116	-nogpg)
	117	nogpg=true; shift
	118	;;
1d4edfd6 JJ	119	-stop)
	120	stop=true; shift
	121	;;
	122	-svnpath)
	123	svnpath=$2; shift; shift
	124	;;
0f55312a SP	125	-*)
	126	echo "Invalid option: $1"
	127	usage
	128	;;
	129	*)
	130	break
	131	;;
	132	esac
	133	done
	134
	135	test $# -eq 0 && usage
	136
	137	SOURCE=$1
	138	PATCHES=
	139	STATE=
	140	BUILD=
	141
	142	if [[ $# < 2 ]]; then
	143	PATCHES=$SOURCE/patches
	144	else
	145	PATCHES=$2
	146	fi
	147	if [[ $# < 3 ]]; then
	148	STATE=$SOURCE/state
	149	else
	150	STATE=$3
	151	fi
	152	if [[ $# < 4 ]]; then
	153	BUILD=$SOURCE/obj
	154	else
	155	BUILD=$4
	156	fi
	157
1d4edfd6 JJ	158	[ -d $PATCHES ] \|\| makedir $PATCHES
	159	[ -d $STATE ] \|\| makedir $STATE
	160	[ -d $STATE/patched ] \|\| makedir $STATE/patched
	161	[ -d $SOURCE ] \|\| makedir $SOURCE
0f55312a SP	162	[ -f $SOURCE/config.guess ] \|\| {
0f55312a SP	163	cd $SOURCE
1d4edfd6 JJ	164	svn -q co $svnpath/trunk .
	165	if [ $? -ne 0 ]; then
	166	echo "ERROR: initial svn checkout failed"
	167	exit 1
	168	fi
0f55312a SP	169	}
0f55312a SP	170
3825be8c TT	171	# This can contain required local settings:
	172	# default_config configure options, always passed
	173	# default_make make bootstrap options, always passed
	174	# default_check make check options, always passed
	175	[ -f $STATE/defaults ] && . $STATE/defaults
	176
0f55312a SP	177	VERSION=`svn info $SOURCE \| grep "^Revision:" \| sed -e "s/^Revision://g" -e "s/ //g"`
	178
	179	exec >> $STATE/tester.log 2>&1 \|\| exit 1
	180	set -x
	181
	182	TESTING=$STATE/testing
	183	REPORT=$TESTING/report
	184	PRISTINE=$TESTING/pristine
	185	PATCHED=$TESTING/patched
	186	PATCH=
	187	TARGET=`$SOURCE/config.guess \|\| exit 1`
	188	TESTLOGS="gcc/testsuite/gcc/gcc.sum
	189	gcc/testsuite/gfortran/gfortran.sum
	190	gcc/testsuite/g++/g++.sum
	191	gcc/testsuite/objc/objc.sum
	192	$TARGET/libstdc++-v3/testsuite/libstdc++.sum
	193	$TARGET/libffi/testsuite/libffi.sum
0f55312a SP	194	$TARGET/libgomp/testsuite/libgomp.sum
	195	$TARGET/libmudflap/testsuite/libmudflap.sum"
	196	COMPILERS="gcc/cc1
	197	gcc/cc1obj
	198	gcc/cc1plus
	199	gcc/f951
	200	gcc/jc1
	201	gcc/gnat1
	202	gcc/tree1"
	203
	204	now () {
	205	echo `TZ=UTC date +"%Y_%m_%d_%H_%M_%S"`
	206	}
	207
	208	report () {
a3ced85e	209	echo "$@" >> $REPORT
0f55312a SP	210	}
	211
	212	freport () {
	213	if [ -s $1 ]; then
	214	report "(cat $1"
	215	cat $1 >> $REPORT
	216	report "tac)"
	217	fi
	218	}
	219
	220	cleanup () {
	221	cd $SOURCE
0f55312a	222	svn cleanup && svn revert -R . && svn st \| cut -d' ' -f5- \| xargs rm -v
0f55312a SP	223	}
	224
	225	selfexec () {
3825be8c	226	exec ${CONFIG_SHELL-/bin/sh} $0 $args
0f55312a SP	227	}
	228
	229	update () {
	230	svn_branch=`grep "^branch:" $PATCH \| sed -e "s/^branch://g" -e "s/ //g"`
	231	if [ x$svn_branch = x ]; then
	232	svn_branch=trunk
	233	fi
	234
	235	svn_revision=`grep "^revision:" $PATCH \| sed -e "s/^revision://g" -e "s/ //g"`
	236	if [ x$svn_revision = x ]; then
	237	svn_revision=HEAD
	238	fi
	239
	240	cleanup
	241	cd $SOURCE
	242	case $svn_branch in
	243	trunk)
1d4edfd6	244	if ! svn switch -r $svn_revision $svnpath/trunk &> $TESTING/svn ; then
0f55312a	245	report "failed to update svn sources with"
1d4edfd6	246	report "svn switch -r $svn_revision $svnpath/trunk"
0f55312a SP	247	freport $TESTING/svn
	248	return 1
	249	fi
	250	;;
	251
1d4edfd6	252	${svnpath}*)
0f55312a SP	253	if ! svn switch -r $svn_revision $svn_branch &> $TESTING/svn ; then
	254	report "failed to update svn sources with"
	255	report "svn switch -r $svn_revision $svn_branch"
	256	freport $TESTING/svn
	257	return 1
	258	fi
	259	;;
	260
	261	*)
1d4edfd6	262	if ! svn switch -r $svn_revision $svnpath/branches/$svn_branch &> $TESTING/svn ; then
0f55312a	263	report "failed to update svn sources with"
1d4edfd6	264	report "svn switch -r $svn_revision $svnpath/branches/$svn_branch"
0f55312a SP	265	freport $TESTING/svn
	266	return 1
	267	fi
	268	;;
	269	esac
1d4edfd6	270	contrib/gcc_update --touch
0f55312a SP	271
	272	current_version=`svn info $SOURCE \| grep "^Revision:" \| sed -e "s/^Revision://g" -e "s/ //g"`
	273	if [[ $VERSION < $current_version ]]; then
	274	if [ -f $SOURCE/contrib/patch_tester.sh ]; then
	275	selfexec
	276	fi
	277	fi
	278
	279	return 0
	280	}
	281
	282	apply_patch () {
	283	if [ $nogpg = false ]; then
	284	if ! gpg --batch --verify $PATCH &> $TESTING/gpgverify ; then
	285	report "your patch failed to verify:"
	286	freport $TESTING/gpgverify
	287	return 1
	288	fi
	289	fi
	290
1d4edfd6 JJ	291	cd $SOURCE
	292	if ! patch -p0 < $PATCH &> $TESTING/patching ; then
	293	report "your patch failed to apply:"
	294	report "(check that the patch was created at the top level)"
	295	freport $TESTING/patching
	296	return 1
0f55312a	297	fi
3825be8c TT	298
	299	# Just assume indexes for now -- not really great, but svn always
	300	# makes them.
	301	grep "^Index: " $PATCH \| sed -e 's/Index: //' \| while read file; do
	302	# If the patch resulted in an empty file, delete it.
	303	# This is how svn reports deletions.
	304	if [ ! -s $file ]; then
	305	rm -f $file
	306	report "Deleting empty file $file"
	307	fi
	308	done
0f55312a SP	309	}
	310
	311	save_compilers () {
	312	for COMPILER in $COMPILERS ; do
	313	if [ -f $BUILD/$COMPILER ]; then
	314	cp $BUILD/$COMPILER $PRISTINE
	315	fi
	316	done
	317	}
	318
	319	bootntest () {
	320	rm -rf $BUILD
	321	mkdir $BUILD
	322	cd $BUILD
	323
	324	CONFIG_OPTIONS=`grep "^configure:" $PATCH \| sed -e "s/^configure://g"`
3825be8c	325	CONFIG_OPTIONS="$default_config $CONFIG_OPTIONS"
1d4edfd6 JJ	326	if ! eval $SOURCE/configure $CONFIG_OPTIONS &> $1/configure ; then
1d4edfd6 JJ	327	report "configure with `basename $1` version failed with:"
0f55312a SP	328	freport $1/configure
	329	return 1
	330	fi
	331
3825be8c TT	332	MAKE_ARGS=`grep "^make:" $PATCH \| sed -e "s/^make://g"`
3825be8c TT	333	MAKE_ARGS="$default_make $MAKE_ARGS"
1d4edfd6 JJ	334	if ! eval make $dashj $MAKE_ARGS &> $1/bootstrap ; then
1d4edfd6 JJ	335	report "bootstrap with `basename $1` version failed with last lines:"
0f55312a SP	336	tail -30 $1/bootstrap > $1/last_bootstrap
	337	freport $1/last_bootstrap
	338	report "grep --context=20 Error bootstrap:"
	339	grep --context=20 Error $1/bootstrap > $1/bootstrap_error
	340	freport $1/bootstrap_error
	341	return 1
	342	fi
	343
	344	CHECK_OPTIONS=`grep "^check:" $PATCH \| sed -e "s/^check://g"`
3825be8c	345	CHECK_OPTIONS="$default_check $CHECK_OPTIONS"
1d4edfd6 JJ	346	eval make $dashj $CHECK_OPTIONS -k check &> $1/check
	347
	348	SUITESRUN="`grep 'Summary ===' $1/check \| cut -d' ' -f 2 \| sort`"
	349	if [ x$SUITESRUN = x ]; then
	350	report "check with `basename $1` version failed, no testsuites were run"
	351	return 1
	352	fi
0f55312a SP	353
	354	for LOG in $TESTLOGS ; do
	355	if [ -f $BUILD/$LOG ]; then
	356	mv $BUILD/$LOG $1
	357	mv `echo "$BUILD/$LOG" \| sed -e "s/\.sum/\.log/g"` $1
	358	fi
	359	done
	360
	361	return 0
	362	}
	363
	364	bootntest_patched () {
	365	cleanup
	366	mkdir -p $PATCHED
	367	apply_patch && bootntest $PATCHED
	368	return $?
	369	}
	370
	371	# Build the pristine tree with exactly the same options as the patch under test.
	372	bootntest_pristine () {
	373	cleanup
1d4edfd6	374	current_branch=`svn info $SOURCE \| grep "^URL:" \| sed -e "s/URL: //g" -e "s,${svnpath},,g"`
0f55312a SP	375	current_version=`svn info $SOURCE \| grep "^Revision:" \| sed -e "s/^Revision://g" -e "s/ //g"`
	376	PRISTINE=$STATE/$current_branch/$current_version
	377
a7150b3d DK	378	if [ $nopristinecache = true ]; then
	379	rm -rf $PRISTINE
	380	fi
0f55312a SP	381	if [ -d $PRISTINE ]; then
	382	ln -s $PRISTINE $TESTING/pristine
	383	return 0
	384	else
	385	mkdir -p $PRISTINE
	386	ln -s $PRISTINE $TESTING/pristine
	387	bootntest $PRISTINE
	388	RETVAL=$?
	389	if [ $RETVAL = 0 -a $savecompilers = true ]; then
	390	save_compilers
	391	fi
	392	return $RETVAL
	393	fi
	394	}
	395
	396	regtest () {
	397	touch $1/report
	398	touch $1/passes
	399	touch $1/failed
	400	touch $1/regress
	401
	402	for LOG in $TESTLOGS ; do
	403	NLOG=`basename $LOG`
	404	if [ -f $1/$NLOG ]; then
	405	awk '/^FAIL: / { print "'$NLOG'",$2; }' $1/$NLOG
	406	fi
	407	done \| sort \| uniq > $1/failed
	408
	409	comm -12 $1/failed $1/passes >> $1/regress
	410	NUMREGRESS=`wc -l < $1/regress \| tr -d ' '`
	411
	412	if [ $NUMREGRESS -eq 0 ] ; then
	413	for LOG in $TESTLOGS ; do
	414	NLOG=`basename $LOG`
	415	if [ -f $1/$NLOG ] ; then
	416	awk '/^PASS: / { print "'$NLOG'",$2; }' $1/$NLOG
	417	fi
	418	done \| sort \| uniq \| comm -23 - $1/failed > $1/passes
	419	echo "there are no regressions with your patch." >> $1/report
	420	else
	421	echo "with your patch there are $NUMREGRESS regressions." >> $1/report
	422	echo "list of regressions with your patch:" >> $1/report
	423	cat $1/regress >> $1/report
	424	fi
	425	}
	426
	427	contrib_compare_tests () {
	428	report "comparing logs with contrib/compare_tests:"
	429	for LOG in $TESTLOGS ; do
	430	NLOG=`basename $LOG`
	431	if [ -f $PRISTINE/$NLOG -a -f $PATCHED/$NLOG ]; then
	432	$SOURCE/contrib/compare_tests $PRISTINE/$NLOG $PATCHED/$NLOG > $TESTING/compare_$NLOG
	433	freport $TESTING/compare_$NLOG
	434	fi
	435	done
	436	}
	437
	438	compare_passes () {
	439	regtest $PRISTINE
	440	cp $PRISTINE/passes $PATCHED
	441	regtest $PATCHED
	442	freport $PATCHED/report
	443	report "FAILs with patched version:"
	444	freport $PATCHED/failed
445	report "FAILs with pristine version:"
446	freport $PRISTINE/failed
447
448	# contrib_compare_tests
449	}
450
451	write_report () {
452	backup_patched=$STATE/patched/`now`
453	report "The files used for the validation of your patch are stored in $backup_patched on the tester machine."
454
455	EMAIL=`grep "^email:" $PATCH \| sed -e "s/^email://g" -e "s/ //g"`
456	if [ x$EMAIL != x ]; then
457	mutt -s "[regtest] Results for `basename $PATCH` on $TARGET" -i $REPORT -a $PATCH $EMAIL
458	fi
459
460	mv $TESTING $backup_patched
461	}
462
463	announce () {
464	EMAIL=`grep "^email:" $PATCH \| sed -e "s/^email://g" -e "s/ //g"`
465	if [ x$EMAIL != x ]; then
466
467	START_REPORT=$TESTING/start_report
468	echo "Hi, " >> $START_REPORT
469	echo "I'm the automatic tester running on $TARGET." >> $START_REPORT
470	echo "I just started to look at your patch `basename $PATCH`." >> $START_REPORT
471	echo "Bye, your automatic tester." >> $START_REPORT
472	mutt -s "[regtest] Starting bootstrap for `basename $PATCH` on $TARGET" -i $START_REPORT $EMAIL
473	fi
474	}
475
476	# After selfexec, $TESTING is already set up.
477	if [ -d $TESTING ]; then
478	# The only file in $TESTING is the patch.
479	PATCH=`ls -rt -1 $TESTING \| head -1`
480	PATCH=$TESTING/$PATCH
481	if [ -f $PATCH ]; then
482	bootntest_patched && bootntest_pristine && compare_passes
483	write_report
484	fi
485	fi
486
1d4edfd6	487	firstpatch=true
0f55312a SP	488	while true; do
	489	PATCH=`ls -rt -1 $PATCHES \| head -1`
	490	if [ x$PATCH = x ]; then
1d4edfd6 JJ	491	if [ $stop = true ]; then
	492	if [ $firstpatch = true ]; then
	493	echo "No patches ready to test, quitting."
	494	exit 1
	495	else
	496	echo "No more patches to test."
	497	exit 0
	498	fi
	499	fi
0f55312a SP	500	sleep ${standby}m
0f55312a SP	501	else
1d4edfd6	502	firstpatch=false
0f55312a SP	503	sysload=`uptime \| cut -d, -f 5`
	504	if [[ $sysload > $watermark ]]; then
	505	# Wait a bit when system load is too high.
	506	sleep ${standby}m
	507	else
	508	mkdir -p $TESTING
	509	mv $PATCHES/$PATCH $TESTING/
	510	PATCH=$TESTING/$PATCH
	511
	512	announce
	513	update && bootntest_patched && bootntest_pristine && compare_passes
	514	write_report
	515	fi
	516	fi
	517	done