From a6682583fc15396f9e1464b6c59acc6db4d32442 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 27 Feb 2002 13:12:03 +0000 Subject: write a short perl program to easily merge new cardbus controllers from pcitable into probe.c --- mdk-stage1/pcmcia_/merge_from_pcitable | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100755 mdk-stage1/pcmcia_/merge_from_pcitable (limited to 'mdk-stage1/pcmcia_/merge_from_pcitable') diff --git a/mdk-stage1/pcmcia_/merge_from_pcitable b/mdk-stage1/pcmcia_/merge_from_pcitable new file mode 100755 index 000000000..f91002517 --- /dev/null +++ b/mdk-stage1/pcmcia_/merge_from_pcitable @@ -0,0 +1,33 @@ +#!/usr/bin/perl + +# This program will show on stdout yenta_socket stuff from pcitable +# which is not in probe.c + +use MDK::Common; + +my @probelines = cat_('probe.c'); +my $status = 0; +foreach (@probelines) { + if ($status == 0) { + /^pci_id_t pci_id\[\] = {/ and $status = 1; + } elsif ($status == 1) { + /^\s*{\s*0x([\da-f]+),\s*0x([\da-f]+),\s*"([^"]*)",\s*"([^"]*)"\s*}/ + and push @probes, { vendor => $1, device => $2, tag => $3, name => $4, vd => "$1$2" }; + /^};/ and last; + } +} + +require '/usr/bin/merge2pcitable.pl'; +my $drivers = read_pcitable("/usr/share/ldetect-lst/pcitable"); + +foreach my $k (sort keys %$drivers) { + $v = $drivers->{$k}; + $k =~ /^(....)(....)/; + push @pcitable, { vendor => $1, device => $2, driver => $v->[0], name => $v->[1], vd => "$1$2" }; +} + +foreach my $p (@pcitable) { + next if $p->{driver} ne 'yenta_socket'; + member($p->{vd}, map { $_->{vd} } @probes) or + print " { 0x$p->{vendor}, 0x$p->{device}, \"..\", \"$p->{name}\" },\n"; +} -- cgit v1.2.1