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