[hcoop/debian/openafs.git] / src / afs / findlocks

#!/usr/bin/perl

use File::Find;
use IO::File;

use strict;
use vars qw($Pat @Locks $DupOnly);

# This pattern matches the function names we are looking for
$Pat = qr/(?:NB)?Obtain(?:Write|Shared|)Lock|UpgradeSToWLock/;

if (@ARGV[0] eq '-d') {
  $DupOnly = 1;
  shift @ARGV;
}

find(
  sub {
    return unless -f $_;

    my $path = $File::Find::name;
    my $F = new IO::File($_, O_RDONLY) or die "$path: $!\n";
    while (<$F>) {
      next unless /\b(?:$Pat)\(.*,\s*(\d+)\)/o;
      $Locks[$1] ||= [];
      push(@{$Locks[$1]}, sprintf("%s:%d", $path, $.));
    }
    $F->close;
  }, @ARGV);

foreach my $id (0 .. @Locks) {
  next unless defined $Locks[$id];
  next if $DupOnly && @{$Locks[$id]} < 2;
  printf("%5d  %s", $id, join("       ", map("$_\n", @{$Locks[$id]})))
}
Commit	Line	Data
805e021f CE	1	#!/usr/bin/perl
	2
	3	use File::Find;
	4	use IO::File;
	5
	6	use strict;
	7	use vars qw($Pat @Locks $DupOnly);
	8
	9	# This pattern matches the function names we are looking for
	10	$Pat = qr/(?:NB)?Obtain(?:Write\|Shared\|)Lock\|UpgradeSToWLock/;
	11
	12	if (@ARGV[0] eq '-d') {
	13	$DupOnly = 1;
	14	shift @ARGV;
	15	}
	16
	17	find(
	18	sub {
	19	return unless -f $_;
	20
	21	my $path = $File::Find::name;
	22	my $F = new IO::File($_, O_RDONLY) or die "$path: $!\n";
	23	while (<$F>) {
	24	next unless /\b(?:$Pat)\(.,\s(\d+)\)/o;
	25	$Locks[$1] \|\|= [];
	26	push(@{$Locks[$1]}, sprintf("%s:%d", $path, $.));
	27	}
	28	$F->close;
	29	}, @ARGV);
	30
	31	foreach my $id (0 .. @Locks) {
	32	next unless defined $Locks[$id];
	33	next if $DupOnly && @{$Locks[$id]} < 2;
	34	printf("%5d %s", $id, join(" ", map("$_\n", @{$Locks[$id]})))
	35	}