From 0b1221cdae98a17ad9a05f483d6439e2822cc0a8 Mon Sep 17 00:00:00 2001 From: stanton Date: Tue, 9 Mar 1999 02:37:12 +0000 Subject: * generic/tcl.h: Moved Tcl_Mutex, etc. macros above the inclusion of tclDecls.h to avoid macro conflicts. * generic/tclInt.h: * generic/regc_color.c: * generic/regcomp.c: * generic/tclCmdIL.c: * generic/tclCmdAH.c: * generic/tclIOCmd.c: * generic/tclParse.c: * generic/tclStringObj.c: * unix/tclUnixNotfy.c: Cleaned up various compiler warnings, eliminated UCHAR bugs. * unix/tclUnixNotfy.c: * unix/tclUnixThrd.c: * generic/tclThreadTest.c: * mac/tclMacThrd.c: Changed TclpCondition*() to Tcl_Condition*(). --- ChangeLog | 21 ++ generic/regc_color.c | 3 +- generic/regcomp.c | 2 + generic/tcl.h | 27 +- generic/tclCmdAH.c | 10 +- generic/tclCmdIL.c | 5 +- generic/tclIOCmd.c | 4 +- generic/tclInt.decls | 328 ++++++++++---------- generic/tclInt.h | 106 +------ generic/tclIntDecls.h | 766 +++++++++++++++++++++++----------------------- generic/tclIntPlatDecls.h | 112 +++---- generic/tclIntPlatStubs.c | 67 ++-- generic/tclIntStubs.c | 294 ++++++++++-------- generic/tclParse.c | 4 +- generic/tclStringObj.c | 3 +- generic/tclStubInit.c | 275 ++++++++--------- generic/tclThreadTest.c | 12 +- mac/tclMacThrd.c | 8 +- unix/Makefile.in | 4 +- unix/tclUnixNotfy.c | 17 +- unix/tclUnixThrd.c | 8 +- 21 files changed, 1025 insertions(+), 1051 deletions(-) diff --git a/ChangeLog b/ChangeLog index 074d258..05cf3a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,25 @@ 1999-03-08 + + + * generic/tcl.h: Moved Tcl_Mutex, etc. macros above the inclusion + of tclDecls.h to avoid macro conflicts. + + * generic/tclInt.h: + * generic/regc_color.c: + * generic/regcomp.c: + * generic/tclCmdIL.c: + * generic/tclCmdAH.c: + * generic/tclIOCmd.c: + * generic/tclParse.c: + * generic/tclStringObj.c: + * unix/tclUnixNotfy.c: Cleaned up various compiler warnings, + eliminated UCHAR bugs. + + * unix/tclUnixNotfy.c: + * unix/tclUnixThrd.c: + * generic/tclThreadTest.c: + * mac/tclMacThrd.c: Changed TclpCondition*() to Tcl_Condition*(). + * Integrated stubs mechanism from Tcl 8.0. 1999-02-25 diff --git a/generic/regc_color.c b/generic/regc_color.c index c41b971..b4ace4f 100644 --- a/generic/regc_color.c +++ b/generic/regc_color.c @@ -568,6 +568,7 @@ struct arc *a; - singleton - is this character in its own color? ^ static int singleton(struct colormap *, pchr c); */ +#if 0 static int /* predicate */ singleton(cm, c) struct colormap *cm; @@ -580,7 +581,7 @@ pchr c; return 1; return 0; } - +#endif /* - rainbow - add arcs of all full colors (but one) between specified states ^ static VOID rainbow(struct nfa *, struct colormap *, int, pcolor, diff --git a/generic/regcomp.c b/generic/regcomp.c index c912a92..8e1b61c 100644 --- a/generic/regcomp.c +++ b/generic/regcomp.c @@ -74,7 +74,9 @@ static VOID subblock _ANSI_ARGS_((struct vars *, pchr, struct state *, struct st static VOID okcolors _ANSI_ARGS_((struct nfa *, struct colormap *)); static VOID colorchain _ANSI_ARGS_((struct colormap *, struct arc *)); static VOID uncolorchain _ANSI_ARGS_((struct colormap *, struct arc *)); +#if 0 static int singleton _ANSI_ARGS_((struct colormap *, pchr c)); +#endif static VOID rainbow _ANSI_ARGS_((struct nfa *, struct colormap *, int, pcolor, struct state *, struct state *)); static VOID colorcomplement _ANSI_ARGS_((struct nfa *, struct colormap *, int, struct state *, struct state *, struct state *)); #ifdef REG_DEBUG diff --git a/generic/tcl.h b/generic/tcl.h index 07e12b6..bf3f31c 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.1.2.13.2.1 1999/03/08 20:14:04 stanton Exp $ + * RCS: @(#) $Id: tcl.h,v 1.1.2.13.2.2 1999/03/09 02:37:13 stanton Exp $ */ #ifndef _TCL @@ -141,6 +141,18 @@ #define TCL_DECLARE_MUTEX(name) #endif +/* + * Macros that eliminate the overhead of the thread synchronization + * functions when compiling without thread support. + */ + +#ifndef TCL_THREADS +#define Tcl_MutexLock(mutexPtr) +#define Tcl_MutexUnlock(mutexPtr) +#define Tcl_ConditionNotify(condPtr) +#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) +#endif /* TCL_THREADS */ + /* * A special definition used to allow this header file to be included * in resource files so that they can get obtain version information from @@ -1326,19 +1338,6 @@ EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); -/* - *************************************************************************** - * new Functions - *************************************************************************** - */ - -#ifndef TCL_THREADS -#define Tcl_MutexLock(mutexPtr) -#define Tcl_MutexUnlock(mutexPtr) -#define Tcl_ConditionNotify(condPtr) -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#endif /* TCL_THREADS */ - #endif /* RESOURCE_INCLUDED */ #undef TCL_STORAGE_CLASS diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 447c01d..c1c481a 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -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: tclCmdAH.c,v 1.1.2.9 1999/02/10 23:31:13 stanton Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.1.2.9.2.1 1999/03/09 02:37:13 stanton Exp $ */ #include "tclInt.h" @@ -155,7 +155,7 @@ Tcl_CaseObjCmd(dummy, interp, objc, objv) pat = Tcl_GetString(caseObjv[i]); for (p = (unsigned char *) pat; *p != '\0'; p++) { - if (isspace(*p) || (*p == '\\')) { /* INTL: ISO space */ + if (isspace(*p) || (*p == '\\')) { /* INTL: ISO space, UCHAR */ break; } } @@ -1960,7 +1960,7 @@ Tcl_FormatObjCmd(dummy, interp, objc, objv) *newPtr = '%'; newPtr++; format++; - if (isdigit(*((unsigned char *) format))) { /* INTL: Tcl source. */ + if (isdigit(UCHAR(*format))) { /* INTL: Tcl source. */ int tmp; /* @@ -2001,7 +2001,7 @@ Tcl_FormatObjCmd(dummy, interp, objc, objv) newPtr++; format++; } - if (isdigit(*((unsigned char *) format))) { /* INTL: Tcl source. */ + if (isdigit(UCHAR(*format))) { /* INTL: Tcl source. */ width = strtoul(format, &end, 10); /* INTL: Tcl source. */ format = end; } else if (*format == '*') { @@ -2044,7 +2044,7 @@ Tcl_FormatObjCmd(dummy, interp, objc, objv) format++; gotPrecision = 1; } - if (isdigit(*((unsigned char *) format))) { /* INTL: Tcl source. */ + if (isdigit(UCHAR(*format))) { /* INTL: Tcl source. */ precision = strtoul(format, &end, 10); /* INTL: "C" locale. */ format = end; } else if (*format == '*') { diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 56d48cb..c69020f 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.1.2.7 1999/02/10 23:31:14 stanton Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.1.2.7.2.1 1999/03/09 02:37:14 stanton Exp $ */ #include "tclInt.h" @@ -2829,9 +2829,6 @@ SortCompare(objPtr1, objPtr2, infoPtr) infoPtr->resultCode = Tcl_EvalObjv(infoPtr->interp, objc, objv, 0); if (infoPtr->resultCode != TCL_OK) { - Tcl_Obj *errorPtr = Tcl_NewListObj(3, objv); - int length; - char *compareCmd = Tcl_GetStringFromObj(errorPtr, &length); Tcl_AddErrorInfo(infoPtr->interp, "\n (-compare command)"); return order; diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 334b129..377618c 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.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: tclIOCmd.c,v 1.1.2.3 1999/02/10 23:31:17 stanton Exp $ + * RCS: @(#) $Id: tclIOCmd.c,v 1.1.2.3.2.1 1999/03/09 02:37:15 stanton Exp $ */ #include "tclInt.h" @@ -337,7 +337,7 @@ Tcl_ReadObjCmd(dummy, interp, objc, objv) char *arg; arg = Tcl_GetString(objv[i]); - if (isdigit((unsigned char) arg[0])) { /* INTL: digit */ + if (isdigit(UCHAR(arg[0]))) { /* INTL: digit */ if (Tcl_GetIntFromObj(interp, objv[i], &toRead) != TCL_OK) { return TCL_ERROR; } diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 7a54b2b..924b45c 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.2.4.1 1999/03/08 20:14:08 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.2.4.2 1999/03/09 02:37:15 stanton Exp $ library tcl @@ -101,411 +101,397 @@ declare 21 generic { int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv) } declare 22 generic { - void TclFinalizeCompExecEnv(void) -} -declare 23 generic { - void TclFinalizeEnvironment(void) -} -# Removed in 8.1: -# declare 24 generic { -# void TclFinalizeExecEnv(void) -# } -declare 25 generic { int TclFindElement(Tcl_Interp *interp, CONST char *list, int listLength, \ CONST char **elementPtr, CONST char **nextPtr, int *sizePtr, \ int *bracePtr) } -declare 26 generic { +declare 23 generic { Proc * TclFindProc(Interp *iPtr, char *procName) } -declare 27 generic { +declare 24 generic { int TclFormatInt(char *buffer, long n) } -declare 28 generic { +declare 25 generic { void TclFreePackageInfo(Interp *iPtr) } # Removed in 8.1: -# declare 29 generic { +# declare 26 generic { # char * TclGetCwd(Tcl_Interp *interp) # } -declare 30 generic { +declare 27 generic { int TclGetDate(char *p, unsigned long now, long zone, \ unsigned long *timePtr) } -declare 31 generic { +declare 28 generic { Tcl_Channel TclpGetDefaultStdChannel(int type) } -declare 32 generic { +declare 29 generic { Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg) } # Replaced by char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) in 8.1: -# declare 33 generic { +# declare 30 generic { # char * TclGetEnv(CONST char *name) # } -declare 34 generic { +declare 31 generic { char * TclGetExtension(char *name) } -declare 35 generic { +declare 32 generic { int TclGetFrame(Tcl_Interp *interp, char *string, CallFrame **framePtrPtr) } -declare 36 generic { +declare 33 generic { TclCmdProcType TclGetInterpProc(void) } -declare 37 generic { +declare 34 generic { int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr, \ int endValue, int *indexPtr) } -declare 38 generic { +declare 35 generic { Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex, \ int leaveErrorMsg) } -declare 39 generic { +declare 36 generic { int TclGetLong(Tcl_Interp *interp, char *string, long *longPtr) } -declare 40 generic { +declare 37 generic { int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName) } -declare 41 generic { +declare 38 generic { int TclGetNamespaceForQualName(Tcl_Interp *interp, char *qualName, \ Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \ Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \ char **simpleNamePtr) } -declare 42 generic { +declare 39 generic { TclObjCmdProcType TclGetObjInterpProc(void) } -declare 43 generic { +declare 40 generic { int TclGetOpenMode(Tcl_Interp *interp, char *string, int *seekFlagPtr) } -declare 44 generic { +declare 41 generic { Tcl_Command TclGetOriginalCommand(Tcl_Command command) } -declare 45 generic { +declare 42 generic { char * TclpGetUserHome(CONST char *name, Tcl_DString *bufferPtr) } -declare 46 generic { +declare 43 generic { int TclGlobalInvoke(Tcl_Interp *interp, int argc, char **argv, int flags) } -declare 47 generic { +declare 44 generic { int TclGuessPackageName(char *fileName, Tcl_DString *bufPtr) } -declare 48 generic { +declare 45 generic { int TclHideUnsafeCommands(Tcl_Interp *interp) } -declare 49 generic { +declare 46 generic { int TclInExit(void) } -declare 50 generic { +declare 47 generic { Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, long incrAmount) } -declare 51 generic { +declare 48 generic { Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex, \ long incrAmount) } -declare 52 generic { +declare 49 generic { Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed) } -declare 53 generic { +declare 50 generic { void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr, \ Namespace *nsPtr) } -# Removed in 8.1: -# declare 54 generic { -# void TclInitNamespaces(void) -# } -declare 55 generic { +declare 51 generic { int TclInterpInit(Tcl_Interp *interp) } -declare 56 generic { +declare 52 generic { int TclInvoke(Tcl_Interp *interp, int argc, char **argv, int flags) } -declare 57 generic { +declare 53 generic { int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp, \ int argc, char **argv) } -declare 58 generic { +declare 54 generic { int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp, \ int objc, Tcl_Obj *CONST objv[]) } -declare 59 generic { +declare 55 generic { Proc * TclIsProc(Command *cmdPtr) } # Replaced with TclpLoadFile in 8.1: -# declare 60 generic { +# declare 56 generic { # int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ # char *sym2, Tcl_PackageInitProc **proc1Ptr, \ # Tcl_PackageInitProc **proc2Ptr) # } # Signature changed to take a length in 8.1: -# declare 61 generic { +# declare 57 generic { # int TclLooksLikeInt(char *p) # } -declare 62 generic { +declare 58 generic { Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2, \ int flags, char *msg, int createPart1, int createPart2, \ Var **arrayPtrPtr) } -declare 63 generic { +declare 59 generic { int TclpMatchFiles(Tcl_Interp *interp, char *separators, \ Tcl_DString *dirPtr, char *pattern, char *tail) } -declare 64 generic { +declare 60 generic { int TclNeedSpace(char *start, char *end) } -declare 65 generic { +declare 61 generic { Tcl_Obj * TclNewProcBodyObj(Proc *procPtr) } -declare 66 generic { +declare 62 generic { int TclObjCommandComplete(Tcl_Obj *cmdPtr) } -declare 67 generic { +declare 63 generic { int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp, \ int objc, Tcl_Obj *CONST objv[]) } -declare 68 generic { +declare 64 generic { int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \ int flags) } -declare 69 generic { +declare 65 generic { int TclObjInvokeGlobal(Tcl_Interp *interp, int objc, \ Tcl_Obj *CONST objv[], int flags) } -declare 70 generic { +declare 66 generic { int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc) } -declare 71 generic { +declare 67 generic { int TclOpenFileChannelInsertProc(TclOpenFileChannelProc_ *proc) } -declare 72 generic { +declare 68 generic { int TclpAccess(CONST char *path, int mode) } -declare 73 generic { +declare 69 generic { char * TclpAlloc(unsigned int size) } -declare 74 generic { +declare 70 generic { int TclpCopyFile(CONST char *source, CONST char *dest) } -declare 75 generic { +declare 71 generic { int TclpCopyDirectory(CONST char *source, CONST char *dest, \ Tcl_DString *errorPtr) } -declare 76 generic { +declare 72 generic { int TclpCreateDirectory(CONST char *path) } -declare 77 generic { +declare 73 generic { int TclpDeleteFile(CONST char *path) } -declare 78 generic { +declare 74 generic { void TclpFree(char *ptr) } -declare 79 generic { +declare 75 generic { unsigned long TclpGetClicks(void) } -declare 80 generic { +declare 76 generic { unsigned long TclpGetSeconds(void) } -declare 81 generic { +declare 77 generic { void TclpGetTime(Tcl_Time *time) } -declare 82 generic { +declare 78 generic { int TclpGetTimeZone(unsigned long time) } -declare 83 generic { +declare 79 generic { int TclpListVolumes(Tcl_Interp *interp) } -declare 84 generic { +declare 80 generic { Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName, \ char *modeString, int permissions) } -declare 85 generic { +declare 81 generic { char * TclpRealloc(char *ptr, unsigned int size) } -declare 86 generic { +declare 82 generic { int TclpRemoveDirectory(CONST char *path, int recursive, \ Tcl_DString *errorPtr) } -declare 87 generic { +declare 83 generic { int TclpRenameFile(CONST char *source, CONST char *dest) } # Removed in 8.1: -# declare 88 generic { +# declare 84 generic { # int TclParseBraces(Tcl_Interp *interp, char *string, char **termPtr, \ # ParseValue *pvPtr) # } -# declare 89 generic { +# declare 85 generic { # int TclParseNestedCmd(Tcl_Interp *interp, char *string, int flags, \ # char **termPtr, ParseValue *pvPtr) # } -# declare 90 generic { +# declare 86 generic { # int TclParseQuotes(Tcl_Interp *interp, char *string, int termChar, \ # int flags, char **termPtr, ParseValue *pvPtr) # } -# declare 91 generic { +# declare 87 generic { # void TclPlatformInit(Tcl_Interp *interp) # } -declare 92 generic { +declare 88 generic { char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp, \ char *name1, char *name2, int flags) } -declare 93 generic { +declare 89 generic { int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp, \ Tcl_Command cmd) } # Removed in 8.1 (only available if compiled with TCL_COMPILE_DEBUG): -# declare 94 generic { +# declare 90 generic { # void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr) # } -declare 95 generic { +declare 91 generic { void TclProcCleanupProc(Proc *procPtr) } -declare 96 generic { +declare 92 generic { int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, \ Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, \ CONST char *procName) } -declare 97 generic { +declare 93 generic { void TclProcDeleteProc(ClientData clientData) } -declare 98 generic { +declare 94 generic { int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp, \ int argc, char **argv) } -declare 99 generic { +declare 95 generic { int TclpStat(CONST char *path, struct stat *buf) } -declare 100 generic { +declare 96 generic { int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName) } -declare 101 generic { +declare 97 generic { void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr) } -declare 102 generic { +declare 98 generic { int TclServiceIdle(void) } -declare 103 generic { +declare 99 generic { Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int leaveErrorMsg) } -declare 104 generic { +declare 100 generic { Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \ Tcl_Obj *objPtr, int leaveErrorMsg) } # TODO: needs to be implemented -# declare 105 generic { +# declare 101 generic { # char * TclSetPreInitScript(char *string) # } -declare 106 generic { +declare 102 generic { void TclSetupEnv(Tcl_Interp *interp) } -declare 107 generic { +declare 103 generic { int TclSockGetPort(Tcl_Interp *interp, char *string, char *proto, \ int *portPtr) } -declare 108 generic { +declare 104 generic { int TclSockMinimumBuffers(int sock, int size) } -declare 109 generic { +declare 105 generic { int TclStat(CONST char *path, TclStat_ *buf) } -declare 110 generic { +declare 106 generic { int TclStatDeleteProc(TclStatProc_ *proc) } -declare 111 generic { +declare 107 generic { int TclStatInsertProc(TclStatProc_ *proc) } -declare 112 generic { +declare 108 generic { void TclTeardownNamespace(Namespace *nsPtr) } -declare 113 generic { +declare 109 generic { int TclUpdateReturnInfo(Interp *iPtr) } # Removed in 8.1: -# declare 114 generic { +# declare 110 generic { # char * TclWordEnd(char *start, char *lastChar, int nested, int *semiPtr) # } # Procedures used in conjunction with Tcl namespaces. They are # defined here instead of in tcl.decls since they are not stable yet. -declare 115 generic { +declare 111 generic { void Tcl_AddInterpResolvers(Tcl_Interp *interp, char *name, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) } -declare 116 generic { +declare 112 generic { int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ Tcl_Obj *objPtr) } -declare 117 generic { +declare 113 generic { Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, char *name, \ ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc) } -declare 118 generic { +declare 114 generic { void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr) } -declare 119 generic { +declare 115 generic { int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, char *pattern, \ int resetListFirst) } -declare 120 generic { +declare 116 generic { Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 121 generic { +declare 117 generic { Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 122 generic { +declare 118 generic { int Tcl_GetInterpResolvers(Tcl_Interp *interp, char *name, \ Tcl_ResolverInfo *resInfo) } -declare 123 generic { +declare 119 generic { int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ Tcl_ResolverInfo *resInfo) } -declare 124 generic { +declare 120 generic { Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 125 generic { +declare 121 generic { int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ char *pattern) } -declare 126 generic { +declare 122 generic { Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } -declare 127 generic { +declare 123 generic { void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, \ Tcl_Obj *objPtr) } -declare 128 generic { +declare 124 generic { Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp) } -declare 129 generic { +declare 125 generic { Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp) } -declare 130 generic { +declare 126 generic { void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable, \ Tcl_Obj *objPtr) } -declare 131 generic { +declare 127 generic { int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ char *pattern, int allowOverwrite) } -declare 132 generic { +declare 128 generic { void Tcl_PopCallFrame(Tcl_Interp* interp) } -declare 133 generic { +declare 129 generic { int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr, \ Tcl_Namespace *nsPtr, int isProcCallFrame) } -declare 134 generic { +declare 130 generic { int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, char *name) } -declare 135 generic { +declare 131 generic { void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) @@ -514,66 +500,80 @@ declare 135 generic { # Compilation procedures for commands in the generic core: # Signature changed in 8.1: -# declare 136 generic { +# declare 132 generic { # int TclCompileBreakCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 137 generic { +# declare 133 generic { # int TclCompileCatchCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 138 generic { +# declare 134 generic { # int TclCompileContinueCmd(Tcl_Interp *interp, char *string, \ # char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 139 generic { +# declare 135 generic { # int TclCompileExprCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 140 generic { +# declare 136 generic { # int TclCompileForCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 141 generic { +# declare 137 generic { # int TclCompileForeachCmd(Tcl_Interp *interp, char *string, \ # char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 142 generic { +# declare 138 generic { # int TclCompileIfCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 143 generic { +# declare 139 generic { # int TclCompileIncrCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 144 generic { +# declare 140 generic { # int TclCompileSetCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -# declare 145 generic { +# declare 141 generic { # int TclCompileWhileCmd(Tcl_Interp *interp, char *string, char *lastChar, \ # int compileFlags, struct CompileEnv *compileEnvPtr) # } -declare 146 generic { +declare 142 generic { int TclpHasSockets(Tcl_Interp *interp) } -declare 147 generic { +declare 143 generic { struct tm * TclpGetDate(TclpTime_t time, int useGMT) } -declare 148 generic { +declare 144 generic { size_t TclpStrftime(char *s, size_t maxsize, const char *format, \ const struct tm *t) } -declare 149 generic { +declare 145 generic { int TclpCheckStackSpace(void) } # Added in 8.1: -declare 150 generic { +declare 146 generic { char * Tcl_GetString(Tcl_Obj *objPtr) } +declare 147 generic { + int TclpChdir(CONST char *dirName) +} +declare 148 generic { + char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) +} +declare 149 generic { + int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ + char *sym2, Tcl_PackageInitProc **proc1Ptr, \ + Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr) +} +declare 150 generic { + int TclLooksLikeInt(char *bytes, int length) +} ############################################################################## @@ -722,55 +722,54 @@ declare 7 win { declare 8 win { unsigned long TclpGetPid(Tcl_Pid pid) } -# Removed in 8.1: -# declare 9 win { -# void TclpFinalize(void) -# } -declare 10 win { +declare 9 win { int TclWinGetPlatformId(void) } -declare 11 win { - void TclWinInit(HINSTANCE hInst) -} -declare 12 win { +declare 10 win { int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr) } # Pipe channel functions -declare 13 win { +declare 11 win { void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan) } -declare 14 win { +declare 12 win { int TclpCloseFile(TclFile file) } -declare 15 win { +declare 13 win { Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \ TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr) } -declare 16 win { +declare 14 win { int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) } -declare 17 win { +declare 15 win { int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ TclFile inputFile, TclFile outputFile, TclFile errorFile, \ Tcl_Pid *pidPtr) } # Signature changed in 8.1: -# declare 18 win { +# declare 16 win { # TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr) # } -# declare 19 win { +# declare 17 win { # char * TclpGetTZName(void) # } -declare 20 win { +declare 18 win { TclFile TclpMakeFile(Tcl_Channel channel, int direction) } -declare 21 win { +declare 19 win { TclFile TclpOpenFile(CONST char *fname, int mode) } # Added in 8.1: +declare 20 win { + TclFile TclpCreateTempFile(CONST char *contents) +} +declare 21 win { + char * TclpGetTZName(int isdst) +} ######################### # Unix specific internals @@ -795,10 +794,11 @@ declare 4 unix { TclFile inputFile, TclFile outputFile, TclFile errorFile, \ Tcl_Pid *pidPtr) } -declare 5 unix { - TclFile TclpCreateTempFile(char *contents, - Tcl_DString *namePtr) -} +# Signature changed in 8.1: +# declare 5 unix { +# TclFile TclpCreateTempFile(char *contents, +# Tcl_DString *namePtr) +# } declare 6 unix { TclFile TclpMakeFile(Tcl_Channel channel, int direction) } @@ -808,3 +808,9 @@ declare 7 unix { declare 8 unix { int TclUnixWaitForFile(int fd, int mask, int timeout) } + +# Added in 8.1: + +declare 9 unix { + TclFile TclpCreateTempFile(CONST char *contents) +} diff --git a/generic/tclInt.h b/generic/tclInt.h index d8705d3..fcfe426 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.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: tclInt.h,v 1.1.2.11.2.1 1999/03/08 20:14:08 stanton Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.1.2.11.2.2 1999/03/09 02:37:15 stanton Exp $ */ #ifndef _TCLINT @@ -776,16 +776,6 @@ typedef struct MathFunc { } MathFunc; /* - * Threads support. - * These routines are used to implement Tcl_GetThreadData. - */ - -#ifdef TCL_THREADS -EXTERN void TclpConditionNotify _ANSI_ARGS_((Tcl_Condition *condPtr)); -EXTERN void TclpConditionWait _ANSI_ARGS_((Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, Tcl_Time *timePtr)); -#endif - -/* * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet * when threads are used, or an emulation if there are no threads. These * are really internal and Tcl clients should use Tcl_GetThreadData. @@ -1749,7 +1739,6 @@ extern char * tclEmptyStringRep; *---------------------------------------------------------------- */ -EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); EXTERN int TclAccess _ANSI_ARGS_((CONST char *path, int mode)); EXTERN int TclAccessDeleteProc _ANSI_ARGS_((TclAccessProc_ *proc)); @@ -1821,8 +1810,6 @@ EXTERN int TclGetDate _ANSI_ARGS_((char *p, EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp *interp, int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg)); -EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char *name, - Tcl_DString *valuePtr)); EXTERN char * TclGetExtension _ANSI_ARGS_((char *name)); EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp *interp, char *string, CallFrame **framePtrPtr)); @@ -1887,8 +1874,6 @@ EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( EXTERN int TclIsLocalScalar _ANSI_ARGS_((CONST char *src, int len)); EXTERN Proc * TclIsProc _ANSI_ARGS_((Command *cmdPtr)); -EXTERN int TclLooksLikeInt _ANSI_ARGS_((char *bytes, - int length)); EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp *interp, char *part1, char *part2, int flags, char *msg, int createPart1, int createPart2, @@ -1911,7 +1896,6 @@ EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( EXTERN int TclpAccess _ANSI_ARGS_((CONST char *filename, int mode)); EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); -EXTERN int TclpChdir _ANSI_ARGS_((CONST char *dirName)); EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char *source, @@ -1956,11 +1940,6 @@ EXTERN void TclpInitLock _ANSI_ARGS_((void)); EXTERN void TclpInitPlatform _ANSI_ARGS_((void)); EXTERN void TclpInitUnlock _ANSI_ARGS_((void)); EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp *interp, - char *fileName, char *sym1, char *sym2, - Tcl_PackageInitProc **proc1Ptr, - Tcl_PackageInitProc **proc2Ptr, - ClientData *clientDataPtr)); EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, int direction)); EXTERN void TclpMasterLock _ANSI_ARGS_((void)); @@ -2061,20 +2040,6 @@ char * TclUniCharToUtfDString _ANSI_ARGS_(( Tcl_UniChar * TclUtfToUniCharDString _ANSI_ARGS_((CONST char *string, int length, Tcl_DString *dsPtr)); - -/* - * The following macros denote malloc and free as the system calls - * used to allocate new memory, rather than using Tcl's suballocation - * scheme in tclAlloc.c. These defines are used only in the files - * tclCkalloc.c and tclAlloc.c - */ - -#if USE_TCLALLOC == 0 -# define TclpAlloc malloc -# define TclpRealloc realloc -# define TclpFree free -#endif - /* *---------------------------------------------------------------- * Command procedures in the generic core: @@ -2426,75 +2391,6 @@ extern Tcl_Mutex tclObjMutex; #define TclGetString(objPtr) \ ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr))) -/* - *---------------------------------------------------------------- - * Procedures used in conjunction with Tcl namespaces. They are - * defined here instead of in tcl.h since they are not stable yet. - *---------------------------------------------------------------- - */ - -EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((Tcl_Interp *interp, - char *name, Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc)); -EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Namespace *nsPtr, - Tcl_Obj *objPtr)); -EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp, - char *name, ClientData clientData, - Tcl_NamespaceDeleteProc *deleteProc)); -EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( - Tcl_Namespace *nsPtr)); -EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Namespace *nsPtr, char *pattern, - int resetListFirst)); -EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp, - char *name, Tcl_Namespace *contextNsPtr, - int flags)); -EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp *interp, - char *name, Tcl_Namespace *contextNsPtr, - int flags)); -EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((Tcl_Interp *interp, - char *name, Tcl_ResolverInfo *resInfo)); -EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( - Tcl_Namespace *namespacePtr, - Tcl_ResolverInfo *resInfo)); -EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Var variable, - Tcl_Obj *objPtr)); -EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( - Tcl_Interp *interp, char *name, - Tcl_Namespace *contextNsPtr, int flags)); -EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Namespace *nsPtr, char *pattern)); -EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Obj *objPtr)); -EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Command command, - Tcl_Obj *objPtr)); -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( - Tcl_Interp *interp)); -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( - Tcl_Interp *interp)); -EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Var variable, - Tcl_Obj *objPtr)); -EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Namespace *nsPtr, char *pattern, - int allowOverwrite)); -EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); -EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, - Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, - int isProcCallFrame)); -EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( - Tcl_Interp *interp, char *name)); -EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( - Tcl_Namespace *namespacePtr, - Tcl_ResolveCmdProc *cmdProc, - Tcl_ResolveVarProc *varProc, - Tcl_ResolveCompiledVarProc *compiledVarProc)); - - #include "tclIntDecls.h" # undef TCL_STORAGE_CLASS diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index e3aa4b2..b76551c 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.2.2.1 1999/03/08 20:14:09 stanton Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.2.2.2 1999/03/09 02:37:16 stanton Exp $ */ #ifndef _TCLINTDECLS @@ -95,55 +95,50 @@ EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 22 */ -EXTERN void TclFinalizeCompExecEnv _ANSI_ARGS_((void)); -/* 23 */ -EXTERN void TclFinalizeEnvironment _ANSI_ARGS_((void)); -/* Slot 24 is reserved */ -/* 25 */ EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); -/* 26 */ +/* 23 */ EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr, char * procName)); -/* 27 */ +/* 24 */ EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); -/* 28 */ +/* 25 */ EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); -/* Slot 29 is reserved */ -/* 30 */ +/* Slot 26 is reserved */ +/* 27 */ EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); -/* 31 */ +/* 28 */ EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type)); -/* 32 */ +/* 29 */ EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); -/* Slot 33 is reserved */ -/* 34 */ +/* Slot 30 is reserved */ +/* 31 */ EXTERN char * TclGetExtension _ANSI_ARGS_((char * name)); -/* 35 */ +/* 32 */ EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); -/* 36 */ +/* 33 */ EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); -/* 37 */ +/* 34 */ EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); -/* 38 */ +/* 35 */ EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); -/* 39 */ +/* 36 */ EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); -/* 40 */ +/* 37 */ EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( Tcl_Interp * interp, char * targetName)); -/* 41 */ +/* 38 */ EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, @@ -151,298 +146,311 @@ EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); -/* 42 */ +/* 39 */ EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); -/* 43 */ +/* 40 */ EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); -/* 44 */ +/* 41 */ EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( Tcl_Command command)); -/* 45 */ +/* 42 */ EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); -/* 46 */ +/* 43 */ EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); -/* 47 */ +/* 44 */ EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); -/* 48 */ +/* 45 */ EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 49 */ +/* 46 */ EXTERN int TclInExit _ANSI_ARGS_((void)); -/* 50 */ +/* 47 */ EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); -/* 51 */ +/* 48 */ EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, long incrAmount)); -/* 52 */ +/* 49 */ EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); -/* 53 */ +/* 50 */ EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); -/* Slot 54 is reserved */ -/* 55 */ +/* 51 */ EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); -/* 56 */ +/* 52 */ EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); -/* 57 */ +/* 53 */ EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); -/* 58 */ +/* 54 */ EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); -/* 59 */ +/* 55 */ EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); -/* Slot 60 is reserved */ -/* Slot 61 is reserved */ -/* 62 */ +/* Slot 56 is reserved */ +/* Slot 57 is reserved */ +/* 58 */ EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); -/* 63 */ +/* 59 */ EXTERN int TclpMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); -/* 64 */ +/* 60 */ EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end)); -/* 65 */ +/* 61 */ EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); -/* 66 */ +/* 62 */ EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); -/* 67 */ +/* 63 */ EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); -/* 68 */ +/* 64 */ EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); -/* 69 */ +/* 65 */ EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); -/* 70 */ +/* 66 */ EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( TclOpenFileChannelProc_ * proc)); -/* 71 */ +/* 67 */ EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( TclOpenFileChannelProc_ * proc)); -/* 72 */ +/* 68 */ EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode)); -/* 73 */ +/* 69 */ EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); -/* 74 */ +/* 70 */ EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char * source, CONST char * dest)); -/* 75 */ +/* 71 */ EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); -/* 76 */ +/* 72 */ EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char * path)); -/* 77 */ +/* 73 */ EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char * path)); -/* 78 */ +/* 74 */ EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); -/* 79 */ +/* 75 */ EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); -/* 80 */ +/* 76 */ EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); -/* 81 */ +/* 77 */ EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); -/* 82 */ +/* 78 */ EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); -/* 83 */ +/* 79 */ EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp)); -/* 84 */ +/* 80 */ EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); -/* 85 */ +/* 81 */ EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, unsigned int size)); -/* 86 */ +/* 82 */ EXTERN int TclpRemoveDirectory _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); -/* 87 */ +/* 83 */ EXTERN int TclpRenameFile _ANSI_ARGS_((CONST char * source, CONST char * dest)); -/* Slot 88 is reserved */ -/* Slot 89 is reserved */ -/* Slot 90 is reserved */ -/* Slot 91 is reserved */ -/* 92 */ +/* Slot 84 is reserved */ +/* Slot 85 is reserved */ +/* Slot 86 is reserved */ +/* Slot 87 is reserved */ +/* 88 */ EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); -/* 93 */ +/* 89 */ EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); -/* Slot 94 is reserved */ -/* 95 */ +/* Slot 90 is reserved */ +/* 91 */ EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); -/* 96 */ +/* 92 */ EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); -/* 97 */ +/* 93 */ EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); -/* 98 */ +/* 94 */ EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); -/* 99 */ +/* 95 */ EXTERN int TclpStat _ANSI_ARGS_((CONST char * path, struct stat * buf)); -/* 100 */ +/* 96 */ EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); -/* 101 */ +/* 97 */ EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( Tcl_Interp * interp, Command * newCmdPtr)); -/* 102 */ +/* 98 */ EXTERN int TclServiceIdle _ANSI_ARGS_((void)); -/* 103 */ +/* 99 */ EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); -/* 104 */ +/* 100 */ EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); -/* Slot 105 is reserved */ -/* 106 */ +/* Slot 101 is reserved */ +/* 102 */ EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); -/* 107 */ +/* 103 */ EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); -/* 108 */ +/* 104 */ EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, int size)); -/* 109 */ +/* 105 */ EXTERN int TclStat _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); -/* 110 */ +/* 106 */ EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); -/* 111 */ +/* 107 */ EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); -/* 112 */ +/* 108 */ EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); -/* 113 */ +/* 109 */ EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); -/* Slot 114 is reserved */ -/* 115 */ +/* Slot 110 is reserved */ +/* 111 */ EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); -/* 116 */ +/* 112 */ EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); -/* 117 */ +/* 113 */ EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); -/* 118 */ +/* 114 */ EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( Tcl_Namespace * nsPtr)); -/* 119 */ +/* 115 */ EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); -/* 120 */ +/* 116 */ EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); -/* 121 */ +/* 117 */ EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); -/* 122 */ +/* 118 */ EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); -/* 123 */ +/* 119 */ EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); -/* 124 */ +/* 120 */ EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); -/* 125 */ +/* 121 */ EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); -/* 126 */ +/* 122 */ EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 127 */ +/* 123 */ EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); -/* 128 */ +/* 124 */ EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 129 */ +/* 125 */ EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 130 */ +/* 126 */ EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); -/* 131 */ +/* 127 */ EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); -/* 132 */ +/* 128 */ EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); -/* 133 */ +/* 129 */ EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); -/* 134 */ +/* 130 */ EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( Tcl_Interp * interp, char * name)); -/* 135 */ +/* 131 */ EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* Slot 132 is reserved */ +/* Slot 133 is reserved */ +/* Slot 134 is reserved */ +/* Slot 135 is reserved */ /* Slot 136 is reserved */ /* Slot 137 is reserved */ /* Slot 138 is reserved */ /* Slot 139 is reserved */ /* Slot 140 is reserved */ /* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* 146 */ +/* 142 */ EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); -/* 147 */ +/* 143 */ EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT)); -/* 148 */ +/* 144 */ EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); -/* 149 */ +/* 145 */ EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); -/* 150 */ +/* 146 */ EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr)); +/* 147 */ +EXTERN int TclpChdir _ANSI_ARGS_((CONST char * dirName)); +/* 148 */ +EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name, + Tcl_DString * valuePtr)); +/* 149 */ +EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * sym1, char * sym2, + Tcl_PackageInitProc ** proc1Ptr, + Tcl_PackageInitProc ** proc2Ptr, + ClientData * clientDataPtr)); +/* 150 */ +EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes, + int length)); typedef struct TclIntStubs { int magic; @@ -470,135 +478,135 @@ typedef struct TclIntStubs { int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */ int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */ int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */ - void (*tclFinalizeCompExecEnv) _ANSI_ARGS_((void)); /* 22 */ - void (*tclFinalizeEnvironment) _ANSI_ARGS_((void)); /* 23 */ - void *reserved24; - int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 25 */ - Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 26 */ - int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 27 */ - void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 28 */ - void *reserved29; - int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 30 */ - Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 31 */ - Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 32 */ - void *reserved33; - char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 34 */ - int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 35 */ - TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 36 */ - int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 37 */ - Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 38 */ - int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 39 */ - int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 40 */ - int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 41 */ - TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 42 */ - int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 43 */ - Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 44 */ - char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 45 */ - int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 46 */ - int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 47 */ - int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 48 */ - int (*tclInExit) _ANSI_ARGS_((void)); /* 49 */ - Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 50 */ - Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 51 */ - Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 52 */ - void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 53 */ - void *reserved54; - int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 55 */ - int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 56 */ - int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 57 */ - int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 58 */ - Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 59 */ - void *reserved60; - void *reserved61; - Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 62 */ - int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 63 */ - int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 64 */ - Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 65 */ - int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 66 */ - int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 67 */ - int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 68 */ - int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 69 */ - int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 70 */ - int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 71 */ - int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 72 */ - char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 73 */ - int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 74 */ - int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 75 */ - int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 76 */ - int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 77 */ - void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 78 */ - unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 79 */ - unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 80 */ - void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 81 */ - int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 82 */ - int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 83 */ - Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 84 */ - char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 85 */ - int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 86 */ - int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 87 */ - void *reserved88; - void *reserved89; + int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */ + Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */ + int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */ + void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */ + void *reserved26; + int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */ + Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */ + Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */ + void *reserved30; + char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */ + int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 32 */ + TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */ + int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */ + Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */ + int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 36 */ + int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */ + int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */ + TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */ + int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 40 */ + Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */ + char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */ + int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */ + int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */ + int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */ + int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */ + Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */ + Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */ + Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */ + void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */ + int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */ + int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */ + int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */ + int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */ + Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */ + void *reserved56; + void *reserved57; + Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */ + int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */ + int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */ + Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */ + int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */ + int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */ + int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */ + int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */ + int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */ + int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */ + int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */ + char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */ + int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 70 */ + int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 71 */ + int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 72 */ + int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 73 */ + void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */ + unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */ + unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */ + void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */ + int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */ + int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */ + Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */ + char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */ + int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */ + int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 83 */ + void *reserved84; + void *reserved85; + void *reserved86; + void *reserved87; + char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */ + int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */ void *reserved90; - void *reserved91; - char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 92 */ - int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 93 */ - void *reserved94; - void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 95 */ - int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 96 */ - void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 97 */ - int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 98 */ - int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 99 */ - int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 100 */ - void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 101 */ - int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 102 */ - Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 103 */ - Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 104 */ - void *reserved105; - void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 106 */ - int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 107 */ - int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 108 */ - int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 109 */ - int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 110 */ - int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 111 */ - void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 112 */ - int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 113 */ - void *reserved114; - void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 115 */ - int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 116 */ - Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 117 */ - void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 118 */ - int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 119 */ - Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ - Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 121 */ - int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 122 */ - int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 123 */ - Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 124 */ - int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 125 */ - Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 126 */ - void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 127 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 128 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 129 */ - void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 130 */ - int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 131 */ - void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 132 */ - int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 133 */ - int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 134 */ - void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 135 */ + void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */ + int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */ + void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */ + int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */ + int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */ + int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */ + void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */ + int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */ + Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */ + Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */ + void *reserved101; + void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */ + int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 103 */ + int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ + int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 105 */ + int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */ + int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */ + void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */ + int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */ + void *reserved110; + void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */ + int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */ + Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */ + void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */ + int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */ + Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */ + Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */ + int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */ + int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */ + Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ + int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */ + Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */ + void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */ + void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */ + int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */ + void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */ + int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */ + int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */ + void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */ + void *reserved132; + void *reserved133; + void *reserved134; + void *reserved135; void *reserved136; void *reserved137; void *reserved138; void *reserved139; void *reserved140; void *reserved141; - void *reserved142; - void *reserved143; - void *reserved144; - void *reserved145; - int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 146 */ - struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 147 */ - size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 148 */ - int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 149 */ - char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 150 */ + int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 142 */ + struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 143 */ + size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 144 */ + int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 145 */ + char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 146 */ + int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 147 */ + char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 148 */ + int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 149 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 150 */ } TclIntStubs; extern TclIntStubs *tclIntStubsPtr; @@ -691,452 +699,458 @@ extern TclIntStubs *tclIntStubsPtr; #define TclFileRenameCmd(interp, argc, argv) \ (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv) /* 21 */ #endif -#ifndef TclFinalizeCompExecEnv -#define TclFinalizeCompExecEnv() \ - (tclIntStubsPtr->tclFinalizeCompExecEnv)() /* 22 */ -#endif -#ifndef TclFinalizeEnvironment -#define TclFinalizeEnvironment() \ - (tclIntStubsPtr->tclFinalizeEnvironment)() /* 23 */ -#endif -/* Slot 24 is reserved */ #ifndef TclFindElement #define TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \ - (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 25 */ + (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 22 */ #endif #ifndef TclFindProc #define TclFindProc(iPtr, procName) \ - (tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 26 */ + (tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 23 */ #endif #ifndef TclFormatInt #define TclFormatInt(buffer, n) \ - (tclIntStubsPtr->tclFormatInt)(buffer, n) /* 27 */ + (tclIntStubsPtr->tclFormatInt)(buffer, n) /* 24 */ #endif #ifndef TclFreePackageInfo #define TclFreePackageInfo(iPtr) \ - (tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 28 */ + (tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 25 */ #endif -/* Slot 29 is reserved */ +/* Slot 26 is reserved */ #ifndef TclGetDate #define TclGetDate(p, now, zone, timePtr) \ - (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 30 */ + (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 27 */ #endif #ifndef TclpGetDefaultStdChannel #define TclpGetDefaultStdChannel(type) \ - (tclIntStubsPtr->tclpGetDefaultStdChannel)(type) /* 31 */ + (tclIntStubsPtr->tclpGetDefaultStdChannel)(type) /* 28 */ #endif #ifndef TclGetElementOfIndexedArray #define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \ - (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 32 */ + (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 29 */ #endif -/* Slot 33 is reserved */ +/* Slot 30 is reserved */ #ifndef TclGetExtension #define TclGetExtension(name) \ - (tclIntStubsPtr->tclGetExtension)(name) /* 34 */ + (tclIntStubsPtr->tclGetExtension)(name) /* 31 */ #endif #ifndef TclGetFrame #define TclGetFrame(interp, string, framePtrPtr) \ - (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 35 */ + (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 32 */ #endif #ifndef TclGetInterpProc #define TclGetInterpProc() \ - (tclIntStubsPtr->tclGetInterpProc)() /* 36 */ + (tclIntStubsPtr->tclGetInterpProc)() /* 33 */ #endif #ifndef TclGetIntForIndex #define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \ - (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 37 */ + (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 34 */ #endif #ifndef TclGetIndexedScalar #define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \ - (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 38 */ + (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 35 */ #endif #ifndef TclGetLong #define TclGetLong(interp, string, longPtr) \ - (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 39 */ + (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 36 */ #endif #ifndef TclGetLoadedPackages #define TclGetLoadedPackages(interp, targetName) \ - (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 40 */ + (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 37 */ #endif #ifndef TclGetNamespaceForQualName #define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \ - (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 41 */ + (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 38 */ #endif #ifndef TclGetObjInterpProc #define TclGetObjInterpProc() \ - (tclIntStubsPtr->tclGetObjInterpProc)() /* 42 */ + (tclIntStubsPtr->tclGetObjInterpProc)() /* 39 */ #endif #ifndef TclGetOpenMode #define TclGetOpenMode(interp, string, seekFlagPtr) \ - (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 43 */ + (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 40 */ #endif #ifndef TclGetOriginalCommand #define TclGetOriginalCommand(command) \ - (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 44 */ + (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 41 */ #endif #ifndef TclpGetUserHome #define TclpGetUserHome(name, bufferPtr) \ - (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 45 */ + (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 42 */ #endif #ifndef TclGlobalInvoke #define TclGlobalInvoke(interp, argc, argv, flags) \ - (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 46 */ + (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 43 */ #endif #ifndef TclGuessPackageName #define TclGuessPackageName(fileName, bufPtr) \ - (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 47 */ + (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 44 */ #endif #ifndef TclHideUnsafeCommands #define TclHideUnsafeCommands(interp) \ - (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 48 */ + (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 45 */ #endif #ifndef TclInExit #define TclInExit() \ - (tclIntStubsPtr->tclInExit)() /* 49 */ + (tclIntStubsPtr->tclInExit)() /* 46 */ #endif #ifndef TclIncrElementOfIndexedArray #define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \ - (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 50 */ + (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 47 */ #endif #ifndef TclIncrIndexedScalar #define TclIncrIndexedScalar(interp, localIndex, incrAmount) \ - (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 51 */ + (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 48 */ #endif #ifndef TclIncrVar2 #define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \ - (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 52 */ + (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 49 */ #endif #ifndef TclInitCompiledLocals #define TclInitCompiledLocals(interp, framePtr, nsPtr) \ - (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 53 */ + (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 50 */ #endif -/* Slot 54 is reserved */ #ifndef TclInterpInit #define TclInterpInit(interp) \ - (tclIntStubsPtr->tclInterpInit)(interp) /* 55 */ + (tclIntStubsPtr->tclInterpInit)(interp) /* 51 */ #endif #ifndef TclInvoke #define TclInvoke(interp, argc, argv, flags) \ - (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 56 */ + (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 52 */ #endif #ifndef TclInvokeObjectCommand #define TclInvokeObjectCommand(clientData, interp, argc, argv) \ - (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 57 */ + (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 53 */ #endif #ifndef TclInvokeStringCommand #define TclInvokeStringCommand(clientData, interp, objc, objv) \ - (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 58 */ + (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 54 */ #endif #ifndef TclIsProc #define TclIsProc(cmdPtr) \ - (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 59 */ + (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 55 */ #endif -/* Slot 60 is reserved */ -/* Slot 61 is reserved */ +/* Slot 56 is reserved */ +/* Slot 57 is reserved */ #ifndef TclLookupVar #define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \ - (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 62 */ + (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 58 */ #endif #ifndef TclpMatchFiles #define TclpMatchFiles(interp, separators, dirPtr, pattern, tail) \ - (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 63 */ + (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 59 */ #endif #ifndef TclNeedSpace #define TclNeedSpace(start, end) \ - (tclIntStubsPtr->tclNeedSpace)(start, end) /* 64 */ + (tclIntStubsPtr->tclNeedSpace)(start, end) /* 60 */ #endif #ifndef TclNewProcBodyObj #define TclNewProcBodyObj(procPtr) \ - (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 65 */ + (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 61 */ #endif #ifndef TclObjCommandComplete #define TclObjCommandComplete(cmdPtr) \ - (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 66 */ + (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 62 */ #endif #ifndef TclObjInterpProc #define TclObjInterpProc(clientData, interp, objc, objv) \ - (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 67 */ + (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 63 */ #endif #ifndef TclObjInvoke #define TclObjInvoke(interp, objc, objv, flags) \ - (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 68 */ + (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 64 */ #endif #ifndef TclObjInvokeGlobal #define TclObjInvokeGlobal(interp, objc, objv, flags) \ - (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 69 */ + (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 65 */ #endif #ifndef TclOpenFileChannelDeleteProc #define TclOpenFileChannelDeleteProc(proc) \ - (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 70 */ + (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 66 */ #endif #ifndef TclOpenFileChannelInsertProc #define TclOpenFileChannelInsertProc(proc) \ - (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 71 */ + (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 67 */ #endif #ifndef TclpAccess #define TclpAccess(path, mode) \ - (tclIntStubsPtr->tclpAccess)(path, mode) /* 72 */ + (tclIntStubsPtr->tclpAccess)(path, mode) /* 68 */ #endif #ifndef TclpAlloc #define TclpAlloc(size) \ - (tclIntStubsPtr->tclpAlloc)(size) /* 73 */ + (tclIntStubsPtr->tclpAlloc)(size) /* 69 */ #endif #ifndef TclpCopyFile #define TclpCopyFile(source, dest) \ - (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 74 */ + (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 70 */ #endif #ifndef TclpCopyDirectory #define TclpCopyDirectory(source, dest, errorPtr) \ - (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 75 */ + (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 71 */ #endif #ifndef TclpCreateDirectory #define TclpCreateDirectory(path) \ - (tclIntStubsPtr->tclpCreateDirectory)(path) /* 76 */ + (tclIntStubsPtr->tclpCreateDirectory)(path) /* 72 */ #endif #ifndef TclpDeleteFile #define TclpDeleteFile(path) \ - (tclIntStubsPtr->tclpDeleteFile)(path) /* 77 */ + (tclIntStubsPtr->tclpDeleteFile)(path) /* 73 */ #endif #ifndef TclpFree #define TclpFree(ptr) \ - (tclIntStubsPtr->tclpFree)(ptr) /* 78 */ + (tclIntStubsPtr->tclpFree)(ptr) /* 74 */ #endif #ifndef TclpGetClicks #define TclpGetClicks() \ - (tclIntStubsPtr->tclpGetClicks)() /* 79 */ + (tclIntStubsPtr->tclpGetClicks)() /* 75 */ #endif #ifndef TclpGetSeconds #define TclpGetSeconds() \ - (tclIntStubsPtr->tclpGetSeconds)() /* 80 */ + (tclIntStubsPtr->tclpGetSeconds)() /* 76 */ #endif #ifndef TclpGetTime #define TclpGetTime(time) \ - (tclIntStubsPtr->tclpGetTime)(time) /* 81 */ + (tclIntStubsPtr->tclpGetTime)(time) /* 77 */ #endif #ifndef TclpGetTimeZone #define TclpGetTimeZone(time) \ - (tclIntStubsPtr->tclpGetTimeZone)(time) /* 82 */ + (tclIntStubsPtr->tclpGetTimeZone)(time) /* 78 */ #endif #ifndef TclpListVolumes #define TclpListVolumes(interp) \ - (tclIntStubsPtr->tclpListVolumes)(interp) /* 83 */ + (tclIntStubsPtr->tclpListVolumes)(interp) /* 79 */ #endif #ifndef TclpOpenFileChannel #define TclpOpenFileChannel(interp, fileName, modeString, permissions) \ - (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 84 */ + (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 80 */ #endif #ifndef TclpRealloc #define TclpRealloc(ptr, size) \ - (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 85 */ + (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 81 */ #endif #ifndef TclpRemoveDirectory #define TclpRemoveDirectory(path, recursive, errorPtr) \ - (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 86 */ + (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 82 */ #endif #ifndef TclpRenameFile #define TclpRenameFile(source, dest) \ - (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 87 */ + (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 83 */ #endif -/* Slot 88 is reserved */ -/* Slot 89 is reserved */ -/* Slot 90 is reserved */ -/* Slot 91 is reserved */ +/* Slot 84 is reserved */ +/* Slot 85 is reserved */ +/* Slot 86 is reserved */ +/* Slot 87 is reserved */ #ifndef TclPrecTraceProc #define TclPrecTraceProc(clientData, interp, name1, name2, flags) \ - (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 92 */ + (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 88 */ #endif #ifndef TclPreventAliasLoop #define TclPreventAliasLoop(interp, cmdInterp, cmd) \ - (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 93 */ + (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 89 */ #endif -/* Slot 94 is reserved */ +/* Slot 90 is reserved */ #ifndef TclProcCleanupProc #define TclProcCleanupProc(procPtr) \ - (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 95 */ + (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 91 */ #endif #ifndef TclProcCompileProc #define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \ - (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 96 */ + (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 92 */ #endif #ifndef TclProcDeleteProc #define TclProcDeleteProc(clientData) \ - (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 97 */ + (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 93 */ #endif #ifndef TclProcInterpProc #define TclProcInterpProc(clientData, interp, argc, argv) \ - (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 98 */ + (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 94 */ #endif #ifndef TclpStat #define TclpStat(path, buf) \ - (tclIntStubsPtr->tclpStat)(path, buf) /* 99 */ + (tclIntStubsPtr->tclpStat)(path, buf) /* 95 */ #endif #ifndef TclRenameCommand #define TclRenameCommand(interp, oldName, newName) \ - (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 100 */ + (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 96 */ #endif #ifndef TclResetShadowedCmdRefs #define TclResetShadowedCmdRefs(interp, newCmdPtr) \ - (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 101 */ + (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 97 */ #endif #ifndef TclServiceIdle #define TclServiceIdle() \ - (tclIntStubsPtr->tclServiceIdle)() /* 102 */ + (tclIntStubsPtr->tclServiceIdle)() /* 98 */ #endif #ifndef TclSetElementOfIndexedArray #define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \ - (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 103 */ + (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 99 */ #endif #ifndef TclSetIndexedScalar #define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \ - (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 104 */ + (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 100 */ #endif -/* Slot 105 is reserved */ +/* Slot 101 is reserved */ #ifndef TclSetupEnv #define TclSetupEnv(interp) \ - (tclIntStubsPtr->tclSetupEnv)(interp) /* 106 */ + (tclIntStubsPtr->tclSetupEnv)(interp) /* 102 */ #endif #ifndef TclSockGetPort #define TclSockGetPort(interp, string, proto, portPtr) \ - (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 107 */ + (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 103 */ #endif #ifndef TclSockMinimumBuffers #define TclSockMinimumBuffers(sock, size) \ - (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 108 */ + (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 104 */ #endif #ifndef TclStat #define TclStat(path, buf) \ - (tclIntStubsPtr->tclStat)(path, buf) /* 109 */ + (tclIntStubsPtr->tclStat)(path, buf) /* 105 */ #endif #ifndef TclStatDeleteProc #define TclStatDeleteProc(proc) \ - (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 110 */ + (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 106 */ #endif #ifndef TclStatInsertProc #define TclStatInsertProc(proc) \ - (tclIntStubsPtr->tclStatInsertProc)(proc) /* 111 */ + (tclIntStubsPtr->tclStatInsertProc)(proc) /* 107 */ #endif #ifndef TclTeardownNamespace #define TclTeardownNamespace(nsPtr) \ - (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 112 */ + (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 108 */ #endif #ifndef TclUpdateReturnInfo #define TclUpdateReturnInfo(iPtr) \ - (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 113 */ + (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 109 */ #endif -/* Slot 114 is reserved */ +/* Slot 110 is reserved */ #ifndef Tcl_AddInterpResolvers #define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \ - (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 115 */ + (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 111 */ #endif #ifndef Tcl_AppendExportList #define Tcl_AppendExportList(interp, nsPtr, objPtr) \ - (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 116 */ + (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 112 */ #endif #ifndef Tcl_CreateNamespace #define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \ - (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 117 */ + (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 113 */ #endif #ifndef Tcl_DeleteNamespace #define Tcl_DeleteNamespace(nsPtr) \ - (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 118 */ + (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 114 */ #endif #ifndef Tcl_Export #define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \ - (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 119 */ + (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 115 */ #endif #ifndef Tcl_FindCommand #define Tcl_FindCommand(interp, name, contextNsPtr, flags) \ - (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 120 */ + (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 116 */ #endif #ifndef Tcl_FindNamespace #define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \ - (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 121 */ + (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 117 */ #endif #ifndef Tcl_GetInterpResolvers #define Tcl_GetInterpResolvers(interp, name, resInfo) \ - (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 122 */ + (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 118 */ #endif #ifndef Tcl_GetNamespaceResolvers #define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 123 */ + (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 119 */ #endif #ifndef Tcl_FindNamespaceVar #define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \ - (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 124 */ + (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 120 */ #endif #ifndef Tcl_ForgetImport #define Tcl_ForgetImport(interp, nsPtr, pattern) \ - (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 125 */ + (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 121 */ #endif #ifndef Tcl_GetCommandFromObj #define Tcl_GetCommandFromObj(interp, objPtr) \ - (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 126 */ + (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 122 */ #endif #ifndef Tcl_GetCommandFullName #define Tcl_GetCommandFullName(interp, command, objPtr) \ - (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 127 */ + (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 123 */ #endif #ifndef Tcl_GetCurrentNamespace #define Tcl_GetCurrentNamespace(interp) \ - (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 128 */ + (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 124 */ #endif #ifndef Tcl_GetGlobalNamespace #define Tcl_GetGlobalNamespace(interp) \ - (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 129 */ + (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 125 */ #endif #ifndef Tcl_GetVariableFullName #define Tcl_GetVariableFullName(interp, variable, objPtr) \ - (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 130 */ + (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 126 */ #endif #ifndef Tcl_Import #define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \ - (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 131 */ + (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 127 */ #endif #ifndef Tcl_PopCallFrame #define Tcl_PopCallFrame(interp) \ - (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 132 */ + (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 128 */ #endif #ifndef Tcl_PushCallFrame #define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \ - (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 133 */ + (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 129 */ #endif #ifndef Tcl_RemoveInterpResolvers #define Tcl_RemoveInterpResolvers(interp, name) \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 134 */ + (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 130 */ #endif #ifndef Tcl_SetNamespaceResolvers #define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 135 */ + (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 131 */ #endif +/* Slot 132 is reserved */ +/* Slot 133 is reserved */ +/* Slot 134 is reserved */ +/* Slot 135 is reserved */ /* Slot 136 is reserved */ /* Slot 137 is reserved */ /* Slot 138 is reserved */ /* Slot 139 is reserved */ /* Slot 140 is reserved */ /* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ #ifndef TclpHasSockets #define TclpHasSockets(interp) \ - (tclIntStubsPtr->tclpHasSockets)(interp) /* 146 */ + (tclIntStubsPtr->tclpHasSockets)(interp) /* 142 */ #endif #ifndef TclpGetDate #define TclpGetDate(time, useGMT) \ - (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 147 */ + (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 143 */ #endif #ifndef TclpStrftime #define TclpStrftime(s, maxsize, format, t) \ - (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 148 */ + (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 144 */ #endif #ifndef TclpCheckStackSpace #define TclpCheckStackSpace() \ - (tclIntStubsPtr->tclpCheckStackSpace)() /* 149 */ + (tclIntStubsPtr->tclpCheckStackSpace)() /* 145 */ #endif #ifndef Tcl_GetString #define Tcl_GetString(objPtr) \ - (tclIntStubsPtr->tcl_GetString)(objPtr) /* 150 */ + (tclIntStubsPtr->tcl_GetString)(objPtr) /* 146 */ +#endif +#ifndef TclpChdir +#define TclpChdir(dirName) \ + (tclIntStubsPtr->tclpChdir)(dirName) /* 147 */ +#endif +#ifndef TclGetEnv +#define TclGetEnv(name, valuePtr) \ + (tclIntStubsPtr->tclGetEnv)(name, valuePtr) /* 148 */ +#endif +#ifndef TclpLoadFile +#define TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) \ + (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) /* 149 */ +#endif +#ifndef TclLooksLikeInt +#define TclLooksLikeInt(bytes, length) \ + (tclIntStubsPtr->tclLooksLikeInt)(bytes, length) /* 150 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 6eb8b23..f698293 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.2.2.1 1999/03/08 20:14:09 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.2.2.2 1999/03/09 02:37:16 stanton Exp $ */ #ifndef _TCLINTPLATDECLS @@ -50,40 +50,42 @@ EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, int optlen)); /* 8 */ EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); -/* Slot 9 is reserved */ -/* 10 */ +/* 9 */ EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); -/* 11 */ -EXTERN void TclWinInit _ANSI_ARGS_((HINSTANCE hInst)); -/* 12 */ +/* 10 */ EXTERN int TclWinSynchSpawn _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); -/* 13 */ +/* 11 */ EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); -/* 14 */ +/* 12 */ EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); -/* 15 */ +/* 13 */ EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); -/* 16 */ +/* 14 */ EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); -/* 17 */ +/* 15 */ EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* 20 */ +/* Slot 16 is reserved */ +/* Slot 17 is reserved */ +/* 18 */ EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, int direction)); -/* 21 */ +/* 19 */ EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, int mode)); +/* 20 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( + CONST char * contents)); +/* 21 */ +EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); #endif /* __WIN32__ */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* 0 */ @@ -104,9 +106,7 @@ EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); -/* 5 */ -EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, - Tcl_DString * namePtr)); +/* Slot 5 is reserved */ /* 6 */ EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, int direction)); @@ -116,6 +116,9 @@ EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, /* 8 */ EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, int timeout)); +/* 9 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( + CONST char * contents)); #endif /* UNIX */ #ifdef MAC_TCL /* 0 */ @@ -199,19 +202,19 @@ typedef struct TclIntPlatStubs { u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); /* 7 */ unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ - void *reserved9; - int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 10 */ - void (*tclWinInit) _ANSI_ARGS_((HINSTANCE hInst)); /* 11 */ - int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 12 */ - void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 13 */ - int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 14 */ - Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 15 */ - int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 16 */ - int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 17 */ - void *reserved18; - void *reserved19; - TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 20 */ - TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 21 */ + int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ + int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 10 */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ + void *reserved16; + void *reserved17; + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 20 */ + char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 21 */ #endif /* __WIN32__ */ #if !defined(__WIN32__) && !defined(MAC_TCL) void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ @@ -219,10 +222,11 @@ typedef struct TclIntPlatStubs { Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ - TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 5 */ + void *reserved5; TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ #endif /* UNIX */ #ifdef MAC_TCL VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ @@ -296,48 +300,51 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclpGetPid(pid) \ (tclIntPlatStubsPtr->tclpGetPid)(pid) /* 8 */ #endif -/* Slot 9 is reserved */ #ifndef TclWinGetPlatformId #define TclWinGetPlatformId() \ - (tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 10 */ -#endif -#ifndef TclWinInit -#define TclWinInit(hInst) \ - (tclIntPlatStubsPtr->tclWinInit)(hInst) /* 11 */ + (tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 9 */ #endif #ifndef TclWinSynchSpawn #define TclWinSynchSpawn(args, type, trans, pidPtr) \ - (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 12 */ + (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 10 */ #endif #ifndef TclGetAndDetachPids #define TclGetAndDetachPids(interp, chan) \ - (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 13 */ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 11 */ #endif #ifndef TclpCloseFile #define TclpCloseFile(file) \ - (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 14 */ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 12 */ #endif #ifndef TclpCreateCommandChannel #define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 15 */ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 13 */ #endif #ifndef TclpCreatePipe #define TclpCreatePipe(readPipe, writePipe) \ - (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 16 */ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 14 */ #endif #ifndef TclpCreateProcess #define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ - (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 17 */ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 15 */ #endif -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ +/* Slot 16 is reserved */ +/* Slot 17 is reserved */ #ifndef TclpMakeFile #define TclpMakeFile(channel, direction) \ - (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 20 */ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 18 */ #endif #ifndef TclpOpenFile #define TclpOpenFile(fname, mode) \ - (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 21 */ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 19 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 20 */ +#endif +#ifndef TclpGetTZName +#define TclpGetTZName(isdst) \ + (tclIntPlatStubsPtr->tclpGetTZName)(isdst) /* 21 */ #endif #endif /* __WIN32__ */ #if !defined(__WIN32__) && !defined(MAC_TCL) @@ -361,10 +368,7 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */ #endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile(contents, namePtr) \ - (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 5 */ -#endif +/* Slot 5 is reserved */ #ifndef TclpMakeFile #define TclpMakeFile(channel, direction) \ (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */ @@ -377,6 +381,10 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclUnixWaitForFile(fd, mask, timeout) \ (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */ #endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 9 */ +#endif #endif /* UNIX */ #ifdef MAC_TCL #ifndef TclpSysAlloc diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c index 0ccd87e..7df2393 100644 --- a/generic/tclIntPlatStubs.c +++ b/generic/tclIntPlatStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2.2.1 1999/03/08 20:14:09 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2.2.2 1999/03/09 02:37:16 stanton Exp $ */ #include "tclInt.h" @@ -99,23 +99,14 @@ TclpGetPid(pid) return (tclIntPlatStubsPtr->tclpGetPid)(pid); } -/* Slot 9 is reserved */ -/* Slot 10 */ +/* Slot 9 */ int TclWinGetPlatformId() { return (tclIntPlatStubsPtr->tclWinGetPlatformId)(); } -/* Slot 11 */ -void -TclWinInit(hInst) - HINSTANCE hInst; -{ - (tclIntPlatStubsPtr->tclWinInit)(hInst); -} - -/* Slot 12 */ +/* Slot 10 */ int TclWinSynchSpawn(args, type, trans, pidPtr) void * args; @@ -126,7 +117,7 @@ TclWinSynchSpawn(args, type, trans, pidPtr) return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr); } -/* Slot 13 */ +/* Slot 11 */ void TclGetAndDetachPids(interp, chan) Tcl_Interp * interp; @@ -135,7 +126,7 @@ TclGetAndDetachPids(interp, chan) (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); } -/* Slot 14 */ +/* Slot 12 */ int TclpCloseFile(file) TclFile file; @@ -143,7 +134,7 @@ TclpCloseFile(file) return (tclIntPlatStubsPtr->tclpCloseFile)(file); } -/* Slot 15 */ +/* Slot 13 */ Tcl_Channel TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) TclFile readFile; @@ -155,7 +146,7 @@ TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); } -/* Slot 16 */ +/* Slot 14 */ int TclpCreatePipe(readPipe, writePipe) TclFile * readPipe; @@ -164,7 +155,7 @@ TclpCreatePipe(readPipe, writePipe) return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); } -/* Slot 17 */ +/* Slot 15 */ int TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) Tcl_Interp * interp; @@ -178,9 +169,9 @@ TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); } -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 */ +/* Slot 16 is reserved */ +/* Slot 17 is reserved */ +/* Slot 18 */ TclFile TclpMakeFile(channel, direction) Tcl_Channel channel; @@ -189,7 +180,7 @@ TclpMakeFile(channel, direction) return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); } -/* Slot 21 */ +/* Slot 19 */ TclFile TclpOpenFile(fname, mode) CONST char * fname; @@ -198,6 +189,22 @@ TclpOpenFile(fname, mode) return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); } +/* Slot 20 */ +TclFile +TclpCreateTempFile(contents) + CONST char * contents; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents); +} + +/* Slot 21 */ +char * +TclpGetTZName(isdst) + int isdst; +{ + return (tclIntPlatStubsPtr->tclpGetTZName)(isdst); +} + #endif /* __WIN32__ */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* Slot 0 */ @@ -252,15 +259,7 @@ TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); } -/* Slot 5 */ -TclFile -TclpCreateTempFile(contents, namePtr) - char * contents; - Tcl_DString * namePtr; -{ - return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr); -} - +/* Slot 5 is reserved */ /* Slot 6 */ TclFile TclpMakeFile(channel, direction) @@ -289,6 +288,14 @@ TclUnixWaitForFile(fd, mask, timeout) return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout); } +/* Slot 9 */ +TclFile +TclpCreateTempFile(contents) + CONST char * contents; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents); +} + #endif /* UNIX */ #ifdef MAC_TCL /* Slot 0 */ diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c index f93e1dd..fea427b 100644 --- a/generic/tclIntStubs.c +++ b/generic/tclIntStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntStubs.c,v 1.2.2.1 1999/03/08 20:14:09 stanton Exp $ + * RCS: @(#) $Id: tclIntStubs.c,v 1.2.2.2 1999/03/09 02:37:17 stanton Exp $ */ #include "tclInt.h" @@ -223,21 +223,6 @@ TclFileRenameCmd(interp, argc, argv) } /* Slot 22 */ -void -TclFinalizeCompExecEnv() -{ - (tclIntStubsPtr->tclFinalizeCompExecEnv)(); -} - -/* Slot 23 */ -void -TclFinalizeEnvironment() -{ - (tclIntStubsPtr->tclFinalizeEnvironment)(); -} - -/* Slot 24 is reserved */ -/* Slot 25 */ int TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) Tcl_Interp * interp; @@ -251,7 +236,7 @@ TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) return (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr); } -/* Slot 26 */ +/* Slot 23 */ Proc * TclFindProc(iPtr, procName) Interp * iPtr; @@ -260,7 +245,7 @@ TclFindProc(iPtr, procName) return (tclIntStubsPtr->tclFindProc)(iPtr, procName); } -/* Slot 27 */ +/* Slot 24 */ int TclFormatInt(buffer, n) char * buffer; @@ -269,7 +254,7 @@ TclFormatInt(buffer, n) return (tclIntStubsPtr->tclFormatInt)(buffer, n); } -/* Slot 28 */ +/* Slot 25 */ void TclFreePackageInfo(iPtr) Interp * iPtr; @@ -277,8 +262,8 @@ TclFreePackageInfo(iPtr) (tclIntStubsPtr->tclFreePackageInfo)(iPtr); } -/* Slot 29 is reserved */ -/* Slot 30 */ +/* Slot 26 is reserved */ +/* Slot 27 */ int TclGetDate(p, now, zone, timePtr) char * p; @@ -289,7 +274,7 @@ TclGetDate(p, now, zone, timePtr) return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr); } -/* Slot 31 */ +/* Slot 28 */ Tcl_Channel TclpGetDefaultStdChannel(type) int type; @@ -297,7 +282,7 @@ TclpGetDefaultStdChannel(type) return (tclIntStubsPtr->tclpGetDefaultStdChannel)(type); } -/* Slot 32 */ +/* Slot 29 */ Tcl_Obj * TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) Tcl_Interp * interp; @@ -308,8 +293,8 @@ TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg); } -/* Slot 33 is reserved */ -/* Slot 34 */ +/* Slot 30 is reserved */ +/* Slot 31 */ char * TclGetExtension(name) char * name; @@ -317,7 +302,7 @@ TclGetExtension(name) return (tclIntStubsPtr->tclGetExtension)(name); } -/* Slot 35 */ +/* Slot 32 */ int TclGetFrame(interp, string, framePtrPtr) Tcl_Interp * interp; @@ -327,14 +312,14 @@ TclGetFrame(interp, string, framePtrPtr) return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr); } -/* Slot 36 */ +/* Slot 33 */ TclCmdProcType TclGetInterpProc() { return (tclIntStubsPtr->tclGetInterpProc)(); } -/* Slot 37 */ +/* Slot 34 */ int TclGetIntForIndex(interp, objPtr, endValue, indexPtr) Tcl_Interp * interp; @@ -345,7 +330,7 @@ TclGetIntForIndex(interp, objPtr, endValue, indexPtr) return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr); } -/* Slot 38 */ +/* Slot 35 */ Tcl_Obj * TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) Tcl_Interp * interp; @@ -355,7 +340,7 @@ TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg); } -/* Slot 39 */ +/* Slot 36 */ int TclGetLong(interp, string, longPtr) Tcl_Interp * interp; @@ -365,7 +350,7 @@ TclGetLong(interp, string, longPtr) return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr); } -/* Slot 40 */ +/* Slot 37 */ int TclGetLoadedPackages(interp, targetName) Tcl_Interp * interp; @@ -374,7 +359,7 @@ TclGetLoadedPackages(interp, targetName) return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName); } -/* Slot 41 */ +/* Slot 38 */ int TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) Tcl_Interp * interp; @@ -389,14 +374,14 @@ TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtr return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr); } -/* Slot 42 */ +/* Slot 39 */ TclObjCmdProcType TclGetObjInterpProc() { return (tclIntStubsPtr->tclGetObjInterpProc)(); } -/* Slot 43 */ +/* Slot 40 */ int TclGetOpenMode(interp, string, seekFlagPtr) Tcl_Interp * interp; @@ -406,7 +391,7 @@ TclGetOpenMode(interp, string, seekFlagPtr) return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr); } -/* Slot 44 */ +/* Slot 41 */ Tcl_Command TclGetOriginalCommand(command) Tcl_Command command; @@ -414,7 +399,7 @@ TclGetOriginalCommand(command) return (tclIntStubsPtr->tclGetOriginalCommand)(command); } -/* Slot 45 */ +/* Slot 42 */ char * TclpGetUserHome(name, bufferPtr) CONST char * name; @@ -423,7 +408,7 @@ TclpGetUserHome(name, bufferPtr) return (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr); } -/* Slot 46 */ +/* Slot 43 */ int TclGlobalInvoke(interp, argc, argv, flags) Tcl_Interp * interp; @@ -434,7 +419,7 @@ TclGlobalInvoke(interp, argc, argv, flags) return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags); } -/* Slot 47 */ +/* Slot 44 */ int TclGuessPackageName(fileName, bufPtr) char * fileName; @@ -443,7 +428,7 @@ TclGuessPackageName(fileName, bufPtr) return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr); } -/* Slot 48 */ +/* Slot 45 */ int TclHideUnsafeCommands(interp) Tcl_Interp * interp; @@ -451,14 +436,14 @@ TclHideUnsafeCommands(interp) return (tclIntStubsPtr->tclHideUnsafeCommands)(interp); } -/* Slot 49 */ +/* Slot 46 */ int TclInExit() { return (tclIntStubsPtr->tclInExit)(); } -/* Slot 50 */ +/* Slot 47 */ Tcl_Obj * TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) Tcl_Interp * interp; @@ -469,7 +454,7 @@ TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount); } -/* Slot 51 */ +/* Slot 48 */ Tcl_Obj * TclIncrIndexedScalar(interp, localIndex, incrAmount) Tcl_Interp * interp; @@ -479,7 +464,7 @@ TclIncrIndexedScalar(interp, localIndex, incrAmount) return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount); } -/* Slot 52 */ +/* Slot 49 */ Tcl_Obj * TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) Tcl_Interp * interp; @@ -491,7 +476,7 @@ TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed); } -/* Slot 53 */ +/* Slot 50 */ void TclInitCompiledLocals(interp, framePtr, nsPtr) Tcl_Interp * interp; @@ -501,8 +486,7 @@ TclInitCompiledLocals(interp, framePtr, nsPtr) (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr); } -/* Slot 54 is reserved */ -/* Slot 55 */ +/* Slot 51 */ int TclInterpInit(interp) Tcl_Interp * interp; @@ -510,7 +494,7 @@ TclInterpInit(interp) return (tclIntStubsPtr->tclInterpInit)(interp); } -/* Slot 56 */ +/* Slot 52 */ int TclInvoke(interp, argc, argv, flags) Tcl_Interp * interp; @@ -521,7 +505,7 @@ TclInvoke(interp, argc, argv, flags) return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags); } -/* Slot 57 */ +/* Slot 53 */ int TclInvokeObjectCommand(clientData, interp, argc, argv) ClientData clientData; @@ -532,7 +516,7 @@ TclInvokeObjectCommand(clientData, interp, argc, argv) return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv); } -/* Slot 58 */ +/* Slot 54 */ int TclInvokeStringCommand(clientData, interp, objc, objv) ClientData clientData; @@ -543,7 +527,7 @@ TclInvokeStringCommand(clientData, interp, objc, objv) return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv); } -/* Slot 59 */ +/* Slot 55 */ Proc * TclIsProc(cmdPtr) Command * cmdPtr; @@ -551,9 +535,9 @@ TclIsProc(cmdPtr) return (tclIntStubsPtr->tclIsProc)(cmdPtr); } -/* Slot 60 is reserved */ -/* Slot 61 is reserved */ -/* Slot 62 */ +/* Slot 56 is reserved */ +/* Slot 57 is reserved */ +/* Slot 58 */ Var * TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) Tcl_Interp * interp; @@ -568,7 +552,7 @@ TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPt return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr); } -/* Slot 63 */ +/* Slot 59 */ int TclpMatchFiles(interp, separators, dirPtr, pattern, tail) Tcl_Interp * interp; @@ -580,7 +564,7 @@ TclpMatchFiles(interp, separators, dirPtr, pattern, tail) return (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail); } -/* Slot 64 */ +/* Slot 60 */ int TclNeedSpace(start, end) char * start; @@ -589,7 +573,7 @@ TclNeedSpace(start, end) return (tclIntStubsPtr->tclNeedSpace)(start, end); } -/* Slot 65 */ +/* Slot 61 */ Tcl_Obj * TclNewProcBodyObj(procPtr) Proc * procPtr; @@ -597,7 +581,7 @@ TclNewProcBodyObj(procPtr) return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr); } -/* Slot 66 */ +/* Slot 62 */ int TclObjCommandComplete(cmdPtr) Tcl_Obj * cmdPtr; @@ -605,7 +589,7 @@ TclObjCommandComplete(cmdPtr) return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr); } -/* Slot 67 */ +/* Slot 63 */ int TclObjInterpProc(clientData, interp, objc, objv) ClientData clientData; @@ -616,7 +600,7 @@ TclObjInterpProc(clientData, interp, objc, objv) return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv); } -/* Slot 68 */ +/* Slot 64 */ int TclObjInvoke(interp, objc, objv, flags) Tcl_Interp * interp; @@ -627,7 +611,7 @@ TclObjInvoke(interp, objc, objv, flags) return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags); } -/* Slot 69 */ +/* Slot 65 */ int TclObjInvokeGlobal(interp, objc, objv, flags) Tcl_Interp * interp; @@ -638,7 +622,7 @@ TclObjInvokeGlobal(interp, objc, objv, flags) return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags); } -/* Slot 70 */ +/* Slot 66 */ int TclOpenFileChannelDeleteProc(proc) TclOpenFileChannelProc_ * proc; @@ -646,7 +630,7 @@ TclOpenFileChannelDeleteProc(proc) return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc); } -/* Slot 71 */ +/* Slot 67 */ int TclOpenFileChannelInsertProc(proc) TclOpenFileChannelProc_ * proc; @@ -654,7 +638,7 @@ TclOpenFileChannelInsertProc(proc) return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc); } -/* Slot 72 */ +/* Slot 68 */ int TclpAccess(path, mode) CONST char * path; @@ -663,7 +647,7 @@ TclpAccess(path, mode) return (tclIntStubsPtr->tclpAccess)(path, mode); } -/* Slot 73 */ +/* Slot 69 */ char * TclpAlloc(size) unsigned int size; @@ -671,7 +655,7 @@ TclpAlloc(size) return (tclIntStubsPtr->tclpAlloc)(size); } -/* Slot 74 */ +/* Slot 70 */ int TclpCopyFile(source, dest) CONST char * source; @@ -680,7 +664,7 @@ TclpCopyFile(source, dest) return (tclIntStubsPtr->tclpCopyFile)(source, dest); } -/* Slot 75 */ +/* Slot 71 */ int TclpCopyDirectory(source, dest, errorPtr) CONST char * source; @@ -690,7 +674,7 @@ TclpCopyDirectory(source, dest, errorPtr) return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr); } -/* Slot 76 */ +/* Slot 72 */ int TclpCreateDirectory(path) CONST char * path; @@ -698,7 +682,7 @@ TclpCreateDirectory(path) return (tclIntStubsPtr->tclpCreateDirectory)(path); } -/* Slot 77 */ +/* Slot 73 */ int TclpDeleteFile(path) CONST char * path; @@ -706,7 +690,7 @@ TclpDeleteFile(path) return (tclIntStubsPtr->tclpDeleteFile)(path); } -/* Slot 78 */ +/* Slot 74 */ void TclpFree(ptr) char * ptr; @@ -714,21 +698,21 @@ TclpFree(ptr) (tclIntStubsPtr->tclpFree)(ptr); } -/* Slot 79 */ +/* Slot 75 */ unsigned long TclpGetClicks() { return (tclIntStubsPtr->tclpGetClicks)(); } -/* Slot 80 */ +/* Slot 76 */ unsigned long TclpGetSeconds() { return (tclIntStubsPtr->tclpGetSeconds)(); } -/* Slot 81 */ +/* Slot 77 */ void TclpGetTime(time) Tcl_Time * time; @@ -736,7 +720,7 @@ TclpGetTime(time) (tclIntStubsPtr->tclpGetTime)(time); } -/* Slot 82 */ +/* Slot 78 */ int TclpGetTimeZone(time) unsigned long time; @@ -744,7 +728,7 @@ TclpGetTimeZone(time) return (tclIntStubsPtr->tclpGetTimeZone)(time); } -/* Slot 83 */ +/* Slot 79 */ int TclpListVolumes(interp) Tcl_Interp * interp; @@ -752,7 +736,7 @@ TclpListVolumes(interp) return (tclIntStubsPtr->tclpListVolumes)(interp); } -/* Slot 84 */ +/* Slot 80 */ Tcl_Channel TclpOpenFileChannel(interp, fileName, modeString, permissions) Tcl_Interp * interp; @@ -763,7 +747,7 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions) return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions); } -/* Slot 85 */ +/* Slot 81 */ char * TclpRealloc(ptr, size) char * ptr; @@ -772,7 +756,7 @@ TclpRealloc(ptr, size) return (tclIntStubsPtr->tclpRealloc)(ptr, size); } -/* Slot 86 */ +/* Slot 82 */ int TclpRemoveDirectory(path, recursive, errorPtr) CONST char * path; @@ -782,7 +766,7 @@ TclpRemoveDirectory(path, recursive, errorPtr) return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr); } -/* Slot 87 */ +/* Slot 83 */ int TclpRenameFile(source, dest) CONST char * source; @@ -791,11 +775,11 @@ TclpRenameFile(source, dest) return (tclIntStubsPtr->tclpRenameFile)(source, dest); } -/* Slot 88 is reserved */ -/* Slot 89 is reserved */ -/* Slot 90 is reserved */ -/* Slot 91 is reserved */ -/* Slot 92 */ +/* Slot 84 is reserved */ +/* Slot 85 is reserved */ +/* Slot 86 is reserved */ +/* Slot 87 is reserved */ +/* Slot 88 */ char * TclPrecTraceProc(clientData, interp, name1, name2, flags) ClientData clientData; @@ -807,7 +791,7 @@ TclPrecTraceProc(clientData, interp, name1, name2, flags) return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags); } -/* Slot 93 */ +/* Slot 89 */ int TclPreventAliasLoop(interp, cmdInterp, cmd) Tcl_Interp * interp; @@ -817,8 +801,8 @@ TclPreventAliasLoop(interp, cmdInterp, cmd) return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd); } -/* Slot 94 is reserved */ -/* Slot 95 */ +/* Slot 90 is reserved */ +/* Slot 91 */ void TclProcCleanupProc(procPtr) Proc * procPtr; @@ -826,7 +810,7 @@ TclProcCleanupProc(procPtr) (tclIntStubsPtr->tclProcCleanupProc)(procPtr); } -/* Slot 96 */ +/* Slot 92 */ int TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) Tcl_Interp * interp; @@ -839,7 +823,7 @@ TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName); } -/* Slot 97 */ +/* Slot 93 */ void TclProcDeleteProc(clientData) ClientData clientData; @@ -847,7 +831,7 @@ TclProcDeleteProc(clientData) (tclIntStubsPtr->tclProcDeleteProc)(clientData); } -/* Slot 98 */ +/* Slot 94 */ int TclProcInterpProc(clientData, interp, argc, argv) ClientData clientData; @@ -858,7 +842,7 @@ TclProcInterpProc(clientData, interp, argc, argv) return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv); } -/* Slot 99 */ +/* Slot 95 */ int TclpStat(path, buf) CONST char * path; @@ -867,7 +851,7 @@ TclpStat(path, buf) return (tclIntStubsPtr->tclpStat)(path, buf); } -/* Slot 100 */ +/* Slot 96 */ int TclRenameCommand(interp, oldName, newName) Tcl_Interp * interp; @@ -877,7 +861,7 @@ TclRenameCommand(interp, oldName, newName) return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName); } -/* Slot 101 */ +/* Slot 97 */ void TclResetShadowedCmdRefs(interp, newCmdPtr) Tcl_Interp * interp; @@ -886,14 +870,14 @@ TclResetShadowedCmdRefs(interp, newCmdPtr) (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr); } -/* Slot 102 */ +/* Slot 98 */ int TclServiceIdle() { return (tclIntStubsPtr->tclServiceIdle)(); } -/* Slot 103 */ +/* Slot 99 */ Tcl_Obj * TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) Tcl_Interp * interp; @@ -905,7 +889,7 @@ TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg); } -/* Slot 104 */ +/* Slot 100 */ Tcl_Obj * TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) Tcl_Interp * interp; @@ -916,8 +900,8 @@ TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg); } -/* Slot 105 is reserved */ -/* Slot 106 */ +/* Slot 101 is reserved */ +/* Slot 102 */ void TclSetupEnv(interp) Tcl_Interp * interp; @@ -925,7 +909,7 @@ TclSetupEnv(interp) (tclIntStubsPtr->tclSetupEnv)(interp); } -/* Slot 107 */ +/* Slot 103 */ int TclSockGetPort(interp, string, proto, portPtr) Tcl_Interp * interp; @@ -936,7 +920,7 @@ TclSockGetPort(interp, string, proto, portPtr) return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr); } -/* Slot 108 */ +/* Slot 104 */ int TclSockMinimumBuffers(sock, size) int sock; @@ -945,7 +929,7 @@ TclSockMinimumBuffers(sock, size) return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size); } -/* Slot 109 */ +/* Slot 105 */ int TclStat(path, buf) CONST char * path; @@ -954,7 +938,7 @@ TclStat(path, buf) return (tclIntStubsPtr->tclStat)(path, buf); } -/* Slot 110 */ +/* Slot 106 */ int TclStatDeleteProc(proc) TclStatProc_ * proc; @@ -962,7 +946,7 @@ TclStatDeleteProc(proc) return (tclIntStubsPtr->tclStatDeleteProc)(proc); } -/* Slot 111 */ +/* Slot 107 */ int TclStatInsertProc(proc) TclStatProc_ * proc; @@ -970,7 +954,7 @@ TclStatInsertProc(proc) return (tclIntStubsPtr->tclStatInsertProc)(proc); } -/* Slot 112 */ +/* Slot 108 */ void TclTeardownNamespace(nsPtr) Namespace * nsPtr; @@ -978,7 +962,7 @@ TclTeardownNamespace(nsPtr) (tclIntStubsPtr->tclTeardownNamespace)(nsPtr); } -/* Slot 113 */ +/* Slot 109 */ int TclUpdateReturnInfo(iPtr) Interp * iPtr; @@ -986,8 +970,8 @@ TclUpdateReturnInfo(iPtr) return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr); } -/* Slot 114 is reserved */ -/* Slot 115 */ +/* Slot 110 is reserved */ +/* Slot 111 */ void Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) Tcl_Interp * interp; @@ -999,7 +983,7 @@ Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc); } -/* Slot 116 */ +/* Slot 112 */ int Tcl_AppendExportList(interp, nsPtr, objPtr) Tcl_Interp * interp; @@ -1009,7 +993,7 @@ Tcl_AppendExportList(interp, nsPtr, objPtr) return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr); } -/* Slot 117 */ +/* Slot 113 */ Tcl_Namespace * Tcl_CreateNamespace(interp, name, clientData, deleteProc) Tcl_Interp * interp; @@ -1020,7 +1004,7 @@ Tcl_CreateNamespace(interp, name, clientData, deleteProc) return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc); } -/* Slot 118 */ +/* Slot 114 */ void Tcl_DeleteNamespace(nsPtr) Tcl_Namespace * nsPtr; @@ -1028,7 +1012,7 @@ Tcl_DeleteNamespace(nsPtr) (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr); } -/* Slot 119 */ +/* Slot 115 */ int Tcl_Export(interp, nsPtr, pattern, resetListFirst) Tcl_Interp * interp; @@ -1039,7 +1023,7 @@ Tcl_Export(interp, nsPtr, pattern, resetListFirst) return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst); } -/* Slot 120 */ +/* Slot 116 */ Tcl_Command Tcl_FindCommand(interp, name, contextNsPtr, flags) Tcl_Interp * interp; @@ -1050,7 +1034,7 @@ Tcl_FindCommand(interp, name, contextNsPtr, flags) return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags); } -/* Slot 121 */ +/* Slot 117 */ Tcl_Namespace * Tcl_FindNamespace(interp, name, contextNsPtr, flags) Tcl_Interp * interp; @@ -1061,7 +1045,7 @@ Tcl_FindNamespace(interp, name, contextNsPtr, flags) return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags); } -/* Slot 122 */ +/* Slot 118 */ int Tcl_GetInterpResolvers(interp, name, resInfo) Tcl_Interp * interp; @@ -1071,7 +1055,7 @@ Tcl_GetInterpResolvers(interp, name, resInfo) return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo); } -/* Slot 123 */ +/* Slot 119 */ int Tcl_GetNamespaceResolvers(namespacePtr, resInfo) Tcl_Namespace * namespacePtr; @@ -1080,7 +1064,7 @@ Tcl_GetNamespaceResolvers(namespacePtr, resInfo) return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo); } -/* Slot 124 */ +/* Slot 120 */ Tcl_Var Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) Tcl_Interp * interp; @@ -1091,7 +1075,7 @@ Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags); } -/* Slot 125 */ +/* Slot 121 */ int Tcl_ForgetImport(interp, nsPtr, pattern) Tcl_Interp * interp; @@ -1101,7 +1085,7 @@ Tcl_ForgetImport(interp, nsPtr, pattern) return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern); } -/* Slot 126 */ +/* Slot 122 */ Tcl_Command Tcl_GetCommandFromObj(interp, objPtr) Tcl_Interp * interp; @@ -1110,7 +1094,7 @@ Tcl_GetCommandFromObj(interp, objPtr) return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr); } -/* Slot 127 */ +/* Slot 123 */ void Tcl_GetCommandFullName(interp, command, objPtr) Tcl_Interp * interp; @@ -1120,7 +1104,7 @@ Tcl_GetCommandFullName(interp, command, objPtr) (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr); } -/* Slot 128 */ +/* Slot 124 */ Tcl_Namespace * Tcl_GetCurrentNamespace(interp) Tcl_Interp * interp; @@ -1128,7 +1112,7 @@ Tcl_GetCurrentNamespace(interp) return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp); } -/* Slot 129 */ +/* Slot 125 */ Tcl_Namespace * Tcl_GetGlobalNamespace(interp) Tcl_Interp * interp; @@ -1136,7 +1120,7 @@ Tcl_GetGlobalNamespace(interp) return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp); } -/* Slot 130 */ +/* Slot 126 */ void Tcl_GetVariableFullName(interp, variable, objPtr) Tcl_Interp * interp; @@ -1146,7 +1130,7 @@ Tcl_GetVariableFullName(interp, variable, objPtr) (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr); } -/* Slot 131 */ +/* Slot 127 */ int Tcl_Import(interp, nsPtr, pattern, allowOverwrite) Tcl_Interp * interp; @@ -1157,7 +1141,7 @@ Tcl_Import(interp, nsPtr, pattern, allowOverwrite) return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite); } -/* Slot 132 */ +/* Slot 128 */ void Tcl_PopCallFrame(interp) Tcl_Interp* interp; @@ -1165,7 +1149,7 @@ Tcl_PopCallFrame(interp) (tclIntStubsPtr->tcl_PopCallFrame)(interp); } -/* Slot 133 */ +/* Slot 129 */ int Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) Tcl_Interp* interp; @@ -1176,7 +1160,7 @@ Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame); } -/* Slot 134 */ +/* Slot 130 */ int Tcl_RemoveInterpResolvers(interp, name) Tcl_Interp * interp; @@ -1185,7 +1169,7 @@ Tcl_RemoveInterpResolvers(interp, name) return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name); } -/* Slot 135 */ +/* Slot 131 */ void Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) Tcl_Namespace * namespacePtr; @@ -1196,17 +1180,17 @@ Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc); } +/* Slot 132 is reserved */ +/* Slot 133 is reserved */ +/* Slot 134 is reserved */ +/* Slot 135 is reserved */ /* Slot 136 is reserved */ /* Slot 137 is reserved */ /* Slot 138 is reserved */ /* Slot 139 is reserved */ /* Slot 140 is reserved */ /* Slot 141 is reserved */ -/* Slot 142 is reserved */ -/* Slot 143 is reserved */ -/* Slot 144 is reserved */ -/* Slot 145 is reserved */ -/* Slot 146 */ +/* Slot 142 */ int TclpHasSockets(interp) Tcl_Interp * interp; @@ -1214,7 +1198,7 @@ TclpHasSockets(interp) return (tclIntStubsPtr->tclpHasSockets)(interp); } -/* Slot 147 */ +/* Slot 143 */ struct tm * TclpGetDate(time, useGMT) TclpTime_t time; @@ -1223,7 +1207,7 @@ TclpGetDate(time, useGMT) return (tclIntStubsPtr->tclpGetDate)(time, useGMT); } -/* Slot 148 */ +/* Slot 144 */ size_t TclpStrftime(s, maxsize, format, t) char * s; @@ -1234,14 +1218,14 @@ TclpStrftime(s, maxsize, format, t) return (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t); } -/* Slot 149 */ +/* Slot 145 */ int TclpCheckStackSpace() { return (tclIntStubsPtr->tclpCheckStackSpace)(); } -/* Slot 150 */ +/* Slot 146 */ char * Tcl_GetString(objPtr) Tcl_Obj * objPtr; @@ -1249,5 +1233,45 @@ Tcl_GetString(objPtr) return (tclIntStubsPtr->tcl_GetString)(objPtr); } +/* Slot 147 */ +int +TclpChdir(dirName) + CONST char * dirName; +{ + return (tclIntStubsPtr->tclpChdir)(dirName); +} + +/* Slot 148 */ +char * +TclGetEnv(name, valuePtr) + CONST char * name; + Tcl_DString * valuePtr; +{ + return (tclIntStubsPtr->tclGetEnv)(name, valuePtr); +} + +/* Slot 149 */ +int +TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) + Tcl_Interp * interp; + char * fileName; + char * sym1; + char * sym2; + Tcl_PackageInitProc ** proc1Ptr; + Tcl_PackageInitProc ** proc2Ptr; + ClientData * clientDataPtr; +{ + return (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr); +} + +/* Slot 150 */ +int +TclLooksLikeInt(bytes, length) + char * bytes; + int length; +{ + return (tclIntStubsPtr->tclLooksLikeInt)(bytes, length); +} + /* !END!: Do not edit above this line. */ diff --git a/generic/tclParse.c b/generic/tclParse.c index aed29b1..c6573ed 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParse.c,v 1.1.2.9.2.1 1999/03/08 20:14:10 stanton Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.1.2.9.2.2 1999/03/09 02:37:17 stanton Exp $ */ #include "tclInt.h" @@ -1671,7 +1671,7 @@ Tcl_ParseVarName(interp, string, numBytes, parsePtr, append) while (src != end) { offset = Tcl_UtfToUniChar(src, &ch); c = UCHAR(ch); - if (isalnum(c) || (c == '_')) { /* INTL: ISO only. */ + if (isalnum(c) || (c == '_')) { /* INTL: ISO only, UCHAR. */ src += offset; continue; } diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index e044aff..aa19aa7 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.1.2.2.2.1 1999/03/08 20:14:12 stanton Exp $ + * RCS: @(#) $Id: tclStringObj.c,v 1.1.2.2.2.2 1999/03/09 02:37:18 stanton Exp $ */ #include "tclInt.h" @@ -416,7 +416,6 @@ Tcl_AppendStringsToObjVA (objPtr, argList) int newLength, oldLength; register char *string, *dst; - objPtr = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList); if (Tcl_IsShared(objPtr)) { panic("Tcl_AppendStringsToObj called with shared object"); } diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 269e661..7e0d83f 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.2.4.1 1999/03/08 20:14:12 stanton Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.2.4.2 1999/03/09 02:37:18 stanton Exp $ */ #include "tclInt.h" @@ -407,135 +407,135 @@ TclIntStubs tclIntStubs = { TclFileDeleteCmd, /* 19 */ TclFileMakeDirsCmd, /* 20 */ TclFileRenameCmd, /* 21 */ - TclFinalizeCompExecEnv, /* 22 */ - TclFinalizeEnvironment, /* 23 */ - NULL, /* 24 */ - TclFindElement, /* 25 */ - TclFindProc, /* 26 */ - TclFormatInt, /* 27 */ - TclFreePackageInfo, /* 28 */ - NULL, /* 29 */ - TclGetDate, /* 30 */ - TclpGetDefaultStdChannel, /* 31 */ - TclGetElementOfIndexedArray, /* 32 */ - NULL, /* 33 */ - TclGetExtension, /* 34 */ - TclGetFrame, /* 35 */ - TclGetInterpProc, /* 36 */ - TclGetIntForIndex, /* 37 */ - TclGetIndexedScalar, /* 38 */ - TclGetLong, /* 39 */ - TclGetLoadedPackages, /* 40 */ - TclGetNamespaceForQualName, /* 41 */ - TclGetObjInterpProc, /* 42 */ - TclGetOpenMode, /* 43 */ - TclGetOriginalCommand, /* 44 */ - TclpGetUserHome, /* 45 */ - TclGlobalInvoke, /* 46 */ - TclGuessPackageName, /* 47 */ - TclHideUnsafeCommands, /* 48 */ - TclInExit, /* 49 */ - TclIncrElementOfIndexedArray, /* 50 */ - TclIncrIndexedScalar, /* 51 */ - TclIncrVar2, /* 52 */ - TclInitCompiledLocals, /* 53 */ - NULL, /* 54 */ - TclInterpInit, /* 55 */ - TclInvoke, /* 56 */ - TclInvokeObjectCommand, /* 57 */ - TclInvokeStringCommand, /* 58 */ - TclIsProc, /* 59 */ - NULL, /* 60 */ - NULL, /* 61 */ - TclLookupVar, /* 62 */ - TclpMatchFiles, /* 63 */ - TclNeedSpace, /* 64 */ - TclNewProcBodyObj, /* 65 */ - TclObjCommandComplete, /* 66 */ - TclObjInterpProc, /* 67 */ - TclObjInvoke, /* 68 */ - TclObjInvokeGlobal, /* 69 */ - TclOpenFileChannelDeleteProc, /* 70 */ - TclOpenFileChannelInsertProc, /* 71 */ - TclpAccess, /* 72 */ - TclpAlloc, /* 73 */ - TclpCopyFile, /* 74 */ - TclpCopyDirectory, /* 75 */ - TclpCreateDirectory, /* 76 */ - TclpDeleteFile, /* 77 */ - TclpFree, /* 78 */ - TclpGetClicks, /* 79 */ - TclpGetSeconds, /* 80 */ - TclpGetTime, /* 81 */ - TclpGetTimeZone, /* 82 */ - TclpListVolumes, /* 83 */ - TclpOpenFileChannel, /* 84 */ - TclpRealloc, /* 85 */ - TclpRemoveDirectory, /* 86 */ - TclpRenameFile, /* 87 */ - NULL, /* 88 */ - NULL, /* 89 */ + TclFindElement, /* 22 */ + TclFindProc, /* 23 */ + TclFormatInt, /* 24 */ + TclFreePackageInfo, /* 25 */ + NULL, /* 26 */ + TclGetDate, /* 27 */ + TclpGetDefaultStdChannel, /* 28 */ + TclGetElementOfIndexedArray, /* 29 */ + NULL, /* 30 */ + TclGetExtension, /* 31 */ + TclGetFrame, /* 32 */ + TclGetInterpProc, /* 33 */ + TclGetIntForIndex, /* 34 */ + TclGetIndexedScalar, /* 35 */ + TclGetLong, /* 36 */ + TclGetLoadedPackages, /* 37 */ + TclGetNamespaceForQualName, /* 38 */ + TclGetObjInterpProc, /* 39 */ + TclGetOpenMode, /* 40 */ + TclGetOriginalCommand, /* 41 */ + TclpGetUserHome, /* 42 */ + TclGlobalInvoke, /* 43 */ + TclGuessPackageName, /* 44 */ + TclHideUnsafeCommands, /* 45 */ + TclInExit, /* 46 */ + TclIncrElementOfIndexedArray, /* 47 */ + TclIncrIndexedScalar, /* 48 */ + TclIncrVar2, /* 49 */ + TclInitCompiledLocals, /* 50 */ + TclInterpInit, /* 51 */ + TclInvoke, /* 52 */ + TclInvokeObjectCommand, /* 53 */ + TclInvokeStringCommand, /* 54 */ + TclIsProc, /* 55 */ + NULL, /* 56 */ + NULL, /* 57 */ + TclLookupVar, /* 58 */ + TclpMatchFiles, /* 59 */ + TclNeedSpace, /* 60 */ + TclNewProcBodyObj, /* 61 */ + TclObjCommandComplete, /* 62 */ + TclObjInterpProc, /* 63 */ + TclObjInvoke, /* 64 */ + TclObjInvokeGlobal, /* 65 */ + TclOpenFileChannelDeleteProc, /* 66 */ + TclOpenFileChannelInsertProc, /* 67 */ + TclpAccess, /* 68 */ + TclpAlloc, /* 69 */ + TclpCopyFile, /* 70 */ + TclpCopyDirectory, /* 71 */ + TclpCreateDirectory, /* 72 */ + TclpDeleteFile, /* 73 */ + TclpFree, /* 74 */ + TclpGetClicks, /* 75 */ + TclpGetSeconds, /* 76 */ + TclpGetTime, /* 77 */ + TclpGetTimeZone, /* 78 */ + TclpListVolumes, /* 79 */ + TclpOpenFileChannel, /* 80 */ + TclpRealloc, /* 81 */ + TclpRemoveDirectory, /* 82 */ + TclpRenameFile, /* 83 */ + NULL, /* 84 */ + NULL, /* 85 */ + NULL, /* 86 */ + NULL, /* 87 */ + TclPrecTraceProc, /* 88 */ + TclPreventAliasLoop, /* 89 */ NULL, /* 90 */ - NULL, /* 91 */ - TclPrecTraceProc, /* 92 */ - TclPreventAliasLoop, /* 93 */ - NULL, /* 94 */ - TclProcCleanupProc, /* 95 */ - TclProcCompileProc, /* 96 */ - TclProcDeleteProc, /* 97 */ - TclProcInterpProc, /* 98 */ - TclpStat, /* 99 */ - TclRenameCommand, /* 100 */ - TclResetShadowedCmdRefs, /* 101 */ - TclServiceIdle, /* 102 */ - TclSetElementOfIndexedArray, /* 103 */ - TclSetIndexedScalar, /* 104 */ - NULL, /* 105 */ - TclSetupEnv, /* 106 */ - TclSockGetPort, /* 107 */ - TclSockMinimumBuffers, /* 108 */ - TclStat, /* 109 */ - TclStatDeleteProc, /* 110 */ - TclStatInsertProc, /* 111 */ - TclTeardownNamespace, /* 112 */ - TclUpdateReturnInfo, /* 113 */ - NULL, /* 114 */ - Tcl_AddInterpResolvers, /* 115 */ - Tcl_AppendExportList, /* 116 */ - Tcl_CreateNamespace, /* 117 */ - Tcl_DeleteNamespace, /* 118 */ - Tcl_Export, /* 119 */ - Tcl_FindCommand, /* 120 */ - Tcl_FindNamespace, /* 121 */ - Tcl_GetInterpResolvers, /* 122 */ - Tcl_GetNamespaceResolvers, /* 123 */ - Tcl_FindNamespaceVar, /* 124 */ - Tcl_ForgetImport, /* 125 */ - Tcl_GetCommandFromObj, /* 126 */ - Tcl_GetCommandFullName, /* 127 */ - Tcl_GetCurrentNamespace, /* 128 */ - Tcl_GetGlobalNamespace, /* 129 */ - Tcl_GetVariableFullName, /* 130 */ - Tcl_Import, /* 131 */ - Tcl_PopCallFrame, /* 132 */ - Tcl_PushCallFrame, /* 133 */ - Tcl_RemoveInterpResolvers, /* 134 */ - Tcl_SetNamespaceResolvers, /* 135 */ + TclProcCleanupProc, /* 91 */ + TclProcCompileProc, /* 92 */ + TclProcDeleteProc, /* 93 */ + TclProcInterpProc, /* 94 */ + TclpStat, /* 95 */ + TclRenameCommand, /* 96 */ + TclResetShadowedCmdRefs, /* 97 */ + TclServiceIdle, /* 98 */ + TclSetElementOfIndexedArray, /* 99 */ + TclSetIndexedScalar, /* 100 */ + NULL, /* 101 */ + TclSetupEnv, /* 102 */ + TclSockGetPort, /* 103 */ + TclSockMinimumBuffers, /* 104 */ + TclStat, /* 105 */ + TclStatDeleteProc, /* 106 */ + TclStatInsertProc, /* 107 */ + TclTeardownNamespace, /* 108 */ + TclUpdateReturnInfo, /* 109 */ + NULL, /* 110 */ + Tcl_AddInterpResolvers, /* 111 */ + Tcl_AppendExportList, /* 112 */ + Tcl_CreateNamespace, /* 113 */ + Tcl_DeleteNamespace, /* 114 */ + Tcl_Export, /* 115 */ + Tcl_FindCommand, /* 116 */ + Tcl_FindNamespace, /* 117 */ + Tcl_GetInterpResolvers, /* 118 */ + Tcl_GetNamespaceResolvers, /* 119 */ + Tcl_FindNamespaceVar, /* 120 */ + Tcl_ForgetImport, /* 121 */ + Tcl_GetCommandFromObj, /* 122 */ + Tcl_GetCommandFullName, /* 123 */ + Tcl_GetCurrentNamespace, /* 124 */ + Tcl_GetGlobalNamespace, /* 125 */ + Tcl_GetVariableFullName, /* 126 */ + Tcl_Import, /* 127 */ + Tcl_PopCallFrame, /* 128 */ + Tcl_PushCallFrame, /* 129 */ + Tcl_RemoveInterpResolvers, /* 130 */ + Tcl_SetNamespaceResolvers, /* 131 */ + NULL, /* 132 */ + NULL, /* 133 */ + NULL, /* 134 */ + NULL, /* 135 */ NULL, /* 136 */ NULL, /* 137 */ NULL, /* 138 */ NULL, /* 139 */ NULL, /* 140 */ NULL, /* 141 */ - NULL, /* 142 */ - NULL, /* 143 */ - NULL, /* 144 */ - NULL, /* 145 */ - TclpHasSockets, /* 146 */ - TclpGetDate, /* 147 */ - TclpStrftime, /* 148 */ - TclpCheckStackSpace, /* 149 */ - Tcl_GetString, /* 150 */ + TclpHasSockets, /* 142 */ + TclpGetDate, /* 143 */ + TclpStrftime, /* 144 */ + TclpCheckStackSpace, /* 145 */ + Tcl_GetString, /* 146 */ + TclpChdir, /* 147 */ + TclGetEnv, /* 148 */ + TclpLoadFile, /* 149 */ + TclLooksLikeInt, /* 150 */ }; TclIntStubs *tclIntStubsPtr = &tclIntStubs; @@ -553,19 +553,19 @@ TclIntPlatStubs tclIntPlatStubs = { TclWinNToHS, /* 6 */ TclWinSetSockOpt, /* 7 */ TclpGetPid, /* 8 */ - NULL, /* 9 */ - TclWinGetPlatformId, /* 10 */ - TclWinInit, /* 11 */ - TclWinSynchSpawn, /* 12 */ - TclGetAndDetachPids, /* 13 */ - TclpCloseFile, /* 14 */ - TclpCreateCommandChannel, /* 15 */ - TclpCreatePipe, /* 16 */ - TclpCreateProcess, /* 17 */ - NULL, /* 18 */ - NULL, /* 19 */ - TclpMakeFile, /* 20 */ - TclpOpenFile, /* 21 */ + TclWinGetPlatformId, /* 9 */ + TclWinSynchSpawn, /* 10 */ + TclGetAndDetachPids, /* 11 */ + TclpCloseFile, /* 12 */ + TclpCreateCommandChannel, /* 13 */ + TclpCreatePipe, /* 14 */ + TclpCreateProcess, /* 15 */ + NULL, /* 16 */ + NULL, /* 17 */ + TclpMakeFile, /* 18 */ + TclpOpenFile, /* 19 */ + TclpCreateTempFile, /* 20 */ + TclpGetTZName, /* 21 */ #endif /* __WIN32__ */ #if !defined(__WIN32__) && !defined(MAC_TCL) TclGetAndDetachPids, /* 0 */ @@ -573,10 +573,11 @@ TclIntPlatStubs tclIntPlatStubs = { TclpCreateCommandChannel, /* 2 */ TclpCreatePipe, /* 3 */ TclpCreateProcess, /* 4 */ - TclpCreateTempFile, /* 5 */ + NULL, /* 5 */ TclpMakeFile, /* 6 */ TclpOpenFile, /* 7 */ TclUnixWaitForFile, /* 8 */ + TclpCreateTempFile, /* 9 */ #endif /* UNIX */ #ifdef MAC_TCL TclpSysAlloc, /* 0 */ diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 527bd3c..8e781b1 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -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: tclThreadTest.c,v 1.1.2.5 1998/12/12 01:37:03 lfb Exp $ + * RCS: @(#) $Id: tclThreadTest.c,v 1.1.2.5.2.1 1999/03/09 02:37:18 stanton Exp $ */ #include "tclInt.h" @@ -368,7 +368,7 @@ TclCreateThread(interp, script) * Wait for the thread to start because it is using something on our stack! */ - TclpConditionWait(&ctrl.condWait, &threadMutex, NULL); + Tcl_ConditionWait(&ctrl.condWait, &threadMutex, NULL); Tcl_MutexUnlock(&threadMutex); TclFinalizeCondition(&ctrl.condWait); Tcl_SetObjResult(interp, Tcl_NewIntObj((int)id)); @@ -438,7 +438,7 @@ NewThread(clientData) * Notify the parent we are alive. */ - TclpConditionNotify(&ctrlPtr->condWait); + Tcl_ConditionNotify(&ctrlPtr->condWait); Tcl_MutexUnlock(&threadMutex); /* @@ -727,7 +727,7 @@ TclThreadSend(interp, id, script, wait) Tcl_ResetResult(interp); Tcl_MutexLock(&threadMutex); if (resultPtr->result == NULL) { - TclpConditionWait(&resultPtr->done, &threadMutex, NULL); + Tcl_ConditionWait(&resultPtr->done, &threadMutex, NULL); } Tcl_MutexUnlock(&threadMutex); if (resultPtr->code != TCL_OK) { @@ -820,7 +820,7 @@ ThreadEventProc(evPtr, mask) resultPtr->errorInfo = ckalloc(strlen(errorInfo) + 1); strcpy(resultPtr->errorInfo, errorInfo); } - TclpConditionNotify(&resultPtr->done); + Tcl_ConditionNotify(&resultPtr->done); Tcl_MutexUnlock(&threadMutex); } if (interp != NULL) { @@ -878,7 +878,7 @@ ThreadExitProc(dummy) */ resultPtr->result = "target thread died"; resultPtr->code = TCL_ERROR; - TclpConditionNotify(&resultPtr->done); + Tcl_ConditionNotify(&resultPtr->done); } } Tcl_MutexUnlock(&threadMutex); diff --git a/mac/tclMacThrd.c b/mac/tclMacThrd.c index da30072..7790e5f 100644 --- a/mac/tclMacThrd.c +++ b/mac/tclMacThrd.c @@ -706,7 +706,7 @@ RemoveThreadDataStruct(keyVal) /* *---------------------------------------------------------------------- * - * TclpConditionWait -- + * Tcl_ConditionWait -- * * This procedure is invoked to wait on a condition variable. * On the Mac, mutexes are no-ops, and we just yield. After @@ -724,7 +724,7 @@ RemoveThreadDataStruct(keyVal) */ void -TclpConditionWait(condPtr, mutexPtr, timePtr) +Tcl_ConditionWait(condPtr, mutexPtr, timePtr) Tcl_Condition *condPtr; /* Really (pthread_cond_t **) */ Tcl_Mutex *mutexPtr; /* Really (pthread_mutex_t **) */ Tcl_Time *timePtr; /* Timeout on waiting period */ @@ -737,7 +737,7 @@ TclpConditionWait(condPtr, mutexPtr, timePtr) /* *---------------------------------------------------------------------- * - * TclpConditionNotify -- + * Tcl_ConditionNotify -- * * This procedure is invoked to signal a condition variable. * @@ -754,7 +754,7 @@ TclpConditionWait(condPtr, mutexPtr, timePtr) */ void -TclpConditionNotify(condPtr) +Tcl_ConditionNotify(condPtr) Tcl_Condition *condPtr; { if (TclMacHaveThreads()) { diff --git a/unix/Makefile.in b/unix/Makefile.in index d253589..983b31e 100644 --- a/unix/Makefile.in +++ b/unix/Makefile.in @@ -5,7 +5,7 @@ # "autoconf" program (constructs like "@foo@" will get replaced in the # actual Makefile. # -# RCS: @(#) $Id: Makefile.in,v 1.1.2.13.2.1 1999/03/08 20:14:15 stanton Exp $ +# RCS: @(#) $Id: Makefile.in,v 1.1.2.13.2.2 1999/03/09 02:37:19 stanton Exp $ # Current Tcl version; used in various names. @@ -259,7 +259,7 @@ TCLTEST_OBJS = tclTestInit.o tclTest.o tclTestObj.o tclTestProcBodyObj.o \ XTTEST_OBJS = tclTest.o tclTestObj.o tclUnixTest.o tclXtNotify.o \ tclXtTest.o xtTestInit.o -GENERIC_OBJS = regcomp.o regexec.o regfree.o regerror.o \ +GENERIC_OBJS = regcomp.o regexec.o regfree.o regerror.o tclAlloc.o \ tclAsync.o tclBasic.o tclBinary.o \ tclCkalloc.o tclClock.o tclCmdAH.o tclCmdIL.o tclCmdMZ.o \ tclCompCmds.o tclCompExpr.o tclCompile.o tclDate.o tclEncoding.o \ diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c index 5862156..3104504 100644 --- a/unix/tclUnixNotfy.c +++ b/unix/tclUnixNotfy.c @@ -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: tclUnixNotfy.c,v 1.1.2.6 1998/12/12 01:37:04 lfb Exp $ + * RCS: @(#) $Id: tclUnixNotfy.c,v 1.1.2.6.2.1 1999/03/09 02:37:19 stanton Exp $ */ #include "tclInt.h" @@ -216,7 +216,7 @@ Tcl_InitNotifier() */ while (triggerPipe < 0) { - TclpConditionWait(¬ifierCV, ¬ifierMutex, NULL); + Tcl_ConditionWait(¬ifierCV, ¬ifierMutex, NULL); } Tcl_MutexUnlock(¬ifierMutex); @@ -262,7 +262,7 @@ Tcl_FinalizeNotifier(clientData) panic("Tcl_FinalizeNotifier: notifier pipe not initialized"); } close(triggerPipe); - TclpConditionWait(¬ifierCV, ¬ifierMutex, NULL); + Tcl_ConditionWait(¬ifierCV, ¬ifierMutex, NULL); } /* @@ -304,7 +304,7 @@ Tcl_AlertNotifier(clientData) ThreadSpecificData *tsdPtr = (ThreadSpecificData *) clientData; Tcl_MutexLock(¬ifierMutex); tsdPtr->eventReady = 1; - TclpConditionNotify(&tsdPtr->waitCV); + Tcl_ConditionNotify(&tsdPtr->waitCV); Tcl_MutexUnlock(¬ifierMutex); #endif } @@ -604,7 +604,6 @@ Tcl_WaitForEvent(timePtr) struct timeval timeout, *timeoutPtr; int bit, index, mask; #ifdef TCL_THREADS - Tcl_Time polltime; int waitForFiles; #else int numFound; @@ -682,7 +681,7 @@ Tcl_WaitForEvent(timePtr) memset((VOID *) tsdPtr->readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask)); if (!tsdPtr->eventReady) { - TclpConditionWait(&tsdPtr->waitCV, ¬ifierMutex, timePtr); + Tcl_ConditionWait(&tsdPtr->waitCV, ¬ifierMutex, timePtr); } tsdPtr->eventReady = 0; @@ -838,7 +837,7 @@ NotifierThreadProc(clientData) * Signal any threads that are waiting. */ - TclpConditionNotify(¬ifierCV); + Tcl_ConditionNotify(¬ifierCV); Tcl_MutexUnlock(¬ifierMutex); /* @@ -908,7 +907,7 @@ NotifierThreadProc(clientData) } if (found || (tsdPtr->pollState & POLL_DONE)) { tsdPtr->eventReady = 1; - TclpConditionNotify(&tsdPtr->waitCV); + Tcl_ConditionNotify(&tsdPtr->waitCV); if (tsdPtr->onList) { /* * Remove the ThreadSpecificData structure of this thread @@ -957,7 +956,7 @@ NotifierThreadProc(clientData) close(receivePipe); Tcl_MutexLock(¬ifierMutex); triggerPipe = -1; - TclpConditionNotify(¬ifierCV); + Tcl_ConditionNotify(¬ifierCV); Tcl_MutexUnlock(¬ifierMutex); } #endif diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index 3032430..86aba51 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -590,7 +590,7 @@ TclpFinalizeThreadDataKey(keyPtr) /* *---------------------------------------------------------------------- * - * TclpConditionWait -- + * Tcl_ConditionWait -- * * This procedure is invoked to wait on a condition variable. * The mutex is automically released as part of the wait, and @@ -610,7 +610,7 @@ TclpFinalizeThreadDataKey(keyPtr) */ void -TclpConditionWait(condPtr, mutexPtr, timePtr) +Tcl_ConditionWait(condPtr, mutexPtr, timePtr) Tcl_Condition *condPtr; /* Really (pthread_cond_t **) */ Tcl_Mutex *mutexPtr; /* Really (pthread_mutex_t **) */ Tcl_Time *timePtr; /* Timeout on waiting period */ @@ -649,7 +649,7 @@ TclpConditionWait(condPtr, mutexPtr, timePtr) /* *---------------------------------------------------------------------- * - * TclpConditionNotify -- + * Tcl_ConditionNotify -- * * This procedure is invoked to signal a condition variable. * @@ -666,7 +666,7 @@ TclpConditionWait(condPtr, mutexPtr, timePtr) */ void -TclpConditionNotify(condPtr) +Tcl_ConditionNotify(condPtr) Tcl_Condition *condPtr; { pthread_cond_t *pcondPtr = *((pthread_cond_t **)condPtr); -- cgit v0.12