tokhash: allow a bit smarter pattern matching

Allow constants to match only part of the token string.

1 files changed, 12 insertions, 0 deletions

diff --git a/tokhash.pl b/tokhash.pl
index a63e55f..f45d07d 100755
--- a/tokhash.pl
+++ b/tokhash.pl
@@ -101,6 +101,18 @@ while (defined($line = <TD>)) {
 	$tokens{$token} = scalar @tokendata;
 	
 	$data = $pattern;
+	if ($data =~ /^(.*)\{(.*)\}(.*)$/) {
+	    my $head = $1, $tail = $3;
+	    my $px = $2;
+	    
+	    $px =~ s/\*/(.*)/g;
+	    if ($token =~ /$px/i) {
+		$data = $head."\U$1".$tail;
+	    } else {
+		die "$0: token $token doesn't match $px\n";
+	    }
+	}
+
 	$data =~ s/\*/\U$token/g;
 
 	push(@tokendata, "\"$token\", $data");