diff options
| author | surles <surles> | 1999-04-21 18:16:45 (GMT) |
|---|---|---|
| committer | surles <surles> | 1999-04-21 18:16:45 (GMT) |
| commit | 7ab2eee54bc6371397693ad5a6610e8d5efc4cc8 (patch) | |
| tree | ef9e0f2e9d84e84787a71ed5b2d822f6fefac901 /generic/tcl.h | |
| parent | 7c9285dfe8c87bfddcbcd8edfed62cdf18575a60 (diff) | |
| download | tcl-7ab2eee54bc6371397693ad5a6610e8d5efc4cc8.zip tcl-7ab2eee54bc6371397693ad5a6610e8d5efc4cc8.tar.gz tcl-7ab2eee54bc6371397693ad5a6610e8d5efc4cc8.tar.bz2 | |
merged the parse changes between TclPro1.2 and Tcl8.1. Fixed bug in Windows makefile caused when the win/pkgIndex.tcl file was replaced
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 65e5570..895d34e 100644 --- a/generic/tcl.h +++ b/generic/tcl.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: tcl.h,v 1.40 1999/04/17 00:32:27 hershey Exp $ + * RCS: @(#) $Id: tcl.h,v 1.41 1999/04/21 18:16:45 surles Exp $ */ #ifndef _TCL @@ -1328,6 +1328,23 @@ typedef struct Tcl_Token { #define TCL_TOKEN_OPERATOR 128 /* + * Parsing error types. On any parsing error, one of these values + * will be stored in the error field of the Tcl_Parse structure + * defined below. + */ + +#define TCL_PARSE_SUCCESS 0 +#define TCL_PARSE_QUOTE_EXTRA 1 +#define TCL_PARSE_BRACE_EXTRA 2 +#define TCL_PARSE_MISSING_BRACE 3 +#define TCL_PARSE_MISSING_BRACKET 4 +#define TCL_PARSE_MISSING_PAREN 5 +#define TCL_PARSE_MISSING_QUOTE 6 +#define TCL_PARSE_MISSING_VAR_BRACE 7 +#define TCL_PARSE_SYNTAX 8 +#define TCL_PARSE_BAD_NUMBER 9 + +/* * A structure of the following type is filled in by Tcl_ParseCommand. * It describes a single command parsed from an input string. */ @@ -1357,6 +1374,8 @@ typedef struct Tcl_Parse { int numTokens; /* Total number of tokens in command. */ int tokensAvailable; /* Total number of tokens available at * *tokenPtr. */ + int errorType; /* One of the parsing error types defined + * above. */ /* * The fields below are intended only for the private use of the |