diff options
author | hobbs <hobbs> | 1999-08-01 20:43:59 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 1999-08-01 20:43:59 (GMT) |
commit | 920d13e1cc6f72c3725509e4bbb26097c546a5ae (patch) | |
tree | a0b0b8add02186c0da6409cee7c6c4be2a78776e /generic/tclIntPlatDecls.h | |
parent | 7736a343edbd9a5f2feb71878361bc0f1f81640b (diff) | |
download | tcl-920d13e1cc6f72c3725509e4bbb26097c546a5ae.zip tcl-920d13e1cc6f72c3725509e4bbb26097c546a5ae.tar.gz tcl-920d13e1cc6f72c3725509e4bbb26097c546a5ae.tar.bz2 |
* generic/tclInt.decls: added declaractions necessary for the
Tcl test code to work wth stubs [Bug: 2445]
Diffstat (limited to 'generic/tclIntPlatDecls.h')
-rw-r--r-- | generic/tclIntPlatDecls.h | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 1a03db0..6cbf482 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.6 1999/04/30 22:45:02 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.7 1999/08/01 20:44:11 hobbs Exp $ */ #ifndef _TCLINTPLATDECLS @@ -126,6 +126,10 @@ EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); /* 24 */ EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); +/* 25 */ +EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void)); +/* 26 */ +EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide)); #endif /* __WIN32__ */ #ifdef MAC_TCL /* 0 */ @@ -237,6 +241,8 @@ typedef struct TclIntPlatStubs { TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */ char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */ char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ + TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */ + void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */ #endif /* __WIN32__ */ #ifdef MAC_TCL VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ @@ -413,6 +419,14 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclWinNoBackslash \ (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ #endif +#ifndef TclWinGetPlatform +#define TclWinGetPlatform \ + (tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */ +#endif +#ifndef TclWinSetInterfaces +#define TclWinSetInterfaces \ + (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ +#endif #endif /* __WIN32__ */ #ifdef MAC_TCL #ifndef TclpSysAlloc |