[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: PATCH: redefine $decimal, $hex, $text vars

From: Ben Elliston
Subject: Re: PATCH: redefine $decimal, $hex, $text vars
Date: Wed, 12 Dec 2018 23:11:21 +1100
User-agent: NeoMutt/20170609 (1.8.3)

Here is the revised patch.


diff --git a/lib/target.exp b/lib/target.exp
index 2620e30..dc0f5c4 100644
--- a/lib/target.exp
+++ b/lib/target.exp
@@ -20,7 +20,7 @@
 # extensively modified by Bob Manson <address@hidden>.
 # A hairy pattern to recognize text.
-set text "\[- A-Za-z0-9\.\;\"\_\:\'\`\(\)\!\#\=\+\?\&\*]"
+set text {[ [:alnum:][:punct:]]}
 # This is a collection of support procs for the target data
 # structures. We use a named array, since Tcl has no real data
diff --git a/runtest.exp b/runtest.exp
index 09ffcf0..0352297 100644
--- a/runtest.exp
+++ b/runtest.exp
@@ -105,8 +105,8 @@ unset -nocomplain env(CCACHE_NODISABLE)
 # some convenience abbreviations
-set hex "0x\[0-9A-Fa-f\]+"
-set decimal "\[0-9\]+"
+set hex {0x[[:xdigit:]]+}
+set decimal {[[:digit:]]+}
 # set the base dir (current working directory)

Attachment: signature.asc
Description: PGP signature

reply via email to

[Prev in Thread] Current Thread [Next in Thread]