diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-03-04 23:25:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-03-04 23:25:09 (GMT) |
| commit | 9472fc9496ffa1b561e42b87aba86e26c96e993f (patch) | |
| tree | 911406bda69a0e5544ae4bb757d2b323e1b6a78e /generic/tclParseExpr.c | |
| parent | 624b5ff0c09f22eee5e4fc6f7507b0fe5a4cdef2 (diff) | |
| download | tcl-9472fc9496ffa1b561e42b87aba86e26c96e993f.zip tcl-9472fc9496ffa1b561e42b87aba86e26c96e993f.tar.gz tcl-9472fc9496ffa1b561e42b87aba86e26c96e993f.tar.bz2 | |
* generic/tclInt.h (TclParseInit): Factored the common code
* generic/tclParse.c (TclParseInit): for initializing a Tcl_Parse
* generic/tclParseExpr.c: struct into one routine.
Diffstat (limited to 'generic/tclParseExpr.c')
| -rw-r--r-- | generic/tclParseExpr.c | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/generic/tclParseExpr.c b/generic/tclParseExpr.c index 84094f4..3a0574e 100644 --- a/generic/tclParseExpr.c +++ b/generic/tclParseExpr.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParseExpr.c,v 1.19 2003/10/14 15:44:53 dgp Exp $ + * RCS: @(#) $Id: tclParseExpr.c,v 1.20 2004/03/04 23:25:15 dgp Exp $ */ #include "tclInt.h" @@ -245,19 +245,7 @@ Tcl_ParseExpr(interp, string, numBytes, parsePtr) } #endif /* TCL_COMPILE_DEBUG */ - parsePtr->commentStart = NULL; - parsePtr->commentSize = 0; - parsePtr->commandStart = NULL; - parsePtr->commandSize = 0; - parsePtr->numWords = 0; - parsePtr->tokenPtr = parsePtr->staticTokens; - parsePtr->numTokens = 0; - parsePtr->tokensAvailable = NUM_STATIC_TOKENS; - parsePtr->string = string; - parsePtr->end = (string + numBytes); - parsePtr->interp = interp; - parsePtr->term = string; - parsePtr->incomplete = 0; + TclParseInit(interp, string, numBytes, parsePtr); /* * Initialize the ParseInfo structure that holds state while parsing |