summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--ChangeLog21
-rw-r--r--generic/regc_color.c3
-rw-r--r--generic/regcomp.c2
-rw-r--r--generic/tcl.h27
-rw-r--r--generic/tclCmdAH.c10
-rw-r--r--generic/tclCmdIL.c5
-rw-r--r--generic/tclIOCmd.c4
-rw-r--r--generic/tclInt.decls328
-rw-r--r--generic/tclInt.h106
-rw-r--r--generic/tclIntDecls.h766
-rw-r--r--generic/tclIntPlatDecls.h112
-rw-r--r--generic/tclIntPlatStubs.c67
-rw-r--r--generic/tclIntStubs.c294
-rw-r--r--generic/tclParse.c4
-rw-r--r--generic/tclStringObj.c3
-rw-r--r--generic/tclStubInit.c275
-rw-r--r--generic/tclThreadTest.c12
-rw-r--r--mac/tclMacThrd.c8
-rw-r--r--unix/Makefile.in4
-rw-r--r--unix/tclUnixNotfy.c17
-rw-r--r--unix/tclUnixThrd.c8
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 <stanton@GASPODE>
+
+
+ * 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 <redman@scriptics.com>
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(&notifierCV, &notifierMutex, NULL);
+ Tcl_ConditionWait(&notifierCV, &notifierMutex, NULL);
}
Tcl_MutexUnlock(&notifierMutex);
@@ -262,7 +262,7 @@ Tcl_FinalizeNotifier(clientData)
panic("Tcl_FinalizeNotifier: notifier pipe not initialized");
}
close(triggerPipe);
- TclpConditionWait(&notifierCV, &notifierMutex, NULL);
+ Tcl_ConditionWait(&notifierCV, &notifierMutex, NULL);
}
/*
@@ -304,7 +304,7 @@ Tcl_AlertNotifier(clientData)
ThreadSpecificData *tsdPtr = (ThreadSpecificData *) clientData;
Tcl_MutexLock(&notifierMutex);
tsdPtr->eventReady = 1;
- TclpConditionNotify(&tsdPtr->waitCV);
+ Tcl_ConditionNotify(&tsdPtr->waitCV);
Tcl_MutexUnlock(&notifierMutex);
#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, &notifierMutex, timePtr);
+ Tcl_ConditionWait(&tsdPtr->waitCV, &notifierMutex, timePtr);
}
tsdPtr->eventReady = 0;
@@ -838,7 +837,7 @@ NotifierThreadProc(clientData)
* Signal any threads that are waiting.
*/
- TclpConditionNotify(&notifierCV);
+ Tcl_ConditionNotify(&notifierCV);
Tcl_MutexUnlock(&notifierMutex);
/*
@@ -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(&notifierMutex);
triggerPipe = -1;
- TclpConditionNotify(&notifierCV);
+ Tcl_ConditionNotify(&notifierCV);
Tcl_MutexUnlock(&notifierMutex);
}
#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);
generated by cgit v0.12 at 2024-07-04 21:54:24 (GMT)