#!/usr/local/bin/perl

$USE_NEW_AS = 1;
$WITH_LOGGING = 0;

my $cmd = "/class/cs/csa/project/os/compiler/mips/bin/mips-idt-ecoff-as-orig ";
for($i=0; $i<$#ARGV; $i++)
{
    $cmd .= "$ARGV[$i] ";
}

print "\n*** Assembling $ARGV[$#ARGV] \n\n\t with command: $cmd ***\n\n";


if($USE_NEW_AS)
{
    if($WITH_LOGGING)
    {
	`cp $ARGV[$#ARGV] /Class/cs/csa/project/compiler/temp`;
	`java preas $ARGV[$#ARGV] > $ARGV[$#ARGV].preas 2> $ARGV[$#ARGV].preas.log`;
	`cp $ARGV[$#ARGV].preas /Class/cs/csa/project/compiler/temp`;
	`cp $ARGV[$#ARGV].preas.log /Class/cs/csa/project/compiler/temp`;
	`cat $ARGV[$#ARGV].preas | $cmd 2> $ARGV[$#ARGV].log`;
	`cp $ARGV[$#ARGV].log /Class/cs/csa/project/compiler/temp`;
    }
    else
    {
	`java preas $ARGV[$#ARGV] | $cmd`;
    }
}
else
{
	`$cmd $ARGV[$#ARGV]`;
}