summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2007-11-14 00:50:50 (GMT)
committerhobbs <hobbs>2007-11-14 00:50:50 (GMT)
commit0c659b04bff167444e48ca6ec644467a81468ea6 (patch)
treec7fe1e24169e65decba5625ce260083247256e36
parent07768704e04d2aafa94546335092ec3fd5f57f69 (diff)
downloadtcl-0c659b04bff167444e48ca6ec644467a81468ea6.zip
tcl-0c659b04bff167444e48ca6ec644467a81468ea6.tar.gz
tcl-0c659b04bff167444e48ca6ec644467a81468ea6.tar.bz2
* generic/tclCompCmds.c (TclCompileRegexpCmd): clean up comments,
only free dstring on OK from TclReToGlob.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclCompCmds.c21
2 files changed, 17 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index f853fd4..860597d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-13 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * generic/tclCompCmds.c (TclCompileRegexpCmd): clean up comments,
+ only free dstring on OK from TclReToGlob.
+
2007-11-14 Donal K. Fellows <dkf@users.sf.net>
* generic/regc*.c: #ifdef/comment out the code that deals with
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 08b1370..60f209f 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompCmds.c,v 1.124 2007/11/13 22:44:01 dkf Exp $
+ * RCS: @(#) $Id: tclCompCmds.c,v 1.125 2007/11/14 00:50:50 hobbs Exp $
*/
#include "tclInt.h"
@@ -2937,8 +2937,8 @@ TclCompileRegexpCmd(
}
/*
- * Get the regexp string. If it is not a simple string, punt to runtime.
- * If it has a '-', it could be an incorrectly formed regexp command.
+ * Get the regexp string. If it is not a simple string or can't be
+ * converted to a glob pattern, push the word for the INST_REGEXP.
*/
varTokenPtr = TokenAfter(varTokenPtr);
@@ -2946,9 +2946,12 @@ TclCompileRegexpCmd(
if (varTokenPtr->type == TCL_TOKEN_SIMPLE_WORD) {
Tcl_DString ds;
- simple = 1;
str = (char *) varTokenPtr[1].start;
len = varTokenPtr[1].size;
+ /*
+ * If it has a '-', it could be an incorrectly formed regexp command.
+ */
+
if ((*str == '-') && !sawLast) {
return TCL_ERROR;
}
@@ -2964,17 +2967,17 @@ TclCompileRegexpCmd(
/*
* Attempt to convert pattern to glob. If successful, push the
- * converted pattern.
+ * converted pattern as a literal.
*/
if (TclReToGlob(NULL, varTokenPtr[1].start, len, &ds, &exact)
- != TCL_OK) {
- simple = 0;
- } else {
+ == TCL_OK) {
+ simple = 1;
PushLiteral(envPtr, Tcl_DStringValue(&ds),Tcl_DStringLength(&ds));
+ Tcl_DStringFree(&ds);
}
- Tcl_DStringFree(&ds);
}
+
if (!simple) {
CompileWord(envPtr, varTokenPtr, interp, parsePtr->numWords-2);
}