1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
#! /usr/bin/perl -w
# get-pci-ids: extract pci vendor/device ids from linux net drivers
# Copyright (C) 2003 Georg Baum <gbaum@users.sf.net>
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# Known bugs/limitations:
# - Does not recognize all drivers because some require special cflags.
# Fails also on some drivers that do belong to other architectures
# than the one of the machine this script is running on.
# This is currently not so important because all drivers that have an
# Etherboot counterpart are recognized.
use strict;
use File::Basename "dirname";
use POSIX "uname";
# Where to find the kernel sources
my $kernel_src = "/usr/src/linux";
if($#ARGV >= 0) {
$kernel_src = shift;
}
# Sanity checks
if($#ARGV >= 0) {
print STDERR "Too many arguments.\n";
print STDERR "Usage: get-pci-ids [path to kernel sources]\n";
print STDERR " /usr/src/linux is assumed if no path is given.\n";
exit 1;
}
unless(-f "$kernel_src/include/linux/version.h") {
print STDERR "Could not find $kernel_src/include/linux/version.h.\n";
print STDERR "$kernel_src is probably no Linux kernel source tree.\n";
exit 1;
}
# Flags that are needed to preprocess the drivers.
# Some drivers need optimization
my $cflags="-D__KERNEL__ -I$kernel_src/include -I$kernel_src/net/inet -O2";
# The C preprocessor. It needs to spit out the preprocessed source on stdout.
my $cpp="gcc -E";
# List of drivers. We parse every .c file. It does not harm if it does not contain a driver.
my @drivers = split /\s+/, `find $kernel_src/drivers/net -name '*.c' | sort`;
# Kernel version
my $version = `grep UTS_RELEASE $kernel_src/include/linux/version.h`;
chomp $version;
$version =~ s/\s*#define\s+UTS_RELEASE\s+"(\S+)".*$/$1/g;
# Architecture
my @uname = uname();
# Print header
print "# PCI vendor/device ids extracted from Linux $version on $uname[4] at " . gmtime() . "\n";
my $driver;
# Process the drivers
foreach $driver (@drivers) {
# Preprocess to expand macros
my $command = "$cpp $cflags -I" . dirname($driver) . " $driver";
open DRIVER, "$command |" or die "Could not execute\n\"$command\".\n";
# Extract the pci_device_id structure
my $found = 0;
my $line = "";
my @lines;
while(<DRIVER>) {
if(/^\s*static\s+struct\s+pci_device_id/) {
# This file contains a driver. Print the name.
$driver =~ s!$kernel_src/drivers/net/!!g;
print "\n$driver\n";
$found = 1;
next;
}
if($found == 1){
if(/\};/ or /{\s*0\s*,?\s*}/) {
# End of struct
$found = 0;
} else {
chomp;
if(/\}\s*,?\s*\n?$/) {
# This line contains a full entry or the last part of it.
$_ = $line . $_;
$line = "";
s/[,\{\};\(\)]//g; # Strip punctuation
s/^\s+//g; # Eat whitespace at beginning of line
tr[A-Z][a-z]; # Convert to lowercase
# Push the vendor and device id to @lines if this line is not empty.
# We ignore everything else that might be there
my ($vendor_id, $device_id, $remainder) = split /\W+/, $_, 3;
push @lines, "$vendor_id $device_id\n" if($vendor_id && $device_id);
} else {
# This line does contain a partial entry. Remember it.
$line .= "$_ ";
}
}
}
}
close DRIVER; # No "or die", because $cpp fails on some files
# Now print out the sorted values
@lines = sort @lines;
my $lastline = "";
foreach(@lines) {
# Print each vendor/device id combination only once.
# Some drivers (e.g. e100) do contain subfamilies
print if($_ ne $lastline);
$lastline = $_;
}
}
|
