The branch master has been updated via 78f6c4c25ac5a0264903aefa00dfd5ab71da9fff (commit) from b884ccda58cf9e72c56f76d5aeac1663860d8c0b (commit)
- Log ----------------------------------------------------------------- commit 78f6c4c25ac5a0264903aefa00dfd5ab71da9fff Author: Rich Salz <rs...@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, $!,"; _____ openssl-commits mailing list To unsubscribe: https://mta.openssl.org/mailman/listinfo/openssl-commits