#!/usr/bin/perl
use File::Copy;

if ($#ARGV >= 0) {
  $name = $ARGV[0];
} else {
  $ostype = `echo \$OSTYPE`;
  $ostype = lc $ostype;
  if ($ostype =~ /darwin/) {
    $name="osx";
  } elsif ($ostype =~ /sun/) {
    $name="solaris";
  } elsif ($ostype =~ /solaris/) {
    $name="solaris";
  } elsif ($ostype =~ /linux/) {
    $name="linux";
  } elsif ($ostype =~ /windows/) {
    $name="windows";
  }
  else {
    die "Unknown OSTYPE.  Please specify an architecture.";
  }
}
print "Copying arch/$name.mk to local.mk...\n";
copy("arch/$name.mk", "./local.mk") || die "Could not copy arch/$name.mk";
print "Done.  Now run make.\n";
