Blame SPECS/glibc-bench-compare

Packit Service 5b0be0
#!/usr/bin/bash
Packit Service 5b0be0
# This script can be invoked as follows:
Packit Service 5b0be0
#
Packit Service 5b0be0
# glibc-bench-compare [options] <BUILD> [BUILD]
Packit Service 5b0be0
#
Packit Service 5b0be0
# Options may be one of the following:
Packit Service 5b0be0
#
Packit Service 5b0be0
# -t		The BUILD arguments are task ids and not a version-release string
Packit Service 5b0be0
# -a ARCH	Do comparison for ARCH architecture
Packit Service 5b0be0
#
Packit Service 5b0be0
# If any of the above options are given, both BUILD arguments must be given.
Packit Service 5b0be0
# Otherwise, if only one BUILD is specified, then it is compared against the
Packit Service 5b0be0
# installed glibc.
Packit Service 5b0be0
Packit Service 5b0be0
# Silence the pushd/popd messages
Packit Service 5b0be0
pushd() {
Packit Service 5b0be0
	command pushd "$@" > /dev/null 2>&1
Packit Service 5b0be0
}
Packit Service 5b0be0
Packit Service 5b0be0
popd() {
Packit Service 5b0be0
	command popd "$@" > /dev/null 2>&1
Packit Service 5b0be0
}
Packit Service 5b0be0
Packit Service 5b0be0
# Clean up any downloaded files before we exit
Packit Service 5b0be0
trap "rm -rf /tmp/glibc-bench-compare.$BASHPID.*" EXIT
Packit Service 5b0be0
Packit Service 5b0be0
task=0
Packit Service 5b0be0
arch=$(uname -i)
Packit Service 5b0be0
options=0
Packit Service 5b0be0
path=0
Packit Service 5b0be0
installed=
Packit Service 5b0be0
Packit Service 5b0be0
# Look for any commandline options
Packit Service 5b0be0
while getopts ":tpa:" opt; do
Packit Service 5b0be0
	case $opt in
Packit Service 5b0be0
		p)
Packit Service 5b0be0
		path=1
Packit Service 5b0be0
		;;
Packit Service 5b0be0
		t)
Packit Service 5b0be0
		task=1
Packit Service 5b0be0
		options=1
Packit Service 5b0be0
		echo "Not implemented."
Packit Service 5b0be0
		exit 1
Packit Service 5b0be0
		;;
Packit Service 5b0be0
		a)
Packit Service 5b0be0
		arch=$OPTARG
Packit Service 5b0be0
		options=1
Packit Service 5b0be0
		;;
Packit Service 5b0be0
		*)
Packit Service 5b0be0
		;;
Packit Service 5b0be0
	esac
Packit Service 5b0be0
done
Packit Service 5b0be0
Packit Service 5b0be0
# Done, now shift all option arguments out.
Packit Service 5b0be0
shift $((OPTIND-1))
Packit Service 5b0be0
Packit Service 5b0be0
if [ $# -gt 2 ] || [ $# -eq 0 ] || [ $# -lt 2 -a $options -eq 1 ]; then
Packit Service 5b0be0
	echo "Usage: $0 [OPTIONS] <old> [new]"
Packit Service 5b0be0
	echo
Packit Service 5b0be0
	echo "OPTIONS:"
Packit Service 5b0be0
	echo -e "\t-t\tCompare two brew tasks"
Packit Service 5b0be0
	echo -e "\t-a ARCH\tGet rpms for the ARCH architecture"
Packit Service 5b0be0
	echo -e "\t-p\tCompare built rpms in two paths."
Packit Service 5b0be0
	echo -e "\t\tThis minimally needs glibc, glibc-common and glibc-benchtests"
Packit Service 5b0be0
	exit 1
Packit Service 5b0be0
fi
Packit Service 5b0be0
Packit Service 5b0be0
if [ -z $2 ]; then
Packit Service 5b0be0
	new="$1"
Packit Service 5b0be0
	old=$(rpm --queryformat "%{VERSION}-%{RELEASE}\n" -q glibc | head -1)
Packit Service 5b0be0
	installed=$old
Packit Service 5b0be0
else
Packit Service 5b0be0
	new="$2"
Packit Service 5b0be0
	old="$1"
Packit Service 5b0be0
fi
Packit Service 5b0be0
Packit Service 5b0be0
decompress_rpms() {
Packit Service 5b0be0
	# We were given a path to the rpms.  Figure out the version-release and
Packit Service 5b0be0
	# decompress the rpms.
Packit Service 5b0be0
	if [ -n $1 ]; then
Packit Service 5b0be0
		vr=$(rpm --queryformat="%{VERSION}-%{RELEASE}" -qp $1/glibc-2*.rpm | head -1)
Packit Service 5b0be0
		mkdir $vr && pushd $vr
Packit Service 5b0be0
	fi
Packit Service 5b0be0
Packit Service 5b0be0
	for r in $1*.rpm; do
Packit Service 5b0be0
		( rpm2cpio $r | cpio -di ) > /dev/null
Packit Service 5b0be0
	done
Packit Service 5b0be0
Packit Service 5b0be0
	if [ -n $1 ]; then
Packit Service 5b0be0
		popd
Packit Service 5b0be0
		echo $vr
Packit Service 5b0be0
	fi
Packit Service 5b0be0
}
Packit Service 5b0be0
Packit Service 5b0be0
# Get rpms for a build and decompress them
Packit Service 5b0be0
get_build() {
Packit Service 5b0be0
	echo "Processing build $1"
Packit Service 5b0be0
	mkdir $1 && pushd $1
Packit Service 5b0be0
	brew buildinfo "glibc-$1" |
Packit Service 5b0be0
	sed -n -e "s|/mnt/koji\(.\+$arch.\+\)|http://kojipkgs.fedoraproject.org\1|p" |
Packit Service 5b0be0
	while read url; do
Packit Service 5b0be0
		echo "Downloading $url"
Packit Service 5b0be0
		wget -q $url
Packit Service 5b0be0
	done
Packit Service 5b0be0
	decompress_rpms
Packit Service 5b0be0
Packit Service 5b0be0
	echo "Removing rpms"
Packit Service 5b0be0
	rm -f $1/*.rpm
Packit Service 5b0be0
Packit Service 5b0be0
	popd
Packit Service 5b0be0
}
Packit Service 5b0be0
Packit Service 5b0be0
# Run benchmarks for a build
Packit Service 5b0be0
run_bench() {
Packit Service 5b0be0
	if [ -z $1 ]; then
Packit Service 5b0be0
		make DETAILED=1 ver=$installed prefix= -f /usr/libexec/glibc-benchtests/bench.mk bench
Packit Service 5b0be0
	else
Packit Service 5b0be0
		make DETAILED=1 ver=$1 prefix=$PWD -f $1/usr/libexec/glibc-benchtests/bench.mk bench
Packit Service 5b0be0
	fi
Packit Service 5b0be0
}
Packit Service 5b0be0
Packit Service 5b0be0
# Get absolute paths if needed, since we will change into the working directory
Packit Service 5b0be0
# next.
Packit Service 5b0be0
if [ $path -eq 1 ]; then
Packit Service 5b0be0
	old_path=$(realpath $old)/
Packit Service 5b0be0
	new_path=$(realpath $new)/
Packit Service 5b0be0
fi
Packit Service 5b0be0
Packit Service 5b0be0
tmpdir=$(mktemp -p /tmp -d glibc-bench-compare.$$.XXXX)
Packit Service 5b0be0
pushd $tmpdir
Packit Service 5b0be0
Packit Service 5b0be0
# Get both builds.
Packit Service 5b0be0
if [ $path -eq 0 ]; then
Packit Service 5b0be0
	if [ -z $installed ]; then
Packit Service 5b0be0
		get_build $old
Packit Service 5b0be0
	fi
Packit Service 5b0be0
	get_build $new
Packit Service 5b0be0
else
Packit Service 5b0be0
	old=$(decompress_rpms $old_path)
Packit Service 5b0be0
	new=$(decompress_rpms $new_path)
Packit Service 5b0be0
fi
Packit Service 5b0be0
Packit Service 5b0be0
# make bench for each of those.
Packit Service 5b0be0
if [ -z $installed ]; then
Packit Service 5b0be0
	run_bench $old
Packit Service 5b0be0
else
Packit Service 5b0be0
	run_bench
Packit Service 5b0be0
fi
Packit Service 5b0be0
run_bench $new
Packit Service 5b0be0
Packit Service 5b0be0
# Now run the comparison script.
Packit Service 5b0be0
$old/usr/libexec/glibc-benchtests/compare_bench.py $old/usr/libexec/glibc-benchtests/benchout.schema.json \
Packit Service 5b0be0
	bench.$old.out bench.$new.out