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