Blame SPECS/glibc-bench-compare

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