aboutsummaryrefslogtreecommitdiff
path: root/jim-regexp.c
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2013-11-10 13:53:01 +1000
committerSteve Bennett <steveb@workware.net.au>2016-02-02 12:48:14 +1000
commit8df5aa2338453ebecb561df96a7c11d356400d77 (patch)
tree8322a549424ca61a5d101eeee26dcf5f64322dd2 /jim-regexp.c
parenta14c13716364a835a8ab6cfcb4aa969e8c3bcc23 (diff)
downloadjimtcl-8df5aa2338453ebecb561df96a7c11d356400d77.zip
jimtcl-8df5aa2338453ebecb561df96a7c11d356400d77.tar.gz
jimtcl-8df5aa2338453ebecb561df96a7c11d356400d77.tar.bz2
regexp: Enable additional regexp/regsub tests
Many Tcl regexp tests now work correctly with Jim regexp Also update regsub/regexp wrong # args error message to match Tcl 8.6 Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-regexp.c')
-rw-r--r--jim-regexp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/jim-regexp.c b/jim-regexp.c
index 25e05a3..8eb457d 100644
--- a/jim-regexp.c
+++ b/jim-regexp.c
@@ -137,7 +137,7 @@ int Jim_RegexpCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
if (argc < 3) {
wrongNumArgs:
Jim_WrongNumArgs(interp, 1, argv,
- "?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?");
+ "?-switch ...? exp string ?matchVar? ?subMatchVar ...?");
return JIM_ERR;
}
@@ -366,7 +366,7 @@ int Jim_RegsubCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
if (argc < 4) {
wrongNumArgs:
Jim_WrongNumArgs(interp, 1, argv,
- "?switches? exp string subSpec ?varName?");
+ "?-switch ...? exp string subSpec ?varName?");
return JIM_ERR;
}