From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 14 Sep 1995 13:22:12 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~5949
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c46669bdb6cbbebe4e8abebd3515bdc3d9376b42;p=mit-scheme.git

Initial revision
---

diff --git a/v8/src/bench/compare-logs b/v8/src/bench/compare-logs
new file mode 100755
index 000000000..9faaa36c0
--- /dev/null
+++ b/v8/src/bench/compare-logs
@@ -0,0 +1,45 @@
+#!/bin/sh
+#
+# e.g:
+#  echo 'Ignore: bogus1 bogus2' | compare-logs - LOG.7.3 LOG.8.0 | neat
+#
+
+awk '
+BEGIN	{}
+/^Ignore:/	{ for (i=2; i<=NF; i++) ign[$i]=1 }
+/^Benchmark:/	{ name = $2 }
+/^Time:/	{ m[name] = m[name] " " $2; name = "<error>" }
+END	{
+	tests = 0
+	for(i=0;i<100;i++) p[i]=1
+	for (b in m)
+	  if (ign[b]!=1) {
+		tests++
+		n = split (m[b], t)
+		printf "%s",b
+		for (i=1; i<=n; i++) {
+			printf "\t%.2f",t[i]
+			s[i*10]="-"
+			for (j=1; j<i; j++) {
+				r = t[i]/(t[j]+1e-10)
+				printf "\t%.3f",r
+				s[i*10+j] += r
+				p[i*10+j] *= r
+			}
+		}
+		print ""
+	}
+	printf "~a.mean"
+	for (i = 1; i< 100; i++) {
+		if (s[i]=="-")  printf"\t-"
+		else if (s[i]!="")  printf"\t%.3f",s[i]/tests;
+	}
+	print ""
+	printf "~g.mean"
+	for (i = 1; i< 100; i++) {
+		if (s[i]=="-")  printf"\t-"
+		else if (s[i]!="")  printf"\t%.3f",p[i]^(1/tests);
+	}
+	print ""
+}
+' "$@"
\ No newline at end of file