123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169 |
- $start = $ARGV[0];
- if($start eq "-h") {
- print "Usage: summary [tag]\n";
- exit;
- }
- elsif($start eq "") {
- $start = `git tag --sort=taggerdate | grep "^curl-" | tail -1`;
- chomp $start;
- }
- $commits = `git log --oneline $start.. | wc -l`;
- $committers = `git shortlog -s $start.. | wc -l`;
- $bcommitters = `git shortlog -s $start | wc -l`;
- $acommits = `git log --oneline | wc -l`;
- $acommitters = `git shortlog -s | wc -l`;
- $ncommitters = $acommitters - $bcommitters;
- $acontribs = `./scripts/contrithanks.sh | grep -c '^[^ ]'`;
- $bcontribs = `git show $start:docs/THANKS | grep -c '^[^ ]'`;
- $contribs = $acontribs - $bcontribs;
- sub setopts {
- my ($f)=@_;
- open(H, "$f");
- my $opts;
- while(<H>) {
- if(/^ CURLOPT(|DEPRECATED)\(/ && ($_ !~ /OBSOLETE/)) {
- $opts++;
- }
- }
- close(H);
- return $opts;
- }
- $asetopts = setopts("<include/curl/curl.h");
- $bsetopts = setopts("git show $start:include/curl/curl.h|");
- $nsetopts = $asetopts - $bsetopts;
- $aoptions=`grep -c '{"....--' src/tool_listhelp.c`;
- $boptions=`git show $start:src/tool_listhelp.c 2>/dev/null | grep -c '{"....--'`;
- $noptions=$aoptions - $boptions;
- $branch=`git rev-parse --abbrev-ref HEAD 2>/dev/null`;
- chomp $branch;
- $afiles=`git ls-files | wc -l`;
- $deletes=`git diff-tree --diff-filter=A -r --summary origin/$branch $start 2>/dev/null | wc -l`;
- $creates=`git diff-tree --diff-filter=D -r --summary origin/$branch $start 2>/dev/null| wc -l`;
- $tagged=`git for-each-ref --format="%(refname:short) | %(taggerdate:unix)" refs/tags/* | grep ^$start | cut "-d|" -f2`;
- $taggednice=`git for-each-ref --format="%(refname:short) | %(creatordate)" refs/tags/* | grep ^$start | cut '-d|' -f2`;
- chomp $taggednice;
- $now=`date +%s`;
- $elapsed=$now - $tagged;
- $total=$now - `date -d 19980320 +%s`;
- $apublic=`git grep ^CURL_EXTERN -- include/curl | wc -l`;
- $bpublic=`git grep ^CURL_EXTERN $start -- include/curl | wc -l`;
- $public = $apublic - $bpublic;
- $diffstat=`git diff --stat $start.. | tail -1`;
- if($diffstat =~ /^ *(\d+) files changed, (\d+) insertions\(\+\), (\d+)/) {
- ($fileschanged, $insertions, $deletions)=($1, $2, $3);
- }
- open(F, "<RELEASE-NOTES");
- while(<F>) {
- if($_ =~ /following changes:/) {
- $mode=1;
- }
- elsif($_ =~ /following bugfixes:/) {
- $mode=2;
- }
- elsif($_ =~ /known bugs:/) {
- $mode=3;
- }
- elsif($_ =~ /like these:/) {
- $mode=4;
- }
- if($_ =~ /^ o /) {
- if($mode == 1) {
- $numchanges++;
- }
- elsif($mode == 2) {
- $numbugfixes++;
- }
- }
- if(($mode == 4) && ($_ =~ /^ \((\d+) contributors/)) {
- $numcontributors = $1;
- }
- }
- close(F);
- print "== Since $start $taggednice ==\n";
- my $days = $elapsed / 3600 / 24;
- printf "Elapsed time: %.1f days (total %d)\n",
- $days, $total / 3600 / 24;
- printf "Commits: %d (total %d)\n",
- $commits, $acommits;
- printf "Commit authors: %d, %d new (total %d)\n",
- $committers, $ncommitters, $acommitters;
- printf "Contributors: %d, %d new (total %d)\n",
- $numcontributors, $contribs, $acontribs;
- printf "New public functions: %d (total %d)\n",
- $public, $apublic;
- printf "New curl_easy_setopt() options: %d (total %d)\n",
- $nsetopts, $asetopts;
- printf "New command line options: %d (total %d)\n",
- $noptions, $aoptions;
- printf "Changes logged: %d\n", $numchanges;
- printf "Bugfixes logged: %d (%.2f per day)\n",
- $numbugfixes, $numbugfixes / $days;
- printf "Added files: %d (total %d)\n",
- $creates, $afiles;
- printf "Deleted files: %d (delta: %d)\n", $deletes,
- $creates - $deletes;
- print "Diffstat:$diffstat" if(!$fileschanged);
- printf "Files changed: %d (%.2f%%)\n", $fileschanged, $fileschanged*100/$afiles;
- printf "Lines inserted: %d\n", $insertions;
- printf "Lines deleted: %d (delta: %d)\n", $deletions,
- $insertions - $deletions;
|