summaryrefslogtreecommitdiffstats
path: root/generic/tclIntStubs.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclIntStubs.c')
-rw-r--r--generic/tclIntStubs.c1529
1 files changed, 1529 insertions, 0 deletions
diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c
new file mode 100644
index 0000000..34ea414
--- /dev/null
+++ b/generic/tclIntStubs.c
@@ -0,0 +1,1529 @@
+/*
+ * tclIntStubs.c --
+ *
+ * This file contains the wrapper functions for the platform independent
+ * unsupported Tcl API.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tclIntStubs.c,v 1.1 1999/03/03 00:38:41 stanton Exp $
+ */
+
+#include "tclInt.h"
+
+/*
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
+ * script. Any modifications to the function declarations below should be made
+ * in the generic/tclInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported stub functions:
+ */
+
+/* Slot 0 */
+int
+TclAccess(path, mode)
+ CONST char * path;
+ int mode;
+{
+ return (tclIntStubsPtr->tclAccess)(path, mode);
+}
+
+/* Slot 1 */
+int
+TclAccessDeleteProc(proc)
+ TclAccessProc_ * proc;
+{
+ return (tclIntStubsPtr->tclAccessDeleteProc)(proc);
+}
+
+/* Slot 2 */
+int
+TclAccessInsertProc(proc)
+ TclAccessProc_ * proc;
+{
+ return (tclIntStubsPtr->tclAccessInsertProc)(proc);
+}
+
+/* Slot 3 */
+void
+TclAllocateFreeObjects()
+{
+ (tclIntStubsPtr->tclAllocateFreeObjects)();
+}
+
+/* Slot 4 */
+int
+TclChdir(interp, dirName)
+ Tcl_Interp * interp;
+ char * dirName;
+{
+ return (tclIntStubsPtr->tclChdir)(interp, dirName);
+}
+
+/* Slot 5 */
+int
+TclCleanupChildren(interp, numPids, pidPtr, errorChan)
+ Tcl_Interp * interp;
+ int numPids;
+ Tcl_Pid * pidPtr;
+ Tcl_Channel errorChan;
+{
+ return (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan);
+}
+
+/* Slot 6 */
+void
+TclCleanupCommand(cmdPtr)
+ Command * cmdPtr;
+{
+ (tclIntStubsPtr->tclCleanupCommand)(cmdPtr);
+}
+
+/* Slot 7 */
+int
+TclCopyAndCollapse(count, src, dst)
+ int count;
+ char * src;
+ char * dst;
+{
+ return (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst);
+}
+
+/* Slot 8 */
+int
+TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr)
+ Tcl_Interp * interp;
+ Tcl_Channel inChan;
+ Tcl_Channel outChan;
+ int toRead;
+ Tcl_Obj * cmdPtr;
+{
+ return (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr);
+}
+
+/* Slot 9 */
+int
+TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+ Tcl_Pid ** pidArrayPtr;
+ TclFile * inPipePtr;
+ TclFile * outPipePtr;
+ TclFile * errFilePtr;
+{
+ return (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr);
+}
+
+/* Slot 10 */
+int
+TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr)
+ Tcl_Interp * interp;
+ Namespace * nsPtr;
+ char * procName;
+ Tcl_Obj * argsPtr;
+ Tcl_Obj * bodyPtr;
+ Proc ** procPtrPtr;
+{
+ return (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr);
+}
+
+/* Slot 11 */
+void
+TclDeleteCompiledLocalVars(iPtr, framePtr)
+ Interp * iPtr;
+ CallFrame * framePtr;
+{
+ (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr);
+}
+
+/* Slot 12 */
+void
+TclDeleteVars(iPtr, tablePtr)
+ Interp * iPtr;
+ Tcl_HashTable * tablePtr;
+{
+ (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr);
+}
+
+/* Slot 13 */
+int
+TclDoGlob(interp, separators, headPtr, tail)
+ Tcl_Interp * interp;
+ char * separators;
+ Tcl_DString * headPtr;
+ char * tail;
+{
+ return (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail);
+}
+
+/* Slot 14 */
+void
+TclDumpMemoryInfo(outFile)
+ FILE * outFile;
+{
+ (tclIntStubsPtr->tclDumpMemoryInfo)(outFile);
+}
+
+/* Slot 15 */
+void
+TclExpandParseValue(pvPtr, needed)
+ ParseValue * pvPtr;
+ int needed;
+{
+ (tclIntStubsPtr->tclExpandParseValue)(pvPtr, needed);
+}
+
+/* Slot 16 */
+void
+TclExprFloatError(interp, value)
+ Tcl_Interp * interp;
+ double value;
+{
+ (tclIntStubsPtr->tclExprFloatError)(interp, value);
+}
+
+/* Slot 17 */
+int
+TclFileAttrsCmd(interp, objc, objv)
+ Tcl_Interp * interp;
+ int objc;
+ Tcl_Obj *CONST objv[];
+{
+ return (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv);
+}
+
+/* Slot 18 */
+int
+TclFileCopyCmd(interp, argc, argv)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+{
+ return (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv);
+}
+
+/* Slot 19 */
+int
+TclFileDeleteCmd(interp, argc, argv)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+{
+ return (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv);
+}
+
+/* Slot 20 */
+int
+TclFileMakeDirsCmd(interp, argc, argv)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+{
+ return (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv);
+}
+
+/* Slot 21 */
+int
+TclFileRenameCmd(interp, argc, argv)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+{
+ return (tclIntStubsPtr->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;
+ char * list;
+ int listLength;
+ char ** elementPtr;
+ char ** nextPtr;
+ int * sizePtr;
+ int * bracePtr;
+{
+ return (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr);
+}
+
+/* Slot 26 */
+Proc *
+TclFindProc(iPtr, procName)
+ Interp * iPtr;
+ char * procName;
+{
+ return (tclIntStubsPtr->tclFindProc)(iPtr, procName);
+}
+
+/* Slot 27 */
+int
+TclFormatInt(buffer, n)
+ char * buffer;
+ long n;
+{
+ return (tclIntStubsPtr->tclFormatInt)(buffer, n);
+}
+
+/* Slot 28 */
+void
+TclFreePackageInfo(iPtr)
+ Interp * iPtr;
+{
+ (tclIntStubsPtr->tclFreePackageInfo)(iPtr);
+}
+
+/* Slot 29 */
+void
+TclGetAndDetachPids(interp, chan)
+ Tcl_Interp * interp;
+ Tcl_Channel chan;
+{
+ (tclIntStubsPtr->tclGetAndDetachPids)(interp, chan);
+}
+
+/* Slot 30 */
+char *
+TclGetCwd(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tclGetCwd)(interp);
+}
+
+/* Slot 31 */
+int
+TclGetDate(p, now, zone, timePtr)
+ char * p;
+ unsigned long now;
+ long zone;
+ unsigned long * timePtr;
+{
+ return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr);
+}
+
+/* Slot 32 */
+Tcl_Channel
+TclGetDefaultStdChannel(type)
+ int type;
+{
+ return (tclIntStubsPtr->tclGetDefaultStdChannel)(type);
+}
+
+/* Slot 33 */
+Tcl_Obj *
+TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
+ Tcl_Interp * interp;
+ int localIndex;
+ Tcl_Obj * elemPtr;
+ int leaveErrorMsg;
+{
+ return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg);
+}
+
+/* Slot 34 */
+char *
+TclGetEnv(name)
+ CONST char * name;
+{
+ return (tclIntStubsPtr->tclGetEnv)(name);
+}
+
+/* Slot 35 */
+char *
+TclGetExtension(name)
+ char * name;
+{
+ return (tclIntStubsPtr->tclGetExtension)(name);
+}
+
+/* Slot 36 */
+int
+TclGetFrame(interp, string, framePtrPtr)
+ Tcl_Interp * interp;
+ char * string;
+ CallFrame ** framePtrPtr;
+{
+ return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr);
+}
+
+/* Slot 37 */
+TclCmdProcType
+TclGetInterpProc()
+{
+ return (tclIntStubsPtr->tclGetInterpProc)();
+}
+
+/* Slot 38 */
+int
+TclGetIntForIndex(interp, objPtr, endValue, indexPtr)
+ Tcl_Interp * interp;
+ Tcl_Obj * objPtr;
+ int endValue;
+ int * indexPtr;
+{
+ return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr);
+}
+
+/* Slot 39 */
+Tcl_Obj *
+TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
+ Tcl_Interp * interp;
+ int localIndex;
+ int leaveErrorMsg;
+{
+ return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg);
+}
+
+/* Slot 40 */
+int
+TclGetLong(interp, string, longPtr)
+ Tcl_Interp * interp;
+ char * string;
+ long * longPtr;
+{
+ return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr);
+}
+
+/* Slot 41 */
+int
+TclGetLoadedPackages(interp, targetName)
+ Tcl_Interp * interp;
+ char * targetName;
+{
+ return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName);
+}
+
+/* Slot 42 */
+int
+TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
+ Tcl_Interp * interp;
+ char * qualName;
+ Namespace * cxtNsPtr;
+ int flags;
+ Namespace ** nsPtrPtr;
+ Namespace ** altNsPtrPtr;
+ Namespace ** actualCxtPtrPtr;
+ char ** simpleNamePtr;
+{
+ return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr);
+}
+
+/* Slot 43 */
+TclObjCmdProcType
+TclGetObjInterpProc()
+{
+ return (tclIntStubsPtr->tclGetObjInterpProc)();
+}
+
+/* Slot 44 */
+int
+TclGetOpenMode(interp, string, seekFlagPtr)
+ Tcl_Interp * interp;
+ char * string;
+ int * seekFlagPtr;
+{
+ return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr);
+}
+
+/* Slot 45 */
+Tcl_Command
+TclGetOriginalCommand(command)
+ Tcl_Command command;
+{
+ return (tclIntStubsPtr->tclGetOriginalCommand)(command);
+}
+
+/* Slot 46 */
+char *
+TclpGetUserHome(name, bufferPtr)
+ char * name;
+ Tcl_DString * bufferPtr;
+{
+ return (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr);
+}
+
+/* Slot 47 */
+int
+TclGlobalInvoke(interp, argc, argv, flags)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+ int flags;
+{
+ return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags);
+}
+
+/* Slot 48 */
+int
+TclGuessPackageName(fileName, bufPtr)
+ char * fileName;
+ Tcl_DString * bufPtr;
+{
+ return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr);
+}
+
+/* Slot 49 */
+int
+TclHasSockets(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tclHasSockets)(interp);
+}
+
+/* Slot 50 */
+int
+TclHideUnsafeCommands(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tclHideUnsafeCommands)(interp);
+}
+
+/* Slot 51 */
+int
+TclInExit()
+{
+ return (tclIntStubsPtr->tclInExit)();
+}
+
+/* Slot 52 */
+Tcl_Obj *
+TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount)
+ Tcl_Interp * interp;
+ int localIndex;
+ Tcl_Obj * elemPtr;
+ long incrAmount;
+{
+ return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount);
+}
+
+/* Slot 53 */
+Tcl_Obj *
+TclIncrIndexedScalar(interp, localIndex, incrAmount)
+ Tcl_Interp * interp;
+ int localIndex;
+ long incrAmount;
+{
+ return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount);
+}
+
+/* Slot 54 */
+Tcl_Obj *
+TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed)
+ Tcl_Interp * interp;
+ Tcl_Obj * part1Ptr;
+ Tcl_Obj * part2Ptr;
+ long incrAmount;
+ int part1NotParsed;
+{
+ return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed);
+}
+
+/* Slot 55 */
+void
+TclInitCompiledLocals(interp, framePtr, nsPtr)
+ Tcl_Interp * interp;
+ CallFrame * framePtr;
+ Namespace * nsPtr;
+{
+ (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr);
+}
+
+/* Slot 56 */
+void
+TclInitNamespaces()
+{
+ (tclIntStubsPtr->tclInitNamespaces)();
+}
+
+/* Slot 57 */
+int
+TclInterpInit(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tclInterpInit)(interp);
+}
+
+/* Slot 58 */
+int
+TclInvoke(interp, argc, argv, flags)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+ int flags;
+{
+ return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags);
+}
+
+/* Slot 59 */
+int
+TclInvokeObjectCommand(clientData, interp, argc, argv)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+{
+ return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv);
+}
+
+/* Slot 60 */
+int
+TclInvokeStringCommand(clientData, interp, objc, objv)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ int objc;
+ Tcl_Obj *CONST objv[];
+{
+ return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv);
+}
+
+/* Slot 61 */
+Proc *
+TclIsProc(cmdPtr)
+ Command * cmdPtr;
+{
+ return (tclIntStubsPtr->tclIsProc)(cmdPtr);
+}
+
+/* Slot 62 */
+int
+TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
+ Tcl_Interp * interp;
+ char * fileName;
+ char * sym1;
+ char * sym2;
+ Tcl_PackageInitProc ** proc1Ptr;
+ Tcl_PackageInitProc ** proc2Ptr;
+{
+ return (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr);
+}
+
+/* Slot 63 */
+int
+TclLooksLikeInt(p)
+ char * p;
+{
+ return (tclIntStubsPtr->tclLooksLikeInt)(p);
+}
+
+/* Slot 64 */
+Var *
+TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr)
+ Tcl_Interp * interp;
+ char * part1;
+ char * part2;
+ int flags;
+ char * msg;
+ int createPart1;
+ int createPart2;
+ Var ** arrayPtrPtr;
+{
+ return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr);
+}
+
+/* Slot 65 */
+int
+TclMatchFiles(interp, separators, dirPtr, pattern, tail)
+ Tcl_Interp * interp;
+ char * separators;
+ Tcl_DString * dirPtr;
+ char * pattern;
+ char * tail;
+{
+ return (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail);
+}
+
+/* Slot 66 */
+int
+TclNeedSpace(start, end)
+ char * start;
+ char * end;
+{
+ return (tclIntStubsPtr->tclNeedSpace)(start, end);
+}
+
+/* Slot 67 */
+Tcl_Obj *
+TclNewProcBodyObj(procPtr)
+ Proc * procPtr;
+{
+ return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr);
+}
+
+/* Slot 68 */
+int
+TclObjCommandComplete(cmdPtr)
+ Tcl_Obj * cmdPtr;
+{
+ return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr);
+}
+
+/* Slot 69 */
+int
+TclObjInterpProc(clientData, interp, objc, objv)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ int objc;
+ Tcl_Obj *CONST objv[];
+{
+ return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv);
+}
+
+/* Slot 70 */
+int
+TclObjInvoke(interp, objc, objv, flags)
+ Tcl_Interp * interp;
+ int objc;
+ Tcl_Obj *CONST objv[];
+ int flags;
+{
+ return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags);
+}
+
+/* Slot 71 */
+int
+TclObjInvokeGlobal(interp, objc, objv, flags)
+ Tcl_Interp * interp;
+ int objc;
+ Tcl_Obj *CONST objv[];
+ int flags;
+{
+ return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags);
+}
+
+/* Slot 72 */
+int
+TclOpenFileChannelDeleteProc(proc)
+ TclOpenFileChannelProc_ * proc;
+{
+ return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc);
+}
+
+/* Slot 73 */
+int
+TclOpenFileChannelInsertProc(proc)
+ TclOpenFileChannelProc_ * proc;
+{
+ return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc);
+}
+
+/* Slot 74 */
+char *
+TclpAlloc(size)
+ unsigned int size;
+{
+ return (tclIntStubsPtr->tclpAlloc)(size);
+}
+
+/* Slot 75 */
+int
+TclpCloseFile(file)
+ TclFile file;
+{
+ return (tclIntStubsPtr->tclpCloseFile)(file);
+}
+
+/* Slot 76 */
+int
+TclpCopyFile(source, dest)
+ char * source;
+ char * dest;
+{
+ return (tclIntStubsPtr->tclpCopyFile)(source, dest);
+}
+
+/* Slot 77 */
+int
+TclpCopyDirectory(source, dest, errorPtr)
+ char * source;
+ char * dest;
+ Tcl_DString * errorPtr;
+{
+ return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr);
+}
+
+/* Slot 78 */
+Tcl_Channel
+TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
+ TclFile readFile;
+ TclFile writeFile;
+ TclFile errorFile;
+ int numPids;
+ Tcl_Pid * pidPtr;
+{
+ return (tclIntStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr);
+}
+
+/* Slot 79 */
+int
+TclpCreateDirectory(path)
+ char * path;
+{
+ return (tclIntStubsPtr->tclpCreateDirectory)(path);
+}
+
+/* Slot 80 */
+int
+TclpCreatePipe(readPipe, writePipe)
+ TclFile * readPipe;
+ TclFile * writePipe;
+{
+ return (tclIntStubsPtr->tclpCreatePipe)(readPipe, writePipe);
+}
+
+/* Slot 81 */
+int
+TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+ TclFile inputFile;
+ TclFile outputFile;
+ TclFile errorFile;
+ Tcl_Pid * pidPtr;
+{
+ return (tclIntStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr);
+}
+
+/* Slot 82 */
+TclFile
+TclpCreateTempFile(contents, namePtr)
+ char * contents;
+ Tcl_DString * namePtr;
+{
+ return (tclIntStubsPtr->tclpCreateTempFile)(contents, namePtr);
+}
+
+/* Slot 83 */
+int
+TclpDeleteFile(path)
+ char * path;
+{
+ return (tclIntStubsPtr->tclpDeleteFile)(path);
+}
+
+/* Slot 84 */
+void
+TclpFinalize()
+{
+ (tclIntStubsPtr->tclpFinalize)();
+}
+
+/* Slot 85 */
+void
+TclpFree(ptr)
+ char * ptr;
+{
+ (tclIntStubsPtr->tclpFree)(ptr);
+}
+
+/* Slot 86 */
+unsigned long
+TclpGetClicks()
+{
+ return (tclIntStubsPtr->tclpGetClicks)();
+}
+
+/* Slot 87 */
+unsigned long
+TclpGetSeconds()
+{
+ return (tclIntStubsPtr->tclpGetSeconds)();
+}
+
+/* Slot 88 */
+void
+TclpGetTime(time)
+ Tcl_Time * time;
+{
+ (tclIntStubsPtr->tclpGetTime)(time);
+}
+
+/* Slot 89 */
+int
+TclpGetTimeZone(time)
+ unsigned long time;
+{
+ return (tclIntStubsPtr->tclpGetTimeZone)(time);
+}
+
+/* Slot 90 */
+char *
+TclpGetTZName()
+{
+ return (tclIntStubsPtr->tclpGetTZName)();
+}
+
+/* Slot 91 */
+int
+TclpListVolumes(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tclpListVolumes)(interp);
+}
+
+/* Slot 92 */
+TclFile
+TclpMakeFile(channel, direction)
+ Tcl_Channel channel;
+ int direction;
+{
+ return (tclIntStubsPtr->tclpMakeFile)(channel, direction);
+}
+
+/* Slot 93 */
+TclFile
+TclpOpenFile(fname, mode)
+ char * fname;
+ int mode;
+{
+ return (tclIntStubsPtr->tclpOpenFile)(fname, mode);
+}
+
+/* Slot 94 */
+Tcl_Channel
+TclpOpenFileChannel(interp, fileName, modeString, permissions)
+ Tcl_Interp * interp;
+ char * fileName;
+ char * modeString;
+ int permissions;
+{
+ return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions);
+}
+
+/* Slot 95 */
+char *
+TclpRealloc(ptr, size)
+ char * ptr;
+ unsigned int size;
+{
+ return (tclIntStubsPtr->tclpRealloc)(ptr, size);
+}
+
+/* Slot 96 */
+int
+TclpRemoveDirectory(path, recursive, errorPtr)
+ char * path;
+ int recursive;
+ Tcl_DString * errorPtr;
+{
+ return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr);
+}
+
+/* Slot 97 */
+int
+TclpRenameFile(source, dest)
+ char * source;
+ char * dest;
+{
+ return (tclIntStubsPtr->tclpRenameFile)(source, dest);
+}
+
+/* Slot 98 */
+int
+TclParseBraces(interp, string, termPtr, pvPtr)
+ Tcl_Interp * interp;
+ char * string;
+ char ** termPtr;
+ ParseValue * pvPtr;
+{
+ return (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr);
+}
+
+/* Slot 99 */
+int
+TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
+ Tcl_Interp * interp;
+ char * string;
+ int flags;
+ char ** termPtr;
+ ParseValue * pvPtr;
+{
+ return (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr);
+}
+
+/* Slot 100 */
+int
+TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
+ Tcl_Interp * interp;
+ char * string;
+ int termChar;
+ int flags;
+ char ** termPtr;
+ ParseValue * pvPtr;
+{
+ return (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr);
+}
+
+/* Slot 101 */
+void
+TclPlatformInit(interp)
+ Tcl_Interp * interp;
+{
+ (tclIntStubsPtr->tclPlatformInit)(interp);
+}
+
+/* Slot 102 */
+char *
+TclPrecTraceProc(clientData, interp, name1, name2, flags)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ char * name1;
+ char * name2;
+ int flags;
+{
+ return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags);
+}
+
+/* Slot 103 */
+int
+TclPreventAliasLoop(interp, cmdInterp, cmd)
+ Tcl_Interp * interp;
+ Tcl_Interp * cmdInterp;
+ Tcl_Command cmd;
+{
+ return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd);
+}
+
+/* Slot 104 */
+void
+TclPrintByteCodeObj(interp, objPtr)
+ Tcl_Interp * interp;
+ Tcl_Obj * objPtr;
+{
+ (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr);
+}
+
+/* Slot 105 */
+void
+TclProcCleanupProc(procPtr)
+ Proc * procPtr;
+{
+ (tclIntStubsPtr->tclProcCleanupProc)(procPtr);
+}
+
+/* Slot 106 */
+int
+TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
+ Tcl_Interp * interp;
+ Proc * procPtr;
+ Tcl_Obj * bodyPtr;
+ Namespace * nsPtr;
+ CONST char * description;
+ CONST char * procName;
+{
+ return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName);
+}
+
+/* Slot 107 */
+void
+TclProcDeleteProc(clientData)
+ ClientData clientData;
+{
+ (tclIntStubsPtr->tclProcDeleteProc)(clientData);
+}
+
+/* Slot 108 */
+int
+TclProcInterpProc(clientData, interp, argc, argv)
+ ClientData clientData;
+ Tcl_Interp * interp;
+ int argc;
+ char ** argv;
+{
+ return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv);
+}
+
+/* Slot 109 */
+int
+TclRenameCommand(interp, oldName, newName)
+ Tcl_Interp * interp;
+ char * oldName;
+ char * newName;
+{
+ return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName);
+}
+
+/* Slot 110 */
+void
+TclResetShadowedCmdRefs(interp, newCmdPtr)
+ Tcl_Interp * interp;
+ Command * newCmdPtr;
+{
+ (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr);
+}
+
+/* Slot 111 */
+int
+TclServiceIdle()
+{
+ return (tclIntStubsPtr->tclServiceIdle)();
+}
+
+/* Slot 112 */
+Tcl_Obj *
+TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg)
+ Tcl_Interp * interp;
+ int localIndex;
+ Tcl_Obj * elemPtr;
+ Tcl_Obj * objPtr;
+ int leaveErrorMsg;
+{
+ return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg);
+}
+
+/* Slot 113 */
+Tcl_Obj *
+TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
+ Tcl_Interp * interp;
+ int localIndex;
+ Tcl_Obj * objPtr;
+ int leaveErrorMsg;
+{
+ return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg);
+}
+
+/* Slot 114 */
+char *
+TclSetPreInitScript(string)
+ char * string;
+{
+ return (tclIntStubsPtr->tclSetPreInitScript)(string);
+}
+
+/* Slot 115 */
+void
+TclSetupEnv(interp)
+ Tcl_Interp * interp;
+{
+ (tclIntStubsPtr->tclSetupEnv)(interp);
+}
+
+/* Slot 116 */
+int
+TclSockGetPort(interp, string, proto, portPtr)
+ Tcl_Interp * interp;
+ char * string;
+ char * proto;
+ int * portPtr;
+{
+ return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr);
+}
+
+/* Slot 117 */
+int
+TclSockMinimumBuffers(sock, size)
+ int sock;
+ int size;
+{
+ return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size);
+}
+
+/* Slot 118 */
+int
+TclStat(path, buf)
+ CONST char * path;
+ TclStat_ * buf;
+{
+ return (tclIntStubsPtr->tclStat)(path, buf);
+}
+
+/* Slot 119 */
+int
+TclStatDeleteProc(proc)
+ TclStatProc_ * proc;
+{
+ return (tclIntStubsPtr->tclStatDeleteProc)(proc);
+}
+
+/* Slot 120 */
+int
+TclStatInsertProc(proc)
+ TclStatProc_ * proc;
+{
+ return (tclIntStubsPtr->tclStatInsertProc)(proc);
+}
+
+/* Slot 121 */
+void
+TclTeardownNamespace(nsPtr)
+ Namespace * nsPtr;
+{
+ (tclIntStubsPtr->tclTeardownNamespace)(nsPtr);
+}
+
+/* Slot 122 */
+int
+TclUpdateReturnInfo(iPtr)
+ Interp * iPtr;
+{
+ return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr);
+}
+
+/* Slot 123 */
+char *
+TclWordEnd(start, lastChar, nested, semiPtr)
+ char * start;
+ char * lastChar;
+ int nested;
+ int * semiPtr;
+{
+ return (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr);
+}
+
+/* Slot 124 */
+void
+Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
+ Tcl_Interp * interp;
+ char * name;
+ Tcl_ResolveCmdProc * cmdProc;
+ Tcl_ResolveVarProc * varProc;
+ Tcl_ResolveCompiledVarProc * compiledVarProc;
+{
+ (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc);
+}
+
+/* Slot 125 */
+int
+Tcl_AppendExportList(interp, nsPtr, objPtr)
+ Tcl_Interp * interp;
+ Tcl_Namespace * nsPtr;
+ Tcl_Obj * objPtr;
+{
+ return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr);
+}
+
+/* Slot 126 */
+Tcl_Namespace *
+Tcl_CreateNamespace(interp, name, clientData, deleteProc)
+ Tcl_Interp * interp;
+ char * name;
+ ClientData clientData;
+ Tcl_NamespaceDeleteProc * deleteProc;
+{
+ return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc);
+}
+
+/* Slot 127 */
+void
+Tcl_DeleteNamespace(nsPtr)
+ Tcl_Namespace * nsPtr;
+{
+ (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr);
+}
+
+/* Slot 128 */
+int
+Tcl_Export(interp, nsPtr, pattern, resetListFirst)
+ Tcl_Interp * interp;
+ Tcl_Namespace * nsPtr;
+ char * pattern;
+ int resetListFirst;
+{
+ return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst);
+}
+
+/* Slot 129 */
+Tcl_Command
+Tcl_FindCommand(interp, name, contextNsPtr, flags)
+ Tcl_Interp * interp;
+ char * name;
+ Tcl_Namespace * contextNsPtr;
+ int flags;
+{
+ return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags);
+}
+
+/* Slot 130 */
+Tcl_Namespace *
+Tcl_FindNamespace(interp, name, contextNsPtr, flags)
+ Tcl_Interp * interp;
+ char * name;
+ Tcl_Namespace * contextNsPtr;
+ int flags;
+{
+ return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags);
+}
+
+/* Slot 131 */
+int
+Tcl_GetInterpResolvers(interp, name, resInfo)
+ Tcl_Interp * interp;
+ char * name;
+ Tcl_ResolverInfo * resInfo;
+{
+ return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo);
+}
+
+/* Slot 132 */
+int
+Tcl_GetNamespaceResolvers(namespacePtr, resInfo)
+ Tcl_Namespace * namespacePtr;
+ Tcl_ResolverInfo * resInfo;
+{
+ return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo);
+}
+
+/* Slot 133 */
+Tcl_Var
+Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
+ Tcl_Interp * interp;
+ char * name;
+ Tcl_Namespace * contextNsPtr;
+ int flags;
+{
+ return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags);
+}
+
+/* Slot 134 */
+int
+Tcl_ForgetImport(interp, nsPtr, pattern)
+ Tcl_Interp * interp;
+ Tcl_Namespace * nsPtr;
+ char * pattern;
+{
+ return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern);
+}
+
+/* Slot 135 */
+Tcl_Command
+Tcl_GetCommandFromObj(interp, objPtr)
+ Tcl_Interp * interp;
+ Tcl_Obj * objPtr;
+{
+ return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr);
+}
+
+/* Slot 136 */
+void
+Tcl_GetCommandFullName(interp, command, objPtr)
+ Tcl_Interp * interp;
+ Tcl_Command command;
+ Tcl_Obj * objPtr;
+{
+ (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr);
+}
+
+/* Slot 137 */
+Tcl_Namespace *
+Tcl_GetCurrentNamespace(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp);
+}
+
+/* Slot 138 */
+Tcl_Namespace *
+Tcl_GetGlobalNamespace(interp)
+ Tcl_Interp * interp;
+{
+ return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp);
+}
+
+/* Slot 139 */
+void
+Tcl_GetVariableFullName(interp, variable, objPtr)
+ Tcl_Interp * interp;
+ Tcl_Var variable;
+ Tcl_Obj * objPtr;
+{
+ (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr);
+}
+
+/* Slot 140 */
+int
+Tcl_Import(interp, nsPtr, pattern, allowOverwrite)
+ Tcl_Interp * interp;
+ Tcl_Namespace * nsPtr;
+ char * pattern;
+ int allowOverwrite;
+{
+ return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite);
+}
+
+/* Slot 141 */
+void
+Tcl_PopCallFrame(interp)
+ Tcl_Interp* interp;
+{
+ (tclIntStubsPtr->tcl_PopCallFrame)(interp);
+}
+
+/* Slot 142 */
+int
+Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
+ Tcl_Interp* interp;
+ Tcl_CallFrame * framePtr;
+ Tcl_Namespace * nsPtr;
+ int isProcCallFrame;
+{
+ return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame);
+}
+
+/* Slot 143 */
+int
+Tcl_RemoveInterpResolvers(interp, name)
+ Tcl_Interp * interp;
+ char * name;
+{
+ return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name);
+}
+
+/* Slot 144 */
+void
+Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
+ Tcl_Namespace * namespacePtr;
+ Tcl_ResolveCmdProc * cmdProc;
+ Tcl_ResolveVarProc * varProc;
+ Tcl_ResolveCompiledVarProc * compiledVarProc;
+{
+ (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc);
+}
+
+/* Slot 145 */
+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 146 */
+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 147 */
+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 148 */
+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 149 */
+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 150 */
+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 151 */
+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 152 */
+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 153 */
+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 154 */
+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);
+}
+
+
+/* !END!: Do not edit above this line. */
generated by cgit v0.12 at 2024-11-10 08:44:56 (GMT)