1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/perl -w
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
use lib qw(lib);
use strict;
use Apache2::FunctionTable ();
use Apache2::StructureTable ();
my %stats;
for my $entry (@$Apache2::FunctionTable) {
unless ($entry->{name} =~ /^(ap|apr)_/) {
#print "found alien function $entry->{name}\n";
next;
}
$stats{functions}->{$1}++;
}
for my $entry (@$Apache2::StructureTable) {
my $elts = $entry->{elts};
my $type = $entry->{type};
my $c = $type =~ /^apr_/ ? "apr" : "ap";
@$elts = () if $type =~ /^ap_LINK/;
if (@$elts) {
$stats{typedef_structs}->{$c}++;
$stats{struct_members}->{$c} += @$elts;
}
else {
$stats{typedefs}->{$c}++;
}
}
while (my($name, $tab) = each %stats) {
printf "%d %s\n", $tab->{ap} + $tab->{apr}, $name;
for (qw(apr ap)) {
printf "%6s: %d\n", $_, $tab->{$_};
}
}
|
