diff options
author | Guillaume Cottenceau <gc@mandriva.com> | 2001-10-01 20:34:58 +0000 |
---|---|---|
committer | Guillaume Cottenceau <gc@mandriva.com> | 2001-10-01 20:34:58 +0000 |
commit | d7908d6ecd890ef2ac5bf309d9993ff3d55f0f72 (patch) | |
tree | 32c325cea5ae6487199b66fe094c6b36339663a9 /mdk-stage1/pci-resource | |
parent | 7b7276b2651e5cefd3598a8824c9976d485fc745 (diff) | |
download | drakx-d7908d6ecd890ef2ac5bf309d9993ff3d55f0f72.tar drakx-d7908d6ecd890ef2ac5bf309d9993ff3d55f0f72.tar.gz drakx-d7908d6ecd890ef2ac5bf309d9993ff3d55f0f72.tar.bz2 drakx-d7908d6ecd890ef2ac5bf309d9993ff3d55f0f72.tar.xz drakx-d7908d6ecd890ef2ac5bf309d9993ff3d55f0f72.zip |
reword it so that it reflects what's in the marfiles
Diffstat (limited to 'mdk-stage1/pci-resource')
-rwxr-xr-x | mdk-stage1/pci-resource/update-pci-ids.pl | 67 |
1 files changed, 32 insertions, 35 deletions
diff --git a/mdk-stage1/pci-resource/update-pci-ids.pl b/mdk-stage1/pci-resource/update-pci-ids.pl index 1ea4ffc60..16be8273b 100755 --- a/mdk-stage1/pci-resource/update-pci-ids.pl +++ b/mdk-stage1/pci-resource/update-pci-ids.pl @@ -1,10 +1,10 @@ #!/usr/bin/perl -require '/usr/bin/merge2pcitable.pl'; +-x "../mar/mar" or die "\t*FAILED* Sorry, need ../mar/mar binary\n"; +require '/usr/bin/merge2pcitable.pl'; my $drivers = read_pcitable("/usr/share/ldetect-lst/pcitable"); - print ' #define PCI_REVISION_ID 0x08 /* Revision ID */ @@ -17,49 +17,46 @@ struct pci_module_map { '; -my %t = (scsi => 'scsi', eth => 'net'); - -my @modulz = sort grep { -d $_ } glob("../../all.modules/*"); -my $selected_mod = pop @modulz; -my ($kern) = $selected_mod =~ /.*\/([^\/]+)/; - -if (-x "../mar/mar" && -f "../../all.modules/$kern/network_modules.mar" && -f "../../all.modules/$kern/hd_modules.mar") { - $modulez{'eth'} = [ `../mar/mar -l ../../all.modules/$kern/network_modules.mar` ]; - $modulez{'scsi'} = [ `../mar/mar -l ../../all.modules/$kern/hd_modules.mar` ]; - $check_marfiles = 1; -} - +my %t = ( network => [ 'network' ], + medias => [ 'hd', 'cdrom' ] + ); +my %sanity_check = ( network => [ '3c59x', 'eepro100', 'e100', 'tulip', 'via-rhine', 'ne2k-pci', '8139too', 'tlan' ], + medias => [ 'aic7xxx', 'advansys', 'ncr53c8xx', 'sym53c8xx', 'initio' ], + ); foreach $type (keys %t) { - print "#ifndef DISABLE_NETWORK\n" if ($type eq 'eth'); - print "#ifndef DISABLE_MEDIAS\n" if ($type eq 'scsi'); + print STDERR $type; + my @modulez; + foreach $floppy (@{$t{$type}}) { + foreach $marfile (glob("../../all.modules/*/${floppy}_modules.mar")) { + -f $marfile or die "\t*FAILED* Sorry, need $marfile mar file\n"; + my @modz = `../mar/mar -l $marfile`; + if ($marfile !~ /2\.2\.14/) { + foreach $mandatory (@{$sanity_check{$type}}) { + grep(/\t$mandatory\.o/, @modz) or die "\t*FAILED* Sanity check should prove that $mandatory.o be part of $marfile\n" + } + } + push @modulez, @modz; + print STDERR "."; + } + } - print " + print "#ifndef DISABLE_".uc($type)." struct pci_module_map ${type}_pci_ids[] = { "; - my %l; - foreach (glob("../../all.kernels/$kern/lib/modules/*/$t{$type}/*.o"), glob("../../all.kernels/$kern/lib/modules/*/kernel/drivers/$t{$type}/{*/,}*.o")) { - m|([^/]*)\.o$|; - $l{$1} = 1; - } - my %absent; + while (my ($k, $v) = each %$drivers) { - $l{$v->[0]} or next; + grep(/^\t$v->[0]\.o/, @modulez) or next; $k =~ /^(....)(....)/; - printf qq|\t{0x%s , 0x%s , ( "%s" ), ( "%s" )} ,\n|, - $1, $2, $v->[1], $v->[0]; - if (defined($check_marfiles)) { - ($absent{$v->[0]} = 1) if (!grep(/^\t$v->[0]\.o\s/, @{$modulez{$type}})); - } + printf qq|\t{ 0x%s, 0x%s, "%s", "%s" },\n|, + $1, $2, $v->[1], $v->[0]; } - if (%absent) { print STDERR "\tmissing for $type: "; foreach (keys %absent) { print STDERR "$_ " } print STDERR "\n"; }; + print "}; +int ${type}_num_ids = sizeof(${type}_pci_ids) / sizeof(struct pci_module_map); +#endif -print " -}; -int ${type}_num_ids=sizeof(${type}_pci_ids)/sizeof(struct pci_module_map); "; - print "#endif\n"; - + print STDERR "\n"; } |