Remove the script that was used to update the pciconf(8) database.
authorSascha Wildner <saw@online.de>
Sat, 24 Dec 2011 00:11:38 +0000 (01:11 +0100)
committerSascha Wildner <saw@online.de>
Sat, 24 Dec 2011 00:13:27 +0000 (01:13 +0100)
tools/tools/README
tools/tools/pciid/mk_pci_vendors.pl [deleted file]

index befd9a2..5a98ac2 100644 (file)
@@ -1,5 +1,4 @@
 # $FreeBSD: src/tools/tools/README,v 1.18.2.2 2003/02/24 22:52:36 sam Exp $
-# $DragonFly: src/tools/tools/README,v 1.12 2008/04/26 09:49:50 swildner Exp $
 
 This directory is for tools.
 
@@ -23,7 +22,6 @@ kernxref      Shellscript to cross reference symbols in the LINT kernel.
 local_syms     Shellscript to find symbols not referenced by other files.
 mid            Create a Message-ID database for mailing lists.
 netrate                Generate network packets.
-pciid          Generate src/share/misc/pci_vendors.
 scsi-defects   Get at the primary or grown defect list of a SCSI disk.
 splitpatch     Python script to split a large patch file into independent
                patches.  Default name convention is compatible with
diff --git a/tools/tools/pciid/mk_pci_vendors.pl b/tools/tools/pciid/mk_pci_vendors.pl
deleted file mode 100644 (file)
index 7b74a9a..0000000
+++ /dev/null
@@ -1,297 +0,0 @@
-#!/usr/pkg/bin/perl -w
-#
-# Copyright (C) 2001 Sheldon Hearn.  All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-#    notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-#    notice, this list of conditions and the following disclaimer in the
-#    documentation and/or other materials provided with the distribution.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-# 
-# $FreeBSD: src/tools/tools/pciid/mk_pci_vendors.pl,v 1.5 2004/06/28 11:46:48 mux Exp $
-# $DragonFly: src/tools/tools/pciid/mk_pci_vendors.pl,v 1.2 2008/03/08 20:17:38 swildner Exp $
-#
-# usage: mk_pci_vendors [-lq] [-p pcidevs.txt] [-v vendors.txt] [-x pci.ids]
-#
-# Generate src/share/misc/pci_vendors from the Hart, Boemler and Mares lists,
-# currently available at:
-#
-# Boemler:     http://www.pcidatabase.com/reports.php?type=tab-delimeted
-# Hart:                http://members.datafast.net.au/dft0802/downloads/pcidevs.txt
-# Mares:       http://pciids.sourceforge.net/pci.ids
-#
-# -l   Where an entry is found in the Boemler and the Hart lists, use the
-#      entry with the longest description.  The -l option doesn't affect
-#      the Mares list whose entries are only used if they are new.  The
-#      default is for the Boemler file to override the Hart file to
-#      override the Mares file.
-# -q   Do not print diagnostics.
-# -p   Specify the pathname of the Hart file. (Default ./pcidevs.txt)
-# -v   Specify the pathname of the Boemler file. (Default ./vendors.txt)
-# -x   Specify the pathname of the Mares file. (Default ./pci.ids)
-#
-use strict;
-use Getopt::Std;
-
-my $PROGNAME = 'mk_pci_vendors';
-my $VENDORS_FILE = 'vendors.txt';
-my $PCIDEVS_FILE = 'pcidevs.txt';
-my $PCIIDS_FILE = 'pci.ids';
-
-my $cur_vendor;
-my %opts;
-my %vendors;
-my ($descr, $existing, $id, $line, $rv, $winner, $optlused);
-
-my $IS_VENDOR = 1;
-my $IS_DEVICE = 2;
-my $V_DESCR = 0;
-my $V_DEVSL = 1;
-my $W_NOCONTEST = 0;
-my $W_VENDORS = 1;
-my $W_PCIDEVS = 2;
-
-sub clean_descr($);
-sub vendors_parse($\$\$);
-sub pcidevs_parse($\$\$);
-sub pciids_parse($\$\$);
-
-if (not getopts('lp:qv:x:', \%opts) or @ARGV > 0) {
-       print STDERR "usage: $PROGNAME [-lq] [-p pcidevs.txt] [-v vendors.txt] [-x pci.ids]\n";
-       exit 1;
-}
-
-if (not defined($opts{p})) {
-       $opts{p} = $PCIDEVS_FILE;
-}
-if (not defined($opts{v})) {
-       $opts{v} = $VENDORS_FILE;
-}
-if (not defined($opts{x})) {
-       $opts{x} = $PCIIDS_FILE;
-}
-foreach (('l', 'q')) {
-       if (not exists($opts{$_})) {
-               $opts{$_} = 0;
-       } else {
-               $opts{$_} = 1;
-       }
-}
-
-open(VENDORS, "< $opts{v}") or
-    die "$PROGNAME: $opts{v}: $!\n";
-while ($line = <VENDORS>) {
-       chomp($line);
-       $rv = vendors_parse($line, $id, $descr);
-       if ($rv == $IS_VENDOR) {
-               if (exists($vendors{$id})) {
-                       die "$PROGNAME: $id: duplicate vendor ID\n";
-               }
-               $vendors{$id} = [$descr, {}];
-               $cur_vendor = $id;
-       } elsif ($rv == $IS_DEVICE) {
-               ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id} = $descr;
-       }
-}
-close(VENDORS);
-
-open(PCIDEVS, "< $opts{p}") or
-    die "$PROGNAME: $opts{p}: $!\n";
-while ($line = <PCIDEVS>) {
-       chomp($line);
-       $rv = pcidevs_parse($line, $id, $descr);
-       if ($rv == $IS_VENDOR) {
-               if (not exists($vendors{$id})) {
-                       $vendors{$id} = [$descr, {}];
-                       $winner = $W_NOCONTEST;
-               } elsif ($opts{l}) {
-                       $existing = $vendors{$id}->[$V_DESCR];
-                       if (length($existing) < length($descr)) {
-                               $vendors{$id}->[$V_DESCR] = $descr;
-                               $winner = $W_PCIDEVS;
-                       } else {
-                               $winner = $W_VENDORS;
-                       }
-               } else {
-                       $winner = $W_VENDORS;
-               }
-               $cur_vendor = $id;
-               if (not $opts{q} and $winner != $W_NOCONTEST) {
-                       $existing = $vendors{$id}->[$V_DESCR];
-                       print STDERR "$PROGNAME: ",
-                           $winner == $W_VENDORS ? "Boemler" : "Hart",
-                           " vendor wins: $id\t$existing\n";
-               }
-       } elsif ($rv == $IS_DEVICE) {
-               if (not exists(${$vendors{$cur_vendor}->[$V_DEVSL]}{$id})) {
-                       ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id} = $descr;
-                       $winner = $W_NOCONTEST;
-               } elsif ($opts{l}) {
-                       $existing = ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id};
-                       if (length($existing) < length($descr)) {
-                               ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id} =
-                                   $descr;
-                               $winner = $W_PCIDEVS;
-                       } else {
-                               $winner = $W_VENDORS;
-                       }
-               } else {
-                       $winner = $W_VENDORS;
-               }
-               if (not $opts{q} and $winner != $W_NOCONTEST) {
-                       $existing = ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id};
-                       print STDERR "$PROGNAME: ",
-                           $winner == $W_VENDORS ? "Boemler" : "Hart",
-                           " device wins: $id\t$existing\n";
-               }
-       }
-}
-close(PCIDEVS);
-
-open(PCIIDS, "< $opts{x}") or
-    die "$PROGNAME: $opts{x}: $!\n";
-while ($line = <PCIIDS>) {
-       chomp($line);
-       $rv = pciids_parse($line, $id, $descr);
-       if ($rv == $IS_VENDOR) {
-               if (not exists($vendors{$id})) {
-                       $vendors{$id} = [$descr, {}];
-               }
-       $cur_vendor = $id;
-       } elsif ($rv == $IS_DEVICE) {
-               if (not exists(${$vendors{$cur_vendor}->[$V_DEVSL]}{$id})) {
-                       ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id} = $descr;
-               }
-       }
-}
-close(PCIIDS);
-
-$optlused = $opts{l} ? "with" : "without";
-print <<HEADER_END;
-;
-; Automatically generated by src/tools/tools/pciid/mk_pci_vendors.pl
-; ($optlused the -l option), using the following source lists:
-;
-;      http://www.pcidatabase.com/reports.php?type=tab-delimeted
-;      http://members.datafast.net.au/dft0802/downloads/pcidevs.txt
-;      http://pciids.sourceforge.net/pci.ids
-;
-; Manual edits on this file will be lost!
-;
-HEADER_END
-
-foreach $cur_vendor (sort keys %vendors) {
-       $id = $cur_vendor;
-       $descr = $vendors{$id}->[$V_DESCR];
-       print "$id\t$descr\n";
-       foreach $id (sort keys %{$vendors{$cur_vendor}->[$V_DEVSL]}) {
-               $descr = ${$vendors{$cur_vendor}->[$V_DEVSL]}{$id};
-               print "\t$id\t$descr\n";
-       }
-}
-exit 0;
-
-
-# Parse a line from the Boemler file and place the ID and description
-# in the scalars referenced by $id_ref and $descr_ref.
-#
-# On success, returns $IS_VENDOR if the line represents a vendor entity
-# or $IS_DEVICE if the line represents a device entity.
-#
-# Returns 0 on failure.
-#
-sub vendors_parse($\$\$)
-{
-       my ($line, $id_ref, $descr_ref) = @_;
-
-       if ($line =~ /^([A-Fa-f0-9]{4})\t([^\t].+?)\s*$/) {
-               ($$id_ref, $$descr_ref) = (uc($1), clean_descr($2));
-               return $IS_VENDOR;
-       } elsif ($line =~ /^\t([A-Fa-f0-9]{4})\t([^\t].+?)\s*$/) {
-               ($$id_ref, $$descr_ref) = (uc($1), clean_descr($2));
-               return $IS_DEVICE;
-       } elsif (not $opts{q} and
-           $line !~ /^\s*$/ and $line !~ /^;/) {
-               chomp($line);
-               print STDERR "$PROGNAME: ignored Boemler: $line\n";
-       }
-
-       return 0;
-}
-
-# Parse a line from the Hart file and place the ID and description
-# in the scalars referenced by $id_ref and $descr_ref.
-#
-# On success, returns $IS_VENDOR if the line represents a vendor entity
-# or $IS_DEVICE if the line represents a device entity.
-#
-# Returns 0 on failure.
-#
-sub pcidevs_parse($\$\$)
-{
-       my ($line, $id_ref, $descr_ref) = @_;
-       my $descr;
-
-       if ($line =~ /^V\t([A-Fa-f0-9]{4})\t([^\t].+?)\s*$/) {
-               ($$id_ref, $$descr_ref) = (uc($1), clean_descr($2));
-               return $IS_VENDOR;
-       } elsif ($line =~ /^D\t([A-Fa-f0-9]{4})\t([^\t].+?)\s*$/) {
-               ($$id_ref, $$descr_ref) = (uc($1), clean_descr($2));
-               return $IS_DEVICE;
-       } elsif (not $opts{q} and
-           $line !~ /^\s*$/ and $line !~ /^[;ORSX]/) {
-               print STDERR "$PROGNAME: ignored Hart: $line\n";
-       }
-
-       return 0;
-}
-
-# Parse a line from the Mares file and place the ID and description
-# in the scalars referenced by $id_ref and $descr_ref.
-#
-# On success, returns $IS_VENDOR if the line represents a vendor entity
-# or $IS_DEVICE if the line represents a device entity.
-#
-# Returns 0 on failure.
-#
-sub pciids_parse($\$\$)
-{
-       my ($line, $id_ref, $descr_ref) = @_;
-       my $descr;
-
-       if ($line =~ /^([A-Fa-f0-9]{4})  (.+?)$/) {
-               ($$id_ref, $$descr_ref) = (uc($1), clean_descr($2));
-               return $IS_VENDOR;
-       } elsif ($line =~ /^\t([A-Fa-f0-9]{4})  (.+?)$/) {
-               ($$id_ref, $$descr_ref) = (uc($1), clean_descr($2));
-               return $IS_DEVICE;
-       } elsif (not $opts{q} and
-           $line !~ /^\s*$/ and $line !~ /^#/) {
-               chomp($line);
-               print STDERR "$PROGNAME: ignored Mares: $line\n";
-       }
-
-       return 0;
-}
-
-sub clean_descr($)
-{
-       my ($descr) = @_;
-
-       return $descr;
-}