#!/usr/bin/perl



$option = $ARGV[0];
shift @ARGV;
if ( $option =~ /^a/) {
  rename $ARGV[0], $ARGV[0]."tmp";
  $command ="/usr/local/dlx/rte/lib/gcc-lib/dlx/2.7.2.3/ar0 -o  @ARGV $ARGV[0]"."tmp";
  system $command; 
  rename $ARGV[0]."tmp", "/dev/null";
}
elsif ( $option =~ /^c/) {
  if (-e $ARGV[0]) {
  rename $ARGV[0], $ARGV[0]."tmp";
  $temp = $ARGV[0]."tmp";
  system "/usr/local/dlx/rte/lib/gcc-lib/dlx/2.7.2.3/ar0 -o @ARGV $temp";
  } else {
  system "/usr/local/dlx/rte/lib/gcc-lib/dlx/2.7.2.3/ar0 -o @ARGV";
  } 

}
else
{  print "Unknown ar option: $option";
  exit 1;}