[openssl-commits] [tools] master update

[Rich Salz]

The branch master has been updated
       via  78f6c4c25ac5a0264903aefa00dfd5ab71da9fff (commit)
      from  b884ccda58cf9e72c56f76d5aeac1663860d8c0b (commit)


- Log -----------------------------------------------------------------
commit 78f6c4c25ac5a0264903aefa00dfd5ab71da9fff
Author: Rich Salz <rsalz at openssl.org>
Date:   Tue Mar 6 11:58:48 2018 -0500

    Add summary script

-----------------------------------------------------------------------

Summary of changes:
 license/get-summary | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 license/get-summary

diff --git a/license/get-summary b/license/get-summary
new file mode 100755
index 0000000..b1b51df
--- /dev/null
+++ b/license/get-summary
@@ -0,0 +1,43 @@
+#! /usr/bin/env perl
+# Annotate the output of "get-followups -d" to show the summary
+# of all outstanding commits.
+use strict;
+use warnings;
+
+open my $FH, "./get-followups -d|" || die "Can't pipe, $!,";
+
+my $total = 0;
+my $tot_adds = 0;
+my $tot_files = 0;
+my $tot_dels = 0;
+while ( <$FH> ) {
+    next unless /([0-da-f]{8}) .*/;
+    my $cid = $1;
+    # Skip a big import
+    next if $cid eq 'd02b48c6';
+    my $pattern = "$cid^..$cid";
+    my $files = 0;
+    my $adds = 0;
+    my $dels = 0;
+    my $name = '';
+    $total++;
+    open my $F, "git diff --numstat $pattern|"
+	|| die "Can't open git diff, $!\n";
+    while ( <$F> ) {
+	$files++;
+	next unless /(\d+)\s+(\d+)\s+(.*)/;
+	$adds += int($1);
+	$dels += int($2);
+	$name = $3 if $name eq '';
+    }
+    $tot_files += $files;
+    $tot_adds += $adds;
+    $tot_dels += $dels;
+    close $F || die "Can't close git diff, $!\n";
+}
+print "Commits      : $total\n";
+print "Files        : $tot_files avg ", $tot_files / $total, "\n";
+print "Added lines  : $tot_adds avg ", $tot_adds / $total, "\n";
+print "Deleted lines: $tot_dels avg ", $tot_dels / $total, "\n";
+
+close $FH || die "Can't close, $!,";