doc: Add serial to list of ci file reserved words
[charm.git] / 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