#! /usr/bin/perl -w

## Checks for the existence of a file, given a parameter row on the
## command line.

use strict;

if ($#ARGV < 1) {
  &usage;
  exit -1;
}

my $num_params = shift;
my @param_names;
my @param_vals;
my $counter = 0;

for ($counter = 0; $counter < $num_params; $counter++) {
  $param_names[$counter] = shift;
}

for ($counter = 0; $counter < $num_params; $counter++) {
  $param_vals[$counter] = shift;
}

my $prefix = '';
my $suffix = '.bin';

if ($#ARGV >= 0) {
  $prefix = shift;
  $suffix = shift if ($#ARGV >= 0);
}

my $n = 0;
my @name_vals = @param_vals;
@name_vals = grep {$_ = $_ . "_" . $param_names[$n]
			if $n <= $#param_names;
		      $n = $n + 1; ($n - 1) <= $#param_names}
  @param_vals;

# Do it again, because we destroyed it?
#@param_vals = split /\s+/;
my $filename = $prefix . join('_', @name_vals) . $suffix;
#print STDERR "$filename\n";

# Do the existence check
if ( -r $filename ) {
  #print STDERR "Found: $filename\n";
  exit 0;
} else {
  #print STDERR "Missing: $filename\n";
  exit -1;
}

sub usage {
  print << "END";
 Usage:
	$0 num_params param_names param_vals [prefix [suffix]]

 Given the parameters and values, generates a genesis data file and
 checks for its exsitence. optional prefix and suffix strings for the
 data file name can be specified.

 Cengiz Gunay <cgunay\@emory.edu>, 2005/07/01

END
}