123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123 |
- # Take the list of files and turn them into an html file that points
- # at their context & mem latency GIFs.
- #
- # Usage: html-list file file file....
- #
- # Hacked into existence by Larry McVoy (lm@sun.com now lm@sgi.com).
- # Copyright (c) 1995 Larry McVoy. GPLed software.
- # $Id$
- eval 'exec perl -Ssw $0 "$@"'
- if 0;
- open(H, ">HTML/specific.html");
- print H <<EOF;
- <title>LMBENCH System Results</title>
- <h1>LMBENCH System Results</h1>
- <h2><a href=summary>Summary of results</a></h2>
- <hr>
- EOF
- # The order that is passed in is the order of the generated
- # graphs so save that.
- $val = 0;
- foreach $file (@ARGV) {
- $number{$file} = ++$val;
- }
- # Now sort them so we can group by OS
- @ARGV = sort(@ARGV);
- # Figure out the different OS
- foreach $file (@ARGV) {
- ($os = $file) =~ s|/.*||;
- push(@os, $os);
- $done{$os} = 0;
- }
- foreach $os (@os) {
- next if $done{$os};
- $done{$os} = 1;
- # Print out an OS specific heading
- print H "<hr><h2>Results from $os</h2><p>\n";
- for ($i = 0; $i <= $#os; $i++) {
- $file = $ARGV[$i];
- next unless $file =~ /$os/;
- open(F, $file);
- $_ = <F>;
- close(F);
- next unless /lmbench1.[01]/;
- chop;
- $title = $_;
- #s/.lmbench1.? results for //;
- ($sys = $file) =~ s|.*/||;
- if ($i > 0) {
- ($prev_sys = $ARGV[$i - 1]) =~ s|.*/||;
- }
- if ($i < $#os) {
- ($next_sys = $ARGV[$i + 1]) =~ s|.*/||;
- }
- print H <<EOF;
- <h3>Dataset: $sys</h3>
- <h4>$title</h4>
- <a href="${sys}-ctx.html">Context switch details</a>,
- <a href="${sys}-bwmem.html">memory bandwidths</a>,
- <a href="${sys}-bwfile.html">file reread vs. memory bandwidths</a>,
- and
- <a href="${sys}-mem.html">memory latencies</a>.
- EOF
- # Create the files referencing the data GIFs
- $N = sprintf("%02d", $number{$file});
- $prev = $next = "";
- %label = ('ctx', 'context switching',
- 'mem', 'memory latency',
- 'bwmem', 'memory bandwidth',
- 'bwfile', 'file reread bandwidth');
- %doc = ('ctx', 'lat_ctx.8.html',
- 'mem', 'lat_mem_rd.8.html',
- 'bwmem', 'bw_mem.8.html',
- 'bwfile', 'bw_file_rd.8.html');
- $back = "<img align=middle src=\"../gifs/arrows/back.gif\">";
- $forward = "<img align=middle src=\"../gifs/arrows/forward.gif\">";
- for $what ('ctx', 'mem', 'bwmem', 'bwfile') {
- for $scale ('', '-unscaled') {
- open(S, ">HTML/${sys}-${what}${scale}.html");
- if ($scale eq '') {
- $notscale = "-unscaled";
- $lab = "";
- $Lab = "Unscaled ";
- } else {
- $notscale = "";
- $lab = "scaled ";
- $Lab = "Scaled ";
- }
- $prev =
- "<a href=${prev_sys}-${what}${scale}.html>
- Previous ${lab}$label{$what} result</a><p>"
- if $i > 0;
- $next =
- "<a href=${next_sys}-${what}.html>
- Next ${lab}$label{$what} result</a><p>"
- if $i < $#os;
- print S<<EOF;
- <h4>$title</h4>
- <a href=../$doc{$what}>Information on this benchmark</a> (Not up to date)
- <p><IMG SRC="${what}${scale}$N.gif">\n<p>
- <a href=../lmbench.html>
- <img align=middle src="../gifs/arrows/b_arrow.gif">LMBENCH table of contents</a>
- <a href=specific.html>
- <img align=middle src=\"../gifs/graph.gif\">System results table of contents</a>
- <p>
- $next
- $prev
- <a href=${sys}-${what}${notscale}.html>
- ${Lab}$label{$what} results for this system</a>
- EOF
- }
- }
- }
- }
- exit 0;
|