File indexing completed on 2024-05-18 08:30:21
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015 #ifndef _TCLINTDECLS
0016 #define _TCLINTDECLS
0017
0018
0019 #undef TCL_STORAGE_CLASS
0020 #ifdef BUILD_tcl
0021 # define TCL_STORAGE_CLASS DLLEXPORT
0022 #else
0023 # ifdef USE_TCL_STUBS
0024 # define TCL_STORAGE_CLASS
0025 # else
0026 # define TCL_STORAGE_CLASS DLLIMPORT
0027 # endif
0028 #endif
0029
0030
0031 #undef Tcl_CreateNamespace
0032 #undef Tcl_DeleteNamespace
0033 #undef Tcl_AppendExportList
0034 #undef Tcl_Export
0035 #undef Tcl_Import
0036 #undef Tcl_ForgetImport
0037 #undef Tcl_GetCurrentNamespace
0038 #undef Tcl_GetGlobalNamespace
0039 #undef Tcl_FindNamespace
0040 #undef Tcl_FindCommand
0041 #undef Tcl_GetCommandFromObj
0042 #undef Tcl_GetCommandFullName
0043 #undef Tcl_SetStartupScript
0044 #undef Tcl_GetStartupScript
0045
0046
0047
0048
0049
0050
0051
0052
0053
0054 #ifdef __cplusplus
0055 extern "C" {
0056 #endif
0057
0058
0059
0060
0061
0062
0063
0064
0065
0066 EXTERN void TclAllocateFreeObjects(void);
0067
0068
0069 EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids,
0070 Tcl_Pid *pidPtr, Tcl_Channel errorChan);
0071
0072 EXTERN void TclCleanupCommand(Command *cmdPtr);
0073
0074 EXTERN int TclCopyAndCollapse(int count, const char *src,
0075 char *dst);
0076
0077 EXTERN int TclCopyChannelOld(Tcl_Interp *interp,
0078 Tcl_Channel inChan, Tcl_Channel outChan,
0079 int toRead, Tcl_Obj *cmdPtr);
0080
0081 EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc,
0082 const char **argv, Tcl_Pid **pidArrayPtr,
0083 TclFile *inPipePtr, TclFile *outPipePtr,
0084 TclFile *errFilePtr);
0085
0086 EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
0087 const char *procName, Tcl_Obj *argsPtr,
0088 Tcl_Obj *bodyPtr, Proc **procPtrPtr);
0089
0090 EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr,
0091 CallFrame *framePtr);
0092
0093 EXTERN void TclDeleteVars(Interp *iPtr,
0094 TclVarHashTable *tablePtr);
0095
0096
0097 EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags);
0098
0099
0100 EXTERN void TclExprFloatError(Tcl_Interp *interp, double value);
0101
0102
0103
0104
0105
0106
0107 EXTERN int TclFindElement(Tcl_Interp *interp,
0108 const char *listStr, int listLength,
0109 const char **elementPtr,
0110 const char **nextPtr, int *sizePtr,
0111 int *bracePtr);
0112
0113 EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName);
0114
0115 EXTERN int TclFormatInt(char *buffer, long n);
0116
0117 EXTERN void TclFreePackageInfo(Interp *iPtr);
0118
0119
0120
0121 EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type);
0122
0123
0124
0125 EXTERN const char * TclGetExtension(const char *name);
0126
0127 EXTERN int TclGetFrame(Tcl_Interp *interp, const char *str,
0128 CallFrame **framePtrPtr);
0129
0130
0131 EXTERN int TclGetIntForIndex(Tcl_Interp *interp,
0132 Tcl_Obj *objPtr, int endValue, int *indexPtr);
0133
0134
0135
0136 EXTERN int TclGetLoadedPackages(Tcl_Interp *interp,
0137 const char *targetName);
0138
0139 EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp,
0140 const char *qualName, Namespace *cxtNsPtr,
0141 int flags, Namespace **nsPtrPtr,
0142 Namespace **altNsPtrPtr,
0143 Namespace **actualCxtPtrPtr,
0144 const char **simpleNamePtr);
0145
0146 EXTERN TclObjCmdProcType TclGetObjInterpProc(void);
0147
0148 EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str,
0149 int *seekFlagPtr);
0150
0151 EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command);
0152
0153 EXTERN CONST86 char * TclpGetUserHome(const char *name,
0154 Tcl_DString *bufferPtr);
0155
0156
0157 EXTERN int TclGuessPackageName(const char *fileName,
0158 Tcl_DString *bufPtr);
0159
0160 EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp);
0161
0162 EXTERN int TclInExit(void);
0163
0164
0165
0166
0167 EXTERN void TclInitCompiledLocals(Tcl_Interp *interp,
0168 CallFrame *framePtr, Namespace *nsPtr);
0169
0170 EXTERN int TclInterpInit(Tcl_Interp *interp);
0171
0172
0173 EXTERN int TclInvokeObjectCommand(ClientData clientData,
0174 Tcl_Interp *interp, int argc,
0175 CONST84 char **argv);
0176
0177 EXTERN int TclInvokeStringCommand(ClientData clientData,
0178 Tcl_Interp *interp, int objc,
0179 Tcl_Obj *const objv[]);
0180
0181 EXTERN Proc * TclIsProc(Command *cmdPtr);
0182
0183
0184
0185 EXTERN Var * TclLookupVar(Tcl_Interp *interp, const char *part1,
0186 const char *part2, int flags,
0187 const char *msg, int createPart1,
0188 int createPart2, Var **arrayPtrPtr);
0189
0190
0191 EXTERN int TclNeedSpace(const char *start, const char *end);
0192
0193 EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr);
0194
0195 EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr);
0196
0197 EXTERN int TclObjInterpProc(ClientData clientData,
0198 Tcl_Interp *interp, int objc,
0199 Tcl_Obj *const objv[]);
0200
0201 EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc,
0202 Tcl_Obj *const objv[], int flags);
0203
0204
0205
0206
0207
0208 EXTERN char * TclpAlloc(unsigned int size);
0209
0210
0211
0212
0213
0214 EXTERN void TclpFree(char *ptr);
0215
0216 EXTERN unsigned long TclpGetClicks(void);
0217
0218 EXTERN unsigned long TclpGetSeconds(void);
0219
0220 EXTERN void TclpGetTime(Tcl_Time *time);
0221
0222
0223
0224
0225 EXTERN char * TclpRealloc(char *ptr, unsigned int size);
0226
0227
0228
0229
0230
0231
0232
0233 EXTERN char * TclPrecTraceProc(ClientData clientData,
0234 Tcl_Interp *interp, const char *name1,
0235 const char *name2, int flags);
0236
0237 EXTERN int TclPreventAliasLoop(Tcl_Interp *interp,
0238 Tcl_Interp *cmdInterp, Tcl_Command cmd);
0239
0240
0241 EXTERN void TclProcCleanupProc(Proc *procPtr);
0242
0243 EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
0244 Tcl_Obj *bodyPtr, Namespace *nsPtr,
0245 const char *description,
0246 const char *procName);
0247
0248 EXTERN void TclProcDeleteProc(ClientData clientData);
0249
0250
0251
0252 EXTERN int TclRenameCommand(Tcl_Interp *interp,
0253 const char *oldName, const char *newName);
0254
0255 EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp,
0256 Command *newCmdPtr);
0257
0258 EXTERN int TclServiceIdle(void);
0259
0260
0261
0262 EXTERN CONST86 char * TclSetPreInitScript(const char *string);
0263
0264 EXTERN void TclSetupEnv(Tcl_Interp *interp);
0265
0266 EXTERN int TclSockGetPort(Tcl_Interp *interp, const char *str,
0267 const char *proto, int *portPtr);
0268
0269 EXTERN int TclSockMinimumBuffersOld(int sock, int size);
0270
0271
0272
0273
0274 EXTERN void TclTeardownNamespace(Namespace *nsPtr);
0275
0276 EXTERN int TclUpdateReturnInfo(Interp *iPtr);
0277
0278 EXTERN int TclSockMinimumBuffers(void *sock, int size);
0279
0280 EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp,
0281 const char *name,
0282 Tcl_ResolveCmdProc *cmdProc,
0283 Tcl_ResolveVarProc *varProc,
0284 Tcl_ResolveCompiledVarProc *compiledVarProc);
0285
0286 EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
0287 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
0288
0289 EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
0290 const char *name, ClientData clientData,
0291 Tcl_NamespaceDeleteProc *deleteProc);
0292
0293 EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
0294
0295 EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
0296 const char *pattern, int resetListFirst);
0297
0298 EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
0299 Tcl_Namespace *contextNsPtr, int flags);
0300
0301 EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
0302 const char *name,
0303 Tcl_Namespace *contextNsPtr, int flags);
0304
0305 EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp,
0306 const char *name, Tcl_ResolverInfo *resInfo);
0307
0308 EXTERN int Tcl_GetNamespaceResolvers(
0309 Tcl_Namespace *namespacePtr,
0310 Tcl_ResolverInfo *resInfo);
0311
0312 EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp,
0313 const char *name,
0314 Tcl_Namespace *contextNsPtr, int flags);
0315
0316 EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
0317 Tcl_Namespace *nsPtr, const char *pattern);
0318
0319 EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
0320 Tcl_Obj *objPtr);
0321
0322 EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
0323 Tcl_Command command, Tcl_Obj *objPtr);
0324
0325 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
0326
0327 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
0328
0329 EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp,
0330 Tcl_Var variable, Tcl_Obj *objPtr);
0331
0332 EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
0333 const char *pattern, int allowOverwrite);
0334
0335 EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp);
0336
0337 EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp,
0338 Tcl_CallFrame *framePtr,
0339 Tcl_Namespace *nsPtr, int isProcCallFrame);
0340
0341 EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
0342 const char *name);
0343
0344 EXTERN void Tcl_SetNamespaceResolvers(
0345 Tcl_Namespace *namespacePtr,
0346 Tcl_ResolveCmdProc *cmdProc,
0347 Tcl_ResolveVarProc *varProc,
0348 Tcl_ResolveCompiledVarProc *compiledVarProc);
0349
0350 EXTERN int TclpHasSockets(Tcl_Interp *interp);
0351
0352 EXTERN struct tm * TclpGetDate(const time_t *time, int useGMT);
0353
0354
0355
0356
0357
0358 EXTERN CONST84_RETURN char * TclGetEnv(const char *name,
0359 Tcl_DString *valuePtr);
0360
0361
0362
0363 EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
0364 Tcl_DString *cwdPtr);
0365
0366 EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp,
0367 Tcl_Obj *objPtr, CompileHookProc *hookProc,
0368 ClientData clientData);
0369
0370 EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr,
0371 Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
0372
0373 EXTERN void TclHideLiteral(Tcl_Interp *interp,
0374 struct CompileEnv *envPtr, int index);
0375
0376 EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName);
0377
0378 EXTERN TclHandle TclHandleCreate(void *ptr);
0379
0380 EXTERN void TclHandleFree(TclHandle handle);
0381
0382 EXTERN TclHandle TclHandlePreserve(TclHandle handle);
0383
0384 EXTERN void TclHandleRelease(TclHandle handle);
0385
0386 EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
0387
0388 EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index,
0389 int *startPtr, int *endPtr);
0390
0391 EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr);
0392
0393 EXTERN Tcl_Obj * TclGetLibraryPath(void);
0394
0395
0396
0397 EXTERN void TclRegError(Tcl_Interp *interp, const char *msg,
0398 int status);
0399
0400 EXTERN Var * TclVarTraceExists(Tcl_Interp *interp,
0401 const char *varName);
0402
0403 EXTERN void TclSetStartupScriptFileName(const char *filename);
0404
0405 EXTERN const char * TclGetStartupScriptFileName(void);
0406
0407
0408 EXTERN int TclChannelTransform(Tcl_Interp *interp,
0409 Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
0410
0411 EXTERN void TclChannelEventScriptInvoker(ClientData clientData,
0412 int flags);
0413
0414 EXTERN const void * TclGetInstructionTable(void);
0415
0416 EXTERN void TclExpandCodeArray(void *envPtr);
0417
0418 EXTERN void TclpSetInitialEncodings(void);
0419
0420 EXTERN int TclListObjSetElement(Tcl_Interp *interp,
0421 Tcl_Obj *listPtr, int index,
0422 Tcl_Obj *valuePtr);
0423
0424 EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr);
0425
0426 EXTERN Tcl_Obj * TclGetStartupScriptPath(void);
0427
0428 EXTERN int TclpUtfNcmp2(const char *s1, const char *s2,
0429 unsigned long n);
0430
0431 EXTERN int TclCheckInterpTraces(Tcl_Interp *interp,
0432 const char *command, int numChars,
0433 Command *cmdPtr, int result, int traceFlags,
0434 int objc, Tcl_Obj *const objv[]);
0435
0436 EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp,
0437 const char *command, int numChars,
0438 Command *cmdPtr, int result, int traceFlags,
0439 int objc, Tcl_Obj *const objv[]);
0440
0441 EXTERN int TclInThreadExit(void);
0442
0443 EXTERN int TclUniCharMatch(const Tcl_UniChar *string,
0444 int strLen, const Tcl_UniChar *pattern,
0445 int ptnLen, int flags);
0446
0447
0448 EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
0449 Var *varPtr, const char *part1,
0450 const char *part2, int flags,
0451 int leaveErrMsg);
0452
0453 EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr);
0454
0455 EXTERN void TclVarErrMsg(Tcl_Interp *interp, const char *part1,
0456 const char *part2, const char *operation,
0457 const char *reason);
0458
0459 EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr,
0460 const char *encodingName);
0461
0462 EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingNamePtr);
0463
0464
0465
0466 EXTERN struct tm * TclpLocaltime(const time_t *clock);
0467
0468 EXTERN struct tm * TclpGmtime(const time_t *clock);
0469
0470
0471
0472
0473
0474
0475
0476
0477
0478
0479
0480
0481
0482
0483
0484 EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
0485 CallFrame **framePtrPtr);
0486
0487
0488 EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
0489 int recursive, Tcl_Obj **errorPtr);
0490
0491 EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
0492 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
0493
0494 EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr);
0495
0496 EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr);
0497
0498 EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr,
0499 Tcl_Obj *destPathPtr);
0500
0501 EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr,
0502 Tcl_Obj *destPathPtr);
0503
0504 EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
0505
0506 EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode);
0507
0508 EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp,
0509 Tcl_Obj *pathPtr, int mode, int permissions);
0510
0511
0512
0513
0514 EXTERN void TclpFindExecutable(const char *argv0);
0515
0516 EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void);
0517
0518 EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name,
0519 Tcl_Encoding encoding);
0520
0521 EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes);
0522
0523 EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr);
0524
0525 EXTERN int TclPushStackFrame(Tcl_Interp *interp,
0526 Tcl_CallFrame **framePtrPtr,
0527 Tcl_Namespace *namespacePtr,
0528 int isProcCallFrame);
0529
0530 EXTERN void TclPopStackFrame(Tcl_Interp *interp);
0531
0532
0533
0534
0535
0536
0537 EXTERN TclPlatformType * TclGetPlatform(void);
0538
0539 EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp,
0540 Tcl_Obj *rootPtr, int keyc,
0541 Tcl_Obj *const keyv[], int flags);
0542
0543 EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr);
0544
0545 EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength,
0546 Tcl_Namespace *pathAry[]);
0547
0548
0549 EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
0550 const char *myName, int myFlags, int index);
0551
0552 EXTERN Var * TclObjLookupVar(Tcl_Interp *interp,
0553 Tcl_Obj *part1Ptr, const char *part2,
0554 int flags, const char *msg,
0555 const int createPart1, const int createPart2,
0556 Var **arrayPtrPtr);
0557
0558 EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp,
0559 Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
0560
0561 EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
0562 int flags, const CmdFrame *invoker, int word);
0563
0564 EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr);
0565
0566 EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr,
0567 const char *key, int *newPtr);
0568
0569 EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr,
0570 Namespace *nsPtr);
0571
0572 EXTERN void TclBackgroundException(Tcl_Interp *interp, int code);
0573
0574 EXTERN int TclResetCancellation(Tcl_Interp *interp, int force);
0575
0576 EXTERN int TclNRInterpProc(ClientData clientData,
0577 Tcl_Interp *interp, int objc,
0578 Tcl_Obj *const objv[]);
0579
0580 EXTERN int TclNRInterpProcCore(Tcl_Interp *interp,
0581 Tcl_Obj *procNameObj, int skip,
0582 ProcErrorProc *errorProc);
0583
0584 EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result,
0585 struct NRE_callback *rootPtr);
0586
0587 EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
0588 int flags, const CmdFrame *invoker, int word);
0589
0590 EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc,
0591 Tcl_Obj *const objv[], int flags,
0592 Command *cmdPtr);
0593
0594 EXTERN void TclDbDumpActiveObjects(FILE *outFile);
0595
0596 EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr);
0597
0598 EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr);
0599
0600 EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp,
0601 int numRemoved, int numInserted,
0602 Tcl_Obj *const *objv);
0603
0604 EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp,
0605 int isRootEnsemble);
0606
0607 EXTERN int TclCopyChannel(Tcl_Interp *interp,
0608 Tcl_Channel inChan, Tcl_Channel outChan,
0609 Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
0610
0611 EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags,
0612 int *decpt, int *signum, char **endPtr);
0613
0614 EXTERN void TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags,
0615 int force);
0616
0617 EXTERN int TclRegisterLiteral(void *envPtr, char *bytes,
0618 int length, int flags);
0619
0620 EXTERN Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr,
0621 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
0622 Tcl_Obj *part2Ptr, const int flags);
0623
0624 EXTERN Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr,
0625 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
0626 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
0627 const int flags);
0628
0629 EXTERN Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr,
0630 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
0631 Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr,
0632 const int flags);
0633
0634 EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp,
0635 Tcl_Var otherPtr, Tcl_Obj *myNamePtr,
0636 int myFlags);
0637
0638 EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr,
0639 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
0640 Tcl_Obj *part2Ptr, const int flags);
0641
0642 EXTERN void TclStaticPackage(Tcl_Interp *interp,
0643 const char *prefix,
0644 Tcl_PackageInitProc *initProc,
0645 Tcl_PackageInitProc *safeInitProc);
0646
0647
0648
0649 EXTERN void TclUnusedStubEntry(void);
0650
0651 typedef struct TclIntStubs {
0652 int magic;
0653 void *hooks;
0654
0655 void (*reserved0)(void);
0656 void (*reserved1)(void);
0657 void (*reserved2)(void);
0658 void (*tclAllocateFreeObjects) (void);
0659 void (*reserved4)(void);
0660 int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan);
0661 void (*tclCleanupCommand) (Command *cmdPtr);
0662 int (*tclCopyAndCollapse) (int count, const char *src, char *dst);
0663 int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr);
0664 int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr);
0665 int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr);
0666 void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr);
0667 void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr);
0668 void (*reserved13)(void);
0669 int (*tclDumpMemoryInfo) (ClientData clientData, int flags);
0670 void (*reserved15)(void);
0671 void (*tclExprFloatError) (Tcl_Interp *interp, double value);
0672 void (*reserved17)(void);
0673 void (*reserved18)(void);
0674 void (*reserved19)(void);
0675 void (*reserved20)(void);
0676 void (*reserved21)(void);
0677 int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr);
0678 Proc * (*tclFindProc) (Interp *iPtr, const char *procName);
0679 int (*tclFormatInt) (char *buffer, long n);
0680 void (*tclFreePackageInfo) (Interp *iPtr);
0681 void (*reserved26)(void);
0682 void (*reserved27)(void);
0683 Tcl_Channel (*tclpGetDefaultStdChannel) (int type);
0684 void (*reserved29)(void);
0685 void (*reserved30)(void);
0686 const char * (*tclGetExtension) (const char *name);
0687 int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr);
0688 void (*reserved33)(void);
0689 int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr);
0690 void (*reserved35)(void);
0691 void (*reserved36)(void);
0692 int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName);
0693 int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr);
0694 TclObjCmdProcType (*tclGetObjInterpProc) (void);
0695 int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr);
0696 Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command);
0697 CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr);
0698 void (*reserved43)(void);
0699 int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr);
0700 int (*tclHideUnsafeCommands) (Tcl_Interp *interp);
0701 int (*tclInExit) (void);
0702 void (*reserved47)(void);
0703 void (*reserved48)(void);
0704 void (*reserved49)(void);
0705 void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr);
0706 int (*tclInterpInit) (Tcl_Interp *interp);
0707 void (*reserved52)(void);
0708 int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv);
0709 int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
0710 Proc * (*tclIsProc) (Command *cmdPtr);
0711 void (*reserved56)(void);
0712 void (*reserved57)(void);
0713 Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr);
0714 void (*reserved59)(void);
0715 int (*tclNeedSpace) (const char *start, const char *end);
0716 Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr);
0717 int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr);
0718 int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
0719 int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags);
0720 void (*reserved65)(void);
0721 void (*reserved66)(void);
0722 void (*reserved67)(void);
0723 void (*reserved68)(void);
0724 char * (*tclpAlloc) (unsigned int size);
0725 void (*reserved70)(void);
0726 void (*reserved71)(void);
0727 void (*reserved72)(void);
0728 void (*reserved73)(void);
0729 void (*tclpFree) (char *ptr);
0730 unsigned long (*tclpGetClicks) (void);
0731 unsigned long (*tclpGetSeconds) (void);
0732 void (*tclpGetTime) (Tcl_Time *time);
0733 void (*reserved78)(void);
0734 void (*reserved79)(void);
0735 void (*reserved80)(void);
0736 char * (*tclpRealloc) (char *ptr, unsigned int size);
0737 void (*reserved82)(void);
0738 void (*reserved83)(void);
0739 void (*reserved84)(void);
0740 void (*reserved85)(void);
0741 void (*reserved86)(void);
0742 void (*reserved87)(void);
0743 char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags);
0744 int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd);
0745 void (*reserved90)(void);
0746 void (*tclProcCleanupProc) (Proc *procPtr);
0747 int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName);
0748 void (*tclProcDeleteProc) (ClientData clientData);
0749 void (*reserved94)(void);
0750 void (*reserved95)(void);
0751 int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName);
0752 void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr);
0753 int (*tclServiceIdle) (void);
0754 void (*reserved99)(void);
0755 void (*reserved100)(void);
0756 CONST86 char * (*tclSetPreInitScript) (const char *string);
0757 void (*tclSetupEnv) (Tcl_Interp *interp);
0758 int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr);
0759 int (*tclSockMinimumBuffersOld) (int sock, int size);
0760 void (*reserved105)(void);
0761 void (*reserved106)(void);
0762 void (*reserved107)(void);
0763 void (*tclTeardownNamespace) (Namespace *nsPtr);
0764 int (*tclUpdateReturnInfo) (Interp *iPtr);
0765 int (*tclSockMinimumBuffers) (void *sock, int size);
0766 void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc);
0767 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
0768 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc);
0769 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr);
0770 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst);
0771 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags);
0772 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags);
0773 int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo);
0774 int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo);
0775 Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags);
0776 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern);
0777 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr);
0778 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr);
0779 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp);
0780 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp);
0781 void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr);
0782 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite);
0783 void (*tcl_PopCallFrame) (Tcl_Interp *interp);
0784 int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame);
0785 int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name);
0786 void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc);
0787 int (*tclpHasSockets) (Tcl_Interp *interp);
0788 struct tm * (*tclpGetDate) (const time_t *time, int useGMT);
0789 void (*reserved134)(void);
0790 void (*reserved135)(void);
0791 void (*reserved136)(void);
0792 void (*reserved137)(void);
0793 CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr);
0794 void (*reserved139)(void);
0795 void (*reserved140)(void);
0796 CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr);
0797 int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData);
0798 int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
0799 void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index);
0800 const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName);
0801 TclHandle (*tclHandleCreate) (void *ptr);
0802 void (*tclHandleFree) (TclHandle handle);
0803 TclHandle (*tclHandlePreserve) (TclHandle handle);
0804 void (*tclHandleRelease) (TclHandle handle);
0805 int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re);
0806 void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr);
0807 void (*tclSetLibraryPath) (Tcl_Obj *pathPtr);
0808 Tcl_Obj * (*tclGetLibraryPath) (void);
0809 void (*reserved154)(void);
0810 void (*reserved155)(void);
0811 void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status);
0812 Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName);
0813 void (*tclSetStartupScriptFileName) (const char *filename);
0814 const char * (*tclGetStartupScriptFileName) (void);
0815 void (*reserved160)(void);
0816 int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
0817 void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags);
0818 const void * (*tclGetInstructionTable) (void);
0819 void (*tclExpandCodeArray) (void *envPtr);
0820 void (*tclpSetInitialEncodings) (void);
0821 int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr);
0822 void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr);
0823 Tcl_Obj * (*tclGetStartupScriptPath) (void);
0824 int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n);
0825 int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]);
0826 int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]);
0827 int (*tclInThreadExit) (void);
0828 int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags);
0829 void (*reserved174)(void);
0830 int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg);
0831 void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr);
0832 void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason);
0833 void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName);
0834 Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr);
0835 void (*reserved180)(void);
0836 void (*reserved181)(void);
0837 struct tm * (*tclpLocaltime) (const time_t *clock);
0838 struct tm * (*tclpGmtime) (const time_t *clock);
0839 void (*reserved184)(void);
0840 void (*reserved185)(void);
0841 void (*reserved186)(void);
0842 void (*reserved187)(void);
0843 void (*reserved188)(void);
0844 void (*reserved189)(void);
0845 void (*reserved190)(void);
0846 void (*reserved191)(void);
0847 void (*reserved192)(void);
0848 void (*reserved193)(void);
0849 void (*reserved194)(void);
0850 void (*reserved195)(void);
0851 void (*reserved196)(void);
0852 void (*reserved197)(void);
0853 int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr);
0854 void (*reserved199)(void);
0855 int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr);
0856 int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
0857 int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr);
0858 int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr);
0859 int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr);
0860 int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr);
0861 int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
0862 int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode);
0863 Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions);
0864 void (*reserved209)(void);
0865 void (*reserved210)(void);
0866 void (*reserved211)(void);
0867 void (*tclpFindExecutable) (const char *argv0);
0868 Tcl_Obj * (*tclGetObjNameOfExecutable) (void);
0869 void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding);
0870 void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes);
0871 void (*tclStackFree) (Tcl_Interp *interp, void *freePtr);
0872 int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame);
0873 void (*tclPopStackFrame) (Tcl_Interp *interp);
0874 void (*reserved219)(void);
0875 void (*reserved220)(void);
0876 void (*reserved221)(void);
0877 void (*reserved222)(void);
0878 void (*reserved223)(void);
0879 TclPlatformType * (*tclGetPlatform) (void);
0880 Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags);
0881 int (*tclObjBeingDeleted) (Tcl_Obj *objPtr);
0882 void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]);
0883 void (*reserved228)(void);
0884 int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index);
0885 Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, const char *part2, int flags, const char *msg, const int createPart1, const int createPart2, Var **arrayPtrPtr);
0886 int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
0887 int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word);
0888 void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr);
0889 Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr);
0890 void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr);
0891 void (*tclBackgroundException) (Tcl_Interp *interp, int code);
0892 int (*tclResetCancellation) (Tcl_Interp *interp, int force);
0893 int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
0894 int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc);
0895 int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr);
0896 int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word);
0897 int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr);
0898 void (*tclDbDumpActiveObjects) (FILE *outFile);
0899 Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr);
0900 Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr);
0901 int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv);
0902 void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble);
0903 int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
0904 char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr);
0905 void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force);
0906 int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags);
0907 Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags);
0908 Tcl_Obj * (*tclPtrSetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags);
0909 Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags);
0910 int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags);
0911 int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags);
0912 void (*tclStaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc);
0913 void (*reserved258)(void);
0914 void (*reserved259)(void);
0915 void (*tclUnusedStubEntry) (void);
0916 } TclIntStubs;
0917
0918 extern const TclIntStubs *tclIntStubsPtr;
0919
0920 #ifdef __cplusplus
0921 }
0922 #endif
0923
0924 #if defined(USE_TCL_STUBS)
0925
0926
0927
0928
0929
0930
0931
0932
0933 #define TclAllocateFreeObjects \
0934 (tclIntStubsPtr->tclAllocateFreeObjects)
0935
0936 #define TclCleanupChildren \
0937 (tclIntStubsPtr->tclCleanupChildren)
0938 #define TclCleanupCommand \
0939 (tclIntStubsPtr->tclCleanupCommand)
0940 #define TclCopyAndCollapse \
0941 (tclIntStubsPtr->tclCopyAndCollapse)
0942 #define TclCopyChannelOld \
0943 (tclIntStubsPtr->tclCopyChannelOld)
0944 #define TclCreatePipeline \
0945 (tclIntStubsPtr->tclCreatePipeline)
0946 #define TclCreateProc \
0947 (tclIntStubsPtr->tclCreateProc)
0948 #define TclDeleteCompiledLocalVars \
0949 (tclIntStubsPtr->tclDeleteCompiledLocalVars)
0950 #define TclDeleteVars \
0951 (tclIntStubsPtr->tclDeleteVars)
0952
0953 #define TclDumpMemoryInfo \
0954 (tclIntStubsPtr->tclDumpMemoryInfo)
0955
0956 #define TclExprFloatError \
0957 (tclIntStubsPtr->tclExprFloatError)
0958
0959
0960
0961
0962
0963 #define TclFindElement \
0964 (tclIntStubsPtr->tclFindElement)
0965 #define TclFindProc \
0966 (tclIntStubsPtr->tclFindProc)
0967 #define TclFormatInt \
0968 (tclIntStubsPtr->tclFormatInt)
0969 #define TclFreePackageInfo \
0970 (tclIntStubsPtr->tclFreePackageInfo)
0971
0972
0973 #define TclpGetDefaultStdChannel \
0974 (tclIntStubsPtr->tclpGetDefaultStdChannel)
0975
0976
0977 #define TclGetExtension \
0978 (tclIntStubsPtr->tclGetExtension)
0979 #define TclGetFrame \
0980 (tclIntStubsPtr->tclGetFrame)
0981
0982 #define TclGetIntForIndex \
0983 (tclIntStubsPtr->tclGetIntForIndex)
0984
0985
0986 #define TclGetLoadedPackages \
0987 (tclIntStubsPtr->tclGetLoadedPackages)
0988 #define TclGetNamespaceForQualName \
0989 (tclIntStubsPtr->tclGetNamespaceForQualName)
0990 #define TclGetObjInterpProc \
0991 (tclIntStubsPtr->tclGetObjInterpProc)
0992 #define TclGetOpenMode \
0993 (tclIntStubsPtr->tclGetOpenMode)
0994 #define TclGetOriginalCommand \
0995 (tclIntStubsPtr->tclGetOriginalCommand)
0996 #define TclpGetUserHome \
0997 (tclIntStubsPtr->tclpGetUserHome)
0998
0999 #define TclGuessPackageName \
1000 (tclIntStubsPtr->tclGuessPackageName)
1001 #define TclHideUnsafeCommands \
1002 (tclIntStubsPtr->tclHideUnsafeCommands)
1003 #define TclInExit \
1004 (tclIntStubsPtr->tclInExit)
1005
1006
1007
1008 #define TclInitCompiledLocals \
1009 (tclIntStubsPtr->tclInitCompiledLocals)
1010 #define TclInterpInit \
1011 (tclIntStubsPtr->tclInterpInit)
1012
1013 #define TclInvokeObjectCommand \
1014 (tclIntStubsPtr->tclInvokeObjectCommand)
1015 #define TclInvokeStringCommand \
1016 (tclIntStubsPtr->tclInvokeStringCommand)
1017 #define TclIsProc \
1018 (tclIntStubsPtr->tclIsProc)
1019
1020
1021 #define TclLookupVar \
1022 (tclIntStubsPtr->tclLookupVar)
1023
1024 #define TclNeedSpace \
1025 (tclIntStubsPtr->tclNeedSpace)
1026 #define TclNewProcBodyObj \
1027 (tclIntStubsPtr->tclNewProcBodyObj)
1028 #define TclObjCommandComplete \
1029 (tclIntStubsPtr->tclObjCommandComplete)
1030 #define TclObjInterpProc \
1031 (tclIntStubsPtr->tclObjInterpProc)
1032 #define TclObjInvoke \
1033 (tclIntStubsPtr->tclObjInvoke)
1034
1035
1036
1037
1038 #define TclpAlloc \
1039 (tclIntStubsPtr->tclpAlloc)
1040
1041
1042
1043
1044 #define TclpFree \
1045 (tclIntStubsPtr->tclpFree)
1046 #define TclpGetClicks \
1047 (tclIntStubsPtr->tclpGetClicks)
1048 #define TclpGetSeconds \
1049 (tclIntStubsPtr->tclpGetSeconds)
1050 #define TclpGetTime \
1051 (tclIntStubsPtr->tclpGetTime)
1052
1053
1054
1055 #define TclpRealloc \
1056 (tclIntStubsPtr->tclpRealloc)
1057
1058
1059
1060
1061
1062
1063 #define TclPrecTraceProc \
1064 (tclIntStubsPtr->tclPrecTraceProc)
1065 #define TclPreventAliasLoop \
1066 (tclIntStubsPtr->tclPreventAliasLoop)
1067
1068 #define TclProcCleanupProc \
1069 (tclIntStubsPtr->tclProcCleanupProc)
1070 #define TclProcCompileProc \
1071 (tclIntStubsPtr->tclProcCompileProc)
1072 #define TclProcDeleteProc \
1073 (tclIntStubsPtr->tclProcDeleteProc)
1074
1075
1076 #define TclRenameCommand \
1077 (tclIntStubsPtr->tclRenameCommand)
1078 #define TclResetShadowedCmdRefs \
1079 (tclIntStubsPtr->tclResetShadowedCmdRefs)
1080 #define TclServiceIdle \
1081 (tclIntStubsPtr->tclServiceIdle)
1082
1083
1084 #define TclSetPreInitScript \
1085 (tclIntStubsPtr->tclSetPreInitScript)
1086 #define TclSetupEnv \
1087 (tclIntStubsPtr->tclSetupEnv)
1088 #define TclSockGetPort \
1089 (tclIntStubsPtr->tclSockGetPort)
1090 #define TclSockMinimumBuffersOld \
1091 (tclIntStubsPtr->tclSockMinimumBuffersOld)
1092
1093
1094
1095 #define TclTeardownNamespace \
1096 (tclIntStubsPtr->tclTeardownNamespace)
1097 #define TclUpdateReturnInfo \
1098 (tclIntStubsPtr->tclUpdateReturnInfo)
1099 #define TclSockMinimumBuffers \
1100 (tclIntStubsPtr->tclSockMinimumBuffers)
1101 #define Tcl_AddInterpResolvers \
1102 (tclIntStubsPtr->tcl_AddInterpResolvers)
1103 #define Tcl_AppendExportList \
1104 (tclIntStubsPtr->tcl_AppendExportList)
1105 #define Tcl_CreateNamespace \
1106 (tclIntStubsPtr->tcl_CreateNamespace)
1107 #define Tcl_DeleteNamespace \
1108 (tclIntStubsPtr->tcl_DeleteNamespace)
1109 #define Tcl_Export \
1110 (tclIntStubsPtr->tcl_Export)
1111 #define Tcl_FindCommand \
1112 (tclIntStubsPtr->tcl_FindCommand)
1113 #define Tcl_FindNamespace \
1114 (tclIntStubsPtr->tcl_FindNamespace)
1115 #define Tcl_GetInterpResolvers \
1116 (tclIntStubsPtr->tcl_GetInterpResolvers)
1117 #define Tcl_GetNamespaceResolvers \
1118 (tclIntStubsPtr->tcl_GetNamespaceResolvers)
1119 #define Tcl_FindNamespaceVar \
1120 (tclIntStubsPtr->tcl_FindNamespaceVar)
1121 #define Tcl_ForgetImport \
1122 (tclIntStubsPtr->tcl_ForgetImport)
1123 #define Tcl_GetCommandFromObj \
1124 (tclIntStubsPtr->tcl_GetCommandFromObj)
1125 #define Tcl_GetCommandFullName \
1126 (tclIntStubsPtr->tcl_GetCommandFullName)
1127 #define Tcl_GetCurrentNamespace \
1128 (tclIntStubsPtr->tcl_GetCurrentNamespace)
1129 #define Tcl_GetGlobalNamespace \
1130 (tclIntStubsPtr->tcl_GetGlobalNamespace)
1131 #define Tcl_GetVariableFullName \
1132 (tclIntStubsPtr->tcl_GetVariableFullName)
1133 #define Tcl_Import \
1134 (tclIntStubsPtr->tcl_Import)
1135 #define Tcl_PopCallFrame \
1136 (tclIntStubsPtr->tcl_PopCallFrame)
1137 #define Tcl_PushCallFrame \
1138 (tclIntStubsPtr->tcl_PushCallFrame)
1139 #define Tcl_RemoveInterpResolvers \
1140 (tclIntStubsPtr->tcl_RemoveInterpResolvers)
1141 #define Tcl_SetNamespaceResolvers \
1142 (tclIntStubsPtr->tcl_SetNamespaceResolvers)
1143 #define TclpHasSockets \
1144 (tclIntStubsPtr->tclpHasSockets)
1145 #define TclpGetDate \
1146 (tclIntStubsPtr->tclpGetDate)
1147
1148
1149
1150
1151 #define TclGetEnv \
1152 (tclIntStubsPtr->tclGetEnv)
1153
1154
1155 #define TclpGetCwd \
1156 (tclIntStubsPtr->tclpGetCwd)
1157 #define TclSetByteCodeFromAny \
1158 (tclIntStubsPtr->tclSetByteCodeFromAny)
1159 #define TclAddLiteralObj \
1160 (tclIntStubsPtr->tclAddLiteralObj)
1161 #define TclHideLiteral \
1162 (tclIntStubsPtr->tclHideLiteral)
1163 #define TclGetAuxDataType \
1164 (tclIntStubsPtr->tclGetAuxDataType)
1165 #define TclHandleCreate \
1166 (tclIntStubsPtr->tclHandleCreate)
1167 #define TclHandleFree \
1168 (tclIntStubsPtr->tclHandleFree)
1169 #define TclHandlePreserve \
1170 (tclIntStubsPtr->tclHandlePreserve)
1171 #define TclHandleRelease \
1172 (tclIntStubsPtr->tclHandleRelease)
1173 #define TclRegAbout \
1174 (tclIntStubsPtr->tclRegAbout)
1175 #define TclRegExpRangeUniChar \
1176 (tclIntStubsPtr->tclRegExpRangeUniChar)
1177 #define TclSetLibraryPath \
1178 (tclIntStubsPtr->tclSetLibraryPath)
1179 #define TclGetLibraryPath \
1180 (tclIntStubsPtr->tclGetLibraryPath)
1181
1182
1183 #define TclRegError \
1184 (tclIntStubsPtr->tclRegError)
1185 #define TclVarTraceExists \
1186 (tclIntStubsPtr->tclVarTraceExists)
1187 #define TclSetStartupScriptFileName \
1188 (tclIntStubsPtr->tclSetStartupScriptFileName)
1189 #define TclGetStartupScriptFileName \
1190 (tclIntStubsPtr->tclGetStartupScriptFileName)
1191
1192 #define TclChannelTransform \
1193 (tclIntStubsPtr->tclChannelTransform)
1194 #define TclChannelEventScriptInvoker \
1195 (tclIntStubsPtr->tclChannelEventScriptInvoker)
1196 #define TclGetInstructionTable \
1197 (tclIntStubsPtr->tclGetInstructionTable)
1198 #define TclExpandCodeArray \
1199 (tclIntStubsPtr->tclExpandCodeArray)
1200 #define TclpSetInitialEncodings \
1201 (tclIntStubsPtr->tclpSetInitialEncodings)
1202 #define TclListObjSetElement \
1203 (tclIntStubsPtr->tclListObjSetElement)
1204 #define TclSetStartupScriptPath \
1205 (tclIntStubsPtr->tclSetStartupScriptPath)
1206 #define TclGetStartupScriptPath \
1207 (tclIntStubsPtr->tclGetStartupScriptPath)
1208 #define TclpUtfNcmp2 \
1209 (tclIntStubsPtr->tclpUtfNcmp2)
1210 #define TclCheckInterpTraces \
1211 (tclIntStubsPtr->tclCheckInterpTraces)
1212 #define TclCheckExecutionTraces \
1213 (tclIntStubsPtr->tclCheckExecutionTraces)
1214 #define TclInThreadExit \
1215 (tclIntStubsPtr->tclInThreadExit)
1216 #define TclUniCharMatch \
1217 (tclIntStubsPtr->tclUniCharMatch)
1218
1219 #define TclCallVarTraces \
1220 (tclIntStubsPtr->tclCallVarTraces)
1221 #define TclCleanupVar \
1222 (tclIntStubsPtr->tclCleanupVar)
1223 #define TclVarErrMsg \
1224 (tclIntStubsPtr->tclVarErrMsg)
1225 #define Tcl_SetStartupScript \
1226 (tclIntStubsPtr->tcl_SetStartupScript)
1227 #define Tcl_GetStartupScript \
1228 (tclIntStubsPtr->tcl_GetStartupScript)
1229
1230
1231 #define TclpLocaltime \
1232 (tclIntStubsPtr->tclpLocaltime)
1233 #define TclpGmtime \
1234 (tclIntStubsPtr->tclpGmtime)
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249 #define TclObjGetFrame \
1250 (tclIntStubsPtr->tclObjGetFrame)
1251
1252 #define TclpObjRemoveDirectory \
1253 (tclIntStubsPtr->tclpObjRemoveDirectory)
1254 #define TclpObjCopyDirectory \
1255 (tclIntStubsPtr->tclpObjCopyDirectory)
1256 #define TclpObjCreateDirectory \
1257 (tclIntStubsPtr->tclpObjCreateDirectory)
1258 #define TclpObjDeleteFile \
1259 (tclIntStubsPtr->tclpObjDeleteFile)
1260 #define TclpObjCopyFile \
1261 (tclIntStubsPtr->tclpObjCopyFile)
1262 #define TclpObjRenameFile \
1263 (tclIntStubsPtr->tclpObjRenameFile)
1264 #define TclpObjStat \
1265 (tclIntStubsPtr->tclpObjStat)
1266 #define TclpObjAccess \
1267 (tclIntStubsPtr->tclpObjAccess)
1268 #define TclpOpenFileChannel \
1269 (tclIntStubsPtr->tclpOpenFileChannel)
1270
1271
1272
1273 #define TclpFindExecutable \
1274 (tclIntStubsPtr->tclpFindExecutable)
1275 #define TclGetObjNameOfExecutable \
1276 (tclIntStubsPtr->tclGetObjNameOfExecutable)
1277 #define TclSetObjNameOfExecutable \
1278 (tclIntStubsPtr->tclSetObjNameOfExecutable)
1279 #define TclStackAlloc \
1280 (tclIntStubsPtr->tclStackAlloc)
1281 #define TclStackFree \
1282 (tclIntStubsPtr->tclStackFree)
1283 #define TclPushStackFrame \
1284 (tclIntStubsPtr->tclPushStackFrame)
1285 #define TclPopStackFrame \
1286 (tclIntStubsPtr->tclPopStackFrame)
1287
1288
1289
1290
1291
1292 #define TclGetPlatform \
1293 (tclIntStubsPtr->tclGetPlatform)
1294 #define TclTraceDictPath \
1295 (tclIntStubsPtr->tclTraceDictPath)
1296 #define TclObjBeingDeleted \
1297 (tclIntStubsPtr->tclObjBeingDeleted)
1298 #define TclSetNsPath \
1299 (tclIntStubsPtr->tclSetNsPath)
1300
1301 #define TclPtrMakeUpvar \
1302 (tclIntStubsPtr->tclPtrMakeUpvar)
1303 #define TclObjLookupVar \
1304 (tclIntStubsPtr->tclObjLookupVar)
1305 #define TclGetNamespaceFromObj \
1306 (tclIntStubsPtr->tclGetNamespaceFromObj)
1307 #define TclEvalObjEx \
1308 (tclIntStubsPtr->tclEvalObjEx)
1309 #define TclGetSrcInfoForPc \
1310 (tclIntStubsPtr->tclGetSrcInfoForPc)
1311 #define TclVarHashCreateVar \
1312 (tclIntStubsPtr->tclVarHashCreateVar)
1313 #define TclInitVarHashTable \
1314 (tclIntStubsPtr->tclInitVarHashTable)
1315 #define TclBackgroundException \
1316 (tclIntStubsPtr->tclBackgroundException)
1317 #define TclResetCancellation \
1318 (tclIntStubsPtr->tclResetCancellation)
1319 #define TclNRInterpProc \
1320 (tclIntStubsPtr->tclNRInterpProc)
1321 #define TclNRInterpProcCore \
1322 (tclIntStubsPtr->tclNRInterpProcCore)
1323 #define TclNRRunCallbacks \
1324 (tclIntStubsPtr->tclNRRunCallbacks)
1325 #define TclNREvalObjEx \
1326 (tclIntStubsPtr->tclNREvalObjEx)
1327 #define TclNREvalObjv \
1328 (tclIntStubsPtr->tclNREvalObjv)
1329 #define TclDbDumpActiveObjects \
1330 (tclIntStubsPtr->tclDbDumpActiveObjects)
1331 #define TclGetNamespaceChildTable \
1332 (tclIntStubsPtr->tclGetNamespaceChildTable)
1333 #define TclGetNamespaceCommandTable \
1334 (tclIntStubsPtr->tclGetNamespaceCommandTable)
1335 #define TclInitRewriteEnsemble \
1336 (tclIntStubsPtr->tclInitRewriteEnsemble)
1337 #define TclResetRewriteEnsemble \
1338 (tclIntStubsPtr->tclResetRewriteEnsemble)
1339 #define TclCopyChannel \
1340 (tclIntStubsPtr->tclCopyChannel)
1341 #define TclDoubleDigits \
1342 (tclIntStubsPtr->tclDoubleDigits)
1343 #define TclSetSlaveCancelFlags \
1344 (tclIntStubsPtr->tclSetSlaveCancelFlags)
1345 #define TclRegisterLiteral \
1346 (tclIntStubsPtr->tclRegisterLiteral)
1347 #define TclPtrGetVar \
1348 (tclIntStubsPtr->tclPtrGetVar)
1349 #define TclPtrSetVar \
1350 (tclIntStubsPtr->tclPtrSetVar)
1351 #define TclPtrIncrObjVar \
1352 (tclIntStubsPtr->tclPtrIncrObjVar)
1353 #define TclPtrObjMakeUpvar \
1354 (tclIntStubsPtr->tclPtrObjMakeUpvar)
1355 #define TclPtrUnsetVar \
1356 (tclIntStubsPtr->tclPtrUnsetVar)
1357 #define TclStaticPackage \
1358 (tclIntStubsPtr->tclStaticPackage)
1359
1360
1361 #define TclUnusedStubEntry \
1362 (tclIntStubsPtr->tclUnusedStubEntry)
1363
1364 #endif
1365
1366
1367
1368 #undef TCL_STORAGE_CLASS
1369 #define TCL_STORAGE_CLASS DLLIMPORT
1370
1371 #undef TclGetStartupScriptFileName
1372 #undef TclSetStartupScriptFileName
1373 #undef TclGetStartupScriptPath
1374 #undef TclSetStartupScriptPath
1375 #undef TclBackgroundException
1376 #undef TclUnusedStubEntry
1377
1378 #if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED)
1379 # undef Tcl_SetStartupScript
1380 # define Tcl_SetStartupScript \
1381 (tclStubsPtr->tcl_SetStartupScript)
1382 # undef Tcl_GetStartupScript
1383 # define Tcl_GetStartupScript \
1384 (tclStubsPtr->tcl_GetStartupScript)
1385 # undef Tcl_CreateNamespace
1386 # define Tcl_CreateNamespace \
1387 (tclStubsPtr->tcl_CreateNamespace)
1388 # undef Tcl_DeleteNamespace
1389 # define Tcl_DeleteNamespace \
1390 (tclStubsPtr->tcl_DeleteNamespace)
1391 # undef Tcl_AppendExportList
1392 # define Tcl_AppendExportList \
1393 (tclStubsPtr->tcl_AppendExportList)
1394 # undef Tcl_Export
1395 # define Tcl_Export \
1396 (tclStubsPtr->tcl_Export)
1397 # undef Tcl_Import
1398 # define Tcl_Import \
1399 (tclStubsPtr->tcl_Import)
1400 # undef Tcl_ForgetImport
1401 # define Tcl_ForgetImport \
1402 (tclStubsPtr->tcl_ForgetImport)
1403 # undef Tcl_GetCurrentNamespace
1404 # define Tcl_GetCurrentNamespace \
1405 (tclStubsPtr->tcl_GetCurrentNamespace)
1406 # undef Tcl_GetGlobalNamespace
1407 # define Tcl_GetGlobalNamespace \
1408 (tclStubsPtr->tcl_GetGlobalNamespace)
1409 # undef Tcl_FindNamespace
1410 # define Tcl_FindNamespace \
1411 (tclStubsPtr->tcl_FindNamespace)
1412 # undef Tcl_FindCommand
1413 # define Tcl_FindCommand \
1414 (tclStubsPtr->tcl_FindCommand)
1415 # undef Tcl_GetCommandFromObj
1416 # define Tcl_GetCommandFromObj \
1417 (tclStubsPtr->tcl_GetCommandFromObj)
1418 # undef Tcl_GetCommandFullName
1419 # define Tcl_GetCommandFullName \
1420 (tclStubsPtr->tcl_GetCommandFullName)
1421 #endif
1422
1423 #undef TclCopyChannelOld
1424 #undef TclSockMinimumBuffersOld
1425
1426 #define TclSetChildCancelFlags TclSetSlaveCancelFlags
1427
1428 #endif