[bpt/coccinelle.git] / scripts / stat_directories_complete.pl

#!/usr/bin/perl 

#usage: 

if(@ARGV < 1) { die "usage: stat_directories_complete.pl  [M|C|B]";}
my $kind = "$ARGV[0]";


my $subdirs = `make subdirs`;
#my $subdirs = "rule9";
#my $subdirs = "rule1";
chomp $subdirs;
@subdirs = split /\s+/, $subdirs;


my $i = 0;
foreach my $dir (@subdirs) {
  if(-e "$dir/") {
    #print "RULE: $dir\n";

    my ($s) = 
      `cd $dir; ~/coccinelle/scripts/stat_directory_complete.pl | grep $kind:`;
    chomp $s;
    $i++;
    #print "M$i.$s\n";
    $s =~ s/$kind:/$kind$i./;
    print "$s\n";
  }

}
Commit	Line	Data
34e49164 C	1	#!/usr/bin/perl
	2
	3	#usage:
	4
	5	if(@ARGV < 1) { die "usage: stat_directories_complete.pl [M\|C\|B]";}
	6	my $kind = "$ARGV[0]";
	7
	8
	9	my $subdirs = `make subdirs`;
	10	#my $subdirs = "rule9";
	11	#my $subdirs = "rule1";
	12	chomp $subdirs;
	13	@subdirs = split /\s+/, $subdirs;
	14
	15
	16	my $i = 0;
	17	foreach my $dir (@subdirs) {
	18	if(-e "$dir/") {
	19	#print "RULE: $dir\n";
	20
	21	my ($s) =
	22	`cd $dir; ~/coccinelle/scripts/stat_directory_complete.pl \| grep $kind:`;
	23	chomp $s;
	24	$i++;
	25	#print "M$i.$s\n";
	26	$s =~ s/$kind:/$kind$i./;
	27	print "$s\n";
	28	}
	29
	30	}