diff options
author | stanton <stanton> | 1999-03-03 00:38:35 (GMT) |
---|---|---|
committer | stanton <stanton> | 1999-03-03 00:38:35 (GMT) |
commit | 531a666d600bbb937c43e9ec3a90e230548710a4 (patch) | |
tree | 76e694a9fbdd6ed515de6186a840d8cd40cee06e /generic/tclIntDecls.h | |
parent | 8f97fc1f429811f069993f10d6adaff739b6c805 (diff) | |
download | tcl-531a666d600bbb937c43e9ec3a90e230548710a4.zip tcl-531a666d600bbb937c43e9ec3a90e230548710a4.tar.gz tcl-531a666d600bbb937c43e9ec3a90e230548710a4.tar.bz2 |
* unix/Makefile.in:
* unix/configure.in:
* unix/ldAix: Enhanced AIX shared library support.
* win/tclWinSock.c: Removed a bunch of extraneous PASCAL FAR
attributes from internal functions.
* win/tclWinReg.c: Changed registry package to use stubs mechanism
so it no longer depends on the specific version of Tcl.
* doc/AddErrInfo.3:
* doc/Eval.3:
* doc/PkgRequire.3:
* doc/SetResult.3:
* doc/StringObj.3:
* generic/tcl.h:
* generic/tclBasic.c:
* generic/tclPanic.c:
* generic/tclStringObj.c:
* generic/tclUtil.c:
* unix/mkLinks: Added va_list versions of all VARARGS
functions so they can be invoked from the stub functions.
* doc/package.n:
* doc/PkgRequire.3:
* generic/tclPkg.c: Added Tcl_PkgProvideEx, Tcl_RequireEx,
Tcl_PresentEx, and Tcl_PkgPresent. Added "package present"
command.
* generic/tclFileName.c:
* mac/tclMacFile.c:
* mac/tclMacShLib.exp:
* unix/tclUnixFile.c:
* win/tclWinFile.c: Changed so TclGetUserHome is defined on
all platforms, even though it is currently a noop on mac and
windows, and renamed it to TclpGetUserHome.
* generic/tclCkalloc.c: Added stub versions of memory checking
functions when compiling without TCL_MEM_DEBUG.
* doc/ByteArrObj.3:
* generic/tcl.h:
* generic/tclBinary.c:
* generic/tclObj.c: Ported the 8.1 ByteArray type back to 8.0.
* generic/tcl.decls:
* generic/tcl.h:
* generic/tclBasic.c:
* generic/tclDecls.h:
* generic/tclInt.decls:
* generic/tclInt.h:
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclIntPlatStubs.c:
* generic/tclIntStubs.c:
* generic/tclPlatDecls.h:
* generic/tclPlatStubs.c:
* generic/tclStubInit.c:
* generic/tclStubLib.c:
* generic/tclStubs.c:
* tools/genStubs.tcl:
* unix/configure.in:
* unix/Makefile.in:
* unix/tclConfig.sh.in:
* win/makefile.vc:
* win/tclWinPort.h: Added Tcl stubs implementation. There are
now two new macros USE_TCL_STUBS and USE_TCL_STUB_PROCS that
enable use of stubs and disable stub macros respectively. All of
the public and private function declarations from tcl.h and
tclInt.h have moved into the *.decls files and the *Stubs.c and
*Decls.h files are generated using the genStubs.tcl script.
* generic/tclPanic.c:
* generic/panic.c: renamed panic to Tcl_Panic, added macro for
backwards compatibility, renamed file to tclPanic.c
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 1324 |
1 files changed, 1324 insertions, 0 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h new file mode 100644 index 0000000..6f9dba0 --- /dev/null +++ b/generic/tclIntDecls.h @@ -0,0 +1,1324 @@ +/* + * 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.1 1999/03/03 00:38:41 stanton Exp $ + */ + +#ifndef _TCLINTDECLS +#define _TCLINTDECLS + +/* + * 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: + */ + +/* 0 */ +EXTERN int TclAccess _ANSI_ARGS_((CONST char * path, int mode)); +/* 1 */ +EXTERN int TclAccessDeleteProc _ANSI_ARGS_(( + TclAccessProc_ * proc)); +/* 2 */ +EXTERN int TclAccessInsertProc _ANSI_ARGS_(( + TclAccessProc_ * proc)); +/* 3 */ +EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); +/* 4 */ +EXTERN int TclChdir _ANSI_ARGS_((Tcl_Interp * interp, + char * dirName)); +/* 5 */ +EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, + int numPids, Tcl_Pid * pidPtr, + Tcl_Channel errorChan)); +/* 6 */ +EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr)); +/* 7 */ +EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count, + char * src, char * dst)); +/* 8 */ +EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel inChan, Tcl_Channel outChan, + int toRead, Tcl_Obj * cmdPtr)); +/* 9 */ +EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, + Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, + TclFile * outPipePtr, TclFile * errFilePtr)); +/* 10 */ +EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, + Namespace * nsPtr, char * procName, + Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, + Proc ** procPtrPtr)); +/* 11 */ +EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( + Interp * iPtr, CallFrame * framePtr)); +/* 12 */ +EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr, + Tcl_HashTable * tablePtr)); +/* 13 */ +EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, + char * separators, Tcl_DString * headPtr, + char * tail)); +/* 14 */ +EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile)); +/* 15 */ +EXTERN void TclExpandParseValue _ANSI_ARGS_((ParseValue * pvPtr, + int needed)); +/* 16 */ +EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, + double value)); +/* 17 */ +EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[])); +/* 18 */ +EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 19 */ +EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 20 */ +EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 21 */ +EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 22 */ +EXTERN void TclFinalizeCompExecEnv _ANSI_ARGS_((void)); +/* 23 */ +EXTERN void TclFinalizeEnvironment _ANSI_ARGS_((void)); +/* 24 */ +EXTERN void TclFinalizeExecEnv _ANSI_ARGS_((void)); +/* 25 */ +EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, + char * list, int listLength, + char ** elementPtr, char ** nextPtr, + int * sizePtr, int * bracePtr)); +/* 26 */ +EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr, + char * procName)); +/* 27 */ +EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); +/* 28 */ +EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); +/* 29 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 30 */ +EXTERN char * TclGetCwd _ANSI_ARGS_((Tcl_Interp * interp)); +/* 31 */ +EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, + long zone, unsigned long * timePtr)); +/* 32 */ +EXTERN Tcl_Channel TclGetDefaultStdChannel _ANSI_ARGS_((int type)); +/* 33 */ +EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, int leaveErrorMsg)); +/* 34 */ +EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name)); +/* 35 */ +EXTERN char * TclGetExtension _ANSI_ARGS_((char * name)); +/* 36 */ +EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, + char * string, CallFrame ** framePtrPtr)); +/* 37 */ +EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); +/* 38 */ +EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, int endValue, + int * indexPtr)); +/* 39 */ +EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, + int localIndex, int leaveErrorMsg)); +/* 40 */ +EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, + char * string, long * longPtr)); +/* 41 */ +EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( + Tcl_Interp * interp, char * targetName)); +/* 42 */ +EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( + Tcl_Interp * interp, char * qualName, + Namespace * cxtNsPtr, int flags, + Namespace ** nsPtrPtr, + Namespace ** altNsPtrPtr, + Namespace ** actualCxtPtrPtr, + char ** simpleNamePtr)); +/* 43 */ +EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); +/* 44 */ +EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * seekFlagPtr)); +/* 45 */ +EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( + Tcl_Command command)); +/* 46 */ +EXTERN char * TclpGetUserHome _ANSI_ARGS_((char * name, + Tcl_DString * bufferPtr)); +/* 47 */ +EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, int flags)); +/* 48 */ +EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName, + Tcl_DString * bufPtr)); +/* 49 */ +EXTERN int TclHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); +/* 50 */ +EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 51 */ +EXTERN int TclInExit _ANSI_ARGS_((void)); +/* 52 */ +EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, long incrAmount)); +/* 53 */ +EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + long incrAmount)); +/* 54 */ +EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, + long incrAmount, int part1NotParsed)); +/* 55 */ +EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( + Tcl_Interp * interp, CallFrame * framePtr, + Namespace * nsPtr)); +/* 56 */ +EXTERN void TclInitNamespaces _ANSI_ARGS_((void)); +/* 57 */ +EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 58 */ +EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, + char ** argv, int flags)); +/* 59 */ +EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int argc, char ** argv)); +/* 60 */ +EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[])); +/* 61 */ +EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); +/* 62 */ +EXTERN int TclLoadFile _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * sym1, char * sym2, + Tcl_PackageInitProc ** proc1Ptr, + Tcl_PackageInitProc ** proc2Ptr)); +/* 63 */ +EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * p)); +/* 64 */ +EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, + char * part1, char * part2, int flags, + char * msg, int createPart1, int createPart2, + Var ** arrayPtrPtr)); +/* 65 */ +EXTERN int TclMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, + char * separators, Tcl_DString * dirPtr, + char * pattern, char * tail)); +/* 66 */ +EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end)); +/* 67 */ +EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); +/* 68 */ +EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); +/* 69 */ +EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int objc, + Tcl_Obj *CONST objv[])); +/* 70 */ +EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 71 */ +EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 72 */ +EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( + TclOpenFileChannelProc_ * proc)); +/* 73 */ +EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( + TclOpenFileChannelProc_ * proc)); +/* 74 */ +EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); +/* 75 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 76 */ +EXTERN int TclpCopyFile _ANSI_ARGS_((char * source, char * dest)); +/* 77 */ +EXTERN int TclpCopyDirectory _ANSI_ARGS_((char * source, + char * dest, Tcl_DString * errorPtr)); +/* 78 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 79 */ +EXTERN int TclpCreateDirectory _ANSI_ARGS_((char * path)); +/* 80 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 81 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* 82 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, + Tcl_DString * namePtr)); +/* 83 */ +EXTERN int TclpDeleteFile _ANSI_ARGS_((char * path)); +/* 84 */ +EXTERN void TclpFinalize _ANSI_ARGS_((void)); +/* 85 */ +EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); +/* 86 */ +EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); +/* 87 */ +EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); +/* 88 */ +EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); +/* 89 */ +EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); +/* 90 */ +EXTERN char * TclpGetTZName _ANSI_ARGS_((void)); +/* 91 */ +EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp)); +/* 92 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 93 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); +/* 94 */ +EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * modeString, + int permissions)); +/* 95 */ +EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, + unsigned int size)); +/* 96 */ +EXTERN int TclpRemoveDirectory _ANSI_ARGS_((char * path, + int recursive, Tcl_DString * errorPtr)); +/* 97 */ +EXTERN int TclpRenameFile _ANSI_ARGS_((char * source, + char * dest)); +/* 98 */ +EXTERN int TclParseBraces _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char ** termPtr, + ParseValue * pvPtr)); +/* 99 */ +EXTERN int TclParseNestedCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int flags, char ** termPtr, + ParseValue * pvPtr)); +/* 100 */ +EXTERN int TclParseQuotes _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int termChar, int flags, + char ** termPtr, ParseValue * pvPtr)); +/* 101 */ +EXTERN void TclPlatformInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 102 */ +EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, char * name1, + char * name2, int flags)); +/* 103 */ +EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Interp * cmdInterp, Tcl_Command cmd)); +/* 104 */ +EXTERN void TclPrintByteCodeObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr)); +/* 105 */ +EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); +/* 106 */ +EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, + Proc * procPtr, Tcl_Obj * bodyPtr, + Namespace * nsPtr, CONST char * description, + CONST char * procName)); +/* 107 */ +EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); +/* 108 */ +EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int argc, char ** argv)); +/* 109 */ +EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * oldName, char * newName)); +/* 110 */ +EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( + Tcl_Interp * interp, Command * newCmdPtr)); +/* 111 */ +EXTERN int TclServiceIdle _ANSI_ARGS_((void)); +/* 112 */ +EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, Tcl_Obj * objPtr, + int leaveErrorMsg)); +/* 113 */ +EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, + int localIndex, Tcl_Obj * objPtr, + int leaveErrorMsg)); +/* 114 */ +EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); +/* 115 */ +EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); +/* 116 */ +EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * proto, int * portPtr)); +/* 117 */ +EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, + int size)); +/* 118 */ +EXTERN int TclStat _ANSI_ARGS_((CONST char * path, + TclStat_ * buf)); +/* 119 */ +EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); +/* 120 */ +EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); +/* 121 */ +EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); +/* 122 */ +EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); +/* 123 */ +EXTERN char * TclWordEnd _ANSI_ARGS_((char * start, + char * lastChar, int nested, int * semiPtr)); +/* 124 */ +EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_ResolveCmdProc * cmdProc, + Tcl_ResolveVarProc * varProc, + Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* 125 */ +EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Namespace * nsPtr, + Tcl_Obj * objPtr)); +/* 126 */ +EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, + char * name, ClientData clientData, + Tcl_NamespaceDeleteProc * deleteProc)); +/* 127 */ +EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( + Tcl_Namespace * nsPtr)); +/* 128 */ +EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern, + int resetListFirst)); +/* 129 */ +EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * name, Tcl_Namespace * contextNsPtr, + int flags)); +/* 130 */ +EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, + char * name, Tcl_Namespace * contextNsPtr, + int flags)); +/* 131 */ +EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_ResolverInfo * resInfo)); +/* 132 */ +EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( + Tcl_Namespace * namespacePtr, + Tcl_ResolverInfo * resInfo)); +/* 133 */ +EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_Namespace * contextNsPtr, int flags)); +/* 134 */ +EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern)); +/* 135 */ +EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr)); +/* 136 */ +EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Command command, + Tcl_Obj * objPtr)); +/* 137 */ +EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 138 */ +EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 139 */ +EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Var variable, + Tcl_Obj * objPtr)); +/* 140 */ +EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern, + int allowOverwrite)); +/* 141 */ +EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); +/* 142 */ +EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, + Tcl_CallFrame * framePtr, + Tcl_Namespace * nsPtr, int isProcCallFrame)); +/* 143 */ +EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name)); +/* 144 */ +EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( + Tcl_Namespace * namespacePtr, + Tcl_ResolveCmdProc * cmdProc, + Tcl_ResolveVarProc * varProc, + Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* 145 */ +EXTERN int TclCompileBreakCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 146 */ +EXTERN int TclCompileCatchCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 147 */ +EXTERN int TclCompileContinueCmd _ANSI_ARGS_(( + Tcl_Interp * interp, char * string, + char * lastChar, int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 148 */ +EXTERN int TclCompileExprCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 149 */ +EXTERN int TclCompileForCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 150 */ +EXTERN int TclCompileForeachCmd _ANSI_ARGS_(( + Tcl_Interp * interp, char * string, + char * lastChar, int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 151 */ +EXTERN int TclCompileIfCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 152 */ +EXTERN int TclCompileIncrCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 153 */ +EXTERN int TclCompileSetCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 154 */ +EXTERN int TclCompileWhileCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); + +typedef struct TclIntStubs { + int magic; + struct TclIntStubHooks *hooks; + + int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */ + int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */ + int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */ + void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */ + int (*tclChdir) _ANSI_ARGS_((Tcl_Interp * interp, char * dirName)); /* 4 */ + int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ + void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */ + int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, char * src, char * dst)); /* 7 */ + int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */ + int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ + int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, 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 */ + int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail)); /* 13 */ + void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */ + void (*tclExpandParseValue) _ANSI_ARGS_((ParseValue * pvPtr, int needed)); /* 15 */ + void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */ + int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */ + int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */ + int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */ + int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */ + int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */ + void (*tclFinalizeCompExecEnv) _ANSI_ARGS_((void)); /* 22 */ + void (*tclFinalizeEnvironment) _ANSI_ARGS_((void)); /* 23 */ + void (*tclFinalizeExecEnv) _ANSI_ARGS_((void)); /* 24 */ + int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, char * list, int listLength, char ** elementPtr, char ** nextPtr, int * sizePtr, int * bracePtr)); /* 25 */ + Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 26 */ + int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 27 */ + void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 28 */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 29 */ + char * (*tclGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 30 */ + int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 31 */ + Tcl_Channel (*tclGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 32 */ + Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 33 */ + char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name)); /* 34 */ + char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 35 */ + int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 36 */ + TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 37 */ + int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 38 */ + Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 39 */ + int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 40 */ + int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 41 */ + int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 42 */ + TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 43 */ + int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 44 */ + Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 45 */ + char * (*tclpGetUserHome) _ANSI_ARGS_((char * name, Tcl_DString * bufferPtr)); /* 46 */ + int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 47 */ + int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 48 */ + int (*tclHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 49 */ + int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 50 */ + int (*tclInExit) _ANSI_ARGS_((void)); /* 51 */ + Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 52 */ + Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 53 */ + Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 54 */ + void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 55 */ + void (*tclInitNamespaces) _ANSI_ARGS_((void)); /* 56 */ + int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 57 */ + int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 58 */ + int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 59 */ + int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 60 */ + Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 61 */ + int (*tclLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr)); /* 62 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((char * p)); /* 63 */ + Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 64 */ + int (*tclMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 65 */ + int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 66 */ + Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 67 */ + int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 68 */ + int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 69 */ + int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 70 */ + int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 71 */ + int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 72 */ + int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 73 */ + char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 74 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 75 */ + int (*tclpCopyFile) _ANSI_ARGS_((char * source, char * dest)); /* 76 */ + int (*tclpCopyDirectory) _ANSI_ARGS_((char * source, char * dest, Tcl_DString * errorPtr)); /* 77 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 78 */ + int (*tclpCreateDirectory) _ANSI_ARGS_((char * path)); /* 79 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 80 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 81 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 82 */ + int (*tclpDeleteFile) _ANSI_ARGS_((char * path)); /* 83 */ + void (*tclpFinalize) _ANSI_ARGS_((void)); /* 84 */ + void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 85 */ + unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 86 */ + unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 87 */ + void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 88 */ + int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 89 */ + char * (*tclpGetTZName) _ANSI_ARGS_((void)); /* 90 */ + int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 91 */ + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 92 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 93 */ + Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 94 */ + char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 95 */ + int (*tclpRemoveDirectory) _ANSI_ARGS_((char * path, int recursive, Tcl_DString * errorPtr)); /* 96 */ + int (*tclpRenameFile) _ANSI_ARGS_((char * source, char * dest)); /* 97 */ + int (*tclParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr, ParseValue * pvPtr)); /* 98 */ + int (*tclParseNestedCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int flags, char ** termPtr, ParseValue * pvPtr)); /* 99 */ + int (*tclParseQuotes) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int termChar, int flags, char ** termPtr, ParseValue * pvPtr)); /* 100 */ + void (*tclPlatformInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 101 */ + char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 102 */ + int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 103 */ + void (*tclPrintByteCodeObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 104 */ + void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 105 */ + int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 106 */ + void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 107 */ + int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 108 */ + int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 109 */ + void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 110 */ + int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 111 */ + Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 112 */ + Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 113 */ + char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 114 */ + void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 115 */ + int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 116 */ + int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 117 */ + int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 118 */ + int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 119 */ + int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 120 */ + void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 121 */ + int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 122 */ + char * (*tclWordEnd) _ANSI_ARGS_((char * start, char * lastChar, int nested, int * semiPtr)); /* 123 */ + void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 124 */ + int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 125 */ + Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 126 */ + void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 127 */ + int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 128 */ + Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 129 */ + Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 130 */ + int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 131 */ + int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 132 */ + Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 133 */ + int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 134 */ + Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 135 */ + void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 136 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 137 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 138 */ + void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 139 */ + int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 140 */ + void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 141 */ + int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 142 */ + int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 143 */ + void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 144 */ + int (*tclCompileBreakCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 145 */ + int (*tclCompileCatchCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 146 */ + int (*tclCompileContinueCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 147 */ + int (*tclCompileExprCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 148 */ + int (*tclCompileForCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 149 */ + int (*tclCompileForeachCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 150 */ + int (*tclCompileIfCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 151 */ + int (*tclCompileIncrCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 152 */ + int (*tclCompileSetCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 153 */ + int (*tclCompileWhileCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 154 */ +} TclIntStubs; + +extern TclIntStubs *tclIntStubsPtr; + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef TclAccess +#define TclAccess(path, mode) \ + (tclIntStubsPtr->tclAccess)(path, mode) /* 0 */ +#endif +#ifndef TclAccessDeleteProc +#define TclAccessDeleteProc(proc) \ + (tclIntStubsPtr->tclAccessDeleteProc)(proc) /* 1 */ +#endif +#ifndef TclAccessInsertProc +#define TclAccessInsertProc(proc) \ + (tclIntStubsPtr->tclAccessInsertProc)(proc) /* 2 */ +#endif +#ifndef TclAllocateFreeObjects +#define TclAllocateFreeObjects() \ + (tclIntStubsPtr->tclAllocateFreeObjects)() /* 3 */ +#endif +#ifndef TclChdir +#define TclChdir(interp, dirName) \ + (tclIntStubsPtr->tclChdir)(interp, dirName) /* 4 */ +#endif +#ifndef TclCleanupChildren +#define TclCleanupChildren(interp, numPids, pidPtr, errorChan) \ + (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan) /* 5 */ +#endif +#ifndef TclCleanupCommand +#define TclCleanupCommand(cmdPtr) \ + (tclIntStubsPtr->tclCleanupCommand)(cmdPtr) /* 6 */ +#endif +#ifndef TclCopyAndCollapse +#define TclCopyAndCollapse(count, src, dst) \ + (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst) /* 7 */ +#endif +#ifndef TclCopyChannel +#define TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr) \ + (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr) /* 8 */ +#endif +#ifndef TclCreatePipeline +#define TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) \ + (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) /* 9 */ +#endif +#ifndef TclCreateProc +#define TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) \ + (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) /* 10 */ +#endif +#ifndef TclDeleteCompiledLocalVars +#define TclDeleteCompiledLocalVars(iPtr, framePtr) \ + (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr) /* 11 */ +#endif +#ifndef TclDeleteVars +#define TclDeleteVars(iPtr, tablePtr) \ + (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr) /* 12 */ +#endif +#ifndef TclDoGlob +#define TclDoGlob(interp, separators, headPtr, tail) \ + (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail) /* 13 */ +#endif +#ifndef TclDumpMemoryInfo +#define TclDumpMemoryInfo(outFile) \ + (tclIntStubsPtr->tclDumpMemoryInfo)(outFile) /* 14 */ +#endif +#ifndef TclExpandParseValue +#define TclExpandParseValue(pvPtr, needed) \ + (tclIntStubsPtr->tclExpandParseValue)(pvPtr, needed) /* 15 */ +#endif +#ifndef TclExprFloatError +#define TclExprFloatError(interp, value) \ + (tclIntStubsPtr->tclExprFloatError)(interp, value) /* 16 */ +#endif +#ifndef TclFileAttrsCmd +#define TclFileAttrsCmd(interp, objc, objv) \ + (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv) /* 17 */ +#endif +#ifndef TclFileCopyCmd +#define TclFileCopyCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv) /* 18 */ +#endif +#ifndef TclFileDeleteCmd +#define TclFileDeleteCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv) /* 19 */ +#endif +#ifndef TclFileMakeDirsCmd +#define TclFileMakeDirsCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv) /* 20 */ +#endif +#ifndef TclFileRenameCmd +#define TclFileRenameCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv) /* 21 */ +#endif +#ifndef TclFinalizeCompExecEnv +#define TclFinalizeCompExecEnv() \ + (tclIntStubsPtr->tclFinalizeCompExecEnv)() /* 22 */ +#endif +#ifndef TclFinalizeEnvironment +#define TclFinalizeEnvironment() \ + (tclIntStubsPtr->tclFinalizeEnvironment)() /* 23 */ +#endif +#ifndef TclFinalizeExecEnv +#define TclFinalizeExecEnv() \ + (tclIntStubsPtr->tclFinalizeExecEnv)() /* 24 */ +#endif +#ifndef TclFindElement +#define TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \ + (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 25 */ +#endif +#ifndef TclFindProc +#define TclFindProc(iPtr, procName) \ + (tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 26 */ +#endif +#ifndef TclFormatInt +#define TclFormatInt(buffer, n) \ + (tclIntStubsPtr->tclFormatInt)(buffer, n) /* 27 */ +#endif +#ifndef TclFreePackageInfo +#define TclFreePackageInfo(iPtr) \ + (tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 28 */ +#endif +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntStubsPtr->tclGetAndDetachPids)(interp, chan) /* 29 */ +#endif +#ifndef TclGetCwd +#define TclGetCwd(interp) \ + (tclIntStubsPtr->tclGetCwd)(interp) /* 30 */ +#endif +#ifndef TclGetDate +#define TclGetDate(p, now, zone, timePtr) \ + (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 31 */ +#endif +#ifndef TclGetDefaultStdChannel +#define TclGetDefaultStdChannel(type) \ + (tclIntStubsPtr->tclGetDefaultStdChannel)(type) /* 32 */ +#endif +#ifndef TclGetElementOfIndexedArray +#define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 33 */ +#endif +#ifndef TclGetEnv +#define TclGetEnv(name) \ + (tclIntStubsPtr->tclGetEnv)(name) /* 34 */ +#endif +#ifndef TclGetExtension +#define TclGetExtension(name) \ + (tclIntStubsPtr->tclGetExtension)(name) /* 35 */ +#endif +#ifndef TclGetFrame +#define TclGetFrame(interp, string, framePtrPtr) \ + (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 36 */ +#endif +#ifndef TclGetInterpProc +#define TclGetInterpProc() \ + (tclIntStubsPtr->tclGetInterpProc)() /* 37 */ +#endif +#ifndef TclGetIntForIndex +#define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \ + (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 38 */ +#endif +#ifndef TclGetIndexedScalar +#define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \ + (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 39 */ +#endif +#ifndef TclGetLong +#define TclGetLong(interp, string, longPtr) \ + (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 40 */ +#endif +#ifndef TclGetLoadedPackages +#define TclGetLoadedPackages(interp, targetName) \ + (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 41 */ +#endif +#ifndef TclGetNamespaceForQualName +#define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \ + (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 42 */ +#endif +#ifndef TclGetObjInterpProc +#define TclGetObjInterpProc() \ + (tclIntStubsPtr->tclGetObjInterpProc)() /* 43 */ +#endif +#ifndef TclGetOpenMode +#define TclGetOpenMode(interp, string, seekFlagPtr) \ + (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 44 */ +#endif +#ifndef TclGetOriginalCommand +#define TclGetOriginalCommand(command) \ + (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 45 */ +#endif +#ifndef TclpGetUserHome +#define TclpGetUserHome(name, bufferPtr) \ + (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 46 */ +#endif +#ifndef TclGlobalInvoke +#define TclGlobalInvoke(interp, argc, argv, flags) \ + (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 47 */ +#endif +#ifndef TclGuessPackageName +#define TclGuessPackageName(fileName, bufPtr) \ + (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 48 */ +#endif +#ifndef TclHasSockets +#define TclHasSockets(interp) \ + (tclIntStubsPtr->tclHasSockets)(interp) /* 49 */ +#endif +#ifndef TclHideUnsafeCommands +#define TclHideUnsafeCommands(interp) \ + (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 50 */ +#endif +#ifndef TclInExit +#define TclInExit() \ + (tclIntStubsPtr->tclInExit)() /* 51 */ +#endif +#ifndef TclIncrElementOfIndexedArray +#define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \ + (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 52 */ +#endif +#ifndef TclIncrIndexedScalar +#define TclIncrIndexedScalar(interp, localIndex, incrAmount) \ + (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 53 */ +#endif +#ifndef TclIncrVar2 +#define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \ + (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 54 */ +#endif +#ifndef TclInitCompiledLocals +#define TclInitCompiledLocals(interp, framePtr, nsPtr) \ + (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 55 */ +#endif +#ifndef TclInitNamespaces +#define TclInitNamespaces() \ + (tclIntStubsPtr->tclInitNamespaces)() /* 56 */ +#endif +#ifndef TclInterpInit +#define TclInterpInit(interp) \ + (tclIntStubsPtr->tclInterpInit)(interp) /* 57 */ +#endif +#ifndef TclInvoke +#define TclInvoke(interp, argc, argv, flags) \ + (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 58 */ +#endif +#ifndef TclInvokeObjectCommand +#define TclInvokeObjectCommand(clientData, interp, argc, argv) \ + (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 59 */ +#endif +#ifndef TclInvokeStringCommand +#define TclInvokeStringCommand(clientData, interp, objc, objv) \ + (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 60 */ +#endif +#ifndef TclIsProc +#define TclIsProc(cmdPtr) \ + (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 61 */ +#endif +#ifndef TclLoadFile +#define TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) \ + (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) /* 62 */ +#endif +#ifndef TclLooksLikeInt +#define TclLooksLikeInt(p) \ + (tclIntStubsPtr->tclLooksLikeInt)(p) /* 63 */ +#endif +#ifndef TclLookupVar +#define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \ + (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 64 */ +#endif +#ifndef TclMatchFiles +#define TclMatchFiles(interp, separators, dirPtr, pattern, tail) \ + (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 65 */ +#endif +#ifndef TclNeedSpace +#define TclNeedSpace(start, end) \ + (tclIntStubsPtr->tclNeedSpace)(start, end) /* 66 */ +#endif +#ifndef TclNewProcBodyObj +#define TclNewProcBodyObj(procPtr) \ + (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 67 */ +#endif +#ifndef TclObjCommandComplete +#define TclObjCommandComplete(cmdPtr) \ + (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 68 */ +#endif +#ifndef TclObjInterpProc +#define TclObjInterpProc(clientData, interp, objc, objv) \ + (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 69 */ +#endif +#ifndef TclObjInvoke +#define TclObjInvoke(interp, objc, objv, flags) \ + (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 70 */ +#endif +#ifndef TclObjInvokeGlobal +#define TclObjInvokeGlobal(interp, objc, objv, flags) \ + (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 71 */ +#endif +#ifndef TclOpenFileChannelDeleteProc +#define TclOpenFileChannelDeleteProc(proc) \ + (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 72 */ +#endif +#ifndef TclOpenFileChannelInsertProc +#define TclOpenFileChannelInsertProc(proc) \ + (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 73 */ +#endif +#ifndef TclpAlloc +#define TclpAlloc(size) \ + (tclIntStubsPtr->tclpAlloc)(size) /* 74 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntStubsPtr->tclpCloseFile)(file) /* 75 */ +#endif +#ifndef TclpCopyFile +#define TclpCopyFile(source, dest) \ + (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 76 */ +#endif +#ifndef TclpCopyDirectory +#define TclpCopyDirectory(source, dest, errorPtr) \ + (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 77 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 78 */ +#endif +#ifndef TclpCreateDirectory +#define TclpCreateDirectory(path) \ + (tclIntStubsPtr->tclpCreateDirectory)(path) /* 79 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 80 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 81 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents, namePtr) \ + (tclIntStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 82 */ +#endif +#ifndef TclpDeleteFile +#define TclpDeleteFile(path) \ + (tclIntStubsPtr->tclpDeleteFile)(path) /* 83 */ +#endif +#ifndef TclpFinalize +#define TclpFinalize() \ + (tclIntStubsPtr->tclpFinalize)() /* 84 */ +#endif +#ifndef TclpFree +#define TclpFree(ptr) \ + (tclIntStubsPtr->tclpFree)(ptr) /* 85 */ +#endif +#ifndef TclpGetClicks +#define TclpGetClicks() \ + (tclIntStubsPtr->tclpGetClicks)() /* 86 */ +#endif +#ifndef TclpGetSeconds +#define TclpGetSeconds() \ + (tclIntStubsPtr->tclpGetSeconds)() /* 87 */ +#endif +#ifndef TclpGetTime +#define TclpGetTime(time) \ + (tclIntStubsPtr->tclpGetTime)(time) /* 88 */ +#endif +#ifndef TclpGetTimeZone +#define TclpGetTimeZone(time) \ + (tclIntStubsPtr->tclpGetTimeZone)(time) /* 89 */ +#endif +#ifndef TclpGetTZName +#define TclpGetTZName() \ + (tclIntStubsPtr->tclpGetTZName)() /* 90 */ +#endif +#ifndef TclpListVolumes +#define TclpListVolumes(interp) \ + (tclIntStubsPtr->tclpListVolumes)(interp) /* 91 */ +#endif +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntStubsPtr->tclpMakeFile)(channel, direction) /* 92 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntStubsPtr->tclpOpenFile)(fname, mode) /* 93 */ +#endif +#ifndef TclpOpenFileChannel +#define TclpOpenFileChannel(interp, fileName, modeString, permissions) \ + (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 94 */ +#endif +#ifndef TclpRealloc +#define TclpRealloc(ptr, size) \ + (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 95 */ +#endif +#ifndef TclpRemoveDirectory +#define TclpRemoveDirectory(path, recursive, errorPtr) \ + (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 96 */ +#endif +#ifndef TclpRenameFile +#define TclpRenameFile(source, dest) \ + (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 97 */ +#endif +#ifndef TclParseBraces +#define TclParseBraces(interp, string, termPtr, pvPtr) \ + (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr) /* 98 */ +#endif +#ifndef TclParseNestedCmd +#define TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) \ + (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr) /* 99 */ +#endif +#ifndef TclParseQuotes +#define TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) \ + (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr) /* 100 */ +#endif +#ifndef TclPlatformInit +#define TclPlatformInit(interp) \ + (tclIntStubsPtr->tclPlatformInit)(interp) /* 101 */ +#endif +#ifndef TclPrecTraceProc +#define TclPrecTraceProc(clientData, interp, name1, name2, flags) \ + (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 102 */ +#endif +#ifndef TclPreventAliasLoop +#define TclPreventAliasLoop(interp, cmdInterp, cmd) \ + (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 103 */ +#endif +#ifndef TclPrintByteCodeObj +#define TclPrintByteCodeObj(interp, objPtr) \ + (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr) /* 104 */ +#endif +#ifndef TclProcCleanupProc +#define TclProcCleanupProc(procPtr) \ + (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 105 */ +#endif +#ifndef TclProcCompileProc +#define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \ + (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 106 */ +#endif +#ifndef TclProcDeleteProc +#define TclProcDeleteProc(clientData) \ + (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 107 */ +#endif +#ifndef TclProcInterpProc +#define TclProcInterpProc(clientData, interp, argc, argv) \ + (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 108 */ +#endif +#ifndef TclRenameCommand +#define TclRenameCommand(interp, oldName, newName) \ + (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 109 */ +#endif +#ifndef TclResetShadowedCmdRefs +#define TclResetShadowedCmdRefs(interp, newCmdPtr) \ + (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 110 */ +#endif +#ifndef TclServiceIdle +#define TclServiceIdle() \ + (tclIntStubsPtr->tclServiceIdle)() /* 111 */ +#endif +#ifndef TclSetElementOfIndexedArray +#define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 112 */ +#endif +#ifndef TclSetIndexedScalar +#define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 113 */ +#endif +#ifndef TclSetPreInitScript +#define TclSetPreInitScript(string) \ + (tclIntStubsPtr->tclSetPreInitScript)(string) /* 114 */ +#endif +#ifndef TclSetupEnv +#define TclSetupEnv(interp) \ + (tclIntStubsPtr->tclSetupEnv)(interp) /* 115 */ +#endif +#ifndef TclSockGetPort +#define TclSockGetPort(interp, string, proto, portPtr) \ + (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 116 */ +#endif +#ifndef TclSockMinimumBuffers +#define TclSockMinimumBuffers(sock, size) \ + (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 117 */ +#endif +#ifndef TclStat +#define TclStat(path, buf) \ + (tclIntStubsPtr->tclStat)(path, buf) /* 118 */ +#endif +#ifndef TclStatDeleteProc +#define TclStatDeleteProc(proc) \ + (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 119 */ +#endif +#ifndef TclStatInsertProc +#define TclStatInsertProc(proc) \ + (tclIntStubsPtr->tclStatInsertProc)(proc) /* 120 */ +#endif +#ifndef TclTeardownNamespace +#define TclTeardownNamespace(nsPtr) \ + (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 121 */ +#endif +#ifndef TclUpdateReturnInfo +#define TclUpdateReturnInfo(iPtr) \ + (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 122 */ +#endif +#ifndef TclWordEnd +#define TclWordEnd(start, lastChar, nested, semiPtr) \ + (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr) /* 123 */ +#endif +#ifndef Tcl_AddInterpResolvers +#define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \ + (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 124 */ +#endif +#ifndef Tcl_AppendExportList +#define Tcl_AppendExportList(interp, nsPtr, objPtr) \ + (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 125 */ +#endif +#ifndef Tcl_CreateNamespace +#define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \ + (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 126 */ +#endif +#ifndef Tcl_DeleteNamespace +#define Tcl_DeleteNamespace(nsPtr) \ + (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 127 */ +#endif +#ifndef Tcl_Export +#define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \ + (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 128 */ +#endif +#ifndef Tcl_FindCommand +#define Tcl_FindCommand(interp, name, contextNsPtr, flags) \ + (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 129 */ +#endif +#ifndef Tcl_FindNamespace +#define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \ + (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 130 */ +#endif +#ifndef Tcl_GetInterpResolvers +#define Tcl_GetInterpResolvers(interp, name, resInfo) \ + (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 131 */ +#endif +#ifndef Tcl_GetNamespaceResolvers +#define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \ + (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 132 */ +#endif +#ifndef Tcl_FindNamespaceVar +#define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \ + (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 133 */ +#endif +#ifndef Tcl_ForgetImport +#define Tcl_ForgetImport(interp, nsPtr, pattern) \ + (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 134 */ +#endif +#ifndef Tcl_GetCommandFromObj +#define Tcl_GetCommandFromObj(interp, objPtr) \ + (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 135 */ +#endif +#ifndef Tcl_GetCommandFullName +#define Tcl_GetCommandFullName(interp, command, objPtr) \ + (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 136 */ +#endif +#ifndef Tcl_GetCurrentNamespace +#define Tcl_GetCurrentNamespace(interp) \ + (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 137 */ +#endif +#ifndef Tcl_GetGlobalNamespace +#define Tcl_GetGlobalNamespace(interp) \ + (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 138 */ +#endif +#ifndef Tcl_GetVariableFullName +#define Tcl_GetVariableFullName(interp, variable, objPtr) \ + (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 139 */ +#endif +#ifndef Tcl_Import +#define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \ + (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 140 */ +#endif +#ifndef Tcl_PopCallFrame +#define Tcl_PopCallFrame(interp) \ + (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 141 */ +#endif +#ifndef Tcl_PushCallFrame +#define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \ + (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 142 */ +#endif +#ifndef Tcl_RemoveInterpResolvers +#define Tcl_RemoveInterpResolvers(interp, name) \ + (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 143 */ +#endif +#ifndef Tcl_SetNamespaceResolvers +#define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \ + (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 144 */ +#endif +#ifndef TclCompileBreakCmd +#define TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 145 */ +#endif +#ifndef TclCompileCatchCmd +#define TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 146 */ +#endif +#ifndef TclCompileContinueCmd +#define TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 147 */ +#endif +#ifndef TclCompileExprCmd +#define TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 148 */ +#endif +#ifndef TclCompileForCmd +#define TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 149 */ +#endif +#ifndef TclCompileForeachCmd +#define TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 150 */ +#endif +#ifndef TclCompileIfCmd +#define TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 151 */ +#endif +#ifndef TclCompileIncrCmd +#define TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 152 */ +#endif +#ifndef TclCompileSetCmd +#define TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 153 */ +#endif +#ifndef TclCompileWhileCmd +#define TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 154 */ +#endif + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#endif /* _TCLINTDECLS */ + |