2 # Generates info for perlhist from this perl tree
3 # run this from the root of a perl tree
15 printf "$H $D $D\n", @_;
21 push @core, glob '*.h';
22 push @core, glob '*.c';
23 push @core, glob '*.y';
26 foreach my $corefile (@core) {
27 $coresize += (-s $corefile) / 1000;
30 my $corenumber = scalar @core;
31 $coresize = int $coresize;
33 return $coresize, $corenumber;
41 $File::Find::name =~ /[.] (?:pm|pl)\z/msx or return;
42 $libsize += (-s $_) / 1000;
46 find(\&wanted_lib, 'lib');
47 $libsize = int $libsize;
49 return $libsize, $libnumber;
57 $File::Find::name =~ /[.] (?:h|c|y|t|xs|pm)\z/msx or return;
58 $extsize += (-s $_) / 1000;
63 find(\&wanted_ext, 'ext', 'dist', 'cpan');
65 find(\&wanted_ext, 'ext');
68 $extsize = int $extsize;
70 return $extsize, $extnumber;
78 $File::Find::name =~ /[.] t\z/msx or return;
79 $tsize += (-s $_) / 1000;
83 find(\&wanted_t, '.');
87 return $tsize, $tnumber;
95 push @doc, glob 'README.*';
98 foreach my $docfile (@doc) {
99 $docsize += (-s $docfile) / 1000;
102 our $docnumber = scalar @doc;
105 $File::Find::name =~ /[.] pod\z/msx or return;
106 $docsize += (-s $_) / 1000;
110 find(\&wanted_doc, 'pod');
112 $docsize = int $docsize;
114 return $docsize, $docnumber;
126 $dirsize += (-s $_) / 1000;
130 find(\&wanted_dir, $dir);
132 $dirsize = int $dirsize;
134 emit $dir => $dirsize, $dirnumber;
140 print "\n\nTable:\n";
142 my $configure_size = int ((-s 'Configure') / 1000);
144 emit Configure => $configure_size, 1;
146 foreach my $dir (qw(Cross djgpp emacs h2pl hints NetWare os2 plan9 Porting qnx symbian utils vms vos win32)) {
151 say "Selected release sizes for perl tarball:";
154 #5.16.0 5562 109 1077 80 20504 2702 8750 2375 4815 152
157 printf " %-12s %6s %3s %6s %3s %6s %4s %6s %4s %6s %3s\n",
158 '5.xx.0', calc_core(), calc_lib(), calc_ext(), calc_t(), calc_doc();