From 7a54076460f9303cc109047e1e8e328539d1b857 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 5 Jul 2002 11:34:55 +0000 Subject: - do not use mar files for the list of modules, use list_modules.pm via kernel/modules.pl instead - use read_pcitable to parse usbtable --- mdk-stage1/usb-resource/update-usb-ids.pl | 53 +++++++++++-------------------- 1 file changed, 18 insertions(+), 35 deletions(-) diff --git a/mdk-stage1/usb-resource/update-usb-ids.pl b/mdk-stage1/usb-resource/update-usb-ids.pl index 9dcd421f5..2a54a678b 100755 --- a/mdk-stage1/usb-resource/update-usb-ids.pl +++ b/mdk-stage1/usb-resource/update-usb-ids.pl @@ -1,38 +1,29 @@ #!/usr/bin/perl +use strict; +use MDK::Common; -sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = ; wantarray ? @l : join '', @l } - - --x "../mar/mar" or die "\t*FAILED* Sorry, need ../mar/mar binary\n"; - +require '/usr/bin/merge2pcitable.pl'; +my $pci = read_pcitable("/usr/share/ldetect-lst/pcitable"); +my $usb = read_pcitable("/usr/share/ldetect-lst/usbtable"); -my @usbtable_tmp = cat_("/usr/share/ldetect-lst/usbtable"); -my @usbtable; -foreach (@usbtable_tmp) { - next if /\s*#/; - /\s*(\S+)\s+(\S+)\s+"(\S+)"\s+"([^"]*)"/ or next; - push @usbtable, { 'vendor' => $1, 'id' => $2, 'module' => $3, 'description' => $4 }; -} +print ' -print ' struct usb_module_map { unsigned short vendor; /* vendor */ unsigned short id; /* device */ const char *name; /* human readable name */ const char *module; /* module to load */ }; + '; print "struct pci_module_map usb_pci_ids[] = { "; -require '/usr/bin/merge2pcitable.pl'; -my $drivers = read_pcitable("/usr/share/ldetect-lst/pcitable"); - -while (my ($k, $v) = each %$drivers) { +while (my ($k, $v) = each %$pci) { $v->[0] =~ /^usb-|^ehci-hcd/ or next; $k =~ /^(....)(....)/; printf qq|\t{ 0x%s, 0x%s, "", "%s" },\n|, @@ -43,27 +34,19 @@ print "}; int usb_num_ids=sizeof(usb_pci_ids)/sizeof(struct pci_module_map); "; +print "struct usb_module_map usb_usb_ids[] = { +"; -my @t = ('usb'); - - -foreach $type (@t) { - my $modulez; - foreach (glob("../../all.modules/*/${type}_modules.mar")) { - -f $_ or die "\t*FAILED* Sorry, need $_ mar file\n"; - push @$modulez, (`../mar/mar -l $_`); - } +my @modules = chomp_(`perl ../../kernel/modules.pl pci_modules4stage1:"network/usb disk/usb"`); - print "struct usb_module_map ${type}_usb_ids[] = { -"; - foreach my $usbentry (@usbtable) { - grep(/^\t$usbentry->{'module'}\.o\s/, @$modulez) or next; - printf qq|\t{ %s, %s, "%s", "%s" },\n|, - $usbentry->{'vendor'}, $usbentry->{'id'}, $usbentry->{'description'}, $usbentry->{'module'}; + foreach my $k (sort keys %$usb) { + my $v = $usb->{$k}; + member($v->[0], @modules) or next; + $k =~ /^(....)(....)/; + printf qq|\t{ 0x%s, 0x%s, "%s", "%s" },\n|, + $1, $2, $v->[1], $v->[0]; } print "}; -int ${type}_usb_num_ids=sizeof(${type}_usb_ids)/sizeof(struct usb_module_map); +int usb_usb_num_ids=sizeof(usb_usb_ids)/sizeof(struct usb_module_map); "; - -} -- cgit v1.2.1