summaryrefslogtreecommitdiffstats
path: root/convert/Cards2CardsNames.pl
diff options
context:
space:
mode:
Diffstat (limited to 'convert/Cards2CardsNames.pl')
-rwxr-xr-xconvert/Cards2CardsNames.pl73
1 files changed, 0 insertions, 73 deletions
diff --git a/convert/Cards2CardsNames.pl b/convert/Cards2CardsNames.pl
deleted file mode 100755
index 9196c4ce..00000000
--- a/convert/Cards2CardsNames.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-
-$vendors = join '|', map { chomp; quotemeta } <DATA>;
-
-%substs = (
-"3Dlabs" => "3DLabs",
-"COMPAQ" => "Compaq",
-"Creative Blaster Exxtreme" => "Creative Labs Blaster Exxtreme",
-"ELSA" => "Elsa",
-"ATrend" => "Atrend",
-"Ocean (octek)" => "Octek",
-"HOT" => "Spacewalker Hot",
-);
-
-print "# This file is auto-generated from Cards+, DO NOT MODIFY\n";
-print "#\n";
-
-foreach (<>) {
- my ($n) = /^NAME (.*)/ or next;
- $_ = $n;
- while (my ($k, $v) = each %substs) { s/^\Q$k/$v/; }
-
- if (my ($v, $more) = /^($vendors)\s*-?(.*)/) {
- $_ = "$v|$more";
- } else {
- $_ = "Other|$_";
- }
- print qq{$_=>$n\n};
-}
-
-__DATA__
-3DLabs
-Compaq
-Dell
-Elsa
-Rendition Verite
-Intel
-Oak
-Ark Logic
-Cardex
-Digital
-RIVA
-Spider
-Canopus
-Leadtek
-NVIDIA
-Octek
-ASUS
-Actix
-Avance Logic
-ET
-Genoa
-SMI
-SPEA
-VideoLogic
-Creative Labs
-Toshiba
-Orchid
-Chaintech
-Cirrus Logic
-AOpen
-SiS
-Chips & Technologies
-Number Nine
-Miro
-STB
-Matrox
-Hercules
-Trident
-Sun
-Diamond
-S3
-ATI