makedep.pl

来自「C语言编写的监控中心终端程序。基于GPRS上传收发数据功能」· PL 代码 · 共 60 行

#! /home/potatooo/xcc/bin/perl

#
# makedep.pl
#


for ($argvcnt=0; $argvcnt<@ARGV && $ARGV[$argvcnt] =~ /^-(.*)/; $argvcnt++)
{
  if ($ARGV[$argvcnt] =~ /^-\z/)
  {
    $argvcnt++;
    last;
  }

  if ($ARGV[$argvcnt] =~ /^--help/
      || $ARGV[$argvcnt] =~ /^-h\z/)
  {
    print("\
Usage: $0 [options] [inputfile [outputfile]]\
\
where option is:\
\
  --little-endian   Specify little-endian output\
  --big-endian      Specify big-endian output (default)\
  --byte            Specify 8-bit output\
  --short           Specify 16-bit output\
  --long            Specify 32-bit output (default)\
\
");
    exit(-1);
  } 
  else {
    die "$0: illegal option $ARGV[$argvcnt]";
  }
}


if ($argvcnt<@ARGV) {
  open(STDIN, "<$ARGV[$argvcnt]") || die "$0: err: can't open $ARGV[$argvcnt]";
  $argvcnt++;
}
if ($argvcnt<@ARGV) {
  open(STDOUT, ">$ARGV[$argvcnt]") || die "$0: err: can't open $ARGV[$argvcnt]";
  $argvcnt++;
}

#set output to binary mode
binmode STDOUT;

while (<STDIN>)
{
  s/^(.*)\.o\s*\:\s*(.*)/MIPS\/\1.o MIPS\/\1.d : \\\n \2/g ;
  print $_;
}

close(STDIN);
close(STDOUT);