5 if(@ARGV < 1) { die "usage: stat_directories_complete.pl [M|C|B]";}
9 my $subdirs = `make subdirs`;
10 #my $subdirs = "rule9";
11 #my $subdirs = "rule1";
13 @subdirs = split /\s+/, $subdirs;
17 foreach my $dir (@subdirs) {
19 #print "RULE: $dir\n";
22 `cd $dir; ~/coccinelle/scripts/stat_directory_complete.pl | grep $kind:`;
26 $s =~ s/$kind:/$kind$i./;