diff options
| author | hobbs <hobbs> | 2001-11-21 02:36:18 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-11-21 02:36:18 (GMT) |
| commit | cff9c3309b2e3c096c301a94bff0d9804be13520 (patch) | |
| tree | d6c9734d5b8944f4d96bc77057fc560b661f57c4 /generic/tclDecls.h | |
| parent | f59ffab94e11d0dc9efd7189ec5c64e904cdfedd (diff) | |
| download | tcl-cff9c3309b2e3c096c301a94bff0d9804be13520.zip tcl-cff9c3309b2e3c096c301a94bff0d9804be13520.tar.gz tcl-cff9c3309b2e3c096c301a94bff0d9804be13520.tar.bz2 | |
added TIP#73 patch #483500 from Kevin Kenny.
This deprecates TclpGetTime in favor of new Tcl_GetTime.
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index a1c6a4d..0e67b7b 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.65 2001/10/16 05:31:17 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.66 2001/11/21 02:36:20 hobbs Exp $ */ #ifndef _TCLDECLS @@ -1507,6 +1507,8 @@ EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_(( EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); +/* 482 */ +EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time* timeBuf)); typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; @@ -2048,6 +2050,7 @@ typedef struct TclStubs { int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */ void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 480 */ int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 481 */ + void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time* timeBuf)); /* 482 */ } TclStubs; #ifdef __cplusplus @@ -4016,6 +4019,10 @@ extern TclStubs *tclStubsPtr; #define Tcl_EvalTokensStandard \ (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ #endif +#ifndef Tcl_GetTime +#define Tcl_GetTime \ + (tclStubsPtr->tcl_GetTime) /* 482 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |