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/tclInt.h | |
| 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/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 27dbc89..1e66abc 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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: tclInt.h,v 1.144 2004/02/24 22:58:46 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.145 2004/03/04 23:25:10 dgp Exp $ */ #ifndef _TCLINT @@ -1733,6 +1733,9 @@ EXTERN int TclParseBackslash _ANSI_ARGS_((CONST char *src, int numBytes, int *readPtr, char *dst)); EXTERN int TclParseHex _ANSI_ARGS_((CONST char *src, int numBytes, Tcl_UniChar *resultPtr)); +EXTERN void TclParseInit _ANSI_ARGS_ ((Tcl_Interp *interp, + CONST char *string, int numBytes, + Tcl_Parse *parsePtr)); EXTERN int TclParseInteger _ANSI_ARGS_((CONST char *string, int numBytes)); EXTERN int TclParseWhiteSpace _ANSI_ARGS_((CONST char *src, |