summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-09-07 10:15:11 +0000
committerOlivier Blin <oblin@mandriva.com>2007-09-07 10:15:11 +0000
commit6a9e6c7dfa9e62657c17254cf096c16a05dcdf01 (patch)
tree90a3fed5f3189f1c9c61bf19d2bbd0bf2c6b9c72
parent96e00f516496a92b705950e946f4cd85de532f1f (diff)
downloadldetect-lst-6a9e6c7dfa9e62657c17254cf096c16a05dcdf01.tar
ldetect-lst-6a9e6c7dfa9e62657c17254cf096c16a05dcdf01.tar.gz
ldetect-lst-6a9e6c7dfa9e62657c17254cf096c16a05dcdf01.tar.bz2
ldetect-lst-6a9e6c7dfa9e62657c17254cf096c16a05dcdf01.tar.xz
ldetect-lst-6a9e6c7dfa9e62657c17254cf096c16a05dcdf01.zip
provide default module aliases for PCI/USB devices matching multiple modules in preferred-modules.alias (not complete yet, undecided.alias is still 73 lines
-rwxr-xr-xconvert/uniquify-modalias.pl118
-rw-r--r--lst/Makefile8
2 files changed, 124 insertions, 2 deletions
diff --git a/convert/uniquify-modalias.pl b/convert/uniquify-modalias.pl
new file mode 100755
index 00000000..90ed0f10
--- /dev/null
+++ b/convert/uniquify-modalias.pl
@@ -0,0 +1,118 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use File::FnMatch;
+use MDK::Common;
+use list_modules;
+use modalias;
+
+my @ignored_modules = (
+ "ata_generic", #- prefer "generic" non-libata module or full implementation
+ "intelfb", "savagefb", "tdfxfb", qr/_agp$/,
+ qr/_rng$/,
+);
+my @preferred_modules = (
+ "ata_piix", #- prefer over ahci (arbitrary choice, install will try both), depends on BIOS setting
+ "bcm43xx", #- prefer over b43, b43legacy and ssb
+ "dpt_i2o", #- prefer over i2o_core
+ "dmfe", #- prefer over tulip, it only lists supported devices
+ "c4", #- subvendors listed in c4 driver seems not to be supported by DAC960
+ "i2c_viapro", #- prefer over via686a
+ "ipr", #- subvendors listed in ipr driver seems not to be supported by DAC960
+ "mxser_new", #- experimental clone of mxser
+ "pata_netcell", "pata_ns87410", #- no non-libata implementation, prefer over generic module
+ "prism54", #- prefer over p54pci
+ "rt2400", "rt2500", "rt2570", "rt61", "rt73", #- prefer legacy Ralink drivers
+ "skge", #- prefer over sk98lin
+ qr/^snd_/, #- prefer alsa drivers
+ "sx", #- prefer over specialix (sx matches subvendors)
+);
+my @depreciated_modules = (
+ "generic", #- prefer full implementation
+ "gspca", #- kernel hackers value it as poorly coded
+ "ir_usb", #- false positive because of pattern
+ qr/^pata_/, #- don't use libata drivers for now
+ "usb_storage", #- false positive because we don't use subvendors/subdevices
+);
+my @preferred_categories = (
+ "disk/ide",
+ "disk/scsi",
+);
+
+sub build_modalias {
+ my ($class, $vendor, $device) = @_;
+ {
+ pci => "pci:v0000${vendor}d0000${device}sv*sd*bc*i*",
+ usb => "usb:v${vendor}p${device}d*dc*dsc*dp*ic*isc*ip*",
+ }->{$class};
+}
+
+sub match_module {
+ my ($module, $pattern) = @_;
+ ref $pattern eq 'Regexp' ? $module =~ $pattern : $module eq $pattern;
+}
+
+sub grep_non_matching {
+ my ($modules, $list) = @_;
+ grep {
+ my $m = $_->[1];
+ every { !match_module($m, $_) } @$list;
+ } @$modules;
+}
+
+sub grep_matching {
+ my ($modules, $list) = @_;
+ grep {
+ my $m = $_->[1];
+ grep { match_module($m, $_) } @$list;
+ } @$modules;
+}
+
+sub print_module {
+ my ($modalias, $aliases, $class_other) = @_;
+ my @aliases = group_by2(@$aliases);
+ my @other = grep { File::FnMatch::fnmatch($_->[0], $modalias) } @$class_other;
+ my @modules = uniq_ { $_->[1] } @aliases, @other;
+ @modules > 1 or return;
+
+ my @non_ignored = grep_non_matching(\@modules, \@ignored_modules);
+ if (@non_ignored == 1) {
+ print "alias $modalias $non_ignored[0][1]\n";
+ return;
+ } elsif (@non_ignored == 0) {
+ print "alias $modalias off\n";
+ return;
+ }
+
+ @modules = @non_ignored;
+ my @non_depreciated = grep_non_matching(\@modules, \@depreciated_modules);
+ if (@non_depreciated == 1) {
+ print "alias $modalias $non_depreciated[0][1]\n";
+ return;
+ }
+
+ @modules = @non_depreciated if @non_depreciated > 1;
+ my @preferred = grep_matching(\@modules, \@preferred_modules);
+ @preferred or @preferred = grep { member(module2category($_->[1]), @preferred_categories) } @modules;
+ if (@preferred == 1) {
+ print "alias $modalias $preferred[0][1]\n";
+ return;
+ }
+
+ print STDERR "unable to choose for $modalias " . join(" ", map { $_->[1] } @modules) . "\n";
+}
+
+#- we are only interested in the last group:
+# /lib/modules/`uname -r`/modules.alias
+my $alias_group = top(modalias::get_alias_groups());
+
+foreach my $class (qw(pci pcmcia usb)) {
+ my @class_other = group_by2(@{$alias_group->{$class}{other}});
+ foreach my $vendor (sort(keys(%{$alias_group->{$class}}))) {
+ $vendor eq "other" and next;
+ foreach my $device (sort(keys(%{$alias_group->{$class}{$vendor}}))) {
+ my $modalias = build_modalias($class, $vendor, $device);
+ print_module($modalias, $alias_group->{$class}{$vendor}{$device}, \@class_other);
+ }
+ }
+}
diff --git a/lst/Makefile b/lst/Makefile
index d15d96ea..496b8ad9 100644
--- a/lst/Makefile
+++ b/lst/Makefile
@@ -12,10 +12,10 @@ TMP_TABLES1 = $(TABLES1:%=%.tmp)
TMP_TABLES2 = $(TABLES2:%=%.tmp)
TMP_TABLES = $(TABLES:%=%.tmp)
-build:
+build: preferred-modules.alias
clean:
- rm -f *~ *.tmp ScannerDB.gz
+ rm -f *~ *.tmp ScannerDB.gz preferred-modules.alias
check:
@../convert/merge2pcitable.pl pcitable pcitable.x86_64 pcitable.x86_64 > .pcitable
@@ -27,6 +27,9 @@ check:
@cd ../convert; ./verify_Cards.pl
@rm -f .pcitable .usbtable
+preferred-modules.alias:
+ @../convert/uniquify-modalias.pl > $@ 2>undecided.alias
+
$(TMP_TABLES1): %.tmp: %
../convert/merge2pcitable.pl pcitable $< $<.$(ARCH) > $@
@@ -55,3 +58,4 @@ install: $(TMP_TABLES) $(TABLES3)
install -m 644 modprobe.conf $(modprobe_dir)/$(project).conf
install -m 644 `ls -tr /lib/modules/*/modules.alias | tail -1` $(dir)/fallback-modules.alias
+ install -m 644 preferred-modules.alias $(dir)/preferred-modules.alias