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
|
#!/usr/bin/perl
#
# Copyright 2007 Red Hat Inc.
# This crappy script written by Dave Airlie to avoid hassle of adding
# ids in every place.
#
use strict;
use warnings;
use Text::CSV_XS;
my $file = $ARGV[0];
my $atioutfile = 'ati_pciids_gen.h';
my $radeonpcichipsetfile = 'radeon_pci_chipset_gen.h';
my $radeonchipsetfile = 'radeon_chipset_gen.h';
my $radeonchipinfofile = 'radeon_chipinfo_gen.h';
my $csv = Text::CSV_XS->new();
open (CSV, "<", $file) or die $!;
open (ATIOUT, ">", $atioutfile) or die;
open (PCICHIPSET, ">", $radeonpcichipsetfile) or die;
open (RADEONCHIPSET, ">", $radeonchipsetfile) or die;
open (RADEONCHIPINFO, ">", $radeonchipinfofile) or die;
print RADEONCHIPSET "/* This file is autogenerated please do not edit */\n";
print RADEONCHIPSET "static SymTabRec RADEONChipsets[] = {\n";
print PCICHIPSET "/* This file is autogenerated please do not edit */\n";
print PCICHIPSET "PciChipsets RADEONPciChipsets[] = {\n";
print RADEONCHIPINFO "/* This file is autogenerated please do not edit */\n";
print RADEONCHIPINFO "RADEONCardInfo RADEONCards[] = {\n";
while (<CSV>) {
if ($csv->parse($_)) {
my @columns = $csv->fields();
if ((substr($columns[0], 0, 1) ne "#")) {
print ATIOUT "#define PCI_CHIP_$columns[1] $columns[0]\n";
if (($columns[2] ne "R128") && ($columns[2] ne "MACH64") && ($columns[2] ne "MACH32")) {
print PCICHIPSET " { PCI_CHIP_$columns[1], PCI_CHIP_$columns[1], RES_SHARED_VGA },\n";
print RADEONCHIPSET " { PCI_CHIP_$columns[1], \"$columns[8]\" },\n";
print RADEONCHIPINFO " { $columns[0], CHIP_FAMILY_$columns[2], ";
if ($columns[3] eq "1") {
print RADEONCHIPINFO "1, ";
} else {
print RADEONCHIPINFO "0, ";
}
if ($columns[4] eq "1") {
print RADEONCHIPINFO "1, ";
} else {
print RADEONCHIPINFO "0, ";
}
if ($columns[5] eq "1") {
print RADEONCHIPINFO "1, ";
} else {
print RADEONCHIPINFO "0, ";
}
if ($columns[6] eq "1") {
print RADEONCHIPINFO "1, ";
} else {
print RADEONCHIPINFO "0, ";
}
if ($columns[7] eq "1") {
print RADEONCHIPINFO "1 ";
} else {
print RADEONCHIPINFO "0 ";
}
print RADEONCHIPINFO "},\n";
}
}
} else {
my $err = $csv->error_input;
print "Failed to parse line: $err";
}
}
print RADEONCHIPINFO "};\n";
print RADEONCHIPSET " { -1, NULL }\n};\n";
print PCICHIPSET " { -1, -1, RES_UNDEFINED }\n};\n";
close CSV;
close ATIOUT;
close PCICHIPSET;
close RADEONCHIPSET;
close RADEONCHIPINFO;
|
