diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclInt.decls | 32 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 49 | ||||
| -rw-r--r-- | generic/tclIntPlatDecls.h | 16 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 10 |
5 files changed, 108 insertions, 4 deletions
@@ -1,3 +1,8 @@ +1999-07-30 Jeff Hobbs <hobbs@scriptics.com> + + * generic/tclInt.decls: added declaractions necessary for the + Tcl test code to work wth stubs [Bug: 2445] + 1999-07-30 <redman@scriptics.com> * win/tclWinPipe.c: diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 7a6d82c..69e37d7 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.14 1999/07/22 01:26:18 redman Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.15 1999/08/01 20:44:10 hobbs Exp $ library tcl @@ -560,6 +560,30 @@ declare 149 generic { void TclHandleRelease(TclHandle handle) } +declare 150 generic { + int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re) +} +declare 151 generic { + void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr, \ + int *endPtr) +} + +declare 152 generic { + void TclSetLibraryPath(Tcl_Obj *pathPtr) +} +declare 153 generic { + Tcl_Obj *TclGetLibraryPath(void) +} + +declare 154 generic { + int TclTestChannelCmd(ClientData clientData, + Tcl_Interp *interp, int argc, char **argv) +} +declare 155 generic { + int TclTestChannelEventCmd(ClientData clientData, \ + Tcl_Interp *interp, int argc, char **argv) +} + ############################################################################## # Define the platform specific internal Tcl interface. These functions are @@ -762,6 +786,12 @@ declare 23 win { declare 24 win { char * TclWinNoBackslash(char *path) } +declare 25 win { + TclPlatformType *TclWinGetPlatform(void) +} +declare 26 win { + void TclWinSetInterfaces(int wide) +} ######################### # Unix specific internals diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index e519807..481f0bf 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.14 1999/07/22 01:26:19 redman Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.15 1999/08/01 20:44:11 hobbs Exp $ */ #ifndef _TCLINTDECLS @@ -496,6 +496,23 @@ EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle)); EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle)); /* 149 */ EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle)); +/* 150 */ +EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_RegExp re)); +/* 151 */ +EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re, + int index, int * startPtr, int * endPtr)); +/* 152 */ +EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr)); +/* 153 */ +EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void)); +/* 154 */ +EXTERN int TclTestChannelCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int argc, char ** argv)); +/* 155 */ +EXTERN int TclTestChannelEventCmd _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int argc, char ** argv)); typedef struct TclIntStubs { int magic; @@ -683,6 +700,12 @@ typedef struct TclIntStubs { void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */ TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */ void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */ + int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */ + void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */ + void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */ + Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */ + int (*tclTestChannelCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 154 */ + int (*tclTestChannelEventCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 155 */ } TclIntStubs; #ifdef __cplusplus @@ -1292,6 +1315,30 @@ extern TclIntStubs *tclIntStubsPtr; #define TclHandleRelease \ (tclIntStubsPtr->tclHandleRelease) /* 149 */ #endif +#ifndef TclRegAbout +#define TclRegAbout \ + (tclIntStubsPtr->tclRegAbout) /* 150 */ +#endif +#ifndef TclRegExpRangeUniChar +#define TclRegExpRangeUniChar \ + (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ +#endif +#ifndef TclSetLibraryPath +#define TclSetLibraryPath \ + (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ +#endif +#ifndef TclGetLibraryPath +#define TclGetLibraryPath \ + (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ +#endif +#ifndef TclTestChannelCmd +#define TclTestChannelCmd \ + (tclIntStubsPtr->tclTestChannelCmd) /* 154 */ +#endif +#ifndef TclTestChannelEventCmd +#define TclTestChannelEventCmd \ + (tclIntStubsPtr->tclTestChannelEventCmd) /* 155 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ 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 diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index f949dd8..4dfa544 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -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: tclStubInit.c,v 1.23 1999/07/16 21:56:39 redman Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.24 1999/08/01 20:44:12 hobbs Exp $ */ #include "tclInt.h" @@ -225,6 +225,12 @@ TclIntStubs tclIntStubs = { TclHandleFree, /* 147 */ TclHandlePreserve, /* 148 */ TclHandleRelease, /* 149 */ + TclRegAbout, /* 150 */ + TclRegExpRangeUniChar, /* 151 */ + TclSetLibraryPath, /* 152 */ + TclGetLibraryPath, /* 153 */ + TclTestChannelCmd, /* 154 */ + TclTestChannelEventCmd, /* 155 */ }; TclIntPlatStubs tclIntPlatStubs = { @@ -268,6 +274,8 @@ TclIntPlatStubs tclIntPlatStubs = { TclpCreateTempFile, /* 22 */ TclpGetTZName, /* 23 */ TclWinNoBackslash, /* 24 */ + TclWinGetPlatform, /* 25 */ + TclWinSetInterfaces, /* 26 */ #endif /* __WIN32__ */ #ifdef MAC_TCL TclpSysAlloc, /* 0 */ |