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