From 5b42f6f25b9b8fa4bc3ccfe37069a447f89c6327 Mon Sep 17 00:00:00 2001
From: Oz Linden <oz@lindenlab.com>
Date: Tue, 13 Sep 2011 10:00:03 -0400
Subject: modify gpu_table_tester to lowercase things the way that the real gpu
 table parser does

---
 scripts/gpu_table_tester | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'scripts')

diff --git a/scripts/gpu_table_tester b/scripts/gpu_table_tester
index 52b1c8f31d..2ad7ffc01e 100755
--- a/scripts/gpu_table_tester
+++ b/scripts/gpu_table_tester
@@ -62,14 +62,14 @@ die "Must specify a --gpu-table <gpu_table.txt> value"
 open(GPUS, "<$GpuTable")
     || die "Failed to open gpu table '$GpuTable':\n\t$!\n";
 
-# Parse the GPU table into these table, indexed by the name
+# Parse the GPU table into these tables, indexed by the name
 my %NameLine;       # name -> line number on which a given name was found (catches duplicate names)
 my %RecognizerLine; # name -> line number on which a given name was found (catches duplicate names)
 my %Name;           # recognizer -> name
 my %Recognizer;     # name -> recognizer
 my %Class;          # recognizer -> class
 my %Supported;      # recognizer -> supported
-my @InOrder;        # records the order of the recognizers
+my @InOrder;        # lowercased recognizers in file order - these are the ones really used to match
 
 $Name{'UNRECOGNIZED'}      = 'UNRECOGNIZED';
 $NameLine{'UNRECOGNIZED'}  = '(hard-coded)'; # use this for error messages in table parsing
@@ -126,7 +126,8 @@ while (<GPUS>)
     
     if ($errsOnLine == $ErrorsSeen) # no errors found on this line
     {
-        push @InOrder,$regex;
+        $lcregex = $regex; # the real gpu table parser lowercases each recognizer
+        push @InOrder,$lcregex;
         $NameLine{$name} = $INPUT_LINE_NUMBER;
         $RecognizerLine{$regex} = $INPUT_LINE_NUMBER;
         $Name{$regex} = $name;
@@ -142,10 +143,13 @@ print STDERR "\n" if $ErrorsSeen;
 
 exit $ErrorsSeen if $TableOnly;
 
+
 my %RecognizedBy;
-while (<>)
+while (<>) # Loop over input lines
 {
     chomp;
+    my $lowerInput = $_;
+    lc lowerInput;  # the real gpu table parser lowercases the input string
     my $recognizer;
     $RecognizedBy{$_} = 'UNRECOGNIZED';
     foreach $recognizer ( @InOrder ) # note early exit if recognized
-- 
cgit v1.2.3