1 files changed, 73 insertions, 0 deletions
diff --git a/Cards2CardsNames.pl b/Cards2CardsNames.pl
new file mode 100755
index 00000000..9196c4ce
--- /dev/null
+++ b/Cards2CardsNames.pl
@@ -0,0 +1,73 @@
+#!/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