diff options
author | Steve Bennett <steveb@workware.net.au> | 2013-11-10 13:53:01 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-02-02 12:48:14 +1000 |
commit | 8df5aa2338453ebecb561df96a7c11d356400d77 (patch) | |
tree | 8322a549424ca61a5d101eeee26dcf5f64322dd2 /jim-regexp.c | |
parent | a14c13716364a835a8ab6cfcb4aa969e8c3bcc23 (diff) | |
download | jimtcl-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.c | 4 |
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; } |