diff options
Diffstat (limited to 'generic/tclIntStubs.c')
| -rw-r--r-- | generic/tclIntStubs.c | 376 |
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() { |