#!/usr/bin/perl

# benchunpack
#
# Written by Paul Caskey on 20 Jan 1997.
# Unpacks Al Aburto's suite of benchmarks to a "bench" subdir.
# See also benchfrob, benchmake, and benchrun.
#
# Welcome to my little suite of scripts I wrote to automate the tedious
# task of unpacking, tweaking/frobbing, making, and running Al Aburto's
# wonderful suite of benchmarks.
# 
# The order to run these things is:
#
# 1. benchunpack
# 2. benchfrob  (optional)
# 3. benchmake
# 4. benchrun
#
# If you're brave (and maybe crazy), edit the user-definable variables
# at the top of each script, make sure bench.tar.gz exists in the current
# directory, and then do:
# 
# benchunpack ; benchfrob ; benchmake ; benchrun
#
# If all goes well, you'll end up with a file called thing.res where 
# thing is the name of your machine.  Good luck.

mkdir("bench", 0777) || die;
chdir("bench") || die;
`gunzip < ../bench.tar.gz | tar xf -`;

foreach $file (`/bin/ls`) {
   chop($file);
   if ($file =~ /(.*)\.shar/) {
      mkdir($1, 0777) || die;
      chdir($1) || die;
      `sh ../$file`;
      chdir("..") || die;
      `mv $1?* $1`;
     }
   }