From 9500bf9486cc604992bb827b0a09644ea7458237 Mon Sep 17 00:00:00 2001
From: Philip Craig <philipjcraig@gmail.com>
Date: Fri, 2 Aug 2024 18:40:42 +1000
Subject: [PATCH] Cleanup existing scripts

---
 bench.plot.r                       |  23 ------
 benchmark.sh                       | 112 -----------------------------
 coverage.sh => scripts/coverage.sh |   0
 3 files changed, 135 deletions(-)
 delete mode 100644 bench.plot.r
 delete mode 100755 benchmark.sh
 rename coverage.sh => scripts/coverage.sh (100%)

diff --git a/bench.plot.r b/bench.plot.r
deleted file mode 100644
index ecbf248..0000000
--- a/bench.plot.r
+++ /dev/null
@@ -1,23 +0,0 @@
-v <- read.table(file("stdin"))
-t <- data.frame(prog=v[,1], funcs=(v[,2]=="func"), time=v[,3], mem=v[,4], stringsAsFactors=FALSE)
-
-t$prog <- as.character(t$prog)
-t$prog[t$prog == "master"] <- "gimli-rs/addr2line"
-t$funcs[t$funcs == TRUE] <- "With functions"
-t$funcs[t$funcs == FALSE] <- "File/line only"
-t$mem = t$mem / 1024.0
-
-library(ggplot2)
-p <- ggplot(data=t, aes(x=prog, y=time, fill=prog))
-p <- p + geom_bar(stat = "identity")
-p <- p + facet_wrap(~ funcs)
-p <- p + theme(axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank())
-p <- p + ylab("time (s)") + ggtitle("addr2line runtime")
-ggsave('time.png',plot=p,width=10,height=6)
-
-p <- ggplot(data=t, aes(x=prog, y=mem, fill=prog))
-p <- p + geom_bar(stat = "identity")
-p <- p + facet_wrap(~ funcs)
-p <- p + theme(axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank())
-p <- p + ylab("memory (kB)") + ggtitle("addr2line memory usage")
-ggsave('memory.png',plot=p,width=10,height=6)
diff --git a/benchmark.sh b/benchmark.sh
deleted file mode 100755
index e126050..0000000
--- a/benchmark.sh
+++ /dev/null
@@ -1,112 +0,0 @@
-#!/bin/bash
-if [[ $# -le 1 ]]; then
-	echo "Usage: $0 <executable> [<addresses>] REFS..."
-	exit 1
-fi
-target="$1"
-shift
-
-addresses=""
-if [[ -e "$1" ]]; then
-	addresses="$1"
-	shift
-fi
-
-# path to "us"
-# readlink -f, but more portable:
-dirname=$(perl -e 'use Cwd "abs_path";print abs_path(shift)' "$(dirname "$0")")
-
-# https://stackoverflow.com/a/2358432/472927
-{
-	# compile all refs
-	pushd "$dirname" > /dev/null
-	# if the user has some local changes, preserve them
-	nstashed=$(git stash list | wc -l)
-	echo "==> Stashing any local modifications"
-	git stash --keep-index > /dev/null
-	popstash() {
-		# https://stackoverflow.com/q/24520791/472927
-		if [[ "$(git stash list | wc -l)" -ne "$nstashed" ]]; then
-			echo "==> Restoring stashed state"
-			git stash pop > /dev/null
-		fi
-	}
-	# if the user has added stuff to the index, abort
-	if ! git diff-index --quiet HEAD --; then
-		echo "Refusing to overwrite outstanding git changes"
-		popstash
-		exit 2
-	fi
-	current=$(git symbolic-ref --short HEAD)
-	for ref in "$@"; do
-		echo "==> Compiling $ref"
-		git checkout -q "$ref"
-		commit=$(git rev-parse HEAD)
-		fn="target/release/addr2line-$commit"
-		if [[ ! -e "$fn" ]]; then
-			cargo build --release --example addr2line
-			cp target/release/addr2line "$fn"
-		fi
-		if [[ "$ref" != "$commit" ]]; then
-			ln -sfn "addr2line-$commit" target/release/addr2line-"$ref"
-		fi
-	done
-	git checkout -q "$current"
-	popstash
-	popd > /dev/null
-
-	# get us some addresses to look up
-	if [[ -z "$addresses" ]]; then
-		echo "==> Looking for benchmarking addresses (this may take a while)"
-		addresses=$(mktemp tmp.XXXXXXXXXX)
-		objdump -C -x --disassemble -l "$target" \
-			| grep -P '0[048]:' \
-			| awk '{print $1}' \
-			| sed 's/:$//' \
-			> "$addresses"
-		echo "  -> Addresses stored in $addresses; you should re-use it next time"
-	fi
-
-	run() {
-		func="$1"
-		name="$2"
-		cmd="$3"
-		args="$4"
-		printf "%s\t%s\t" "$name" "$func"
-		if [[ "$cmd" =~ llvm-symbolizer ]]; then
-			/usr/bin/time -f '%e\t%M' "$cmd" $args -obj="$target" < "$addresses" 2>&1 >/dev/null
-		else
-			/usr/bin/time -f '%e\t%M' "$cmd" $args -e "$target" < "$addresses" 2>&1 >/dev/null
-		fi
-	}
-
-	# run without functions
-	log1=$(mktemp tmp.XXXXXXXXXX)
-	echo "==> Benchmarking"
-	run nofunc binutils addr2line >> "$log1"
-	#run nofunc elfutils eu-addr2line >> "$log1"
-	run nofunc llvm-sym llvm-symbolizer -functions=none >> "$log1"
-	for ref in "$@"; do
-		run nofunc "$ref" "$dirname/target/release/addr2line-$ref" >> "$log1"
-	done
-	cat "$log1" | column -t
-
-	# run with functions
-	log2=$(mktemp tmp.XXXXXXXXXX)
-	echo "==> Benchmarking with -f"
-	run func binutils addr2line "-f -i" >> "$log2"
-	#run func elfutils eu-addr2line "-f -i"  >> "$log2"
-	run func llvm-sym llvm-symbolizer "-functions=linkage -demangle=0" >> "$log2"
-	for ref in "$@"; do
-		run func "$ref" "$dirname/target/release/addr2line-$ref" "-f -i" >> "$log2"
-	done
-	cat "$log2" | column -t
-	cat "$log2" >> "$log1"; rm "$log2"
-
-	echo "==> Plotting"
-	Rscript --no-readline --no-restore --no-save "$dirname/bench.plot.r" < "$log1"
-
-	echo "==> Cleaning up"
-	rm "$log1"
-	exit 0
-}
diff --git a/coverage.sh b/scripts/coverage.sh
similarity index 100%
rename from coverage.sh
rename to scripts/coverage.sh