examples-over-time.pl

#!/usr/bin/perl

require "./stats/tag2date.pm";

sub num {
    my ($t)=@_;
    if($t =~ /^curl-(\d)_(\d+)_(\d+)/) {
        return 10000*$1 + 100*$2 + $3;
    }
    elsif($t =~ /^curl-(\d)_(\d+)/) {
        return 10000*$1 + 100*$2;
    }
}


sub sortthem {
    return num($a) <=> num($b);
}

@alltags= `git tag -l`;

foreach my $t (@alltags) {
    chomp $t;
    if($t =~ /^curl-([0-9_]*[0-9])\z/) {
        push @releases, $t;
    }
}

sub examples {
    my ($tag) = @_;
    my $ex = 0;
    # limited to docs and lib to avoid 'ares' in the early repos
    open(G, "git ls-tree -r --name-only $tag -- docs/examples 2>/dev/null|");
    while(<G>) {
        chomp;
        if($_ =~ /\.(c|cpp)\z/) {
            $ex++;
        }
    }
    close(G);
    return $ex;
}


foreach my $t (sort sortthem @releases) {
    my $d = tag2date($t);
    my $l = examples($t);
    if($l) {
        # prettyfy
        $t =~ s/_/./g;
        $t =~ s/-/ /g;
        print "$t;$d;$l\n";
    }
}

# repeat the last line with current date
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
    localtime(time);
my $date = sprintf "%04d-%02d-%02d", $year + 1900, $mon + 1, $mday;
my $tag = `git describe`;
chomp $tag;
printf "now;$date;%d\n", examples($tag);