src/scripts/dep.pl

   1 # input set of strings to match
   2 # this script removes header files reported from g++ -MM from
   3 # those directories in the argument to this script
   4
   5 @dontprint = @ARGV;
   6 @ARGV=();
   7
   8 $n = @dontprint;
   9
  10 # read from stdin
  11
  12 while (<>) {
  13 # if line ends with : it is the start of a dependency
  14   chop;
  15   if ( ($target,$other) = /([a-zA-Z0-9_-]*\.o:)(.*)$/ ) {
  16     print $target;
  17     $go=1;
  18     $first=1;
  19     while ($go) {
  20         if ($first) {
  21           $_ = $other;
  22         } else {
  23           $_ = <> || last;
  24           chop;
  25         }
  26         $first = 0;
  27
  28         if ( /\\$/ ) {
  29           chop;
  30           $go = 1;
  31         } else {
  32           $go = 0;
  33         }
  34
  35         @files = split;
  36         foreach $word (@files) {
  37           $bad = 0;
  38           foreach $notword (@dontprint) {
  39             if ( $word =~ /$notword/ ) {
  40               $bad = 1;
  41               last;
  42             }
  43           }
  44           if ( ! $bad ) {
  45               print " \\\n";
  46               print "   ",$word;
  47           }
  48         }
  49     }
  50   }
  51   print "\n";
  52 }
  53