From 6170ded83d342b52f0bb1237a705f3f98e99695a Mon Sep 17 00:00:00 2001
From: Björn Stenberg <bjorn@haxx.se>
Date: Wed, 2 Mar 2011 00:20:56 +0000
Subject: Almost 30% faster.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@29488 a1c6a512-1295-4272-9138-f99709370657
---
 tools/genlang | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'tools')

diff --git a/tools/genlang b/tools/genlang
index 22d020fe5a..81d5066453 100755
--- a/tools/genlang
+++ b/tools/genlang
@@ -121,6 +121,8 @@ if(!$target && !$update && !$sortfile) {
     print STDERR "Please specify a target (with -t)!\n";
     exit;
 }
+my @target_parts = split ':', $target;
+
 my $verbose=$v;
 
 my %id; # string to num hash
@@ -149,9 +151,6 @@ sub trim {
 sub match {
     my ($string, $pattern)=@_;
 
-    $pattern =~ s/\*/.*/g;
-    $pattern =~ s/\?/./g;
-
     return ($string =~ /^$pattern\z/);
 }
 
@@ -183,9 +182,12 @@ sub parsetarget {
     my @all= split(" *, *", $n);
     my $test;
     for $test (@all) {
+        $test =~ s/\*/.*/g;
+        $test =~ s/\?/./g;
+
 #        print "TEST ($debug) $target for $test\n";
-        for my $part (split(":", $target)) {
-            if(match($part, $test)) {
+        for my $part (@target_parts) {
+            if($part =~ /^$test\z/) {
                 $string = $v;
 #                print "MATCH: $test => $v\n";
                 $$strref = $string;
-- 
cgit v1.2.3