summaryrefslogtreecommitdiffstats
path: root/generic/tclIntStubs.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclIntStubs.c')
-rw-r--r--generic/tclIntStubs.c376
1 files changed, 114 insertions, 262 deletions
diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c
index 224bedb..edf48a3 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 1999/03/04 01:01:58 stanton Exp $
+ * RCS: @(#) $Id: tclIntStubs.c,v 1.3 1999/03/10 05:52:49 stanton Exp $
*/
#include "tclInt.h"
@@ -239,27 +239,6 @@ TclFileRenameCmd(interp, argc, argv)
}
/* Slot 22 */
-void
-TclFinalizeCompExecEnv()
-{
- (tclIntStubsPtr->tclFinalizeCompExecEnv)();
-}
-
-/* Slot 23 */
-void
-TclFinalizeEnvironment()
-{
- (tclIntStubsPtr->tclFinalizeEnvironment)();
-}
-
-/* Slot 24 */
-void
-TclFinalizeExecEnv()
-{
- (tclIntStubsPtr->tclFinalizeExecEnv)();
-}
-
-/* Slot 25 */
int
TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr)
Tcl_Interp * interp;
@@ -273,7 +252,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;
@@ -282,7 +261,7 @@ TclFindProc(iPtr, procName)
return (tclIntStubsPtr->tclFindProc)(iPtr, procName);
}
-/* Slot 27 */
+/* Slot 24 */
int
TclFormatInt(buffer, n)
char * buffer;
@@ -291,7 +270,7 @@ TclFormatInt(buffer, n)
return (tclIntStubsPtr->tclFormatInt)(buffer, n);
}
-/* Slot 28 */
+/* Slot 25 */
void
TclFreePackageInfo(iPtr)
Interp * iPtr;
@@ -299,7 +278,7 @@ TclFreePackageInfo(iPtr)
(tclIntStubsPtr->tclFreePackageInfo)(iPtr);
}
-/* Slot 29 */
+/* Slot 26 */
char *
TclGetCwd(interp)
Tcl_Interp * interp;
@@ -307,7 +286,7 @@ TclGetCwd(interp)
return (tclIntStubsPtr->tclGetCwd)(interp);
}
-/* Slot 30 */
+/* Slot 27 */
int
TclGetDate(p, now, zone, timePtr)
char * p;
@@ -318,7 +297,7 @@ TclGetDate(p, now, zone, timePtr)
return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr);
}
-/* Slot 31 */
+/* Slot 28 */
Tcl_Channel
TclGetDefaultStdChannel(type)
int type;
@@ -326,7 +305,7 @@ TclGetDefaultStdChannel(type)
return (tclIntStubsPtr->tclGetDefaultStdChannel)(type);
}
-/* Slot 32 */
+/* Slot 29 */
Tcl_Obj *
TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
Tcl_Interp * interp;
@@ -337,7 +316,7 @@ TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg);
}
-/* Slot 33 */
+/* Slot 30 */
char *
TclGetEnv(name)
CONST char * name;
@@ -345,7 +324,7 @@ TclGetEnv(name)
return (tclIntStubsPtr->tclGetEnv)(name);
}
-/* Slot 34 */
+/* Slot 31 */
char *
TclGetExtension(name)
char * name;
@@ -353,7 +332,7 @@ TclGetExtension(name)
return (tclIntStubsPtr->tclGetExtension)(name);
}
-/* Slot 35 */
+/* Slot 32 */
int
TclGetFrame(interp, string, framePtrPtr)
Tcl_Interp * interp;
@@ -363,14 +342,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;
@@ -381,7 +360,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;
@@ -391,7 +370,7 @@ TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg);
}
-/* Slot 39 */
+/* Slot 36 */
int
TclGetLong(interp, string, longPtr)
Tcl_Interp * interp;
@@ -401,7 +380,7 @@ TclGetLong(interp, string, longPtr)
return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr);
}
-/* Slot 40 */
+/* Slot 37 */
int
TclGetLoadedPackages(interp, targetName)
Tcl_Interp * interp;
@@ -410,7 +389,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;
@@ -425,14 +404,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;
@@ -442,7 +421,7 @@ TclGetOpenMode(interp, string, seekFlagPtr)
return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr);
}
-/* Slot 44 */
+/* Slot 41 */
Tcl_Command
TclGetOriginalCommand(command)
Tcl_Command command;
@@ -450,7 +429,7 @@ TclGetOriginalCommand(command)
return (tclIntStubsPtr->tclGetOriginalCommand)(command);
}
-/* Slot 45 */
+/* Slot 42 */
char *
TclGetUserHome(name, bufferPtr)
char * name;
@@ -459,7 +438,7 @@ TclGetUserHome(name, bufferPtr)
return (tclIntStubsPtr->tclGetUserHome)(name, bufferPtr);
}
-/* Slot 46 */
+/* Slot 43 */
int
TclGlobalInvoke(interp, argc, argv, flags)
Tcl_Interp * interp;
@@ -470,7 +449,7 @@ TclGlobalInvoke(interp, argc, argv, flags)
return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags);
}
-/* Slot 47 */
+/* Slot 44 */
int
TclGuessPackageName(fileName, bufPtr)
char * fileName;
@@ -479,7 +458,7 @@ TclGuessPackageName(fileName, bufPtr)
return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr);
}
-/* Slot 48 */
+/* Slot 45 */
int
TclHideUnsafeCommands(interp)
Tcl_Interp * interp;
@@ -487,14 +466,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;
@@ -505,7 +484,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;
@@ -515,7 +494,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;
@@ -527,7 +506,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;
@@ -537,14 +516,7 @@ TclInitCompiledLocals(interp, framePtr, nsPtr)
(tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr);
}
-/* Slot 54 */
-void
-TclInitNamespaces()
-{
- (tclIntStubsPtr->tclInitNamespaces)();
-}
-
-/* Slot 55 */
+/* Slot 51 */
int
TclInterpInit(interp)
Tcl_Interp * interp;
@@ -552,7 +524,7 @@ TclInterpInit(interp)
return (tclIntStubsPtr->tclInterpInit)(interp);
}
-/* Slot 56 */
+/* Slot 52 */
int
TclInvoke(interp, argc, argv, flags)
Tcl_Interp * interp;
@@ -563,7 +535,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;
@@ -574,7 +546,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;
@@ -585,7 +557,7 @@ TclInvokeStringCommand(clientData, interp, objc, objv)
return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv);
}
-/* Slot 59 */
+/* Slot 55 */
Proc *
TclIsProc(cmdPtr)
Command * cmdPtr;
@@ -593,7 +565,7 @@ TclIsProc(cmdPtr)
return (tclIntStubsPtr->tclIsProc)(cmdPtr);
}
-/* Slot 60 */
+/* Slot 56 */
int
TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
Tcl_Interp * interp;
@@ -606,7 +578,7 @@ TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
return (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr);
}
-/* Slot 61 */
+/* Slot 57 */
int
TclLooksLikeInt(p)
char * p;
@@ -614,7 +586,7 @@ TclLooksLikeInt(p)
return (tclIntStubsPtr->tclLooksLikeInt)(p);
}
-/* Slot 62 */
+/* Slot 58 */
Var *
TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr)
Tcl_Interp * interp;
@@ -629,7 +601,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
TclMatchFiles(interp, separators, dirPtr, pattern, tail)
Tcl_Interp * interp;
@@ -641,7 +613,7 @@ TclMatchFiles(interp, separators, dirPtr, pattern, tail)
return (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail);
}
-/* Slot 64 */
+/* Slot 60 */
int
TclNeedSpace(start, end)
char * start;
@@ -650,7 +622,7 @@ TclNeedSpace(start, end)
return (tclIntStubsPtr->tclNeedSpace)(start, end);
}
-/* Slot 65 */
+/* Slot 61 */
Tcl_Obj *
TclNewProcBodyObj(procPtr)
Proc * procPtr;
@@ -658,7 +630,7 @@ TclNewProcBodyObj(procPtr)
return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr);
}
-/* Slot 66 */
+/* Slot 62 */
int
TclObjCommandComplete(cmdPtr)
Tcl_Obj * cmdPtr;
@@ -666,7 +638,7 @@ TclObjCommandComplete(cmdPtr)
return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr);
}
-/* Slot 67 */
+/* Slot 63 */
int
TclObjInterpProc(clientData, interp, objc, objv)
ClientData clientData;
@@ -677,7 +649,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;
@@ -688,7 +660,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;
@@ -699,7 +671,7 @@ TclObjInvokeGlobal(interp, objc, objv, flags)
return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags);
}
-/* Slot 70 */
+/* Slot 66 */
int
TclOpenFileChannelDeleteProc(proc)
TclOpenFileChannelProc_ * proc;
@@ -707,7 +679,7 @@ TclOpenFileChannelDeleteProc(proc)
return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc);
}
-/* Slot 71 */
+/* Slot 67 */
int
TclOpenFileChannelInsertProc(proc)
TclOpenFileChannelProc_ * proc;
@@ -715,7 +687,7 @@ TclOpenFileChannelInsertProc(proc)
return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc);
}
-/* Slot 72 */
+/* Slot 68 */
int
TclpAccess(path, mode)
CONST char * path;
@@ -724,7 +696,7 @@ TclpAccess(path, mode)
return (tclIntStubsPtr->tclpAccess)(path, mode);
}
-/* Slot 73 */
+/* Slot 69 */
char *
TclpAlloc(size)
unsigned int size;
@@ -732,7 +704,7 @@ TclpAlloc(size)
return (tclIntStubsPtr->tclpAlloc)(size);
}
-/* Slot 74 */
+/* Slot 70 */
int
TclpCopyFile(source, dest)
char * source;
@@ -741,7 +713,7 @@ TclpCopyFile(source, dest)
return (tclIntStubsPtr->tclpCopyFile)(source, dest);
}
-/* Slot 75 */
+/* Slot 71 */
int
TclpCopyDirectory(source, dest, errorPtr)
char * source;
@@ -751,7 +723,7 @@ TclpCopyDirectory(source, dest, errorPtr)
return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr);
}
-/* Slot 76 */
+/* Slot 72 */
int
TclpCreateDirectory(path)
char * path;
@@ -759,7 +731,7 @@ TclpCreateDirectory(path)
return (tclIntStubsPtr->tclpCreateDirectory)(path);
}
-/* Slot 77 */
+/* Slot 73 */
int
TclpDeleteFile(path)
char * path;
@@ -767,7 +739,7 @@ TclpDeleteFile(path)
return (tclIntStubsPtr->tclpDeleteFile)(path);
}
-/* Slot 78 */
+/* Slot 74 */
void
TclpFree(ptr)
char * ptr;
@@ -775,21 +747,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;
@@ -797,7 +769,7 @@ TclpGetTime(time)
(tclIntStubsPtr->tclpGetTime)(time);
}
-/* Slot 82 */
+/* Slot 78 */
int
TclpGetTimeZone(time)
unsigned long time;
@@ -805,7 +777,7 @@ TclpGetTimeZone(time)
return (tclIntStubsPtr->tclpGetTimeZone)(time);
}
-/* Slot 83 */
+/* Slot 79 */
int
TclpListVolumes(interp)
Tcl_Interp * interp;
@@ -813,7 +785,7 @@ TclpListVolumes(interp)
return (tclIntStubsPtr->tclpListVolumes)(interp);
}
-/* Slot 84 */
+/* Slot 80 */
Tcl_Channel
TclpOpenFileChannel(interp, fileName, modeString, permissions)
Tcl_Interp * interp;
@@ -824,7 +796,7 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions)
return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions);
}
-/* Slot 85 */
+/* Slot 81 */
char *
TclpRealloc(ptr, size)
char * ptr;
@@ -833,7 +805,7 @@ TclpRealloc(ptr, size)
return (tclIntStubsPtr->tclpRealloc)(ptr, size);
}
-/* Slot 86 */
+/* Slot 82 */
int
TclpRemoveDirectory(path, recursive, errorPtr)
char * path;
@@ -843,7 +815,7 @@ TclpRemoveDirectory(path, recursive, errorPtr)
return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr);
}
-/* Slot 87 */
+/* Slot 83 */
int
TclpRenameFile(source, dest)
char * source;
@@ -852,7 +824,7 @@ TclpRenameFile(source, dest)
return (tclIntStubsPtr->tclpRenameFile)(source, dest);
}
-/* Slot 88 */
+/* Slot 84 */
int
TclParseBraces(interp, string, termPtr, pvPtr)
Tcl_Interp * interp;
@@ -863,7 +835,7 @@ TclParseBraces(interp, string, termPtr, pvPtr)
return (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr);
}
-/* Slot 89 */
+/* Slot 85 */
int
TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
Tcl_Interp * interp;
@@ -875,7 +847,7 @@ TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
return (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr);
}
-/* Slot 90 */
+/* Slot 86 */
int
TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
Tcl_Interp * interp;
@@ -888,7 +860,7 @@ TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
return (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr);
}
-/* Slot 91 */
+/* Slot 87 */
void
TclPlatformInit(interp)
Tcl_Interp * interp;
@@ -896,7 +868,7 @@ TclPlatformInit(interp)
(tclIntStubsPtr->tclPlatformInit)(interp);
}
-/* Slot 92 */
+/* Slot 88 */
char *
TclPrecTraceProc(clientData, interp, name1, name2, flags)
ClientData clientData;
@@ -908,7 +880,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;
@@ -918,7 +890,7 @@ TclPreventAliasLoop(interp, cmdInterp, cmd)
return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd);
}
-/* Slot 94 */
+/* Slot 90 */
void
TclPrintByteCodeObj(interp, objPtr)
Tcl_Interp * interp;
@@ -927,7 +899,7 @@ TclPrintByteCodeObj(interp, objPtr)
(tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr);
}
-/* Slot 95 */
+/* Slot 91 */
void
TclProcCleanupProc(procPtr)
Proc * procPtr;
@@ -935,7 +907,7 @@ TclProcCleanupProc(procPtr)
(tclIntStubsPtr->tclProcCleanupProc)(procPtr);
}
-/* Slot 96 */
+/* Slot 92 */
int
TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
Tcl_Interp * interp;
@@ -948,7 +920,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;
@@ -956,7 +928,7 @@ TclProcDeleteProc(clientData)
(tclIntStubsPtr->tclProcDeleteProc)(clientData);
}
-/* Slot 98 */
+/* Slot 94 */
int
TclProcInterpProc(clientData, interp, argc, argv)
ClientData clientData;
@@ -967,7 +939,7 @@ TclProcInterpProc(clientData, interp, argc, argv)
return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv);
}
-/* Slot 99 */
+/* Slot 95 */
int
TclpStat(path, buf)
CONST char * path;
@@ -976,7 +948,7 @@ TclpStat(path, buf)
return (tclIntStubsPtr->tclpStat)(path, buf);
}
-/* Slot 100 */
+/* Slot 96 */
int
TclRenameCommand(interp, oldName, newName)
Tcl_Interp * interp;
@@ -986,7 +958,7 @@ TclRenameCommand(interp, oldName, newName)
return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName);
}
-/* Slot 101 */
+/* Slot 97 */
void
TclResetShadowedCmdRefs(interp, newCmdPtr)
Tcl_Interp * interp;
@@ -995,14 +967,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;
@@ -1014,7 +986,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;
@@ -1025,7 +997,7 @@ TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg);
}
-/* Slot 105 */
+/* Slot 101 */
char *
TclSetPreInitScript(string)
char * string;
@@ -1033,7 +1005,7 @@ TclSetPreInitScript(string)
return (tclIntStubsPtr->tclSetPreInitScript)(string);
}
-/* Slot 106 */
+/* Slot 102 */
void
TclSetupEnv(interp)
Tcl_Interp * interp;
@@ -1041,7 +1013,7 @@ TclSetupEnv(interp)
(tclIntStubsPtr->tclSetupEnv)(interp);
}
-/* Slot 107 */
+/* Slot 103 */
int
TclSockGetPort(interp, string, proto, portPtr)
Tcl_Interp * interp;
@@ -1052,7 +1024,7 @@ TclSockGetPort(interp, string, proto, portPtr)
return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr);
}
-/* Slot 108 */
+/* Slot 104 */
int
TclSockMinimumBuffers(sock, size)
int sock;
@@ -1061,7 +1033,7 @@ TclSockMinimumBuffers(sock, size)
return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size);
}
-/* Slot 109 */
+/* Slot 105 */
int
TclStat(path, buf)
CONST char * path;
@@ -1070,7 +1042,7 @@ TclStat(path, buf)
return (tclIntStubsPtr->tclStat)(path, buf);
}
-/* Slot 110 */
+/* Slot 106 */
int
TclStatDeleteProc(proc)
TclStatProc_ * proc;
@@ -1078,7 +1050,7 @@ TclStatDeleteProc(proc)
return (tclIntStubsPtr->tclStatDeleteProc)(proc);
}
-/* Slot 111 */
+/* Slot 107 */
int
TclStatInsertProc(proc)
TclStatProc_ * proc;
@@ -1086,7 +1058,7 @@ TclStatInsertProc(proc)
return (tclIntStubsPtr->tclStatInsertProc)(proc);
}
-/* Slot 112 */
+/* Slot 108 */
void
TclTeardownNamespace(nsPtr)
Namespace * nsPtr;
@@ -1094,7 +1066,7 @@ TclTeardownNamespace(nsPtr)
(tclIntStubsPtr->tclTeardownNamespace)(nsPtr);
}
-/* Slot 113 */
+/* Slot 109 */
int
TclUpdateReturnInfo(iPtr)
Interp * iPtr;
@@ -1102,7 +1074,7 @@ TclUpdateReturnInfo(iPtr)
return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr);
}
-/* Slot 114 */
+/* Slot 110 */
char *
TclWordEnd(start, lastChar, nested, semiPtr)
char * start;
@@ -1113,7 +1085,7 @@ TclWordEnd(start, lastChar, nested, semiPtr)
return (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr);
}
-/* Slot 115 */
+/* Slot 111 */
void
Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
Tcl_Interp * interp;
@@ -1125,7 +1097,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;
@@ -1135,7 +1107,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;
@@ -1146,7 +1118,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;
@@ -1154,7 +1126,7 @@ Tcl_DeleteNamespace(nsPtr)
(tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr);
}
-/* Slot 119 */
+/* Slot 115 */
int
Tcl_Export(interp, nsPtr, pattern, resetListFirst)
Tcl_Interp * interp;
@@ -1165,7 +1137,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;
@@ -1176,7 +1148,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;
@@ -1187,7 +1159,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;
@@ -1197,7 +1169,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;
@@ -1206,7 +1178,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;
@@ -1217,7 +1189,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;
@@ -1227,7 +1199,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;
@@ -1236,7 +1208,7 @@ Tcl_GetCommandFromObj(interp, objPtr)
return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr);
}
-/* Slot 127 */
+/* Slot 123 */
void
Tcl_GetCommandFullName(interp, command, objPtr)
Tcl_Interp * interp;
@@ -1246,7 +1218,7 @@ Tcl_GetCommandFullName(interp, command, objPtr)
(tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr);
}
-/* Slot 128 */
+/* Slot 124 */
Tcl_Namespace *
Tcl_GetCurrentNamespace(interp)
Tcl_Interp * interp;
@@ -1254,7 +1226,7 @@ Tcl_GetCurrentNamespace(interp)
return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp);
}
-/* Slot 129 */
+/* Slot 125 */
Tcl_Namespace *
Tcl_GetGlobalNamespace(interp)
Tcl_Interp * interp;
@@ -1262,7 +1234,7 @@ Tcl_GetGlobalNamespace(interp)
return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp);
}
-/* Slot 130 */
+/* Slot 126 */
void
Tcl_GetVariableFullName(interp, variable, objPtr)
Tcl_Interp * interp;
@@ -1272,7 +1244,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;
@@ -1283,7 +1255,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;
@@ -1291,7 +1263,7 @@ Tcl_PopCallFrame(interp)
(tclIntStubsPtr->tcl_PopCallFrame)(interp);
}
-/* Slot 133 */
+/* Slot 129 */
int
Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
Tcl_Interp* interp;
@@ -1302,7 +1274,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;
@@ -1311,7 +1283,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;
@@ -1322,127 +1294,7 @@ Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
(tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc);
}
-/* Slot 136 */
-int
-TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 137 */
-int
-TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 138 */
-int
-TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 139 */
-int
-TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 140 */
-int
-TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 141 */
-int
-TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 142 */
-int
-TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 143 */
-int
-TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 144 */
-int
-TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 145 */
-int
-TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
- Tcl_Interp * interp;
- char * string;
- char * lastChar;
- int compileFlags;
- struct CompileEnv * compileEnvPtr;
-{
- return (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 146 */
+/* Slot 132 */
int
TclHasSockets(interp)
Tcl_Interp * interp;
@@ -1450,7 +1302,7 @@ TclHasSockets(interp)
return (tclIntStubsPtr->tclHasSockets)(interp);
}
-/* Slot 147 */
+/* Slot 133 */
struct tm *
TclpGetDate(time, useGMT)
TclpTime_t time;
@@ -1459,7 +1311,7 @@ TclpGetDate(time, useGMT)
return (tclIntStubsPtr->tclpGetDate)(time, useGMT);
}
-/* Slot 148 */
+/* Slot 134 */
size_t
TclStrftime(s, maxsize, format, t)
char * s;
@@ -1470,7 +1322,7 @@ TclStrftime(s, maxsize, format, t)
return (tclIntStubsPtr->tclStrftime)(s, maxsize, format, t);
}
-/* Slot 149 */
+/* Slot 135 */
int
TclpCheckStackSpace()
{