Tweak output format, add warning
authorRich Salz <rsalz@openssl.org>
Thu, 9 Nov 2017 16:44:41 +0000 (11:44 -0500)
committerRich Salz <rsalz@openssl.org>
Thu, 9 Nov 2017 16:45:25 +0000 (11:45 -0500)
add-counts

index e842fc4722f78ef5f92849f45246796388ee262f..4a796fed1506caa2d5755f50c383f89cbab43cff 100755 (executable)
@@ -4,6 +4,8 @@
 use strict;
 use warnings;
 
+die "Feed this the output of 'get-followups -d'\n" if -t 0;
+
 while ( <> ) {
     unless ( /([0-da-f]{8}) .*/ ) {
        print;
@@ -11,6 +13,7 @@ while ( <> ) {
     }
     my $cid = $1;
     my $line = $_;
+    $line =~ s/^\s*//;
     if ( $cid eq 'd02b48c6' ) {
        print "931 +17534 -0 ", $_;
        next;
@@ -19,14 +22,20 @@ while ( <> ) {
     my $files = 0;
     my $adds = 0;
     my $dels = 0;
+    my $name = '';
     open my $F, "git diff --numstat $pattern|"
        || die "Can't open git diff, $!\n";
     while ( <$F> ) {
        $files++;
-       next unless /(\d+)\s+(\d+)/;
+       next unless /(\d+)\s+(\d+)\s+(.*)/;
        $adds += int($1);
        $dels += int($2);
+       $name = $3 if $name eq '';
     }
     close $F || die "Can't close git diff, $!\n";
-    print "$files +$adds -$dels $line";
+    if ( $files == 1 ) {
+       print "$name +$adds -$dels $line";
+    } else {
+       print "$files +$adds -$dels $line";
+    }
 }