chiark / gitweb /
build-sys: prepare 212
[elogind.git] / hwdb / ids-update.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 sub usb_vendor {
7         my $vendor;
8
9         open(IN, "<", "usb.ids");
10         open(OUT, ">", "20-usb-vendor-model.hwdb");
11         print(OUT "# This file is part of systemd.\n" .
12                   "#\n" .
13                   "# Data imported from: http://www.linux-usb.org/usb.ids\n");
14
15         while (my $line = <IN>) {
16                 $line =~ s/\s+$//;
17                 $line =~ m/^([0-9a-f]{4})\s*(.+)$/;
18                 if (defined $1) {
19                         $vendor = uc $1;
20                         my $text = $2;
21                         print(OUT "\n");
22                         print(OUT "usb:v" . $vendor . "*\n");
23                         print(OUT " ID_VENDOR_FROM_DATABASE=" . $text . "\n");
24                         next;
25                 }
26
27                 $line =~ m/^\t([0-9a-f]{4})\s*(.+)$/;
28                 if (defined $1) {
29                         my $model = uc $1;
30                         my $text = $2;
31                         print(OUT "\n");
32                         print(OUT "usb:v" . $vendor . "p" . $model . "*\n");
33                         print(OUT " ID_MODEL_FROM_DATABASE=" . $text . "\n");
34                 }
35         }
36
37         close(IN);
38         close(OUT);
39 }
40
41 sub usb_classes {
42         my $class;
43         my $subclass;
44         my $protocol;
45
46         open(IN, "<", "usb.ids");
47         open(OUT, ">", "20-usb-classes.hwdb");
48         print(OUT "# This file is part of systemd.\n" .
49                   "#\n" .
50                   "# Data imported from: http://www.linux-usb.org/usb.ids\n");
51
52         while (my $line = <IN>) {
53                 $line =~ s/\s+$//;
54
55                 $line =~ m/^C\ ([0-9a-f]{2})\s*(.+)$/;
56                 if (defined $1) {
57                         $class = uc $1;
58                         if ($class =~ m/^00$/) {
59                                 next;
60                         }
61                         my $text = $2;
62                         print(OUT "\n");
63                         print(OUT "usb:v*p*d*dc" . $class . "*\n");
64                         print(OUT " ID_USB_CLASS_FROM_DATABASE=" . $text . "\n");
65                         next;
66                 }
67
68                 if (not defined $class) {
69                         next;
70                 } elsif ($line =~ m/^$/) {
71                         last;
72                 }
73
74                 $line =~ m/^\t([0-9a-f]{2})\s*(.+)$/;
75                 if (defined $1) {
76                         $subclass = uc $1;
77                         if ($subclass =~ m/^00$/) {
78                                 next;
79                         }
80                         my $text = $2;
81                         if ($text =~ m/^(\?|None|Unused)$/) {
82                                 next;
83                         }
84                         print(OUT "\n");
85                         print(OUT "usb:v*p*d*dc" . $class . "dsc" . $subclass . "*\n");
86                         print(OUT " ID_USB_SUBCLASS_FROM_DATABASE=" . $text . "\n");
87                         next;
88                 }
89
90                 $line =~ m/^\t\t([0-9a-f]{2})\s*(.+)$/;
91                 if (defined $1) {
92                         $protocol = uc $1;
93                         my $text = $2;
94                         if ($text =~ m/^(\?|None|Unused)$/) {
95                                 next;
96                         }
97                         print(OUT "\n");
98                         print(OUT "usb:v*p*d*dc" .  $class . "dsc" . $subclass . "dp" . $protocol . "*\n");
99                         print(OUT " ID_USB_PROTOCOL_FROM_DATABASE=" . $text . "\n");
100                 }
101         }
102
103         close(IN);
104         close(OUT);
105 }
106
107 sub pci_vendor {
108         my $vendor;
109         my $device;
110
111         open(IN, "<", "pci.ids");
112         open(OUT, ">", "20-pci-vendor-model.hwdb");
113         print(OUT "# This file is part of systemd.\n" .
114                   "#\n" .
115                   "# Data imported from: http://pci-ids.ucw.cz/v2.2/pci.ids\n");
116
117         while (my $line = <IN>) {
118                 $line =~ s/\s+$//;
119                 $line =~ m/^([0-9a-f]{4})\s*(.+)$/;
120
121                 if (defined $1) {
122                         $vendor = uc $1;
123                         my $text = $2;
124                         print(OUT "\n");
125                         print(OUT "pci:v0000" . $vendor . "*\n");
126                         print(OUT " ID_VENDOR_FROM_DATABASE=" . $text . "\n");
127                         next;
128                 }
129
130                 $line =~ m/^\t([0-9a-f]{4})\s*(.+)$/;
131                 if (defined $1) {
132                         $device = uc $1;
133                         my $text = $2;
134                         print(OUT "\n");
135                         print(OUT "pci:v0000" . $vendor . "d0000" . $device . "*\n");
136                         print(OUT " ID_MODEL_FROM_DATABASE=" . $text . "\n");
137                         next;
138                 }
139
140                 $line =~ m/^\t\t([0-9a-f]{4})\s*([0-9a-f]{4})\s*(.*)$/;
141                 if (defined $1) {
142                         my $sub_vendor = uc $1;
143                         my $sub_device = uc $2;
144                         my $text = $3;
145                         print(OUT "\n");
146                         print(OUT "pci:v0000" . $vendor . "d0000" . $device . "sv0000" . $sub_vendor . "sd0000" . $sub_device . "*\n");
147                         print(OUT " ID_MODEL_FROM_DATABASE=" . $text . "\n");
148                 }
149         }
150
151         close(IN);
152         close(OUT);
153 }
154
155 sub pci_classes {
156         my $class;
157         my $subclass;
158         my $interface;
159
160         open(IN, "<", "pci.ids");
161         open(OUT, ">", "20-pci-classes.hwdb");
162         print(OUT "# This file is part of systemd.\n" .
163                   "#\n" .
164                   "# Data imported from: http://pci-ids.ucw.cz/v2.2/pci.ids\n");
165
166         while (my $line = <IN>) {
167                 $line =~ s/\s+$//;
168
169                 $line =~ m/^C\ ([0-9a-f]{2})\s*(.+)$/;
170                 if (defined $1) {
171                         $class = uc $1;
172                         my $text = $2;
173                         print(OUT "\n");
174                         print(OUT "pci:v*d*sv*sd*bc" . $class . "*\n");
175                         print(OUT " ID_PCI_CLASS_FROM_DATABASE=" . $text . "\n");
176                         next;
177                 }
178
179                 if (not defined $class) {
180                         next;
181                 } elsif ($line =~ m/^$/) {
182                         last;
183                 }
184
185                 $line =~ m/^\t([0-9a-f]{2})\s*(.+)$/;
186                 if (defined $1) {
187                         $subclass = uc $1;
188                         my $text = $2;
189                         print(OUT "\n");
190                         print(OUT "pci:v*d*sv*sd*bc" . $class . "sc" . $subclass . "*\n");
191                         print(OUT " ID_PCI_SUBCLASS_FROM_DATABASE=" . $text . "\n");
192                         next;
193                 }
194
195                 $line =~ m/^\t\t([0-9a-f]{2})\s*(.+)$/;
196                 if (defined $1) {
197                         $interface = uc $1;
198                         my $text = $2;
199                         print(OUT "\n");
200                         print(OUT "pci:v*d*sv*sd*bc" .  $class . "sc" . $subclass . "i" . $interface . "*\n");
201                         print(OUT " ID_PCI_INTERFACE_FROM_DATABASE=" . $text . "\n");
202                 }
203         }
204
205         close(IN);
206         close(OUT);
207 }
208
209 sub sdio_vendor {
210         my $vendor;
211         my $device;
212
213         open(IN, "<", "sdio.ids");
214         open(OUT, ">", "20-sdio-vendor-model.hwdb");
215         print(OUT "# This file is part of systemd.\n" .
216                   "#\n" .
217                   "# Data imported from: hwdb/sdio.ids\n");
218
219         while (my $line = <IN>) {
220                 $line =~ s/\s+$//;
221                 $line =~ m/^([0-9a-f]{4})\s*(.+)$/;
222
223                 if (defined $1) {
224                         $vendor = uc $1;
225                         my $text = $2;
226                         print(OUT "\n");
227                         print(OUT "sdio:c*v" . $vendor . "*\n");
228                         print(OUT " ID_VENDOR_FROM_DATABASE=" . $text . "\n");
229                         next;
230                 }
231
232                 $line =~ m/^\t([0-9a-f]{4})\s*(.+)$/;
233                 if (defined $1) {
234                         $device = uc $1;
235                         my $text = $2;
236                         print(OUT "\n");
237                         print(OUT "sdio:c*v" . $vendor . "d" . $device . "*\n");
238                         print(OUT " ID_MODEL_FROM_DATABASE=" . $text . "\n");
239                         next;
240                 }
241         }
242
243         close(IN);
244         close(OUT);
245 }
246
247 sub sdio_classes {
248         my $class;
249         my $subclass;
250         my $interface;
251
252         open(IN, "<", "sdio.ids");
253         open(OUT, ">", "20-sdio-classes.hwdb");
254         print(OUT "# This file is part of systemd.\n" .
255                   "#\n" .
256                   "# Data imported from: hwdb/sdio.ids\n");
257
258         while (my $line = <IN>) {
259                 $line =~ s/\s+$//;
260
261                 $line =~ m/^C\ ([0-9a-f]{2})\s*(.+)$/;
262                 if (defined $1) {
263                         $class = uc $1;
264                         my $text = $2;
265                         print(OUT "\n");
266                         print(OUT "sdio:c" . $class . "v*d*\n");
267                         print(OUT " ID_SDIO_CLASS_FROM_DATABASE=" . $text . "\n");
268                         next;
269                 }
270         }
271
272         close(IN);
273         close(OUT);
274 }
275
276 sub oui {
277         my $iab_prefix;
278         my %iab_prefixes = ();
279
280         open(OUT, ">", "20-OUI.hwdb");
281         print(OUT "# This file is part of systemd.\n" .
282                   "#\n" .
283                   "# Data imported from:\n" .
284                   "#   http://standards.ieee.org/develop/regauth/oui/oui.txt\n" .
285                   "#   http://standards.ieee.org/develop/regauth/iab/iab.txt\n");
286
287         open(IN, "<", "iab.txt");
288         while (my $line = <IN>) {
289                 $line =~ s/^ +//;
290                 $line =~ s/\s+$//;
291                 $line =~ m/^([0-9A-F]{2})-([0-9A-F]{2})-([0-9A-F]{2})\s*\(hex\)\s*.+$/;
292                 if (defined $1) {
293                         $iab_prefix = $1 . $2 . $3;
294                         $iab_prefixes{ $iab_prefix } = 1;
295                         next;
296                 }
297
298                 $line =~ m/^([0-9A-F]{3})000-\g1FFF\s*\(base 16\)\s*(.+)$/;
299                 if (defined $1) {
300                         my $vendor = uc $1;
301                         my $text = $2;
302
303                         print(OUT "\n");
304                         print(OUT "OUI:" . $iab_prefix . $vendor . "*\n");
305                         print(OUT " ID_OUI_FROM_DATABASE=" . $text . "\n");
306                 }
307         }
308         close(IN);
309
310         open(IN, "<", "oui.txt");
311         while (my $line = <IN>) {
312                 $line =~ s/^ +//;
313                 $line =~ s/\s+$//;
314                 $line =~ m/^([0-9A-F]{6})\s*\(base 16\)\s*(.+)$/;
315                 if (defined $1) {
316                         my $vendor = uc $1;
317                         my $text = $2;
318
319                         # skip the IAB prefixes
320                         if (! exists $iab_prefixes{ $vendor }) {
321                                 print(OUT "\n");
322                                 print(OUT "OUI:" . $vendor . "*\n");
323                                 print(OUT " ID_OUI_FROM_DATABASE=" . $text . "\n");
324                         }
325                 }
326         }
327         close(IN);
328         close(OUT);
329 }
330
331 usb_vendor();
332 usb_classes();
333
334 pci_vendor();
335 pci_classes();
336
337 sdio_vendor();
338 sdio_classes();
339
340 oui();