trunk/convert/verify_Cards.pl

#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);
use Xconfig::card;
require './merge2pcitable.pl';

$cards = Xconfig::card::readCardsDB("../lst/Cards+");

foreach my $file (qw(pcitable usbtable)) {
    my $drivers = read_pcitable("../lst/$file");
    foreach (values %$drivers) {
        my ($driver, $name, $line) = @$_;
        my ($card) = $driver =~ /^Card:(.*)/ or next;
        if (!$cards->{$card}) {
            warn "$file:$line: unknown card $name\n";
            $bad++;
        } elsif (!$cards->{$card}{Driver}) {
            warn "$file:$line: no Driver for card $name\n";
            $bad++;
        }
    }
}

exit $bad;
1	#!/usr/bin/perl
2
3	use lib qw(/usr/lib/libDrakX);
4	use Xconfig::card;
5	require './merge2pcitable.pl';
6
7	$cards = Xconfig::card::readCardsDB("../lst/Cards+");
8
9	foreach my $file (qw(pcitable usbtable)) {
10	my $drivers = read_pcitable("../lst/$file");
11	foreach (values %$drivers) {
12	my ($driver, $name, $line) = @$_;
13	my ($card) = $driver =~ /^Card:(.*)/ or next;
14	if (!$cards->{$card}) {
15	warn "$file:$line: unknown card $name\n";
16	$bad++;
17	} elsif (!$cards->{$card}{Driver}) {
18	warn "$file:$line: no Driver for card $name\n";
19	$bad++;
20	}
21	}
22	}
23
24	exit $bad;