zloader/mymake

   1 #!/usr/bin/perl -w
   2 my $obj=$ARGV[0];
   3 $obj=~s/\.[c|S]$/.o/;
   4 system(qq(rm -f $obj));
   5 open F,qq(make $ARGV[0] |);
   6 my $cmd;
   7 while(<F>){$cmd=$_;last if/gcc/;};
   8 close F;
   9 shift @ARGV;
  10 print STDERR "$cmd\n";
  11 system qq($cmd);
  12 system qq(cp $obj /tmp/tmp.o;mipsel-linux-objdump -Slz /tmp/tmp.o >/tmp/tmp.S);
  13 $cmd=~s/\s-c\s/ @ARGV -E -C /;
  14 print STDERR "$cmd\n";
  15 system($cmd);