diff options
| author | redman <redman> | 1999-08-02 17:45:33 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-08-02 17:45:33 (GMT) |
| commit | 28cb778fa903f381fb65fe996eb2b51268977123 (patch) | |
| tree | 4a9bbeb221aaaa7eb6a3c3030bd6ded637df64f3 /generic/tclDecls.h | |
| parent | 82389cfbf44c58aa0eacc14452ff199223e1cb99 (diff) | |
| download | tcl-28cb778fa903f381fb65fe996eb2b51268977123.zip tcl-28cb778fa903f381fb65fe996eb2b51268977123.tar.gz tcl-28cb778fa903f381fb65fe996eb2b51268977123.tar.bz2 | |
* generic/tcl.h:
* generic/tcl.decls:
* generic/tclDecls.h:
* generic/tclInt.h:
* generic/tclInt.decls:
* generic/tclIntDecls.h:
* generic/tclRegexp.h:
* generic/tclStubInit.c: Move some exported public and internal
functions to the stub tables. Removed functions that are in the
stub tables (from this and previous changes) from the original
header files.
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index eb1c35a..9dcedc4 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.23 1999/07/22 01:08:04 redman Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.24 1999/08/02 17:45:36 redman Exp $ */ #ifndef _TCLDECLS @@ -1208,6 +1208,9 @@ EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp, /* 386 */ EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( Tcl_NotifierProcs * notifierProcPtr)); +/* 387 */ +EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp, + char * string, Tcl_Obj * patObj)); typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; @@ -1662,6 +1665,7 @@ typedef struct TclStubs { void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((register Tcl_Obj * objPtr, Tcl_UniChar * unicode, int length)); /* 384 */ int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * stringObj, Tcl_Obj * patternObj)); /* 385 */ void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPtr)); /* 386 */ + int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tcl_Obj * patObj)); /* 387 */ } TclStubs; #ifdef __cplusplus @@ -3255,6 +3259,10 @@ extern TclStubs *tclStubsPtr; #define Tcl_SetNotifier \ (tclStubsPtr->tcl_SetNotifier) /* 386 */ #endif +#ifndef Tcl_RegExpMatchObj +#define Tcl_RegExpMatchObj \ + (tclStubsPtr->tcl_RegExpMatchObj) /* 387 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |