undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

contrib: contacts: add ability to parse from committish

Browse Source 
For example:

  % git contacts R1..R2

Committishes and patch files can be mentioned in the same invocation:

  % git contacts R1..R2 extra/*.patch

Signed-off-by: Eric Sunshine <sunshine@sunshineco.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Eric Sunshine 2013-07-21 06:52:39 -04:00 committed by Junio C Hamano
parent 4d06402b1b
commit 8e7c4a82ec
1 changed files with 32 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
contrib/contacts/git-contacts
View File

@ -3,7 +3,7 @@
# List people who might be interested in a patch. Useful as the argument to # List people who might be interested in a patch. Useful as the argument to
# git-send-email --cc-cmd option, and in other situations. # git-send-email --cc-cmd option, and in other situations.
# #
# Usage: git contacts <file> ... # Usage: git contacts <file | rev-list option> ...
use strict; use strict;
use warnings; use warnings;
@ -77,8 +77,8 @@ sub get_blame {
} }
sub scan_patches { sub scan_patches {
my ($commits, $f) = @_; my ($commits, $id, $f) = @_;
my ($id, $source); my $source;
while (<$f>) { while (<$f>) {
if (/^From ([0-9a-f]{40}) Mon Sep 17 00:00:00 2001$/) { if (/^From ([0-9a-f]{40}) Mon Sep 17 00:00:00 2001$/) {
$id = $1; $id = $1;
@ -98,18 +98,44 @@ sub scan_patches {
sub scan_patch_file { sub scan_patch_file {
my ($commits, $file) = @_; my ($commits, $file) = @_;
open my $f, '<', $file or die "read failure: $file: $!\n"; open my $f, '<', $file or die "read failure: $file: $!\n";
scan_patches($commits, $f); scan_patches($commits, undef, $f);
close $f;
}
sub scan_rev_args {
my ($commits, $args) = @_;
open my $f, '-|', qw(git rev-list --reverse), @$args or die;
while (<$f>) {
chomp;
my $id = $_;
$seen{$id} = 1;
open my $g, '-|', qw(git show -C --oneline), $id or die;
scan_patches($commits, $id, $g);
close $g;
}
close $f; close $f;
} }
if (!@ARGV) { if (!@ARGV) {
die "No input patch files\n"; die "No input revisions or patch files\n";
}
my (@files, @rev_args);
for (@ARGV) {
if (-e) {
push @files, $_;
} else {
push @rev_args, $_;
}
} }
my %commits; my %commits;
for (@ARGV) { for (@files) {
scan_patch_file(\%commits, $_); scan_patch_file(\%commits, $_);
} }
if (@rev_args) {
scan_rev_args(\%commits, \@rev_args)
}
import_commits(\%commits); import_commits(\%commits);
my $contacts = {}; my $contacts = {};