Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Began script to print all commit IDs and number of lines found in blame output.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-08-29 16:08:30 -04:00
parent 73f1df4e47
commit c44ec348eb
1 changed files with 68 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

68
blame-find-by-name.plx Executable file
View file

@ -0,0 +1,68 @@
#!/usr/bin/perl -w
# blame-find-by-name.plx -*- Perl -*-
#
# Copyright (C) 2011 Bradley M. Kuhn <bkuhn@ebb.org>
#
# This software's license gives you freedom; you can copy, convey,
# propogate, redistribute and/or modify this program under the terms of
# the GNU General Public License (GPL) as published by the Free
# Software Foundation (FSF), either version 3 of the License, or (at your
# option) any later version of the GPL published by the FSF.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program in a file in the toplevel directory called
# "GPLv3". If not, see <http://www.gnu.org/licenses/>.
#
use strict;
use warnings;
######################################################################
if (@ARGV != 2) {
print "usage: $0 <BLAME_DATA_FILE> ", "<NAME_REGEX>\n";
exit 1;
}
# Note: $BLAME_DATA_FILE is in the format as output from:
# for i in `find -type f -print | egrep -v '^./.git'`; do
# echo "FILE: $i" >> ../DATA_FILE; git blame -M -M -M -C -C -C -w -f -n -l $i >> ../DATA_FILE
# done
my($BLAME_DATA_FILE, $NAME_REGEX) = @ARGV;
open(DATA_FILE, "<", $BLAME_DATA_FILE) or die "unable to open $BLAME_DATA_FILE for reading: $!";
my %commitsMatchingRegex;
my $currentFile;
while (my $dataLine = <DATA_FILE>) {
if ($dataLine =~ /^\s*FILE\s*:\s*(.*?)\s*$/) {
$currentFile = $1;
} else {
die "invalid line: $dataLine in blame output" unless ($dataLine =~
/^\s*(\S+)\s+\S+\s+\d+\s+\((.+)\s+(\d{4,4}\-\d{2,2}\-\d{2,2}\s+\d{2,2}:\d{2,2}:\d{2,2})\s+([\+\-\d]+)\s+(\d+)\s*\)\s+(.*)$/);
my($commitID, $name, $date, $tz, $curLineNumber, $actualCurrentLine) = ($1, $2, $3, $4, $5, $6);
if ($name =~ /$NAME_REGEX/i) {
$commitsMatchingRegex{$commitID} = { __totalLines => 0 } unless defined $commitsMatchingRegex{$commitID};
$commitsMatchingRegex{$commitID}{$currentFile} = 0 unless defined $commitsMatchingRegex{$commitID}{$currentFile};
$commitsMatchingRegex{$commitID}{$currentFile}++;
$commitsMatchingRegex{$commitID}{__totalLines}++;
}
}
}
close DATA_FILE;
foreach my $commitID (sort { $commitsMatchingRegex{$a}{__totalLines} <=> $commitsMatchingRegex{$b}{__totalLines} } keys %commitsMatchingRegex ) {
print sprintf("%s: %d\n", $commitID, $commitsMatchingRegex{$commitID}{__totalLines});
}
#
# Local variables:
# compile-command: "perl -c blame-find-by-name.plx"
# End: