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

Write rest of function to produce blame data.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-04-28 20:02:17 -07:00
parent edbbf4263c
commit 0f7eae3318
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
extract-code-added-in-commits.plx
View file

@ -155,6 +155,9 @@ sub ProcessCommit($$;$) {
sub RunCentralCommitMode($) { sub RunCentralCommitMode($) {
my($centralCommitId) = @_; my($centralCommitId) = @_;
my $centralOutputDir = File::Spec($OUTPUT_DIRECTORY, $centralCommitId);
make_path($centralOutputDir, {mode => 0750});
print "Creating Repository object with args $GIT_REPOSITORY_PATH\n" if ($VERBOSE >= 6); print "Creating Repository object with args $GIT_REPOSITORY_PATH\n" if ($VERBOSE >= 6);
my $gitRepository = Git::Repository->new(git_dir => $GIT_REPOSITORY_PATH); my $gitRepository = Git::Repository->new(git_dir => $GIT_REPOSITORY_PATH);
@ -165,8 +168,15 @@ sub RunCentralCommitMode($) {
$files{$file} = $commitId if not defined $files{$file}; $files{$file} = $commitId if not defined $files{$file};
} }
} }
foreach my $file (keys %files) {
my($vv, $path, $filename) = File::Spec->splitpath($file);
$path = File::Spec($centralOutputDir, $path);
make_path($path, 0750);
my(@blameData) = $gitRepository->run('blame', '-w', '-f', '-n', '-l', @ADDITIONAL_BLAME_OPTS,
$centralCommitId, '--', $file);
GitBlameDataToFile(File::Spec($path, $filename), \@blameData);
}
} }
############################################################################## ##############################################################################
# Main line of script # Main line of script
@ -232,11 +242,7 @@ foreach my $commitId (keys %finishedCommits) {
" at $finishedCommits{$commitId}{now} in $finishedCommits{$commitId}{pid}\n" " at $finishedCommits{$commitId}{now} in $finishedCommits{$commitId}{pid}\n"
unless $finishedCommits{$commitId}{errCode} == 0; unless $finishedCommits{$commitId}{errCode} == 0;
} }
###############################################################################
#
# git blame -M -M -M -C -C -C -w -f -n -l
# #
# Local variables: # Local variables:
# compile-command: "perl -c extract-code-added-in-commits.plx" # compile-command: "perl -c extract-code-added-in-commits.plx"