diff options
author | David E. O'Brien <obrien@FreeBSD.org> | 2001-05-17 17:23:36 +0000 |
---|---|---|
committer | David E. O'Brien <obrien@FreeBSD.org> | 2001-05-17 17:23:36 +0000 |
commit | de2a11edaae875771c24862c5fc98840dc909c9f (patch) | |
tree | 90a95e29b2eb794eb11d88e91140dbc660e2b351 /benchmarks/lmbench | |
parent | Change defaults to match FreeBSD, not Linux. (diff) |
Rewrite the per4 in perl5.
Submitted by: eivind
Approved by: fenner
Notes
Notes:
svn path=/head/; revision=42678
Diffstat (limited to 'benchmarks/lmbench')
-rw-r--r-- | benchmarks/lmbench/files/patch-getbg | 214 |
1 files changed, 214 insertions, 0 deletions
diff --git a/benchmarks/lmbench/files/patch-getbg b/benchmarks/lmbench/files/patch-getbg new file mode 100644 index 000000000000..97c8f64a257a --- /dev/null +++ b/benchmarks/lmbench/files/patch-getbg @@ -0,0 +1,214 @@ +--- scripts/getbg.orig Mon May 7 06:28:25 2001 ++++ scripts/getbg Mon May 7 07:07:10 2001 +@@ -1,12 +1,10 @@ +- ++#!/usr/bin/perl + # Extract bargraph data from lmbench results. + # Usage: getbg file file file.... + # + # Hacked into existence by Larry McVoy (lm@sun.com now lm@sgi.com). + # Copyright (c) 1994 Larry McVoy. GPLed software. + # $Id: getbg,v 1.14 1995/11/11 04:15:18 lm Exp $ +-eval "exec perl -Sws $0 $*" +- if 0; + + @bw_file = @files = @lat_ctx32_8 = @lat_ctx32 = @lat_ctx8 = @lat_ctx = + @lat_shproc = @lat_simpleproc = @lat_nullproc = +@@ -24,66 +22,66 @@ + while (<FD>) { + chop; + if (/^\[lmbench/) { +- split; ++ @_ = split; + if ($_[3] eq "SunOS") { + $_[3] .= "-$_[5]"; + } + push(@uname, "@_"); + } + if (/Mhz/) { +- split; ++ @_ = split; + push(@misc_mhz, $_[0]); + } + if (/^Null syscall:/) { +- split; ++ @_ = split; + push(@lat_nullsys, $_[2]); + } + if (/^Signal handler installation:/) { +- split; ++ @_ = split; + push(@lat_sigaction, $_[3]); + } + if (/^Signal handler overhead:/) { +- split; ++ @_ = split; + push(@lat_signal, $_[3]); + } + if (/^Pipe latency:/) { +- split; ++ @_ = split; + push(@lat_pipe, $_[2]); + } + if (/UDP latency using localhost:/) { +- split; ++ @_ = split; + push(@lat_udp_local, $_[4]); + } + if (/TCP latency using localhost/) { +- split; ++ @_ = split; + push(@lat_tcp_local, $_[4]); + } + if (/RPC.udp latency using localhost/) { +- split; ++ @_ = split; + push(@lat_rpc_udp_local, $_[4]); + } + if (/RPC.tcp latency using localhost/) { +- split; ++ @_ = split; + push(@lat_rpc_tcp_local, $_[4]); + } + if (/TCP\/IP connection cost to localhost/) { +- split; ++ @_ = split; + push(@lat_connect, $_[5]); + } + if (/^Process fork.exit/) { +- split; ++ @_ = split; + push(@lat_nullproc, $_[2]); + } + if (/^Process fork.execve:/) { +- split; ++ @_ = split; + push(@lat_simpleproc, $_[2]); + } + if (/^Process fork..bin.sh/) { +- split; ++ @_ = split; + push(@lat_shproc, $_[3]); + } + if (/^Pagefaults on/) { +- split; ++ @_ = split; + push(@lat_pagefault, $_[3]); + } + if (/size=0 ovr=/) { +@@ -94,7 +92,7 @@ + push(@lat_ctx, -1); + } + next unless /^2/; +- split; ++ @_ = split; + push(@lat_ctx, $_[1]); + last; + } +@@ -105,7 +103,7 @@ + push(@lat_ctx, -1); + } + next unless /^8/; +- split; ++ @_ = split; + push(@lat_ctx8, $_[1]); + last; + } +@@ -118,7 +116,7 @@ + push(@lat_ctx32, -1); + } + next unless /^2/; +- split; ++ @_ = split; + push(@lat_ctx32, $_[1]); + last; + } +@@ -129,25 +127,25 @@ + push(@lat_ctx32_8, -1); + } + next unless /^8/; +- split; ++ @_ = split; + push(@lat_ctx32_8, $_[1]); + last; + } + } + if (/^Pipe bandwidth/) { +- split; ++ @_ = split; + push(@bw_pipe, $_[2]); + } + if (/^Socket bandwidth using localhost/) { +- split; ++ @_ = split; + push(@bw_tcp_local, $_[4]); + } + if (/^Disk .* latency:/) { +- split; ++ @_ = split; + push(@lat_disk, $_[3]); + } + if (/^File .* write bandwidth/) { +- split; ++ @_ = split; + $bw = sprintf("%.2f", $_[4] / 1024.); + push(@bw_file, $bw); + } +@@ -180,7 +178,7 @@ + push(@bw_mem_wr, $value); + } + if (/^0k\s/) { +- split; ++ @_ = split; + push(@lat_fs_create, int(1000000/$_[2])); + push(@lat_fs_delete, int(1000000/$_[3])); + } +@@ -188,13 +186,13 @@ + $save = -1; + while (<FD>) { + if (/^0.00098\s/) { +- split; ++ @_ = split; + push(@lat_l1, $_[1]); + } elsif (/^0.12500\s/) { +- split; ++ @_ = split; + push(@lat_l2, $_[1]); + } elsif (/^[45678].00000\s/) { +- split; ++ @_ = split; + $size = $_[0]; + $save = $_[1]; + last if /^8.00000\s/; +@@ -661,18 +659,18 @@ + + sub papernames + { +- $_ = "IBM PowerPC" if /AIX powerpc@134/; +- $_ = "IBM Power2" if /AIX rs6000-990@71/; +- $_ = "FreeBSD/i586" if /FreeBSD i586@133/; +- $_ = "HP 9000/819" if /HP-UX 9000.819@/; +- $_ = "SGI Challenge" if /IRIX.* IP19@/; +- $_ = "SGI Indigo2" if /IRIX.* IP22@/; +- $_ = "Linux/Alpha" if /Linux alpha@/; +- $_ = "Linux/i686" if /Linux i686@/; +- $_ = "Linux/i586" if /Linux i586@/; +- $_ = "DEC Alpha@150" if /OSF1 alpha@147/; +- $_ = "DEC Alpha@300" if /OSF1 alpha@303/; +- $_ = "Sun SC1000" if /SunOS-5.5 sun4d@5/; ++ $_ = "IBM PowerPC" if /AIX powerpc\@134/; ++ $_ = "IBM Power2" if /AIX rs6000-990\@71/; ++ $_ = "FreeBSD/i586" if /FreeBSD i586\@133/; ++ $_ = "HP 9000/819" if /HP-UX 9000.819\@/; ++ $_ = "SGI Challenge" if /IRIX.* IP19\@/; ++ $_ = "SGI Indigo2" if /IRIX.* IP22\@/; ++ $_ = "Linux/Alpha" if /Linux alpha\@/; ++ $_ = "Linux/i686" if /Linux i686\@/; ++ $_ = "Linux/i586" if /Linux i586\@/; ++ $_ = "DEC Alpha\@150" if /OSF1 alpha\@147/; ++ $_ = "DEC Alpha\@300" if /OSF1 alpha\@303/; ++ $_ = "Sun SC1000" if /SunOS-5.5 sun4d\@5/; + $_ = "Sun Ultra1" if /SunOS-5.5 sun4u/; + $_ = "Unixware/i686" if /UNIX_SV x86at/; + } + |