diff options
| author | hobbs <hobbs> | 2007-11-12 02:07:18 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2007-11-12 02:07:18 (GMT) |
| commit | cf8a7199f105edc95e59373e098af6eb47d22a16 (patch) | |
| tree | c7f005156cbe08f8e11d6845d4a71f991dc5b488 /generic/tclIntDecls.h | |
| parent | 094b6f7ae513ec561543276d7659f3a8b2a5b853 (diff) | |
| download | tcl-cf8a7199f105edc95e59373e098af6eb47d22a16.zip tcl-cf8a7199f105edc95e59373e098af6eb47d22a16.tar.gz tcl-cf8a7199f105edc95e59373e098af6eb47d22a16.tar.bz2 | |
* generic/tclCompCmds.c, generic/tclCompile.c, generic/tclCompile.h:
* generic/tclExecute.c, generic/tclInt.decls, generic/tclIntDecls.h:
* generic/tclRegexp.c, generic/tclRegexp.h: Add INST_REGEXP and fully
* generic/tclStubInit.c, generic/tclUtil.c: compiled [regexp] for the
* tests/regexpComp.test: [Bug 1830166] simple cases. Also
added TclReToGlob function to convert RE to glob patterns and use
these in the possible cases.
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) */ |