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

Here is the revised patch.

Ben

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 <[email protected]>.
 
 # 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)

_______________________________________________
DejaGnu mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/dejagnu

-----BEGIN PGP SIGNATURE-----

iQIzBAEBCAAdFiEEFS8+rdM1/2KWERKFZ9rcPj90NkkFAlwQ+ugACgkQZ9rcPj90
NkntPRAAqRxbqOh1BnVsD3BVfev39UwdAe9SnFW4XIMRS8VOjMFoNj9DnWiOzeUA
SAhRh1Bpj4URl3KJLxZJYxLsrTYOM/YidRe1OIeiSHsbO+KwDwF0v+aNNVInmJhZ
DlLJdBV7JmcPIIDSfDPDqfpt+caMzwi7w6SkdcDqIZMgerLa2tBwBMfcSQ0qM3sr
ajJVooXJRH7EAiVO+Z1d2ptnBrTYQyFIASL9jc0Nkdaw+aowVjeiqGql8oEuywQY
RiLeaBxb634pnxpMZhNBVqArTVftbUXMW59vxNcMaAWtibgJfBt+YRgxB5AtqAIm
90m5ijffsLw6NMo+ZovYPzwmuUK5IVwKNiGSD6Nc16L8xRJnFy6stb137gCBdDpL
wgoqfB3Zh+V4ucVyiunFTiflzPhYwMsgwufNAXeDoHrC14U+FdQqhtWI11v2Xyt1
pvU0c45mAUQ2Szg1gkvdgNBSrqNPSDsUtPTI0kLmh/23lUZArIJhic90ZrFriXwB
shLb3iFLovzpO1pxiRgTlbWEokVQ3zWyRXu0vAhiE89HssPVVqbOBPfIeYLk3/Hk
nROhFDMOyK8c24D7ZCfftJZ7GfYQECOzUtQRcdxbGrOGchLDwzodfLKfuY2L5/ka
4PEdvMOL6DLjX299FaEkJ+6N0pU6K2FFlMJl9adqKaD4k7eTekc=
=baD3
-----END PGP SIGNATURE-----