moved in dir lst

1 files changed, 0 insertions, 73 deletions

diff --git a/Cards2CardsNames.pl b/Cards2CardsNames.pl
deleted file mode 100755
index 9196c4ce..00000000
--- a/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