summaryrefslogtreecommitdiffstats
path: root/perl-install/install2
blob: 9710f76c9cf947cdb45034d135b1e468bba98fb2 (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
#!/usr/bin/perl
#- PERL_INSTALL_TEST is used to launch stage2 in debug mode

#- Mandrake Graphic Install $Id$
#- Copyright (C) 1999/2000 Mandrakesoft (pixel@mandrakesoft.com)
#-
#- This program is free software; you can redistribute it and/or modify
#- it under the terms of the GNU General Public License as published by
#- the Free Software Foundation; either version 2, or (at your option)
#- any later version.
#-
#- This program is distributed in the hope that it will be useful,
#- but WITHOUT ANY WARRANTY; without even the implied warranty of
#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#- GNU General Public License for more details.
#-
#- You should have received a copy of the GNU General Public License
#- along with this program; if not, write to the Free Software
#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

use diagnostics;
use strict;

BEGIN {
    #- for testing purpose
    (my $f = __FILE__) =~ s|install2$|list_modules.pm|;
    -e $f or symlink '../kernel/list_modules.pm', $f;
}

use lib qw(/usr/lib/libDrakX .);
use install2;

$::testing = $ENV{PERL_INSTALL_TEST};
$::isStandalone = 0;

install2::main(@ARGV);

c::_exit(0);
='n79' href='#n79'>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;
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|;
}