diff options
author | Kevin B Kenny <kennykb@acm.org> | 2004-06-05 17:31:08 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2004-06-05 17:31:08 (GMT) |
commit | eab8709992e59240799ae71ebdd5b6e48bc9d5c0 (patch) | |
tree | 41f21e9ad830c0964087f8b4d6b564c1f631d6ca /generic/tclIntDecls.h | |
parent | 9baeae995f31e23bd116f478c93131015e25e069 (diff) | |
download | tcl-eab8709992e59240799ae71ebdd5b6e48bc9d5c0.zip tcl-eab8709992e59240799ae71ebdd5b6e48bc9d5c0.tar.gz tcl-eab8709992e59240799ae71ebdd5b6e48bc9d5c0.tar.bz2 |
* generic/tcl.h: Corrected Tcl_WideInt declarations so that the mingw
build works again.
* generic/tclDecls.h: Changes to the tests for
* generic/tclInt.decls: clock frequency in
* generic/tclIntDecls.h: Tcl_WinTime
* generic/tclIntPlatDecls.h: so that any clock frequency
* generic/tclPlatDecls.h: is accepted provided that
* generic/tclStubInit.c: all CPU's in the system share
* tests/platform.test (platform-1.3): a common chip, and hence,
* win/tclWin32Dll.c (TclWinCPUID): presumably, a common clock.
* win/tclWinTest.c (TestwincpuidCmd) This change necessitated a
* win/tclWinTime.c (Tcl_GetTime): small burst of assembly code
to read CPU ID information, which was added as TclWinCPUID in the
internal Stubs. To test this code in the common case of a
single-processor machine, a 'testwincpuid' command was added to
tclWinTest.c, and a test case in platform.test. Thanks to Jeff
Godfrey and Richard Suchenwirth for reporting this bug. [Bug
#976722]
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 3650 |
1 files changed, 1825 insertions, 1825 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 3b6fbfb..6a3aeeb 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -1,1825 +1,1825 @@ -/* - * tclIntDecls.h -- - * - * This file contains the declarations for all unsupported - * functions that are exported by the Tcl library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclIntDecls.h,v 1.62 2004/05/14 21:43:29 kennykb Exp $ - */ - -#ifndef _TCLINTDECLS -#define _TCLINTDECLS - -#include "tclPort.h" - -#ifdef BUILD_tcl -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif /* BUILD_tcl */ - -/* - * 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 function declarations: - */ - -/* Slot 0 is reserved */ -#ifndef TclAccessDeleteProc_TCL_DECLARED -#define TclAccessDeleteProc_TCL_DECLARED -/* 1 */ -EXTERN int TclAccessDeleteProc _ANSI_ARGS_(( - TclAccessProc_ * proc)); -#endif -#ifndef TclAccessInsertProc_TCL_DECLARED -#define TclAccessInsertProc_TCL_DECLARED -/* 2 */ -EXTERN int TclAccessInsertProc _ANSI_ARGS_(( - TclAccessProc_ * proc)); -#endif -#ifndef TclAllocateFreeObjects_TCL_DECLARED -#define TclAllocateFreeObjects_TCL_DECLARED -/* 3 */ -EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); -#endif -/* Slot 4 is reserved */ -#if !defined(__WIN32__) /* UNIX */ -#ifndef TclCleanupChildren_TCL_DECLARED -#define TclCleanupChildren_TCL_DECLARED -/* 5 */ -EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, - int numPids, Tcl_Pid * pidPtr, - Tcl_Channel errorChan)); -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclCleanupChildren_TCL_DECLARED -#define TclCleanupChildren_TCL_DECLARED -/* 5 */ -EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, - int numPids, Tcl_Pid * pidPtr, - Tcl_Channel errorChan)); -#endif -#endif /* __WIN32__ */ -#ifndef TclCleanupCommand_TCL_DECLARED -#define TclCleanupCommand_TCL_DECLARED -/* 6 */ -EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr)); -#endif -#ifndef TclCopyAndCollapse_TCL_DECLARED -#define TclCopyAndCollapse_TCL_DECLARED -/* 7 */ -EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count, - CONST char * src, char * dst)); -#endif -#ifndef TclCopyChannel_TCL_DECLARED -#define TclCopyChannel_TCL_DECLARED -/* 8 */ -EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel inChan, Tcl_Channel outChan, - int toRead, Tcl_Obj * cmdPtr)); -#endif -#if !defined(__WIN32__) /* UNIX */ -#ifndef TclCreatePipeline_TCL_DECLARED -#define TclCreatePipeline_TCL_DECLARED -/* 9 */ -EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, - int argc, CONST char ** argv, - Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, - TclFile * outPipePtr, TclFile * errFilePtr)); -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclCreatePipeline_TCL_DECLARED -#define TclCreatePipeline_TCL_DECLARED -/* 9 */ -EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, - int argc, CONST char ** argv, - Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, - TclFile * outPipePtr, TclFile * errFilePtr)); -#endif -#endif /* __WIN32__ */ -#ifndef TclCreateProc_TCL_DECLARED -#define TclCreateProc_TCL_DECLARED -/* 10 */ -EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, - Namespace * nsPtr, CONST char * procName, - Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, - Proc ** procPtrPtr)); -#endif -#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED -#define TclDeleteCompiledLocalVars_TCL_DECLARED -/* 11 */ -EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( - Interp * iPtr, CallFrame * framePtr)); -#endif -#ifndef TclDeleteVars_TCL_DECLARED -#define TclDeleteVars_TCL_DECLARED -/* 12 */ -EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr, - Tcl_HashTable * tablePtr)); -#endif -/* Slot 13 is reserved */ -#ifndef TclDumpMemoryInfo_TCL_DECLARED -#define TclDumpMemoryInfo_TCL_DECLARED -/* 14 */ -EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile)); -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError_TCL_DECLARED -#define TclExprFloatError_TCL_DECLARED -/* 16 */ -EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, - double value)); -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement_TCL_DECLARED -#define TclFindElement_TCL_DECLARED -/* 22 */ -EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * listStr, int listLength, - CONST char ** elementPtr, - CONST char ** nextPtr, int * sizePtr, - int * bracePtr)); -#endif -#ifndef TclFindProc_TCL_DECLARED -#define TclFindProc_TCL_DECLARED -/* 23 */ -EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr, - CONST char * procName)); -#endif -#ifndef TclFormatInt_TCL_DECLARED -#define TclFormatInt_TCL_DECLARED -/* 24 */ -EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); -#endif -#ifndef TclFreePackageInfo_TCL_DECLARED -#define TclFreePackageInfo_TCL_DECLARED -/* 25 */ -EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); -#endif -/* Slot 26 is reserved */ -#ifndef TclGetDate_TCL_DECLARED -#define TclGetDate_TCL_DECLARED -/* 27 */ -EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, - long zone, unsigned long * timePtr)); -#endif -#ifndef TclpGetDefaultStdChannel_TCL_DECLARED -#define TclpGetDefaultStdChannel_TCL_DECLARED -/* 28 */ -EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type)); -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension_TCL_DECLARED -#define TclGetExtension_TCL_DECLARED -/* 31 */ -EXTERN CONST char * TclGetExtension _ANSI_ARGS_((CONST char * name)); -#endif -#ifndef TclGetFrame_TCL_DECLARED -#define TclGetFrame_TCL_DECLARED -/* 32 */ -EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, CallFrame ** framePtrPtr)); -#endif -#ifndef TclGetInterpProc_TCL_DECLARED -#define TclGetInterpProc_TCL_DECLARED -/* 33 */ -EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); -#endif -#ifndef TclGetIntForIndex_TCL_DECLARED -#define TclGetIntForIndex_TCL_DECLARED -/* 34 */ -EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int endValue, - int * indexPtr)); -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong_TCL_DECLARED -#define TclGetLong_TCL_DECLARED -/* 36 */ -EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, long * longPtr)); -#endif -#ifndef TclGetLoadedPackages_TCL_DECLARED -#define TclGetLoadedPackages_TCL_DECLARED -/* 37 */ -EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( - Tcl_Interp * interp, char * targetName)); -#endif -#ifndef TclGetNamespaceForQualName_TCL_DECLARED -#define TclGetNamespaceForQualName_TCL_DECLARED -/* 38 */ -EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * qualName, - Namespace * cxtNsPtr, int flags, - Namespace ** nsPtrPtr, - Namespace ** altNsPtrPtr, - Namespace ** actualCxtPtrPtr, - CONST char ** simpleNamePtr)); -#endif -#ifndef TclGetObjInterpProc_TCL_DECLARED -#define TclGetObjInterpProc_TCL_DECLARED -/* 39 */ -EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); -#endif -#ifndef TclGetOpenMode_TCL_DECLARED -#define TclGetOpenMode_TCL_DECLARED -/* 40 */ -EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str, int * seekFlagPtr)); -#endif -#ifndef TclGetOriginalCommand_TCL_DECLARED -#define TclGetOriginalCommand_TCL_DECLARED -/* 41 */ -EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( - Tcl_Command command)); -#endif -#ifndef TclpGetUserHome_TCL_DECLARED -#define TclpGetUserHome_TCL_DECLARED -/* 42 */ -EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name, - Tcl_DString * bufferPtr)); -#endif -#ifndef TclGlobalInvoke_TCL_DECLARED -#define TclGlobalInvoke_TCL_DECLARED -/* 43 */ -EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, - int argc, CONST84 char ** argv, int flags)); -#endif -#ifndef TclGuessPackageName_TCL_DECLARED -#define TclGuessPackageName_TCL_DECLARED -/* 44 */ -EXTERN int TclGuessPackageName _ANSI_ARGS_(( - CONST char * fileName, Tcl_DString * bufPtr)); -#endif -#ifndef TclHideUnsafeCommands_TCL_DECLARED -#define TclHideUnsafeCommands_TCL_DECLARED -/* 45 */ -EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( - Tcl_Interp * interp)); -#endif -#ifndef TclInExit_TCL_DECLARED -#define TclInExit_TCL_DECLARED -/* 46 */ -EXTERN int TclInExit _ANSI_ARGS_((void)); -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -#ifndef TclIncrVar2_TCL_DECLARED -#define TclIncrVar2_TCL_DECLARED -/* 49 */ -EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - long incrAmount, int part1NotParsed)); -#endif -#ifndef TclInitCompiledLocals_TCL_DECLARED -#define TclInitCompiledLocals_TCL_DECLARED -/* 50 */ -EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( - Tcl_Interp * interp, CallFrame * framePtr, - Namespace * nsPtr)); -#endif -#ifndef TclInterpInit_TCL_DECLARED -#define TclInterpInit_TCL_DECLARED -/* 51 */ -EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); -#endif -#ifndef TclInvoke_TCL_DECLARED -#define TclInvoke_TCL_DECLARED -/* 52 */ -EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, - CONST84 char ** argv, int flags)); -#endif -#ifndef TclInvokeObjectCommand_TCL_DECLARED -#define TclInvokeObjectCommand_TCL_DECLARED -/* 53 */ -EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp * interp, - int argc, CONST84 char ** argv)); -#endif -#ifndef TclInvokeStringCommand_TCL_DECLARED -#define TclInvokeStringCommand_TCL_DECLARED -/* 54 */ -EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( - ClientData clientData, Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[])); -#endif -#ifndef TclIsProc_TCL_DECLARED -#define TclIsProc_TCL_DECLARED -/* 55 */ -EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar_TCL_DECLARED -#define TclLookupVar_TCL_DECLARED -/* 58 */ -EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, CONST char * msg, int createPart1, - int createPart2, Var ** arrayPtrPtr)); -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace_TCL_DECLARED -#define TclNeedSpace_TCL_DECLARED -/* 60 */ -EXTERN int TclNeedSpace _ANSI_ARGS_((CONST char * start, - CONST char * end)); -#endif -#ifndef TclNewProcBodyObj_TCL_DECLARED -#define TclNewProcBodyObj_TCL_DECLARED -/* 61 */ -EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); -#endif -#ifndef TclObjCommandComplete_TCL_DECLARED -#define TclObjCommandComplete_TCL_DECLARED -/* 62 */ -EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); -#endif -#ifndef TclObjInterpProc_TCL_DECLARED -#define TclObjInterpProc_TCL_DECLARED -/* 63 */ -EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[])); -#endif -#ifndef TclObjInvoke_TCL_DECLARED -#define TclObjInvoke_TCL_DECLARED -/* 64 */ -EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], int flags)); -#endif -#ifndef TclObjInvokeGlobal_TCL_DECLARED -#define TclObjInvokeGlobal_TCL_DECLARED -/* 65 */ -EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, - int objc, Tcl_Obj *CONST objv[], int flags)); -#endif -#ifndef TclOpenFileChannelDeleteProc_TCL_DECLARED -#define TclOpenFileChannelDeleteProc_TCL_DECLARED -/* 66 */ -EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( - TclOpenFileChannelProc_ * proc)); -#endif -#ifndef TclOpenFileChannelInsertProc_TCL_DECLARED -#define TclOpenFileChannelInsertProc_TCL_DECLARED -/* 67 */ -EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( - TclOpenFileChannelProc_ * proc)); -#endif -/* Slot 68 is reserved */ -#ifndef TclpAlloc_TCL_DECLARED -#define TclpAlloc_TCL_DECLARED -/* 69 */ -EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree_TCL_DECLARED -#define TclpFree_TCL_DECLARED -/* 74 */ -EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); -#endif -#ifndef TclpGetClicks_TCL_DECLARED -#define TclpGetClicks_TCL_DECLARED -/* 75 */ -EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); -#endif -#ifndef TclpGetSeconds_TCL_DECLARED -#define TclpGetSeconds_TCL_DECLARED -/* 76 */ -EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); -#endif -#ifndef TclpGetTime_TCL_DECLARED -#define TclpGetTime_TCL_DECLARED -/* 77 */ -EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); -#endif -#ifndef TclpGetTimeZone_TCL_DECLARED -#define TclpGetTimeZone_TCL_DECLARED -/* 78 */ -EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc_TCL_DECLARED -#define TclpRealloc_TCL_DECLARED -/* 81 */ -EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, - unsigned int size)); -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc_TCL_DECLARED -#define TclPrecTraceProc_TCL_DECLARED -/* 88 */ -EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, CONST char * name1, - CONST char * name2, int flags)); -#endif -#ifndef TclPreventAliasLoop_TCL_DECLARED -#define TclPreventAliasLoop_TCL_DECLARED -/* 89 */ -EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Interp * cmdInterp, Tcl_Command cmd)); -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc_TCL_DECLARED -#define TclProcCleanupProc_TCL_DECLARED -/* 91 */ -EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); -#endif -#ifndef TclProcCompileProc_TCL_DECLARED -#define TclProcCompileProc_TCL_DECLARED -/* 92 */ -EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, - Proc * procPtr, Tcl_Obj * bodyPtr, - Namespace * nsPtr, CONST char * description, - CONST char * procName)); -#endif -#ifndef TclProcDeleteProc_TCL_DECLARED -#define TclProcDeleteProc_TCL_DECLARED -/* 93 */ -EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); -#endif -#ifndef TclProcInterpProc_TCL_DECLARED -#define TclProcInterpProc_TCL_DECLARED -/* 94 */ -EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, - Tcl_Interp * interp, int argc, - CONST84 char ** argv)); -#endif -/* Slot 95 is reserved */ -#ifndef TclRenameCommand_TCL_DECLARED -#define TclRenameCommand_TCL_DECLARED -/* 96 */ -EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, - char * oldName, char * newName)); -#endif -#ifndef TclResetShadowedCmdRefs_TCL_DECLARED -#define TclResetShadowedCmdRefs_TCL_DECLARED -/* 97 */ -EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( - Tcl_Interp * interp, Command * newCmdPtr)); -#endif -#ifndef TclServiceIdle_TCL_DECLARED -#define TclServiceIdle_TCL_DECLARED -/* 98 */ -EXTERN int TclServiceIdle _ANSI_ARGS_((void)); -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript_TCL_DECLARED -#define TclSetPreInitScript_TCL_DECLARED -/* 101 */ -EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); -#endif -#ifndef TclSetupEnv_TCL_DECLARED -#define TclSetupEnv_TCL_DECLARED -/* 102 */ -EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); -#endif -#ifndef TclSockGetPort_TCL_DECLARED -#define TclSockGetPort_TCL_DECLARED -/* 103 */ -EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, - char * str, char * proto, int * portPtr)); -#endif -#if !defined(__WIN32__) /* UNIX */ -#ifndef TclSockMinimumBuffers_TCL_DECLARED -#define TclSockMinimumBuffers_TCL_DECLARED -/* 104 */ -EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, - int size)); -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclSockMinimumBuffers_TCL_DECLARED -#define TclSockMinimumBuffers_TCL_DECLARED -/* 104 */ -EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, - int size)); -#endif -#endif /* __WIN32__ */ -/* Slot 105 is reserved */ -#ifndef TclStatDeleteProc_TCL_DECLARED -#define TclStatDeleteProc_TCL_DECLARED -/* 106 */ -EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); -#endif -#ifndef TclStatInsertProc_TCL_DECLARED -#define TclStatInsertProc_TCL_DECLARED -/* 107 */ -EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); -#endif -#ifndef TclTeardownNamespace_TCL_DECLARED -#define TclTeardownNamespace_TCL_DECLARED -/* 108 */ -EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); -#endif -#ifndef TclUpdateReturnInfo_TCL_DECLARED -#define TclUpdateReturnInfo_TCL_DECLARED -/* 109 */ -EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); -#endif -/* Slot 110 is reserved */ -#ifndef Tcl_AddInterpResolvers_TCL_DECLARED -#define Tcl_AddInterpResolvers_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_ResolveCmdProc * cmdProc, - Tcl_ResolveVarProc * varProc, - Tcl_ResolveCompiledVarProc * compiledVarProc)); -#endif -#ifndef Tcl_AppendExportList_TCL_DECLARED -#define Tcl_AppendExportList_TCL_DECLARED -/* 112 */ -EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Namespace * nsPtr, - Tcl_Obj * objPtr)); -#endif -#ifndef Tcl_CreateNamespace_TCL_DECLARED -#define Tcl_CreateNamespace_TCL_DECLARED -/* 113 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, ClientData clientData, - Tcl_NamespaceDeleteProc * deleteProc)); -#endif -#ifndef Tcl_DeleteNamespace_TCL_DECLARED -#define Tcl_DeleteNamespace_TCL_DECLARED -/* 114 */ -EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( - Tcl_Namespace * nsPtr)); -#endif -#ifndef Tcl_Export_TCL_DECLARED -#define Tcl_Export_TCL_DECLARED -/* 115 */ -EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern, - int resetListFirst)); -#endif -#ifndef Tcl_FindCommand_TCL_DECLARED -#define Tcl_FindCommand_TCL_DECLARED -/* 116 */ -EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * contextNsPtr, int flags)); -#endif -#ifndef Tcl_FindNamespace_TCL_DECLARED -#define Tcl_FindNamespace_TCL_DECLARED -/* 117 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * contextNsPtr, int flags)); -#endif -#ifndef Tcl_GetInterpResolvers_TCL_DECLARED -#define Tcl_GetInterpResolvers_TCL_DECLARED -/* 118 */ -EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_ResolverInfo * resInfo)); -#endif -#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED -#define Tcl_GetNamespaceResolvers_TCL_DECLARED -/* 119 */ -EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( - Tcl_Namespace * namespacePtr, - Tcl_ResolverInfo * resInfo)); -#endif -#ifndef Tcl_FindNamespaceVar_TCL_DECLARED -#define Tcl_FindNamespaceVar_TCL_DECLARED -/* 120 */ -EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name, - Tcl_Namespace * contextNsPtr, int flags)); -#endif -#ifndef Tcl_ForgetImport_TCL_DECLARED -#define Tcl_ForgetImport_TCL_DECLARED -/* 121 */ -EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern)); -#endif -#ifndef Tcl_GetCommandFromObj_TCL_DECLARED -#define Tcl_GetCommandFromObj_TCL_DECLARED -/* 122 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr)); -#endif -#ifndef Tcl_GetCommandFullName_TCL_DECLARED -#define Tcl_GetCommandFullName_TCL_DECLARED -/* 123 */ -EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Command command, - Tcl_Obj * objPtr)); -#endif -#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED -#define Tcl_GetCurrentNamespace_TCL_DECLARED -/* 124 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( - Tcl_Interp * interp)); -#endif -#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED -#define Tcl_GetGlobalNamespace_TCL_DECLARED -/* 125 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( - Tcl_Interp * interp)); -#endif -#ifndef Tcl_GetVariableFullName_TCL_DECLARED -#define Tcl_GetVariableFullName_TCL_DECLARED -/* 126 */ -EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Var variable, - Tcl_Obj * objPtr)); -#endif -#ifndef Tcl_Import_TCL_DECLARED -#define Tcl_Import_TCL_DECLARED -/* 127 */ -EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern, - int allowOverwrite)); -#endif -#ifndef Tcl_PopCallFrame_TCL_DECLARED -#define Tcl_PopCallFrame_TCL_DECLARED -/* 128 */ -EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp * interp)); -#endif -#ifndef Tcl_PushCallFrame_TCL_DECLARED -#define Tcl_PushCallFrame_TCL_DECLARED -/* 129 */ -EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_CallFrame * framePtr, - Tcl_Namespace * nsPtr, int isProcCallFrame)); -#endif -#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED -#define Tcl_RemoveInterpResolvers_TCL_DECLARED -/* 130 */ -EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * name)); -#endif -#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED -#define Tcl_SetNamespaceResolvers_TCL_DECLARED -/* 131 */ -EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( - Tcl_Namespace * namespacePtr, - Tcl_ResolveCmdProc * cmdProc, - Tcl_ResolveVarProc * varProc, - Tcl_ResolveCompiledVarProc * compiledVarProc)); -#endif -#ifndef TclpHasSockets_TCL_DECLARED -#define TclpHasSockets_TCL_DECLARED -/* 132 */ -EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); -#endif -#ifndef TclpGetDate_TCL_DECLARED -#define TclpGetDate_TCL_DECLARED -/* 133 */ -EXTERN struct tm * TclpGetDate _ANSI_ARGS_((CONST time_t * time, - int useGMT)); -#endif -#ifndef TclpStrftime_TCL_DECLARED -#define TclpStrftime_TCL_DECLARED -/* 134 */ -EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, - CONST char * format, CONST struct tm * t, - int useGMT)); -#endif -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv_TCL_DECLARED -#define TclGetEnv_TCL_DECLARED -/* 138 */ -EXTERN CONST84_RETURN char * TclGetEnv _ANSI_ARGS_((CONST char * name, - Tcl_DString * valuePtr)); -#endif -/* Slot 139 is reserved */ -#ifndef TclLooksLikeInt_TCL_DECLARED -#define TclLooksLikeInt_TCL_DECLARED -/* 140 */ -EXTERN int TclLooksLikeInt _ANSI_ARGS_((CONST char * bytes, - int length)); -#endif -#ifndef TclpGetCwd_TCL_DECLARED -#define TclpGetCwd_TCL_DECLARED -/* 141 */ -EXTERN CONST84_RETURN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_DString * cwdPtr)); -#endif -#ifndef TclSetByteCodeFromAny_TCL_DECLARED -#define TclSetByteCodeFromAny_TCL_DECLARED -/* 142 */ -EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - CompileHookProc * hookProc, - ClientData clientData)); -#endif -#ifndef TclAddLiteralObj_TCL_DECLARED -#define TclAddLiteralObj_TCL_DECLARED -/* 143 */ -EXTERN int TclAddLiteralObj _ANSI_ARGS_(( - struct CompileEnv * envPtr, Tcl_Obj * objPtr, - LiteralEntry ** litPtrPtr)); -#endif -#ifndef TclHideLiteral_TCL_DECLARED -#define TclHideLiteral_TCL_DECLARED -/* 144 */ -EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp, - struct CompileEnv * envPtr, int index)); -#endif -#ifndef TclGetAuxDataType_TCL_DECLARED -#define TclGetAuxDataType_TCL_DECLARED -/* 145 */ -EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName)); -#endif -#ifndef TclHandleCreate_TCL_DECLARED -#define TclHandleCreate_TCL_DECLARED -/* 146 */ -EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr)); -#endif -#ifndef TclHandleFree_TCL_DECLARED -#define TclHandleFree_TCL_DECLARED -/* 147 */ -EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle)); -#endif -#ifndef TclHandlePreserve_TCL_DECLARED -#define TclHandlePreserve_TCL_DECLARED -/* 148 */ -EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle)); -#endif -#ifndef TclHandleRelease_TCL_DECLARED -#define TclHandleRelease_TCL_DECLARED -/* 149 */ -EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle)); -#endif -#ifndef TclRegAbout_TCL_DECLARED -#define TclRegAbout_TCL_DECLARED -/* 150 */ -EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_RegExp re)); -#endif -#ifndef TclRegExpRangeUniChar_TCL_DECLARED -#define TclRegExpRangeUniChar_TCL_DECLARED -/* 151 */ -EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re, - int index, int * startPtr, int * endPtr)); -#endif -#ifndef TclSetLibraryPath_TCL_DECLARED -#define TclSetLibraryPath_TCL_DECLARED -/* 152 */ -EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr)); -#endif -#ifndef TclGetLibraryPath_TCL_DECLARED -#define TclGetLibraryPath_TCL_DECLARED -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void)); -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError_TCL_DECLARED -#define TclRegError_TCL_DECLARED -/* 156 */ -EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * msg, int status)); -#endif -#ifndef TclVarTraceExists_TCL_DECLARED -#define TclVarTraceExists_TCL_DECLARED -/* 157 */ -EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * varName)); -#endif -#ifndef TclSetStartupScriptFileName_TCL_DECLARED -#define TclSetStartupScriptFileName_TCL_DECLARED -/* 158 */ -EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_(( - CONST char * filename)); -#endif -#ifndef TclGetStartupScriptFileName_TCL_DECLARED -#define TclGetStartupScriptFileName_TCL_DECLARED -/* 159 */ -EXTERN CONST84_RETURN char * TclGetStartupScriptFileName _ANSI_ARGS_((void)); -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform_TCL_DECLARED -#define TclChannelTransform_TCL_DECLARED -/* 161 */ -EXTERN int TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); -#endif -#ifndef TclChannelEventScriptInvoker_TCL_DECLARED -#define TclChannelEventScriptInvoker_TCL_DECLARED -/* 162 */ -EXTERN void TclChannelEventScriptInvoker _ANSI_ARGS_(( - ClientData clientData, int flags)); -#endif -#ifndef TclGetInstructionTable_TCL_DECLARED -#define TclGetInstructionTable_TCL_DECLARED -/* 163 */ -EXTERN void * TclGetInstructionTable _ANSI_ARGS_((void)); -#endif -#ifndef TclExpandCodeArray_TCL_DECLARED -#define TclExpandCodeArray_TCL_DECLARED -/* 164 */ -EXTERN void TclExpandCodeArray _ANSI_ARGS_((void * envPtr)); -#endif -#ifndef TclpSetInitialEncodings_TCL_DECLARED -#define TclpSetInitialEncodings_TCL_DECLARED -/* 165 */ -EXTERN void TclpSetInitialEncodings _ANSI_ARGS_((void)); -#endif -#ifndef TclListObjSetElement_TCL_DECLARED -#define TclListObjSetElement_TCL_DECLARED -/* 166 */ -EXTERN int TclListObjSetElement _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - int index, Tcl_Obj * valuePtr)); -#endif -#ifndef TclSetStartupScriptPath_TCL_DECLARED -#define TclSetStartupScriptPath_TCL_DECLARED -/* 167 */ -EXTERN void TclSetStartupScriptPath _ANSI_ARGS_(( - Tcl_Obj * pathPtr)); -#endif -#ifndef TclGetStartupScriptPath_TCL_DECLARED -#define TclGetStartupScriptPath_TCL_DECLARED -/* 168 */ -EXTERN Tcl_Obj * TclGetStartupScriptPath _ANSI_ARGS_((void)); -#endif -#ifndef TclpUtfNcmp2_TCL_DECLARED -#define TclpUtfNcmp2_TCL_DECLARED -/* 169 */ -EXTERN int TclpUtfNcmp2 _ANSI_ARGS_((CONST char * s1, - CONST char * s2, unsigned long n)); -#endif -#ifndef TclCheckInterpTraces_TCL_DECLARED -#define TclCheckInterpTraces_TCL_DECLARED -/* 170 */ -EXTERN int TclCheckInterpTraces _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * command, - int numChars, Command * cmdPtr, int result, - int traceFlags, int objc, - Tcl_Obj *CONST objv[])); -#endif -#ifndef TclCheckExecutionTraces_TCL_DECLARED -#define TclCheckExecutionTraces_TCL_DECLARED -/* 171 */ -EXTERN int TclCheckExecutionTraces _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * command, - int numChars, Command * cmdPtr, int result, - int traceFlags, int objc, - Tcl_Obj *CONST objv[])); -#endif -#ifndef TclInThreadExit_TCL_DECLARED -#define TclInThreadExit_TCL_DECLARED -/* 172 */ -EXTERN int TclInThreadExit _ANSI_ARGS_((void)); -#endif -#ifndef TclUniCharMatch_TCL_DECLARED -#define TclUniCharMatch_TCL_DECLARED -/* 173 */ -EXTERN int TclUniCharMatch _ANSI_ARGS_(( - CONST Tcl_UniChar * string, int strLen, - CONST Tcl_UniChar * pattern, int ptnLen, - int nocase)); -#endif -#ifndef TclIncrWideVar2_TCL_DECLARED -#define TclIncrWideVar2_TCL_DECLARED -/* 174 */ -EXTERN Tcl_Obj * TclIncrWideVar2 _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - Tcl_WideInt wideIncrAmount, - int part1NotParsed)); -#endif -#ifndef TclCallVarTraces_TCL_DECLARED -#define TclCallVarTraces_TCL_DECLARED -/* 175 */ -EXTERN int TclCallVarTraces _ANSI_ARGS_((Interp * iPtr, - Var * arrayPtr, Var * varPtr, - CONST char * part1, CONST char * part2, - int flags, int leaveErrMsg)); -#endif -#ifndef TclCleanupVar_TCL_DECLARED -#define TclCleanupVar_TCL_DECLARED -/* 176 */ -EXTERN void TclCleanupVar _ANSI_ARGS_((Var * varPtr, - Var * arrayPtr)); -#endif -#ifndef TclVarErrMsg_TCL_DECLARED -#define TclVarErrMsg_TCL_DECLARED -/* 177 */ -EXTERN void TclVarErrMsg _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - CONST char * operation, CONST char * reason)); -#endif -#ifndef Tcl_SetStartupScript_TCL_DECLARED -#define Tcl_SetStartupScript_TCL_DECLARED -/* 178 */ -EXTERN void Tcl_SetStartupScript _ANSI_ARGS_((Tcl_Obj * pathPtr, - CONST char* encodingName)); -#endif -#ifndef Tcl_GetStartupScript_TCL_DECLARED -#define Tcl_GetStartupScript_TCL_DECLARED -/* 179 */ -EXTERN Tcl_Obj * Tcl_GetStartupScript _ANSI_ARGS_(( - CONST char ** encodingNamePtr)); -#endif -#ifndef TclNewListObjDirect_TCL_DECLARED -#define TclNewListObjDirect_TCL_DECLARED -/* 180 */ -EXTERN Tcl_Obj * TclNewListObjDirect _ANSI_ARGS_((int objc, - Tcl_Obj ** objv)); -#endif -#ifndef TclDbNewListObjDirect_TCL_DECLARED -#define TclDbNewListObjDirect_TCL_DECLARED -/* 181 */ -EXTERN Tcl_Obj * TclDbNewListObjDirect _ANSI_ARGS_((int objc, - Tcl_Obj ** objv, CONST char * file, int line)); -#endif -#ifndef TclpLocaltime_TCL_DECLARED -#define TclpLocaltime_TCL_DECLARED -/* 182 */ -EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((CONST time_t * clock)); -#endif -#ifndef TclpGmtime_TCL_DECLARED -#define TclpGmtime_TCL_DECLARED -/* 183 */ -EXTERN struct tm * TclpGmtime _ANSI_ARGS_((CONST time_t * clock)); -#endif - -typedef struct TclIntStubs { - int magic; - struct TclIntStubHooks *hooks; - - void *reserved0; - int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */ - int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */ - void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */ - void *reserved4; -#if !defined(__WIN32__) /* UNIX */ - int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ -#endif /* __WIN32__ */ - void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */ - int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */ - int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */ -#if !defined(__WIN32__) /* UNIX */ - int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ -#endif /* __WIN32__ */ - int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */ - void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */ - void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */ - void *reserved13; - void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */ - void *reserved15; - void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */ - void *reserved17; - void *reserved18; - void *reserved19; - void *reserved20; - void *reserved21; - int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */ - Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */ - int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */ - void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */ - void *reserved26; - int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */ - Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */ - void *reserved29; - void *reserved30; - CONST char * (*tclGetExtension) _ANSI_ARGS_((CONST char * name)); /* 31 */ - int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */ - TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */ - int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */ - void *reserved35; - int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */ - int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */ - int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */ - TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */ - int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */ - Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */ - char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */ - int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 43 */ - int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */ - int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */ - int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */ - void *reserved47; - void *reserved48; - Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */ - void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */ - int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */ - int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 52 */ - int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */ - int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */ - Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */ - void *reserved56; - void *reserved57; - Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */ - void *reserved59; - int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */ - Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */ - int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */ - int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */ - int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */ - int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */ - int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */ - int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */ - void *reserved68; - char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */ - void *reserved70; - void *reserved71; - void *reserved72; - void *reserved73; - void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */ - unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */ - unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */ - void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */ - int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */ - void *reserved79; - void *reserved80; - char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */ - void *reserved82; - void *reserved83; - void *reserved84; - void *reserved85; - void *reserved86; - void *reserved87; - char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */ - int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */ - void *reserved90; - void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */ - int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */ - void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */ - int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 94 */ - void *reserved95; - int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */ - void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */ - int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */ - void *reserved99; - void *reserved100; - char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */ - void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */ - int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */ -#if !defined(__WIN32__) /* UNIX */ - int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ -#endif /* UNIX */ -#ifdef __WIN32__ - int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ -#endif /* __WIN32__ */ - void *reserved105; - int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */ - int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */ - void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */ - int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */ - void *reserved110; - void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */ - int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */ - Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */ - void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */ - int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst)); /* 115 */ - Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */ - Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */ - int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo)); /* 118 */ - int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */ - Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ - int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern)); /* 121 */ - Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */ - void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */ - void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */ - int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite)); /* 127 */ - void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp * interp)); /* 128 */ - int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */ - int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 130 */ - void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */ - int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */ - struct tm * (*tclpGetDate) _ANSI_ARGS_((CONST time_t * time, int useGMT)); /* 133 */ - size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */ - void *reserved135; - void *reserved136; - void *reserved137; - CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */ - void *reserved139; - int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */ - CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */ - int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */ - int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */ - void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */ - struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */ - TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */ - void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */ - TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */ - void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */ - int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */ - void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */ - void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */ - void *reserved154; - void *reserved155; - void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */ - Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */ - void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */ - CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */ - void *reserved160; - int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */ - void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */ - void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */ - void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */ - void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */ - int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */ - void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */ - Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */ - int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */ - int (*tclCheckInterpTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 170 */ - int (*tclCheckExecutionTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 171 */ - int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */ - int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */ - Tcl_Obj * (*tclIncrWideVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_WideInt wideIncrAmount, int part1NotParsed)); /* 174 */ - int (*tclCallVarTraces) _ANSI_ARGS_((Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg)); /* 175 */ - void (*tclCleanupVar) _ANSI_ARGS_((Var * varPtr, Var * arrayPtr)); /* 176 */ - void (*tclVarErrMsg) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason)); /* 177 */ - void (*tcl_SetStartupScript) _ANSI_ARGS_((Tcl_Obj * pathPtr, CONST char* encodingName)); /* 178 */ - Tcl_Obj * (*tcl_GetStartupScript) _ANSI_ARGS_((CONST char ** encodingNamePtr)); /* 179 */ - Tcl_Obj * (*tclNewListObjDirect) _ANSI_ARGS_((int objc, Tcl_Obj ** objv)); /* 180 */ - Tcl_Obj * (*tclDbNewListObjDirect) _ANSI_ARGS_((int objc, Tcl_Obj ** objv, CONST char * file, int line)); /* 181 */ - struct tm * (*tclpLocaltime) _ANSI_ARGS_((CONST time_t * clock)); /* 182 */ - struct tm * (*tclpGmtime) _ANSI_ARGS_((CONST time_t * clock)); /* 183 */ -} TclIntStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclIntStubs *tclIntStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -#ifndef TclAccessDeleteProc -#define TclAccessDeleteProc \ - (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */ -#endif -#ifndef TclAccessInsertProc -#define TclAccessInsertProc \ - (tclIntStubsPtr->tclAccessInsertProc) /* 2 */ -#endif -#ifndef TclAllocateFreeObjects -#define TclAllocateFreeObjects \ - (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -#endif -/* Slot 4 is reserved */ -#if !defined(__WIN32__) /* UNIX */ -#ifndef TclCleanupChildren -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclCleanupChildren -#define TclCleanupChildren \ - (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#endif /* __WIN32__ */ -#ifndef TclCleanupCommand -#define TclCleanupCommand \ - (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#endif -#ifndef TclCopyAndCollapse -#define TclCopyAndCollapse \ - (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#endif -#ifndef TclCopyChannel -#define TclCopyChannel \ - (tclIntStubsPtr->tclCopyChannel) /* 8 */ -#endif -#if !defined(__WIN32__) /* UNIX */ -#ifndef TclCreatePipeline -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclCreatePipeline -#define TclCreatePipeline \ - (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#endif /* __WIN32__ */ -#ifndef TclCreateProc -#define TclCreateProc \ - (tclIntStubsPtr->tclCreateProc) /* 10 */ -#endif -#ifndef TclDeleteCompiledLocalVars -#define TclDeleteCompiledLocalVars \ - (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ -#endif -#ifndef TclDeleteVars -#define TclDeleteVars \ - (tclIntStubsPtr->tclDeleteVars) /* 12 */ -#endif -/* Slot 13 is reserved */ -#ifndef TclDumpMemoryInfo -#define TclDumpMemoryInfo \ - (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ -#endif -/* Slot 15 is reserved */ -#ifndef TclExprFloatError -#define TclExprFloatError \ - (tclIntStubsPtr->tclExprFloatError) /* 16 */ -#endif -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* Slot 20 is reserved */ -/* Slot 21 is reserved */ -#ifndef TclFindElement -#define TclFindElement \ - (tclIntStubsPtr->tclFindElement) /* 22 */ -#endif -#ifndef TclFindProc -#define TclFindProc \ - (tclIntStubsPtr->tclFindProc) /* 23 */ -#endif -#ifndef TclFormatInt -#define TclFormatInt \ - (tclIntStubsPtr->tclFormatInt) /* 24 */ -#endif -#ifndef TclFreePackageInfo -#define TclFreePackageInfo \ - (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ -#endif -/* Slot 26 is reserved */ -#ifndef TclGetDate -#define TclGetDate \ - (tclIntStubsPtr->tclGetDate) /* 27 */ -#endif -#ifndef TclpGetDefaultStdChannel -#define TclpGetDefaultStdChannel \ - (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ -#endif -/* Slot 29 is reserved */ -/* Slot 30 is reserved */ -#ifndef TclGetExtension -#define TclGetExtension \ - (tclIntStubsPtr->tclGetExtension) /* 31 */ -#endif -#ifndef TclGetFrame -#define TclGetFrame \ - (tclIntStubsPtr->tclGetFrame) /* 32 */ -#endif -#ifndef TclGetInterpProc -#define TclGetInterpProc \ - (tclIntStubsPtr->tclGetInterpProc) /* 33 */ -#endif -#ifndef TclGetIntForIndex -#define TclGetIntForIndex \ - (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ -#endif -/* Slot 35 is reserved */ -#ifndef TclGetLong -#define TclGetLong \ - (tclIntStubsPtr->tclGetLong) /* 36 */ -#endif -#ifndef TclGetLoadedPackages -#define TclGetLoadedPackages \ - (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ -#endif -#ifndef TclGetNamespaceForQualName -#define TclGetNamespaceForQualName \ - (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ -#endif -#ifndef TclGetObjInterpProc -#define TclGetObjInterpProc \ - (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ -#endif -#ifndef TclGetOpenMode -#define TclGetOpenMode \ - (tclIntStubsPtr->tclGetOpenMode) /* 40 */ -#endif -#ifndef TclGetOriginalCommand -#define TclGetOriginalCommand \ - (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ -#endif -#ifndef TclpGetUserHome -#define TclpGetUserHome \ - (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -#endif -#ifndef TclGlobalInvoke -#define TclGlobalInvoke \ - (tclIntStubsPtr->tclGlobalInvoke) /* 43 */ -#endif -#ifndef TclGuessPackageName -#define TclGuessPackageName \ - (tclIntStubsPtr->tclGuessPackageName) /* 44 */ -#endif -#ifndef TclHideUnsafeCommands -#define TclHideUnsafeCommands \ - (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ -#endif -#ifndef TclInExit -#define TclInExit \ - (tclIntStubsPtr->tclInExit) /* 46 */ -#endif -/* Slot 47 is reserved */ -/* Slot 48 is reserved */ -#ifndef TclIncrVar2 -#define TclIncrVar2 \ - (tclIntStubsPtr->tclIncrVar2) /* 49 */ -#endif -#ifndef TclInitCompiledLocals -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ -#endif -#ifndef TclInterpInit -#define TclInterpInit \ - (tclIntStubsPtr->tclInterpInit) /* 51 */ -#endif -#ifndef TclInvoke -#define TclInvoke \ - (tclIntStubsPtr->tclInvoke) /* 52 */ -#endif -#ifndef TclInvokeObjectCommand -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#endif -#ifndef TclInvokeStringCommand -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ -#endif -#ifndef TclIsProc -#define TclIsProc \ - (tclIntStubsPtr->tclIsProc) /* 55 */ -#endif -/* Slot 56 is reserved */ -/* Slot 57 is reserved */ -#ifndef TclLookupVar -#define TclLookupVar \ - (tclIntStubsPtr->tclLookupVar) /* 58 */ -#endif -/* Slot 59 is reserved */ -#ifndef TclNeedSpace -#define TclNeedSpace \ - (tclIntStubsPtr->tclNeedSpace) /* 60 */ -#endif -#ifndef TclNewProcBodyObj -#define TclNewProcBodyObj \ - (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ -#endif -#ifndef TclObjCommandComplete -#define TclObjCommandComplete \ - (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ -#endif -#ifndef TclObjInterpProc -#define TclObjInterpProc \ - (tclIntStubsPtr->tclObjInterpProc) /* 63 */ -#endif -#ifndef TclObjInvoke -#define TclObjInvoke \ - (tclIntStubsPtr->tclObjInvoke) /* 64 */ -#endif -#ifndef TclObjInvokeGlobal -#define TclObjInvokeGlobal \ - (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */ -#endif -#ifndef TclOpenFileChannelDeleteProc -#define TclOpenFileChannelDeleteProc \ - (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */ -#endif -#ifndef TclOpenFileChannelInsertProc -#define TclOpenFileChannelInsertProc \ - (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */ -#endif -/* Slot 68 is reserved */ -#ifndef TclpAlloc -#define TclpAlloc \ - (tclIntStubsPtr->tclpAlloc) /* 69 */ -#endif -/* Slot 70 is reserved */ -/* Slot 71 is reserved */ -/* Slot 72 is reserved */ -/* Slot 73 is reserved */ -#ifndef TclpFree -#define TclpFree \ - (tclIntStubsPtr->tclpFree) /* 74 */ -#endif -#ifndef TclpGetClicks -#define TclpGetClicks \ - (tclIntStubsPtr->tclpGetClicks) /* 75 */ -#endif -#ifndef TclpGetSeconds -#define TclpGetSeconds \ - (tclIntStubsPtr->tclpGetSeconds) /* 76 */ -#endif -#ifndef TclpGetTime -#define TclpGetTime \ - (tclIntStubsPtr->tclpGetTime) /* 77 */ -#endif -#ifndef TclpGetTimeZone -#define TclpGetTimeZone \ - (tclIntStubsPtr->tclpGetTimeZone) /* 78 */ -#endif -/* Slot 79 is reserved */ -/* Slot 80 is reserved */ -#ifndef TclpRealloc -#define TclpRealloc \ - (tclIntStubsPtr->tclpRealloc) /* 81 */ -#endif -/* Slot 82 is reserved */ -/* Slot 83 is reserved */ -/* Slot 84 is reserved */ -/* Slot 85 is reserved */ -/* Slot 86 is reserved */ -/* Slot 87 is reserved */ -#ifndef TclPrecTraceProc -#define TclPrecTraceProc \ - (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ -#endif -#ifndef TclPreventAliasLoop -#define TclPreventAliasLoop \ - (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ -#endif -/* Slot 90 is reserved */ -#ifndef TclProcCleanupProc -#define TclProcCleanupProc \ - (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ -#endif -#ifndef TclProcCompileProc -#define TclProcCompileProc \ - (tclIntStubsPtr->tclProcCompileProc) /* 92 */ -#endif -#ifndef TclProcDeleteProc -#define TclProcDeleteProc \ - (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ -#endif -#ifndef TclProcInterpProc -#define TclProcInterpProc \ - (tclIntStubsPtr->tclProcInterpProc) /* 94 */ -#endif -/* Slot 95 is reserved */ -#ifndef TclRenameCommand -#define TclRenameCommand \ - (tclIntStubsPtr->tclRenameCommand) /* 96 */ -#endif -#ifndef TclResetShadowedCmdRefs -#define TclResetShadowedCmdRefs \ - (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ -#endif -#ifndef TclServiceIdle -#define TclServiceIdle \ - (tclIntStubsPtr->tclServiceIdle) /* 98 */ -#endif -/* Slot 99 is reserved */ -/* Slot 100 is reserved */ -#ifndef TclSetPreInitScript -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#endif -#ifndef TclSetupEnv -#define TclSetupEnv \ - (tclIntStubsPtr->tclSetupEnv) /* 102 */ -#endif -#ifndef TclSockGetPort -#define TclSockGetPort \ - (tclIntStubsPtr->tclSockGetPort) /* 103 */ -#endif -#if !defined(__WIN32__) /* UNIX */ -#ifndef TclSockMinimumBuffers -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclSockMinimumBuffers -#define TclSockMinimumBuffers \ - (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ -#endif -#endif /* __WIN32__ */ -/* Slot 105 is reserved */ -#ifndef TclStatDeleteProc -#define TclStatDeleteProc \ - (tclIntStubsPtr->tclStatDeleteProc) /* 106 */ -#endif -#ifndef TclStatInsertProc -#define TclStatInsertProc \ - (tclIntStubsPtr->tclStatInsertProc) /* 107 */ -#endif -#ifndef TclTeardownNamespace -#define TclTeardownNamespace \ - (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ -#endif -#ifndef TclUpdateReturnInfo -#define TclUpdateReturnInfo \ - (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ -#endif -/* Slot 110 is reserved */ -#ifndef Tcl_AddInterpResolvers -#define Tcl_AddInterpResolvers \ - (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclIntStubsPtr->tcl_Export) /* 115 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclIntStubsPtr->tcl_FindCommand) /* 116 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ -#endif -#ifndef Tcl_GetInterpResolvers -#define Tcl_GetInterpResolvers \ - (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ -#endif -#ifndef Tcl_GetNamespaceResolvers -#define Tcl_GetNamespaceResolvers \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ -#endif -#ifndef Tcl_FindNamespaceVar -#define Tcl_FindNamespaceVar \ - (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ -#endif -#ifndef Tcl_GetVariableFullName -#define Tcl_GetVariableFullName \ - (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclIntStubsPtr->tcl_Import) /* 127 */ -#endif -#ifndef Tcl_PopCallFrame -#define Tcl_PopCallFrame \ - (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ -#endif -#ifndef Tcl_PushCallFrame -#define Tcl_PushCallFrame \ - (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ -#endif -#ifndef Tcl_RemoveInterpResolvers -#define Tcl_RemoveInterpResolvers \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ -#endif -#ifndef Tcl_SetNamespaceResolvers -#define Tcl_SetNamespaceResolvers \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ -#endif -#ifndef TclpHasSockets -#define TclpHasSockets \ - (tclIntStubsPtr->tclpHasSockets) /* 132 */ -#endif -#ifndef TclpGetDate -#define TclpGetDate \ - (tclIntStubsPtr->tclpGetDate) /* 133 */ -#endif -#ifndef TclpStrftime -#define TclpStrftime \ - (tclIntStubsPtr->tclpStrftime) /* 134 */ -#endif -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -#ifndef TclGetEnv -#define TclGetEnv \ - (tclIntStubsPtr->tclGetEnv) /* 138 */ -#endif -/* Slot 139 is reserved */ -#ifndef TclLooksLikeInt -#define TclLooksLikeInt \ - (tclIntStubsPtr->tclLooksLikeInt) /* 140 */ -#endif -#ifndef TclpGetCwd -#define TclpGetCwd \ - (tclIntStubsPtr->tclpGetCwd) /* 141 */ -#endif -#ifndef TclSetByteCodeFromAny -#define TclSetByteCodeFromAny \ - (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ -#endif -#ifndef TclAddLiteralObj -#define TclAddLiteralObj \ - (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ -#endif -#ifndef TclHideLiteral -#define TclHideLiteral \ - (tclIntStubsPtr->tclHideLiteral) /* 144 */ -#endif -#ifndef TclGetAuxDataType -#define TclGetAuxDataType \ - (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ -#endif -#ifndef TclHandleCreate -#define TclHandleCreate \ - (tclIntStubsPtr->tclHandleCreate) /* 146 */ -#endif -#ifndef TclHandleFree -#define TclHandleFree \ - (tclIntStubsPtr->tclHandleFree) /* 147 */ -#endif -#ifndef TclHandlePreserve -#define TclHandlePreserve \ - (tclIntStubsPtr->tclHandlePreserve) /* 148 */ -#endif -#ifndef TclHandleRelease -#define TclHandleRelease \ - (tclIntStubsPtr->tclHandleRelease) /* 149 */ -#endif -#ifndef TclRegAbout -#define TclRegAbout \ - (tclIntStubsPtr->tclRegAbout) /* 150 */ -#endif -#ifndef TclRegExpRangeUniChar -#define TclRegExpRangeUniChar \ - (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#endif -#ifndef TclSetLibraryPath -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#endif -#ifndef TclGetLibraryPath -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ -#endif -/* Slot 154 is reserved */ -/* Slot 155 is reserved */ -#ifndef TclRegError -#define TclRegError \ - (tclIntStubsPtr->tclRegError) /* 156 */ -#endif -#ifndef TclVarTraceExists -#define TclVarTraceExists \ - (tclIntStubsPtr->tclVarTraceExists) /* 157 */ -#endif -#ifndef TclSetStartupScriptFileName -#define TclSetStartupScriptFileName \ - (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ -#endif -#ifndef TclGetStartupScriptFileName -#define TclGetStartupScriptFileName \ - (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ -#endif -/* Slot 160 is reserved */ -#ifndef TclChannelTransform -#define TclChannelTransform \ - (tclIntStubsPtr->tclChannelTransform) /* 161 */ -#endif -#ifndef TclChannelEventScriptInvoker -#define TclChannelEventScriptInvoker \ - (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ -#endif -#ifndef TclGetInstructionTable -#define TclGetInstructionTable \ - (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ -#endif -#ifndef TclExpandCodeArray -#define TclExpandCodeArray \ - (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ -#endif -#ifndef TclpSetInitialEncodings -#define TclpSetInitialEncodings \ - (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ -#endif -#ifndef TclListObjSetElement -#define TclListObjSetElement \ - (tclIntStubsPtr->tclListObjSetElement) /* 166 */ -#endif -#ifndef TclSetStartupScriptPath -#define TclSetStartupScriptPath \ - (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ -#endif -#ifndef TclGetStartupScriptPath -#define TclGetStartupScriptPath \ - (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ -#endif -#ifndef TclpUtfNcmp2 -#define TclpUtfNcmp2 \ - (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ -#endif -#ifndef TclCheckInterpTraces -#define TclCheckInterpTraces \ - (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ -#endif -#ifndef TclCheckExecutionTraces -#define TclCheckExecutionTraces \ - (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ -#endif -#ifndef TclInThreadExit -#define TclInThreadExit \ - (tclIntStubsPtr->tclInThreadExit) /* 172 */ -#endif -#ifndef TclUniCharMatch -#define TclUniCharMatch \ - (tclIntStubsPtr->tclUniCharMatch) /* 173 */ -#endif -#ifndef TclIncrWideVar2 -#define TclIncrWideVar2 \ - (tclIntStubsPtr->tclIncrWideVar2) /* 174 */ -#endif -#ifndef TclCallVarTraces -#define TclCallVarTraces \ - (tclIntStubsPtr->tclCallVarTraces) /* 175 */ -#endif -#ifndef TclCleanupVar -#define TclCleanupVar \ - (tclIntStubsPtr->tclCleanupVar) /* 176 */ -#endif -#ifndef TclVarErrMsg -#define TclVarErrMsg \ - (tclIntStubsPtr->tclVarErrMsg) /* 177 */ -#endif -#ifndef Tcl_SetStartupScript -#define Tcl_SetStartupScript \ - (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ -#endif -#ifndef Tcl_GetStartupScript -#define Tcl_GetStartupScript \ - (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ -#endif -#ifndef TclNewListObjDirect -#define TclNewListObjDirect \ - (tclIntStubsPtr->tclNewListObjDirect) /* 180 */ -#endif -#ifndef TclDbNewListObjDirect -#define TclDbNewListObjDirect \ - (tclIntStubsPtr->tclDbNewListObjDirect) /* 181 */ -#endif -#ifndef TclpLocaltime -#define TclpLocaltime \ - (tclIntStubsPtr->tclpLocaltime) /* 182 */ -#endif -#ifndef TclpGmtime -#define TclpGmtime \ - (tclIntStubsPtr->tclpGmtime) /* 183 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TCLINTDECLS */ +/*
+ * tclIntDecls.h --
+ *
+ * This file contains the declarations for all unsupported
+ * functions that are exported by the Tcl library. These
+ * interfaces are not guaranteed to remain the same between
+ * versions. Use at your own risk.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.63 2004/06/05 17:31:08 kennykb Exp $
+ */
+
+#ifndef _TCLINTDECLS
+#define _TCLINTDECLS
+
+#include "tclPort.h"
+
+#ifdef BUILD_tcl
+# undef TCL_STORAGE_CLASS
+# define TCL_STORAGE_CLASS DLLEXPORT
+#endif /* BUILD_tcl */
+
+/*
+ * 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 function declarations:
+ */
+
+/* Slot 0 is reserved */
+#ifndef TclAccessDeleteProc_TCL_DECLARED
+#define TclAccessDeleteProc_TCL_DECLARED
+/* 1 */
+EXTERN int TclAccessDeleteProc _ANSI_ARGS_((
+ TclAccessProc_ * proc));
+#endif
+#ifndef TclAccessInsertProc_TCL_DECLARED
+#define TclAccessInsertProc_TCL_DECLARED
+/* 2 */
+EXTERN int TclAccessInsertProc _ANSI_ARGS_((
+ TclAccessProc_ * proc));
+#endif
+#ifndef TclAllocateFreeObjects_TCL_DECLARED
+#define TclAllocateFreeObjects_TCL_DECLARED
+/* 3 */
+EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void));
+#endif
+/* Slot 4 is reserved */
+#if !defined(__WIN32__) /* UNIX */
+#ifndef TclCleanupChildren_TCL_DECLARED
+#define TclCleanupChildren_TCL_DECLARED
+/* 5 */
+EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
+ int numPids, Tcl_Pid * pidPtr,
+ Tcl_Channel errorChan));
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TclCleanupChildren_TCL_DECLARED
+#define TclCleanupChildren_TCL_DECLARED
+/* 5 */
+EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
+ int numPids, Tcl_Pid * pidPtr,
+ Tcl_Channel errorChan));
+#endif
+#endif /* __WIN32__ */
+#ifndef TclCleanupCommand_TCL_DECLARED
+#define TclCleanupCommand_TCL_DECLARED
+/* 6 */
+EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
+#endif
+#ifndef TclCopyAndCollapse_TCL_DECLARED
+#define TclCopyAndCollapse_TCL_DECLARED
+/* 7 */
+EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count,
+ CONST char * src, char * dst));
+#endif
+#ifndef TclCopyChannel_TCL_DECLARED
+#define TclCopyChannel_TCL_DECLARED
+/* 8 */
+EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Channel inChan, Tcl_Channel outChan,
+ int toRead, Tcl_Obj * cmdPtr));
+#endif
+#if !defined(__WIN32__) /* UNIX */
+#ifndef TclCreatePipeline_TCL_DECLARED
+#define TclCreatePipeline_TCL_DECLARED
+/* 9 */
+EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
+ int argc, CONST char ** argv,
+ Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
+ TclFile * outPipePtr, TclFile * errFilePtr));
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TclCreatePipeline_TCL_DECLARED
+#define TclCreatePipeline_TCL_DECLARED
+/* 9 */
+EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
+ int argc, CONST char ** argv,
+ Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
+ TclFile * outPipePtr, TclFile * errFilePtr));
+#endif
+#endif /* __WIN32__ */
+#ifndef TclCreateProc_TCL_DECLARED
+#define TclCreateProc_TCL_DECLARED
+/* 10 */
+EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp,
+ Namespace * nsPtr, CONST char * procName,
+ Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr,
+ Proc ** procPtrPtr));
+#endif
+#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED
+#define TclDeleteCompiledLocalVars_TCL_DECLARED
+/* 11 */
+EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_((
+ Interp * iPtr, CallFrame * framePtr));
+#endif
+#ifndef TclDeleteVars_TCL_DECLARED
+#define TclDeleteVars_TCL_DECLARED
+/* 12 */
+EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr,
+ Tcl_HashTable * tablePtr));
+#endif
+/* Slot 13 is reserved */
+#ifndef TclDumpMemoryInfo_TCL_DECLARED
+#define TclDumpMemoryInfo_TCL_DECLARED
+/* 14 */
+EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
+#endif
+/* Slot 15 is reserved */
+#ifndef TclExprFloatError_TCL_DECLARED
+#define TclExprFloatError_TCL_DECLARED
+/* 16 */
+EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
+ double value));
+#endif
+/* Slot 17 is reserved */
+/* Slot 18 is reserved */
+/* Slot 19 is reserved */
+/* Slot 20 is reserved */
+/* Slot 21 is reserved */
+#ifndef TclFindElement_TCL_DECLARED
+#define TclFindElement_TCL_DECLARED
+/* 22 */
+EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * listStr, int listLength,
+ CONST char ** elementPtr,
+ CONST char ** nextPtr, int * sizePtr,
+ int * bracePtr));
+#endif
+#ifndef TclFindProc_TCL_DECLARED
+#define TclFindProc_TCL_DECLARED
+/* 23 */
+EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr,
+ CONST char * procName));
+#endif
+#ifndef TclFormatInt_TCL_DECLARED
+#define TclFormatInt_TCL_DECLARED
+/* 24 */
+EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n));
+#endif
+#ifndef TclFreePackageInfo_TCL_DECLARED
+#define TclFreePackageInfo_TCL_DECLARED
+/* 25 */
+EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
+#endif
+/* Slot 26 is reserved */
+#ifndef TclGetDate_TCL_DECLARED
+#define TclGetDate_TCL_DECLARED
+/* 27 */
+EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now,
+ long zone, unsigned long * timePtr));
+#endif
+#ifndef TclpGetDefaultStdChannel_TCL_DECLARED
+#define TclpGetDefaultStdChannel_TCL_DECLARED
+/* 28 */
+EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
+#endif
+/* Slot 29 is reserved */
+/* Slot 30 is reserved */
+#ifndef TclGetExtension_TCL_DECLARED
+#define TclGetExtension_TCL_DECLARED
+/* 31 */
+EXTERN CONST char * TclGetExtension _ANSI_ARGS_((CONST char * name));
+#endif
+#ifndef TclGetFrame_TCL_DECLARED
+#define TclGetFrame_TCL_DECLARED
+/* 32 */
+EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * str, CallFrame ** framePtrPtr));
+#endif
+#ifndef TclGetInterpProc_TCL_DECLARED
+#define TclGetInterpProc_TCL_DECLARED
+/* 33 */
+EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void));
+#endif
+#ifndef TclGetIntForIndex_TCL_DECLARED
+#define TclGetIntForIndex_TCL_DECLARED
+/* 34 */
+EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Obj * objPtr, int endValue,
+ int * indexPtr));
+#endif
+/* Slot 35 is reserved */
+#ifndef TclGetLong_TCL_DECLARED
+#define TclGetLong_TCL_DECLARED
+/* 36 */
+EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * str, long * longPtr));
+#endif
+#ifndef TclGetLoadedPackages_TCL_DECLARED
+#define TclGetLoadedPackages_TCL_DECLARED
+/* 37 */
+EXTERN int TclGetLoadedPackages _ANSI_ARGS_((
+ Tcl_Interp * interp, char * targetName));
+#endif
+#ifndef TclGetNamespaceForQualName_TCL_DECLARED
+#define TclGetNamespaceForQualName_TCL_DECLARED
+/* 38 */
+EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * qualName,
+ Namespace * cxtNsPtr, int flags,
+ Namespace ** nsPtrPtr,
+ Namespace ** altNsPtrPtr,
+ Namespace ** actualCxtPtrPtr,
+ CONST char ** simpleNamePtr));
+#endif
+#ifndef TclGetObjInterpProc_TCL_DECLARED
+#define TclGetObjInterpProc_TCL_DECLARED
+/* 39 */
+EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
+#endif
+#ifndef TclGetOpenMode_TCL_DECLARED
+#define TclGetOpenMode_TCL_DECLARED
+/* 40 */
+EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * str, int * seekFlagPtr));
+#endif
+#ifndef TclGetOriginalCommand_TCL_DECLARED
+#define TclGetOriginalCommand_TCL_DECLARED
+/* 41 */
+EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_((
+ Tcl_Command command));
+#endif
+#ifndef TclpGetUserHome_TCL_DECLARED
+#define TclpGetUserHome_TCL_DECLARED
+/* 42 */
+EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name,
+ Tcl_DString * bufferPtr));
+#endif
+#ifndef TclGlobalInvoke_TCL_DECLARED
+#define TclGlobalInvoke_TCL_DECLARED
+/* 43 */
+EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp,
+ int argc, CONST84 char ** argv, int flags));
+#endif
+#ifndef TclGuessPackageName_TCL_DECLARED
+#define TclGuessPackageName_TCL_DECLARED
+/* 44 */
+EXTERN int TclGuessPackageName _ANSI_ARGS_((
+ CONST char * fileName, Tcl_DString * bufPtr));
+#endif
+#ifndef TclHideUnsafeCommands_TCL_DECLARED
+#define TclHideUnsafeCommands_TCL_DECLARED
+/* 45 */
+EXTERN int TclHideUnsafeCommands _ANSI_ARGS_((
+ Tcl_Interp * interp));
+#endif
+#ifndef TclInExit_TCL_DECLARED
+#define TclInExit_TCL_DECLARED
+/* 46 */
+EXTERN int TclInExit _ANSI_ARGS_((void));
+#endif
+/* Slot 47 is reserved */
+/* Slot 48 is reserved */
+#ifndef TclIncrVar2_TCL_DECLARED
+#define TclIncrVar2_TCL_DECLARED
+/* 49 */
+EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
+ long incrAmount, int part1NotParsed));
+#endif
+#ifndef TclInitCompiledLocals_TCL_DECLARED
+#define TclInitCompiledLocals_TCL_DECLARED
+/* 50 */
+EXTERN void TclInitCompiledLocals _ANSI_ARGS_((
+ Tcl_Interp * interp, CallFrame * framePtr,
+ Namespace * nsPtr));
+#endif
+#ifndef TclInterpInit_TCL_DECLARED
+#define TclInterpInit_TCL_DECLARED
+/* 51 */
+EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
+#endif
+#ifndef TclInvoke_TCL_DECLARED
+#define TclInvoke_TCL_DECLARED
+/* 52 */
+EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc,
+ CONST84 char ** argv, int flags));
+#endif
+#ifndef TclInvokeObjectCommand_TCL_DECLARED
+#define TclInvokeObjectCommand_TCL_DECLARED
+/* 53 */
+EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
+ ClientData clientData, Tcl_Interp * interp,
+ int argc, CONST84 char ** argv));
+#endif
+#ifndef TclInvokeStringCommand_TCL_DECLARED
+#define TclInvokeStringCommand_TCL_DECLARED
+/* 54 */
+EXTERN int TclInvokeStringCommand _ANSI_ARGS_((
+ ClientData clientData, Tcl_Interp * interp,
+ int objc, Tcl_Obj *CONST objv[]));
+#endif
+#ifndef TclIsProc_TCL_DECLARED
+#define TclIsProc_TCL_DECLARED
+/* 55 */
+EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr));
+#endif
+/* Slot 56 is reserved */
+/* Slot 57 is reserved */
+#ifndef TclLookupVar_TCL_DECLARED
+#define TclLookupVar_TCL_DECLARED
+/* 58 */
+EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * part1, CONST char * part2,
+ int flags, CONST char * msg, int createPart1,
+ int createPart2, Var ** arrayPtrPtr));
+#endif
+/* Slot 59 is reserved */
+#ifndef TclNeedSpace_TCL_DECLARED
+#define TclNeedSpace_TCL_DECLARED
+/* 60 */
+EXTERN int TclNeedSpace _ANSI_ARGS_((CONST char * start,
+ CONST char * end));
+#endif
+#ifndef TclNewProcBodyObj_TCL_DECLARED
+#define TclNewProcBodyObj_TCL_DECLARED
+/* 61 */
+EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
+#endif
+#ifndef TclObjCommandComplete_TCL_DECLARED
+#define TclObjCommandComplete_TCL_DECLARED
+/* 62 */
+EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
+#endif
+#ifndef TclObjInterpProc_TCL_DECLARED
+#define TclObjInterpProc_TCL_DECLARED
+/* 63 */
+EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp * interp, int objc,
+ Tcl_Obj *CONST objv[]));
+#endif
+#ifndef TclObjInvoke_TCL_DECLARED
+#define TclObjInvoke_TCL_DECLARED
+/* 64 */
+EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
+ int objc, Tcl_Obj *CONST objv[], int flags));
+#endif
+#ifndef TclObjInvokeGlobal_TCL_DECLARED
+#define TclObjInvokeGlobal_TCL_DECLARED
+/* 65 */
+EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp,
+ int objc, Tcl_Obj *CONST objv[], int flags));
+#endif
+#ifndef TclOpenFileChannelDeleteProc_TCL_DECLARED
+#define TclOpenFileChannelDeleteProc_TCL_DECLARED
+/* 66 */
+EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_((
+ TclOpenFileChannelProc_ * proc));
+#endif
+#ifndef TclOpenFileChannelInsertProc_TCL_DECLARED
+#define TclOpenFileChannelInsertProc_TCL_DECLARED
+/* 67 */
+EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_((
+ TclOpenFileChannelProc_ * proc));
+#endif
+/* Slot 68 is reserved */
+#ifndef TclpAlloc_TCL_DECLARED
+#define TclpAlloc_TCL_DECLARED
+/* 69 */
+EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
+#endif
+/* Slot 70 is reserved */
+/* Slot 71 is reserved */
+/* Slot 72 is reserved */
+/* Slot 73 is reserved */
+#ifndef TclpFree_TCL_DECLARED
+#define TclpFree_TCL_DECLARED
+/* 74 */
+EXTERN void TclpFree _ANSI_ARGS_((char * ptr));
+#endif
+#ifndef TclpGetClicks_TCL_DECLARED
+#define TclpGetClicks_TCL_DECLARED
+/* 75 */
+EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void));
+#endif
+#ifndef TclpGetSeconds_TCL_DECLARED
+#define TclpGetSeconds_TCL_DECLARED
+/* 76 */
+EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void));
+#endif
+#ifndef TclpGetTime_TCL_DECLARED
+#define TclpGetTime_TCL_DECLARED
+/* 77 */
+EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
+#endif
+#ifndef TclpGetTimeZone_TCL_DECLARED
+#define TclpGetTimeZone_TCL_DECLARED
+/* 78 */
+EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
+#endif
+/* Slot 79 is reserved */
+/* Slot 80 is reserved */
+#ifndef TclpRealloc_TCL_DECLARED
+#define TclpRealloc_TCL_DECLARED
+/* 81 */
+EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
+ unsigned int size));
+#endif
+/* Slot 82 is reserved */
+/* Slot 83 is reserved */
+/* Slot 84 is reserved */
+/* Slot 85 is reserved */
+/* Slot 86 is reserved */
+/* Slot 87 is reserved */
+#ifndef TclPrecTraceProc_TCL_DECLARED
+#define TclPrecTraceProc_TCL_DECLARED
+/* 88 */
+EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp * interp, CONST char * name1,
+ CONST char * name2, int flags));
+#endif
+#ifndef TclPreventAliasLoop_TCL_DECLARED
+#define TclPreventAliasLoop_TCL_DECLARED
+/* 89 */
+EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Interp * cmdInterp, Tcl_Command cmd));
+#endif
+/* Slot 90 is reserved */
+#ifndef TclProcCleanupProc_TCL_DECLARED
+#define TclProcCleanupProc_TCL_DECLARED
+/* 91 */
+EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
+#endif
+#ifndef TclProcCompileProc_TCL_DECLARED
+#define TclProcCompileProc_TCL_DECLARED
+/* 92 */
+EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp,
+ Proc * procPtr, Tcl_Obj * bodyPtr,
+ Namespace * nsPtr, CONST char * description,
+ CONST char * procName));
+#endif
+#ifndef TclProcDeleteProc_TCL_DECLARED
+#define TclProcDeleteProc_TCL_DECLARED
+/* 93 */
+EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
+#endif
+#ifndef TclProcInterpProc_TCL_DECLARED
+#define TclProcInterpProc_TCL_DECLARED
+/* 94 */
+EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp * interp, int argc,
+ CONST84 char ** argv));
+#endif
+/* Slot 95 is reserved */
+#ifndef TclRenameCommand_TCL_DECLARED
+#define TclRenameCommand_TCL_DECLARED
+/* 96 */
+EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp,
+ char * oldName, char * newName));
+#endif
+#ifndef TclResetShadowedCmdRefs_TCL_DECLARED
+#define TclResetShadowedCmdRefs_TCL_DECLARED
+/* 97 */
+EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_((
+ Tcl_Interp * interp, Command * newCmdPtr));
+#endif
+#ifndef TclServiceIdle_TCL_DECLARED
+#define TclServiceIdle_TCL_DECLARED
+/* 98 */
+EXTERN int TclServiceIdle _ANSI_ARGS_((void));
+#endif
+/* Slot 99 is reserved */
+/* Slot 100 is reserved */
+#ifndef TclSetPreInitScript_TCL_DECLARED
+#define TclSetPreInitScript_TCL_DECLARED
+/* 101 */
+EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
+#endif
+#ifndef TclSetupEnv_TCL_DECLARED
+#define TclSetupEnv_TCL_DECLARED
+/* 102 */
+EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
+#endif
+#ifndef TclSockGetPort_TCL_DECLARED
+#define TclSockGetPort_TCL_DECLARED
+/* 103 */
+EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp,
+ char * str, char * proto, int * portPtr));
+#endif
+#if !defined(__WIN32__) /* UNIX */
+#ifndef TclSockMinimumBuffers_TCL_DECLARED
+#define TclSockMinimumBuffers_TCL_DECLARED
+/* 104 */
+EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
+ int size));
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TclSockMinimumBuffers_TCL_DECLARED
+#define TclSockMinimumBuffers_TCL_DECLARED
+/* 104 */
+EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
+ int size));
+#endif
+#endif /* __WIN32__ */
+/* Slot 105 is reserved */
+#ifndef TclStatDeleteProc_TCL_DECLARED
+#define TclStatDeleteProc_TCL_DECLARED
+/* 106 */
+EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
+#endif
+#ifndef TclStatInsertProc_TCL_DECLARED
+#define TclStatInsertProc_TCL_DECLARED
+/* 107 */
+EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
+#endif
+#ifndef TclTeardownNamespace_TCL_DECLARED
+#define TclTeardownNamespace_TCL_DECLARED
+/* 108 */
+EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
+#endif
+#ifndef TclUpdateReturnInfo_TCL_DECLARED
+#define TclUpdateReturnInfo_TCL_DECLARED
+/* 109 */
+EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
+#endif
+/* Slot 110 is reserved */
+#ifndef Tcl_AddInterpResolvers_TCL_DECLARED
+#define Tcl_AddInterpResolvers_TCL_DECLARED
+/* 111 */
+EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * name,
+ Tcl_ResolveCmdProc * cmdProc,
+ Tcl_ResolveVarProc * varProc,
+ Tcl_ResolveCompiledVarProc * compiledVarProc));
+#endif
+#ifndef Tcl_AppendExportList_TCL_DECLARED
+#define Tcl_AppendExportList_TCL_DECLARED
+/* 112 */
+EXTERN int Tcl_AppendExportList _ANSI_ARGS_((
+ Tcl_Interp * interp, Tcl_Namespace * nsPtr,
+ Tcl_Obj * objPtr));
+#endif
+#ifndef Tcl_CreateNamespace_TCL_DECLARED
+#define Tcl_CreateNamespace_TCL_DECLARED
+/* 113 */
+EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * name, ClientData clientData,
+ Tcl_NamespaceDeleteProc * deleteProc));
+#endif
+#ifndef Tcl_DeleteNamespace_TCL_DECLARED
+#define Tcl_DeleteNamespace_TCL_DECLARED
+/* 114 */
+EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((
+ Tcl_Namespace * nsPtr));
+#endif
+#ifndef Tcl_Export_TCL_DECLARED
+#define Tcl_Export_TCL_DECLARED
+/* 115 */
+EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, CONST char * pattern,
+ int resetListFirst));
+#endif
+#ifndef Tcl_FindCommand_TCL_DECLARED
+#define Tcl_FindCommand_TCL_DECLARED
+/* 116 */
+EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * name,
+ Tcl_Namespace * contextNsPtr, int flags));
+#endif
+#ifndef Tcl_FindNamespace_TCL_DECLARED
+#define Tcl_FindNamespace_TCL_DECLARED
+/* 117 */
+EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * name,
+ Tcl_Namespace * contextNsPtr, int flags));
+#endif
+#ifndef Tcl_GetInterpResolvers_TCL_DECLARED
+#define Tcl_GetInterpResolvers_TCL_DECLARED
+/* 118 */
+EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * name,
+ Tcl_ResolverInfo * resInfo));
+#endif
+#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED
+#define Tcl_GetNamespaceResolvers_TCL_DECLARED
+/* 119 */
+EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_((
+ Tcl_Namespace * namespacePtr,
+ Tcl_ResolverInfo * resInfo));
+#endif
+#ifndef Tcl_FindNamespaceVar_TCL_DECLARED
+#define Tcl_FindNamespaceVar_TCL_DECLARED
+/* 120 */
+EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * name,
+ Tcl_Namespace * contextNsPtr, int flags));
+#endif
+#ifndef Tcl_ForgetImport_TCL_DECLARED
+#define Tcl_ForgetImport_TCL_DECLARED
+/* 121 */
+EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, CONST char * pattern));
+#endif
+#ifndef Tcl_GetCommandFromObj_TCL_DECLARED
+#define Tcl_GetCommandFromObj_TCL_DECLARED
+/* 122 */
+EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_((
+ Tcl_Interp * interp, Tcl_Obj * objPtr));
+#endif
+#ifndef Tcl_GetCommandFullName_TCL_DECLARED
+#define Tcl_GetCommandFullName_TCL_DECLARED
+/* 123 */
+EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_((
+ Tcl_Interp * interp, Tcl_Command command,
+ Tcl_Obj * objPtr));
+#endif
+#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
+#define Tcl_GetCurrentNamespace_TCL_DECLARED
+/* 124 */
+EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_((
+ Tcl_Interp * interp));
+#endif
+#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
+#define Tcl_GetGlobalNamespace_TCL_DECLARED
+/* 125 */
+EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_((
+ Tcl_Interp * interp));
+#endif
+#ifndef Tcl_GetVariableFullName_TCL_DECLARED
+#define Tcl_GetVariableFullName_TCL_DECLARED
+/* 126 */
+EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_((
+ Tcl_Interp * interp, Tcl_Var variable,
+ Tcl_Obj * objPtr));
+#endif
+#ifndef Tcl_Import_TCL_DECLARED
+#define Tcl_Import_TCL_DECLARED
+/* 127 */
+EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, CONST char * pattern,
+ int allowOverwrite));
+#endif
+#ifndef Tcl_PopCallFrame_TCL_DECLARED
+#define Tcl_PopCallFrame_TCL_DECLARED
+/* 128 */
+EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp * interp));
+#endif
+#ifndef Tcl_PushCallFrame_TCL_DECLARED
+#define Tcl_PushCallFrame_TCL_DECLARED
+/* 129 */
+EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_CallFrame * framePtr,
+ Tcl_Namespace * nsPtr, int isProcCallFrame));
+#endif
+#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED
+#define Tcl_RemoveInterpResolvers_TCL_DECLARED
+/* 130 */
+EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * name));
+#endif
+#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED
+#define Tcl_SetNamespaceResolvers_TCL_DECLARED
+/* 131 */
+EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_((
+ Tcl_Namespace * namespacePtr,
+ Tcl_ResolveCmdProc * cmdProc,
+ Tcl_ResolveVarProc * varProc,
+ Tcl_ResolveCompiledVarProc * compiledVarProc));
+#endif
+#ifndef TclpHasSockets_TCL_DECLARED
+#define TclpHasSockets_TCL_DECLARED
+/* 132 */
+EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
+#endif
+#ifndef TclpGetDate_TCL_DECLARED
+#define TclpGetDate_TCL_DECLARED
+/* 133 */
+EXTERN struct tm * TclpGetDate _ANSI_ARGS_((CONST time_t * time,
+ int useGMT));
+#endif
+#ifndef TclpStrftime_TCL_DECLARED
+#define TclpStrftime_TCL_DECLARED
+/* 134 */
+EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize,
+ CONST char * format, CONST struct tm * t,
+ int useGMT));
+#endif
+/* Slot 135 is reserved */
+/* Slot 136 is reserved */
+/* Slot 137 is reserved */
+#ifndef TclGetEnv_TCL_DECLARED
+#define TclGetEnv_TCL_DECLARED
+/* 138 */
+EXTERN CONST84_RETURN char * TclGetEnv _ANSI_ARGS_((CONST char * name,
+ Tcl_DString * valuePtr));
+#endif
+/* Slot 139 is reserved */
+#ifndef TclLooksLikeInt_TCL_DECLARED
+#define TclLooksLikeInt_TCL_DECLARED
+/* 140 */
+EXTERN int TclLooksLikeInt _ANSI_ARGS_((CONST char * bytes,
+ int length));
+#endif
+#ifndef TclpGetCwd_TCL_DECLARED
+#define TclpGetCwd_TCL_DECLARED
+/* 141 */
+EXTERN CONST84_RETURN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_DString * cwdPtr));
+#endif
+#ifndef TclSetByteCodeFromAny_TCL_DECLARED
+#define TclSetByteCodeFromAny_TCL_DECLARED
+/* 142 */
+EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_((
+ Tcl_Interp * interp, Tcl_Obj * objPtr,
+ CompileHookProc * hookProc,
+ ClientData clientData));
+#endif
+#ifndef TclAddLiteralObj_TCL_DECLARED
+#define TclAddLiteralObj_TCL_DECLARED
+/* 143 */
+EXTERN int TclAddLiteralObj _ANSI_ARGS_((
+ struct CompileEnv * envPtr, Tcl_Obj * objPtr,
+ LiteralEntry ** litPtrPtr));
+#endif
+#ifndef TclHideLiteral_TCL_DECLARED
+#define TclHideLiteral_TCL_DECLARED
+/* 144 */
+EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp,
+ struct CompileEnv * envPtr, int index));
+#endif
+#ifndef TclGetAuxDataType_TCL_DECLARED
+#define TclGetAuxDataType_TCL_DECLARED
+/* 145 */
+EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
+#endif
+#ifndef TclHandleCreate_TCL_DECLARED
+#define TclHandleCreate_TCL_DECLARED
+/* 146 */
+EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr));
+#endif
+#ifndef TclHandleFree_TCL_DECLARED
+#define TclHandleFree_TCL_DECLARED
+/* 147 */
+EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle));
+#endif
+#ifndef TclHandlePreserve_TCL_DECLARED
+#define TclHandlePreserve_TCL_DECLARED
+/* 148 */
+EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
+#endif
+#ifndef TclHandleRelease_TCL_DECLARED
+#define TclHandleRelease_TCL_DECLARED
+/* 149 */
+EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle));
+#endif
+#ifndef TclRegAbout_TCL_DECLARED
+#define TclRegAbout_TCL_DECLARED
+/* 150 */
+EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_RegExp re));
+#endif
+#ifndef TclRegExpRangeUniChar_TCL_DECLARED
+#define TclRegExpRangeUniChar_TCL_DECLARED
+/* 151 */
+EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re,
+ int index, int * startPtr, int * endPtr));
+#endif
+#ifndef TclSetLibraryPath_TCL_DECLARED
+#define TclSetLibraryPath_TCL_DECLARED
+/* 152 */
+EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
+#endif
+#ifndef TclGetLibraryPath_TCL_DECLARED
+#define TclGetLibraryPath_TCL_DECLARED
+/* 153 */
+EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void));
+#endif
+/* Slot 154 is reserved */
+/* Slot 155 is reserved */
+#ifndef TclRegError_TCL_DECLARED
+#define TclRegError_TCL_DECLARED
+/* 156 */
+EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * msg, int status));
+#endif
+#ifndef TclVarTraceExists_TCL_DECLARED
+#define TclVarTraceExists_TCL_DECLARED
+/* 157 */
+EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * varName));
+#endif
+#ifndef TclSetStartupScriptFileName_TCL_DECLARED
+#define TclSetStartupScriptFileName_TCL_DECLARED
+/* 158 */
+EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_((
+ CONST char * filename));
+#endif
+#ifndef TclGetStartupScriptFileName_TCL_DECLARED
+#define TclGetStartupScriptFileName_TCL_DECLARED
+/* 159 */
+EXTERN CONST84_RETURN char * TclGetStartupScriptFileName _ANSI_ARGS_((void));
+#endif
+/* Slot 160 is reserved */
+#ifndef TclChannelTransform_TCL_DECLARED
+#define TclChannelTransform_TCL_DECLARED
+/* 161 */
+EXTERN int TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
+#endif
+#ifndef TclChannelEventScriptInvoker_TCL_DECLARED
+#define TclChannelEventScriptInvoker_TCL_DECLARED
+/* 162 */
+EXTERN void TclChannelEventScriptInvoker _ANSI_ARGS_((
+ ClientData clientData, int flags));
+#endif
+#ifndef TclGetInstructionTable_TCL_DECLARED
+#define TclGetInstructionTable_TCL_DECLARED
+/* 163 */
+EXTERN void * TclGetInstructionTable _ANSI_ARGS_((void));
+#endif
+#ifndef TclExpandCodeArray_TCL_DECLARED
+#define TclExpandCodeArray_TCL_DECLARED
+/* 164 */
+EXTERN void TclExpandCodeArray _ANSI_ARGS_((void * envPtr));
+#endif
+#ifndef TclpSetInitialEncodings_TCL_DECLARED
+#define TclpSetInitialEncodings_TCL_DECLARED
+/* 165 */
+EXTERN void TclpSetInitialEncodings _ANSI_ARGS_((void));
+#endif
+#ifndef TclListObjSetElement_TCL_DECLARED
+#define TclListObjSetElement_TCL_DECLARED
+/* 166 */
+EXTERN int TclListObjSetElement _ANSI_ARGS_((
+ Tcl_Interp * interp, Tcl_Obj * listPtr,
+ int index, Tcl_Obj * valuePtr));
+#endif
+#ifndef TclSetStartupScriptPath_TCL_DECLARED
+#define TclSetStartupScriptPath_TCL_DECLARED
+/* 167 */
+EXTERN void TclSetStartupScriptPath _ANSI_ARGS_((
+ Tcl_Obj * pathPtr));
+#endif
+#ifndef TclGetStartupScriptPath_TCL_DECLARED
+#define TclGetStartupScriptPath_TCL_DECLARED
+/* 168 */
+EXTERN Tcl_Obj * TclGetStartupScriptPath _ANSI_ARGS_((void));
+#endif
+#ifndef TclpUtfNcmp2_TCL_DECLARED
+#define TclpUtfNcmp2_TCL_DECLARED
+/* 169 */
+EXTERN int TclpUtfNcmp2 _ANSI_ARGS_((CONST char * s1,
+ CONST char * s2, unsigned long n));
+#endif
+#ifndef TclCheckInterpTraces_TCL_DECLARED
+#define TclCheckInterpTraces_TCL_DECLARED
+/* 170 */
+EXTERN int TclCheckInterpTraces _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * command,
+ int numChars, Command * cmdPtr, int result,
+ int traceFlags, int objc,
+ Tcl_Obj *CONST objv[]));
+#endif
+#ifndef TclCheckExecutionTraces_TCL_DECLARED
+#define TclCheckExecutionTraces_TCL_DECLARED
+/* 171 */
+EXTERN int TclCheckExecutionTraces _ANSI_ARGS_((
+ Tcl_Interp * interp, CONST char * command,
+ int numChars, Command * cmdPtr, int result,
+ int traceFlags, int objc,
+ Tcl_Obj *CONST objv[]));
+#endif
+#ifndef TclInThreadExit_TCL_DECLARED
+#define TclInThreadExit_TCL_DECLARED
+/* 172 */
+EXTERN int TclInThreadExit _ANSI_ARGS_((void));
+#endif
+#ifndef TclUniCharMatch_TCL_DECLARED
+#define TclUniCharMatch_TCL_DECLARED
+/* 173 */
+EXTERN int TclUniCharMatch _ANSI_ARGS_((
+ CONST Tcl_UniChar * string, int strLen,
+ CONST Tcl_UniChar * pattern, int ptnLen,
+ int nocase));
+#endif
+#ifndef TclIncrWideVar2_TCL_DECLARED
+#define TclIncrWideVar2_TCL_DECLARED
+/* 174 */
+EXTERN Tcl_Obj * TclIncrWideVar2 _ANSI_ARGS_((Tcl_Interp * interp,
+ Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
+ Tcl_WideInt wideIncrAmount,
+ int part1NotParsed));
+#endif
+#ifndef TclCallVarTraces_TCL_DECLARED
+#define TclCallVarTraces_TCL_DECLARED
+/* 175 */
+EXTERN int TclCallVarTraces _ANSI_ARGS_((Interp * iPtr,
+ Var * arrayPtr, Var * varPtr,
+ CONST char * part1, CONST char * part2,
+ int flags, int leaveErrMsg));
+#endif
+#ifndef TclCleanupVar_TCL_DECLARED
+#define TclCleanupVar_TCL_DECLARED
+/* 176 */
+EXTERN void TclCleanupVar _ANSI_ARGS_((Var * varPtr,
+ Var * arrayPtr));
+#endif
+#ifndef TclVarErrMsg_TCL_DECLARED
+#define TclVarErrMsg_TCL_DECLARED
+/* 177 */
+EXTERN void TclVarErrMsg _ANSI_ARGS_((Tcl_Interp * interp,
+ CONST char * part1, CONST char * part2,
+ CONST char * operation, CONST char * reason));
+#endif
+#ifndef Tcl_SetStartupScript_TCL_DECLARED
+#define Tcl_SetStartupScript_TCL_DECLARED
+/* 178 */
+EXTERN void Tcl_SetStartupScript _ANSI_ARGS_((Tcl_Obj * pathPtr,
+ CONST char* encodingName));
+#endif
+#ifndef Tcl_GetStartupScript_TCL_DECLARED
+#define Tcl_GetStartupScript_TCL_DECLARED
+/* 179 */
+EXTERN Tcl_Obj * Tcl_GetStartupScript _ANSI_ARGS_((
+ CONST char ** encodingNamePtr));
+#endif
+#ifndef TclNewListObjDirect_TCL_DECLARED
+#define TclNewListObjDirect_TCL_DECLARED
+/* 180 */
+EXTERN Tcl_Obj * TclNewListObjDirect _ANSI_ARGS_((int objc,
+ Tcl_Obj ** objv));
+#endif
+#ifndef TclDbNewListObjDirect_TCL_DECLARED
+#define TclDbNewListObjDirect_TCL_DECLARED
+/* 181 */
+EXTERN Tcl_Obj * TclDbNewListObjDirect _ANSI_ARGS_((int objc,
+ Tcl_Obj ** objv, CONST char * file, int line));
+#endif
+#ifndef TclpLocaltime_TCL_DECLARED
+#define TclpLocaltime_TCL_DECLARED
+/* 182 */
+EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((CONST time_t * clock));
+#endif
+#ifndef TclpGmtime_TCL_DECLARED
+#define TclpGmtime_TCL_DECLARED
+/* 183 */
+EXTERN struct tm * TclpGmtime _ANSI_ARGS_((CONST time_t * clock));
+#endif
+
+typedef struct TclIntStubs {
+ int magic;
+ struct TclIntStubHooks *hooks;
+
+ void *reserved0;
+ int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
+ int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
+ void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
+ void *reserved4;
+#if !defined(__WIN32__) /* UNIX */
+ int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
+#endif /* UNIX */
+#ifdef __WIN32__
+ int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
+#endif /* __WIN32__ */
+ void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
+ int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
+ int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
+#if !defined(__WIN32__) /* UNIX */
+ int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
+#endif /* UNIX */
+#ifdef __WIN32__
+ int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
+#endif /* __WIN32__ */
+ int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
+ void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
+ void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
+ void *reserved13;
+ void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
+ void *reserved15;
+ void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
+ void *reserved17;
+ void *reserved18;
+ void *reserved19;
+ void *reserved20;
+ void *reserved21;
+ int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
+ Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */
+ int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
+ void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
+ void *reserved26;
+ int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
+ Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
+ void *reserved29;
+ void *reserved30;
+ CONST char * (*tclGetExtension) _ANSI_ARGS_((CONST char * name)); /* 31 */
+ int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */
+ TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
+ int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
+ void *reserved35;
+ int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */
+ int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
+ int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */
+ TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
+ int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */
+ Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
+ char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
+ int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 43 */
+ int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */
+ int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
+ int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
+ void *reserved47;
+ void *reserved48;
+ Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
+ void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
+ int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
+ int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 52 */
+ int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */
+ int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
+ Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
+ void *reserved56;
+ void *reserved57;
+ Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
+ void *reserved59;
+ int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */
+ Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
+ int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
+ int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
+ int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
+ int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
+ int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
+ int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
+ void *reserved68;
+ char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
+ void *reserved70;
+ void *reserved71;
+ void *reserved72;
+ void *reserved73;
+ void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
+ unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
+ unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
+ void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
+ int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
+ void *reserved79;
+ void *reserved80;
+ char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
+ void *reserved82;
+ void *reserved83;
+ void *reserved84;
+ void *reserved85;
+ void *reserved86;
+ void *reserved87;
+ char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */
+ int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
+ void *reserved90;
+ void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
+ int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
+ void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
+ int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 94 */
+ void *reserved95;
+ int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
+ void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
+ int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
+ void *reserved99;
+ void *reserved100;
+ char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
+ void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
+ int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
+#if !defined(__WIN32__) /* UNIX */
+ int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
+#endif /* UNIX */
+#ifdef __WIN32__
+ int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
+#endif /* __WIN32__ */
+ void *reserved105;
+ int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
+ int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
+ void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
+ int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
+ void *reserved110;
+ void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
+ int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
+ Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
+ void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
+ int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst)); /* 115 */
+ Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
+ Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
+ int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
+ int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
+ Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
+ int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern)); /* 121 */
+ Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
+ void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
+ Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
+ Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
+ void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
+ int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite)); /* 127 */
+ void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp * interp)); /* 128 */
+ int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
+ int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 130 */
+ void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
+ int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
+ struct tm * (*tclpGetDate) _ANSI_ARGS_((CONST time_t * time, int useGMT)); /* 133 */
+ size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */
+ void *reserved135;
+ void *reserved136;
+ void *reserved137;
+ CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
+ void *reserved139;
+ int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */
+ CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
+ int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
+ int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
+ void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
+ struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
+ TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
+ void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
+ TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
+ void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
+ int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
+ void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
+ void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
+ Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
+ void *reserved154;
+ void *reserved155;
+ void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */
+ Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */
+ void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */
+ CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
+ void *reserved160;
+ int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
+ void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
+ void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */
+ void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */
+ void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */
+ int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */
+ void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */
+ Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */
+ int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */
+ int (*tclCheckInterpTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 170 */
+ int (*tclCheckExecutionTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 171 */
+ int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */
+ int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */
+ Tcl_Obj * (*tclIncrWideVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_WideInt wideIncrAmount, int part1NotParsed)); /* 174 */
+ int (*tclCallVarTraces) _ANSI_ARGS_((Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg)); /* 175 */
+ void (*tclCleanupVar) _ANSI_ARGS_((Var * varPtr, Var * arrayPtr)); /* 176 */
+ void (*tclVarErrMsg) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason)); /* 177 */
+ void (*tcl_SetStartupScript) _ANSI_ARGS_((Tcl_Obj * pathPtr, CONST char* encodingName)); /* 178 */
+ Tcl_Obj * (*tcl_GetStartupScript) _ANSI_ARGS_((CONST char ** encodingNamePtr)); /* 179 */
+ Tcl_Obj * (*tclNewListObjDirect) _ANSI_ARGS_((int objc, Tcl_Obj ** objv)); /* 180 */
+ Tcl_Obj * (*tclDbNewListObjDirect) _ANSI_ARGS_((int objc, Tcl_Obj ** objv, CONST char * file, int line)); /* 181 */
+ struct tm * (*tclpLocaltime) _ANSI_ARGS_((CONST time_t * clock)); /* 182 */
+ struct tm * (*tclpGmtime) _ANSI_ARGS_((CONST time_t * clock)); /* 183 */
+} TclIntStubs;
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+extern TclIntStubs *tclIntStubsPtr;
+#ifdef __cplusplus
+}
+#endif
+
+#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+/* Slot 0 is reserved */
+#ifndef TclAccessDeleteProc
+#define TclAccessDeleteProc \
+ (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
+#endif
+#ifndef TclAccessInsertProc
+#define TclAccessInsertProc \
+ (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
+#endif
+#ifndef TclAllocateFreeObjects
+#define TclAllocateFreeObjects \
+ (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
+#endif
+/* Slot 4 is reserved */
+#if !defined(__WIN32__) /* UNIX */
+#ifndef TclCleanupChildren
+#define TclCleanupChildren \
+ (tclIntStubsPtr->tclCleanupChildren) /* 5 */
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TclCleanupChildren
+#define TclCleanupChildren \
+ (tclIntStubsPtr->tclCleanupChildren) /* 5 */
+#endif
+#endif /* __WIN32__ */
+#ifndef TclCleanupCommand
+#define TclCleanupCommand \
+ (tclIntStubsPtr->tclCleanupCommand) /* 6 */
+#endif
+#ifndef TclCopyAndCollapse
+#define TclCopyAndCollapse \
+ (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
+#endif
+#ifndef TclCopyChannel
+#define TclCopyChannel \
+ (tclIntStubsPtr->tclCopyChannel) /* 8 */
+#endif
+#if !defined(__WIN32__) /* UNIX */
+#ifndef TclCreatePipeline
+#define TclCreatePipeline \
+ (tclIntStubsPtr->tclCreatePipeline) /* 9 */
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TclCreatePipeline
+#define TclCreatePipeline \
+ (tclIntStubsPtr->tclCreatePipeline) /* 9 */
+#endif
+#endif /* __WIN32__ */
+#ifndef TclCreateProc
+#define TclCreateProc \
+ (tclIntStubsPtr->tclCreateProc) /* 10 */
+#endif
+#ifndef TclDeleteCompiledLocalVars
+#define TclDeleteCompiledLocalVars \
+ (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
+#endif
+#ifndef TclDeleteVars
+#define TclDeleteVars \
+ (tclIntStubsPtr->tclDeleteVars) /* 12 */
+#endif
+/* Slot 13 is reserved */
+#ifndef TclDumpMemoryInfo
+#define TclDumpMemoryInfo \
+ (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
+#endif
+/* Slot 15 is reserved */
+#ifndef TclExprFloatError
+#define TclExprFloatError \
+ (tclIntStubsPtr->tclExprFloatError) /* 16 */
+#endif
+/* Slot 17 is reserved */
+/* Slot 18 is reserved */
+/* Slot 19 is reserved */
+/* Slot 20 is reserved */
+/* Slot 21 is reserved */
+#ifndef TclFindElement
+#define TclFindElement \
+ (tclIntStubsPtr->tclFindElement) /* 22 */
+#endif
+#ifndef TclFindProc
+#define TclFindProc \
+ (tclIntStubsPtr->tclFindProc) /* 23 */
+#endif
+#ifndef TclFormatInt
+#define TclFormatInt \
+ (tclIntStubsPtr->tclFormatInt) /* 24 */
+#endif
+#ifndef TclFreePackageInfo
+#define TclFreePackageInfo \
+ (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
+#endif
+/* Slot 26 is reserved */
+#ifndef TclGetDate
+#define TclGetDate \
+ (tclIntStubsPtr->tclGetDate) /* 27 */
+#endif
+#ifndef TclpGetDefaultStdChannel
+#define TclpGetDefaultStdChannel \
+ (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
+#endif
+/* Slot 29 is reserved */
+/* Slot 30 is reserved */
+#ifndef TclGetExtension
+#define TclGetExtension \
+ (tclIntStubsPtr->tclGetExtension) /* 31 */
+#endif
+#ifndef TclGetFrame
+#define TclGetFrame \
+ (tclIntStubsPtr->tclGetFrame) /* 32 */
+#endif
+#ifndef TclGetInterpProc
+#define TclGetInterpProc \
+ (tclIntStubsPtr->tclGetInterpProc) /* 33 */
+#endif
+#ifndef TclGetIntForIndex
+#define TclGetIntForIndex \
+ (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
+#endif
+/* Slot 35 is reserved */
+#ifndef TclGetLong
+#define TclGetLong \
+ (tclIntStubsPtr->tclGetLong) /* 36 */
+#endif
+#ifndef TclGetLoadedPackages
+#define TclGetLoadedPackages \
+ (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
+#endif
+#ifndef TclGetNamespaceForQualName
+#define TclGetNamespaceForQualName \
+ (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
+#endif
+#ifndef TclGetObjInterpProc
+#define TclGetObjInterpProc \
+ (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
+#endif
+#ifndef TclGetOpenMode
+#define TclGetOpenMode \
+ (tclIntStubsPtr->tclGetOpenMode) /* 40 */
+#endif
+#ifndef TclGetOriginalCommand
+#define TclGetOriginalCommand \
+ (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
+#endif
+#ifndef TclpGetUserHome
+#define TclpGetUserHome \
+ (tclIntStubsPtr->tclpGetUserHome) /* 42 */
+#endif
+#ifndef TclGlobalInvoke
+#define TclGlobalInvoke \
+ (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
+#endif
+#ifndef TclGuessPackageName
+#define TclGuessPackageName \
+ (tclIntStubsPtr->tclGuessPackageName) /* 44 */
+#endif
+#ifndef TclHideUnsafeCommands
+#define TclHideUnsafeCommands \
+ (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
+#endif
+#ifndef TclInExit
+#define TclInExit \
+ (tclIntStubsPtr->tclInExit) /* 46 */
+#endif
+/* Slot 47 is reserved */
+/* Slot 48 is reserved */
+#ifndef TclIncrVar2
+#define TclIncrVar2 \
+ (tclIntStubsPtr->tclIncrVar2) /* 49 */
+#endif
+#ifndef TclInitCompiledLocals
+#define TclInitCompiledLocals \
+ (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
+#endif
+#ifndef TclInterpInit
+#define TclInterpInit \
+ (tclIntStubsPtr->tclInterpInit) /* 51 */
+#endif
+#ifndef TclInvoke
+#define TclInvoke \
+ (tclIntStubsPtr->tclInvoke) /* 52 */
+#endif
+#ifndef TclInvokeObjectCommand
+#define TclInvokeObjectCommand \
+ (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
+#endif
+#ifndef TclInvokeStringCommand
+#define TclInvokeStringCommand \
+ (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
+#endif
+#ifndef TclIsProc
+#define TclIsProc \
+ (tclIntStubsPtr->tclIsProc) /* 55 */
+#endif
+/* Slot 56 is reserved */
+/* Slot 57 is reserved */
+#ifndef TclLookupVar
+#define TclLookupVar \
+ (tclIntStubsPtr->tclLookupVar) /* 58 */
+#endif
+/* Slot 59 is reserved */
+#ifndef TclNeedSpace
+#define TclNeedSpace \
+ (tclIntStubsPtr->tclNeedSpace) /* 60 */
+#endif
+#ifndef TclNewProcBodyObj
+#define TclNewProcBodyObj \
+ (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
+#endif
+#ifndef TclObjCommandComplete
+#define TclObjCommandComplete \
+ (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
+#endif
+#ifndef TclObjInterpProc
+#define TclObjInterpProc \
+ (tclIntStubsPtr->tclObjInterpProc) /* 63 */
+#endif
+#ifndef TclObjInvoke
+#define TclObjInvoke \
+ (tclIntStubsPtr->tclObjInvoke) /* 64 */
+#endif
+#ifndef TclObjInvokeGlobal
+#define TclObjInvokeGlobal \
+ (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
+#endif
+#ifndef TclOpenFileChannelDeleteProc
+#define TclOpenFileChannelDeleteProc \
+ (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
+#endif
+#ifndef TclOpenFileChannelInsertProc
+#define TclOpenFileChannelInsertProc \
+ (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
+#endif
+/* Slot 68 is reserved */
+#ifndef TclpAlloc
+#define TclpAlloc \
+ (tclIntStubsPtr->tclpAlloc) /* 69 */
+#endif
+/* Slot 70 is reserved */
+/* Slot 71 is reserved */
+/* Slot 72 is reserved */
+/* Slot 73 is reserved */
+#ifndef TclpFree
+#define TclpFree \
+ (tclIntStubsPtr->tclpFree) /* 74 */
+#endif
+#ifndef TclpGetClicks
+#define TclpGetClicks \
+ (tclIntStubsPtr->tclpGetClicks) /* 75 */
+#endif
+#ifndef TclpGetSeconds
+#define TclpGetSeconds \
+ (tclIntStubsPtr->tclpGetSeconds) /* 76 */
+#endif
+#ifndef TclpGetTime
+#define TclpGetTime \
+ (tclIntStubsPtr->tclpGetTime) /* 77 */
+#endif
+#ifndef TclpGetTimeZone
+#define TclpGetTimeZone \
+ (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
+#endif
+/* Slot 79 is reserved */
+/* Slot 80 is reserved */
+#ifndef TclpRealloc
+#define TclpRealloc \
+ (tclIntStubsPtr->tclpRealloc) /* 81 */
+#endif
+/* Slot 82 is reserved */
+/* Slot 83 is reserved */
+/* Slot 84 is reserved */
+/* Slot 85 is reserved */
+/* Slot 86 is reserved */
+/* Slot 87 is reserved */
+#ifndef TclPrecTraceProc
+#define TclPrecTraceProc \
+ (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
+#endif
+#ifndef TclPreventAliasLoop
+#define TclPreventAliasLoop \
+ (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
+#endif
+/* Slot 90 is reserved */
+#ifndef TclProcCleanupProc
+#define TclProcCleanupProc \
+ (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
+#endif
+#ifndef TclProcCompileProc
+#define TclProcCompileProc \
+ (tclIntStubsPtr->tclProcCompileProc) /* 92 */
+#endif
+#ifndef TclProcDeleteProc
+#define TclProcDeleteProc \
+ (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
+#endif
+#ifndef TclProcInterpProc
+#define TclProcInterpProc \
+ (tclIntStubsPtr->tclProcInterpProc) /* 94 */
+#endif
+/* Slot 95 is reserved */
+#ifndef TclRenameCommand
+#define TclRenameCommand \
+ (tclIntStubsPtr->tclRenameCommand) /* 96 */
+#endif
+#ifndef TclResetShadowedCmdRefs
+#define TclResetShadowedCmdRefs \
+ (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
+#endif
+#ifndef TclServiceIdle
+#define TclServiceIdle \
+ (tclIntStubsPtr->tclServiceIdle) /* 98 */
+#endif
+/* Slot 99 is reserved */
+/* Slot 100 is reserved */
+#ifndef TclSetPreInitScript
+#define TclSetPreInitScript \
+ (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
+#endif
+#ifndef TclSetupEnv
+#define TclSetupEnv \
+ (tclIntStubsPtr->tclSetupEnv) /* 102 */
+#endif
+#ifndef TclSockGetPort
+#define TclSockGetPort \
+ (tclIntStubsPtr->tclSockGetPort) /* 103 */
+#endif
+#if !defined(__WIN32__) /* UNIX */
+#ifndef TclSockMinimumBuffers
+#define TclSockMinimumBuffers \
+ (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
+#endif
+#endif /* UNIX */
+#ifdef __WIN32__
+#ifndef TclSockMinimumBuffers
+#define TclSockMinimumBuffers \
+ (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
+#endif
+#endif /* __WIN32__ */
+/* Slot 105 is reserved */
+#ifndef TclStatDeleteProc
+#define TclStatDeleteProc \
+ (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
+#endif
+#ifndef TclStatInsertProc
+#define TclStatInsertProc \
+ (tclIntStubsPtr->tclStatInsertProc) /* 107 */
+#endif
+#ifndef TclTeardownNamespace
+#define TclTeardownNamespace \
+ (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
+#endif
+#ifndef TclUpdateReturnInfo
+#define TclUpdateReturnInfo \
+ (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
+#endif
+/* Slot 110 is reserved */
+#ifndef Tcl_AddInterpResolvers
+#define Tcl_AddInterpResolvers \
+ (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
+#endif
+#ifndef Tcl_AppendExportList
+#define Tcl_AppendExportList \
+ (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
+#endif
+#ifndef Tcl_CreateNamespace
+#define Tcl_CreateNamespace \
+ (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
+#endif
+#ifndef Tcl_DeleteNamespace
+#define Tcl_DeleteNamespace \
+ (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
+#endif
+#ifndef Tcl_Export
+#define Tcl_Export \
+ (tclIntStubsPtr->tcl_Export) /* 115 */
+#endif
+#ifndef Tcl_FindCommand
+#define Tcl_FindCommand \
+ (tclIntStubsPtr->tcl_FindCommand) /* 116 */
+#endif
+#ifndef Tcl_FindNamespace
+#define Tcl_FindNamespace \
+ (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
+#endif
+#ifndef Tcl_GetInterpResolvers
+#define Tcl_GetInterpResolvers \
+ (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
+#endif
+#ifndef Tcl_GetNamespaceResolvers
+#define Tcl_GetNamespaceResolvers \
+ (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
+#endif
+#ifndef Tcl_FindNamespaceVar
+#define Tcl_FindNamespaceVar \
+ (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
+#endif
+#ifndef Tcl_ForgetImport
+#define Tcl_ForgetImport \
+ (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
+#endif
+#ifndef Tcl_GetCommandFromObj
+#define Tcl_GetCommandFromObj \
+ (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
+#endif
+#ifndef Tcl_GetCommandFullName
+#define Tcl_GetCommandFullName \
+ (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
+#endif
+#ifndef Tcl_GetCurrentNamespace
+#define Tcl_GetCurrentNamespace \
+ (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
+#endif
+#ifndef Tcl_GetGlobalNamespace
+#define Tcl_GetGlobalNamespace \
+ (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
+#endif
+#ifndef Tcl_GetVariableFullName
+#define Tcl_GetVariableFullName \
+ (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
+#endif
+#ifndef Tcl_Import
+#define Tcl_Import \
+ (tclIntStubsPtr->tcl_Import) /* 127 */
+#endif
+#ifndef Tcl_PopCallFrame
+#define Tcl_PopCallFrame \
+ (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
+#endif
+#ifndef Tcl_PushCallFrame
+#define Tcl_PushCallFrame \
+ (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
+#endif
+#ifndef Tcl_RemoveInterpResolvers
+#define Tcl_RemoveInterpResolvers \
+ (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
+#endif
+#ifndef Tcl_SetNamespaceResolvers
+#define Tcl_SetNamespaceResolvers \
+ (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
+#endif
+#ifndef TclpHasSockets
+#define TclpHasSockets \
+ (tclIntStubsPtr->tclpHasSockets) /* 132 */
+#endif
+#ifndef TclpGetDate
+#define TclpGetDate \
+ (tclIntStubsPtr->tclpGetDate) /* 133 */
+#endif
+#ifndef TclpStrftime
+#define TclpStrftime \
+ (tclIntStubsPtr->tclpStrftime) /* 134 */
+#endif
+/* Slot 135 is reserved */
+/* Slot 136 is reserved */
+/* Slot 137 is reserved */
+#ifndef TclGetEnv
+#define TclGetEnv \
+ (tclIntStubsPtr->tclGetEnv) /* 138 */
+#endif
+/* Slot 139 is reserved */
+#ifndef TclLooksLikeInt
+#define TclLooksLikeInt \
+ (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
+#endif
+#ifndef TclpGetCwd
+#define TclpGetCwd \
+ (tclIntStubsPtr->tclpGetCwd) /* 141 */
+#endif
+#ifndef TclSetByteCodeFromAny
+#define TclSetByteCodeFromAny \
+ (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
+#endif
+#ifndef TclAddLiteralObj
+#define TclAddLiteralObj \
+ (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
+#endif
+#ifndef TclHideLiteral
+#define TclHideLiteral \
+ (tclIntStubsPtr->tclHideLiteral) /* 144 */
+#endif
+#ifndef TclGetAuxDataType
+#define TclGetAuxDataType \
+ (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
+#endif
+#ifndef TclHandleCreate
+#define TclHandleCreate \
+ (tclIntStubsPtr->tclHandleCreate) /* 146 */
+#endif
+#ifndef TclHandleFree
+#define TclHandleFree \
+ (tclIntStubsPtr->tclHandleFree) /* 147 */
+#endif
+#ifndef TclHandlePreserve
+#define TclHandlePreserve \
+ (tclIntStubsPtr->tclHandlePreserve) /* 148 */
+#endif
+#ifndef TclHandleRelease
+#define TclHandleRelease \
+ (tclIntStubsPtr->tclHandleRelease) /* 149 */
+#endif
+#ifndef TclRegAbout
+#define TclRegAbout \
+ (tclIntStubsPtr->tclRegAbout) /* 150 */
+#endif
+#ifndef TclRegExpRangeUniChar
+#define TclRegExpRangeUniChar \
+ (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
+#endif
+#ifndef TclSetLibraryPath
+#define TclSetLibraryPath \
+ (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
+#endif
+#ifndef TclGetLibraryPath
+#define TclGetLibraryPath \
+ (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
+#endif
+/* Slot 154 is reserved */
+/* Slot 155 is reserved */
+#ifndef TclRegError
+#define TclRegError \
+ (tclIntStubsPtr->tclRegError) /* 156 */
+#endif
+#ifndef TclVarTraceExists
+#define TclVarTraceExists \
+ (tclIntStubsPtr->tclVarTraceExists) /* 157 */
+#endif
+#ifndef TclSetStartupScriptFileName
+#define TclSetStartupScriptFileName \
+ (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
+#endif
+#ifndef TclGetStartupScriptFileName
+#define TclGetStartupScriptFileName \
+ (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
+#endif
+/* Slot 160 is reserved */
+#ifndef TclChannelTransform
+#define TclChannelTransform \
+ (tclIntStubsPtr->tclChannelTransform) /* 161 */
+#endif
+#ifndef TclChannelEventScriptInvoker
+#define TclChannelEventScriptInvoker \
+ (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
+#endif
+#ifndef TclGetInstructionTable
+#define TclGetInstructionTable \
+ (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
+#endif
+#ifndef TclExpandCodeArray
+#define TclExpandCodeArray \
+ (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
+#endif
+#ifndef TclpSetInitialEncodings
+#define TclpSetInitialEncodings \
+ (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
+#endif
+#ifndef TclListObjSetElement
+#define TclListObjSetElement \
+ (tclIntStubsPtr->tclListObjSetElement) /* 166 */
+#endif
+#ifndef TclSetStartupScriptPath
+#define TclSetStartupScriptPath \
+ (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
+#endif
+#ifndef TclGetStartupScriptPath
+#define TclGetStartupScriptPath \
+ (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
+#endif
+#ifndef TclpUtfNcmp2
+#define TclpUtfNcmp2 \
+ (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
+#endif
+#ifndef TclCheckInterpTraces
+#define TclCheckInterpTraces \
+ (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
+#endif
+#ifndef TclCheckExecutionTraces
+#define TclCheckExecutionTraces \
+ (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
+#endif
+#ifndef TclInThreadExit
+#define TclInThreadExit \
+ (tclIntStubsPtr->tclInThreadExit) /* 172 */
+#endif
+#ifndef TclUniCharMatch
+#define TclUniCharMatch \
+ (tclIntStubsPtr->tclUniCharMatch) /* 173 */
+#endif
+#ifndef TclIncrWideVar2
+#define TclIncrWideVar2 \
+ (tclIntStubsPtr->tclIncrWideVar2) /* 174 */
+#endif
+#ifndef TclCallVarTraces
+#define TclCallVarTraces \
+ (tclIntStubsPtr->tclCallVarTraces) /* 175 */
+#endif
+#ifndef TclCleanupVar
+#define TclCleanupVar \
+ (tclIntStubsPtr->tclCleanupVar) /* 176 */
+#endif
+#ifndef TclVarErrMsg
+#define TclVarErrMsg \
+ (tclIntStubsPtr->tclVarErrMsg) /* 177 */
+#endif
+#ifndef Tcl_SetStartupScript
+#define Tcl_SetStartupScript \
+ (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
+#endif
+#ifndef Tcl_GetStartupScript
+#define Tcl_GetStartupScript \
+ (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
+#endif
+#ifndef TclNewListObjDirect
+#define TclNewListObjDirect \
+ (tclIntStubsPtr->tclNewListObjDirect) /* 180 */
+#endif
+#ifndef TclDbNewListObjDirect
+#define TclDbNewListObjDirect \
+ (tclIntStubsPtr->tclDbNewListObjDirect) /* 181 */
+#endif
+#ifndef TclpLocaltime
+#define TclpLocaltime \
+ (tclIntStubsPtr->tclpLocaltime) /* 182 */
+#endif
+#ifndef TclpGmtime
+#define TclpGmtime \
+ (tclIntStubsPtr->tclpGmtime) /* 183 */
+#endif
+
+#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
+
+/* !END!: Do not edit above this line. */
+
+#endif /* _TCLINTDECLS */
|