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: [PATCH] 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(-)
diff --git a/scripts/gpu_table_tester b/scripts/gpu_table_tester
index 52b1c8f31dc..2ad7ffc01e5 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
--
GitLab