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
42
43
44
45
|
#!/usr/bin/perl -w
# Uses the EFUNC database to check for unused functions by module
open (MODS, "getz -lv '[efunc-mod:*]'|")
|| die "unable to list modules in EFUNC";
while (<MODS>) {
if (!(/^\s+(\S+)\s+(\d+)/)) {
print "Bad format returned by modules list:\n";
print;
next;
}
$mod = $1;
# $num = $2;
open (AJAXMODS, "getz -c '[efunc-lib:ajax] & [efunc-mod:$mod]'|")
|| die "Cannot check modules in AJAX for $mod";
$amods = <AJAXMODS>;
close AJAXMODS;
if (!defined($amods)) {
$anum = 0;
# print "$mod not in AJAX\n";
next;
}
else {
$anum = int($amods);
print "$mod used in AJAX $anum times\n";
}
####################################
# check for functions in this module
####################################
open (AJAXFUN, "getz '[efunc-mod:$mod] ! [efunc-mod:$mod] < efunc_up'|")
|| die "unable to list unused function names of module $mod";
while (<AJAXFUN>) {
/^EFUNC:(\S+)/;
$fun = $1;
print "Unused function $mod/$fun\n";
}
close AJAXFUN;
}
close MODS;
|
