You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.5 KiB
65 lines
1.5 KiB
#!/usr/bin/perl -w
|
|
# Written by Zack Rusin <zack@kde.org>
|
|
#
|
|
# This file is free software, licensed under the BSD licence.
|
|
# That means that you can do anything you want with it except
|
|
# eating too much candy since that totally messes up your teeth
|
|
# and here in KDE land we care about your teeth. They're out
|
|
# greatest priority right next to scoring chicks of course...
|
|
#
|
|
|
|
# This script goes through the whole history of a file to find
|
|
# all modifications referencing specific string. It's useful if
|
|
# you want to know when a function has been removed/modified/added
|
|
# to a file if a recent cvs annotate doesn't anymore reference it.
|
|
|
|
our $file;
|
|
our $func;
|
|
|
|
sub check_file
|
|
{
|
|
my $rev1 = shift;
|
|
my $rev2 = shift;
|
|
|
|
my $output = `cvs diff -r $rev1 -r $rev2 $file`;
|
|
|
|
if ( $output =~ /(^[+-].+$func.+$)/m ) {
|
|
print "FOUND IN: cvs diff -r $rev1 -r $rev2 $file\n";
|
|
$_ = $1;
|
|
s/^([-+])\s*(.+)/$1 $2/;
|
|
return $_;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
sub get_revision
|
|
{
|
|
my $output = `cvsversion $file`;
|
|
chomp $output;
|
|
return $output;
|
|
}
|
|
|
|
my $argc = scalar @ARGV;
|
|
|
|
die "$0 <function> <file>" if ( $argc != 2 );
|
|
$func = $ARGV[0];
|
|
$file = $ARGV[1];
|
|
|
|
my $current_revision = get_revision( $file );
|
|
|
|
$current_revision =~ /(\d+)\.(\d+)/;
|
|
$base = $1;
|
|
$working = $2;
|
|
|
|
while ( $working > 1 ) {
|
|
my $older = $working - 1;
|
|
my $res = check_file( "$base.$older", "$base.$working");
|
|
|
|
if ( $res ) {
|
|
print "\t($res)\n";
|
|
}
|
|
--$working;
|
|
}
|
|
|
|
print "Didn't find a reference to that $func in $file\n";
|