#!perl

# Generates info for perlhist from this perl tree

# run this from the root of a perl tree

#

# Data is on STDOUT.

use 5.010000;

use File::Find;

use warnings;

use strict;

sub emit {

my $H = '%-9s:';

my $D = '%6d';

printf "$H $D $D\n", @_;

}

sub calc_core {

my @core;

push @core, glob '*.h';

push @core, glob '*.c';

push @core, glob '*.y';

my $coresize = 0;

foreach my $corefile (@core) {

$coresize += (-s $corefile) / 1000;

}

my $corenumber = scalar @core;

$coresize = int $coresize;

return $coresize, $corenumber;

}

sub calc_lib {

our $libsize = 0;

our $libnumber = 0;

sub wanted_lib {

$File::Find::name =~ /[.] (?:pm|pl)\z/msx or return;

$libsize += (-s $_) / 1000;

$libnumber++;

}

find(\&wanted_lib, 'lib');

$libsize = int $libsize;

return $libsize, $libnumber;

}

sub calc_ext {

our $extsize = 0;

our $extnumber = 0;

sub wanted_ext {

$File::Find::name =~ /[.] (?:h|c|y|t|xs|pm)\z/msx or return;

$extsize += (-s $_) / 1000;

$extnumber++;

}

if (-d 'dist') {

find(\&wanted_ext, 'ext', 'dist', 'cpan');

} else {

find(\&wanted_ext, 'ext');

}

$extsize = int $extsize;

return $extsize, $extnumber;

}

sub calc_t {

our $tsize = 0;

our $tnumber = 0;

sub wanted_t {

$File::Find::name =~ /[.] t\z/msx or return;

$tsize += (-s $_) / 1000;

$tnumber++;

}

find(\&wanted_t, '.');

$tsize = int $tsize;

return $tsize, $tnumber;

}

sub calc_doc {

my @doc;

push @doc, 'INSTALL';

push @doc, 'README';

push @doc, glob 'README.*';

our $docsize = 0;

foreach my $docfile (@doc) {

$docsize += (-s $docfile) / 1000;

}

our $docnumber = scalar @doc;

sub wanted_doc {

$File::Find::name =~ /[.] pod\z/msx or return;

$docsize += (-s $_) / 1000;

$docnumber++;

}

find(\&wanted_doc, 'pod');

$docsize = int $docsize;

return $docsize, $docnumber;

}

sub calc_dir {

my $dir = shift;

return if ! -d $dir;

our $dirnumber = 0;

our $dirsize = 0;

sub wanted_dir {

$dirsize += (-s $_) / 1000;

$dirnumber++;

}

find(\&wanted_dir, $dir);

$dirsize = int $dirsize;

emit $dir => $dirsize, $dirnumber;

}

sub calc_longtable {

print "\n\nTable:\n";

my $configure_size = int ((-s 'Configure') / 1000);

emit Configure => $configure_size, 1;

foreach my $dir (qw(Cross djgpp emacs h2pl hints NetWare os2 plan9 Porting qnx symbian utils vms vos win32)) {

calc_dir($dir);

}

}

say "Selected release sizes for perl tarball:";

print "\n";

#5.16.0 5562 109 1077 80 20504 2702 8750 2375 4815 152

sub calc_line {

printf " %-12s %6s %3s %6s %3s %6s %4s %6s %4s %6s %3s\n",

'5.xx.0', calc_core(), calc_lib(), calc_ext(), calc_t(), calc_doc();

}

calc_line();

calc_longtable();

exit;