summaryrefslogtreecommitdiffstats
path: root/perl-install/share/verify_modules.pl
blob: 5928dc6ddb30428c1ae5d9026302d7f46c2af375 (plain)
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
#!/usr/bin/perl

use lib "..";
use common qw(:common :file);
use modules;

my $all = $ARGV[0] eq '-a';

my %modules = map {
    chomp;
    my @l = split "\t";
    my $mod = $l[-2];
    $mod =~ s/"(.*)"/$1/;
    if_(!/^\s*#/ && $mod !~ /:/ && $mod ne 'unknown', $mod => $l[-1])
} map { cat_("/usr/share/ldetect-lst/$_") } 'pcitable', 'usbtable';

my %l;
my $kernel = $all ? '/lib/modules' : '../../kernel';
foreach (`find $kernel -name "*.o" -o -name "*.o.gz"`) {
    s|.*/lib/modules/.*?/||;
    s|kernel/drivers/||;
    m|(.*)/(.*)\.o(\.gz)?$|;
    $l{$2} = $1;
}

foreach (keys %modules) {
    my $ktype = $l{$_};
    my $dtype = $modules::drivers{$_};
    if (!$ktype && !$dtype) {
	print "unused module $_ (descr $modules{$_}) (not in modules.pm nor in the kernel)\n";
    } elsif (!$dtype) {
	$missing{$_} = $ktype;
    } elsif (!$ktype) {
	$unused{$_} = $dtype->{type} 
	  if !member($dtype->{type}, 'sound');
    }
}

foreach (sort keys %missing) {
    print "missing $_ in modules.pm (type $missing{$_}, descr $modules{$_})\n";
}
foreach (sort keys %unused) {
    print "unused module $_ (type $unused{$_}) (not in the kernel)\n";
}

__END__
my %m = %l;
my (%missing, %missing2);
while (my ($k, $v) = each %pci_probing::pcitable::ids) {
    next if $v->[1] =~ /^(unknown$|ignore$|Card:|Server:|Bad:)/;

    $l{$v->[1]} or $missing{$v->[1]} = 1;
    $modules::drivers{$v->[1]} or push @{$missing2{$v->[1]}}, $v->[0];
    delete $m{$v->[1]};
}
print "W: unused entry in modules.pm $_\n" 
  foreach grep { !$l{$_} && !$missing{$_} #- will be reported below
	     } keys %modules::drivers;

print qq|W: missing entry in modules.pm for $l{$_} "$_"\n| foreach grep { !$modules::drivers{$_} } keys %l;

my %known; @known{qw(net scsi misc)} = ();
if ($ARGV[0] eq "-v") {
    print "W: has no pci entry: $_ \n" foreach grep { exists $known{$m{$_}} } keys %m;
}

print "E: missing module $_\n" 
  foreach grep { $modules::drivers{$_}{type} ne "sound" #- don't care about sound modules
	     } keys %missing;

foreach (keys %missing2) {
    print qq|E: missing entry in modules.pm for $l{$_} "$_"|;
    print qq| => "|, join("<>", @{$missing2{$_}}), '"';
    print "\n";
}

#exit;

my %devices_c = (
  net => "checkEthernetDev, DRIVER_NET, DRIVER_MINOR_ETHERNET",
  scsi => "checkSCSIDev, DRIVER_SCSI, DRIVER_MINOR_NONE",
  disk => "checkSCSIDev, DRIVER_SCSI, DRIVER_MINOR_NONE",
  pcmcia => "NULL, DRIVER_PCMCIA, DRIVER_MINOR_NONE",
  paride => "NULL, DRIVER_PARIDE, DRIVER_MINOR_NONE",
  cdrom => "NULL, DRIVER_CDROM, DRIVER_MINOR_NONE",
);
my $devices_c = join "|", keys %devices_c;

my %drivers = %modules::drivers;
$drivers{$_}{type} =~ /$devices_c/ or delete $drivers{$_} foreach keys %drivers;
foreach (cat_("../../install/devices.c")) {
    if (/static struct driver drivers/ .. /^};/) {
	/\s*{\s*"[^"]*"\s*,\s*"(.*)"/ or next;
	delete $drivers{$1} or print qq|W: unused entry in devices.c $1\n|;
    }
}
foreach (sort { $drivers{$a}{type} cmp $drivers{$b}{type} } keys %drivers) {
    my ($m, $v) = ($_, $drivers{$_});
    /^(8390|sunrpc|lockd|dummy|st)$/ and next;

    print qq|E: missing entry in devices.c { "$v->{text}", "$m", 0, $devices_c{$v->{type}} }\n|;
}