diff options
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 05daefb..ca01f4f 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.107 2007/11/09 18:55:15 hobbs Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.108 2007/11/12 02:07:19 hobbs Exp $ */ #ifndef _TCLINTDECLS @@ -1064,6 +1064,13 @@ EXTERN int TclByteArrayMatch (const unsigned char * string, int strLen, const unsigned char * pattern, int ptnLen); #endif +#ifndef TclReToGlob_TCL_DECLARED +#define TclReToGlob_TCL_DECLARED +/* 238 */ +EXTERN int TclReToGlob (Tcl_Interp * interp, const char * reStr, + int reStrLen, Tcl_DString * dsPtr, + int * exactPtr); +#endif typedef struct TclIntStubs { int magic; @@ -1322,6 +1329,7 @@ typedef struct TclIntStubs { void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */ void (*tclBackgroundException) (Tcl_Interp * interp, int code); /* 236 */ int (*tclByteArrayMatch) (const unsigned char * string, int strLen, const unsigned char * pattern, int ptnLen); /* 237 */ + int (*tclReToGlob) (Tcl_Interp * interp, const char * reStr, int reStrLen, Tcl_DString * dsPtr, int * exactPtr); /* 238 */ } TclIntStubs; #ifdef __cplusplus @@ -2059,6 +2067,10 @@ extern TclIntStubs *tclIntStubsPtr; #define TclByteArrayMatch \ (tclIntStubsPtr->tclByteArrayMatch) /* 237 */ #endif +#ifndef TclReToGlob +#define TclReToGlob \ + (tclIntStubsPtr->tclReToGlob) /* 238 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |