mirrors/git
0
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-28 04:23:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

git-svn: add support for --stat in the log command

Browse Source 
Signed-off-by: Eric Wong <normalperson@yhbt.net>
This commit is contained in:
Eric Wong 2007-02-15 00:40:42 -08:00
parent a836a0e172
commit 488a63ec23
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
git-svn.perl
View File

@ -3234,7 +3234,7 @@ sub show_commit_normal {
print "\n"; print "\n";
} }
foreach my $x (qw/raw diff/) { foreach my $x (qw/raw stat diff/) {
if ($c->{$x}) { if ($c->{$x}) {
print "\n"; print "\n";
print $_ foreach @{$c->{$x}} print $_ foreach @{$c->{$x}}
@ -3266,7 +3266,7 @@ sub cmd_show_log {
@args = (git_svn_log_cmd($r_min, $r_max, @args), @args); @args = (git_svn_log_cmd($r_min, $r_max, @args), @args);
my $log = command_output_pipe(@args); my $log = command_output_pipe(@args);
run_pager(); run_pager();
my (@k, $c, $d); my (@k, $c, $d, $stat);
my $esc_color = qr/(?:\033\[(?:(?:\d+;)*\d*)?m)*/; my $esc_color = qr/(?:\033\[(?:(?:\d+;)*\d*)?m)*/;
while (<$log>) { while (<$log>) {
if (/^${esc_color}commit ($::sha1_short)/o) { if (/^${esc_color}commit ($::sha1_short)/o) {
@ -3294,6 +3294,13 @@ sub cmd_show_log {
push @{$c->{diff}}, $_; push @{$c->{diff}}, $_;
} elsif ($d) { } elsif ($d) {
push @{$c->{diff}}, $_; push @{$c->{diff}}, $_;
} elsif (/^\ .+\ \|\s*\d+\ $esc_color[\+\-]*
$esc_color*[\+\-]*$esc_color$/x) {
$stat = 1;
push @{$c->{stat}}, $_;
} elsif ($stat && /^ \d+ files changed, \d+ insertions/) {
push @{$c->{stat}}, $_;
$stat = undef;
} elsif (/^${esc_color} (git-svn-id:.+)$/o) { } elsif (/^${esc_color} (git-svn-id:.+)$/o) {
($c->{url}, $c->{r}, undef) = ::extract_metadata($1); ($c->{url}, $c->{r}, undef) = ::extract_metadata($1);
} elsif (s/^${esc_color} //o) { } elsif (s/^${esc_color} //o) {