diff options
| author | dkf <dkf@noemail.net> | 2001-07-12 13:15:09 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2001-07-12 13:15:09 (GMT) |
| commit | 3ca4cc78cc638db2dbeb8938ba76712c046a1fba (patch) | |
| tree | 3c3398315ca2c30b926058cb5dbf50de7dd0fd7c /generic/tclDecls.h | |
| parent | 95c86507d7337013122a84679f1bd9c04a8224fb (diff) | |
| download | tcl-3ca4cc78cc638db2dbeb8938ba76712c046a1fba.zip tcl-3ca4cc78cc638db2dbeb8938ba76712c046a1fba.tar.gz tcl-3ca4cc78cc638db2dbeb8938ba76712c046a1fba.tar.bz2 | |
TIP#36 implementation. Also includes cleanup for subst option
handling and improved documentation for the subst command (in my
capacity as maintainer of the Commands M-Z functional area.)
FossilOrigin-Name: ea6ab47ee7480478f9483420f0c5ea3053d28cf4
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 bb600ed..2e94d6a 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.51 2001/06/08 20:06:11 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.52 2001/07/12 13:15:09 dkf Exp $ */ #ifndef _TCLDECLS @@ -1368,6 +1368,9 @@ EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((Tcl_Interp * interp, /* 436 */ EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pattern)); +/* 437 */ +EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, int flags)); typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; @@ -1864,6 +1867,7 @@ typedef struct TclStubs { Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 434 */ int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr)); /* 435 */ Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pattern)); /* 436 */ + Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); /* 437 */ } TclStubs; #ifdef __cplusplus @@ -3652,6 +3656,10 @@ extern TclStubs *tclStubsPtr; #define Tcl_ListMathFuncs \ (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ #endif +#ifndef Tcl_SubstObj +#define Tcl_SubstObj \ + (tclStubsPtr->tcl_SubstObj) /* 437 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |