diff options
author | joye <joye> | 2013-09-04 17:23:56 (GMT) |
---|---|---|
committer | joye <joye> | 2013-09-04 17:23:56 (GMT) |
commit | c435c19166959b240956b5e892b0cbf64e482efb (patch) | |
tree | f336b7cc05908a910fda80a9abe7068a0741f1fa | |
parent | ca27111ed3786b10c71e28c43f20bed1d7928050 (diff) | |
download | blt-c435c19166959b240956b5e892b0cbf64e482efb.zip blt-c435c19166959b240956b5e892b0cbf64e482efb.tar.gz blt-c435c19166959b240956b5e892b0cbf64e482efb.tar.bz2 |
*** empty log message ***
-rw-r--r-- | src/bltParse.C | 20 | ||||
-rw-r--r-- | src/bltParse.h | 13 |
2 files changed, 31 insertions, 2 deletions
diff --git a/src/bltParse.C b/src/bltParse.C index fc051f3..ffbd714 100644 --- a/src/bltParse.C +++ b/src/bltParse.C @@ -22,6 +22,24 @@ * include them. In fact, the byte-compiled versions would be slower * since the compiled code typically runs only one time. */ +#define TIME_WITH_SYS_TIME 0 +#define HAVE_SYS_TIME_H 1 + +#define STDC_HEADERS 1 +#define HAVE_SYS_TYPES_H 1 +#define HAVE_SYS_STAT_H 1 +#define HAVE_STDLIB_H 1 +#define HAVE_STRING_H 1 +#define HAVE_MEMORY_H 1 +#define HAVE_STRINGS_H 1 +#define HAVE_INTTYPES_H 1 +#define HAVE_STDINT_H 1 +#define HAVE_UNISTD_H 1 +#define HAVE_LIMITS_H 1 +#define HAVE_SYS_PARAM_H 1 + +#include <tclPort.h> +#include <tclInt.h> #include <bltInt.h> #include "bltParse.h" @@ -219,7 +237,7 @@ Blt_ParseNestedCmd( iPtr->evalFlags = flags | TCL_BRACKET_TERM; result = Tcl_Eval(interp, string); - *termPtr = (string + iPtr->termOffset); + *termPtr = (string + iPtr->unused1); if (result != TCL_OK) { /* * The increment below results in slightly cleaner message in diff --git a/src/bltParse.h b/src/bltParse.h index 3ff26cb..fd9aa51 100644 --- a/src/bltParse.h +++ b/src/bltParse.h @@ -27,7 +27,18 @@ #ifndef _BLT_PARSE_H #define _BLT_PARSE_H -#include "tclInterp.h" +typedef struct _ParseValue ParseValue; + +struct _ParseValue { + char *buffer; + char *next; + char *end; + void (*expandProc)(ParseValue *pvPtr, int needed); + ClientData clientData; +}; + +#define TCL_BRACKET_TERM 1 +#define TCL_ALLOW_EXCEPTIONS 4 BLT_EXTERN int Blt_ParseBraces(Tcl_Interp *interp, const char *string, const char **termPtr, ParseValue *pvPtr); |