| 1 | #!perl |
| 2 | # Generates info for perlhist from this perl tree |
| 3 | # run this from the root of a perl tree |
| 4 | # |
| 5 | # Data is on STDOUT. |
| 6 | |
| 7 | use 5.010000; |
| 8 | use File::Find; |
| 9 | use warnings; |
| 10 | use strict; |
| 11 | |
| 12 | sub emit { |
| 13 | my $H = '%-9s:'; |
| 14 | my $D = '%6d'; |
| 15 | printf "$H $D $D\n", @_; |
| 16 | } |
| 17 | |
| 18 | sub calc_core { |
| 19 | |
| 20 | my @core; |
| 21 | push @core, glob '*.h'; |
| 22 | push @core, glob '*.c'; |
| 23 | push @core, glob '*.y'; |
| 24 | my $coresize = 0; |
| 25 | |
| 26 | foreach my $corefile (@core) { |
| 27 | $coresize += (-s $corefile) / 1000; |
| 28 | } |
| 29 | |
| 30 | my $corenumber = scalar @core; |
| 31 | $coresize = int $coresize; |
| 32 | |
| 33 | return $coresize, $corenumber; |
| 34 | } |
| 35 | |
| 36 | sub calc_lib { |
| 37 | |
| 38 | our $libsize = 0; |
| 39 | our $libnumber = 0; |
| 40 | sub wanted_lib { |
| 41 | $File::Find::name =~ /[.] (?:pm|pl)\z/msx or return; |
| 42 | $libsize += (-s $_) / 1000; |
| 43 | $libnumber++; |
| 44 | } |
| 45 | |
| 46 | find(\&wanted_lib, 'lib'); |
| 47 | $libsize = int $libsize; |
| 48 | |
| 49 | return $libsize, $libnumber; |
| 50 | } |
| 51 | |
| 52 | sub calc_ext { |
| 53 | |
| 54 | our $extsize = 0; |
| 55 | our $extnumber = 0; |
| 56 | sub wanted_ext { |
| 57 | $File::Find::name =~ /[.] (?:h|c|y|t|xs|pm)\z/msx or return; |
| 58 | $extsize += (-s $_) / 1000; |
| 59 | $extnumber++; |
| 60 | } |
| 61 | |
| 62 | if (-d 'dist') { |
| 63 | find(\&wanted_ext, 'ext', 'dist', 'cpan'); |
| 64 | } else { |
| 65 | find(\&wanted_ext, 'ext'); |
| 66 | } |
| 67 | |
| 68 | $extsize = int $extsize; |
| 69 | |
| 70 | return $extsize, $extnumber; |
| 71 | } |
| 72 | |
| 73 | sub calc_t { |
| 74 | |
| 75 | our $tsize = 0; |
| 76 | our $tnumber = 0; |
| 77 | sub wanted_t { |
| 78 | $File::Find::name =~ /[.] t\z/msx or return; |
| 79 | $tsize += (-s $_) / 1000; |
| 80 | $tnumber++; |
| 81 | } |
| 82 | |
| 83 | find(\&wanted_t, '.'); |
| 84 | |
| 85 | $tsize = int $tsize; |
| 86 | |
| 87 | return $tsize, $tnumber; |
| 88 | } |
| 89 | |
| 90 | sub calc_doc { |
| 91 | |
| 92 | my @doc; |
| 93 | push @doc, 'INSTALL'; |
| 94 | push @doc, 'README'; |
| 95 | push @doc, glob 'README.*'; |
| 96 | our $docsize = 0; |
| 97 | |
| 98 | foreach my $docfile (@doc) { |
| 99 | $docsize += (-s $docfile) / 1000; |
| 100 | } |
| 101 | |
| 102 | our $docnumber = scalar @doc; |
| 103 | |
| 104 | sub wanted_doc { |
| 105 | $File::Find::name =~ /[.] pod\z/msx or return; |
| 106 | $docsize += (-s $_) / 1000; |
| 107 | $docnumber++; |
| 108 | } |
| 109 | |
| 110 | find(\&wanted_doc, 'pod'); |
| 111 | |
| 112 | $docsize = int $docsize; |
| 113 | |
| 114 | return $docsize, $docnumber; |
| 115 | } |
| 116 | |
| 117 | sub calc_dir { |
| 118 | my $dir = shift; |
| 119 | |
| 120 | return if ! -d $dir; |
| 121 | |
| 122 | our $dirnumber = 0; |
| 123 | our $dirsize = 0; |
| 124 | |
| 125 | sub wanted_dir { |
| 126 | $dirsize += (-s $_) / 1000; |
| 127 | $dirnumber++; |
| 128 | } |
| 129 | |
| 130 | find(\&wanted_dir, $dir); |
| 131 | |
| 132 | $dirsize = int $dirsize; |
| 133 | |
| 134 | emit $dir => $dirsize, $dirnumber; |
| 135 | } |
| 136 | |
| 137 | |
| 138 | sub calc_longtable { |
| 139 | |
| 140 | print "\n\nTable:\n"; |
| 141 | |
| 142 | foreach my $dir (qw(beos)) { |
| 143 | calc_dir($dir); |
| 144 | } |
| 145 | |
| 146 | my $configure_size = int ((-s 'Configure') / 1000); |
| 147 | |
| 148 | emit Configure => $configure_size, 1; |
| 149 | |
| 150 | foreach my $dir (qw(Cross djgpp emacs epoc h2pl hints mad mint mpeix NetWare os2 plan9 Porting qnx symbian utils vms vos win32 x2p)) { |
| 151 | calc_dir($dir); |
| 152 | } |
| 153 | } |
| 154 | |
| 155 | say "Selected release sizes for perl tarball:"; |
| 156 | print "\n"; |
| 157 | |
| 158 | #5.16.0 5562 109 1077 80 20504 2702 8750 2375 4815 152 |
| 159 | |
| 160 | sub calc_line { |
| 161 | printf " %-12s %6s %3s %6s %3s %6s %4s %6s %4s %6s %3s\n", |
| 162 | '5.xx.0', calc_core(), calc_lib(), calc_ext(), calc_t(), calc_doc(); |
| 163 | } |
| 164 | |
| 165 | calc_line(); |
| 166 | |
| 167 | calc_longtable(); |
| 168 | |
| 169 | exit; |