1429 lines
56 KiB
C
1429 lines
56 KiB
C
|
/*
|
||
|
|
* 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.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef _TCLINTDECLS
|
||
|
|
#define _TCLINTDECLS
|
||
|
|
|
||
|
|
|
||
|
|
#undef TCL_STORAGE_CLASS
|
||
|
|
#ifdef BUILD_tcl
|
||
|
|
# define TCL_STORAGE_CLASS DLLEXPORT
|
||
|
|
#else
|
||
|
|
# ifdef USE_TCL_STUBS
|
||
|
|
# define TCL_STORAGE_CLASS
|
||
|
|
# else
|
||
|
|
# define TCL_STORAGE_CLASS DLLIMPORT
|
||
|
|
# endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */
|
||
|
|
#undef Tcl_CreateNamespace
|
||
|
|
#undef Tcl_DeleteNamespace
|
||
|
|
#undef Tcl_AppendExportList
|
||
|
|
#undef Tcl_Export
|
||
|
|
#undef Tcl_Import
|
||
|
|
#undef Tcl_ForgetImport
|
||
|
|
#undef Tcl_GetCurrentNamespace
|
||
|
|
#undef Tcl_GetGlobalNamespace
|
||
|
|
#undef Tcl_FindNamespace
|
||
|
|
#undef Tcl_FindCommand
|
||
|
|
#undef Tcl_GetCommandFromObj
|
||
|
|
#undef Tcl_GetCommandFullName
|
||
|
|
#undef Tcl_SetStartupScript
|
||
|
|
#undef Tcl_GetStartupScript
|
||
|
|
|
||
|
|
/*
|
||
|
|
* 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. */
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
extern "C" {
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Exported function declarations:
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* Slot 0 is reserved */
|
||
|
|
/* Slot 1 is reserved */
|
||
|
|
/* Slot 2 is reserved */
|
||
|
|
/* 3 */
|
||
|
|
EXTERN void TclAllocateFreeObjects(void);
|
||
|
|
/* Slot 4 is reserved */
|
||
|
|
/* 5 */
|
||
|
|
EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids,
|
||
|
|
Tcl_Pid *pidPtr, Tcl_Channel errorChan);
|
||
|
|
/* 6 */
|
||
|
|
EXTERN void TclCleanupCommand(Command *cmdPtr);
|
||
|
|
/* 7 */
|
||
|
|
EXTERN int TclCopyAndCollapse(int count, const char *src,
|
||
|
|
char *dst);
|
||
|
|
/* 8 */
|
||
|
|
EXTERN int TclCopyChannelOld(Tcl_Interp *interp,
|
||
|
|
Tcl_Channel inChan, Tcl_Channel outChan,
|
||
|
|
int toRead, Tcl_Obj *cmdPtr);
|
||
|
|
/* 9 */
|
||
|
|
EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc,
|
||
|
|
const char **argv, Tcl_Pid **pidArrayPtr,
|
||
|
|
TclFile *inPipePtr, TclFile *outPipePtr,
|
||
|
|
TclFile *errFilePtr);
|
||
|
|
/* 10 */
|
||
|
|
EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
|
||
|
|
const char *procName, Tcl_Obj *argsPtr,
|
||
|
|
Tcl_Obj *bodyPtr, Proc **procPtrPtr);
|
||
|
|
/* 11 */
|
||
|
|
EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr,
|
||
|
|
CallFrame *framePtr);
|
||
|
|
/* 12 */
|
||
|
|
EXTERN void TclDeleteVars(Interp *iPtr,
|
||
|
|
TclVarHashTable *tablePtr);
|
||
|
|
/* Slot 13 is reserved */
|
||
|
|
/* 14 */
|
||
|
|
EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags);
|
||
|
|
/* Slot 15 is reserved */
|
||
|
|
/* 16 */
|
||
|
|
EXTERN void TclExprFloatError(Tcl_Interp *interp, double value);
|
||
|
|
/* Slot 17 is reserved */
|
||
|
|
/* Slot 18 is reserved */
|
||
|
|
/* Slot 19 is reserved */
|
||
|
|
/* Slot 20 is reserved */
|
||
|
|
/* Slot 21 is reserved */
|
||
|
|
/* 22 */
|
||
|
|
EXTERN int TclFindElement(Tcl_Interp *interp,
|
||
|
|
const char *listStr, int listLength,
|
||
|
|
const char **elementPtr,
|
||
|
|
const char **nextPtr, int *sizePtr,
|
||
|
|
int *bracePtr);
|
||
|
|
/* 23 */
|
||
|
|
EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName);
|
||
|
|
/* 24 */
|
||
|
|
EXTERN int TclFormatInt(char *buffer, long n);
|
||
|
|
/* 25 */
|
||
|
|
EXTERN void TclFreePackageInfo(Interp *iPtr);
|
||
|
|
/* Slot 26 is reserved */
|
||
|
|
/* Slot 27 is reserved */
|
||
|
|
/* 28 */
|
||
|
|
EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type);
|
||
|
|
/* Slot 29 is reserved */
|
||
|
|
/* Slot 30 is reserved */
|
||
|
|
/* 31 */
|
||
|
|
EXTERN const char * TclGetExtension(const char *name);
|
||
|
|
/* 32 */
|
||
|
|
EXTERN int TclGetFrame(Tcl_Interp *interp, const char *str,
|
||
|
|
CallFrame **framePtrPtr);
|
||
|
|
/* Slot 33 is reserved */
|
||
|
|
/* 34 */
|
||
|
|
EXTERN int TclGetIntForIndex(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *objPtr, int endValue, int *indexPtr);
|
||
|
|
/* Slot 35 is reserved */
|
||
|
|
/* Slot 36 is reserved */
|
||
|
|
/* 37 */
|
||
|
|
EXTERN int TclGetLoadedPackages(Tcl_Interp *interp,
|
||
|
|
const char *targetName);
|
||
|
|
/* 38 */
|
||
|
|
EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp,
|
||
|
|
const char *qualName, Namespace *cxtNsPtr,
|
||
|
|
int flags, Namespace **nsPtrPtr,
|
||
|
|
Namespace **altNsPtrPtr,
|
||
|
|
Namespace **actualCxtPtrPtr,
|
||
|
|
const char **simpleNamePtr);
|
||
|
|
/* 39 */
|
||
|
|
EXTERN TclObjCmdProcType TclGetObjInterpProc(void);
|
||
|
|
/* 40 */
|
||
|
|
EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str,
|
||
|
|
int *seekFlagPtr);
|
||
|
|
/* 41 */
|
||
|
|
EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command);
|
||
|
|
/* 42 */
|
||
|
|
EXTERN CONST86 char * TclpGetUserHome(const char *name,
|
||
|
|
Tcl_DString *bufferPtr);
|
||
|
|
/* Slot 43 is reserved */
|
||
|
|
/* 44 */
|
||
|
|
EXTERN int TclGuessPackageName(const char *fileName,
|
||
|
|
Tcl_DString *bufPtr);
|
||
|
|
/* 45 */
|
||
|
|
EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp);
|
||
|
|
/* 46 */
|
||
|
|
EXTERN int TclInExit(void);
|
||
|
|
/* Slot 47 is reserved */
|
||
|
|
/* Slot 48 is reserved */
|
||
|
|
/* Slot 49 is reserved */
|
||
|
|
/* 50 */
|
||
|
|
EXTERN void TclInitCompiledLocals(Tcl_Interp *interp,
|
||
|
|
CallFrame *framePtr, Namespace *nsPtr);
|
||
|
|
/* 51 */
|
||
|
|
EXTERN int TclInterpInit(Tcl_Interp *interp);
|
||
|
|
/* Slot 52 is reserved */
|
||
|
|
/* 53 */
|
||
|
|
EXTERN int TclInvokeObjectCommand(ClientData clientData,
|
||
|
|
Tcl_Interp *interp, int argc,
|
||
|
|
CONST84 char **argv);
|
||
|
|
/* 54 */
|
||
|
|
EXTERN int TclInvokeStringCommand(ClientData clientData,
|
||
|
|
Tcl_Interp *interp, int objc,
|
||
|
|
Tcl_Obj *const objv[]);
|
||
|
|
/* 55 */
|
||
|
|
EXTERN Proc * TclIsProc(Command *cmdPtr);
|
||
|
|
/* Slot 56 is reserved */
|
||
|
|
/* Slot 57 is reserved */
|
||
|
|
/* 58 */
|
||
|
|
EXTERN Var * TclLookupVar(Tcl_Interp *interp, const char *part1,
|
||
|
|
const char *part2, int flags,
|
||
|
|
const char *msg, int createPart1,
|
||
|
|
int createPart2, Var **arrayPtrPtr);
|
||
|
|
/* Slot 59 is reserved */
|
||
|
|
/* 60 */
|
||
|
|
EXTERN int TclNeedSpace(const char *start, const char *end);
|
||
|
|
/* 61 */
|
||
|
|
EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr);
|
||
|
|
/* 62 */
|
||
|
|
EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr);
|
||
|
|
/* 63 */
|
||
|
|
EXTERN int TclObjInterpProc(ClientData clientData,
|
||
|
|
Tcl_Interp *interp, int objc,
|
||
|
|
Tcl_Obj *const objv[]);
|
||
|
|
/* 64 */
|
||
|
|
EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc,
|
||
|
|
Tcl_Obj *const objv[], int flags);
|
||
|
|
/* Slot 65 is reserved */
|
||
|
|
/* Slot 66 is reserved */
|
||
|
|
/* Slot 67 is reserved */
|
||
|
|
/* Slot 68 is reserved */
|
||
|
|
/* 69 */
|
||
|
|
EXTERN char * TclpAlloc(unsigned int size);
|
||
|
|
/* Slot 70 is reserved */
|
||
|
|
/* Slot 71 is reserved */
|
||
|
|
/* Slot 72 is reserved */
|
||
|
|
/* Slot 73 is reserved */
|
||
|
|
/* 74 */
|
||
|
|
EXTERN void TclpFree(char *ptr);
|
||
|
|
/* 75 */
|
||
|
|
EXTERN unsigned long TclpGetClicks(void);
|
||
|
|
/* 76 */
|
||
|
|
EXTERN unsigned long TclpGetSeconds(void);
|
||
|
|
/* 77 */
|
||
|
|
EXTERN void TclpGetTime(Tcl_Time *time);
|
||
|
|
/* Slot 78 is reserved */
|
||
|
|
/* Slot 79 is reserved */
|
||
|
|
/* Slot 80 is reserved */
|
||
|
|
/* 81 */
|
||
|
|
EXTERN char * TclpRealloc(char *ptr, unsigned int size);
|
||
|
|
/* Slot 82 is reserved */
|
||
|
|
/* Slot 83 is reserved */
|
||
|
|
/* Slot 84 is reserved */
|
||
|
|
/* Slot 85 is reserved */
|
||
|
|
/* Slot 86 is reserved */
|
||
|
|
/* Slot 87 is reserved */
|
||
|
|
/* 88 */
|
||
|
|
EXTERN char * TclPrecTraceProc(ClientData clientData,
|
||
|
|
Tcl_Interp *interp, const char *name1,
|
||
|
|
const char *name2, int flags);
|
||
|
|
/* 89 */
|
||
|
|
EXTERN int TclPreventAliasLoop(Tcl_Interp *interp,
|
||
|
|
Tcl_Interp *cmdInterp, Tcl_Command cmd);
|
||
|
|
/* Slot 90 is reserved */
|
||
|
|
/* 91 */
|
||
|
|
EXTERN void TclProcCleanupProc(Proc *procPtr);
|
||
|
|
/* 92 */
|
||
|
|
EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
|
||
|
|
Tcl_Obj *bodyPtr, Namespace *nsPtr,
|
||
|
|
const char *description,
|
||
|
|
const char *procName);
|
||
|
|
/* 93 */
|
||
|
|
EXTERN void TclProcDeleteProc(ClientData clientData);
|
||
|
|
/* Slot 94 is reserved */
|
||
|
|
/* Slot 95 is reserved */
|
||
|
|
/* 96 */
|
||
|
|
EXTERN int TclRenameCommand(Tcl_Interp *interp,
|
||
|
|
const char *oldName, const char *newName);
|
||
|
|
/* 97 */
|
||
|
|
EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp,
|
||
|
|
Command *newCmdPtr);
|
||
|
|
/* 98 */
|
||
|
|
EXTERN int TclServiceIdle(void);
|
||
|
|
/* Slot 99 is reserved */
|
||
|
|
/* Slot 100 is reserved */
|
||
|
|
/* 101 */
|
||
|
|
EXTERN CONST86 char * TclSetPreInitScript(const char *string);
|
||
|
|
/* 102 */
|
||
|
|
EXTERN void TclSetupEnv(Tcl_Interp *interp);
|
||
|
|
/* 103 */
|
||
|
|
EXTERN int TclSockGetPort(Tcl_Interp *interp, const char *str,
|
||
|
|
const char *proto, int *portPtr);
|
||
|
|
/* 104 */
|
||
|
|
EXTERN int TclSockMinimumBuffersOld(int sock, int size);
|
||
|
|
/* Slot 105 is reserved */
|
||
|
|
/* Slot 106 is reserved */
|
||
|
|
/* Slot 107 is reserved */
|
||
|
|
/* 108 */
|
||
|
|
EXTERN void TclTeardownNamespace(Namespace *nsPtr);
|
||
|
|
/* 109 */
|
||
|
|
EXTERN int TclUpdateReturnInfo(Interp *iPtr);
|
||
|
|
/* 110 */
|
||
|
|
EXTERN int TclSockMinimumBuffers(void *sock, int size);
|
||
|
|
/* 111 */
|
||
|
|
EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp,
|
||
|
|
const char *name,
|
||
|
|
Tcl_ResolveCmdProc *cmdProc,
|
||
|
|
Tcl_ResolveVarProc *varProc,
|
||
|
|
Tcl_ResolveCompiledVarProc *compiledVarProc);
|
||
|
|
/* 112 */
|
||
|
|
EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
|
||
|
|
Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
|
||
|
|
/* 113 */
|
||
|
|
EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
|
||
|
|
const char *name, ClientData clientData,
|
||
|
|
Tcl_NamespaceDeleteProc *deleteProc);
|
||
|
|
/* 114 */
|
||
|
|
EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
|
||
|
|
/* 115 */
|
||
|
|
EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
|
||
|
|
const char *pattern, int resetListFirst);
|
||
|
|
/* 116 */
|
||
|
|
EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
|
||
|
|
Tcl_Namespace *contextNsPtr, int flags);
|
||
|
|
/* 117 */
|
||
|
|
EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
|
||
|
|
const char *name,
|
||
|
|
Tcl_Namespace *contextNsPtr, int flags);
|
||
|
|
/* 118 */
|
||
|
|
EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp,
|
||
|
|
const char *name, Tcl_ResolverInfo *resInfo);
|
||
|
|
/* 119 */
|
||
|
|
EXTERN int Tcl_GetNamespaceResolvers(
|
||
|
|
Tcl_Namespace *namespacePtr,
|
||
|
|
Tcl_ResolverInfo *resInfo);
|
||
|
|
/* 120 */
|
||
|
|
EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp,
|
||
|
|
const char *name,
|
||
|
|
Tcl_Namespace *contextNsPtr, int flags);
|
||
|
|
/* 121 */
|
||
|
|
EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
|
||
|
|
Tcl_Namespace *nsPtr, const char *pattern);
|
||
|
|
/* 122 */
|
||
|
|
EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *objPtr);
|
||
|
|
/* 123 */
|
||
|
|
EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
|
||
|
|
Tcl_Command command, Tcl_Obj *objPtr);
|
||
|
|
/* 124 */
|
||
|
|
EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
|
||
|
|
/* 125 */
|
||
|
|
EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
|
||
|
|
/* 126 */
|
||
|
|
EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp,
|
||
|
|
Tcl_Var variable, Tcl_Obj *objPtr);
|
||
|
|
/* 127 */
|
||
|
|
EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
|
||
|
|
const char *pattern, int allowOverwrite);
|
||
|
|
/* 128 */
|
||
|
|
EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp);
|
||
|
|
/* 129 */
|
||
|
|
EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp,
|
||
|
|
Tcl_CallFrame *framePtr,
|
||
|
|
Tcl_Namespace *nsPtr, int isProcCallFrame);
|
||
|
|
/* 130 */
|
||
|
|
EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
|
||
|
|
const char *name);
|
||
|
|
/* 131 */
|
||
|
|
EXTERN void Tcl_SetNamespaceResolvers(
|
||
|
|
Tcl_Namespace *namespacePtr,
|
||
|
|
Tcl_ResolveCmdProc *cmdProc,
|
||
|
|
Tcl_ResolveVarProc *varProc,
|
||
|
|
Tcl_ResolveCompiledVarProc *compiledVarProc);
|
||
|
|
/* 132 */
|
||
|
|
EXTERN int TclpHasSockets(Tcl_Interp *interp);
|
||
|
|
/* 133 */
|
||
|
|
EXTERN struct tm * TclpGetDate(const time_t *time, int useGMT);
|
||
|
|
/* Slot 134 is reserved */
|
||
|
|
/* Slot 135 is reserved */
|
||
|
|
/* Slot 136 is reserved */
|
||
|
|
/* Slot 137 is reserved */
|
||
|
|
/* 138 */
|
||
|
|
EXTERN CONST84_RETURN char * TclGetEnv(const char *name,
|
||
|
|
Tcl_DString *valuePtr);
|
||
|
|
/* Slot 139 is reserved */
|
||
|
|
/* Slot 140 is reserved */
|
||
|
|
/* 141 */
|
||
|
|
EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
|
||
|
|
Tcl_DString *cwdPtr);
|
||
|
|
/* 142 */
|
||
|
|
EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *objPtr, CompileHookProc *hookProc,
|
||
|
|
ClientData clientData);
|
||
|
|
/* 143 */
|
||
|
|
EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr,
|
||
|
|
Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
|
||
|
|
/* 144 */
|
||
|
|
EXTERN void TclHideLiteral(Tcl_Interp *interp,
|
||
|
|
struct CompileEnv *envPtr, int index);
|
||
|
|
/* 145 */
|
||
|
|
EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName);
|
||
|
|
/* 146 */
|
||
|
|
EXTERN TclHandle TclHandleCreate(void *ptr);
|
||
|
|
/* 147 */
|
||
|
|
EXTERN void TclHandleFree(TclHandle handle);
|
||
|
|
/* 148 */
|
||
|
|
EXTERN TclHandle TclHandlePreserve(TclHandle handle);
|
||
|
|
/* 149 */
|
||
|
|
EXTERN void TclHandleRelease(TclHandle handle);
|
||
|
|
/* 150 */
|
||
|
|
EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
|
||
|
|
/* 151 */
|
||
|
|
EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index,
|
||
|
|
int *startPtr, int *endPtr);
|
||
|
|
/* 152 */
|
||
|
|
EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr);
|
||
|
|
/* 153 */
|
||
|
|
EXTERN Tcl_Obj * TclGetLibraryPath(void);
|
||
|
|
/* Slot 154 is reserved */
|
||
|
|
/* Slot 155 is reserved */
|
||
|
|
/* 156 */
|
||
|
|
EXTERN void TclRegError(Tcl_Interp *interp, const char *msg,
|
||
|
|
int status);
|
||
|
|
/* 157 */
|
||
|
|
EXTERN Var * TclVarTraceExists(Tcl_Interp *interp,
|
||
|
|
const char *varName);
|
||
|
|
/* 158 */
|
||
|
|
EXTERN void TclSetStartupScriptFileName(const char *filename);
|
||
|
|
/* 159 */
|
||
|
|
EXTERN const char * TclGetStartupScriptFileName(void);
|
||
|
|
/* Slot 160 is reserved */
|
||
|
|
/* 161 */
|
||
|
|
EXTERN int TclChannelTransform(Tcl_Interp *interp,
|
||
|
|
Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
|
||
|
|
/* 162 */
|
||
|
|
EXTERN void TclChannelEventScriptInvoker(ClientData clientData,
|
||
|
|
int flags);
|
||
|
|
/* 163 */
|
||
|
|
EXTERN const void * TclGetInstructionTable(void);
|
||
|
|
/* 164 */
|
||
|
|
EXTERN void TclExpandCodeArray(void *envPtr);
|
||
|
|
/* 165 */
|
||
|
|
EXTERN void TclpSetInitialEncodings(void);
|
||
|
|
/* 166 */
|
||
|
|
EXTERN int TclListObjSetElement(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *listPtr, int index,
|
||
|
|
Tcl_Obj *valuePtr);
|
||
|
|
/* 167 */
|
||
|
|
EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr);
|
||
|
|
/* 168 */
|
||
|
|
EXTERN Tcl_Obj * TclGetStartupScriptPath(void);
|
||
|
|
/* 169 */
|
||
|
|
EXTERN int TclpUtfNcmp2(const char *s1, const char *s2,
|
||
|
|
unsigned long n);
|
||
|
|
/* 170 */
|
||
|
|
EXTERN int TclCheckInterpTraces(Tcl_Interp *interp,
|
||
|
|
const char *command, int numChars,
|
||
|
|
Command *cmdPtr, int result, int traceFlags,
|
||
|
|
int objc, Tcl_Obj *const objv[]);
|
||
|
|
/* 171 */
|
||
|
|
EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp,
|
||
|
|
const char *command, int numChars,
|
||
|
|
Command *cmdPtr, int result, int traceFlags,
|
||
|
|
int objc, Tcl_Obj *const objv[]);
|
||
|
|
/* 172 */
|
||
|
|
EXTERN int TclInThreadExit(void);
|
||
|
|
/* 173 */
|
||
|
|
EXTERN int TclUniCharMatch(const Tcl_UniChar *string,
|
||
|
|
int strLen, const Tcl_UniChar *pattern,
|
||
|
|
int ptnLen, int flags);
|
||
|
|
/* Slot 174 is reserved */
|
||
|
|
/* 175 */
|
||
|
|
EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
|
||
|
|
Var *varPtr, const char *part1,
|
||
|
|
const char *part2, int flags,
|
||
|
|
int leaveErrMsg);
|
||
|
|
/* 176 */
|
||
|
|
EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr);
|
||
|
|
/* 177 */
|
||
|
|
EXTERN void TclVarErrMsg(Tcl_Interp *interp, const char *part1,
|
||
|
|
const char *part2, const char *operation,
|
||
|
|
const char *reason);
|
||
|
|
/* 178 */
|
||
|
|
EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr,
|
||
|
|
const char *encodingName);
|
||
|
|
/* 179 */
|
||
|
|
EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingNamePtr);
|
||
|
|
/* Slot 180 is reserved */
|
||
|
|
/* Slot 181 is reserved */
|
||
|
|
/* 182 */
|
||
|
|
EXTERN struct tm * TclpLocaltime(const time_t *clock);
|
||
|
|
/* 183 */
|
||
|
|
EXTERN struct tm * TclpGmtime(const time_t *clock);
|
||
|
|
/* Slot 184 is reserved */
|
||
|
|
/* Slot 185 is reserved */
|
||
|
|
/* Slot 186 is reserved */
|
||
|
|
/* Slot 187 is reserved */
|
||
|
|
/* Slot 188 is reserved */
|
||
|
|
/* Slot 189 is reserved */
|
||
|
|
/* Slot 190 is reserved */
|
||
|
|
/* Slot 191 is reserved */
|
||
|
|
/* Slot 192 is reserved */
|
||
|
|
/* Slot 193 is reserved */
|
||
|
|
/* Slot 194 is reserved */
|
||
|
|
/* Slot 195 is reserved */
|
||
|
|
/* Slot 196 is reserved */
|
||
|
|
/* Slot 197 is reserved */
|
||
|
|
/* 198 */
|
||
|
|
EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
|
||
|
|
CallFrame **framePtrPtr);
|
||
|
|
/* Slot 199 is reserved */
|
||
|
|
/* 200 */
|
||
|
|
EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
|
||
|
|
int recursive, Tcl_Obj **errorPtr);
|
||
|
|
/* 201 */
|
||
|
|
EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
|
||
|
|
Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
|
||
|
|
/* 202 */
|
||
|
|
EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr);
|
||
|
|
/* 203 */
|
||
|
|
EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr);
|
||
|
|
/* 204 */
|
||
|
|
EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr,
|
||
|
|
Tcl_Obj *destPathPtr);
|
||
|
|
/* 205 */
|
||
|
|
EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr,
|
||
|
|
Tcl_Obj *destPathPtr);
|
||
|
|
/* 206 */
|
||
|
|
EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
|
||
|
|
/* 207 */
|
||
|
|
EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode);
|
||
|
|
/* 208 */
|
||
|
|
EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *pathPtr, int mode, int permissions);
|
||
|
|
/* Slot 209 is reserved */
|
||
|
|
/* Slot 210 is reserved */
|
||
|
|
/* Slot 211 is reserved */
|
||
|
|
/* 212 */
|
||
|
|
EXTERN void TclpFindExecutable(const char *argv0);
|
||
|
|
/* 213 */
|
||
|
|
EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void);
|
||
|
|
/* 214 */
|
||
|
|
EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name,
|
||
|
|
Tcl_Encoding encoding);
|
||
|
|
/* 215 */
|
||
|
|
EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes);
|
||
|
|
/* 216 */
|
||
|
|
EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr);
|
||
|
|
/* 217 */
|
||
|
|
EXTERN int TclPushStackFrame(Tcl_Interp *interp,
|
||
|
|
Tcl_CallFrame **framePtrPtr,
|
||
|
|
Tcl_Namespace *namespacePtr,
|
||
|
|
int isProcCallFrame);
|
||
|
|
/* 218 */
|
||
|
|
EXTERN void TclPopStackFrame(Tcl_Interp *interp);
|
||
|
|
/* Slot 219 is reserved */
|
||
|
|
/* Slot 220 is reserved */
|
||
|
|
/* Slot 221 is reserved */
|
||
|
|
/* Slot 222 is reserved */
|
||
|
|
/* Slot 223 is reserved */
|
||
|
|
/* 224 */
|
||
|
|
EXTERN TclPlatformType * TclGetPlatform(void);
|
||
|
|
/* 225 */
|
||
|
|
EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *rootPtr, int keyc,
|
||
|
|
Tcl_Obj *const keyv[], int flags);
|
||
|
|
/* 226 */
|
||
|
|
EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr);
|
||
|
|
/* 227 */
|
||
|
|
EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength,
|
||
|
|
Tcl_Namespace *pathAry[]);
|
||
|
|
/* Slot 228 is reserved */
|
||
|
|
/* 229 */
|
||
|
|
EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
|
||
|
|
const char *myName, int myFlags, int index);
|
||
|
|
/* 230 */
|
||
|
|
EXTERN Var * TclObjLookupVar(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *part1Ptr, const char *part2,
|
||
|
|
int flags, const char *msg,
|
||
|
|
const int createPart1, const int createPart2,
|
||
|
|
Var **arrayPtrPtr);
|
||
|
|
/* 231 */
|
||
|
|
EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
|
||
|
|
/* 232 */
|
||
|
|
EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
|
||
|
|
int flags, const CmdFrame *invoker, int word);
|
||
|
|
/* 233 */
|
||
|
|
EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr);
|
||
|
|
/* 234 */
|
||
|
|
EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr,
|
||
|
|
const char *key, int *newPtr);
|
||
|
|
/* 235 */
|
||
|
|
EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr,
|
||
|
|
Namespace *nsPtr);
|
||
|
|
/* 236 */
|
||
|
|
EXTERN void TclBackgroundException(Tcl_Interp *interp, int code);
|
||
|
|
/* 237 */
|
||
|
|
EXTERN int TclResetCancellation(Tcl_Interp *interp, int force);
|
||
|
|
/* 238 */
|
||
|
|
EXTERN int TclNRInterpProc(ClientData clientData,
|
||
|
|
Tcl_Interp *interp, int objc,
|
||
|
|
Tcl_Obj *const objv[]);
|
||
|
|
/* 239 */
|
||
|
|
EXTERN int TclNRInterpProcCore(Tcl_Interp *interp,
|
||
|
|
Tcl_Obj *procNameObj, int skip,
|
||
|
|
ProcErrorProc *errorProc);
|
||
|
|
/* 240 */
|
||
|
|
EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result,
|
||
|
|
struct NRE_callback *rootPtr);
|
||
|
|
/* 241 */
|
||
|
|
EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
|
||
|
|
int flags, const CmdFrame *invoker, int word);
|
||
|
|
/* 242 */
|
||
|
|
EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc,
|
||
|
|
Tcl_Obj *const objv[], int flags,
|
||
|
|
Command *cmdPtr);
|
||
|
|
/* 243 */
|
||
|
|
EXTERN void TclDbDumpActiveObjects(FILE *outFile);
|
||
|
|
/* 244 */
|
||
|
|
EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr);
|
||
|
|
/* 245 */
|
||
|
|
EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr);
|
||
|
|
/* 246 */
|
||
|
|
EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp,
|
||
|
|
int numRemoved, int numInserted,
|
||
|
|
Tcl_Obj *const *objv);
|
||
|
|
/* 247 */
|
||
|
|
EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp,
|
||
|
|
int isRootEnsemble);
|
||
|
|
/* 248 */
|
||
|
|
EXTERN int TclCopyChannel(Tcl_Interp *interp,
|
||
|
|
Tcl_Channel inChan, Tcl_Channel outChan,
|
||
|
|
Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
|
||
|
|
/* 249 */
|
||
|
|
EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags,
|
||
|
|
int *decpt, int *signum, char **endPtr);
|
||
|
|
/* 250 */
|
||
|
|
EXTERN void TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags,
|
||
|
|
int force);
|
||
|
|
/* 251 */
|
||
|
|
EXTERN int TclRegisterLiteral(void *envPtr, char *bytes,
|
||
|
|
int length, int flags);
|
||
|
|
/* 252 */
|
||
|
|
EXTERN Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr,
|
||
|
|
Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
|
||
|
|
Tcl_Obj *part2Ptr, const int flags);
|
||
|
|
/* 253 */
|
||
|
|
EXTERN Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr,
|
||
|
|
Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
|
||
|
|
Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
|
||
|
|
const int flags);
|
||
|
|
/* 254 */
|
||
|
|
EXTERN Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr,
|
||
|
|
Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
|
||
|
|
Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr,
|
||
|
|
const int flags);
|
||
|
|
/* 255 */
|
||
|
|
EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp,
|
||
|
|
Tcl_Var otherPtr, Tcl_Obj *myNamePtr,
|
||
|
|
int myFlags);
|
||
|
|
/* 256 */
|
||
|
|
EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr,
|
||
|
|
Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
|
||
|
|
Tcl_Obj *part2Ptr, const int flags);
|
||
|
|
/* 257 */
|
||
|
|
EXTERN void TclStaticPackage(Tcl_Interp *interp,
|
||
|
|
const char *prefix,
|
||
|
|
Tcl_PackageInitProc *initProc,
|
||
|
|
Tcl_PackageInitProc *safeInitProc);
|
||
|
|
/* Slot 258 is reserved */
|
||
|
|
/* Slot 259 is reserved */
|
||
|
|
/* 260 */
|
||
|
|
EXTERN void TclUnusedStubEntry(void);
|
||
|
|
|
||
|
|
typedef struct TclIntStubs {
|
||
|
|
int magic;
|
||
|
|
void *hooks;
|
||
|
|
|
||
|
|
void (*reserved0)(void);
|
||
|
|
void (*reserved1)(void);
|
||
|
|
void (*reserved2)(void);
|
||
|
|
void (*tclAllocateFreeObjects) (void); /* 3 */
|
||
|
|
void (*reserved4)(void);
|
||
|
|
int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */
|
||
|
|
void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */
|
||
|
|
int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */
|
||
|
|
int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */
|
||
|
|
int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */
|
||
|
|
int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */
|
||
|
|
void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */
|
||
|
|
void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */
|
||
|
|
void (*reserved13)(void);
|
||
|
|
int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */
|
||
|
|
void (*reserved15)(void);
|
||
|
|
void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */
|
||
|
|
void (*reserved17)(void);
|
||
|
|
void (*reserved18)(void);
|
||
|
|
void (*reserved19)(void);
|
||
|
|
void (*reserved20)(void);
|
||
|
|
void (*reserved21)(void);
|
||
|
|
int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */
|
||
|
|
Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */
|
||
|
|
int (*tclFormatInt) (char *buffer, long n); /* 24 */
|
||
|
|
void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */
|
||
|
|
void (*reserved26)(void);
|
||
|
|
void (*reserved27)(void);
|
||
|
|
Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
|
||
|
|
void (*reserved29)(void);
|
||
|
|
void (*reserved30)(void);
|
||
|
|
const char * (*tclGetExtension) (const char *name); /* 31 */
|
||
|
|
int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */
|
||
|
|
void (*reserved33)(void);
|
||
|
|
int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
|
||
|
|
void (*reserved35)(void);
|
||
|
|
void (*reserved36)(void);
|
||
|
|
int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */
|
||
|
|
int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */
|
||
|
|
TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */
|
||
|
|
int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */
|
||
|
|
Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
|
||
|
|
CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */
|
||
|
|
void (*reserved43)(void);
|
||
|
|
int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */
|
||
|
|
int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
|
||
|
|
int (*tclInExit) (void); /* 46 */
|
||
|
|
void (*reserved47)(void);
|
||
|
|
void (*reserved48)(void);
|
||
|
|
void (*reserved49)(void);
|
||
|
|
void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */
|
||
|
|
int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */
|
||
|
|
void (*reserved52)(void);
|
||
|
|
int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */
|
||
|
|
int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */
|
||
|
|
Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */
|
||
|
|
void (*reserved56)(void);
|
||
|
|
void (*reserved57)(void);
|
||
|
|
Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */
|
||
|
|
void (*reserved59)(void);
|
||
|
|
int (*tclNeedSpace) (const char *start, const char *end); /* 60 */
|
||
|
|
Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */
|
||
|
|
int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */
|
||
|
|
int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */
|
||
|
|
int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */
|
||
|
|
void (*reserved65)(void);
|
||
|
|
void (*reserved66)(void);
|
||
|
|
void (*reserved67)(void);
|
||
|
|
void (*reserved68)(void);
|
||
|
|
char * (*tclpAlloc) (unsigned int size); /* 69 */
|
||
|
|
void (*reserved70)(void);
|
||
|
|
void (*reserved71)(void);
|
||
|
|
void (*reserved72)(void);
|
||
|
|
void (*reserved73)(void);
|
||
|
|
void (*tclpFree) (char *ptr); /* 74 */
|
||
|
|
unsigned long (*tclpGetClicks) (void); /* 75 */
|
||
|
|
unsigned long (*tclpGetSeconds) (void); /* 76 */
|
||
|
|
void (*tclpGetTime) (Tcl_Time *time); /* 77 */
|
||
|
|
void (*reserved78)(void);
|
||
|
|
void (*reserved79)(void);
|
||
|
|
void (*reserved80)(void);
|
||
|
|
char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */
|
||
|
|
void (*reserved82)(void);
|
||
|
|
void (*reserved83)(void);
|
||
|
|
void (*reserved84)(void);
|
||
|
|
void (*reserved85)(void);
|
||
|
|
void (*reserved86)(void);
|
||
|
|
void (*reserved87)(void);
|
||
|
|
char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */
|
||
|
|
int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */
|
||
|
|
void (*reserved90)(void);
|
||
|
|
void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */
|
||
|
|
int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */
|
||
|
|
void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
|
||
|
|
void (*reserved94)(void);
|
||
|
|
void (*reserved95)(void);
|
||
|
|
int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */
|
||
|
|
void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */
|
||
|
|
int (*tclServiceIdle) (void); /* 98 */
|
||
|
|
void (*reserved99)(void);
|
||
|
|
void (*reserved100)(void);
|
||
|
|
CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */
|
||
|
|
void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */
|
||
|
|
int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */
|
||
|
|
int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */
|
||
|
|
void (*reserved105)(void);
|
||
|
|
void (*reserved106)(void);
|
||
|
|
void (*reserved107)(void);
|
||
|
|
void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */
|
||
|
|
int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */
|
||
|
|
int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */
|
||
|
|
void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */
|
||
|
|
int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */
|
||
|
|
Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */
|
||
|
|
void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */
|
||
|
|
int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */
|
||
|
|
Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */
|
||
|
|
Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */
|
||
|
|
int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */
|
||
|
|
int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */
|
||
|
|
Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */
|
||
|
|
int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */
|
||
|
|
Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */
|
||
|
|
void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */
|
||
|
|
Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */
|
||
|
|
Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */
|
||
|
|
void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */
|
||
|
|
int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */
|
||
|
|
void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */
|
||
|
|
int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */
|
||
|
|
int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */
|
||
|
|
void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */
|
||
|
|
int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */
|
||
|
|
struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */
|
||
|
|
void (*reserved134)(void);
|
||
|
|
void (*reserved135)(void);
|
||
|
|
void (*reserved136)(void);
|
||
|
|
void (*reserved137)(void);
|
||
|
|
CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */
|
||
|
|
void (*reserved139)(void);
|
||
|
|
void (*reserved140)(void);
|
||
|
|
CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */
|
||
|
|
int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */
|
||
|
|
int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */
|
||
|
|
void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */
|
||
|
|
const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */
|
||
|
|
TclHandle (*tclHandleCreate) (void *ptr); /* 146 */
|
||
|
|
void (*tclHandleFree) (TclHandle handle); /* 147 */
|
||
|
|
TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
|
||
|
|
void (*tclHandleRelease) (TclHandle handle); /* 149 */
|
||
|
|
int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */
|
||
|
|
void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */
|
||
|
|
void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */
|
||
|
|
Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
|
||
|
|
void (*reserved154)(void);
|
||
|
|
void (*reserved155)(void);
|
||
|
|
void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */
|
||
|
|
Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */
|
||
|
|
void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */
|
||
|
|
const char * (*tclGetStartupScriptFileName) (void); /* 159 */
|
||
|
|
void (*reserved160)(void);
|
||
|
|
int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */
|
||
|
|
void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
|
||
|
|
const void * (*tclGetInstructionTable) (void); /* 163 */
|
||
|
|
void (*tclExpandCodeArray) (void *envPtr); /* 164 */
|
||
|
|
void (*tclpSetInitialEncodings) (void); /* 165 */
|
||
|
|
int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */
|
||
|
|
void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */
|
||
|
|
Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
|
||
|
|
int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */
|
||
|
|
int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 170 */
|
||
|
|
int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 171 */
|
||
|
|
int (*tclInThreadExit) (void); /* 172 */
|
||
|
|
int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */
|
||
|
|
void (*reserved174)(void);
|
||
|
|
int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */
|
||
|
|
void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */
|
||
|
|
void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */
|
||
|
|
void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */
|
||
|
|
Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */
|
||
|
|
void (*reserved180)(void);
|
||
|
|
void (*reserved181)(void);
|
||
|
|
struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */
|
||
|
|
struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */
|
||
|
|
void (*reserved184)(void);
|
||
|
|
void (*reserved185)(void);
|
||
|
|
void (*reserved186)(void);
|
||
|
|
void (*reserved187)(void);
|
||
|
|
void (*reserved188)(void);
|
||
|
|
void (*reserved189)(void);
|
||
|
|
void (*reserved190)(void);
|
||
|
|
void (*reserved191)(void);
|
||
|
|
void (*reserved192)(void);
|
||
|
|
void (*reserved193)(void);
|
||
|
|
void (*reserved194)(void);
|
||
|
|
void (*reserved195)(void);
|
||
|
|
void (*reserved196)(void);
|
||
|
|
void (*reserved197)(void);
|
||
|
|
int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */
|
||
|
|
void (*reserved199)(void);
|
||
|
|
int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */
|
||
|
|
int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */
|
||
|
|
int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */
|
||
|
|
int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */
|
||
|
|
int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */
|
||
|
|
int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */
|
||
|
|
int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */
|
||
|
|
int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */
|
||
|
|
Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */
|
||
|
|
void (*reserved209)(void);
|
||
|
|
void (*reserved210)(void);
|
||
|
|
void (*reserved211)(void);
|
||
|
|
void (*tclpFindExecutable) (const char *argv0); /* 212 */
|
||
|
|
Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
|
||
|
|
void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */
|
||
|
|
void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */
|
||
|
|
void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */
|
||
|
|
int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */
|
||
|
|
void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */
|
||
|
|
void (*reserved219)(void);
|
||
|
|
void (*reserved220)(void);
|
||
|
|
void (*reserved221)(void);
|
||
|
|
void (*reserved222)(void);
|
||
|
|
void (*reserved223)(void);
|
||
|
|
TclPlatformType * (*tclGetPlatform) (void); /* 224 */
|
||
|
|
Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */
|
||
|
|
int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */
|
||
|
|
void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */
|
||
|
|
void (*reserved228)(void);
|
||
|
|
int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */
|
||
|
|
Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, const char *part2, int flags, const char *msg, const int createPart1, const int createPart2, Var **arrayPtrPtr); /* 230 */
|
||
|
|
int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */
|
||
|
|
int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */
|
||
|
|
void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */
|
||
|
|
Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */
|
||
|
|
void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */
|
||
|
|
void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */
|
||
|
|
int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */
|
||
|
|
int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */
|
||
|
|
int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */
|
||
|
|
int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */
|
||
|
|
int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */
|
||
|
|
int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */
|
||
|
|
void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */
|
||
|
|
Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */
|
||
|
|
Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */
|
||
|
|
int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */
|
||
|
|
void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */
|
||
|
|
int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */
|
||
|
|
char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */
|
||
|
|
void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */
|
||
|
|
int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */
|
||
|
|
Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 252 */
|
||
|
|
Tcl_Obj * (*tclPtrSetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags); /* 253 */
|
||
|
|
Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */
|
||
|
|
int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */
|
||
|
|
int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */
|
||
|
|
void (*tclStaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */
|
||
|
|
void (*reserved258)(void);
|
||
|
|
void (*reserved259)(void);
|
||
|
|
void (*tclUnusedStubEntry) (void); /* 260 */
|
||
|
|
} TclIntStubs;
|
||
|
|
|
||
|
|
extern const TclIntStubs *tclIntStubsPtr;
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(USE_TCL_STUBS)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Inline function declarations:
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* Slot 0 is reserved */
|
||
|
|
/* Slot 1 is reserved */
|
||
|
|
/* Slot 2 is reserved */
|
||
|
|
#define TclAllocateFreeObjects \
|
||
|
|
(tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
|
||
|
|
/* Slot 4 is reserved */
|
||
|
|
#define TclCleanupChildren \
|
||
|
|
(tclIntStubsPtr->tclCleanupChildren) /* 5 */
|
||
|
|
#define TclCleanupCommand \
|
||
|
|
(tclIntStubsPtr->tclCleanupCommand) /* 6 */
|
||
|
|
#define TclCopyAndCollapse \
|
||
|
|
(tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
|
||
|
|
#define TclCopyChannelOld \
|
||
|
|
(tclIntStubsPtr->tclCopyChannelOld) /* 8 */
|
||
|
|
#define TclCreatePipeline \
|
||
|
|
(tclIntStubsPtr->tclCreatePipeline) /* 9 */
|
||
|
|
#define TclCreateProc \
|
||
|
|
(tclIntStubsPtr->tclCreateProc) /* 10 */
|
||
|
|
#define TclDeleteCompiledLocalVars \
|
||
|
|
(tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
|
||
|
|
#define TclDeleteVars \
|
||
|
|
(tclIntStubsPtr->tclDeleteVars) /* 12 */
|
||
|
|
/* Slot 13 is reserved */
|
||
|
|
#define TclDumpMemoryInfo \
|
||
|
|
(tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
|
||
|
|
/* Slot 15 is reserved */
|
||
|
|
#define TclExprFloatError \
|
||
|
|
(tclIntStubsPtr->tclExprFloatError) /* 16 */
|
||
|
|
/* Slot 17 is reserved */
|
||
|
|
/* Slot 18 is reserved */
|
||
|
|
/* Slot 19 is reserved */
|
||
|
|
/* Slot 20 is reserved */
|
||
|
|
/* Slot 21 is reserved */
|
||
|
|
#define TclFindElement \
|
||
|
|
(tclIntStubsPtr->tclFindElement) /* 22 */
|
||
|
|
#define TclFindProc \
|
||
|
|
(tclIntStubsPtr->tclFindProc) /* 23 */
|
||
|
|
#define TclFormatInt \
|
||
|
|
(tclIntStubsPtr->tclFormatInt) /* 24 */
|
||
|
|
#define TclFreePackageInfo \
|
||
|
|
(tclIntStubsPtr->tclFreePackageInfo) /* 25 */
|
||
|
|
/* Slot 26 is reserved */
|
||
|
|
/* Slot 27 is reserved */
|
||
|
|
#define TclpGetDefaultStdChannel \
|
||
|
|
(tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
|
||
|
|
/* Slot 29 is reserved */
|
||
|
|
/* Slot 30 is reserved */
|
||
|
|
#define TclGetExtension \
|
||
|
|
(tclIntStubsPtr->tclGetExtension) /* 31 */
|
||
|
|
#define TclGetFrame \
|
||
|
|
(tclIntStubsPtr->tclGetFrame) /* 32 */
|
||
|
|
/* Slot 33 is reserved */
|
||
|
|
#define TclGetIntForIndex \
|
||
|
|
(tclIntStubsPtr->tclGetIntForIndex) /* 34 */
|
||
|
|
/* Slot 35 is reserved */
|
||
|
|
/* Slot 36 is reserved */
|
||
|
|
#define TclGetLoadedPackages \
|
||
|
|
(tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
|
||
|
|
#define TclGetNamespaceForQualName \
|
||
|
|
(tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
|
||
|
|
#define TclGetObjInterpProc \
|
||
|
|
(tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
|
||
|
|
#define TclGetOpenMode \
|
||
|
|
(tclIntStubsPtr->tclGetOpenMode) /* 40 */
|
||
|
|
#define TclGetOriginalCommand \
|
||
|
|
(tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
|
||
|
|
#define TclpGetUserHome \
|
||
|
|
(tclIntStubsPtr->tclpGetUserHome) /* 42 */
|
||
|
|
/* Slot 43 is reserved */
|
||
|
|
#define TclGuessPackageName \
|
||
|
|
(tclIntStubsPtr->tclGuessPackageName) /* 44 */
|
||
|
|
#define TclHideUnsafeCommands \
|
||
|
|
(tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
|
||
|
|
#define TclInExit \
|
||
|
|
(tclIntStubsPtr->tclInExit) /* 46 */
|
||
|
|
/* Slot 47 is reserved */
|
||
|
|
/* Slot 48 is reserved */
|
||
|
|
/* Slot 49 is reserved */
|
||
|
|
#define TclInitCompiledLocals \
|
||
|
|
(tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
|
||
|
|
#define TclInterpInit \
|
||
|
|
(tclIntStubsPtr->tclInterpInit) /* 51 */
|
||
|
|
/* Slot 52 is reserved */
|
||
|
|
#define TclInvokeObjectCommand \
|
||
|
|
(tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
|
||
|
|
#define TclInvokeStringCommand \
|
||
|
|
(tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
|
||
|
|
#define TclIsProc \
|
||
|
|
(tclIntStubsPtr->tclIsProc) /* 55 */
|
||
|
|
/* Slot 56 is reserved */
|
||
|
|
/* Slot 57 is reserved */
|
||
|
|
#define TclLookupVar \
|
||
|
|
(tclIntStubsPtr->tclLookupVar) /* 58 */
|
||
|
|
/* Slot 59 is reserved */
|
||
|
|
#define TclNeedSpace \
|
||
|
|
(tclIntStubsPtr->tclNeedSpace) /* 60 */
|
||
|
|
#define TclNewProcBodyObj \
|
||
|
|
(tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
|
||
|
|
#define TclObjCommandComplete \
|
||
|
|
(tclIntStubsPtr->tclObjCommandComplete) /* 62 */
|
||
|
|
#define TclObjInterpProc \
|
||
|
|
(tclIntStubsPtr->tclObjInterpProc) /* 63 */
|
||
|
|
#define TclObjInvoke \
|
||
|
|
(tclIntStubsPtr->tclObjInvoke) /* 64 */
|
||
|
|
/* Slot 65 is reserved */
|
||
|
|
/* Slot 66 is reserved */
|
||
|
|
/* Slot 67 is reserved */
|
||
|
|
/* Slot 68 is reserved */
|
||
|
|
#define TclpAlloc \
|
||
|
|
(tclIntStubsPtr->tclpAlloc) /* 69 */
|
||
|
|
/* Slot 70 is reserved */
|
||
|
|
/* Slot 71 is reserved */
|
||
|
|
/* Slot 72 is reserved */
|
||
|
|
/* Slot 73 is reserved */
|
||
|
|
#define TclpFree \
|
||
|
|
(tclIntStubsPtr->tclpFree) /* 74 */
|
||
|
|
#define TclpGetClicks \
|
||
|
|
(tclIntStubsPtr->tclpGetClicks) /* 75 */
|
||
|
|
#define TclpGetSeconds \
|
||
|
|
(tclIntStubsPtr->tclpGetSeconds) /* 76 */
|
||
|
|
#define TclpGetTime \
|
||
|
|
(tclIntStubsPtr->tclpGetTime) /* 77 */
|
||
|
|
/* Slot 78 is reserved */
|
||
|
|
/* Slot 79 is reserved */
|
||
|
|
/* Slot 80 is reserved */
|
||
|
|
#define TclpRealloc \
|
||
|
|
(tclIntStubsPtr->tclpRealloc) /* 81 */
|
||
|
|
/* Slot 82 is reserved */
|
||
|
|
/* Slot 83 is reserved */
|
||
|
|
/* Slot 84 is reserved */
|
||
|
|
/* Slot 85 is reserved */
|
||
|
|
/* Slot 86 is reserved */
|
||
|
|
/* Slot 87 is reserved */
|
||
|
|
#define TclPrecTraceProc \
|
||
|
|
(tclIntStubsPtr->tclPrecTraceProc) /* 88 */
|
||
|
|
#define TclPreventAliasLoop \
|
||
|
|
(tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
|
||
|
|
/* Slot 90 is reserved */
|
||
|
|
#define TclProcCleanupProc \
|
||
|
|
(tclIntStubsPtr->tclProcCleanupProc) /* 91 */
|
||
|
|
#define TclProcCompileProc \
|
||
|
|
(tclIntStubsPtr->tclProcCompileProc) /* 92 */
|
||
|
|
#define TclProcDeleteProc \
|
||
|
|
(tclIntStubsPtr->tclProcDeleteProc) /* 93 */
|
||
|
|
/* Slot 94 is reserved */
|
||
|
|
/* Slot 95 is reserved */
|
||
|
|
#define TclRenameCommand \
|
||
|
|
(tclIntStubsPtr->tclRenameCommand) /* 96 */
|
||
|
|
#define TclResetShadowedCmdRefs \
|
||
|
|
(tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
|
||
|
|
#define TclServiceIdle \
|
||
|
|
(tclIntStubsPtr->tclServiceIdle) /* 98 */
|
||
|
|
/* Slot 99 is reserved */
|
||
|
|
/* Slot 100 is reserved */
|
||
|
|
#define TclSetPreInitScript \
|
||
|
|
(tclIntStubsPtr->tclSetPreInitScript) /* 101 */
|
||
|
|
#define TclSetupEnv \
|
||
|
|
(tclIntStubsPtr->tclSetupEnv) /* 102 */
|
||
|
|
#define TclSockGetPort \
|
||
|
|
(tclIntStubsPtr->tclSockGetPort) /* 103 */
|
||
|
|
#define TclSockMinimumBuffersOld \
|
||
|
|
(tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */
|
||
|
|
/* Slot 105 is reserved */
|
||
|
|
/* Slot 106 is reserved */
|
||
|
|
/* Slot 107 is reserved */
|
||
|
|
#define TclTeardownNamespace \
|
||
|
|
(tclIntStubsPtr->tclTeardownNamespace) /* 108 */
|
||
|
|
#define TclUpdateReturnInfo \
|
||
|
|
(tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
|
||
|
|
#define TclSockMinimumBuffers \
|
||
|
|
(tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */
|
||
|
|
#define Tcl_AddInterpResolvers \
|
||
|
|
(tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
|
||
|
|
#define Tcl_AppendExportList \
|
||
|
|
(tclIntStubsPtr->tcl_AppendExportList) /* 112 */
|
||
|
|
#define Tcl_CreateNamespace \
|
||
|
|
(tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
|
||
|
|
#define Tcl_DeleteNamespace \
|
||
|
|
(tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
|
||
|
|
#define Tcl_Export \
|
||
|
|
(tclIntStubsPtr->tcl_Export) /* 115 */
|
||
|
|
#define Tcl_FindCommand \
|
||
|
|
(tclIntStubsPtr->tcl_FindCommand) /* 116 */
|
||
|
|
#define Tcl_FindNamespace \
|
||
|
|
(tclIntStubsPtr->tcl_FindNamespace) /* 117 */
|
||
|
|
#define Tcl_GetInterpResolvers \
|
||
|
|
(tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
|
||
|
|
#define Tcl_GetNamespaceResolvers \
|
||
|
|
(tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
|
||
|
|
#define Tcl_FindNamespaceVar \
|
||
|
|
(tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
|
||
|
|
#define Tcl_ForgetImport \
|
||
|
|
(tclIntStubsPtr->tcl_ForgetImport) /* 121 */
|
||
|
|
#define Tcl_GetCommandFromObj \
|
||
|
|
(tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
|
||
|
|
#define Tcl_GetCommandFullName \
|
||
|
|
(tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
|
||
|
|
#define Tcl_GetCurrentNamespace \
|
||
|
|
(tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
|
||
|
|
#define Tcl_GetGlobalNamespace \
|
||
|
|
(tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
|
||
|
|
#define Tcl_GetVariableFullName \
|
||
|
|
(tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
|
||
|
|
#define Tcl_Import \
|
||
|
|
(tclIntStubsPtr->tcl_Import) /* 127 */
|
||
|
|
#define Tcl_PopCallFrame \
|
||
|
|
(tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
|
||
|
|
#define Tcl_PushCallFrame \
|
||
|
|
(tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
|
||
|
|
#define Tcl_RemoveInterpResolvers \
|
||
|
|
(tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
|
||
|
|
#define Tcl_SetNamespaceResolvers \
|
||
|
|
(tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
|
||
|
|
#define TclpHasSockets \
|
||
|
|
(tclIntStubsPtr->tclpHasSockets) /* 132 */
|
||
|
|
#define TclpGetDate \
|
||
|
|
(tclIntStubsPtr->tclpGetDate) /* 133 */
|
||
|
|
/* Slot 134 is reserved */
|
||
|
|
/* Slot 135 is reserved */
|
||
|
|
/* Slot 136 is reserved */
|
||
|
|
/* Slot 137 is reserved */
|
||
|
|
#define TclGetEnv \
|
||
|
|
(tclIntStubsPtr->tclGetEnv) /* 138 */
|
||
|
|
/* Slot 139 is reserved */
|
||
|
|
/* Slot 140 is reserved */
|
||
|
|
#define TclpGetCwd \
|
||
|
|
(tclIntStubsPtr->tclpGetCwd) /* 141 */
|
||
|
|
#define TclSetByteCodeFromAny \
|
||
|
|
(tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
|
||
|
|
#define TclAddLiteralObj \
|
||
|
|
(tclIntStubsPtr->tclAddLiteralObj) /* 143 */
|
||
|
|
#define TclHideLiteral \
|
||
|
|
(tclIntStubsPtr->tclHideLiteral) /* 144 */
|
||
|
|
#define TclGetAuxDataType \
|
||
|
|
(tclIntStubsPtr->tclGetAuxDataType) /* 145 */
|
||
|
|
#define TclHandleCreate \
|
||
|
|
(tclIntStubsPtr->tclHandleCreate) /* 146 */
|
||
|
|
#define TclHandleFree \
|
||
|
|
(tclIntStubsPtr->tclHandleFree) /* 147 */
|
||
|
|
#define TclHandlePreserve \
|
||
|
|
(tclIntStubsPtr->tclHandlePreserve) /* 148 */
|
||
|
|
#define TclHandleRelease \
|
||
|
|
(tclIntStubsPtr->tclHandleRelease) /* 149 */
|
||
|
|
#define TclRegAbout \
|
||
|
|
(tclIntStubsPtr->tclRegAbout) /* 150 */
|
||
|
|
#define TclRegExpRangeUniChar \
|
||
|
|
(tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
|
||
|
|
#define TclSetLibraryPath \
|
||
|
|
(tclIntStubsPtr->tclSetLibraryPath) /* 152 */
|
||
|
|
#define TclGetLibraryPath \
|
||
|
|
(tclIntStubsPtr->tclGetLibraryPath) /* 153 */
|
||
|
|
/* Slot 154 is reserved */
|
||
|
|
/* Slot 155 is reserved */
|
||
|
|
#define TclRegError \
|
||
|
|
(tclIntStubsPtr->tclRegError) /* 156 */
|
||
|
|
#define TclVarTraceExists \
|
||
|
|
(tclIntStubsPtr->tclVarTraceExists) /* 157 */
|
||
|
|
#define TclSetStartupScriptFileName \
|
||
|
|
(tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
|
||
|
|
#define TclGetStartupScriptFileName \
|
||
|
|
(tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
|
||
|
|
/* Slot 160 is reserved */
|
||
|
|
#define TclChannelTransform \
|
||
|
|
(tclIntStubsPtr->tclChannelTransform) /* 161 */
|
||
|
|
#define TclChannelEventScriptInvoker \
|
||
|
|
(tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
|
||
|
|
#define TclGetInstructionTable \
|
||
|
|
(tclIntStubsPtr->tclGetInstructionTable) /* 163 */
|
||
|
|
#define TclExpandCodeArray \
|
||
|
|
(tclIntStubsPtr->tclExpandCodeArray) /* 164 */
|
||
|
|
#define TclpSetInitialEncodings \
|
||
|
|
(tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
|
||
|
|
#define TclListObjSetElement \
|
||
|
|
(tclIntStubsPtr->tclListObjSetElement) /* 166 */
|
||
|
|
#define TclSetStartupScriptPath \
|
||
|
|
(tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
|
||
|
|
#define TclGetStartupScriptPath \
|
||
|
|
(tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
|
||
|
|
#define TclpUtfNcmp2 \
|
||
|
|
(tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
|
||
|
|
#define TclCheckInterpTraces \
|
||
|
|
(tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
|
||
|
|
#define TclCheckExecutionTraces \
|
||
|
|
(tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
|
||
|
|
#define TclInThreadExit \
|
||
|
|
(tclIntStubsPtr->tclInThreadExit) /* 172 */
|
||
|
|
#define TclUniCharMatch \
|
||
|
|
(tclIntStubsPtr->tclUniCharMatch) /* 173 */
|
||
|
|
/* Slot 174 is reserved */
|
||
|
|
#define TclCallVarTraces \
|
||
|
|
(tclIntStubsPtr->tclCallVarTraces) /* 175 */
|
||
|
|
#define TclCleanupVar \
|
||
|
|
(tclIntStubsPtr->tclCleanupVar) /* 176 */
|
||
|
|
#define TclVarErrMsg \
|
||
|
|
(tclIntStubsPtr->tclVarErrMsg) /* 177 */
|
||
|
|
#define Tcl_SetStartupScript \
|
||
|
|
(tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
|
||
|
|
#define Tcl_GetStartupScript \
|
||
|
|
(tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
|
||
|
|
/* Slot 180 is reserved */
|
||
|
|
/* Slot 181 is reserved */
|
||
|
|
#define TclpLocaltime \
|
||
|
|
(tclIntStubsPtr->tclpLocaltime) /* 182 */
|
||
|
|
#define TclpGmtime \
|
||
|
|
(tclIntStubsPtr->tclpGmtime) /* 183 */
|
||
|
|
/* Slot 184 is reserved */
|
||
|
|
/* Slot 185 is reserved */
|
||
|
|
/* Slot 186 is reserved */
|
||
|
|
/* Slot 187 is reserved */
|
||
|
|
/* Slot 188 is reserved */
|
||
|
|
/* Slot 189 is reserved */
|
||
|
|
/* Slot 190 is reserved */
|
||
|
|
/* Slot 191 is reserved */
|
||
|
|
/* Slot 192 is reserved */
|
||
|
|
/* Slot 193 is reserved */
|
||
|
|
/* Slot 194 is reserved */
|
||
|
|
/* Slot 195 is reserved */
|
||
|
|
/* Slot 196 is reserved */
|
||
|
|
/* Slot 197 is reserved */
|
||
|
|
#define TclObjGetFrame \
|
||
|
|
(tclIntStubsPtr->tclObjGetFrame) /* 198 */
|
||
|
|
/* Slot 199 is reserved */
|
||
|
|
#define TclpObjRemoveDirectory \
|
||
|
|
(tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
|
||
|
|
#define TclpObjCopyDirectory \
|
||
|
|
(tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
|
||
|
|
#define TclpObjCreateDirectory \
|
||
|
|
(tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
|
||
|
|
#define TclpObjDeleteFile \
|
||
|
|
(tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
|
||
|
|
#define TclpObjCopyFile \
|
||
|
|
(tclIntStubsPtr->tclpObjCopyFile) /* 204 */
|
||
|
|
#define TclpObjRenameFile \
|
||
|
|
(tclIntStubsPtr->tclpObjRenameFile) /* 205 */
|
||
|
|
#define TclpObjStat \
|
||
|
|
(tclIntStubsPtr->tclpObjStat) /* 206 */
|
||
|
|
#define TclpObjAccess \
|
||
|
|
(tclIntStubsPtr->tclpObjAccess) /* 207 */
|
||
|
|
#define TclpOpenFileChannel \
|
||
|
|
(tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
|
||
|
|
/* Slot 209 is reserved */
|
||
|
|
/* Slot 210 is reserved */
|
||
|
|
/* Slot 211 is reserved */
|
||
|
|
#define TclpFindExecutable \
|
||
|
|
(tclIntStubsPtr->tclpFindExecutable) /* 212 */
|
||
|
|
#define TclGetObjNameOfExecutable \
|
||
|
|
(tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
|
||
|
|
#define TclSetObjNameOfExecutable \
|
||
|
|
(tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
|
||
|
|
#define TclStackAlloc \
|
||
|
|
(tclIntStubsPtr->tclStackAlloc) /* 215 */
|
||
|
|
#define TclStackFree \
|
||
|
|
(tclIntStubsPtr->tclStackFree) /* 216 */
|
||
|
|
#define TclPushStackFrame \
|
||
|
|
(tclIntStubsPtr->tclPushStackFrame) /* 217 */
|
||
|
|
#define TclPopStackFrame \
|
||
|
|
(tclIntStubsPtr->tclPopStackFrame) /* 218 */
|
||
|
|
/* Slot 219 is reserved */
|
||
|
|
/* Slot 220 is reserved */
|
||
|
|
/* Slot 221 is reserved */
|
||
|
|
/* Slot 222 is reserved */
|
||
|
|
/* Slot 223 is reserved */
|
||
|
|
#define TclGetPlatform \
|
||
|
|
(tclIntStubsPtr->tclGetPlatform) /* 224 */
|
||
|
|
#define TclTraceDictPath \
|
||
|
|
(tclIntStubsPtr->tclTraceDictPath) /* 225 */
|
||
|
|
#define TclObjBeingDeleted \
|
||
|
|
(tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
|
||
|
|
#define TclSetNsPath \
|
||
|
|
(tclIntStubsPtr->tclSetNsPath) /* 227 */
|
||
|
|
/* Slot 228 is reserved */
|
||
|
|
#define TclPtrMakeUpvar \
|
||
|
|
(tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
|
||
|
|
#define TclObjLookupVar \
|
||
|
|
(tclIntStubsPtr->tclObjLookupVar) /* 230 */
|
||
|
|
#define TclGetNamespaceFromObj \
|
||
|
|
(tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
|
||
|
|
#define TclEvalObjEx \
|
||
|
|
(tclIntStubsPtr->tclEvalObjEx) /* 232 */
|
||
|
|
#define TclGetSrcInfoForPc \
|
||
|
|
(tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
|
||
|
|
#define TclVarHashCreateVar \
|
||
|
|
(tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
|
||
|
|
#define TclInitVarHashTable \
|
||
|
|
(tclIntStubsPtr->tclInitVarHashTable) /* 235 */
|
||
|
|
#define TclBackgroundException \
|
||
|
|
(tclIntStubsPtr->tclBackgroundException) /* 236 */
|
||
|
|
#define TclResetCancellation \
|
||
|
|
(tclIntStubsPtr->tclResetCancellation) /* 237 */
|
||
|
|
#define TclNRInterpProc \
|
||
|
|
(tclIntStubsPtr->tclNRInterpProc) /* 238 */
|
||
|
|
#define TclNRInterpProcCore \
|
||
|
|
(tclIntStubsPtr->tclNRInterpProcCore) /* 239 */
|
||
|
|
#define TclNRRunCallbacks \
|
||
|
|
(tclIntStubsPtr->tclNRRunCallbacks) /* 240 */
|
||
|
|
#define TclNREvalObjEx \
|
||
|
|
(tclIntStubsPtr->tclNREvalObjEx) /* 241 */
|
||
|
|
#define TclNREvalObjv \
|
||
|
|
(tclIntStubsPtr->tclNREvalObjv) /* 242 */
|
||
|
|
#define TclDbDumpActiveObjects \
|
||
|
|
(tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */
|
||
|
|
#define TclGetNamespaceChildTable \
|
||
|
|
(tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */
|
||
|
|
#define TclGetNamespaceCommandTable \
|
||
|
|
(tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */
|
||
|
|
#define TclInitRewriteEnsemble \
|
||
|
|
(tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */
|
||
|
|
#define TclResetRewriteEnsemble \
|
||
|
|
(tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */
|
||
|
|
#define TclCopyChannel \
|
||
|
|
(tclIntStubsPtr->tclCopyChannel) /* 248 */
|
||
|
|
#define TclDoubleDigits \
|
||
|
|
(tclIntStubsPtr->tclDoubleDigits) /* 249 */
|
||
|
|
#define TclSetSlaveCancelFlags \
|
||
|
|
(tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */
|
||
|
|
#define TclRegisterLiteral \
|
||
|
|
(tclIntStubsPtr->tclRegisterLiteral) /* 251 */
|
||
|
|
#define TclPtrGetVar \
|
||
|
|
(tclIntStubsPtr->tclPtrGetVar) /* 252 */
|
||
|
|
#define TclPtrSetVar \
|
||
|
|
(tclIntStubsPtr->tclPtrSetVar) /* 253 */
|
||
|
|
#define TclPtrIncrObjVar \
|
||
|
|
(tclIntStubsPtr->tclPtrIncrObjVar) /* 254 */
|
||
|
|
#define TclPtrObjMakeUpvar \
|
||
|
|
(tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */
|
||
|
|
#define TclPtrUnsetVar \
|
||
|
|
(tclIntStubsPtr->tclPtrUnsetVar) /* 256 */
|
||
|
|
#define TclStaticPackage \
|
||
|
|
(tclIntStubsPtr->tclStaticPackage) /* 257 */
|
||
|
|
/* Slot 258 is reserved */
|
||
|
|
/* Slot 259 is reserved */
|
||
|
|
#define TclUnusedStubEntry \
|
||
|
|
(tclIntStubsPtr->tclUnusedStubEntry) /* 260 */
|
||
|
|
|
||
|
|
#endif /* defined(USE_TCL_STUBS) */
|
||
|
|
|
||
|
|
/* !END!: Do not edit above this line. */
|
||
|
|
|
||
|
|
#undef TCL_STORAGE_CLASS
|
||
|
|
#define TCL_STORAGE_CLASS DLLIMPORT
|
||
|
|
|
||
|
|
#undef TclGetStartupScriptFileName
|
||
|
|
#undef TclSetStartupScriptFileName
|
||
|
|
#undef TclGetStartupScriptPath
|
||
|
|
#undef TclSetStartupScriptPath
|
||
|
|
#undef TclBackgroundException
|
||
|
|
#undef TclUnusedStubEntry
|
||
|
|
|
||
|
|
#if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED)
|
||
|
|
# undef Tcl_SetStartupScript
|
||
|
|
# define Tcl_SetStartupScript \
|
||
|
|
(tclStubsPtr->tcl_SetStartupScript) /* 622 */
|
||
|
|
# undef Tcl_GetStartupScript
|
||
|
|
# define Tcl_GetStartupScript \
|
||
|
|
(tclStubsPtr->tcl_GetStartupScript) /* 623 */
|
||
|
|
# undef Tcl_CreateNamespace
|
||
|
|
# define Tcl_CreateNamespace \
|
||
|
|
(tclStubsPtr->tcl_CreateNamespace) /* 506 */
|
||
|
|
# undef Tcl_DeleteNamespace
|
||
|
|
# define Tcl_DeleteNamespace \
|
||
|
|
(tclStubsPtr->tcl_DeleteNamespace) /* 507 */
|
||
|
|
# undef Tcl_AppendExportList
|
||
|
|
# define Tcl_AppendExportList \
|
||
|
|
(tclStubsPtr->tcl_AppendExportList) /* 508 */
|
||
|
|
# undef Tcl_Export
|
||
|
|
# define Tcl_Export \
|
||
|
|
(tclStubsPtr->tcl_Export) /* 509 */
|
||
|
|
# undef Tcl_Import
|
||
|
|
# define Tcl_Import \
|
||
|
|
(tclStubsPtr->tcl_Import) /* 510 */
|
||
|
|
# undef Tcl_ForgetImport
|
||
|
|
# define Tcl_ForgetImport \
|
||
|
|
(tclStubsPtr->tcl_ForgetImport) /* 511 */
|
||
|
|
# undef Tcl_GetCurrentNamespace
|
||
|
|
# define Tcl_GetCurrentNamespace \
|
||
|
|
(tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
|
||
|
|
# undef Tcl_GetGlobalNamespace
|
||
|
|
# define Tcl_GetGlobalNamespace \
|
||
|
|
(tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
|
||
|
|
# undef Tcl_FindNamespace
|
||
|
|
# define Tcl_FindNamespace \
|
||
|
|
(tclStubsPtr->tcl_FindNamespace) /* 514 */
|
||
|
|
# undef Tcl_FindCommand
|
||
|
|
# define Tcl_FindCommand \
|
||
|
|
(tclStubsPtr->tcl_FindCommand) /* 515 */
|
||
|
|
# undef Tcl_GetCommandFromObj
|
||
|
|
# define Tcl_GetCommandFromObj \
|
||
|
|
(tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
|
||
|
|
# undef Tcl_GetCommandFullName
|
||
|
|
# define Tcl_GetCommandFullName \
|
||
|
|
(tclStubsPtr->tcl_GetCommandFullName) /* 517 */
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#undef TclCopyChannelOld
|
||
|
|
#undef TclSockMinimumBuffersOld
|
||
|
|
|
||
|
|
#define TclSetChildCancelFlags TclSetSlaveCancelFlags
|
||
|
|
|
||
|
|
#endif /* _TCLINTDECLS */
|