Mercurial > repos > rliterman > csp2

annotate CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclIntDecls.h @ 69:33d812a61356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
author jpayne
date Tue, 18 Mar 2025 17:55:14 -0400
parents
children
rev   line source
jpayne@69 1 /*
jpayne@69 2 * tclIntDecls.h --
jpayne@69 3 *
jpayne@69 4 * This file contains the declarations for all unsupported
jpayne@69 5 * functions that are exported by the Tcl library. These
jpayne@69 6 * interfaces are not guaranteed to remain the same between
jpayne@69 7 * versions. Use at your own risk.
jpayne@69 8 *
jpayne@69 9 * Copyright (c) 1998-1999 by Scriptics Corporation.
jpayne@69 10 *
jpayne@69 11 * See the file "license.terms" for information on usage and redistribution
jpayne@69 12 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
jpayne@69 13 */
jpayne@69 14
jpayne@69 15 #ifndef _TCLINTDECLS
jpayne@69 16 #define _TCLINTDECLS
jpayne@69 17
jpayne@69 18
jpayne@69 19 #undef TCL_STORAGE_CLASS
jpayne@69 20 #ifdef BUILD_tcl
jpayne@69 21 # define TCL_STORAGE_CLASS DLLEXPORT
jpayne@69 22 #else
jpayne@69 23 # ifdef USE_TCL_STUBS
jpayne@69 24 # define TCL_STORAGE_CLASS
jpayne@69 25 # else
jpayne@69 26 # define TCL_STORAGE_CLASS DLLIMPORT
jpayne@69 27 # endif
jpayne@69 28 #endif
jpayne@69 29
jpayne@69 30 /* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */
jpayne@69 31 #undef Tcl_CreateNamespace
jpayne@69 32 #undef Tcl_DeleteNamespace
jpayne@69 33 #undef Tcl_AppendExportList
jpayne@69 34 #undef Tcl_Export
jpayne@69 35 #undef Tcl_Import
jpayne@69 36 #undef Tcl_ForgetImport
jpayne@69 37 #undef Tcl_GetCurrentNamespace
jpayne@69 38 #undef Tcl_GetGlobalNamespace
jpayne@69 39 #undef Tcl_FindNamespace
jpayne@69 40 #undef Tcl_FindCommand
jpayne@69 41 #undef Tcl_GetCommandFromObj
jpayne@69 42 #undef Tcl_GetCommandFullName
jpayne@69 43 #undef Tcl_SetStartupScript
jpayne@69 44 #undef Tcl_GetStartupScript
jpayne@69 45
jpayne@69 46 /*
jpayne@69 47 * WARNING: This file is automatically generated by the tools/genStubs.tcl
jpayne@69 48 * script. Any modifications to the function declarations below should be made
jpayne@69 49 * in the generic/tclInt.decls script.
jpayne@69 50 */
jpayne@69 51
jpayne@69 52 /* !BEGIN!: Do not edit below this line. */
jpayne@69 53
jpayne@69 54 #ifdef __cplusplus
jpayne@69 55 extern "C" {
jpayne@69 56 #endif
jpayne@69 57
jpayne@69 58 /*
jpayne@69 59 * Exported function declarations:
jpayne@69 60 */
jpayne@69 61
jpayne@69 62 /* Slot 0 is reserved */
jpayne@69 63 /* Slot 1 is reserved */
jpayne@69 64 /* Slot 2 is reserved */
jpayne@69 65 /* 3 */
jpayne@69 66 EXTERN void TclAllocateFreeObjects(void);
jpayne@69 67 /* Slot 4 is reserved */
jpayne@69 68 /* 5 */
jpayne@69 69 EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids,
jpayne@69 70 Tcl_Pid *pidPtr, Tcl_Channel errorChan);
jpayne@69 71 /* 6 */
jpayne@69 72 EXTERN void TclCleanupCommand(Command *cmdPtr);
jpayne@69 73 /* 7 */
jpayne@69 74 EXTERN int TclCopyAndCollapse(int count, const char *src,
jpayne@69 75 char *dst);
jpayne@69 76 /* 8 */
jpayne@69 77 EXTERN int TclCopyChannelOld(Tcl_Interp *interp,
jpayne@69 78 Tcl_Channel inChan, Tcl_Channel outChan,
jpayne@69 79 int toRead, Tcl_Obj *cmdPtr);
jpayne@69 80 /* 9 */
jpayne@69 81 EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc,
jpayne@69 82 const char **argv, Tcl_Pid **pidArrayPtr,
jpayne@69 83 TclFile *inPipePtr, TclFile *outPipePtr,
jpayne@69 84 TclFile *errFilePtr);
jpayne@69 85 /* 10 */
jpayne@69 86 EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
jpayne@69 87 const char *procName, Tcl_Obj *argsPtr,
jpayne@69 88 Tcl_Obj *bodyPtr, Proc **procPtrPtr);
jpayne@69 89 /* 11 */
jpayne@69 90 EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr,
jpayne@69 91 CallFrame *framePtr);
jpayne@69 92 /* 12 */
jpayne@69 93 EXTERN void TclDeleteVars(Interp *iPtr,
jpayne@69 94 TclVarHashTable *tablePtr);
jpayne@69 95 /* Slot 13 is reserved */
jpayne@69 96 /* 14 */
jpayne@69 97 EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags);
jpayne@69 98 /* Slot 15 is reserved */
jpayne@69 99 /* 16 */
jpayne@69 100 EXTERN void TclExprFloatError(Tcl_Interp *interp, double value);
jpayne@69 101 /* Slot 17 is reserved */
jpayne@69 102 /* Slot 18 is reserved */
jpayne@69 103 /* Slot 19 is reserved */
jpayne@69 104 /* Slot 20 is reserved */
jpayne@69 105 /* Slot 21 is reserved */
jpayne@69 106 /* 22 */
jpayne@69 107 EXTERN int TclFindElement(Tcl_Interp *interp,
jpayne@69 108 const char *listStr, int listLength,
jpayne@69 109 const char **elementPtr,
jpayne@69 110 const char **nextPtr, int *sizePtr,
jpayne@69 111 int *bracePtr);
jpayne@69 112 /* 23 */
jpayne@69 113 EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName);
jpayne@69 114 /* 24 */
jpayne@69 115 EXTERN int TclFormatInt(char *buffer, long n);
jpayne@69 116 /* 25 */
jpayne@69 117 EXTERN void TclFreePackageInfo(Interp *iPtr);
jpayne@69 118 /* Slot 26 is reserved */
jpayne@69 119 /* Slot 27 is reserved */
jpayne@69 120 /* 28 */
jpayne@69 121 EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type);
jpayne@69 122 /* Slot 29 is reserved */
jpayne@69 123 /* Slot 30 is reserved */
jpayne@69 124 /* 31 */
jpayne@69 125 EXTERN const char * TclGetExtension(const char *name);
jpayne@69 126 /* 32 */
jpayne@69 127 EXTERN int TclGetFrame(Tcl_Interp *interp, const char *str,
jpayne@69 128 CallFrame **framePtrPtr);
jpayne@69 129 /* Slot 33 is reserved */
jpayne@69 130 /* 34 */
jpayne@69 131 EXTERN int TclGetIntForIndex(Tcl_Interp *interp,
jpayne@69 132 Tcl_Obj *objPtr, int endValue, int *indexPtr);
jpayne@69 133 /* Slot 35 is reserved */
jpayne@69 134 /* Slot 36 is reserved */
jpayne@69 135 /* 37 */
jpayne@69 136 EXTERN int TclGetLoadedPackages(Tcl_Interp *interp,
jpayne@69 137 const char *targetName);
jpayne@69 138 /* 38 */
jpayne@69 139 EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp,
jpayne@69 140 const char *qualName, Namespace *cxtNsPtr,
jpayne@69 141 int flags, Namespace **nsPtrPtr,
jpayne@69 142 Namespace **altNsPtrPtr,
jpayne@69 143 Namespace **actualCxtPtrPtr,
jpayne@69 144 const char **simpleNamePtr);
jpayne@69 145 /* 39 */
jpayne@69 146 EXTERN Tcl_ObjCmdProc * TclGetObjInterpProc(void);
jpayne@69 147 /* 40 */
jpayne@69 148 EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str,
jpayne@69 149 int *seekFlagPtr);
jpayne@69 150 /* 41 */
jpayne@69 151 EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command);
jpayne@69 152 /* 42 */
jpayne@69 153 EXTERN CONST86 char * TclpGetUserHome(const char *name,
jpayne@69 154 Tcl_DString *bufferPtr);
jpayne@69 155 /* Slot 43 is reserved */
jpayne@69 156 /* 44 */
jpayne@69 157 EXTERN int TclGuessPackageName(const char *fileName,
jpayne@69 158 Tcl_DString *bufPtr);
jpayne@69 159 /* 45 */
jpayne@69 160 EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp);
jpayne@69 161 /* 46 */
jpayne@69 162 EXTERN int TclInExit(void);
jpayne@69 163 /* Slot 47 is reserved */
jpayne@69 164 /* Slot 48 is reserved */
jpayne@69 165 /* Slot 49 is reserved */
jpayne@69 166 /* 50 */
jpayne@69 167 EXTERN void TclInitCompiledLocals(Tcl_Interp *interp,
jpayne@69 168 CallFrame *framePtr, Namespace *nsPtr);
jpayne@69 169 /* 51 */
jpayne@69 170 EXTERN int TclInterpInit(Tcl_Interp *interp);
jpayne@69 171 /* Slot 52 is reserved */
jpayne@69 172 /* 53 */
jpayne@69 173 EXTERN int TclInvokeObjectCommand(ClientData clientData,
jpayne@69 174 Tcl_Interp *interp, int argc,
jpayne@69 175 CONST84 char **argv);
jpayne@69 176 /* 54 */
jpayne@69 177 EXTERN int TclInvokeStringCommand(ClientData clientData,
jpayne@69 178 Tcl_Interp *interp, int objc,
jpayne@69 179 Tcl_Obj *const objv[]);
jpayne@69 180 /* 55 */
jpayne@69 181 EXTERN Proc * TclIsProc(Command *cmdPtr);
jpayne@69 182 /* Slot 56 is reserved */
jpayne@69 183 /* Slot 57 is reserved */
jpayne@69 184 /* 58 */
jpayne@69 185 EXTERN Var * TclLookupVar(Tcl_Interp *interp, const char *part1,
jpayne@69 186 const char *part2, int flags,
jpayne@69 187 const char *msg, int createPart1,
jpayne@69 188 int createPart2, Var **arrayPtrPtr);
jpayne@69 189 /* Slot 59 is reserved */
jpayne@69 190 /* 60 */
jpayne@69 191 EXTERN int TclNeedSpace(const char *start, const char *end);
jpayne@69 192 /* 61 */
jpayne@69 193 EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr);
jpayne@69 194 /* 62 */
jpayne@69 195 EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr);
jpayne@69 196 /* 63 */
jpayne@69 197 EXTERN int TclObjInterpProc(ClientData clientData,
jpayne@69 198 Tcl_Interp *interp, int objc,
jpayne@69 199 Tcl_Obj *const objv[]);
jpayne@69 200 /* 64 */
jpayne@69 201 EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc,
jpayne@69 202 Tcl_Obj *const objv[], int flags);
jpayne@69 203 /* Slot 65 is reserved */
jpayne@69 204 /* Slot 66 is reserved */
jpayne@69 205 /* Slot 67 is reserved */
jpayne@69 206 /* Slot 68 is reserved */
jpayne@69 207 /* 69 */
jpayne@69 208 EXTERN char * TclpAlloc(unsigned int size);
jpayne@69 209 /* Slot 70 is reserved */
jpayne@69 210 /* Slot 71 is reserved */
jpayne@69 211 /* Slot 72 is reserved */
jpayne@69 212 /* Slot 73 is reserved */
jpayne@69 213 /* 74 */
jpayne@69 214 EXTERN void TclpFree(char *ptr);
jpayne@69 215 /* 75 */
jpayne@69 216 EXTERN unsigned long TclpGetClicks(void);
jpayne@69 217 /* 76 */
jpayne@69 218 EXTERN unsigned long TclpGetSeconds(void);
jpayne@69 219 /* 77 */
jpayne@69 220 EXTERN void TclpGetTime(Tcl_Time *time);
jpayne@69 221 /* Slot 78 is reserved */
jpayne@69 222 /* Slot 79 is reserved */
jpayne@69 223 /* Slot 80 is reserved */
jpayne@69 224 /* 81 */
jpayne@69 225 EXTERN char * TclpRealloc(char *ptr, unsigned int size);
jpayne@69 226 /* Slot 82 is reserved */
jpayne@69 227 /* Slot 83 is reserved */
jpayne@69 228 /* Slot 84 is reserved */
jpayne@69 229 /* Slot 85 is reserved */
jpayne@69 230 /* Slot 86 is reserved */
jpayne@69 231 /* Slot 87 is reserved */
jpayne@69 232 /* 88 */
jpayne@69 233 EXTERN char * TclPrecTraceProc(ClientData clientData,
jpayne@69 234 Tcl_Interp *interp, const char *name1,
jpayne@69 235 const char *name2, int flags);
jpayne@69 236 /* 89 */
jpayne@69 237 EXTERN int TclPreventAliasLoop(Tcl_Interp *interp,
jpayne@69 238 Tcl_Interp *cmdInterp, Tcl_Command cmd);
jpayne@69 239 /* Slot 90 is reserved */
jpayne@69 240 /* 91 */
jpayne@69 241 EXTERN void TclProcCleanupProc(Proc *procPtr);
jpayne@69 242 /* 92 */
jpayne@69 243 EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
jpayne@69 244 Tcl_Obj *bodyPtr, Namespace *nsPtr,
jpayne@69 245 const char *description,
jpayne@69 246 const char *procName);
jpayne@69 247 /* 93 */
jpayne@69 248 EXTERN void TclProcDeleteProc(ClientData clientData);
jpayne@69 249 /* Slot 94 is reserved */
jpayne@69 250 /* Slot 95 is reserved */
jpayne@69 251 /* 96 */
jpayne@69 252 EXTERN int TclRenameCommand(Tcl_Interp *interp,
jpayne@69 253 const char *oldName, const char *newName);
jpayne@69 254 /* 97 */
jpayne@69 255 EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp,
jpayne@69 256 Command *newCmdPtr);
jpayne@69 257 /* 98 */
jpayne@69 258 EXTERN int TclServiceIdle(void);
jpayne@69 259 /* Slot 99 is reserved */
jpayne@69 260 /* Slot 100 is reserved */
jpayne@69 261 /* 101 */
jpayne@69 262 EXTERN CONST86 char * TclSetPreInitScript(const char *string);
jpayne@69 263 /* 102 */
jpayne@69 264 EXTERN void TclSetupEnv(Tcl_Interp *interp);
jpayne@69 265 /* 103 */
jpayne@69 266 EXTERN int TclSockGetPort(Tcl_Interp *interp, const char *str,
jpayne@69 267 const char *proto, int *portPtr);
jpayne@69 268 /* 104 */
jpayne@69 269 EXTERN int TclSockMinimumBuffersOld(int sock, int size);
jpayne@69 270 /* Slot 105 is reserved */
jpayne@69 271 /* Slot 106 is reserved */
jpayne@69 272 /* Slot 107 is reserved */
jpayne@69 273 /* 108 */
jpayne@69 274 EXTERN void TclTeardownNamespace(Namespace *nsPtr);
jpayne@69 275 /* 109 */
jpayne@69 276 EXTERN int TclUpdateReturnInfo(Interp *iPtr);
jpayne@69 277 /* 110 */
jpayne@69 278 EXTERN int TclSockMinimumBuffers(void *sock, int size);
jpayne@69 279 /* 111 */
jpayne@69 280 EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp,
jpayne@69 281 const char *name,
jpayne@69 282 Tcl_ResolveCmdProc *cmdProc,
jpayne@69 283 Tcl_ResolveVarProc *varProc,
jpayne@69 284 Tcl_ResolveCompiledVarProc *compiledVarProc);
jpayne@69 285 /* 112 */
jpayne@69 286 EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
jpayne@69 287 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
jpayne@69 288 /* 113 */
jpayne@69 289 EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
jpayne@69 290 const char *name, ClientData clientData,
jpayne@69 291 Tcl_NamespaceDeleteProc *deleteProc);
jpayne@69 292 /* 114 */
jpayne@69 293 EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
jpayne@69 294 /* 115 */
jpayne@69 295 EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
jpayne@69 296 const char *pattern, int resetListFirst);
jpayne@69 297 /* 116 */
jpayne@69 298 EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
jpayne@69 299 Tcl_Namespace *contextNsPtr, int flags);
jpayne@69 300 /* 117 */
jpayne@69 301 EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
jpayne@69 302 const char *name,
jpayne@69 303 Tcl_Namespace *contextNsPtr, int flags);
jpayne@69 304 /* 118 */
jpayne@69 305 EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp,
jpayne@69 306 const char *name, Tcl_ResolverInfo *resInfo);
jpayne@69 307 /* 119 */
jpayne@69 308 EXTERN int Tcl_GetNamespaceResolvers(
jpayne@69 309 Tcl_Namespace *namespacePtr,
jpayne@69 310 Tcl_ResolverInfo *resInfo);
jpayne@69 311 /* 120 */
jpayne@69 312 EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp,
jpayne@69 313 const char *name,
jpayne@69 314 Tcl_Namespace *contextNsPtr, int flags);
jpayne@69 315 /* 121 */
jpayne@69 316 EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
jpayne@69 317 Tcl_Namespace *nsPtr, const char *pattern);
jpayne@69 318 /* 122 */
jpayne@69 319 EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
jpayne@69 320 Tcl_Obj *objPtr);
jpayne@69 321 /* 123 */
jpayne@69 322 EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
jpayne@69 323 Tcl_Command command, Tcl_Obj *objPtr);
jpayne@69 324 /* 124 */
jpayne@69 325 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
jpayne@69 326 /* 125 */
jpayne@69 327 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
jpayne@69 328 /* 126 */
jpayne@69 329 EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp,
jpayne@69 330 Tcl_Var variable, Tcl_Obj *objPtr);
jpayne@69 331 /* 127 */
jpayne@69 332 EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
jpayne@69 333 const char *pattern, int allowOverwrite);
jpayne@69 334 /* 128 */
jpayne@69 335 EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp);
jpayne@69 336 /* 129 */
jpayne@69 337 EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp,
jpayne@69 338 Tcl_CallFrame *framePtr,
jpayne@69 339 Tcl_Namespace *nsPtr, int isProcCallFrame);
jpayne@69 340 /* 130 */
jpayne@69 341 EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
jpayne@69 342 const char *name);
jpayne@69 343 /* 131 */
jpayne@69 344 EXTERN void Tcl_SetNamespaceResolvers(
jpayne@69 345 Tcl_Namespace *namespacePtr,
jpayne@69 346 Tcl_ResolveCmdProc *cmdProc,
jpayne@69 347 Tcl_ResolveVarProc *varProc,
jpayne@69 348 Tcl_ResolveCompiledVarProc *compiledVarProc);
jpayne@69 349 /* 132 */
jpayne@69 350 EXTERN int TclpHasSockets(Tcl_Interp *interp);
jpayne@69 351 /* 133 */
jpayne@69 352 EXTERN struct tm * TclpGetDate(const time_t *time, int useGMT);
jpayne@69 353 /* Slot 134 is reserved */
jpayne@69 354 /* Slot 135 is reserved */
jpayne@69 355 /* Slot 136 is reserved */
jpayne@69 356 /* Slot 137 is reserved */
jpayne@69 357 /* 138 */
jpayne@69 358 EXTERN CONST84_RETURN char * TclGetEnv(const char *name,
jpayne@69 359 Tcl_DString *valuePtr);
jpayne@69 360 /* Slot 139 is reserved */
jpayne@69 361 /* Slot 140 is reserved */
jpayne@69 362 /* 141 */
jpayne@69 363 EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
jpayne@69 364 Tcl_DString *cwdPtr);
jpayne@69 365 /* 142 */
jpayne@69 366 EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp,
jpayne@69 367 Tcl_Obj *objPtr, CompileHookProc *hookProc,
jpayne@69 368 ClientData clientData);
jpayne@69 369 /* 143 */
jpayne@69 370 EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr,
jpayne@69 371 Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
jpayne@69 372 /* 144 */
jpayne@69 373 EXTERN void TclHideLiteral(Tcl_Interp *interp,
jpayne@69 374 struct CompileEnv *envPtr, int index);
jpayne@69 375 /* 145 */
jpayne@69 376 EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName);
jpayne@69 377 /* 146 */
jpayne@69 378 EXTERN TclHandle TclHandleCreate(void *ptr);
jpayne@69 379 /* 147 */
jpayne@69 380 EXTERN void TclHandleFree(TclHandle handle);
jpayne@69 381 /* 148 */
jpayne@69 382 EXTERN TclHandle TclHandlePreserve(TclHandle handle);
jpayne@69 383 /* 149 */
jpayne@69 384 EXTERN void TclHandleRelease(TclHandle handle);
jpayne@69 385 /* 150 */
jpayne@69 386 EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
jpayne@69 387 /* 151 */
jpayne@69 388 EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index,
jpayne@69 389 int *startPtr, int *endPtr);
jpayne@69 390 /* 152 */
jpayne@69 391 EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr);
jpayne@69 392 /* 153 */
jpayne@69 393 EXTERN Tcl_Obj * TclGetLibraryPath(void);
jpayne@69 394 /* Slot 154 is reserved */
jpayne@69 395 /* Slot 155 is reserved */
jpayne@69 396 /* 156 */
jpayne@69 397 EXTERN void TclRegError(Tcl_Interp *interp, const char *msg,
jpayne@69 398 int status);
jpayne@69 399 /* 157 */
jpayne@69 400 EXTERN Var * TclVarTraceExists(Tcl_Interp *interp,
jpayne@69 401 const char *varName);
jpayne@69 402 /* 158 */
jpayne@69 403 EXTERN void TclSetStartupScriptFileName(const char *filename);
jpayne@69 404 /* 159 */
jpayne@69 405 EXTERN const char * TclGetStartupScriptFileName(void);
jpayne@69 406 /* Slot 160 is reserved */
jpayne@69 407 /* 161 */
jpayne@69 408 EXTERN int TclChannelTransform(Tcl_Interp *interp,
jpayne@69 409 Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
jpayne@69 410 /* 162 */
jpayne@69 411 EXTERN void TclChannelEventScriptInvoker(ClientData clientData,
jpayne@69 412 int flags);
jpayne@69 413 /* 163 */
jpayne@69 414 EXTERN const void * TclGetInstructionTable(void);
jpayne@69 415 /* 164 */
jpayne@69 416 EXTERN void TclExpandCodeArray(void *envPtr);
jpayne@69 417 /* 165 */
jpayne@69 418 EXTERN void TclpSetInitialEncodings(void);
jpayne@69 419 /* 166 */
jpayne@69 420 EXTERN int TclListObjSetElement(Tcl_Interp *interp,
jpayne@69 421 Tcl_Obj *listPtr, int index,
jpayne@69 422 Tcl_Obj *valuePtr);
jpayne@69 423 /* 167 */
jpayne@69 424 EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr);
jpayne@69 425 /* 168 */
jpayne@69 426 EXTERN Tcl_Obj * TclGetStartupScriptPath(void);
jpayne@69 427 /* 169 */
jpayne@69 428 EXTERN int TclpUtfNcmp2(const char *s1, const char *s2,
jpayne@69 429 unsigned long n);
jpayne@69 430 /* 170 */
jpayne@69 431 EXTERN int TclCheckInterpTraces(Tcl_Interp *interp,
jpayne@69 432 const char *command, int numChars,
jpayne@69 433 Command *cmdPtr, int result, int traceFlags,
jpayne@69 434 int objc, Tcl_Obj *const objv[]);
jpayne@69 435 /* 171 */
jpayne@69 436 EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp,
jpayne@69 437 const char *command, int numChars,
jpayne@69 438 Command *cmdPtr, int result, int traceFlags,
jpayne@69 439 int objc, Tcl_Obj *const objv[]);
jpayne@69 440 /* 172 */
jpayne@69 441 EXTERN int TclInThreadExit(void);
jpayne@69 442 /* 173 */
jpayne@69 443 EXTERN int TclUniCharMatch(const Tcl_UniChar *string,
jpayne@69 444 int strLen, const Tcl_UniChar *pattern,
jpayne@69 445 int ptnLen, int flags);
jpayne@69 446 /* Slot 174 is reserved */
jpayne@69 447 /* 175 */
jpayne@69 448 EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
jpayne@69 449 Var *varPtr, const char *part1,
jpayne@69 450 const char *part2, int flags,
jpayne@69 451 int leaveErrMsg);
jpayne@69 452 /* 176 */
jpayne@69 453 EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr);
jpayne@69 454 /* 177 */
jpayne@69 455 EXTERN void TclVarErrMsg(Tcl_Interp *interp, const char *part1,
jpayne@69 456 const char *part2, const char *operation,
jpayne@69 457 const char *reason);
jpayne@69 458 /* 178 */
jpayne@69 459 EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr,
jpayne@69 460 const char *encodingName);
jpayne@69 461 /* 179 */
jpayne@69 462 EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingNamePtr);
jpayne@69 463 /* Slot 180 is reserved */
jpayne@69 464 /* Slot 181 is reserved */
jpayne@69 465 /* 182 */
jpayne@69 466 EXTERN struct tm * TclpLocaltime(const time_t *clock);
jpayne@69 467 /* 183 */
jpayne@69 468 EXTERN struct tm * TclpGmtime(const time_t *clock);
jpayne@69 469 /* Slot 184 is reserved */
jpayne@69 470 /* Slot 185 is reserved */
jpayne@69 471 /* Slot 186 is reserved */
jpayne@69 472 /* Slot 187 is reserved */
jpayne@69 473 /* Slot 188 is reserved */
jpayne@69 474 /* Slot 189 is reserved */
jpayne@69 475 /* Slot 190 is reserved */
jpayne@69 476 /* Slot 191 is reserved */
jpayne@69 477 /* Slot 192 is reserved */
jpayne@69 478 /* Slot 193 is reserved */
jpayne@69 479 /* Slot 194 is reserved */
jpayne@69 480 /* Slot 195 is reserved */
jpayne@69 481 /* Slot 196 is reserved */
jpayne@69 482 /* Slot 197 is reserved */
jpayne@69 483 /* 198 */
jpayne@69 484 EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 485 CallFrame **framePtrPtr);
jpayne@69 486 /* Slot 199 is reserved */
jpayne@69 487 /* 200 */
jpayne@69 488 EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
jpayne@69 489 int recursive, Tcl_Obj **errorPtr);
jpayne@69 490 /* 201 */
jpayne@69 491 EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
jpayne@69 492 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
jpayne@69 493 /* 202 */
jpayne@69 494 EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr);
jpayne@69 495 /* 203 */
jpayne@69 496 EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr);
jpayne@69 497 /* 204 */
jpayne@69 498 EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr,
jpayne@69 499 Tcl_Obj *destPathPtr);
jpayne@69 500 /* 205 */
jpayne@69 501 EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr,
jpayne@69 502 Tcl_Obj *destPathPtr);
jpayne@69 503 /* 206 */
jpayne@69 504 EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
jpayne@69 505 /* 207 */
jpayne@69 506 EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode);
jpayne@69 507 /* 208 */
jpayne@69 508 EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp,
jpayne@69 509 Tcl_Obj *pathPtr, int mode, int permissions);
jpayne@69 510 /* Slot 209 is reserved */
jpayne@69 511 /* Slot 210 is reserved */
jpayne@69 512 /* Slot 211 is reserved */
jpayne@69 513 /* 212 */
jpayne@69 514 EXTERN void TclpFindExecutable(const char *argv0);
jpayne@69 515 /* 213 */
jpayne@69 516 EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void);
jpayne@69 517 /* 214 */
jpayne@69 518 EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name,
jpayne@69 519 Tcl_Encoding encoding);
jpayne@69 520 /* 215 */
jpayne@69 521 EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes);
jpayne@69 522 /* 216 */
jpayne@69 523 EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr);
jpayne@69 524 /* 217 */
jpayne@69 525 EXTERN int TclPushStackFrame(Tcl_Interp *interp,
jpayne@69 526 Tcl_CallFrame **framePtrPtr,
jpayne@69 527 Tcl_Namespace *namespacePtr,
jpayne@69 528 int isProcCallFrame);
jpayne@69 529 /* 218 */
jpayne@69 530 EXTERN void TclPopStackFrame(Tcl_Interp *interp);
jpayne@69 531 /* Slot 219 is reserved */
jpayne@69 532 /* Slot 220 is reserved */
jpayne@69 533 /* Slot 221 is reserved */
jpayne@69 534 /* Slot 222 is reserved */
jpayne@69 535 /* Slot 223 is reserved */
jpayne@69 536 /* 224 */
jpayne@69 537 EXTERN TclPlatformType * TclGetPlatform(void);
jpayne@69 538 /* 225 */
jpayne@69 539 EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp,
jpayne@69 540 Tcl_Obj *rootPtr, int keyc,
jpayne@69 541 Tcl_Obj *const keyv[], int flags);
jpayne@69 542 /* 226 */
jpayne@69 543 EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr);
jpayne@69 544 /* 227 */
jpayne@69 545 EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength,
jpayne@69 546 Tcl_Namespace *pathAry[]);
jpayne@69 547 /* Slot 228 is reserved */
jpayne@69 548 /* 229 */
jpayne@69 549 EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
jpayne@69 550 const char *myName, int myFlags, int index);
jpayne@69 551 /* 230 */
jpayne@69 552 EXTERN Var * TclObjLookupVar(Tcl_Interp *interp,
jpayne@69 553 Tcl_Obj *part1Ptr, const char *part2,
jpayne@69 554 int flags, const char *msg,
jpayne@69 555 const int createPart1, const int createPart2,
jpayne@69 556 Var **arrayPtrPtr);
jpayne@69 557 /* 231 */
jpayne@69 558 EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp,
jpayne@69 559 Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
jpayne@69 560 /* 232 */
jpayne@69 561 EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 562 int flags, const CmdFrame *invoker, int word);
jpayne@69 563 /* 233 */
jpayne@69 564 EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr);
jpayne@69 565 /* 234 */
jpayne@69 566 EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr,
jpayne@69 567 const char *key, int *newPtr);
jpayne@69 568 /* 235 */
jpayne@69 569 EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr,
jpayne@69 570 Namespace *nsPtr);
jpayne@69 571 /* 236 */
jpayne@69 572 EXTERN void TclBackgroundException(Tcl_Interp *interp, int code);
jpayne@69 573 /* 237 */
jpayne@69 574 EXTERN int TclResetCancellation(Tcl_Interp *interp, int force);
jpayne@69 575 /* 238 */
jpayne@69 576 EXTERN int TclNRInterpProc(ClientData clientData,
jpayne@69 577 Tcl_Interp *interp, int objc,
jpayne@69 578 Tcl_Obj *const objv[]);
jpayne@69 579 /* 239 */
jpayne@69 580 EXTERN int TclNRInterpProcCore(Tcl_Interp *interp,
jpayne@69 581 Tcl_Obj *procNameObj, int skip,
jpayne@69 582 ProcErrorProc *errorProc);
jpayne@69 583 /* 240 */
jpayne@69 584 EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result,
jpayne@69 585 struct NRE_callback *rootPtr);
jpayne@69 586 /* 241 */
jpayne@69 587 EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 588 int flags, const CmdFrame *invoker, int word);
jpayne@69 589 /* 242 */
jpayne@69 590 EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc,
jpayne@69 591 Tcl_Obj *const objv[], int flags,
jpayne@69 592 Command *cmdPtr);
jpayne@69 593 /* 243 */
jpayne@69 594 EXTERN void TclDbDumpActiveObjects(FILE *outFile);
jpayne@69 595 /* 244 */
jpayne@69 596 EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr);
jpayne@69 597 /* 245 */
jpayne@69 598 EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr);
jpayne@69 599 /* 246 */
jpayne@69 600 EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp,
jpayne@69 601 int numRemoved, int numInserted,
jpayne@69 602 Tcl_Obj *const *objv);
jpayne@69 603 /* 247 */
jpayne@69 604 EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp,
jpayne@69 605 int isRootEnsemble);
jpayne@69 606 /* 248 */
jpayne@69 607 EXTERN int TclCopyChannel(Tcl_Interp *interp,
jpayne@69 608 Tcl_Channel inChan, Tcl_Channel outChan,
jpayne@69 609 Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
jpayne@69 610 /* 249 */
jpayne@69 611 EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags,
jpayne@69 612 int *decpt, int *signum, char **endPtr);
jpayne@69 613 /* 250 */
jpayne@69 614 EXTERN void TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags,
jpayne@69 615 int force);
jpayne@69 616 /* 251 */
jpayne@69 617 EXTERN int TclRegisterLiteral(void *envPtr, char *bytes,
jpayne@69 618 int length, int flags);
jpayne@69 619 /* 252 */
jpayne@69 620 EXTERN Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr,
jpayne@69 621 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
jpayne@69 622 Tcl_Obj *part2Ptr, const int flags);
jpayne@69 623 /* 253 */
jpayne@69 624 EXTERN Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr,
jpayne@69 625 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
jpayne@69 626 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
jpayne@69 627 const int flags);
jpayne@69 628 /* 254 */
jpayne@69 629 EXTERN Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr,
jpayne@69 630 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
jpayne@69 631 Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr,
jpayne@69 632 const int flags);
jpayne@69 633 /* 255 */
jpayne@69 634 EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp,
jpayne@69 635 Tcl_Var otherPtr, Tcl_Obj *myNamePtr,
jpayne@69 636 int myFlags);
jpayne@69 637 /* 256 */
jpayne@69 638 EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr,
jpayne@69 639 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
jpayne@69 640 Tcl_Obj *part2Ptr, const int flags);
jpayne@69 641 /* 257 */
jpayne@69 642 EXTERN void TclStaticPackage(Tcl_Interp *interp,
jpayne@69 643 const char *prefix,
jpayne@69 644 Tcl_PackageInitProc *initProc,
jpayne@69 645 Tcl_PackageInitProc *safeInitProc);
jpayne@69 646 /* Slot 258 is reserved */
jpayne@69 647 /* Slot 259 is reserved */
jpayne@69 648 /* Slot 260 is reserved */
jpayne@69 649 /* 261 */
jpayne@69 650 EXTERN void TclUnusedStubEntry(void);
jpayne@69 651
jpayne@69 652 typedef struct TclIntStubs {
jpayne@69 653 int magic;
jpayne@69 654 void *hooks;
jpayne@69 655
jpayne@69 656 void (*reserved0)(void);
jpayne@69 657 void (*reserved1)(void);
jpayne@69 658 void (*reserved2)(void);
jpayne@69 659 void (*tclAllocateFreeObjects) (void); /* 3 */
jpayne@69 660 void (*reserved4)(void);
jpayne@69 661 int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */
jpayne@69 662 void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */
jpayne@69 663 int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */
jpayne@69 664 int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */
jpayne@69 665 int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */
jpayne@69 666 int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */
jpayne@69 667 void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */
jpayne@69 668 void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */
jpayne@69 669 void (*reserved13)(void);
jpayne@69 670 int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */
jpayne@69 671 void (*reserved15)(void);
jpayne@69 672 void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */
jpayne@69 673 void (*reserved17)(void);
jpayne@69 674 void (*reserved18)(void);
jpayne@69 675 void (*reserved19)(void);
jpayne@69 676 void (*reserved20)(void);
jpayne@69 677 void (*reserved21)(void);
jpayne@69 678 int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */
jpayne@69 679 Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */
jpayne@69 680 int (*tclFormatInt) (char *buffer, long n); /* 24 */
jpayne@69 681 void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */
jpayne@69 682 void (*reserved26)(void);
jpayne@69 683 void (*reserved27)(void);
jpayne@69 684 Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
jpayne@69 685 void (*reserved29)(void);
jpayne@69 686 void (*reserved30)(void);
jpayne@69 687 const char * (*tclGetExtension) (const char *name); /* 31 */
jpayne@69 688 int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */
jpayne@69 689 void (*reserved33)(void);
jpayne@69 690 int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
jpayne@69 691 void (*reserved35)(void);
jpayne@69 692 void (*reserved36)(void);
jpayne@69 693 int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */
jpayne@69 694 int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */
jpayne@69 695 Tcl_ObjCmdProc * (*tclGetObjInterpProc) (void); /* 39 */
jpayne@69 696 int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */
jpayne@69 697 Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
jpayne@69 698 CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */
jpayne@69 699 void (*reserved43)(void);
jpayne@69 700 int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */
jpayne@69 701 int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
jpayne@69 702 int (*tclInExit) (void); /* 46 */
jpayne@69 703 void (*reserved47)(void);
jpayne@69 704 void (*reserved48)(void);
jpayne@69 705 void (*reserved49)(void);
jpayne@69 706 void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */
jpayne@69 707 int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */
jpayne@69 708 void (*reserved52)(void);
jpayne@69 709 int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */
jpayne@69 710 int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */
jpayne@69 711 Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */
jpayne@69 712 void (*reserved56)(void);
jpayne@69 713 void (*reserved57)(void);
jpayne@69 714 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 715 void (*reserved59)(void);
jpayne@69 716 int (*tclNeedSpace) (const char *start, const char *end); /* 60 */
jpayne@69 717 Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */
jpayne@69 718 int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */
jpayne@69 719 int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */
jpayne@69 720 int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */
jpayne@69 721 void (*reserved65)(void);
jpayne@69 722 void (*reserved66)(void);
jpayne@69 723 void (*reserved67)(void);
jpayne@69 724 void (*reserved68)(void);
jpayne@69 725 char * (*tclpAlloc) (unsigned int size); /* 69 */
jpayne@69 726 void (*reserved70)(void);
jpayne@69 727 void (*reserved71)(void);
jpayne@69 728 void (*reserved72)(void);
jpayne@69 729 void (*reserved73)(void);
jpayne@69 730 void (*tclpFree) (char *ptr); /* 74 */
jpayne@69 731 unsigned long (*tclpGetClicks) (void); /* 75 */
jpayne@69 732 unsigned long (*tclpGetSeconds) (void); /* 76 */
jpayne@69 733 void (*tclpGetTime) (Tcl_Time *time); /* 77 */
jpayne@69 734 void (*reserved78)(void);
jpayne@69 735 void (*reserved79)(void);
jpayne@69 736 void (*reserved80)(void);
jpayne@69 737 char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */
jpayne@69 738 void (*reserved82)(void);
jpayne@69 739 void (*reserved83)(void);
jpayne@69 740 void (*reserved84)(void);
jpayne@69 741 void (*reserved85)(void);
jpayne@69 742 void (*reserved86)(void);
jpayne@69 743 void (*reserved87)(void);
jpayne@69 744 char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */
jpayne@69 745 int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */
jpayne@69 746 void (*reserved90)(void);
jpayne@69 747 void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */
jpayne@69 748 int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */
jpayne@69 749 void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
jpayne@69 750 void (*reserved94)(void);
jpayne@69 751 void (*reserved95)(void);
jpayne@69 752 int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */
jpayne@69 753 void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */
jpayne@69 754 int (*tclServiceIdle) (void); /* 98 */
jpayne@69 755 void (*reserved99)(void);
jpayne@69 756 void (*reserved100)(void);
jpayne@69 757 CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */
jpayne@69 758 void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */
jpayne@69 759 int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */
jpayne@69 760 int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */
jpayne@69 761 void (*reserved105)(void);
jpayne@69 762 void (*reserved106)(void);
jpayne@69 763 void (*reserved107)(void);
jpayne@69 764 void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */
jpayne@69 765 int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */
jpayne@69 766 int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */
jpayne@69 767 void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */
jpayne@69 768 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */
jpayne@69 769 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */
jpayne@69 770 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */
jpayne@69 771 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */
jpayne@69 772 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */
jpayne@69 773 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */
jpayne@69 774 int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */
jpayne@69 775 int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */
jpayne@69 776 Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */
jpayne@69 777 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */
jpayne@69 778 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */
jpayne@69 779 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */
jpayne@69 780 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */
jpayne@69 781 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */
jpayne@69 782 void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */
jpayne@69 783 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */
jpayne@69 784 void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */
jpayne@69 785 int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */
jpayne@69 786 int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */
jpayne@69 787 void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */
jpayne@69 788 int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */
jpayne@69 789 struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */
jpayne@69 790 void (*reserved134)(void);
jpayne@69 791 void (*reserved135)(void);
jpayne@69 792 void (*reserved136)(void);
jpayne@69 793 void (*reserved137)(void);
jpayne@69 794 CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */
jpayne@69 795 void (*reserved139)(void);
jpayne@69 796 void (*reserved140)(void);
jpayne@69 797 CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */
jpayne@69 798 int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */
jpayne@69 799 int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */
jpayne@69 800 void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */
jpayne@69 801 const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */
jpayne@69 802 TclHandle (*tclHandleCreate) (void *ptr); /* 146 */
jpayne@69 803 void (*tclHandleFree) (TclHandle handle); /* 147 */
jpayne@69 804 TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
jpayne@69 805 void (*tclHandleRelease) (TclHandle handle); /* 149 */
jpayne@69 806 int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */
jpayne@69 807 void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */
jpayne@69 808 void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */
jpayne@69 809 Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
jpayne@69 810 void (*reserved154)(void);
jpayne@69 811 void (*reserved155)(void);
jpayne@69 812 void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */
jpayne@69 813 Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */
jpayne@69 814 void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */
jpayne@69 815 const char * (*tclGetStartupScriptFileName) (void); /* 159 */
jpayne@69 816 void (*reserved160)(void);
jpayne@69 817 int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */
jpayne@69 818 void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
jpayne@69 819 const void * (*tclGetInstructionTable) (void); /* 163 */
jpayne@69 820 void (*tclExpandCodeArray) (void *envPtr); /* 164 */
jpayne@69 821 void (*tclpSetInitialEncodings) (void); /* 165 */
jpayne@69 822 int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */
jpayne@69 823 void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */
jpayne@69 824 Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
jpayne@69 825 int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */
jpayne@69 826 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 827 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 828 int (*tclInThreadExit) (void); /* 172 */
jpayne@69 829 int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */
jpayne@69 830 void (*reserved174)(void);
jpayne@69 831 int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */
jpayne@69 832 void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */
jpayne@69 833 void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */
jpayne@69 834 void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */
jpayne@69 835 Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */
jpayne@69 836 void (*reserved180)(void);
jpayne@69 837 void (*reserved181)(void);
jpayne@69 838 struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */
jpayne@69 839 struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */
jpayne@69 840 void (*reserved184)(void);
jpayne@69 841 void (*reserved185)(void);
jpayne@69 842 void (*reserved186)(void);
jpayne@69 843 void (*reserved187)(void);
jpayne@69 844 void (*reserved188)(void);
jpayne@69 845 void (*reserved189)(void);
jpayne@69 846 void (*reserved190)(void);
jpayne@69 847 void (*reserved191)(void);
jpayne@69 848 void (*reserved192)(void);
jpayne@69 849 void (*reserved193)(void);
jpayne@69 850 void (*reserved194)(void);
jpayne@69 851 void (*reserved195)(void);
jpayne@69 852 void (*reserved196)(void);
jpayne@69 853 void (*reserved197)(void);
jpayne@69 854 int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */
jpayne@69 855 void (*reserved199)(void);
jpayne@69 856 int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */
jpayne@69 857 int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */
jpayne@69 858 int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */
jpayne@69 859 int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */
jpayne@69 860 int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */
jpayne@69 861 int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */
jpayne@69 862 int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */
jpayne@69 863 int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */
jpayne@69 864 Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */
jpayne@69 865 void (*reserved209)(void);
jpayne@69 866 void (*reserved210)(void);
jpayne@69 867 void (*reserved211)(void);
jpayne@69 868 void (*tclpFindExecutable) (const char *argv0); /* 212 */
jpayne@69 869 Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
jpayne@69 870 void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */
jpayne@69 871 void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */
jpayne@69 872 void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */
jpayne@69 873 int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */
jpayne@69 874 void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */
jpayne@69 875 void (*reserved219)(void);
jpayne@69 876 void (*reserved220)(void);
jpayne@69 877 void (*reserved221)(void);
jpayne@69 878 void (*reserved222)(void);
jpayne@69 879 void (*reserved223)(void);
jpayne@69 880 TclPlatformType * (*tclGetPlatform) (void); /* 224 */
jpayne@69 881 Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */
jpayne@69 882 int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */
jpayne@69 883 void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */
jpayne@69 884 void (*reserved228)(void);
jpayne@69 885 int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */
jpayne@69 886 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 887 int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */
jpayne@69 888 int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */
jpayne@69 889 void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */
jpayne@69 890 Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */
jpayne@69 891 void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */
jpayne@69 892 void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */
jpayne@69 893 int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */
jpayne@69 894 int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */
jpayne@69 895 int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */
jpayne@69 896 int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */
jpayne@69 897 int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */
jpayne@69 898 int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */
jpayne@69 899 void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */
jpayne@69 900 Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */
jpayne@69 901 Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */
jpayne@69 902 int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */
jpayne@69 903 void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */
jpayne@69 904 int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */
jpayne@69 905 char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */
jpayne@69 906 void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */
jpayne@69 907 int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */
jpayne@69 908 Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 252 */
jpayne@69 909 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 910 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 911 int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */
jpayne@69 912 int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */
jpayne@69 913 void (*tclStaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */
jpayne@69 914 void (*reserved258)(void);
jpayne@69 915 void (*reserved259)(void);
jpayne@69 916 void (*reserved260)(void);
jpayne@69 917 void (*tclUnusedStubEntry) (void); /* 261 */
jpayne@69 918 } TclIntStubs;
jpayne@69 919
jpayne@69 920 extern const TclIntStubs *tclIntStubsPtr;
jpayne@69 921
jpayne@69 922 #ifdef __cplusplus
jpayne@69 923 }
jpayne@69 924 #endif
jpayne@69 925
jpayne@69 926 #if defined(USE_TCL_STUBS)
jpayne@69 927
jpayne@69 928 /*
jpayne@69 929 * Inline function declarations:
jpayne@69 930 */
jpayne@69 931
jpayne@69 932 /* Slot 0 is reserved */
jpayne@69 933 /* Slot 1 is reserved */
jpayne@69 934 /* Slot 2 is reserved */
jpayne@69 935 #define TclAllocateFreeObjects \
jpayne@69 936 (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
jpayne@69 937 /* Slot 4 is reserved */
jpayne@69 938 #define TclCleanupChildren \
jpayne@69 939 (tclIntStubsPtr->tclCleanupChildren) /* 5 */
jpayne@69 940 #define TclCleanupCommand \
jpayne@69 941 (tclIntStubsPtr->tclCleanupCommand) /* 6 */
jpayne@69 942 #define TclCopyAndCollapse \
jpayne@69 943 (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
jpayne@69 944 #define TclCopyChannelOld \
jpayne@69 945 (tclIntStubsPtr->tclCopyChannelOld) /* 8 */
jpayne@69 946 #define TclCreatePipeline \
jpayne@69 947 (tclIntStubsPtr->tclCreatePipeline) /* 9 */
jpayne@69 948 #define TclCreateProc \
jpayne@69 949 (tclIntStubsPtr->tclCreateProc) /* 10 */
jpayne@69 950 #define TclDeleteCompiledLocalVars \
jpayne@69 951 (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
jpayne@69 952 #define TclDeleteVars \
jpayne@69 953 (tclIntStubsPtr->tclDeleteVars) /* 12 */
jpayne@69 954 /* Slot 13 is reserved */
jpayne@69 955 #define TclDumpMemoryInfo \
jpayne@69 956 (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
jpayne@69 957 /* Slot 15 is reserved */
jpayne@69 958 #define TclExprFloatError \
jpayne@69 959 (tclIntStubsPtr->tclExprFloatError) /* 16 */
jpayne@69 960 /* Slot 17 is reserved */
jpayne@69 961 /* Slot 18 is reserved */
jpayne@69 962 /* Slot 19 is reserved */
jpayne@69 963 /* Slot 20 is reserved */
jpayne@69 964 /* Slot 21 is reserved */
jpayne@69 965 #define TclFindElement \
jpayne@69 966 (tclIntStubsPtr->tclFindElement) /* 22 */
jpayne@69 967 #define TclFindProc \
jpayne@69 968 (tclIntStubsPtr->tclFindProc) /* 23 */
jpayne@69 969 #define TclFormatInt \
jpayne@69 970 (tclIntStubsPtr->tclFormatInt) /* 24 */
jpayne@69 971 #define TclFreePackageInfo \
jpayne@69 972 (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
jpayne@69 973 /* Slot 26 is reserved */
jpayne@69 974 /* Slot 27 is reserved */
jpayne@69 975 #define TclpGetDefaultStdChannel \
jpayne@69 976 (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
jpayne@69 977 /* Slot 29 is reserved */
jpayne@69 978 /* Slot 30 is reserved */
jpayne@69 979 #define TclGetExtension \
jpayne@69 980 (tclIntStubsPtr->tclGetExtension) /* 31 */
jpayne@69 981 #define TclGetFrame \
jpayne@69 982 (tclIntStubsPtr->tclGetFrame) /* 32 */
jpayne@69 983 /* Slot 33 is reserved */
jpayne@69 984 #define TclGetIntForIndex \
jpayne@69 985 (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
jpayne@69 986 /* Slot 35 is reserved */
jpayne@69 987 /* Slot 36 is reserved */
jpayne@69 988 #define TclGetLoadedPackages \
jpayne@69 989 (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
jpayne@69 990 #define TclGetNamespaceForQualName \
jpayne@69 991 (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
jpayne@69 992 #define TclGetObjInterpProc \
jpayne@69 993 (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
jpayne@69 994 #define TclGetOpenMode \
jpayne@69 995 (tclIntStubsPtr->tclGetOpenMode) /* 40 */
jpayne@69 996 #define TclGetOriginalCommand \
jpayne@69 997 (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
jpayne@69 998 #define TclpGetUserHome \
jpayne@69 999 (tclIntStubsPtr->tclpGetUserHome) /* 42 */
jpayne@69 1000 /* Slot 43 is reserved */
jpayne@69 1001 #define TclGuessPackageName \
jpayne@69 1002 (tclIntStubsPtr->tclGuessPackageName) /* 44 */
jpayne@69 1003 #define TclHideUnsafeCommands \
jpayne@69 1004 (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
jpayne@69 1005 #define TclInExit \
jpayne@69 1006 (tclIntStubsPtr->tclInExit) /* 46 */
jpayne@69 1007 /* Slot 47 is reserved */
jpayne@69 1008 /* Slot 48 is reserved */
jpayne@69 1009 /* Slot 49 is reserved */
jpayne@69 1010 #define TclInitCompiledLocals \
jpayne@69 1011 (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
jpayne@69 1012 #define TclInterpInit \
jpayne@69 1013 (tclIntStubsPtr->tclInterpInit) /* 51 */
jpayne@69 1014 /* Slot 52 is reserved */
jpayne@69 1015 #define TclInvokeObjectCommand \
jpayne@69 1016 (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
jpayne@69 1017 #define TclInvokeStringCommand \
jpayne@69 1018 (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
jpayne@69 1019 #define TclIsProc \
jpayne@69 1020 (tclIntStubsPtr->tclIsProc) /* 55 */
jpayne@69 1021 /* Slot 56 is reserved */
jpayne@69 1022 /* Slot 57 is reserved */
jpayne@69 1023 #define TclLookupVar \
jpayne@69 1024 (tclIntStubsPtr->tclLookupVar) /* 58 */
jpayne@69 1025 /* Slot 59 is reserved */
jpayne@69 1026 #define TclNeedSpace \
jpayne@69 1027 (tclIntStubsPtr->tclNeedSpace) /* 60 */
jpayne@69 1028 #define TclNewProcBodyObj \
jpayne@69 1029 (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
jpayne@69 1030 #define TclObjCommandComplete \
jpayne@69 1031 (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
jpayne@69 1032 #define TclObjInterpProc \
jpayne@69 1033 (tclIntStubsPtr->tclObjInterpProc) /* 63 */
jpayne@69 1034 #define TclObjInvoke \
jpayne@69 1035 (tclIntStubsPtr->tclObjInvoke) /* 64 */
jpayne@69 1036 /* Slot 65 is reserved */
jpayne@69 1037 /* Slot 66 is reserved */
jpayne@69 1038 /* Slot 67 is reserved */
jpayne@69 1039 /* Slot 68 is reserved */
jpayne@69 1040 #define TclpAlloc \
jpayne@69 1041 (tclIntStubsPtr->tclpAlloc) /* 69 */
jpayne@69 1042 /* Slot 70 is reserved */
jpayne@69 1043 /* Slot 71 is reserved */
jpayne@69 1044 /* Slot 72 is reserved */
jpayne@69 1045 /* Slot 73 is reserved */
jpayne@69 1046 #define TclpFree \
jpayne@69 1047 (tclIntStubsPtr->tclpFree) /* 74 */
jpayne@69 1048 #define TclpGetClicks \
jpayne@69 1049 (tclIntStubsPtr->tclpGetClicks) /* 75 */
jpayne@69 1050 #define TclpGetSeconds \
jpayne@69 1051 (tclIntStubsPtr->tclpGetSeconds) /* 76 */
jpayne@69 1052 #define TclpGetTime \
jpayne@69 1053 (tclIntStubsPtr->tclpGetTime) /* 77 */
jpayne@69 1054 /* Slot 78 is reserved */
jpayne@69 1055 /* Slot 79 is reserved */
jpayne@69 1056 /* Slot 80 is reserved */
jpayne@69 1057 #define TclpRealloc \
jpayne@69 1058 (tclIntStubsPtr->tclpRealloc) /* 81 */
jpayne@69 1059 /* Slot 82 is reserved */
jpayne@69 1060 /* Slot 83 is reserved */
jpayne@69 1061 /* Slot 84 is reserved */
jpayne@69 1062 /* Slot 85 is reserved */
jpayne@69 1063 /* Slot 86 is reserved */
jpayne@69 1064 /* Slot 87 is reserved */
jpayne@69 1065 #define TclPrecTraceProc \
jpayne@69 1066 (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
jpayne@69 1067 #define TclPreventAliasLoop \
jpayne@69 1068 (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
jpayne@69 1069 /* Slot 90 is reserved */
jpayne@69 1070 #define TclProcCleanupProc \
jpayne@69 1071 (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
jpayne@69 1072 #define TclProcCompileProc \
jpayne@69 1073 (tclIntStubsPtr->tclProcCompileProc) /* 92 */
jpayne@69 1074 #define TclProcDeleteProc \
jpayne@69 1075 (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
jpayne@69 1076 /* Slot 94 is reserved */
jpayne@69 1077 /* Slot 95 is reserved */
jpayne@69 1078 #define TclRenameCommand \
jpayne@69 1079 (tclIntStubsPtr->tclRenameCommand) /* 96 */
jpayne@69 1080 #define TclResetShadowedCmdRefs \
jpayne@69 1081 (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
jpayne@69 1082 #define TclServiceIdle \
jpayne@69 1083 (tclIntStubsPtr->tclServiceIdle) /* 98 */
jpayne@69 1084 /* Slot 99 is reserved */
jpayne@69 1085 /* Slot 100 is reserved */
jpayne@69 1086 #define TclSetPreInitScript \
jpayne@69 1087 (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
jpayne@69 1088 #define TclSetupEnv \
jpayne@69 1089 (tclIntStubsPtr->tclSetupEnv) /* 102 */
jpayne@69 1090 #define TclSockGetPort \
jpayne@69 1091 (tclIntStubsPtr->tclSockGetPort) /* 103 */
jpayne@69 1092 #define TclSockMinimumBuffersOld \
jpayne@69 1093 (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */
jpayne@69 1094 /* Slot 105 is reserved */
jpayne@69 1095 /* Slot 106 is reserved */
jpayne@69 1096 /* Slot 107 is reserved */
jpayne@69 1097 #define TclTeardownNamespace \
jpayne@69 1098 (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
jpayne@69 1099 #define TclUpdateReturnInfo \
jpayne@69 1100 (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
jpayne@69 1101 #define TclSockMinimumBuffers \
jpayne@69 1102 (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */
jpayne@69 1103 #define Tcl_AddInterpResolvers \
jpayne@69 1104 (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
jpayne@69 1105 #define Tcl_AppendExportList \
jpayne@69 1106 (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
jpayne@69 1107 #define Tcl_CreateNamespace \
jpayne@69 1108 (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
jpayne@69 1109 #define Tcl_DeleteNamespace \
jpayne@69 1110 (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
jpayne@69 1111 #define Tcl_Export \
jpayne@69 1112 (tclIntStubsPtr->tcl_Export) /* 115 */
jpayne@69 1113 #define Tcl_FindCommand \
jpayne@69 1114 (tclIntStubsPtr->tcl_FindCommand) /* 116 */
jpayne@69 1115 #define Tcl_FindNamespace \
jpayne@69 1116 (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
jpayne@69 1117 #define Tcl_GetInterpResolvers \
jpayne@69 1118 (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
jpayne@69 1119 #define Tcl_GetNamespaceResolvers \
jpayne@69 1120 (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
jpayne@69 1121 #define Tcl_FindNamespaceVar \
jpayne@69 1122 (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
jpayne@69 1123 #define Tcl_ForgetImport \
jpayne@69 1124 (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
jpayne@69 1125 #define Tcl_GetCommandFromObj \
jpayne@69 1126 (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
jpayne@69 1127 #define Tcl_GetCommandFullName \
jpayne@69 1128 (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
jpayne@69 1129 #define Tcl_GetCurrentNamespace \
jpayne@69 1130 (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
jpayne@69 1131 #define Tcl_GetGlobalNamespace \
jpayne@69 1132 (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
jpayne@69 1133 #define Tcl_GetVariableFullName \
jpayne@69 1134 (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
jpayne@69 1135 #define Tcl_Import \
jpayne@69 1136 (tclIntStubsPtr->tcl_Import) /* 127 */
jpayne@69 1137 #define Tcl_PopCallFrame \
jpayne@69 1138 (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
jpayne@69 1139 #define Tcl_PushCallFrame \
jpayne@69 1140 (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
jpayne@69 1141 #define Tcl_RemoveInterpResolvers \
jpayne@69 1142 (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
jpayne@69 1143 #define Tcl_SetNamespaceResolvers \
jpayne@69 1144 (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
jpayne@69 1145 #define TclpHasSockets \
jpayne@69 1146 (tclIntStubsPtr->tclpHasSockets) /* 132 */
jpayne@69 1147 #define TclpGetDate \
jpayne@69 1148 (tclIntStubsPtr->tclpGetDate) /* 133 */
jpayne@69 1149 /* Slot 134 is reserved */
jpayne@69 1150 /* Slot 135 is reserved */
jpayne@69 1151 /* Slot 136 is reserved */
jpayne@69 1152 /* Slot 137 is reserved */
jpayne@69 1153 #define TclGetEnv \
jpayne@69 1154 (tclIntStubsPtr->tclGetEnv) /* 138 */
jpayne@69 1155 /* Slot 139 is reserved */
jpayne@69 1156 /* Slot 140 is reserved */
jpayne@69 1157 #define TclpGetCwd \
jpayne@69 1158 (tclIntStubsPtr->tclpGetCwd) /* 141 */
jpayne@69 1159 #define TclSetByteCodeFromAny \
jpayne@69 1160 (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
jpayne@69 1161 #define TclAddLiteralObj \
jpayne@69 1162 (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
jpayne@69 1163 #define TclHideLiteral \
jpayne@69 1164 (tclIntStubsPtr->tclHideLiteral) /* 144 */
jpayne@69 1165 #define TclGetAuxDataType \
jpayne@69 1166 (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
jpayne@69 1167 #define TclHandleCreate \
jpayne@69 1168 (tclIntStubsPtr->tclHandleCreate) /* 146 */
jpayne@69 1169 #define TclHandleFree \
jpayne@69 1170 (tclIntStubsPtr->tclHandleFree) /* 147 */
jpayne@69 1171 #define TclHandlePreserve \
jpayne@69 1172 (tclIntStubsPtr->tclHandlePreserve) /* 148 */
jpayne@69 1173 #define TclHandleRelease \
jpayne@69 1174 (tclIntStubsPtr->tclHandleRelease) /* 149 */
jpayne@69 1175 #define TclRegAbout \
jpayne@69 1176 (tclIntStubsPtr->tclRegAbout) /* 150 */
jpayne@69 1177 #define TclRegExpRangeUniChar \
jpayne@69 1178 (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
jpayne@69 1179 #define TclSetLibraryPath \
jpayne@69 1180 (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
jpayne@69 1181 #define TclGetLibraryPath \
jpayne@69 1182 (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
jpayne@69 1183 /* Slot 154 is reserved */
jpayne@69 1184 /* Slot 155 is reserved */
jpayne@69 1185 #define TclRegError \
jpayne@69 1186 (tclIntStubsPtr->tclRegError) /* 156 */
jpayne@69 1187 #define TclVarTraceExists \
jpayne@69 1188 (tclIntStubsPtr->tclVarTraceExists) /* 157 */
jpayne@69 1189 #define TclSetStartupScriptFileName \
jpayne@69 1190 (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
jpayne@69 1191 #define TclGetStartupScriptFileName \
jpayne@69 1192 (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
jpayne@69 1193 /* Slot 160 is reserved */
jpayne@69 1194 #define TclChannelTransform \
jpayne@69 1195 (tclIntStubsPtr->tclChannelTransform) /* 161 */
jpayne@69 1196 #define TclChannelEventScriptInvoker \
jpayne@69 1197 (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
jpayne@69 1198 #define TclGetInstructionTable \
jpayne@69 1199 (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
jpayne@69 1200 #define TclExpandCodeArray \
jpayne@69 1201 (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
jpayne@69 1202 #define TclpSetInitialEncodings \
jpayne@69 1203 (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
jpayne@69 1204 #define TclListObjSetElement \
jpayne@69 1205 (tclIntStubsPtr->tclListObjSetElement) /* 166 */
jpayne@69 1206 #define TclSetStartupScriptPath \
jpayne@69 1207 (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
jpayne@69 1208 #define TclGetStartupScriptPath \
jpayne@69 1209 (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
jpayne@69 1210 #define TclpUtfNcmp2 \
jpayne@69 1211 (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
jpayne@69 1212 #define TclCheckInterpTraces \
jpayne@69 1213 (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
jpayne@69 1214 #define TclCheckExecutionTraces \
jpayne@69 1215 (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
jpayne@69 1216 #define TclInThreadExit \
jpayne@69 1217 (tclIntStubsPtr->tclInThreadExit) /* 172 */
jpayne@69 1218 #define TclUniCharMatch \
jpayne@69 1219 (tclIntStubsPtr->tclUniCharMatch) /* 173 */
jpayne@69 1220 /* Slot 174 is reserved */
jpayne@69 1221 #define TclCallVarTraces \
jpayne@69 1222 (tclIntStubsPtr->tclCallVarTraces) /* 175 */
jpayne@69 1223 #define TclCleanupVar \
jpayne@69 1224 (tclIntStubsPtr->tclCleanupVar) /* 176 */
jpayne@69 1225 #define TclVarErrMsg \
jpayne@69 1226 (tclIntStubsPtr->tclVarErrMsg) /* 177 */
jpayne@69 1227 #define Tcl_SetStartupScript \
jpayne@69 1228 (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
jpayne@69 1229 #define Tcl_GetStartupScript \
jpayne@69 1230 (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
jpayne@69 1231 /* Slot 180 is reserved */
jpayne@69 1232 /* Slot 181 is reserved */
jpayne@69 1233 #define TclpLocaltime \
jpayne@69 1234 (tclIntStubsPtr->tclpLocaltime) /* 182 */
jpayne@69 1235 #define TclpGmtime \
jpayne@69 1236 (tclIntStubsPtr->tclpGmtime) /* 183 */
jpayne@69 1237 /* Slot 184 is reserved */
jpayne@69 1238 /* Slot 185 is reserved */
jpayne@69 1239 /* Slot 186 is reserved */
jpayne@69 1240 /* Slot 187 is reserved */
jpayne@69 1241 /* Slot 188 is reserved */
jpayne@69 1242 /* Slot 189 is reserved */
jpayne@69 1243 /* Slot 190 is reserved */
jpayne@69 1244 /* Slot 191 is reserved */
jpayne@69 1245 /* Slot 192 is reserved */
jpayne@69 1246 /* Slot 193 is reserved */
jpayne@69 1247 /* Slot 194 is reserved */
jpayne@69 1248 /* Slot 195 is reserved */
jpayne@69 1249 /* Slot 196 is reserved */
jpayne@69 1250 /* Slot 197 is reserved */
jpayne@69 1251 #define TclObjGetFrame \
jpayne@69 1252 (tclIntStubsPtr->tclObjGetFrame) /* 198 */
jpayne@69 1253 /* Slot 199 is reserved */
jpayne@69 1254 #define TclpObjRemoveDirectory \
jpayne@69 1255 (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
jpayne@69 1256 #define TclpObjCopyDirectory \
jpayne@69 1257 (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
jpayne@69 1258 #define TclpObjCreateDirectory \
jpayne@69 1259 (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
jpayne@69 1260 #define TclpObjDeleteFile \
jpayne@69 1261 (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
jpayne@69 1262 #define TclpObjCopyFile \
jpayne@69 1263 (tclIntStubsPtr->tclpObjCopyFile) /* 204 */
jpayne@69 1264 #define TclpObjRenameFile \
jpayne@69 1265 (tclIntStubsPtr->tclpObjRenameFile) /* 205 */
jpayne@69 1266 #define TclpObjStat \
jpayne@69 1267 (tclIntStubsPtr->tclpObjStat) /* 206 */
jpayne@69 1268 #define TclpObjAccess \
jpayne@69 1269 (tclIntStubsPtr->tclpObjAccess) /* 207 */
jpayne@69 1270 #define TclpOpenFileChannel \
jpayne@69 1271 (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
jpayne@69 1272 /* Slot 209 is reserved */
jpayne@69 1273 /* Slot 210 is reserved */
jpayne@69 1274 /* Slot 211 is reserved */
jpayne@69 1275 #define TclpFindExecutable \
jpayne@69 1276 (tclIntStubsPtr->tclpFindExecutable) /* 212 */
jpayne@69 1277 #define TclGetObjNameOfExecutable \
jpayne@69 1278 (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
jpayne@69 1279 #define TclSetObjNameOfExecutable \
jpayne@69 1280 (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
jpayne@69 1281 #define TclStackAlloc \
jpayne@69 1282 (tclIntStubsPtr->tclStackAlloc) /* 215 */
jpayne@69 1283 #define TclStackFree \
jpayne@69 1284 (tclIntStubsPtr->tclStackFree) /* 216 */
jpayne@69 1285 #define TclPushStackFrame \
jpayne@69 1286 (tclIntStubsPtr->tclPushStackFrame) /* 217 */
jpayne@69 1287 #define TclPopStackFrame \
jpayne@69 1288 (tclIntStubsPtr->tclPopStackFrame) /* 218 */
jpayne@69 1289 /* Slot 219 is reserved */
jpayne@69 1290 /* Slot 220 is reserved */
jpayne@69 1291 /* Slot 221 is reserved */
jpayne@69 1292 /* Slot 222 is reserved */
jpayne@69 1293 /* Slot 223 is reserved */
jpayne@69 1294 #define TclGetPlatform \
jpayne@69 1295 (tclIntStubsPtr->tclGetPlatform) /* 224 */
jpayne@69 1296 #define TclTraceDictPath \
jpayne@69 1297 (tclIntStubsPtr->tclTraceDictPath) /* 225 */
jpayne@69 1298 #define TclObjBeingDeleted \
jpayne@69 1299 (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
jpayne@69 1300 #define TclSetNsPath \
jpayne@69 1301 (tclIntStubsPtr->tclSetNsPath) /* 227 */
jpayne@69 1302 /* Slot 228 is reserved */
jpayne@69 1303 #define TclPtrMakeUpvar \
jpayne@69 1304 (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
jpayne@69 1305 #define TclObjLookupVar \
jpayne@69 1306 (tclIntStubsPtr->tclObjLookupVar) /* 230 */
jpayne@69 1307 #define TclGetNamespaceFromObj \
jpayne@69 1308 (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
jpayne@69 1309 #define TclEvalObjEx \
jpayne@69 1310 (tclIntStubsPtr->tclEvalObjEx) /* 232 */
jpayne@69 1311 #define TclGetSrcInfoForPc \
jpayne@69 1312 (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
jpayne@69 1313 #define TclVarHashCreateVar \
jpayne@69 1314 (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
jpayne@69 1315 #define TclInitVarHashTable \
jpayne@69 1316 (tclIntStubsPtr->tclInitVarHashTable) /* 235 */
jpayne@69 1317 #define TclBackgroundException \
jpayne@69 1318 (tclIntStubsPtr->tclBackgroundException) /* 236 */
jpayne@69 1319 #define TclResetCancellation \
jpayne@69 1320 (tclIntStubsPtr->tclResetCancellation) /* 237 */
jpayne@69 1321 #define TclNRInterpProc \
jpayne@69 1322 (tclIntStubsPtr->tclNRInterpProc) /* 238 */
jpayne@69 1323 #define TclNRInterpProcCore \
jpayne@69 1324 (tclIntStubsPtr->tclNRInterpProcCore) /* 239 */
jpayne@69 1325 #define TclNRRunCallbacks \
jpayne@69 1326 (tclIntStubsPtr->tclNRRunCallbacks) /* 240 */
jpayne@69 1327 #define TclNREvalObjEx \
jpayne@69 1328 (tclIntStubsPtr->tclNREvalObjEx) /* 241 */
jpayne@69 1329 #define TclNREvalObjv \
jpayne@69 1330 (tclIntStubsPtr->tclNREvalObjv) /* 242 */
jpayne@69 1331 #define TclDbDumpActiveObjects \
jpayne@69 1332 (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */
jpayne@69 1333 #define TclGetNamespaceChildTable \
jpayne@69 1334 (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */
jpayne@69 1335 #define TclGetNamespaceCommandTable \
jpayne@69 1336 (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */
jpayne@69 1337 #define TclInitRewriteEnsemble \
jpayne@69 1338 (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */
jpayne@69 1339 #define TclResetRewriteEnsemble \
jpayne@69 1340 (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */
jpayne@69 1341 #define TclCopyChannel \
jpayne@69 1342 (tclIntStubsPtr->tclCopyChannel) /* 248 */
jpayne@69 1343 #define TclDoubleDigits \
jpayne@69 1344 (tclIntStubsPtr->tclDoubleDigits) /* 249 */
jpayne@69 1345 #define TclSetSlaveCancelFlags \
jpayne@69 1346 (tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */
jpayne@69 1347 #define TclRegisterLiteral \
jpayne@69 1348 (tclIntStubsPtr->tclRegisterLiteral) /* 251 */
jpayne@69 1349 #define TclPtrGetVar \
jpayne@69 1350 (tclIntStubsPtr->tclPtrGetVar) /* 252 */
jpayne@69 1351 #define TclPtrSetVar \
jpayne@69 1352 (tclIntStubsPtr->tclPtrSetVar) /* 253 */
jpayne@69 1353 #define TclPtrIncrObjVar \
jpayne@69 1354 (tclIntStubsPtr->tclPtrIncrObjVar) /* 254 */
jpayne@69 1355 #define TclPtrObjMakeUpvar \
jpayne@69 1356 (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */
jpayne@69 1357 #define TclPtrUnsetVar \
jpayne@69 1358 (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */
jpayne@69 1359 #define TclStaticPackage \
jpayne@69 1360 (tclIntStubsPtr->tclStaticPackage) /* 257 */
jpayne@69 1361 /* Slot 258 is reserved */
jpayne@69 1362 /* Slot 259 is reserved */
jpayne@69 1363 /* Slot 260 is reserved */
jpayne@69 1364 #define TclUnusedStubEntry \
jpayne@69 1365 (tclIntStubsPtr->tclUnusedStubEntry) /* 261 */
jpayne@69 1366
jpayne@69 1367 #endif /* defined(USE_TCL_STUBS) */
jpayne@69 1368
jpayne@69 1369 /* !END!: Do not edit above this line. */
jpayne@69 1370
jpayne@69 1371 #undef TCL_STORAGE_CLASS
jpayne@69 1372 #define TCL_STORAGE_CLASS DLLIMPORT
jpayne@69 1373
jpayne@69 1374 #undef TclGetStartupScriptFileName
jpayne@69 1375 #undef TclSetStartupScriptFileName
jpayne@69 1376 #undef TclGetStartupScriptPath
jpayne@69 1377 #undef TclSetStartupScriptPath
jpayne@69 1378 #undef TclBackgroundException
jpayne@69 1379 #undef TclUnusedStubEntry
jpayne@69 1380 #undef TclObjInterpProc
jpayne@69 1381 #define TclObjInterpProc TclGetObjInterpProc()
jpayne@69 1382
jpayne@69 1383 #if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED)
jpayne@69 1384 # undef Tcl_SetStartupScript
jpayne@69 1385 # define Tcl_SetStartupScript \
jpayne@69 1386 (tclStubsPtr->tcl_SetStartupScript) /* 622 */
jpayne@69 1387 # undef Tcl_GetStartupScript
jpayne@69 1388 # define Tcl_GetStartupScript \
jpayne@69 1389 (tclStubsPtr->tcl_GetStartupScript) /* 623 */
jpayne@69 1390 # undef Tcl_CreateNamespace
jpayne@69 1391 # define Tcl_CreateNamespace \
jpayne@69 1392 (tclStubsPtr->tcl_CreateNamespace) /* 506 */
jpayne@69 1393 # undef Tcl_DeleteNamespace
jpayne@69 1394 # define Tcl_DeleteNamespace \
jpayne@69 1395 (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
jpayne@69 1396 # undef Tcl_AppendExportList
jpayne@69 1397 # define Tcl_AppendExportList \
jpayne@69 1398 (tclStubsPtr->tcl_AppendExportList) /* 508 */
jpayne@69 1399 # undef Tcl_Export
jpayne@69 1400 # define Tcl_Export \
jpayne@69 1401 (tclStubsPtr->tcl_Export) /* 509 */
jpayne@69 1402 # undef Tcl_Import
jpayne@69 1403 # define Tcl_Import \
jpayne@69 1404 (tclStubsPtr->tcl_Import) /* 510 */
jpayne@69 1405 # undef Tcl_ForgetImport
jpayne@69 1406 # define Tcl_ForgetImport \
jpayne@69 1407 (tclStubsPtr->tcl_ForgetImport) /* 511 */
jpayne@69 1408 # undef Tcl_GetCurrentNamespace
jpayne@69 1409 # define Tcl_GetCurrentNamespace \
jpayne@69 1410 (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
jpayne@69 1411 # undef Tcl_GetGlobalNamespace
jpayne@69 1412 # define Tcl_GetGlobalNamespace \
jpayne@69 1413 (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
jpayne@69 1414 # undef Tcl_FindNamespace
jpayne@69 1415 # define Tcl_FindNamespace \
jpayne@69 1416 (tclStubsPtr->tcl_FindNamespace) /* 514 */
jpayne@69 1417 # undef Tcl_FindCommand
jpayne@69 1418 # define Tcl_FindCommand \
jpayne@69 1419 (tclStubsPtr->tcl_FindCommand) /* 515 */
jpayne@69 1420 # undef Tcl_GetCommandFromObj
jpayne@69 1421 # define Tcl_GetCommandFromObj \
jpayne@69 1422 (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
jpayne@69 1423 # undef Tcl_GetCommandFullName
jpayne@69 1424 # define Tcl_GetCommandFullName \
jpayne@69 1425 (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
jpayne@69 1426 #endif
jpayne@69 1427
jpayne@69 1428 #undef TclCopyChannelOld
jpayne@69 1429 #undef TclSockMinimumBuffersOld
jpayne@69 1430
jpayne@69 1431 #define TclSetChildCancelFlags TclSetSlaveCancelFlags
jpayne@69 1432
jpayne@69 1433 #endif /* _TCLINTDECLS */