* unix/Makefile.in:

* unix/configure.in:
* unix/ldAix: Enhanced AIX shared library support.

* win/tclWinSock.c: Removed a bunch of extraneous PASCAL FAR
attributes from internal functions.

* win/tclWinReg.c: Changed registry package to use stubs mechanism
so it no longer depends on the specific version of Tcl.

* doc/AddErrInfo.3:
* doc/Eval.3:
* doc/PkgRequire.3:
* doc/SetResult.3:
* doc/StringObj.3:
* generic/tcl.h:
* generic/tclBasic.c:
* generic/tclPanic.c:
* generic/tclStringObj.c:
* generic/tclUtil.c:
* unix/mkLinks: Added va_list versions of all VARARGS
functions so they can be invoked from the stub functions.

* doc/package.n:
* doc/PkgRequire.3:
* generic/tclPkg.c: Added Tcl_PkgProvideEx, Tcl_RequireEx,
Tcl_PresentEx, and Tcl_PkgPresent.  Added "package present"
command.

* generic/tclFileName.c:
* mac/tclMacFile.c:
* mac/tclMacShLib.exp:
* unix/tclUnixFile.c:
* win/tclWinFile.c: Changed so TclGetUserHome is defined on
all platforms, even though it is currently a noop on mac and
windows, and renamed it to TclpGetUserHome.

* generic/tclCkalloc.c: Added stub versions of memory checking
functions when compiling without TCL_MEM_DEBUG.

* doc/ByteArrObj.3:
* generic/tcl.h:
* generic/tclBinary.c:
* generic/tclObj.c: Ported the 8.1 ByteArray type back to 8.0.

* generic/tcl.decls:
* generic/tcl.h:
* generic/tclBasic.c:
* generic/tclDecls.h:
* generic/tclInt.decls:
* generic/tclInt.h:
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclIntPlatStubs.c:
* generic/tclIntStubs.c:
* generic/tclPlatDecls.h:
* generic/tclPlatStubs.c:
* generic/tclStubInit.c:
* generic/tclStubLib.c:
* generic/tclStubs.c:
* tools/genStubs.tcl:
* unix/configure.in:
* unix/Makefile.in:
* unix/tclConfig.sh.in:
* win/makefile.vc:
* win/tclWinPort.h: Added Tcl stubs implementation.  There are
now two new macros USE_TCL_STUBS and USE_TCL_STUB_PROCS that
enable use of stubs and disable stub macros respectively.  All of
the public and private function declarations from tcl.h and
tclInt.h have moved into the *.decls files and the *Stubs.c and
*Decls.h files are generated using the genStubs.tcl script.

* generic/tclPanic.c:
* generic/panic.c: renamed panic to Tcl_Panic, added macro for
backwards compatibility, renamed file to tclPanic.c

1 files changed, 0 insertions, 1529 deletions

diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c
deleted file mode 100644
index 34ea414..0000000
--- a/generic/tclIntStubs.c
+++ /dev/null
@@ -1,1529 +0,0 @@
-/* 
- * 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. */