Back to home page

EIC code displayed by LXR
 
 

    

File indexing completed on 2024-05-18 08:30:19 

0001 /*
0002  * tclDecls.h --
0003  *
0004  *  Declarations of functions in the platform independent public Tcl API.
0005  *
0006  * Copyright (c) 1998-1999 by Scriptics Corporation.
0007  *
0008  * See the file "license.terms" for information on usage and redistribution
0009  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
0010  */
0011 
0012 #ifndef _TCLDECLS
0013 #define _TCLDECLS
0014 
0015 #undef TCL_STORAGE_CLASS
0016 #ifdef BUILD_tcl
0017 #   define TCL_STORAGE_CLASS DLLEXPORT
0018 #else
0019 #   ifdef USE_TCL_STUBS
0020 #      define TCL_STORAGE_CLASS
0021 #   else
0022 #      define TCL_STORAGE_CLASS DLLIMPORT
0023 #   endif
0024 #endif
0025 
0026 /*
0027  * WARNING: This file is automatically generated by the tools/genStubs.tcl
0028  * script.  Any modifications to the function declarations below should be made
0029  * in the generic/tcl.decls script.
0030  */
0031 
0032 /* !BEGIN!: Do not edit below this line. */
0033 
0034 #ifdef __cplusplus
0035 extern "C" {
0036 #endif
0037 
0038 /*
0039  * Exported function declarations:
0040  */
0041 
0042 /* 0 */
0043 EXTERN int      Tcl_PkgProvideEx(Tcl_Interp *interp,
0044                 const char *name, const char *version,
0045                 const void *clientData);
0046 /* 1 */
0047 EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
0048                 const char *name, const char *version,
0049                 int exact, void *clientDataPtr);
0050 /* 2 */
0051 EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
0052 /* 3 */
0053 EXTERN char *       Tcl_Alloc(unsigned int size);
0054 /* 4 */
0055 EXTERN void     Tcl_Free(char *ptr);
0056 /* 5 */
0057 EXTERN char *       Tcl_Realloc(char *ptr, unsigned int size);
0058 /* 6 */
0059 EXTERN char *       Tcl_DbCkalloc(unsigned int size, const char *file,
0060                 int line);
0061 /* 7 */
0062 EXTERN void     Tcl_DbCkfree(char *ptr, const char *file, int line);
0063 /* 8 */
0064 EXTERN char *       Tcl_DbCkrealloc(char *ptr, unsigned int size,
0065                 const char *file, int line);
0066 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
0067 /* 9 */
0068 EXTERN void     Tcl_CreateFileHandler(int fd, int mask,
0069                 Tcl_FileProc *proc, ClientData clientData);
0070 #endif /* UNIX */
0071 #ifdef MAC_OSX_TCL /* MACOSX */
0072 /* 9 */
0073 EXTERN void     Tcl_CreateFileHandler(int fd, int mask,
0074                 Tcl_FileProc *proc, ClientData clientData);
0075 #endif /* MACOSX */
0076 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
0077 /* 10 */
0078 EXTERN void     Tcl_DeleteFileHandler(int fd);
0079 #endif /* UNIX */
0080 #ifdef MAC_OSX_TCL /* MACOSX */
0081 /* 10 */
0082 EXTERN void     Tcl_DeleteFileHandler(int fd);
0083 #endif /* MACOSX */
0084 /* 11 */
0085 EXTERN void     Tcl_SetTimer(const Tcl_Time *timePtr);
0086 /* 12 */
0087 EXTERN void     Tcl_Sleep(int ms);
0088 /* 13 */
0089 EXTERN int      Tcl_WaitForEvent(const Tcl_Time *timePtr);
0090 /* 14 */
0091 EXTERN int      Tcl_AppendAllObjTypes(Tcl_Interp *interp,
0092                 Tcl_Obj *objPtr);
0093 /* 15 */
0094 EXTERN void     Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
0095 /* 16 */
0096 EXTERN void     Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
0097                 int length);
0098 /* 17 */
0099 EXTERN Tcl_Obj *    Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
0100 /* 18 */
0101 EXTERN int      Tcl_ConvertToType(Tcl_Interp *interp,
0102                 Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
0103 /* 19 */
0104 EXTERN void     Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
0105                 int line);
0106 /* 20 */
0107 EXTERN void     Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
0108                 int line);
0109 /* 21 */
0110 EXTERN int      Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
0111                 int line);
0112 /* 22 */
0113 EXTERN Tcl_Obj *    Tcl_DbNewBooleanObj(int boolValue, const char *file,
0114                 int line);
0115 /* 23 */
0116 EXTERN Tcl_Obj *    Tcl_DbNewByteArrayObj(const unsigned char *bytes,
0117                 int length, const char *file, int line);
0118 /* 24 */
0119 EXTERN Tcl_Obj *    Tcl_DbNewDoubleObj(double doubleValue,
0120                 const char *file, int line);
0121 /* 25 */
0122 EXTERN Tcl_Obj *    Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
0123                 const char *file, int line);
0124 /* 26 */
0125 EXTERN Tcl_Obj *    Tcl_DbNewLongObj(long longValue, const char *file,
0126                 int line);
0127 /* 27 */
0128 EXTERN Tcl_Obj *    Tcl_DbNewObj(const char *file, int line);
0129 /* 28 */
0130 EXTERN Tcl_Obj *    Tcl_DbNewStringObj(const char *bytes, int length,
0131                 const char *file, int line);
0132 /* 29 */
0133 EXTERN Tcl_Obj *    Tcl_DuplicateObj(Tcl_Obj *objPtr);
0134 /* 30 */
0135 EXTERN void     TclFreeObj(Tcl_Obj *objPtr);
0136 /* 31 */
0137 EXTERN int      Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
0138                 int *boolPtr);
0139 /* 32 */
0140 EXTERN int      Tcl_GetBooleanFromObj(Tcl_Interp *interp,
0141                 Tcl_Obj *objPtr, int *boolPtr);
0142 /* 33 */
0143 EXTERN unsigned char *  Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
0144                 int *lengthPtr);
0145 /* 34 */
0146 EXTERN int      Tcl_GetDouble(Tcl_Interp *interp, const char *src,
0147                 double *doublePtr);
0148 /* 35 */
0149 EXTERN int      Tcl_GetDoubleFromObj(Tcl_Interp *interp,
0150                 Tcl_Obj *objPtr, double *doublePtr);
0151 /* 36 */
0152 EXTERN int      Tcl_GetIndexFromObj(Tcl_Interp *interp,
0153                 Tcl_Obj *objPtr,
0154                 CONST84 char *const *tablePtr,
0155                 const char *msg, int flags, int *indexPtr);
0156 /* 37 */
0157 EXTERN int      Tcl_GetInt(Tcl_Interp *interp, const char *src,
0158                 int *intPtr);
0159 /* 38 */
0160 EXTERN int      Tcl_GetIntFromObj(Tcl_Interp *interp,
0161                 Tcl_Obj *objPtr, int *intPtr);
0162 /* 39 */
0163 EXTERN int      Tcl_GetLongFromObj(Tcl_Interp *interp,
0164                 Tcl_Obj *objPtr, long *longPtr);
0165 /* 40 */
0166 EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
0167 /* 41 */
0168 EXTERN char *       Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr);
0169 /* 42 */
0170 EXTERN void     Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
0171 /* 43 */
0172 EXTERN int      Tcl_ListObjAppendList(Tcl_Interp *interp,
0173                 Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
0174 /* 44 */
0175 EXTERN int      Tcl_ListObjAppendElement(Tcl_Interp *interp,
0176                 Tcl_Obj *listPtr, Tcl_Obj *objPtr);
0177 /* 45 */
0178 EXTERN int      Tcl_ListObjGetElements(Tcl_Interp *interp,
0179                 Tcl_Obj *listPtr, int *objcPtr,
0180                 Tcl_Obj ***objvPtr);
0181 /* 46 */
0182 EXTERN int      Tcl_ListObjIndex(Tcl_Interp *interp,
0183                 Tcl_Obj *listPtr, int index,
0184                 Tcl_Obj **objPtrPtr);
0185 /* 47 */
0186 EXTERN int      Tcl_ListObjLength(Tcl_Interp *interp,
0187                 Tcl_Obj *listPtr, int *lengthPtr);
0188 /* 48 */
0189 EXTERN int      Tcl_ListObjReplace(Tcl_Interp *interp,
0190                 Tcl_Obj *listPtr, int first, int count,
0191                 int objc, Tcl_Obj *const objv[]);
0192 /* 49 */
0193 EXTERN Tcl_Obj *    Tcl_NewBooleanObj(int boolValue);
0194 /* 50 */
0195 EXTERN Tcl_Obj *    Tcl_NewByteArrayObj(const unsigned char *bytes,
0196                 int length);
0197 /* 51 */
0198 EXTERN Tcl_Obj *    Tcl_NewDoubleObj(double doubleValue);
0199 /* 52 */
0200 EXTERN Tcl_Obj *    Tcl_NewIntObj(int intValue);
0201 /* 53 */
0202 EXTERN Tcl_Obj *    Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
0203 /* 54 */
0204 EXTERN Tcl_Obj *    Tcl_NewLongObj(long longValue);
0205 /* 55 */
0206 EXTERN Tcl_Obj *    Tcl_NewObj(void);
0207 /* 56 */
0208 EXTERN Tcl_Obj *    Tcl_NewStringObj(const char *bytes, int length);
0209 /* 57 */
0210 EXTERN void     Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue);
0211 /* 58 */
0212 EXTERN unsigned char *  Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length);
0213 /* 59 */
0214 EXTERN void     Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
0215                 const unsigned char *bytes, int length);
0216 /* 60 */
0217 EXTERN void     Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
0218 /* 61 */
0219 EXTERN void     Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
0220 /* 62 */
0221 EXTERN void     Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
0222                 Tcl_Obj *const objv[]);
0223 /* 63 */
0224 EXTERN void     Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
0225 /* 64 */
0226 EXTERN void     Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
0227 /* 65 */
0228 EXTERN void     Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
0229                 int length);
0230 /* 66 */
0231 EXTERN void     Tcl_AddErrorInfo(Tcl_Interp *interp,
0232                 const char *message);
0233 /* 67 */
0234 EXTERN void     Tcl_AddObjErrorInfo(Tcl_Interp *interp,
0235                 const char *message, int length);
0236 /* 68 */
0237 EXTERN void     Tcl_AllowExceptions(Tcl_Interp *interp);
0238 /* 69 */
0239 EXTERN void     Tcl_AppendElement(Tcl_Interp *interp,
0240                 const char *element);
0241 /* 70 */
0242 EXTERN void     Tcl_AppendResult(Tcl_Interp *interp, ...);
0243 /* 71 */
0244 EXTERN Tcl_AsyncHandler  Tcl_AsyncCreate(Tcl_AsyncProc *proc,
0245                 ClientData clientData);
0246 /* 72 */
0247 EXTERN void     Tcl_AsyncDelete(Tcl_AsyncHandler async);
0248 /* 73 */
0249 EXTERN int      Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
0250 /* 74 */
0251 EXTERN void     Tcl_AsyncMark(Tcl_AsyncHandler async);
0252 /* 75 */
0253 EXTERN int      Tcl_AsyncReady(void);
0254 /* 76 */
0255 EXTERN void     Tcl_BackgroundError(Tcl_Interp *interp);
0256 /* 77 */
0257 EXTERN char     Tcl_Backslash(const char *src, int *readPtr);
0258 /* 78 */
0259 EXTERN int      Tcl_BadChannelOption(Tcl_Interp *interp,
0260                 const char *optionName,
0261                 const char *optionList);
0262 /* 79 */
0263 EXTERN void     Tcl_CallWhenDeleted(Tcl_Interp *interp,
0264                 Tcl_InterpDeleteProc *proc,
0265                 ClientData clientData);
0266 /* 80 */
0267 EXTERN void     Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
0268                 ClientData clientData);
0269 /* 81 */
0270 EXTERN int      Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
0271 /* 82 */
0272 EXTERN int      Tcl_CommandComplete(const char *cmd);
0273 /* 83 */
0274 EXTERN char *       Tcl_Concat(int argc, CONST84 char *const *argv);
0275 /* 84 */
0276 EXTERN int      Tcl_ConvertElement(const char *src, char *dst,
0277                 int flags);
0278 /* 85 */
0279 EXTERN int      Tcl_ConvertCountedElement(const char *src,
0280                 int length, char *dst, int flags);
0281 /* 86 */
0282 EXTERN int      Tcl_CreateAlias(Tcl_Interp *childInterp,
0283                 const char *childCmd, Tcl_Interp *target,
0284                 const char *targetCmd, int argc,
0285                 CONST84 char *const *argv);
0286 /* 87 */
0287 EXTERN int      Tcl_CreateAliasObj(Tcl_Interp *childInterp,
0288                 const char *childCmd, Tcl_Interp *target,
0289                 const char *targetCmd, int objc,
0290                 Tcl_Obj *const objv[]);
0291 /* 88 */
0292 EXTERN Tcl_Channel  Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
0293                 const char *chanName,
0294                 ClientData instanceData, int mask);
0295 /* 89 */
0296 EXTERN void     Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
0297                 Tcl_ChannelProc *proc, ClientData clientData);
0298 /* 90 */
0299 EXTERN void     Tcl_CreateCloseHandler(Tcl_Channel chan,
0300                 Tcl_CloseProc *proc, ClientData clientData);
0301 /* 91 */
0302 EXTERN Tcl_Command  Tcl_CreateCommand(Tcl_Interp *interp,
0303                 const char *cmdName, Tcl_CmdProc *proc,
0304                 ClientData clientData,
0305                 Tcl_CmdDeleteProc *deleteProc);
0306 /* 92 */
0307 EXTERN void     Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
0308                 Tcl_EventCheckProc *checkProc,
0309                 ClientData clientData);
0310 /* 93 */
0311 EXTERN void     Tcl_CreateExitHandler(Tcl_ExitProc *proc,
0312                 ClientData clientData);
0313 /* 94 */
0314 EXTERN Tcl_Interp * Tcl_CreateInterp(void);
0315 /* 95 */
0316 EXTERN void     Tcl_CreateMathFunc(Tcl_Interp *interp,
0317                 const char *name, int numArgs,
0318                 Tcl_ValueType *argTypes, Tcl_MathProc *proc,
0319                 ClientData clientData);
0320 /* 96 */
0321 EXTERN Tcl_Command  Tcl_CreateObjCommand(Tcl_Interp *interp,
0322                 const char *cmdName, Tcl_ObjCmdProc *proc,
0323                 ClientData clientData,
0324                 Tcl_CmdDeleteProc *deleteProc);
0325 /* 97 */
0326 EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, const char *name,
0327                 int isSafe);
0328 /* 98 */
0329 EXTERN Tcl_TimerToken   Tcl_CreateTimerHandler(int milliseconds,
0330                 Tcl_TimerProc *proc, ClientData clientData);
0331 /* 99 */
0332 EXTERN Tcl_Trace    Tcl_CreateTrace(Tcl_Interp *interp, int level,
0333                 Tcl_CmdTraceProc *proc,
0334                 ClientData clientData);
0335 /* 100 */
0336 EXTERN void     Tcl_DeleteAssocData(Tcl_Interp *interp,
0337                 const char *name);
0338 /* 101 */
0339 EXTERN void     Tcl_DeleteChannelHandler(Tcl_Channel chan,
0340                 Tcl_ChannelProc *proc, ClientData clientData);
0341 /* 102 */
0342 EXTERN void     Tcl_DeleteCloseHandler(Tcl_Channel chan,
0343                 Tcl_CloseProc *proc, ClientData clientData);
0344 /* 103 */
0345 EXTERN int      Tcl_DeleteCommand(Tcl_Interp *interp,
0346                 const char *cmdName);
0347 /* 104 */
0348 EXTERN int      Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
0349                 Tcl_Command command);
0350 /* 105 */
0351 EXTERN void     Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
0352                 ClientData clientData);
0353 /* 106 */
0354 EXTERN void     Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
0355                 Tcl_EventCheckProc *checkProc,
0356                 ClientData clientData);
0357 /* 107 */
0358 EXTERN void     Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
0359                 ClientData clientData);
0360 /* 108 */
0361 EXTERN void     Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
0362 /* 109 */
0363 EXTERN void     Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
0364 /* 110 */
0365 EXTERN void     Tcl_DeleteInterp(Tcl_Interp *interp);
0366 /* 111 */
0367 EXTERN void     Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
0368 /* 112 */
0369 EXTERN void     Tcl_DeleteTimerHandler(Tcl_TimerToken token);
0370 /* 113 */
0371 EXTERN void     Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
0372 /* 114 */
0373 EXTERN void     Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
0374                 Tcl_InterpDeleteProc *proc,
0375                 ClientData clientData);
0376 /* 115 */
0377 EXTERN int      Tcl_DoOneEvent(int flags);
0378 /* 116 */
0379 EXTERN void     Tcl_DoWhenIdle(Tcl_IdleProc *proc,
0380                 ClientData clientData);
0381 /* 117 */
0382 EXTERN char *       Tcl_DStringAppend(Tcl_DString *dsPtr,
0383                 const char *bytes, int length);
0384 /* 118 */
0385 EXTERN char *       Tcl_DStringAppendElement(Tcl_DString *dsPtr,
0386                 const char *element);
0387 /* 119 */
0388 EXTERN void     Tcl_DStringEndSublist(Tcl_DString *dsPtr);
0389 /* 120 */
0390 EXTERN void     Tcl_DStringFree(Tcl_DString *dsPtr);
0391 /* 121 */
0392 EXTERN void     Tcl_DStringGetResult(Tcl_Interp *interp,
0393                 Tcl_DString *dsPtr);
0394 /* 122 */
0395 EXTERN void     Tcl_DStringInit(Tcl_DString *dsPtr);
0396 /* 123 */
0397 EXTERN void     Tcl_DStringResult(Tcl_Interp *interp,
0398                 Tcl_DString *dsPtr);
0399 /* 124 */
0400 EXTERN void     Tcl_DStringSetLength(Tcl_DString *dsPtr, int length);
0401 /* 125 */
0402 EXTERN void     Tcl_DStringStartSublist(Tcl_DString *dsPtr);
0403 /* 126 */
0404 EXTERN int      Tcl_Eof(Tcl_Channel chan);
0405 /* 127 */
0406 EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
0407 /* 128 */
0408 EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
0409 /* 129 */
0410 EXTERN int      Tcl_Eval(Tcl_Interp *interp, const char *script);
0411 /* 130 */
0412 EXTERN int      Tcl_EvalFile(Tcl_Interp *interp,
0413                 const char *fileName);
0414 /* 131 */
0415 EXTERN int      Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
0416 /* 132 */
0417 EXTERN void     Tcl_EventuallyFree(ClientData clientData,
0418                 Tcl_FreeProc *freeProc);
0419 /* 133 */
0420 EXTERN TCL_NORETURN void Tcl_Exit(int status);
0421 /* 134 */
0422 EXTERN int      Tcl_ExposeCommand(Tcl_Interp *interp,
0423                 const char *hiddenCmdToken,
0424                 const char *cmdName);
0425 /* 135 */
0426 EXTERN int      Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
0427                 int *ptr);
0428 /* 136 */
0429 EXTERN int      Tcl_ExprBooleanObj(Tcl_Interp *interp,
0430                 Tcl_Obj *objPtr, int *ptr);
0431 /* 137 */
0432 EXTERN int      Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
0433                 double *ptr);
0434 /* 138 */
0435 EXTERN int      Tcl_ExprDoubleObj(Tcl_Interp *interp,
0436                 Tcl_Obj *objPtr, double *ptr);
0437 /* 139 */
0438 EXTERN int      Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
0439                 long *ptr);
0440 /* 140 */
0441 EXTERN int      Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
0442                 long *ptr);
0443 /* 141 */
0444 EXTERN int      Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
0445                 Tcl_Obj **resultPtrPtr);
0446 /* 142 */
0447 EXTERN int      Tcl_ExprString(Tcl_Interp *interp, const char *expr);
0448 /* 143 */
0449 EXTERN void     Tcl_Finalize(void);
0450 /* 144 */
0451 EXTERN void     Tcl_FindExecutable(const char *argv0);
0452 /* 145 */
0453 EXTERN Tcl_HashEntry *  Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
0454                 Tcl_HashSearch *searchPtr);
0455 /* 146 */
0456 EXTERN int      Tcl_Flush(Tcl_Channel chan);
0457 /* 147 */
0458 EXTERN void     Tcl_FreeResult(Tcl_Interp *interp);
0459 /* 148 */
0460 EXTERN int      Tcl_GetAlias(Tcl_Interp *interp,
0461                 const char *childCmd,
0462                 Tcl_Interp **targetInterpPtr,
0463                 CONST84 char **targetCmdPtr, int *argcPtr,
0464                 CONST84 char ***argvPtr);
0465 /* 149 */
0466 EXTERN int      Tcl_GetAliasObj(Tcl_Interp *interp,
0467                 const char *childCmd,
0468                 Tcl_Interp **targetInterpPtr,
0469                 CONST84 char **targetCmdPtr, int *objcPtr,
0470                 Tcl_Obj ***objv);
0471 /* 150 */
0472 EXTERN ClientData   Tcl_GetAssocData(Tcl_Interp *interp,
0473                 const char *name,
0474                 Tcl_InterpDeleteProc **procPtr);
0475 /* 151 */
0476 EXTERN Tcl_Channel  Tcl_GetChannel(Tcl_Interp *interp,
0477                 const char *chanName, int *modePtr);
0478 /* 152 */
0479 EXTERN int      Tcl_GetChannelBufferSize(Tcl_Channel chan);
0480 /* 153 */
0481 EXTERN int      Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
0482                 ClientData *handlePtr);
0483 /* 154 */
0484 EXTERN ClientData   Tcl_GetChannelInstanceData(Tcl_Channel chan);
0485 /* 155 */
0486 EXTERN int      Tcl_GetChannelMode(Tcl_Channel chan);
0487 /* 156 */
0488 EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
0489 /* 157 */
0490 EXTERN int      Tcl_GetChannelOption(Tcl_Interp *interp,
0491                 Tcl_Channel chan, const char *optionName,
0492                 Tcl_DString *dsPtr);
0493 /* 158 */
0494 EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
0495 /* 159 */
0496 EXTERN int      Tcl_GetCommandInfo(Tcl_Interp *interp,
0497                 const char *cmdName, Tcl_CmdInfo *infoPtr);
0498 /* 160 */
0499 EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
0500                 Tcl_Command command);
0501 /* 161 */
0502 EXTERN int      Tcl_GetErrno(void);
0503 /* 162 */
0504 EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
0505 /* 163 */
0506 EXTERN int      Tcl_GetInterpPath(Tcl_Interp *interp,
0507                 Tcl_Interp *childInterp);
0508 /* 164 */
0509 EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
0510 /* 165 */
0511 EXTERN const char * Tcl_GetNameOfExecutable(void);
0512 /* 166 */
0513 EXTERN Tcl_Obj *    Tcl_GetObjResult(Tcl_Interp *interp);
0514 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
0515 /* 167 */
0516 EXTERN int      Tcl_GetOpenFile(Tcl_Interp *interp,
0517                 const char *chanID, int forWriting,
0518                 int checkUsage, ClientData *filePtr);
0519 #endif /* UNIX */
0520 #ifdef MAC_OSX_TCL /* MACOSX */
0521 /* 167 */
0522 EXTERN int      Tcl_GetOpenFile(Tcl_Interp *interp,
0523                 const char *chanID, int forWriting,
0524                 int checkUsage, ClientData *filePtr);
0525 #endif /* MACOSX */
0526 /* 168 */
0527 EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
0528 /* 169 */
0529 EXTERN int      Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
0530 /* 170 */
0531 EXTERN int      Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
0532 /* 171 */
0533 EXTERN int      Tcl_GetServiceMode(void);
0534 /* 172 */
0535 EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, const char *name);
0536 /* 173 */
0537 EXTERN Tcl_Channel  Tcl_GetStdChannel(int type);
0538 /* 174 */
0539 EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
0540 /* 175 */
0541 EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
0542                 const char *varName, int flags);
0543 /* 176 */
0544 EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
0545                 const char *part1, const char *part2,
0546                 int flags);
0547 /* 177 */
0548 EXTERN int      Tcl_GlobalEval(Tcl_Interp *interp,
0549                 const char *command);
0550 /* 178 */
0551 EXTERN int      Tcl_GlobalEvalObj(Tcl_Interp *interp,
0552                 Tcl_Obj *objPtr);
0553 /* 179 */
0554 EXTERN int      Tcl_HideCommand(Tcl_Interp *interp,
0555                 const char *cmdName,
0556                 const char *hiddenCmdToken);
0557 /* 180 */
0558 EXTERN int      Tcl_Init(Tcl_Interp *interp);
0559 /* 181 */
0560 EXTERN void     Tcl_InitHashTable(Tcl_HashTable *tablePtr,
0561                 int keyType);
0562 /* 182 */
0563 EXTERN int      Tcl_InputBlocked(Tcl_Channel chan);
0564 /* 183 */
0565 EXTERN int      Tcl_InputBuffered(Tcl_Channel chan);
0566 /* 184 */
0567 EXTERN int      Tcl_InterpDeleted(Tcl_Interp *interp);
0568 /* 185 */
0569 EXTERN int      Tcl_IsSafe(Tcl_Interp *interp);
0570 /* 186 */
0571 EXTERN char *       Tcl_JoinPath(int argc, CONST84 char *const *argv,
0572                 Tcl_DString *resultPtr);
0573 /* 187 */
0574 EXTERN int      Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
0575                 char *addr, int type);
0576 /* Slot 188 is reserved */
0577 /* 189 */
0578 EXTERN Tcl_Channel  Tcl_MakeFileChannel(ClientData handle, int mode);
0579 /* 190 */
0580 EXTERN int      Tcl_MakeSafe(Tcl_Interp *interp);
0581 /* 191 */
0582 EXTERN Tcl_Channel  Tcl_MakeTcpClientChannel(ClientData tcpSocket);
0583 /* 192 */
0584 EXTERN char *       Tcl_Merge(int argc, CONST84 char *const *argv);
0585 /* 193 */
0586 EXTERN Tcl_HashEntry *  Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
0587 /* 194 */
0588 EXTERN void     Tcl_NotifyChannel(Tcl_Channel channel, int mask);
0589 /* 195 */
0590 EXTERN Tcl_Obj *    Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
0591                 Tcl_Obj *part2Ptr, int flags);
0592 /* 196 */
0593 EXTERN Tcl_Obj *    Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
0594                 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
0595                 int flags);
0596 /* 197 */
0597 EXTERN Tcl_Channel  Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
0598                 CONST84 char **argv, int flags);
0599 /* 198 */
0600 EXTERN Tcl_Channel  Tcl_OpenFileChannel(Tcl_Interp *interp,
0601                 const char *fileName, const char *modeString,
0602                 int permissions);
0603 /* 199 */
0604 EXTERN Tcl_Channel  Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
0605                 const char *address, const char *myaddr,
0606                 int myport, int async);
0607 /* 200 */
0608 EXTERN Tcl_Channel  Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
0609                 const char *host,
0610                 Tcl_TcpAcceptProc *acceptProc,
0611                 ClientData callbackData);
0612 /* 201 */
0613 EXTERN void     Tcl_Preserve(ClientData data);
0614 /* 202 */
0615 EXTERN void     Tcl_PrintDouble(Tcl_Interp *interp, double value,
0616                 char *dst);
0617 /* 203 */
0618 EXTERN int      Tcl_PutEnv(const char *assignment);
0619 /* 204 */
0620 EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
0621 /* 205 */
0622 EXTERN void     Tcl_QueueEvent(Tcl_Event *evPtr,
0623                 Tcl_QueuePosition position);
0624 /* 206 */
0625 EXTERN int      Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead);
0626 /* 207 */
0627 EXTERN void     Tcl_ReapDetachedProcs(void);
0628 /* 208 */
0629 EXTERN int      Tcl_RecordAndEval(Tcl_Interp *interp,
0630                 const char *cmd, int flags);
0631 /* 209 */
0632 EXTERN int      Tcl_RecordAndEvalObj(Tcl_Interp *interp,
0633                 Tcl_Obj *cmdPtr, int flags);
0634 /* 210 */
0635 EXTERN void     Tcl_RegisterChannel(Tcl_Interp *interp,
0636                 Tcl_Channel chan);
0637 /* 211 */
0638 EXTERN void     Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
0639 /* 212 */
0640 EXTERN Tcl_RegExp   Tcl_RegExpCompile(Tcl_Interp *interp,
0641                 const char *pattern);
0642 /* 213 */
0643 EXTERN int      Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
0644                 const char *text, const char *start);
0645 /* 214 */
0646 EXTERN int      Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
0647                 const char *pattern);
0648 /* 215 */
0649 EXTERN void     Tcl_RegExpRange(Tcl_RegExp regexp, int index,
0650                 CONST84 char **startPtr,
0651                 CONST84 char **endPtr);
0652 /* 216 */
0653 EXTERN void     Tcl_Release(ClientData clientData);
0654 /* 217 */
0655 EXTERN void     Tcl_ResetResult(Tcl_Interp *interp);
0656 /* 218 */
0657 EXTERN int      Tcl_ScanElement(const char *src, int *flagPtr);
0658 /* 219 */
0659 EXTERN int      Tcl_ScanCountedElement(const char *src, int length,
0660                 int *flagPtr);
0661 /* 220 */
0662 EXTERN int      Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
0663 /* 221 */
0664 EXTERN int      Tcl_ServiceAll(void);
0665 /* 222 */
0666 EXTERN int      Tcl_ServiceEvent(int flags);
0667 /* 223 */
0668 EXTERN void     Tcl_SetAssocData(Tcl_Interp *interp,
0669                 const char *name, Tcl_InterpDeleteProc *proc,
0670                 ClientData clientData);
0671 /* 224 */
0672 EXTERN void     Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
0673 /* 225 */
0674 EXTERN int      Tcl_SetChannelOption(Tcl_Interp *interp,
0675                 Tcl_Channel chan, const char *optionName,
0676                 const char *newValue);
0677 /* 226 */
0678 EXTERN int      Tcl_SetCommandInfo(Tcl_Interp *interp,
0679                 const char *cmdName,
0680                 const Tcl_CmdInfo *infoPtr);
0681 /* 227 */
0682 EXTERN void     Tcl_SetErrno(int err);
0683 /* 228 */
0684 EXTERN void     Tcl_SetErrorCode(Tcl_Interp *interp, ...);
0685 /* 229 */
0686 EXTERN void     Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
0687 /* 230 */
0688 EXTERN void     Tcl_SetPanicProc(
0689                 TCL_NORETURN1 Tcl_PanicProc *panicProc);
0690 /* 231 */
0691 EXTERN int      Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth);
0692 /* 232 */
0693 EXTERN void     Tcl_SetResult(Tcl_Interp *interp, char *result,
0694                 Tcl_FreeProc *freeProc);
0695 /* 233 */
0696 EXTERN int      Tcl_SetServiceMode(int mode);
0697 /* 234 */
0698 EXTERN void     Tcl_SetObjErrorCode(Tcl_Interp *interp,
0699                 Tcl_Obj *errorObjPtr);
0700 /* 235 */
0701 EXTERN void     Tcl_SetObjResult(Tcl_Interp *interp,
0702                 Tcl_Obj *resultObjPtr);
0703 /* 236 */
0704 EXTERN void     Tcl_SetStdChannel(Tcl_Channel channel, int type);
0705 /* 237 */
0706 EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
0707                 const char *varName, const char *newValue,
0708                 int flags);
0709 /* 238 */
0710 EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
0711                 const char *part1, const char *part2,
0712                 const char *newValue, int flags);
0713 /* 239 */
0714 EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
0715 /* 240 */
0716 EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
0717 /* 241 */
0718 EXTERN void     Tcl_SourceRCFile(Tcl_Interp *interp);
0719 /* 242 */
0720 EXTERN int      Tcl_SplitList(Tcl_Interp *interp,
0721                 const char *listStr, int *argcPtr,
0722                 CONST84 char ***argvPtr);
0723 /* 243 */
0724 EXTERN void     Tcl_SplitPath(const char *path, int *argcPtr,
0725                 CONST84 char ***argvPtr);
0726 /* 244 */
0727 EXTERN void     Tcl_StaticPackage(Tcl_Interp *interp,
0728                 const char *prefix,
0729                 Tcl_PackageInitProc *initProc,
0730                 Tcl_PackageInitProc *safeInitProc);
0731 /* 245 */
0732 EXTERN int      Tcl_StringMatch(const char *str, const char *pattern);
0733 /* 246 */
0734 EXTERN int      Tcl_TellOld(Tcl_Channel chan);
0735 /* 247 */
0736 EXTERN int      Tcl_TraceVar(Tcl_Interp *interp, const char *varName,
0737                 int flags, Tcl_VarTraceProc *proc,
0738                 ClientData clientData);
0739 /* 248 */
0740 EXTERN int      Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
0741                 const char *part2, int flags,
0742                 Tcl_VarTraceProc *proc,
0743                 ClientData clientData);
0744 /* 249 */
0745 EXTERN char *       Tcl_TranslateFileName(Tcl_Interp *interp,
0746                 const char *name, Tcl_DString *bufferPtr);
0747 /* 250 */
0748 EXTERN int      Tcl_Ungets(Tcl_Channel chan, const char *str,
0749                 int len, int atHead);
0750 /* 251 */
0751 EXTERN void     Tcl_UnlinkVar(Tcl_Interp *interp,
0752                 const char *varName);
0753 /* 252 */
0754 EXTERN int      Tcl_UnregisterChannel(Tcl_Interp *interp,
0755                 Tcl_Channel chan);
0756 /* 253 */
0757 EXTERN int      Tcl_UnsetVar(Tcl_Interp *interp, const char *varName,
0758                 int flags);
0759 /* 254 */
0760 EXTERN int      Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
0761                 const char *part2, int flags);
0762 /* 255 */
0763 EXTERN void     Tcl_UntraceVar(Tcl_Interp *interp,
0764                 const char *varName, int flags,
0765                 Tcl_VarTraceProc *proc,
0766                 ClientData clientData);
0767 /* 256 */
0768 EXTERN void     Tcl_UntraceVar2(Tcl_Interp *interp,
0769                 const char *part1, const char *part2,
0770                 int flags, Tcl_VarTraceProc *proc,
0771                 ClientData clientData);
0772 /* 257 */
0773 EXTERN void     Tcl_UpdateLinkedVar(Tcl_Interp *interp,
0774                 const char *varName);
0775 /* 258 */
0776 EXTERN int      Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
0777                 const char *varName, const char *localName,
0778                 int flags);
0779 /* 259 */
0780 EXTERN int      Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
0781                 const char *part1, const char *part2,
0782                 const char *localName, int flags);
0783 /* 260 */
0784 EXTERN int      Tcl_VarEval(Tcl_Interp *interp, ...);
0785 /* 261 */
0786 EXTERN ClientData   Tcl_VarTraceInfo(Tcl_Interp *interp,
0787                 const char *varName, int flags,
0788                 Tcl_VarTraceProc *procPtr,
0789                 ClientData prevClientData);
0790 /* 262 */
0791 EXTERN ClientData   Tcl_VarTraceInfo2(Tcl_Interp *interp,
0792                 const char *part1, const char *part2,
0793                 int flags, Tcl_VarTraceProc *procPtr,
0794                 ClientData prevClientData);
0795 /* 263 */
0796 EXTERN int      Tcl_Write(Tcl_Channel chan, const char *s, int slen);
0797 /* 264 */
0798 EXTERN void     Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
0799                 Tcl_Obj *const objv[], const char *message);
0800 /* 265 */
0801 EXTERN int      Tcl_DumpActiveMemory(const char *fileName);
0802 /* 266 */
0803 EXTERN void     Tcl_ValidateAllMemory(const char *file, int line);
0804 /* 267 */
0805 EXTERN void     Tcl_AppendResultVA(Tcl_Interp *interp,
0806                 va_list argList);
0807 /* 268 */
0808 EXTERN void     Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
0809                 va_list argList);
0810 /* 269 */
0811 EXTERN char *       Tcl_HashStats(Tcl_HashTable *tablePtr);
0812 /* 270 */
0813 EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
0814                 const char *start, CONST84 char **termPtr);
0815 /* 271 */
0816 EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
0817                 const char *name, const char *version,
0818                 int exact);
0819 /* 272 */
0820 EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
0821                 const char *name, const char *version,
0822                 int exact, void *clientDataPtr);
0823 /* 273 */
0824 EXTERN int      Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
0825                 const char *version);
0826 /* 274 */
0827 EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
0828                 const char *name, const char *version,
0829                 int exact);
0830 /* 275 */
0831 EXTERN void     Tcl_SetErrorCodeVA(Tcl_Interp *interp,
0832                 va_list argList);
0833 /* 276 */
0834 EXTERN int      Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
0835 /* 277 */
0836 EXTERN Tcl_Pid      Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
0837 /* 278 */
0838 EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList);
0839 /* 279 */
0840 EXTERN void     Tcl_GetVersion(int *major, int *minor,
0841                 int *patchLevel, int *type);
0842 /* 280 */
0843 EXTERN void     Tcl_InitMemory(Tcl_Interp *interp);
0844 /* 281 */
0845 EXTERN Tcl_Channel  Tcl_StackChannel(Tcl_Interp *interp,
0846                 const Tcl_ChannelType *typePtr,
0847                 ClientData instanceData, int mask,
0848                 Tcl_Channel prevChan);
0849 /* 282 */
0850 EXTERN int      Tcl_UnstackChannel(Tcl_Interp *interp,
0851                 Tcl_Channel chan);
0852 /* 283 */
0853 EXTERN Tcl_Channel  Tcl_GetStackedChannel(Tcl_Channel chan);
0854 /* 284 */
0855 EXTERN void     Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
0856 /* Slot 285 is reserved */
0857 /* 286 */
0858 EXTERN void     Tcl_AppendObjToObj(Tcl_Obj *objPtr,
0859                 Tcl_Obj *appendObjPtr);
0860 /* 287 */
0861 EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
0862 /* 288 */
0863 EXTERN void     Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
0864                 ClientData clientData);
0865 /* 289 */
0866 EXTERN void     Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
0867                 ClientData clientData);
0868 /* 290 */
0869 EXTERN void     Tcl_DiscardResult(Tcl_SavedResult *statePtr);
0870 /* 291 */
0871 EXTERN int      Tcl_EvalEx(Tcl_Interp *interp, const char *script,
0872                 int numBytes, int flags);
0873 /* 292 */
0874 EXTERN int      Tcl_EvalObjv(Tcl_Interp *interp, int objc,
0875                 Tcl_Obj *const objv[], int flags);
0876 /* 293 */
0877 EXTERN int      Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
0878                 int flags);
0879 /* 294 */
0880 EXTERN void     Tcl_ExitThread(int status);
0881 /* 295 */
0882 EXTERN int      Tcl_ExternalToUtf(Tcl_Interp *interp,
0883                 Tcl_Encoding encoding, const char *src,
0884                 int srcLen, int flags,
0885                 Tcl_EncodingState *statePtr, char *dst,
0886                 int dstLen, int *srcReadPtr,
0887                 int *dstWrotePtr, int *dstCharsPtr);
0888 /* 296 */
0889 EXTERN char *       Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
0890                 const char *src, int srcLen,
0891                 Tcl_DString *dsPtr);
0892 /* 297 */
0893 EXTERN void     Tcl_FinalizeThread(void);
0894 /* 298 */
0895 EXTERN void     Tcl_FinalizeNotifier(ClientData clientData);
0896 /* 299 */
0897 EXTERN void     Tcl_FreeEncoding(Tcl_Encoding encoding);
0898 /* 300 */
0899 EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
0900 /* 301 */
0901 EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
0902 /* 302 */
0903 EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
0904 /* 303 */
0905 EXTERN void     Tcl_GetEncodingNames(Tcl_Interp *interp);
0906 /* 304 */
0907 EXTERN int      Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
0908                 Tcl_Obj *objPtr, const void *tablePtr,
0909                 int offset, const char *msg, int flags,
0910                 int *indexPtr);
0911 /* 305 */
0912 EXTERN void *       Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
0913                 int size);
0914 /* 306 */
0915 EXTERN Tcl_Obj *    Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
0916                 const char *part2, int flags);
0917 /* 307 */
0918 EXTERN ClientData   Tcl_InitNotifier(void);
0919 /* 308 */
0920 EXTERN void     Tcl_MutexLock(Tcl_Mutex *mutexPtr);
0921 /* 309 */
0922 EXTERN void     Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
0923 /* 310 */
0924 EXTERN void     Tcl_ConditionNotify(Tcl_Condition *condPtr);
0925 /* 311 */
0926 EXTERN void     Tcl_ConditionWait(Tcl_Condition *condPtr,
0927                 Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
0928 /* 312 */
0929 EXTERN int      Tcl_NumUtfChars(const char *src, int length);
0930 /* 313 */
0931 EXTERN int      Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
0932                 int charsToRead, int appendFlag);
0933 /* 314 */
0934 EXTERN void     Tcl_RestoreResult(Tcl_Interp *interp,
0935                 Tcl_SavedResult *statePtr);
0936 /* 315 */
0937 EXTERN void     Tcl_SaveResult(Tcl_Interp *interp,
0938                 Tcl_SavedResult *statePtr);
0939 /* 316 */
0940 EXTERN int      Tcl_SetSystemEncoding(Tcl_Interp *interp,
0941                 const char *name);
0942 /* 317 */
0943 EXTERN Tcl_Obj *    Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
0944                 const char *part2, Tcl_Obj *newValuePtr,
0945                 int flags);
0946 /* 318 */
0947 EXTERN void     Tcl_ThreadAlert(Tcl_ThreadId threadId);
0948 /* 319 */
0949 EXTERN void     Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
0950                 Tcl_Event *evPtr, Tcl_QueuePosition position);
0951 /* 320 */
0952 EXTERN Tcl_UniChar  Tcl_UniCharAtIndex(const char *src, int index);
0953 /* 321 */
0954 EXTERN Tcl_UniChar  Tcl_UniCharToLower(int ch);
0955 /* 322 */
0956 EXTERN Tcl_UniChar  Tcl_UniCharToTitle(int ch);
0957 /* 323 */
0958 EXTERN Tcl_UniChar  Tcl_UniCharToUpper(int ch);
0959 /* 324 */
0960 EXTERN int      Tcl_UniCharToUtf(int ch, char *buf);
0961 /* 325 */
0962 EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
0963 /* 326 */
0964 EXTERN int      Tcl_UtfCharComplete(const char *src, int length);
0965 /* 327 */
0966 EXTERN int      Tcl_UtfBackslash(const char *src, int *readPtr,
0967                 char *dst);
0968 /* 328 */
0969 EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
0970 /* 329 */
0971 EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
0972 /* 330 */
0973 EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
0974 /* 331 */
0975 EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start);
0976 /* 332 */
0977 EXTERN int      Tcl_UtfToExternal(Tcl_Interp *interp,
0978                 Tcl_Encoding encoding, const char *src,
0979                 int srcLen, int flags,
0980                 Tcl_EncodingState *statePtr, char *dst,
0981                 int dstLen, int *srcReadPtr,
0982                 int *dstWrotePtr, int *dstCharsPtr);
0983 /* 333 */
0984 EXTERN char *       Tcl_UtfToExternalDString(Tcl_Encoding encoding,
0985                 const char *src, int srcLen,
0986                 Tcl_DString *dsPtr);
0987 /* 334 */
0988 EXTERN int      Tcl_UtfToLower(char *src);
0989 /* 335 */
0990 EXTERN int      Tcl_UtfToTitle(char *src);
0991 /* 336 */
0992 EXTERN int      Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr);
0993 /* 337 */
0994 EXTERN int      Tcl_UtfToUpper(char *src);
0995 /* 338 */
0996 EXTERN int      Tcl_WriteChars(Tcl_Channel chan, const char *src,
0997                 int srcLen);
0998 /* 339 */
0999 EXTERN int      Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
1000 /* 340 */
1001 EXTERN char *       Tcl_GetString(Tcl_Obj *objPtr);
1002 /* 341 */
1003 EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void);
1004 /* 342 */
1005 EXTERN void     Tcl_SetDefaultEncodingDir(const char *path);
1006 /* 343 */
1007 EXTERN void     Tcl_AlertNotifier(ClientData clientData);
1008 /* 344 */
1009 EXTERN void     Tcl_ServiceModeHook(int mode);
1010 /* 345 */
1011 EXTERN int      Tcl_UniCharIsAlnum(int ch);
1012 /* 346 */
1013 EXTERN int      Tcl_UniCharIsAlpha(int ch);
1014 /* 347 */
1015 EXTERN int      Tcl_UniCharIsDigit(int ch);
1016 /* 348 */
1017 EXTERN int      Tcl_UniCharIsLower(int ch);
1018 /* 349 */
1019 EXTERN int      Tcl_UniCharIsSpace(int ch);
1020 /* 350 */
1021 EXTERN int      Tcl_UniCharIsUpper(int ch);
1022 /* 351 */
1023 EXTERN int      Tcl_UniCharIsWordChar(int ch);
1024 /* 352 */
1025 EXTERN int      Tcl_UniCharLen(const Tcl_UniChar *uniStr);
1026 /* 353 */
1027 EXTERN int      Tcl_UniCharNcmp(const Tcl_UniChar *ucs,
1028                 const Tcl_UniChar *uct,
1029                 unsigned long numChars);
1030 /* 354 */
1031 EXTERN char *       Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr,
1032                 int uniLength, Tcl_DString *dsPtr);
1033 /* 355 */
1034 EXTERN Tcl_UniChar *    Tcl_UtfToUniCharDString(const char *src, int length,
1035                 Tcl_DString *dsPtr);
1036 /* 356 */
1037 EXTERN Tcl_RegExp   Tcl_GetRegExpFromObj(Tcl_Interp *interp,
1038                 Tcl_Obj *patObj, int flags);
1039 /* 357 */
1040 EXTERN Tcl_Obj *    Tcl_EvalTokens(Tcl_Interp *interp,
1041                 Tcl_Token *tokenPtr, int count);
1042 /* 358 */
1043 EXTERN void     Tcl_FreeParse(Tcl_Parse *parsePtr);
1044 /* 359 */
1045 EXTERN void     Tcl_LogCommandInfo(Tcl_Interp *interp,
1046                 const char *script, const char *command,
1047                 int length);
1048 /* 360 */
1049 EXTERN int      Tcl_ParseBraces(Tcl_Interp *interp,
1050                 const char *start, int numBytes,
1051                 Tcl_Parse *parsePtr, int append,
1052                 CONST84 char **termPtr);
1053 /* 361 */
1054 EXTERN int      Tcl_ParseCommand(Tcl_Interp *interp,
1055                 const char *start, int numBytes, int nested,
1056                 Tcl_Parse *parsePtr);
1057 /* 362 */
1058 EXTERN int      Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
1059                 int numBytes, Tcl_Parse *parsePtr);
1060 /* 363 */
1061 EXTERN int      Tcl_ParseQuotedString(Tcl_Interp *interp,
1062                 const char *start, int numBytes,
1063                 Tcl_Parse *parsePtr, int append,
1064                 CONST84 char **termPtr);
1065 /* 364 */
1066 EXTERN int      Tcl_ParseVarName(Tcl_Interp *interp,
1067                 const char *start, int numBytes,
1068                 Tcl_Parse *parsePtr, int append);
1069 /* 365 */
1070 EXTERN char *       Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
1071 /* 366 */
1072 EXTERN int      Tcl_Chdir(const char *dirName);
1073 /* 367 */
1074 EXTERN int      Tcl_Access(const char *path, int mode);
1075 /* 368 */
1076 EXTERN int      Tcl_Stat(const char *path, struct stat *bufPtr);
1077 /* 369 */
1078 EXTERN int      Tcl_UtfNcmp(const char *s1, const char *s2,
1079                 unsigned long n);
1080 /* 370 */
1081 EXTERN int      Tcl_UtfNcasecmp(const char *s1, const char *s2,
1082                 unsigned long n);
1083 /* 371 */
1084 EXTERN int      Tcl_StringCaseMatch(const char *str,
1085                 const char *pattern, int nocase);
1086 /* 372 */
1087 EXTERN int      Tcl_UniCharIsControl(int ch);
1088 /* 373 */
1089 EXTERN int      Tcl_UniCharIsGraph(int ch);
1090 /* 374 */
1091 EXTERN int      Tcl_UniCharIsPrint(int ch);
1092 /* 375 */
1093 EXTERN int      Tcl_UniCharIsPunct(int ch);
1094 /* 376 */
1095 EXTERN int      Tcl_RegExpExecObj(Tcl_Interp *interp,
1096                 Tcl_RegExp regexp, Tcl_Obj *textObj,
1097                 int offset, int nmatches, int flags);
1098 /* 377 */
1099 EXTERN void     Tcl_RegExpGetInfo(Tcl_RegExp regexp,
1100                 Tcl_RegExpInfo *infoPtr);
1101 /* 378 */
1102 EXTERN Tcl_Obj *    Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
1103                 int numChars);
1104 /* 379 */
1105 EXTERN void     Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
1106                 const Tcl_UniChar *unicode, int numChars);
1107 /* 380 */
1108 EXTERN int      Tcl_GetCharLength(Tcl_Obj *objPtr);
1109 /* 381 */
1110 EXTERN Tcl_UniChar  Tcl_GetUniChar(Tcl_Obj *objPtr, int index);
1111 /* 382 */
1112 EXTERN Tcl_UniChar *    Tcl_GetUnicode(Tcl_Obj *objPtr);
1113 /* 383 */
1114 EXTERN Tcl_Obj *    Tcl_GetRange(Tcl_Obj *objPtr, int first, int last);
1115 /* 384 */
1116 EXTERN void     Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
1117                 const Tcl_UniChar *unicode, int length);
1118 /* 385 */
1119 EXTERN int      Tcl_RegExpMatchObj(Tcl_Interp *interp,
1120                 Tcl_Obj *textObj, Tcl_Obj *patternObj);
1121 /* 386 */
1122 EXTERN void     Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr);
1123 /* 387 */
1124 EXTERN Tcl_Mutex *  Tcl_GetAllocMutex(void);
1125 /* 388 */
1126 EXTERN int      Tcl_GetChannelNames(Tcl_Interp *interp);
1127 /* 389 */
1128 EXTERN int      Tcl_GetChannelNamesEx(Tcl_Interp *interp,
1129                 const char *pattern);
1130 /* 390 */
1131 EXTERN int      Tcl_ProcObjCmd(ClientData clientData,
1132                 Tcl_Interp *interp, int objc,
1133                 Tcl_Obj *const objv[]);
1134 /* 391 */
1135 EXTERN void     Tcl_ConditionFinalize(Tcl_Condition *condPtr);
1136 /* 392 */
1137 EXTERN void     Tcl_MutexFinalize(Tcl_Mutex *mutex);
1138 /* 393 */
1139 EXTERN int      Tcl_CreateThread(Tcl_ThreadId *idPtr,
1140                 Tcl_ThreadCreateProc *proc,
1141                 ClientData clientData, int stackSize,
1142                 int flags);
1143 /* 394 */
1144 EXTERN int      Tcl_ReadRaw(Tcl_Channel chan, char *dst,
1145                 int bytesToRead);
1146 /* 395 */
1147 EXTERN int      Tcl_WriteRaw(Tcl_Channel chan, const char *src,
1148                 int srcLen);
1149 /* 396 */
1150 EXTERN Tcl_Channel  Tcl_GetTopChannel(Tcl_Channel chan);
1151 /* 397 */
1152 EXTERN int      Tcl_ChannelBuffered(Tcl_Channel chan);
1153 /* 398 */
1154 EXTERN CONST84_RETURN char * Tcl_ChannelName(
1155                 const Tcl_ChannelType *chanTypePtr);
1156 /* 399 */
1157 EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
1158                 const Tcl_ChannelType *chanTypePtr);
1159 /* 400 */
1160 EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
1161                 const Tcl_ChannelType *chanTypePtr);
1162 /* 401 */
1163 EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc(
1164                 const Tcl_ChannelType *chanTypePtr);
1165 /* 402 */
1166 EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
1167                 const Tcl_ChannelType *chanTypePtr);
1168 /* 403 */
1169 EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
1170                 const Tcl_ChannelType *chanTypePtr);
1171 /* 404 */
1172 EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
1173                 const Tcl_ChannelType *chanTypePtr);
1174 /* 405 */
1175 EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc(
1176                 const Tcl_ChannelType *chanTypePtr);
1177 /* 406 */
1178 EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
1179                 const Tcl_ChannelType *chanTypePtr);
1180 /* 407 */
1181 EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
1182                 const Tcl_ChannelType *chanTypePtr);
1183 /* 408 */
1184 EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
1185                 const Tcl_ChannelType *chanTypePtr);
1186 /* 409 */
1187 EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
1188                 const Tcl_ChannelType *chanTypePtr);
1189 /* 410 */
1190 EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
1191                 const Tcl_ChannelType *chanTypePtr);
1192 /* 411 */
1193 EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
1194                 const Tcl_ChannelType *chanTypePtr);
1195 /* 412 */
1196 EXTERN int      Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
1197 /* 413 */
1198 EXTERN int      Tcl_IsChannelShared(Tcl_Channel channel);
1199 /* 414 */
1200 EXTERN int      Tcl_IsChannelRegistered(Tcl_Interp *interp,
1201                 Tcl_Channel channel);
1202 /* 415 */
1203 EXTERN void     Tcl_CutChannel(Tcl_Channel channel);
1204 /* 416 */
1205 EXTERN void     Tcl_SpliceChannel(Tcl_Channel channel);
1206 /* 417 */
1207 EXTERN void     Tcl_ClearChannelHandlers(Tcl_Channel channel);
1208 /* 418 */
1209 EXTERN int      Tcl_IsChannelExisting(const char *channelName);
1210 /* 419 */
1211 EXTERN int      Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs,
1212                 const Tcl_UniChar *uct,
1213                 unsigned long numChars);
1214 /* 420 */
1215 EXTERN int      Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr,
1216                 const Tcl_UniChar *uniPattern, int nocase);
1217 /* 421 */
1218 EXTERN Tcl_HashEntry *  Tcl_FindHashEntry(Tcl_HashTable *tablePtr,
1219                 const void *key);
1220 /* 422 */
1221 EXTERN Tcl_HashEntry *  Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
1222                 const void *key, int *newPtr);
1223 /* 423 */
1224 EXTERN void     Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
1225                 int keyType, const Tcl_HashKeyType *typePtr);
1226 /* 424 */
1227 EXTERN void     Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
1228 /* 425 */
1229 EXTERN ClientData   Tcl_CommandTraceInfo(Tcl_Interp *interp,
1230                 const char *varName, int flags,
1231                 Tcl_CommandTraceProc *procPtr,
1232                 ClientData prevClientData);
1233 /* 426 */
1234 EXTERN int      Tcl_TraceCommand(Tcl_Interp *interp,
1235                 const char *varName, int flags,
1236                 Tcl_CommandTraceProc *proc,
1237                 ClientData clientData);
1238 /* 427 */
1239 EXTERN void     Tcl_UntraceCommand(Tcl_Interp *interp,
1240                 const char *varName, int flags,
1241                 Tcl_CommandTraceProc *proc,
1242                 ClientData clientData);
1243 /* 428 */
1244 EXTERN char *       Tcl_AttemptAlloc(unsigned int size);
1245 /* 429 */
1246 EXTERN char *       Tcl_AttemptDbCkalloc(unsigned int size,
1247                 const char *file, int line);
1248 /* 430 */
1249 EXTERN char *       Tcl_AttemptRealloc(char *ptr, unsigned int size);
1250 /* 431 */
1251 EXTERN char *       Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
1252                 const char *file, int line);
1253 /* 432 */
1254 EXTERN int      Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length);
1255 /* 433 */
1256 EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
1257 /* 434 */
1258 EXTERN Tcl_UniChar *    Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
1259                 int *lengthPtr);
1260 /* 435 */
1261 EXTERN int      Tcl_GetMathFuncInfo(Tcl_Interp *interp,
1262                 const char *name, int *numArgsPtr,
1263                 Tcl_ValueType **argTypesPtr,
1264                 Tcl_MathProc **procPtr,
1265                 ClientData *clientDataPtr);
1266 /* 436 */
1267 EXTERN Tcl_Obj *    Tcl_ListMathFuncs(Tcl_Interp *interp,
1268                 const char *pattern);
1269 /* 437 */
1270 EXTERN Tcl_Obj *    Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1271                 int flags);
1272 /* 438 */
1273 EXTERN int      Tcl_DetachChannel(Tcl_Interp *interp,
1274                 Tcl_Channel channel);
1275 /* 439 */
1276 EXTERN int      Tcl_IsStandardChannel(Tcl_Channel channel);
1277 /* 440 */
1278 EXTERN int      Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
1279                 Tcl_Obj *destPathPtr);
1280 /* 441 */
1281 EXTERN int      Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
1282                 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
1283 /* 442 */
1284 EXTERN int      Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
1285 /* 443 */
1286 EXTERN int      Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
1287 /* 444 */
1288 EXTERN int      Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1289                 const char *sym1, const char *sym2,
1290                 Tcl_PackageInitProc **proc1Ptr,
1291                 Tcl_PackageInitProc **proc2Ptr,
1292                 Tcl_LoadHandle *handlePtr,
1293                 Tcl_FSUnloadFileProc **unloadProcPtr);
1294 /* 445 */
1295 EXTERN int      Tcl_FSMatchInDirectory(Tcl_Interp *interp,
1296                 Tcl_Obj *result, Tcl_Obj *pathPtr,
1297                 const char *pattern, Tcl_GlobTypeData *types);
1298 /* 446 */
1299 EXTERN Tcl_Obj *    Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
1300                 int linkAction);
1301 /* 447 */
1302 EXTERN int      Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
1303                 int recursive, Tcl_Obj **errorPtr);
1304 /* 448 */
1305 EXTERN int      Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
1306                 Tcl_Obj *destPathPtr);
1307 /* 449 */
1308 EXTERN int      Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1309 /* 450 */
1310 EXTERN int      Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
1311 /* 451 */
1312 EXTERN int      Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
1313                 Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
1314 /* 452 */
1315 EXTERN int      Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
1316                 Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
1317 /* 453 */
1318 EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
1319                 Tcl_Obj **objPtrRef);
1320 /* 454 */
1321 EXTERN int      Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1322 /* 455 */
1323 EXTERN int      Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
1324 /* 456 */
1325 EXTERN Tcl_Channel  Tcl_FSOpenFileChannel(Tcl_Interp *interp,
1326                 Tcl_Obj *pathPtr, const char *modeString,
1327                 int permissions);
1328 /* 457 */
1329 EXTERN Tcl_Obj *    Tcl_FSGetCwd(Tcl_Interp *interp);
1330 /* 458 */
1331 EXTERN int      Tcl_FSChdir(Tcl_Obj *pathPtr);
1332 /* 459 */
1333 EXTERN int      Tcl_FSConvertToPathType(Tcl_Interp *interp,
1334                 Tcl_Obj *pathPtr);
1335 /* 460 */
1336 EXTERN Tcl_Obj *    Tcl_FSJoinPath(Tcl_Obj *listObj, int elements);
1337 /* 461 */
1338 EXTERN Tcl_Obj *    Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr);
1339 /* 462 */
1340 EXTERN int      Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
1341                 Tcl_Obj *secondPtr);
1342 /* 463 */
1343 EXTERN Tcl_Obj *    Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
1344                 Tcl_Obj *pathPtr);
1345 /* 464 */
1346 EXTERN Tcl_Obj *    Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc,
1347                 Tcl_Obj *const objv[]);
1348 /* 465 */
1349 EXTERN ClientData   Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
1350                 const Tcl_Filesystem *fsPtr);
1351 /* 466 */
1352 EXTERN Tcl_Obj *    Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
1353                 Tcl_Obj *pathPtr);
1354 /* 467 */
1355 EXTERN int      Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
1356 /* 468 */
1357 EXTERN Tcl_Obj *    Tcl_FSNewNativePath(
1358                 const Tcl_Filesystem *fromFilesystem,
1359                 ClientData clientData);
1360 /* 469 */
1361 EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
1362 /* 470 */
1363 EXTERN Tcl_Obj *    Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
1364 /* 471 */
1365 EXTERN Tcl_Obj *    Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
1366 /* 472 */
1367 EXTERN Tcl_Obj *    Tcl_FSListVolumes(void);
1368 /* 473 */
1369 EXTERN int      Tcl_FSRegister(ClientData clientData,
1370                 const Tcl_Filesystem *fsPtr);
1371 /* 474 */
1372 EXTERN int      Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
1373 /* 475 */
1374 EXTERN ClientData   Tcl_FSData(const Tcl_Filesystem *fsPtr);
1375 /* 476 */
1376 EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
1377                 Tcl_Obj *pathPtr);
1378 /* 477 */
1379 EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
1380 /* 478 */
1381 EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
1382 /* 479 */
1383 EXTERN int      Tcl_OutputBuffered(Tcl_Channel chan);
1384 /* 480 */
1385 EXTERN void     Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
1386 /* 481 */
1387 EXTERN int      Tcl_EvalTokensStandard(Tcl_Interp *interp,
1388                 Tcl_Token *tokenPtr, int count);
1389 /* 482 */
1390 EXTERN void     Tcl_GetTime(Tcl_Time *timeBuf);
1391 /* 483 */
1392 EXTERN Tcl_Trace    Tcl_CreateObjTrace(Tcl_Interp *interp, int level,
1393                 int flags, Tcl_CmdObjTraceProc *objProc,
1394                 ClientData clientData,
1395                 Tcl_CmdObjTraceDeleteProc *delProc);
1396 /* 484 */
1397 EXTERN int      Tcl_GetCommandInfoFromToken(Tcl_Command token,
1398                 Tcl_CmdInfo *infoPtr);
1399 /* 485 */
1400 EXTERN int      Tcl_SetCommandInfoFromToken(Tcl_Command token,
1401                 const Tcl_CmdInfo *infoPtr);
1402 /* 486 */
1403 EXTERN Tcl_Obj *    Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
1404                 const char *file, int line);
1405 /* 487 */
1406 EXTERN int      Tcl_GetWideIntFromObj(Tcl_Interp *interp,
1407                 Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
1408 /* 488 */
1409 EXTERN Tcl_Obj *    Tcl_NewWideIntObj(Tcl_WideInt wideValue);
1410 /* 489 */
1411 EXTERN void     Tcl_SetWideIntObj(Tcl_Obj *objPtr,
1412                 Tcl_WideInt wideValue);
1413 /* 490 */
1414 EXTERN Tcl_StatBuf *    Tcl_AllocStatBuf(void);
1415 /* 491 */
1416 EXTERN Tcl_WideInt  Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
1417                 int mode);
1418 /* 492 */
1419 EXTERN Tcl_WideInt  Tcl_Tell(Tcl_Channel chan);
1420 /* 493 */
1421 EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
1422                 const Tcl_ChannelType *chanTypePtr);
1423 /* 494 */
1424 EXTERN int      Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1425                 Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
1426 /* 495 */
1427 EXTERN int      Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1428                 Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
1429 /* 496 */
1430 EXTERN int      Tcl_DictObjRemove(Tcl_Interp *interp,
1431                 Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
1432 /* 497 */
1433 EXTERN int      Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1434                 int *sizePtr);
1435 /* 498 */
1436 EXTERN int      Tcl_DictObjFirst(Tcl_Interp *interp,
1437                 Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
1438                 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1439                 int *donePtr);
1440 /* 499 */
1441 EXTERN void     Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
1442                 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1443                 int *donePtr);
1444 /* 500 */
1445 EXTERN void     Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
1446 /* 501 */
1447 EXTERN int      Tcl_DictObjPutKeyList(Tcl_Interp *interp,
1448                 Tcl_Obj *dictPtr, int keyc,
1449                 Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
1450 /* 502 */
1451 EXTERN int      Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
1452                 Tcl_Obj *dictPtr, int keyc,
1453                 Tcl_Obj *const *keyv);
1454 /* 503 */
1455 EXTERN Tcl_Obj *    Tcl_NewDictObj(void);
1456 /* 504 */
1457 EXTERN Tcl_Obj *    Tcl_DbNewDictObj(const char *file, int line);
1458 /* 505 */
1459 EXTERN void     Tcl_RegisterConfig(Tcl_Interp *interp,
1460                 const char *pkgName,
1461                 const Tcl_Config *configuration,
1462                 const char *valEncoding);
1463 /* 506 */
1464 EXTERN Tcl_Namespace *  Tcl_CreateNamespace(Tcl_Interp *interp,
1465                 const char *name, ClientData clientData,
1466                 Tcl_NamespaceDeleteProc *deleteProc);
1467 /* 507 */
1468 EXTERN void     Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
1469 /* 508 */
1470 EXTERN int      Tcl_AppendExportList(Tcl_Interp *interp,
1471                 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
1472 /* 509 */
1473 EXTERN int      Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1474                 const char *pattern, int resetListFirst);
1475 /* 510 */
1476 EXTERN int      Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1477                 const char *pattern, int allowOverwrite);
1478 /* 511 */
1479 EXTERN int      Tcl_ForgetImport(Tcl_Interp *interp,
1480                 Tcl_Namespace *nsPtr, const char *pattern);
1481 /* 512 */
1482 EXTERN Tcl_Namespace *  Tcl_GetCurrentNamespace(Tcl_Interp *interp);
1483 /* 513 */
1484 EXTERN Tcl_Namespace *  Tcl_GetGlobalNamespace(Tcl_Interp *interp);
1485 /* 514 */
1486 EXTERN Tcl_Namespace *  Tcl_FindNamespace(Tcl_Interp *interp,
1487                 const char *name,
1488                 Tcl_Namespace *contextNsPtr, int flags);
1489 /* 515 */
1490 EXTERN Tcl_Command  Tcl_FindCommand(Tcl_Interp *interp, const char *name,
1491                 Tcl_Namespace *contextNsPtr, int flags);
1492 /* 516 */
1493 EXTERN Tcl_Command  Tcl_GetCommandFromObj(Tcl_Interp *interp,
1494                 Tcl_Obj *objPtr);
1495 /* 517 */
1496 EXTERN void     Tcl_GetCommandFullName(Tcl_Interp *interp,
1497                 Tcl_Command command, Tcl_Obj *objPtr);
1498 /* 518 */
1499 EXTERN int      Tcl_FSEvalFileEx(Tcl_Interp *interp,
1500                 Tcl_Obj *fileName, const char *encodingName);
1501 /* 519 */
1502 EXTERN Tcl_ExitProc *   Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc);
1503 /* 520 */
1504 EXTERN void     Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
1505                 Tcl_LimitHandlerProc *handlerProc,
1506                 ClientData clientData,
1507                 Tcl_LimitHandlerDeleteProc *deleteProc);
1508 /* 521 */
1509 EXTERN void     Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
1510                 Tcl_LimitHandlerProc *handlerProc,
1511                 ClientData clientData);
1512 /* 522 */
1513 EXTERN int      Tcl_LimitReady(Tcl_Interp *interp);
1514 /* 523 */
1515 EXTERN int      Tcl_LimitCheck(Tcl_Interp *interp);
1516 /* 524 */
1517 EXTERN int      Tcl_LimitExceeded(Tcl_Interp *interp);
1518 /* 525 */
1519 EXTERN void     Tcl_LimitSetCommands(Tcl_Interp *interp,
1520                 int commandLimit);
1521 /* 526 */
1522 EXTERN void     Tcl_LimitSetTime(Tcl_Interp *interp,
1523                 Tcl_Time *timeLimitPtr);
1524 /* 527 */
1525 EXTERN void     Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
1526                 int granularity);
1527 /* 528 */
1528 EXTERN int      Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
1529 /* 529 */
1530 EXTERN int      Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
1531 /* 530 */
1532 EXTERN void     Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
1533 /* 531 */
1534 EXTERN void     Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
1535 /* 532 */
1536 EXTERN int      Tcl_LimitGetCommands(Tcl_Interp *interp);
1537 /* 533 */
1538 EXTERN void     Tcl_LimitGetTime(Tcl_Interp *interp,
1539                 Tcl_Time *timeLimitPtr);
1540 /* 534 */
1541 EXTERN int      Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
1542 /* 535 */
1543 EXTERN Tcl_InterpState  Tcl_SaveInterpState(Tcl_Interp *interp, int status);
1544 /* 536 */
1545 EXTERN int      Tcl_RestoreInterpState(Tcl_Interp *interp,
1546                 Tcl_InterpState state);
1547 /* 537 */
1548 EXTERN void     Tcl_DiscardInterpState(Tcl_InterpState state);
1549 /* 538 */
1550 EXTERN int      Tcl_SetReturnOptions(Tcl_Interp *interp,
1551                 Tcl_Obj *options);
1552 /* 539 */
1553 EXTERN Tcl_Obj *    Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
1554 /* 540 */
1555 EXTERN int      Tcl_IsEnsemble(Tcl_Command token);
1556 /* 541 */
1557 EXTERN Tcl_Command  Tcl_CreateEnsemble(Tcl_Interp *interp,
1558                 const char *name,
1559                 Tcl_Namespace *namespacePtr, int flags);
1560 /* 542 */
1561 EXTERN Tcl_Command  Tcl_FindEnsemble(Tcl_Interp *interp,
1562                 Tcl_Obj *cmdNameObj, int flags);
1563 /* 543 */
1564 EXTERN int      Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
1565                 Tcl_Command token, Tcl_Obj *subcmdList);
1566 /* 544 */
1567 EXTERN int      Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
1568                 Tcl_Command token, Tcl_Obj *mapDict);
1569 /* 545 */
1570 EXTERN int      Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
1571                 Tcl_Command token, Tcl_Obj *unknownList);
1572 /* 546 */
1573 EXTERN int      Tcl_SetEnsembleFlags(Tcl_Interp *interp,
1574                 Tcl_Command token, int flags);
1575 /* 547 */
1576 EXTERN int      Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
1577                 Tcl_Command token, Tcl_Obj **subcmdListPtr);
1578 /* 548 */
1579 EXTERN int      Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
1580                 Tcl_Command token, Tcl_Obj **mapDictPtr);
1581 /* 549 */
1582 EXTERN int      Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
1583                 Tcl_Command token, Tcl_Obj **unknownListPtr);
1584 /* 550 */
1585 EXTERN int      Tcl_GetEnsembleFlags(Tcl_Interp *interp,
1586                 Tcl_Command token, int *flagsPtr);
1587 /* 551 */
1588 EXTERN int      Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
1589                 Tcl_Command token,
1590                 Tcl_Namespace **namespacePtrPtr);
1591 /* 552 */
1592 EXTERN void     Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
1593                 Tcl_ScaleTimeProc *scaleProc,
1594                 ClientData clientData);
1595 /* 553 */
1596 EXTERN void     Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
1597                 Tcl_ScaleTimeProc **scaleProc,
1598                 ClientData *clientData);
1599 /* 554 */
1600 EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
1601                 const Tcl_ChannelType *chanTypePtr);
1602 /* 555 */
1603 EXTERN Tcl_Obj *    Tcl_NewBignumObj(mp_int *value);
1604 /* 556 */
1605 EXTERN Tcl_Obj *    Tcl_DbNewBignumObj(mp_int *value, const char *file,
1606                 int line);
1607 /* 557 */
1608 EXTERN void     Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value);
1609 /* 558 */
1610 EXTERN int      Tcl_GetBignumFromObj(Tcl_Interp *interp,
1611                 Tcl_Obj *obj, mp_int *value);
1612 /* 559 */
1613 EXTERN int      Tcl_TakeBignumFromObj(Tcl_Interp *interp,
1614                 Tcl_Obj *obj, mp_int *value);
1615 /* 560 */
1616 EXTERN int      Tcl_TruncateChannel(Tcl_Channel chan,
1617                 Tcl_WideInt length);
1618 /* 561 */
1619 EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
1620                 const Tcl_ChannelType *chanTypePtr);
1621 /* 562 */
1622 EXTERN void     Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
1623                 Tcl_Obj *msg);
1624 /* 563 */
1625 EXTERN void     Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
1626                 Tcl_Obj **msg);
1627 /* 564 */
1628 EXTERN void     Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
1629 /* 565 */
1630 EXTERN void     Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
1631 /* 566 */
1632 EXTERN int      Tcl_InitBignumFromDouble(Tcl_Interp *interp,
1633                 double initval, mp_int *toInit);
1634 /* 567 */
1635 EXTERN Tcl_Obj *    Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
1636                 Tcl_Namespace *nsPtr);
1637 /* 568 */
1638 EXTERN int      Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
1639                 Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
1640 /* 569 */
1641 EXTERN int      Tcl_GetEncodingFromObj(Tcl_Interp *interp,
1642                 Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
1643 /* 570 */
1644 EXTERN Tcl_Obj *    Tcl_GetEncodingSearchPath(void);
1645 /* 571 */
1646 EXTERN int      Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
1647 /* 572 */
1648 EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
1649                 Tcl_DString *bufPtr);
1650 /* 573 */
1651 EXTERN int      Tcl_PkgRequireProc(Tcl_Interp *interp,
1652                 const char *name, int objc,
1653                 Tcl_Obj *const objv[], void *clientDataPtr);
1654 /* 574 */
1655 EXTERN void     Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
1656                 Tcl_Obj *objPtr);
1657 /* 575 */
1658 EXTERN void     Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
1659                 const char *bytes, int length, int limit,
1660                 const char *ellipsis);
1661 /* 576 */
1662 EXTERN Tcl_Obj *    Tcl_Format(Tcl_Interp *interp, const char *format,
1663                 int objc, Tcl_Obj *const objv[]);
1664 /* 577 */
1665 EXTERN int      Tcl_AppendFormatToObj(Tcl_Interp *interp,
1666                 Tcl_Obj *objPtr, const char *format,
1667                 int objc, Tcl_Obj *const objv[]);
1668 /* 578 */
1669 EXTERN Tcl_Obj *    Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
1670 /* 579 */
1671 EXTERN void     Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
1672                 const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
1673 /* 580 */
1674 EXTERN int      Tcl_CancelEval(Tcl_Interp *interp,
1675                 Tcl_Obj *resultObjPtr, ClientData clientData,
1676                 int flags);
1677 /* 581 */
1678 EXTERN int      Tcl_Canceled(Tcl_Interp *interp, int flags);
1679 /* 582 */
1680 EXTERN int      Tcl_CreatePipe(Tcl_Interp *interp,
1681                 Tcl_Channel *rchan, Tcl_Channel *wchan,
1682                 int flags);
1683 /* 583 */
1684 EXTERN Tcl_Command  Tcl_NRCreateCommand(Tcl_Interp *interp,
1685                 const char *cmdName, Tcl_ObjCmdProc *proc,
1686                 Tcl_ObjCmdProc *nreProc,
1687                 ClientData clientData,
1688                 Tcl_CmdDeleteProc *deleteProc);
1689 /* 584 */
1690 EXTERN int      Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1691                 int flags);
1692 /* 585 */
1693 EXTERN int      Tcl_NREvalObjv(Tcl_Interp *interp, int objc,
1694                 Tcl_Obj *const objv[], int flags);
1695 /* 586 */
1696 EXTERN int      Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
1697                 int objc, Tcl_Obj *const objv[], int flags);
1698 /* 587 */
1699 EXTERN void     Tcl_NRAddCallback(Tcl_Interp *interp,
1700                 Tcl_NRPostProc *postProcPtr,
1701                 ClientData data0, ClientData data1,
1702                 ClientData data2, ClientData data3);
1703 /* 588 */
1704 EXTERN int      Tcl_NRCallObjProc(Tcl_Interp *interp,
1705                 Tcl_ObjCmdProc *objProc,
1706                 ClientData clientData, int objc,
1707                 Tcl_Obj *const objv[]);
1708 /* 589 */
1709 EXTERN unsigned     Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
1710 /* 590 */
1711 EXTERN unsigned     Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
1712 /* 591 */
1713 EXTERN unsigned     Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
1714 /* 592 */
1715 EXTERN int      Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
1716 /* 593 */
1717 EXTERN int      Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
1718 /* 594 */
1719 EXTERN int      Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
1720 /* 595 */
1721 EXTERN int      Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
1722 /* 596 */
1723 EXTERN Tcl_WideInt  Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
1724 /* 597 */
1725 EXTERN Tcl_WideInt  Tcl_GetModificationTimeFromStat(
1726                 const Tcl_StatBuf *statPtr);
1727 /* 598 */
1728 EXTERN Tcl_WideInt  Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
1729 /* 599 */
1730 EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
1731 /* 600 */
1732 EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
1733 /* 601 */
1734 EXTERN unsigned     Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
1735 /* 602 */
1736 EXTERN int      Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
1737                 Tcl_Command token, Tcl_Obj *paramList);
1738 /* 603 */
1739 EXTERN int      Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
1740                 Tcl_Command token, Tcl_Obj **paramListPtr);
1741 /* 604 */
1742 EXTERN int      Tcl_ParseArgsObjv(Tcl_Interp *interp,
1743                 const Tcl_ArgvInfo *argTable, int *objcPtr,
1744                 Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
1745 /* 605 */
1746 EXTERN int      Tcl_GetErrorLine(Tcl_Interp *interp);
1747 /* 606 */
1748 EXTERN void     Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
1749 /* 607 */
1750 EXTERN void     Tcl_TransferResult(Tcl_Interp *sourceInterp,
1751                 int code, Tcl_Interp *targetInterp);
1752 /* 608 */
1753 EXTERN int      Tcl_InterpActive(Tcl_Interp *interp);
1754 /* 609 */
1755 EXTERN void     Tcl_BackgroundException(Tcl_Interp *interp, int code);
1756 /* 610 */
1757 EXTERN int      Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
1758                 Tcl_Obj *data, int level,
1759                 Tcl_Obj *gzipHeaderDictObj);
1760 /* 611 */
1761 EXTERN int      Tcl_ZlibInflate(Tcl_Interp *interp, int format,
1762                 Tcl_Obj *data, int buffersize,
1763                 Tcl_Obj *gzipHeaderDictObj);
1764 /* 612 */
1765 EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
1766                 const unsigned char *buf, int len);
1767 /* 613 */
1768 EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
1769                 const unsigned char *buf, int len);
1770 /* 614 */
1771 EXTERN int      Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
1772                 int format, int level, Tcl_Obj *dictObj,
1773                 Tcl_ZlibStream *zshandle);
1774 /* 615 */
1775 EXTERN Tcl_Obj *    Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
1776 /* 616 */
1777 EXTERN int      Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
1778 /* 617 */
1779 EXTERN int      Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
1780 /* 618 */
1781 EXTERN int      Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
1782                 Tcl_Obj *data, int flush);
1783 /* 619 */
1784 EXTERN int      Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
1785                 Tcl_Obj *data, int count);
1786 /* 620 */
1787 EXTERN int      Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
1788 /* 621 */
1789 EXTERN int      Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
1790 /* 622 */
1791 EXTERN void     Tcl_SetStartupScript(Tcl_Obj *path,
1792                 const char *encoding);
1793 /* 623 */
1794 EXTERN Tcl_Obj *    Tcl_GetStartupScript(const char **encodingPtr);
1795 /* 624 */
1796 EXTERN int      Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
1797                 int flags);
1798 /* 625 */
1799 EXTERN int      Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1800                 Tcl_Obj *resultPtr);
1801 /* 626 */
1802 EXTERN int      Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1803                 int flags);
1804 /* 627 */
1805 EXTERN int      Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1806                 const char *const symv[], int flags,
1807                 void *procPtrs, Tcl_LoadHandle *handlePtr);
1808 /* 628 */
1809 EXTERN void *       Tcl_FindSymbol(Tcl_Interp *interp,
1810                 Tcl_LoadHandle handle, const char *symbol);
1811 /* 629 */
1812 EXTERN int      Tcl_FSUnloadFile(Tcl_Interp *interp,
1813                 Tcl_LoadHandle handlePtr);
1814 /* 630 */
1815 EXTERN void     Tcl_ZlibStreamSetCompressionDictionary(
1816                 Tcl_ZlibStream zhandle,
1817                 Tcl_Obj *compressionDictionaryObj);
1818 /* Slot 631 is reserved */
1819 /* Slot 632 is reserved */
1820 /* Slot 633 is reserved */
1821 /* Slot 634 is reserved */
1822 /* Slot 635 is reserved */
1823 /* Slot 636 is reserved */
1824 /* Slot 637 is reserved */
1825 /* Slot 638 is reserved */
1826 /* Slot 639 is reserved */
1827 /* Slot 640 is reserved */
1828 /* Slot 641 is reserved */
1829 /* Slot 642 is reserved */
1830 /* Slot 643 is reserved */
1831 /* Slot 644 is reserved */
1832 /* Slot 645 is reserved */
1833 /* Slot 646 is reserved */
1834 /* Slot 647 is reserved */
1835 /* Slot 648 is reserved */
1836 /* Slot 649 is reserved */
1837 /* Slot 650 is reserved */
1838 /* Slot 651 is reserved */
1839 /* Slot 652 is reserved */
1840 /* Slot 653 is reserved */
1841 /* Slot 654 is reserved */
1842 /* Slot 655 is reserved */
1843 /* Slot 656 is reserved */
1844 /* Slot 657 is reserved */
1845 /* Slot 658 is reserved */
1846 /* Slot 659 is reserved */
1847 /* 660 */
1848 EXTERN void     TclUnusedStubEntry(void);
1849 
1850 typedef struct {
1851     const struct TclPlatStubs *tclPlatStubs;
1852     const struct TclIntStubs *tclIntStubs;
1853     const struct TclIntPlatStubs *tclIntPlatStubs;
1854 } TclStubHooks;
1855 
1856 typedef struct TclStubs {
1857     int magic;
1858     const TclStubHooks *hooks;
1859 
1860     int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
1861     CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
1862     TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
1863     char * (*tcl_Alloc) (unsigned int size); /* 3 */
1864     void (*tcl_Free) (char *ptr); /* 4 */
1865     char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
1866     char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */
1867     void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
1868     char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */
1869 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
1870     void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
1871 #endif /* UNIX */
1872 #if defined(_WIN32) /* WIN */
1873     void (*reserved9)(void);
1874 #endif /* WIN */
1875 #ifdef MAC_OSX_TCL /* MACOSX */
1876     void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
1877 #endif /* MACOSX */
1878 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
1879     void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1880 #endif /* UNIX */
1881 #if defined(_WIN32) /* WIN */
1882     void (*reserved10)(void);
1883 #endif /* WIN */
1884 #ifdef MAC_OSX_TCL /* MACOSX */
1885     void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1886 #endif /* MACOSX */
1887     void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
1888     void (*tcl_Sleep) (int ms); /* 12 */
1889     int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
1890     int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
1891     void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
1892     void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */
1893     Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
1894     int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
1895     void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
1896     void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
1897     int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
1898     Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */
1899     Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */
1900     Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
1901     Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
1902     Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */
1903     Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
1904     Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */
1905     Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
1906     void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
1907     int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */
1908     int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */
1909     unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */
1910     int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
1911     int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
1912     int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */
1913     int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
1914     int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
1915     int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
1916     CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
1917     char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
1918     void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
1919     int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
1920     int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
1921     int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
1922     int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */
1923     int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */
1924     int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
1925     Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
1926     Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */
1927     Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
1928     Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
1929     Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
1930     Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
1931     Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
1932     Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
1933     void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */
1934     unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */
1935     void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */
1936     void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
1937     void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
1938     void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
1939     void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
1940     void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
1941     void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */
1942     void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */
1943     void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */
1944     void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
1945     void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
1946     void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
1947     Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */
1948     void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
1949     int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
1950     void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
1951     int (*tcl_AsyncReady) (void); /* 75 */
1952     void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
1953     char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
1954     int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
1955     void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */
1956     void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */
1957     int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
1958     int (*tcl_CommandComplete) (const char *cmd); /* 82 */
1959     char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
1960     int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
1961     int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
1962     int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
1963     int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
1964     Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
1965     void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
1966     void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
1967     Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
1968     void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */
1969     void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */
1970     Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
1971     void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
1972     Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
1973     Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
1974     Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
1975     Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
1976     void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
1977     void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */
1978     void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
1979     int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
1980     int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
1981     void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */
1982     void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */
1983     void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */
1984     void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
1985     void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
1986     void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
1987     void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
1988     void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
1989     void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
1990     void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */
1991     int (*tcl_DoOneEvent) (int flags); /* 115 */
1992     void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
1993     char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */
1994     char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
1995     void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
1996     void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
1997     void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
1998     void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
1999     void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
2000     void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */
2001     void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
2002     int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
2003     CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
2004     CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
2005     int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
2006     int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
2007     int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
2008     void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */
2009     TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
2010     int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
2011     int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
2012     int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
2013     int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
2014     int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
2015     int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
2016     int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
2017     int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
2018     int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
2019     void (*tcl_Finalize) (void); /* 143 */
2020     void (*tcl_FindExecutable) (const char *argv0); /* 144 */
2021     Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
2022     int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
2023     void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
2024     int (*tcl_GetAlias) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
2025     int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
2026     ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
2027     Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
2028     int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
2029     int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */
2030     ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
2031     int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
2032     CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
2033     int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
2034     CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
2035     int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
2036     CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
2037     int (*tcl_GetErrno) (void); /* 161 */
2038     CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
2039     int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
2040     Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
2041     const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
2042     Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
2043 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2044     int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
2045 #endif /* UNIX */
2046 #if defined(_WIN32) /* WIN */
2047     void (*reserved167)(void);
2048 #endif /* WIN */
2049 #ifdef MAC_OSX_TCL /* MACOSX */
2050     int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
2051 #endif /* MACOSX */
2052     Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
2053     int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
2054     int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
2055     int (*tcl_GetServiceMode) (void); /* 171 */
2056     Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *name); /* 172 */
2057     Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
2058     CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
2059     CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
2060     CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
2061     int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */
2062     int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
2063     int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
2064     int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
2065     void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
2066     int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
2067     int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
2068     int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
2069     int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
2070     char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */
2071     int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */
2072     void (*reserved188)(void);
2073     Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
2074     int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
2075     Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
2076     char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
2077     Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
2078     void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
2079     Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
2080     Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
2081     Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */
2082     Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
2083     Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */
2084     Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */
2085     void (*tcl_Preserve) (ClientData data); /* 201 */
2086     void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
2087     int (*tcl_PutEnv) (const char *assignment); /* 203 */
2088     CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
2089     void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
2090     int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
2091     void (*tcl_ReapDetachedProcs) (void); /* 207 */
2092     int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
2093     int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
2094     void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
2095     void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
2096     Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
2097     int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
2098     int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
2099     void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */
2100     void (*tcl_Release) (ClientData clientData); /* 216 */
2101     void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
2102     int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
2103     int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */
2104     int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
2105     int (*tcl_ServiceAll) (void); /* 221 */
2106     int (*tcl_ServiceEvent) (int flags); /* 222 */
2107     void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */
2108     void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
2109     int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
2110     int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
2111     void (*tcl_SetErrno) (int err); /* 227 */
2112     void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
2113     void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
2114     void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */
2115     int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
2116     void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */
2117     int (*tcl_SetServiceMode) (int mode); /* 233 */
2118     void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
2119     void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
2120     void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
2121     CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */
2122     CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
2123     CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
2124     CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
2125     void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
2126     int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */
2127     void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */
2128     void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
2129     int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */
2130     int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
2131     int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
2132     int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */
2133     char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
2134     int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */
2135     void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
2136     int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
2137     int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */
2138     int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
2139     void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
2140     void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */
2141     void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
2142     int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */
2143     int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
2144     int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
2145     ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */
2146     ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */
2147     int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
2148     void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */
2149     int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
2150     void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
2151     void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */
2152     void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
2153     char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
2154     CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */
2155     CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */
2156     CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
2157     int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */
2158     CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */
2159     void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */
2160     int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
2161     Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
2162     TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
2163     void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
2164     void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
2165     Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
2166     int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
2167     Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
2168     void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
2169     void (*reserved285)(void);
2170     void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
2171     Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
2172     void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */
2173     void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */
2174     void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
2175     int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */
2176     int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
2177     int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
2178     void (*tcl_ExitThread) (int status); /* 294 */
2179     int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
2180     char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */
2181     void (*tcl_FinalizeThread) (void); /* 297 */
2182     void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
2183     void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
2184     Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
2185     Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
2186     CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
2187     void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
2188     int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */
2189     void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */
2190     Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
2191     ClientData (*tcl_InitNotifier) (void); /* 307 */
2192     void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
2193     void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
2194     void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
2195     void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
2196     int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
2197     int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */
2198     void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */
2199     void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
2200     int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
2201     Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
2202     void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
2203     void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
2204     Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
2205     Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
2206     Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
2207     Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
2208     int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
2209     CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */
2210     int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
2211     int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
2212     CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
2213     CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
2214     CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
2215     CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */
2216     int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */
2217     char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */
2218     int (*tcl_UtfToLower) (char *src); /* 334 */
2219     int (*tcl_UtfToTitle) (char *src); /* 335 */
2220     int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */
2221     int (*tcl_UtfToUpper) (char *src); /* 337 */
2222     int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
2223     int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
2224     char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
2225     CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
2226     void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
2227     void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
2228     void (*tcl_ServiceModeHook) (int mode); /* 344 */
2229     int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
2230     int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
2231     int (*tcl_UniCharIsDigit) (int ch); /* 347 */
2232     int (*tcl_UniCharIsLower) (int ch); /* 348 */
2233     int (*tcl_UniCharIsSpace) (int ch); /* 349 */
2234     int (*tcl_UniCharIsUpper) (int ch); /* 350 */
2235     int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
2236     int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
2237     int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */
2238     char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */
2239     Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */
2240     Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
2241     Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */
2242     void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
2243     void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */
2244     int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
2245     int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
2246     int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */
2247     int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */
2248     int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
2249     char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
2250     int (*tcl_Chdir) (const char *dirName); /* 366 */
2251     int (*tcl_Access) (const char *path, int mode); /* 367 */
2252     int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
2253     int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */
2254     int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */
2255     int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
2256     int (*tcl_UniCharIsControl) (int ch); /* 372 */
2257     int (*tcl_UniCharIsGraph) (int ch); /* 373 */
2258     int (*tcl_UniCharIsPrint) (int ch); /* 374 */
2259     int (*tcl_UniCharIsPunct) (int ch); /* 375 */
2260     int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */
2261     void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
2262     Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */
2263     void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */
2264     int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
2265     Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
2266     Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
2267     Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */
2268     void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */
2269     int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
2270     void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
2271     Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
2272     int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
2273     int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
2274     int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */
2275     void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
2276     void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
2277     int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */
2278     int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */
2279     int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
2280     Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
2281     int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
2282     CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
2283     Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
2284     Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
2285     Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */
2286     Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
2287     Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
2288     Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
2289     Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */
2290     Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
2291     Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
2292     Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
2293     Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
2294     Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
2295     Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
2296     int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
2297     int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
2298     int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
2299     void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
2300     void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
2301     void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
2302     int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
2303     int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */
2304     int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */
2305     Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */
2306     Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
2307     void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
2308     void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
2309     ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */
2310     int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
2311     void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
2312     char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
2313     char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */
2314     char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
2315     char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */
2316     int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
2317     Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
2318     Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */
2319     int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */
2320     Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */
2321     Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
2322     int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
2323     int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
2324     int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
2325     int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
2326     int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
2327     int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
2328     int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */
2329     int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
2330     Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
2331     int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
2332     int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
2333     int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
2334     int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
2335     int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
2336     int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
2337     const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
2338     int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
2339     int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
2340     Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
2341     Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
2342     int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
2343     int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
2344     Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
2345     Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
2346     int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
2347     Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
2348     Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
2349     ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
2350     Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
2351     int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
2352     Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */
2353     const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
2354     Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
2355     Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
2356     Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
2357     int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */
2358     int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
2359     ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
2360     const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
2361     CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
2362     Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
2363     int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
2364     void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
2365     int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
2366     void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
2367     Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
2368     int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
2369     int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
2370     Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
2371     int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
2372     Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
2373     void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
2374     Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
2375     Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
2376     Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
2377     Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
2378     int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
2379     int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
2380     int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
2381     int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */
2382     int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
2383     void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
2384     void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
2385     int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
2386     int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */
2387     Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
2388     Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
2389     void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
2390     Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
2391     void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
2392     int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
2393     int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
2394     int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
2395     int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
2396     Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
2397     Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
2398     Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
2399     Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
2400     Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
2401     void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
2402     int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
2403     Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */
2404     void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
2405     void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */
2406     int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
2407     int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
2408     int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
2409     void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
2410     void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
2411     void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
2412     int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
2413     int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
2414     void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
2415     void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
2416     int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
2417     void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
2418     int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
2419     Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
2420     int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
2421     void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
2422     int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
2423     Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
2424     int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
2425     Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
2426     Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
2427     int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
2428     int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
2429     int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
2430     int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
2431     int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
2432     int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
2433     int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
2434     int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
2435     int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
2436     void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */
2437     void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
2438     Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
2439     Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
2440     Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */
2441     void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
2442     int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */
2443     int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
2444     int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
2445     Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
2446     void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
2447     void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
2448     void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
2449     void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
2450     int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */
2451     Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
2452     int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
2453     int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
2454     Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
2455     int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
2456     const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
2457     int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
2458     void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
2459     void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */
2460     Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */
2461     int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
2462     Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
2463     void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
2464     int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */
2465     int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
2466     int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
2467     Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
2468     int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
2469     int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
2470     int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
2471     void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
2472     int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
2473     unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
2474     unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
2475     unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
2476     int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
2477     int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
2478     int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
2479     int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
2480     Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
2481     Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
2482     Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
2483     Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
2484     Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
2485     unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
2486     int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
2487     int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
2488     int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
2489     int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
2490     void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
2491     void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
2492     int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
2493     void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
2494     int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
2495     int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
2496     unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */
2497     unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */
2498     int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
2499     Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
2500     int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
2501     int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
2502     int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
2503     int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */
2504     int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
2505     int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
2506     void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
2507     Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
2508     int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
2509     int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
2510     int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
2511     int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
2512     void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
2513     int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
2514     void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
2515     void (*reserved631)(void);
2516     void (*reserved632)(void);
2517     void (*reserved633)(void);
2518     void (*reserved634)(void);
2519     void (*reserved635)(void);
2520     void (*reserved636)(void);
2521     void (*reserved637)(void);
2522     void (*reserved638)(void);
2523     void (*reserved639)(void);
2524     void (*reserved640)(void);
2525     void (*reserved641)(void);
2526     void (*reserved642)(void);
2527     void (*reserved643)(void);
2528     void (*reserved644)(void);
2529     void (*reserved645)(void);
2530     void (*reserved646)(void);
2531     void (*reserved647)(void);
2532     void (*reserved648)(void);
2533     void (*reserved649)(void);
2534     void (*reserved650)(void);
2535     void (*reserved651)(void);
2536     void (*reserved652)(void);
2537     void (*reserved653)(void);
2538     void (*reserved654)(void);
2539     void (*reserved655)(void);
2540     void (*reserved656)(void);
2541     void (*reserved657)(void);
2542     void (*reserved658)(void);
2543     void (*reserved659)(void);
2544     void (*tclUnusedStubEntry) (void); /* 660 */
2545 } TclStubs;
2546 
2547 extern const TclStubs *tclStubsPtr;
2548 
2549 #ifdef __cplusplus
2550 }
2551 #endif
2552 
2553 #if defined(USE_TCL_STUBS)
2554 
2555 /*
2556  * Inline function declarations:
2557  */
2558 
2559 #define Tcl_PkgProvideEx \
2560     (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
2561 #define Tcl_PkgRequireEx \
2562     (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
2563 #define Tcl_Panic \
2564     (tclStubsPtr->tcl_Panic) /* 2 */
2565 #define Tcl_Alloc \
2566     (tclStubsPtr->tcl_Alloc) /* 3 */
2567 #define Tcl_Free \
2568     (tclStubsPtr->tcl_Free) /* 4 */
2569 #define Tcl_Realloc \
2570     (tclStubsPtr->tcl_Realloc) /* 5 */
2571 #define Tcl_DbCkalloc \
2572     (tclStubsPtr->tcl_DbCkalloc) /* 6 */
2573 #define Tcl_DbCkfree \
2574     (tclStubsPtr->tcl_DbCkfree) /* 7 */
2575 #define Tcl_DbCkrealloc \
2576     (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
2577 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2578 #define Tcl_CreateFileHandler \
2579     (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2580 #endif /* UNIX */
2581 #ifdef MAC_OSX_TCL /* MACOSX */
2582 #define Tcl_CreateFileHandler \
2583     (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2584 #endif /* MACOSX */
2585 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2586 #define Tcl_DeleteFileHandler \
2587     (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2588 #endif /* UNIX */
2589 #ifdef MAC_OSX_TCL /* MACOSX */
2590 #define Tcl_DeleteFileHandler \
2591     (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2592 #endif /* MACOSX */
2593 #define Tcl_SetTimer \
2594     (tclStubsPtr->tcl_SetTimer) /* 11 */
2595 #define Tcl_Sleep \
2596     (tclStubsPtr->tcl_Sleep) /* 12 */
2597 #define Tcl_WaitForEvent \
2598     (tclStubsPtr->tcl_WaitForEvent) /* 13 */
2599 #define Tcl_AppendAllObjTypes \
2600     (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
2601 #define Tcl_AppendStringsToObj \
2602     (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
2603 #define Tcl_AppendToObj \
2604     (tclStubsPtr->tcl_AppendToObj) /* 16 */
2605 #define Tcl_ConcatObj \
2606     (tclStubsPtr->tcl_ConcatObj) /* 17 */
2607 #define Tcl_ConvertToType \
2608     (tclStubsPtr->tcl_ConvertToType) /* 18 */
2609 #define Tcl_DbDecrRefCount \
2610     (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
2611 #define Tcl_DbIncrRefCount \
2612     (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
2613 #define Tcl_DbIsShared \
2614     (tclStubsPtr->tcl_DbIsShared) /* 21 */
2615 #define Tcl_DbNewBooleanObj \
2616     (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
2617 #define Tcl_DbNewByteArrayObj \
2618     (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
2619 #define Tcl_DbNewDoubleObj \
2620     (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
2621 #define Tcl_DbNewListObj \
2622     (tclStubsPtr->tcl_DbNewListObj) /* 25 */
2623 #define Tcl_DbNewLongObj \
2624     (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
2625 #define Tcl_DbNewObj \
2626     (tclStubsPtr->tcl_DbNewObj) /* 27 */
2627 #define Tcl_DbNewStringObj \
2628     (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
2629 #define Tcl_DuplicateObj \
2630     (tclStubsPtr->tcl_DuplicateObj) /* 29 */
2631 #define TclFreeObj \
2632     (tclStubsPtr->tclFreeObj) /* 30 */
2633 #define Tcl_GetBoolean \
2634     (tclStubsPtr->tcl_GetBoolean) /* 31 */
2635 #define Tcl_GetBooleanFromObj \
2636     (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
2637 #define Tcl_GetByteArrayFromObj \
2638     (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
2639 #define Tcl_GetDouble \
2640     (tclStubsPtr->tcl_GetDouble) /* 34 */
2641 #define Tcl_GetDoubleFromObj \
2642     (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
2643 #define Tcl_GetIndexFromObj \
2644     (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
2645 #define Tcl_GetInt \
2646     (tclStubsPtr->tcl_GetInt) /* 37 */
2647 #define Tcl_GetIntFromObj \
2648     (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
2649 #define Tcl_GetLongFromObj \
2650     (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
2651 #define Tcl_GetObjType \
2652     (tclStubsPtr->tcl_GetObjType) /* 40 */
2653 #define Tcl_GetStringFromObj \
2654     (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
2655 #define Tcl_InvalidateStringRep \
2656     (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
2657 #define Tcl_ListObjAppendList \
2658     (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
2659 #define Tcl_ListObjAppendElement \
2660     (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
2661 #define Tcl_ListObjGetElements \
2662     (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
2663 #define Tcl_ListObjIndex \
2664     (tclStubsPtr->tcl_ListObjIndex) /* 46 */
2665 #define Tcl_ListObjLength \
2666     (tclStubsPtr->tcl_ListObjLength) /* 47 */
2667 #define Tcl_ListObjReplace \
2668     (tclStubsPtr->tcl_ListObjReplace) /* 48 */
2669 #define Tcl_NewBooleanObj \
2670     (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
2671 #define Tcl_NewByteArrayObj \
2672     (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
2673 #define Tcl_NewDoubleObj \
2674     (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
2675 #define Tcl_NewIntObj \
2676     (tclStubsPtr->tcl_NewIntObj) /* 52 */
2677 #define Tcl_NewListObj \
2678     (tclStubsPtr->tcl_NewListObj) /* 53 */
2679 #define Tcl_NewLongObj \
2680     (tclStubsPtr->tcl_NewLongObj) /* 54 */
2681 #define Tcl_NewObj \
2682     (tclStubsPtr->tcl_NewObj) /* 55 */
2683 #define Tcl_NewStringObj \
2684     (tclStubsPtr->tcl_NewStringObj) /* 56 */
2685 #define Tcl_SetBooleanObj \
2686     (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
2687 #define Tcl_SetByteArrayLength \
2688     (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
2689 #define Tcl_SetByteArrayObj \
2690     (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
2691 #define Tcl_SetDoubleObj \
2692     (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
2693 #define Tcl_SetIntObj \
2694     (tclStubsPtr->tcl_SetIntObj) /* 61 */
2695 #define Tcl_SetListObj \
2696     (tclStubsPtr->tcl_SetListObj) /* 62 */
2697 #define Tcl_SetLongObj \
2698     (tclStubsPtr->tcl_SetLongObj) /* 63 */
2699 #define Tcl_SetObjLength \
2700     (tclStubsPtr->tcl_SetObjLength) /* 64 */
2701 #define Tcl_SetStringObj \
2702     (tclStubsPtr->tcl_SetStringObj) /* 65 */
2703 #define Tcl_AddErrorInfo \
2704     (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
2705 #define Tcl_AddObjErrorInfo \
2706     (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
2707 #define Tcl_AllowExceptions \
2708     (tclStubsPtr->tcl_AllowExceptions) /* 68 */
2709 #define Tcl_AppendElement \
2710     (tclStubsPtr->tcl_AppendElement) /* 69 */
2711 #define Tcl_AppendResult \
2712     (tclStubsPtr->tcl_AppendResult) /* 70 */
2713 #define Tcl_AsyncCreate \
2714     (tclStubsPtr->tcl_AsyncCreate) /* 71 */
2715 #define Tcl_AsyncDelete \
2716     (tclStubsPtr->tcl_AsyncDelete) /* 72 */
2717 #define Tcl_AsyncInvoke \
2718     (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
2719 #define Tcl_AsyncMark \
2720     (tclStubsPtr->tcl_AsyncMark) /* 74 */
2721 #define Tcl_AsyncReady \
2722     (tclStubsPtr->tcl_AsyncReady) /* 75 */
2723 #define Tcl_BackgroundError \
2724     (tclStubsPtr->tcl_BackgroundError) /* 76 */
2725 #define Tcl_Backslash \
2726     (tclStubsPtr->tcl_Backslash) /* 77 */
2727 #define Tcl_BadChannelOption \
2728     (tclStubsPtr->tcl_BadChannelOption) /* 78 */
2729 #define Tcl_CallWhenDeleted \
2730     (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
2731 #define Tcl_CancelIdleCall \
2732     (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
2733 #define Tcl_Close \
2734     (tclStubsPtr->tcl_Close) /* 81 */
2735 #define Tcl_CommandComplete \
2736     (tclStubsPtr->tcl_CommandComplete) /* 82 */
2737 #define Tcl_Concat \
2738     (tclStubsPtr->tcl_Concat) /* 83 */
2739 #define Tcl_ConvertElement \
2740     (tclStubsPtr->tcl_ConvertElement) /* 84 */
2741 #define Tcl_ConvertCountedElement \
2742     (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
2743 #define Tcl_CreateAlias \
2744     (tclStubsPtr->tcl_CreateAlias) /* 86 */
2745 #define Tcl_CreateAliasObj \
2746     (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
2747 #define Tcl_CreateChannel \
2748     (tclStubsPtr->tcl_CreateChannel) /* 88 */
2749 #define Tcl_CreateChannelHandler \
2750     (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
2751 #define Tcl_CreateCloseHandler \
2752     (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
2753 #define Tcl_CreateCommand \
2754     (tclStubsPtr->tcl_CreateCommand) /* 91 */
2755 #define Tcl_CreateEventSource \
2756     (tclStubsPtr->tcl_CreateEventSource) /* 92 */
2757 #define Tcl_CreateExitHandler \
2758     (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
2759 #define Tcl_CreateInterp \
2760     (tclStubsPtr->tcl_CreateInterp) /* 94 */
2761 #define Tcl_CreateMathFunc \
2762     (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
2763 #define Tcl_CreateObjCommand \
2764     (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
2765 #define Tcl_CreateSlave \
2766     (tclStubsPtr->tcl_CreateSlave) /* 97 */
2767 #define Tcl_CreateTimerHandler \
2768     (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
2769 #define Tcl_CreateTrace \
2770     (tclStubsPtr->tcl_CreateTrace) /* 99 */
2771 #define Tcl_DeleteAssocData \
2772     (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
2773 #define Tcl_DeleteChannelHandler \
2774     (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
2775 #define Tcl_DeleteCloseHandler \
2776     (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
2777 #define Tcl_DeleteCommand \
2778     (tclStubsPtr->tcl_DeleteCommand) /* 103 */
2779 #define Tcl_DeleteCommandFromToken \
2780     (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
2781 #define Tcl_DeleteEvents \
2782     (tclStubsPtr->tcl_DeleteEvents) /* 105 */
2783 #define Tcl_DeleteEventSource \
2784     (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
2785 #define Tcl_DeleteExitHandler \
2786     (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
2787 #define Tcl_DeleteHashEntry \
2788     (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
2789 #define Tcl_DeleteHashTable \
2790     (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
2791 #define Tcl_DeleteInterp \
2792     (tclStubsPtr->tcl_DeleteInterp) /* 110 */
2793 #define Tcl_DetachPids \
2794     (tclStubsPtr->tcl_DetachPids) /* 111 */
2795 #define Tcl_DeleteTimerHandler \
2796     (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
2797 #define Tcl_DeleteTrace \
2798     (tclStubsPtr->tcl_DeleteTrace) /* 113 */
2799 #define Tcl_DontCallWhenDeleted \
2800     (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
2801 #define Tcl_DoOneEvent \
2802     (tclStubsPtr->tcl_DoOneEvent) /* 115 */
2803 #define Tcl_DoWhenIdle \
2804     (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
2805 #define Tcl_DStringAppend \
2806     (tclStubsPtr->tcl_DStringAppend) /* 117 */
2807 #define Tcl_DStringAppendElement \
2808     (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
2809 #define Tcl_DStringEndSublist \
2810     (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
2811 #define Tcl_DStringFree \
2812     (tclStubsPtr->tcl_DStringFree) /* 120 */
2813 #define Tcl_DStringGetResult \
2814     (tclStubsPtr->tcl_DStringGetResult) /* 121 */
2815 #define Tcl_DStringInit \
2816     (tclStubsPtr->tcl_DStringInit) /* 122 */
2817 #define Tcl_DStringResult \
2818     (tclStubsPtr->tcl_DStringResult) /* 123 */
2819 #define Tcl_DStringSetLength \
2820     (tclStubsPtr->tcl_DStringSetLength) /* 124 */
2821 #define Tcl_DStringStartSublist \
2822     (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
2823 #define Tcl_Eof \
2824     (tclStubsPtr->tcl_Eof) /* 126 */
2825 #define Tcl_ErrnoId \
2826     (tclStubsPtr->tcl_ErrnoId) /* 127 */
2827 #define Tcl_ErrnoMsg \
2828     (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
2829 #define Tcl_Eval \
2830     (tclStubsPtr->tcl_Eval) /* 129 */
2831 #define Tcl_EvalFile \
2832     (tclStubsPtr->tcl_EvalFile) /* 130 */
2833 #define Tcl_EvalObj \
2834     (tclStubsPtr->tcl_EvalObj) /* 131 */
2835 #define Tcl_EventuallyFree \
2836     (tclStubsPtr->tcl_EventuallyFree) /* 132 */
2837 #define Tcl_Exit \
2838     (tclStubsPtr->tcl_Exit) /* 133 */
2839 #define Tcl_ExposeCommand \
2840     (tclStubsPtr->tcl_ExposeCommand) /* 134 */
2841 #define Tcl_ExprBoolean \
2842     (tclStubsPtr->tcl_ExprBoolean) /* 135 */
2843 #define Tcl_ExprBooleanObj \
2844     (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
2845 #define Tcl_ExprDouble \
2846     (tclStubsPtr->tcl_ExprDouble) /* 137 */
2847 #define Tcl_ExprDoubleObj \
2848     (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
2849 #define Tcl_ExprLong \
2850     (tclStubsPtr->tcl_ExprLong) /* 139 */
2851 #define Tcl_ExprLongObj \
2852     (tclStubsPtr->tcl_ExprLongObj) /* 140 */
2853 #define Tcl_ExprObj \
2854     (tclStubsPtr->tcl_ExprObj) /* 141 */
2855 #define Tcl_ExprString \
2856     (tclStubsPtr->tcl_ExprString) /* 142 */
2857 #define Tcl_Finalize \
2858     (tclStubsPtr->tcl_Finalize) /* 143 */
2859 #define Tcl_FindExecutable \
2860     (tclStubsPtr->tcl_FindExecutable) /* 144 */
2861 #define Tcl_FirstHashEntry \
2862     (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
2863 #define Tcl_Flush \
2864     (tclStubsPtr->tcl_Flush) /* 146 */
2865 #define Tcl_FreeResult \
2866     (tclStubsPtr->tcl_FreeResult) /* 147 */
2867 #define Tcl_GetAlias \
2868     (tclStubsPtr->tcl_GetAlias) /* 148 */
2869 #define Tcl_GetAliasObj \
2870     (tclStubsPtr->tcl_GetAliasObj) /* 149 */
2871 #define Tcl_GetAssocData \
2872     (tclStubsPtr->tcl_GetAssocData) /* 150 */
2873 #define Tcl_GetChannel \
2874     (tclStubsPtr->tcl_GetChannel) /* 151 */
2875 #define Tcl_GetChannelBufferSize \
2876     (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
2877 #define Tcl_GetChannelHandle \
2878     (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
2879 #define Tcl_GetChannelInstanceData \
2880     (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
2881 #define Tcl_GetChannelMode \
2882     (tclStubsPtr->tcl_GetChannelMode) /* 155 */
2883 #define Tcl_GetChannelName \
2884     (tclStubsPtr->tcl_GetChannelName) /* 156 */
2885 #define Tcl_GetChannelOption \
2886     (tclStubsPtr->tcl_GetChannelOption) /* 157 */
2887 #define Tcl_GetChannelType \
2888     (tclStubsPtr->tcl_GetChannelType) /* 158 */
2889 #define Tcl_GetCommandInfo \
2890     (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
2891 #define Tcl_GetCommandName \
2892     (tclStubsPtr->tcl_GetCommandName) /* 160 */
2893 #define Tcl_GetErrno \
2894     (tclStubsPtr->tcl_GetErrno) /* 161 */
2895 #define Tcl_GetHostName \
2896     (tclStubsPtr->tcl_GetHostName) /* 162 */
2897 #define Tcl_GetInterpPath \
2898     (tclStubsPtr->tcl_GetInterpPath) /* 163 */
2899 #define Tcl_GetMaster \
2900     (tclStubsPtr->tcl_GetMaster) /* 164 */
2901 #define Tcl_GetNameOfExecutable \
2902     (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
2903 #define Tcl_GetObjResult \
2904     (tclStubsPtr->tcl_GetObjResult) /* 166 */
2905 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2906 #define Tcl_GetOpenFile \
2907     (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2908 #endif /* UNIX */
2909 #ifdef MAC_OSX_TCL /* MACOSX */
2910 #define Tcl_GetOpenFile \
2911     (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2912 #endif /* MACOSX */
2913 #define Tcl_GetPathType \
2914     (tclStubsPtr->tcl_GetPathType) /* 168 */
2915 #define Tcl_Gets \
2916     (tclStubsPtr->tcl_Gets) /* 169 */
2917 #define Tcl_GetsObj \
2918     (tclStubsPtr->tcl_GetsObj) /* 170 */
2919 #define Tcl_GetServiceMode \
2920     (tclStubsPtr->tcl_GetServiceMode) /* 171 */
2921 #define Tcl_GetSlave \
2922     (tclStubsPtr->tcl_GetSlave) /* 172 */
2923 #define Tcl_GetStdChannel \
2924     (tclStubsPtr->tcl_GetStdChannel) /* 173 */
2925 #define Tcl_GetStringResult \
2926     (tclStubsPtr->tcl_GetStringResult) /* 174 */
2927 #define Tcl_GetVar \
2928     (tclStubsPtr->tcl_GetVar) /* 175 */
2929 #define Tcl_GetVar2 \
2930     (tclStubsPtr->tcl_GetVar2) /* 176 */
2931 #define Tcl_GlobalEval \
2932     (tclStubsPtr->tcl_GlobalEval) /* 177 */
2933 #define Tcl_GlobalEvalObj \
2934     (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
2935 #define Tcl_HideCommand \
2936     (tclStubsPtr->tcl_HideCommand) /* 179 */
2937 #define Tcl_Init \
2938     (tclStubsPtr->tcl_Init) /* 180 */
2939 #define Tcl_InitHashTable \
2940     (tclStubsPtr->tcl_InitHashTable) /* 181 */
2941 #define Tcl_InputBlocked \
2942     (tclStubsPtr->tcl_InputBlocked) /* 182 */
2943 #define Tcl_InputBuffered \
2944     (tclStubsPtr->tcl_InputBuffered) /* 183 */
2945 #define Tcl_InterpDeleted \
2946     (tclStubsPtr->tcl_InterpDeleted) /* 184 */
2947 #define Tcl_IsSafe \
2948     (tclStubsPtr->tcl_IsSafe) /* 185 */
2949 #define Tcl_JoinPath \
2950     (tclStubsPtr->tcl_JoinPath) /* 186 */
2951 #define Tcl_LinkVar \
2952     (tclStubsPtr->tcl_LinkVar) /* 187 */
2953 /* Slot 188 is reserved */
2954 #define Tcl_MakeFileChannel \
2955     (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
2956 #define Tcl_MakeSafe \
2957     (tclStubsPtr->tcl_MakeSafe) /* 190 */
2958 #define Tcl_MakeTcpClientChannel \
2959     (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
2960 #define Tcl_Merge \
2961     (tclStubsPtr->tcl_Merge) /* 192 */
2962 #define Tcl_NextHashEntry \
2963     (tclStubsPtr->tcl_NextHashEntry) /* 193 */
2964 #define Tcl_NotifyChannel \
2965     (tclStubsPtr->tcl_NotifyChannel) /* 194 */
2966 #define Tcl_ObjGetVar2 \
2967     (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
2968 #define Tcl_ObjSetVar2 \
2969     (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
2970 #define Tcl_OpenCommandChannel \
2971     (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
2972 #define Tcl_OpenFileChannel \
2973     (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
2974 #define Tcl_OpenTcpClient \
2975     (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
2976 #define Tcl_OpenTcpServer \
2977     (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
2978 #define Tcl_Preserve \
2979     (tclStubsPtr->tcl_Preserve) /* 201 */
2980 #define Tcl_PrintDouble \
2981     (tclStubsPtr->tcl_PrintDouble) /* 202 */
2982 #define Tcl_PutEnv \
2983     (tclStubsPtr->tcl_PutEnv) /* 203 */
2984 #define Tcl_PosixError \
2985     (tclStubsPtr->tcl_PosixError) /* 204 */
2986 #define Tcl_QueueEvent \
2987     (tclStubsPtr->tcl_QueueEvent) /* 205 */
2988 #define Tcl_Read \
2989     (tclStubsPtr->tcl_Read) /* 206 */
2990 #define Tcl_ReapDetachedProcs \
2991     (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
2992 #define Tcl_RecordAndEval \
2993     (tclStubsPtr->tcl_RecordAndEval) /* 208 */
2994 #define Tcl_RecordAndEvalObj \
2995     (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
2996 #define Tcl_RegisterChannel \
2997     (tclStubsPtr->tcl_RegisterChannel) /* 210 */
2998 #define Tcl_RegisterObjType \
2999     (tclStubsPtr->tcl_RegisterObjType) /* 211 */
3000 #define Tcl_RegExpCompile \
3001     (tclStubsPtr->tcl_RegExpCompile) /* 212 */
3002 #define Tcl_RegExpExec \
3003     (tclStubsPtr->tcl_RegExpExec) /* 213 */
3004 #define Tcl_RegExpMatch \
3005     (tclStubsPtr->tcl_RegExpMatch) /* 214 */
3006 #define Tcl_RegExpRange \
3007     (tclStubsPtr->tcl_RegExpRange) /* 215 */
3008 #define Tcl_Release \
3009     (tclStubsPtr->tcl_Release) /* 216 */
3010 #define Tcl_ResetResult \
3011     (tclStubsPtr->tcl_ResetResult) /* 217 */
3012 #define Tcl_ScanElement \
3013     (tclStubsPtr->tcl_ScanElement) /* 218 */
3014 #define Tcl_ScanCountedElement \
3015     (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
3016 #define Tcl_SeekOld \
3017     (tclStubsPtr->tcl_SeekOld) /* 220 */
3018 #define Tcl_ServiceAll \
3019     (tclStubsPtr->tcl_ServiceAll) /* 221 */
3020 #define Tcl_ServiceEvent \
3021     (tclStubsPtr->tcl_ServiceEvent) /* 222 */
3022 #define Tcl_SetAssocData \
3023     (tclStubsPtr->tcl_SetAssocData) /* 223 */
3024 #define Tcl_SetChannelBufferSize \
3025     (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
3026 #define Tcl_SetChannelOption \
3027     (tclStubsPtr->tcl_SetChannelOption) /* 225 */
3028 #define Tcl_SetCommandInfo \
3029     (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
3030 #define Tcl_SetErrno \
3031     (tclStubsPtr->tcl_SetErrno) /* 227 */
3032 #define Tcl_SetErrorCode \
3033     (tclStubsPtr->tcl_SetErrorCode) /* 228 */
3034 #define Tcl_SetMaxBlockTime \
3035     (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
3036 #define Tcl_SetPanicProc \
3037     (tclStubsPtr->tcl_SetPanicProc) /* 230 */
3038 #define Tcl_SetRecursionLimit \
3039     (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
3040 #define Tcl_SetResult \
3041     (tclStubsPtr->tcl_SetResult) /* 232 */
3042 #define Tcl_SetServiceMode \
3043     (tclStubsPtr->tcl_SetServiceMode) /* 233 */
3044 #define Tcl_SetObjErrorCode \
3045     (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
3046 #define Tcl_SetObjResult \
3047     (tclStubsPtr->tcl_SetObjResult) /* 235 */
3048 #define Tcl_SetStdChannel \
3049     (tclStubsPtr->tcl_SetStdChannel) /* 236 */
3050 #define Tcl_SetVar \
3051     (tclStubsPtr->tcl_SetVar) /* 237 */
3052 #define Tcl_SetVar2 \
3053     (tclStubsPtr->tcl_SetVar2) /* 238 */
3054 #define Tcl_SignalId \
3055     (tclStubsPtr->tcl_SignalId) /* 239 */
3056 #define Tcl_SignalMsg \
3057     (tclStubsPtr->tcl_SignalMsg) /* 240 */
3058 #define Tcl_SourceRCFile \
3059     (tclStubsPtr->tcl_SourceRCFile) /* 241 */
3060 #define Tcl_SplitList \
3061     (tclStubsPtr->tcl_SplitList) /* 242 */
3062 #define Tcl_SplitPath \
3063     (tclStubsPtr->tcl_SplitPath) /* 243 */
3064 #define Tcl_StaticPackage \
3065     (tclStubsPtr->tcl_StaticPackage) /* 244 */
3066 #define Tcl_StringMatch \
3067     (tclStubsPtr->tcl_StringMatch) /* 245 */
3068 #define Tcl_TellOld \
3069     (tclStubsPtr->tcl_TellOld) /* 246 */
3070 #define Tcl_TraceVar \
3071     (tclStubsPtr->tcl_TraceVar) /* 247 */
3072 #define Tcl_TraceVar2 \
3073     (tclStubsPtr->tcl_TraceVar2) /* 248 */
3074 #define Tcl_TranslateFileName \
3075     (tclStubsPtr->tcl_TranslateFileName) /* 249 */
3076 #define Tcl_Ungets \
3077     (tclStubsPtr->tcl_Ungets) /* 250 */
3078 #define Tcl_UnlinkVar \
3079     (tclStubsPtr->tcl_UnlinkVar) /* 251 */
3080 #define Tcl_UnregisterChannel \
3081     (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
3082 #define Tcl_UnsetVar \
3083     (tclStubsPtr->tcl_UnsetVar) /* 253 */
3084 #define Tcl_UnsetVar2 \
3085     (tclStubsPtr->tcl_UnsetVar2) /* 254 */
3086 #define Tcl_UntraceVar \
3087     (tclStubsPtr->tcl_UntraceVar) /* 255 */
3088 #define Tcl_UntraceVar2 \
3089     (tclStubsPtr->tcl_UntraceVar2) /* 256 */
3090 #define Tcl_UpdateLinkedVar \
3091     (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
3092 #define Tcl_UpVar \
3093     (tclStubsPtr->tcl_UpVar) /* 258 */
3094 #define Tcl_UpVar2 \
3095     (tclStubsPtr->tcl_UpVar2) /* 259 */
3096 #define Tcl_VarEval \
3097     (tclStubsPtr->tcl_VarEval) /* 260 */
3098 #define Tcl_VarTraceInfo \
3099     (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
3100 #define Tcl_VarTraceInfo2 \
3101     (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
3102 #define Tcl_Write \
3103     (tclStubsPtr->tcl_Write) /* 263 */
3104 #define Tcl_WrongNumArgs \
3105     (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
3106 #define Tcl_DumpActiveMemory \
3107     (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
3108 #define Tcl_ValidateAllMemory \
3109     (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
3110 #define Tcl_AppendResultVA \
3111     (tclStubsPtr->tcl_AppendResultVA) /* 267 */
3112 #define Tcl_AppendStringsToObjVA \
3113     (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
3114 #define Tcl_HashStats \
3115     (tclStubsPtr->tcl_HashStats) /* 269 */
3116 #define Tcl_ParseVar \
3117     (tclStubsPtr->tcl_ParseVar) /* 270 */
3118 #define Tcl_PkgPresent \
3119     (tclStubsPtr->tcl_PkgPresent) /* 271 */
3120 #define Tcl_PkgPresentEx \
3121     (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
3122 #define Tcl_PkgProvide \
3123     (tclStubsPtr->tcl_PkgProvide) /* 273 */
3124 #define Tcl_PkgRequire \
3125     (tclStubsPtr->tcl_PkgRequire) /* 274 */
3126 #define Tcl_SetErrorCodeVA \
3127     (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
3128 #define Tcl_VarEvalVA \
3129     (tclStubsPtr->tcl_VarEvalVA) /* 276 */
3130 #define Tcl_WaitPid \
3131     (tclStubsPtr->tcl_WaitPid) /* 277 */
3132 #define Tcl_PanicVA \
3133     (tclStubsPtr->tcl_PanicVA) /* 278 */
3134 #define Tcl_GetVersion \
3135     (tclStubsPtr->tcl_GetVersion) /* 279 */
3136 #define Tcl_InitMemory \
3137     (tclStubsPtr->tcl_InitMemory) /* 280 */
3138 #define Tcl_StackChannel \
3139     (tclStubsPtr->tcl_StackChannel) /* 281 */
3140 #define Tcl_UnstackChannel \
3141     (tclStubsPtr->tcl_UnstackChannel) /* 282 */
3142 #define Tcl_GetStackedChannel \
3143     (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
3144 #define Tcl_SetMainLoop \
3145     (tclStubsPtr->tcl_SetMainLoop) /* 284 */
3146 /* Slot 285 is reserved */
3147 #define Tcl_AppendObjToObj \
3148     (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
3149 #define Tcl_CreateEncoding \
3150     (tclStubsPtr->tcl_CreateEncoding) /* 287 */
3151 #define Tcl_CreateThreadExitHandler \
3152     (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
3153 #define Tcl_DeleteThreadExitHandler \
3154     (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
3155 #define Tcl_DiscardResult \
3156     (tclStubsPtr->tcl_DiscardResult) /* 290 */
3157 #define Tcl_EvalEx \
3158     (tclStubsPtr->tcl_EvalEx) /* 291 */
3159 #define Tcl_EvalObjv \
3160     (tclStubsPtr->tcl_EvalObjv) /* 292 */
3161 #define Tcl_EvalObjEx \
3162     (tclStubsPtr->tcl_EvalObjEx) /* 293 */
3163 #define Tcl_ExitThread \
3164     (tclStubsPtr->tcl_ExitThread) /* 294 */
3165 #define Tcl_ExternalToUtf \
3166     (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
3167 #define Tcl_ExternalToUtfDString \
3168     (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
3169 #define Tcl_FinalizeThread \
3170     (tclStubsPtr->tcl_FinalizeThread) /* 297 */
3171 #define Tcl_FinalizeNotifier \
3172     (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
3173 #define Tcl_FreeEncoding \
3174     (tclStubsPtr->tcl_FreeEncoding) /* 299 */
3175 #define Tcl_GetCurrentThread \
3176     (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
3177 #define Tcl_GetEncoding \
3178     (tclStubsPtr->tcl_GetEncoding) /* 301 */
3179 #define Tcl_GetEncodingName \
3180     (tclStubsPtr->tcl_GetEncodingName) /* 302 */
3181 #define Tcl_GetEncodingNames \
3182     (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
3183 #define Tcl_GetIndexFromObjStruct \
3184     (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
3185 #define Tcl_GetThreadData \
3186     (tclStubsPtr->tcl_GetThreadData) /* 305 */
3187 #define Tcl_GetVar2Ex \
3188     (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
3189 #define Tcl_InitNotifier \
3190     (tclStubsPtr->tcl_InitNotifier) /* 307 */
3191 #define Tcl_MutexLock \
3192     (tclStubsPtr->tcl_MutexLock) /* 308 */
3193 #define Tcl_MutexUnlock \
3194     (tclStubsPtr->tcl_MutexUnlock) /* 309 */
3195 #define Tcl_ConditionNotify \
3196     (tclStubsPtr->tcl_ConditionNotify) /* 310 */
3197 #define Tcl_ConditionWait \
3198     (tclStubsPtr->tcl_ConditionWait) /* 311 */
3199 #define Tcl_NumUtfChars \
3200     (tclStubsPtr->tcl_NumUtfChars) /* 312 */
3201 #define Tcl_ReadChars \
3202     (tclStubsPtr->tcl_ReadChars) /* 313 */
3203 #define Tcl_RestoreResult \
3204     (tclStubsPtr->tcl_RestoreResult) /* 314 */
3205 #define Tcl_SaveResult \
3206     (tclStubsPtr->tcl_SaveResult) /* 315 */
3207 #define Tcl_SetSystemEncoding \
3208     (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
3209 #define Tcl_SetVar2Ex \
3210     (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
3211 #define Tcl_ThreadAlert \
3212     (tclStubsPtr->tcl_ThreadAlert) /* 318 */
3213 #define Tcl_ThreadQueueEvent \
3214     (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
3215 #define Tcl_UniCharAtIndex \
3216     (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
3217 #define Tcl_UniCharToLower \
3218     (tclStubsPtr->tcl_UniCharToLower) /* 321 */
3219 #define Tcl_UniCharToTitle \
3220     (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
3221 #define Tcl_UniCharToUpper \
3222     (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
3223 #define Tcl_UniCharToUtf \
3224     (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
3225 #define Tcl_UtfAtIndex \
3226     (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
3227 #define Tcl_UtfCharComplete \
3228     (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
3229 #define Tcl_UtfBackslash \
3230     (tclStubsPtr->tcl_UtfBackslash) /* 327 */
3231 #define Tcl_UtfFindFirst \
3232     (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
3233 #define Tcl_UtfFindLast \
3234     (tclStubsPtr->tcl_UtfFindLast) /* 329 */
3235 #define Tcl_UtfNext \
3236     (tclStubsPtr->tcl_UtfNext) /* 330 */
3237 #define Tcl_UtfPrev \
3238     (tclStubsPtr->tcl_UtfPrev) /* 331 */
3239 #define Tcl_UtfToExternal \
3240     (tclStubsPtr->tcl_UtfToExternal) /* 332 */
3241 #define Tcl_UtfToExternalDString \
3242     (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
3243 #define Tcl_UtfToLower \
3244     (tclStubsPtr->tcl_UtfToLower) /* 334 */
3245 #define Tcl_UtfToTitle \
3246     (tclStubsPtr->tcl_UtfToTitle) /* 335 */
3247 #define Tcl_UtfToUniChar \
3248     (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
3249 #define Tcl_UtfToUpper \
3250     (tclStubsPtr->tcl_UtfToUpper) /* 337 */
3251 #define Tcl_WriteChars \
3252     (tclStubsPtr->tcl_WriteChars) /* 338 */
3253 #define Tcl_WriteObj \
3254     (tclStubsPtr->tcl_WriteObj) /* 339 */
3255 #define Tcl_GetString \
3256     (tclStubsPtr->tcl_GetString) /* 340 */
3257 #define Tcl_GetDefaultEncodingDir \
3258     (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
3259 #define Tcl_SetDefaultEncodingDir \
3260     (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
3261 #define Tcl_AlertNotifier \
3262     (tclStubsPtr->tcl_AlertNotifier) /* 343 */
3263 #define Tcl_ServiceModeHook \
3264     (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
3265 #define Tcl_UniCharIsAlnum \
3266     (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
3267 #define Tcl_UniCharIsAlpha \
3268     (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
3269 #define Tcl_UniCharIsDigit \
3270     (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
3271 #define Tcl_UniCharIsLower \
3272     (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
3273 #define Tcl_UniCharIsSpace \
3274     (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
3275 #define Tcl_UniCharIsUpper \
3276     (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
3277 #define Tcl_UniCharIsWordChar \
3278     (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
3279 #define Tcl_UniCharLen \
3280     (tclStubsPtr->tcl_UniCharLen) /* 352 */
3281 #define Tcl_UniCharNcmp \
3282     (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
3283 #define Tcl_UniCharToUtfDString \
3284     (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
3285 #define Tcl_UtfToUniCharDString \
3286     (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
3287 #define Tcl_GetRegExpFromObj \
3288     (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
3289 #define Tcl_EvalTokens \
3290     (tclStubsPtr->tcl_EvalTokens) /* 357 */
3291 #define Tcl_FreeParse \
3292     (tclStubsPtr->tcl_FreeParse) /* 358 */
3293 #define Tcl_LogCommandInfo \
3294     (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
3295 #define Tcl_ParseBraces \
3296     (tclStubsPtr->tcl_ParseBraces) /* 360 */
3297 #define Tcl_ParseCommand \
3298     (tclStubsPtr->tcl_ParseCommand) /* 361 */
3299 #define Tcl_ParseExpr \
3300     (tclStubsPtr->tcl_ParseExpr) /* 362 */
3301 #define Tcl_ParseQuotedString \
3302     (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
3303 #define Tcl_ParseVarName \
3304     (tclStubsPtr->tcl_ParseVarName) /* 364 */
3305 #define Tcl_GetCwd \
3306     (tclStubsPtr->tcl_GetCwd) /* 365 */
3307 #define Tcl_Chdir \
3308     (tclStubsPtr->tcl_Chdir) /* 366 */
3309 #define Tcl_Access \
3310     (tclStubsPtr->tcl_Access) /* 367 */
3311 #define Tcl_Stat \
3312     (tclStubsPtr->tcl_Stat) /* 368 */
3313 #define Tcl_UtfNcmp \
3314     (tclStubsPtr->tcl_UtfNcmp) /* 369 */
3315 #define Tcl_UtfNcasecmp \
3316     (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
3317 #define Tcl_StringCaseMatch \
3318     (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
3319 #define Tcl_UniCharIsControl \
3320     (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
3321 #define Tcl_UniCharIsGraph \
3322     (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
3323 #define Tcl_UniCharIsPrint \
3324     (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
3325 #define Tcl_UniCharIsPunct \
3326     (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
3327 #define Tcl_RegExpExecObj \
3328     (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
3329 #define Tcl_RegExpGetInfo \
3330     (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
3331 #define Tcl_NewUnicodeObj \
3332     (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
3333 #define Tcl_SetUnicodeObj \
3334     (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
3335 #define Tcl_GetCharLength \
3336     (tclStubsPtr->tcl_GetCharLength) /* 380 */
3337 #define Tcl_GetUniChar \
3338     (tclStubsPtr->tcl_GetUniChar) /* 381 */
3339 #define Tcl_GetUnicode \
3340     (tclStubsPtr->tcl_GetUnicode) /* 382 */
3341 #define Tcl_GetRange \
3342     (tclStubsPtr->tcl_GetRange) /* 383 */
3343 #define Tcl_AppendUnicodeToObj \
3344     (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
3345 #define Tcl_RegExpMatchObj \
3346     (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
3347 #define Tcl_SetNotifier \
3348     (tclStubsPtr->tcl_SetNotifier) /* 386 */
3349 #define Tcl_GetAllocMutex \
3350     (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
3351 #define Tcl_GetChannelNames \
3352     (tclStubsPtr->tcl_GetChannelNames) /* 388 */
3353 #define Tcl_GetChannelNamesEx \
3354     (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
3355 #define Tcl_ProcObjCmd \
3356     (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
3357 #define Tcl_ConditionFinalize \
3358     (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
3359 #define Tcl_MutexFinalize \
3360     (tclStubsPtr->tcl_MutexFinalize) /* 392 */
3361 #define Tcl_CreateThread \
3362     (tclStubsPtr->tcl_CreateThread) /* 393 */
3363 #define Tcl_ReadRaw \
3364     (tclStubsPtr->tcl_ReadRaw) /* 394 */
3365 #define Tcl_WriteRaw \
3366     (tclStubsPtr->tcl_WriteRaw) /* 395 */
3367 #define Tcl_GetTopChannel \
3368     (tclStubsPtr->tcl_GetTopChannel) /* 396 */
3369 #define Tcl_ChannelBuffered \
3370     (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
3371 #define Tcl_ChannelName \
3372     (tclStubsPtr->tcl_ChannelName) /* 398 */
3373 #define Tcl_ChannelVersion \
3374     (tclStubsPtr->tcl_ChannelVersion) /* 399 */
3375 #define Tcl_ChannelBlockModeProc \
3376     (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
3377 #define Tcl_ChannelCloseProc \
3378     (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
3379 #define Tcl_ChannelClose2Proc \
3380     (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
3381 #define Tcl_ChannelInputProc \
3382     (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
3383 #define Tcl_ChannelOutputProc \
3384     (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
3385 #define Tcl_ChannelSeekProc \
3386     (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
3387 #define Tcl_ChannelSetOptionProc \
3388     (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
3389 #define Tcl_ChannelGetOptionProc \
3390     (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
3391 #define Tcl_ChannelWatchProc \
3392     (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
3393 #define Tcl_ChannelGetHandleProc \
3394     (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
3395 #define Tcl_ChannelFlushProc \
3396     (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
3397 #define Tcl_ChannelHandlerProc \
3398     (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
3399 #define Tcl_JoinThread \
3400     (tclStubsPtr->tcl_JoinThread) /* 412 */
3401 #define Tcl_IsChannelShared \
3402     (tclStubsPtr->tcl_IsChannelShared) /* 413 */
3403 #define Tcl_IsChannelRegistered \
3404     (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
3405 #define Tcl_CutChannel \
3406     (tclStubsPtr->tcl_CutChannel) /* 415 */
3407 #define Tcl_SpliceChannel \
3408     (tclStubsPtr->tcl_SpliceChannel) /* 416 */
3409 #define Tcl_ClearChannelHandlers \
3410     (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
3411 #define Tcl_IsChannelExisting \
3412     (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
3413 #define Tcl_UniCharNcasecmp \
3414     (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
3415 #define Tcl_UniCharCaseMatch \
3416     (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
3417 #define Tcl_FindHashEntry \
3418     (tclStubsPtr->tcl_FindHashEntry) /* 421 */
3419 #define Tcl_CreateHashEntry \
3420     (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
3421 #define Tcl_InitCustomHashTable \
3422     (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
3423 #define Tcl_InitObjHashTable \
3424     (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
3425 #define Tcl_CommandTraceInfo \
3426     (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
3427 #define Tcl_TraceCommand \
3428     (tclStubsPtr->tcl_TraceCommand) /* 426 */
3429 #define Tcl_UntraceCommand \
3430     (tclStubsPtr->tcl_UntraceCommand) /* 427 */
3431 #define Tcl_AttemptAlloc \
3432     (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
3433 #define Tcl_AttemptDbCkalloc \
3434     (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
3435 #define Tcl_AttemptRealloc \
3436     (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
3437 #define Tcl_AttemptDbCkrealloc \
3438     (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
3439 #define Tcl_AttemptSetObjLength \
3440     (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
3441 #define Tcl_GetChannelThread \
3442     (tclStubsPtr->tcl_GetChannelThread) /* 433 */
3443 #define Tcl_GetUnicodeFromObj \
3444     (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
3445 #define Tcl_GetMathFuncInfo \
3446     (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
3447 #define Tcl_ListMathFuncs \
3448     (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
3449 #define Tcl_SubstObj \
3450     (tclStubsPtr->tcl_SubstObj) /* 437 */
3451 #define Tcl_DetachChannel \
3452     (tclStubsPtr->tcl_DetachChannel) /* 438 */
3453 #define Tcl_IsStandardChannel \
3454     (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
3455 #define Tcl_FSCopyFile \
3456     (tclStubsPtr->tcl_FSCopyFile) /* 440 */
3457 #define Tcl_FSCopyDirectory \
3458     (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
3459 #define Tcl_FSCreateDirectory \
3460     (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
3461 #define Tcl_FSDeleteFile \
3462     (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
3463 #define Tcl_FSLoadFile \
3464     (tclStubsPtr->tcl_FSLoadFile) /* 444 */
3465 #define Tcl_FSMatchInDirectory \
3466     (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
3467 #define Tcl_FSLink \
3468     (tclStubsPtr->tcl_FSLink) /* 446 */
3469 #define Tcl_FSRemoveDirectory \
3470     (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
3471 #define Tcl_FSRenameFile \
3472     (tclStubsPtr->tcl_FSRenameFile) /* 448 */
3473 #define Tcl_FSLstat \
3474     (tclStubsPtr->tcl_FSLstat) /* 449 */
3475 #define Tcl_FSUtime \
3476     (tclStubsPtr->tcl_FSUtime) /* 450 */
3477 #define Tcl_FSFileAttrsGet \
3478     (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
3479 #define Tcl_FSFileAttrsSet \
3480     (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
3481 #define Tcl_FSFileAttrStrings \
3482     (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
3483 #define Tcl_FSStat \
3484     (tclStubsPtr->tcl_FSStat) /* 454 */
3485 #define Tcl_FSAccess \
3486     (tclStubsPtr->tcl_FSAccess) /* 455 */
3487 #define Tcl_FSOpenFileChannel \
3488     (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
3489 #define Tcl_FSGetCwd \
3490     (tclStubsPtr->tcl_FSGetCwd) /* 457 */
3491 #define Tcl_FSChdir \
3492     (tclStubsPtr->tcl_FSChdir) /* 458 */
3493 #define Tcl_FSConvertToPathType \
3494     (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
3495 #define Tcl_FSJoinPath \
3496     (tclStubsPtr->tcl_FSJoinPath) /* 460 */
3497 #define Tcl_FSSplitPath \
3498     (tclStubsPtr->tcl_FSSplitPath) /* 461 */
3499 #define Tcl_FSEqualPaths \
3500     (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
3501 #define Tcl_FSGetNormalizedPath \
3502     (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
3503 #define Tcl_FSJoinToPath \
3504     (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
3505 #define Tcl_FSGetInternalRep \
3506     (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
3507 #define Tcl_FSGetTranslatedPath \
3508     (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
3509 #define Tcl_FSEvalFile \
3510     (tclStubsPtr->tcl_FSEvalFile) /* 467 */
3511 #define Tcl_FSNewNativePath \
3512     (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
3513 #define Tcl_FSGetNativePath \
3514     (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
3515 #define Tcl_FSFileSystemInfo \
3516     (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
3517 #define Tcl_FSPathSeparator \
3518     (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
3519 #define Tcl_FSListVolumes \
3520     (tclStubsPtr->tcl_FSListVolumes) /* 472 */
3521 #define Tcl_FSRegister \
3522     (tclStubsPtr->tcl_FSRegister) /* 473 */
3523 #define Tcl_FSUnregister \
3524     (tclStubsPtr->tcl_FSUnregister) /* 474 */
3525 #define Tcl_FSData \
3526     (tclStubsPtr->tcl_FSData) /* 475 */
3527 #define Tcl_FSGetTranslatedStringPath \
3528     (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
3529 #define Tcl_FSGetFileSystemForPath \
3530     (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
3531 #define Tcl_FSGetPathType \
3532     (tclStubsPtr->tcl_FSGetPathType) /* 478 */
3533 #define Tcl_OutputBuffered \
3534     (tclStubsPtr->tcl_OutputBuffered) /* 479 */
3535 #define Tcl_FSMountsChanged \
3536     (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
3537 #define Tcl_EvalTokensStandard \
3538     (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
3539 #define Tcl_GetTime \
3540     (tclStubsPtr->tcl_GetTime) /* 482 */
3541 #define Tcl_CreateObjTrace \
3542     (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
3543 #define Tcl_GetCommandInfoFromToken \
3544     (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
3545 #define Tcl_SetCommandInfoFromToken \
3546     (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
3547 #define Tcl_DbNewWideIntObj \
3548     (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
3549 #define Tcl_GetWideIntFromObj \
3550     (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
3551 #define Tcl_NewWideIntObj \
3552     (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
3553 #define Tcl_SetWideIntObj \
3554     (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
3555 #define Tcl_AllocStatBuf \
3556     (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
3557 #define Tcl_Seek \
3558     (tclStubsPtr->tcl_Seek) /* 491 */
3559 #define Tcl_Tell \
3560     (tclStubsPtr->tcl_Tell) /* 492 */
3561 #define Tcl_ChannelWideSeekProc \
3562     (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
3563 #define Tcl_DictObjPut \
3564     (tclStubsPtr->tcl_DictObjPut) /* 494 */
3565 #define Tcl_DictObjGet \
3566     (tclStubsPtr->tcl_DictObjGet) /* 495 */
3567 #define Tcl_DictObjRemove \
3568     (tclStubsPtr->tcl_DictObjRemove) /* 496 */
3569 #define Tcl_DictObjSize \
3570     (tclStubsPtr->tcl_DictObjSize) /* 497 */
3571 #define Tcl_DictObjFirst \
3572     (tclStubsPtr->tcl_DictObjFirst) /* 498 */
3573 #define Tcl_DictObjNext \
3574     (tclStubsPtr->tcl_DictObjNext) /* 499 */
3575 #define Tcl_DictObjDone \
3576     (tclStubsPtr->tcl_DictObjDone) /* 500 */
3577 #define Tcl_DictObjPutKeyList \
3578     (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
3579 #define Tcl_DictObjRemoveKeyList \
3580     (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
3581 #define Tcl_NewDictObj \
3582     (tclStubsPtr->tcl_NewDictObj) /* 503 */
3583 #define Tcl_DbNewDictObj \
3584     (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
3585 #define Tcl_RegisterConfig \
3586     (tclStubsPtr->tcl_RegisterConfig) /* 505 */
3587 #define Tcl_CreateNamespace \
3588     (tclStubsPtr->tcl_CreateNamespace) /* 506 */
3589 #define Tcl_DeleteNamespace \
3590     (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
3591 #define Tcl_AppendExportList \
3592     (tclStubsPtr->tcl_AppendExportList) /* 508 */
3593 #define Tcl_Export \
3594     (tclStubsPtr->tcl_Export) /* 509 */
3595 #define Tcl_Import \
3596     (tclStubsPtr->tcl_Import) /* 510 */
3597 #define Tcl_ForgetImport \
3598     (tclStubsPtr->tcl_ForgetImport) /* 511 */
3599 #define Tcl_GetCurrentNamespace \
3600     (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
3601 #define Tcl_GetGlobalNamespace \
3602     (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
3603 #define Tcl_FindNamespace \
3604     (tclStubsPtr->tcl_FindNamespace) /* 514 */
3605 #define Tcl_FindCommand \
3606     (tclStubsPtr->tcl_FindCommand) /* 515 */
3607 #define Tcl_GetCommandFromObj \
3608     (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
3609 #define Tcl_GetCommandFullName \
3610     (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
3611 #define Tcl_FSEvalFileEx \
3612     (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
3613 #define Tcl_SetExitProc \
3614     (tclStubsPtr->tcl_SetExitProc) /* 519 */
3615 #define Tcl_LimitAddHandler \
3616     (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
3617 #define Tcl_LimitRemoveHandler \
3618     (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
3619 #define Tcl_LimitReady \
3620     (tclStubsPtr->tcl_LimitReady) /* 522 */
3621 #define Tcl_LimitCheck \
3622     (tclStubsPtr->tcl_LimitCheck) /* 523 */
3623 #define Tcl_LimitExceeded \
3624     (tclStubsPtr->tcl_LimitExceeded) /* 524 */
3625 #define Tcl_LimitSetCommands \
3626     (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
3627 #define Tcl_LimitSetTime \
3628     (tclStubsPtr->tcl_LimitSetTime) /* 526 */
3629 #define Tcl_LimitSetGranularity \
3630     (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
3631 #define Tcl_LimitTypeEnabled \
3632     (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
3633 #define Tcl_LimitTypeExceeded \
3634     (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
3635 #define Tcl_LimitTypeSet \
3636     (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
3637 #define Tcl_LimitTypeReset \
3638     (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
3639 #define Tcl_LimitGetCommands \
3640     (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
3641 #define Tcl_LimitGetTime \
3642     (tclStubsPtr->tcl_LimitGetTime) /* 533 */
3643 #define Tcl_LimitGetGranularity \
3644     (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
3645 #define Tcl_SaveInterpState \
3646     (tclStubsPtr->tcl_SaveInterpState) /* 535 */
3647 #define Tcl_RestoreInterpState \
3648     (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
3649 #define Tcl_DiscardInterpState \
3650     (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
3651 #define Tcl_SetReturnOptions \
3652     (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
3653 #define Tcl_GetReturnOptions \
3654     (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
3655 #define Tcl_IsEnsemble \
3656     (tclStubsPtr->tcl_IsEnsemble) /* 540 */
3657 #define Tcl_CreateEnsemble \
3658     (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
3659 #define Tcl_FindEnsemble \
3660     (tclStubsPtr->tcl_FindEnsemble) /* 542 */
3661 #define Tcl_SetEnsembleSubcommandList \
3662     (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
3663 #define Tcl_SetEnsembleMappingDict \
3664     (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
3665 #define Tcl_SetEnsembleUnknownHandler \
3666     (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
3667 #define Tcl_SetEnsembleFlags \
3668     (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
3669 #define Tcl_GetEnsembleSubcommandList \
3670     (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
3671 #define Tcl_GetEnsembleMappingDict \
3672     (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
3673 #define Tcl_GetEnsembleUnknownHandler \
3674     (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
3675 #define Tcl_GetEnsembleFlags \
3676     (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
3677 #define Tcl_GetEnsembleNamespace \
3678     (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
3679 #define Tcl_SetTimeProc \
3680     (tclStubsPtr->tcl_SetTimeProc) /* 552 */
3681 #define Tcl_QueryTimeProc \
3682     (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
3683 #define Tcl_ChannelThreadActionProc \
3684     (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
3685 #define Tcl_NewBignumObj \
3686     (tclStubsPtr->tcl_NewBignumObj) /* 555 */
3687 #define Tcl_DbNewBignumObj \
3688     (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
3689 #define Tcl_SetBignumObj \
3690     (tclStubsPtr->tcl_SetBignumObj) /* 557 */
3691 #define Tcl_GetBignumFromObj \
3692     (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
3693 #define Tcl_TakeBignumFromObj \
3694     (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
3695 #define Tcl_TruncateChannel \
3696     (tclStubsPtr->tcl_TruncateChannel) /* 560 */
3697 #define Tcl_ChannelTruncateProc \
3698     (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
3699 #define Tcl_SetChannelErrorInterp \
3700     (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
3701 #define Tcl_GetChannelErrorInterp \
3702     (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
3703 #define Tcl_SetChannelError \
3704     (tclStubsPtr->tcl_SetChannelError) /* 564 */
3705 #define Tcl_GetChannelError \
3706     (tclStubsPtr->tcl_GetChannelError) /* 565 */
3707 #define Tcl_InitBignumFromDouble \
3708     (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
3709 #define Tcl_GetNamespaceUnknownHandler \
3710     (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
3711 #define Tcl_SetNamespaceUnknownHandler \
3712     (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
3713 #define Tcl_GetEncodingFromObj \
3714     (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
3715 #define Tcl_GetEncodingSearchPath \
3716     (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
3717 #define Tcl_SetEncodingSearchPath \
3718     (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
3719 #define Tcl_GetEncodingNameFromEnvironment \
3720     (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
3721 #define Tcl_PkgRequireProc \
3722     (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
3723 #define Tcl_AppendObjToErrorInfo \
3724     (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
3725 #define Tcl_AppendLimitedToObj \
3726     (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
3727 #define Tcl_Format \
3728     (tclStubsPtr->tcl_Format) /* 576 */
3729 #define Tcl_AppendFormatToObj \
3730     (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
3731 #define Tcl_ObjPrintf \
3732     (tclStubsPtr->tcl_ObjPrintf) /* 578 */
3733 #define Tcl_AppendPrintfToObj \
3734     (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
3735 #define Tcl_CancelEval \
3736     (tclStubsPtr->tcl_CancelEval) /* 580 */
3737 #define Tcl_Canceled \
3738     (tclStubsPtr->tcl_Canceled) /* 581 */
3739 #define Tcl_CreatePipe \
3740     (tclStubsPtr->tcl_CreatePipe) /* 582 */
3741 #define Tcl_NRCreateCommand \
3742     (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
3743 #define Tcl_NREvalObj \
3744     (tclStubsPtr->tcl_NREvalObj) /* 584 */
3745 #define Tcl_NREvalObjv \
3746     (tclStubsPtr->tcl_NREvalObjv) /* 585 */
3747 #define Tcl_NRCmdSwap \
3748     (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
3749 #define Tcl_NRAddCallback \
3750     (tclStubsPtr->tcl_NRAddCallback) /* 587 */
3751 #define Tcl_NRCallObjProc \
3752     (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
3753 #define Tcl_GetFSDeviceFromStat \
3754     (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
3755 #define Tcl_GetFSInodeFromStat \
3756     (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
3757 #define Tcl_GetModeFromStat \
3758     (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
3759 #define Tcl_GetLinkCountFromStat \
3760     (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
3761 #define Tcl_GetUserIdFromStat \
3762     (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
3763 #define Tcl_GetGroupIdFromStat \
3764     (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
3765 #define Tcl_GetDeviceTypeFromStat \
3766     (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
3767 #define Tcl_GetAccessTimeFromStat \
3768     (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
3769 #define Tcl_GetModificationTimeFromStat \
3770     (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
3771 #define Tcl_GetChangeTimeFromStat \
3772     (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
3773 #define Tcl_GetSizeFromStat \
3774     (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
3775 #define Tcl_GetBlocksFromStat \
3776     (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
3777 #define Tcl_GetBlockSizeFromStat \
3778     (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
3779 #define Tcl_SetEnsembleParameterList \
3780     (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
3781 #define Tcl_GetEnsembleParameterList \
3782     (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
3783 #define Tcl_ParseArgsObjv \
3784     (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
3785 #define Tcl_GetErrorLine \
3786     (tclStubsPtr->tcl_GetErrorLine) /* 605 */
3787 #define Tcl_SetErrorLine \
3788     (tclStubsPtr->tcl_SetErrorLine) /* 606 */
3789 #define Tcl_TransferResult \
3790     (tclStubsPtr->tcl_TransferResult) /* 607 */
3791 #define Tcl_InterpActive \
3792     (tclStubsPtr->tcl_InterpActive) /* 608 */
3793 #define Tcl_BackgroundException \
3794     (tclStubsPtr->tcl_BackgroundException) /* 609 */
3795 #define Tcl_ZlibDeflate \
3796     (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
3797 #define Tcl_ZlibInflate \
3798     (tclStubsPtr->tcl_ZlibInflate) /* 611 */
3799 #define Tcl_ZlibCRC32 \
3800     (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
3801 #define Tcl_ZlibAdler32 \
3802     (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
3803 #define Tcl_ZlibStreamInit \
3804     (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
3805 #define Tcl_ZlibStreamGetCommandName \
3806     (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
3807 #define Tcl_ZlibStreamEof \
3808     (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
3809 #define Tcl_ZlibStreamChecksum \
3810     (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
3811 #define Tcl_ZlibStreamPut \
3812     (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
3813 #define Tcl_ZlibStreamGet \
3814     (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
3815 #define Tcl_ZlibStreamClose \
3816     (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
3817 #define Tcl_ZlibStreamReset \
3818     (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
3819 #define Tcl_SetStartupScript \
3820     (tclStubsPtr->tcl_SetStartupScript) /* 622 */
3821 #define Tcl_GetStartupScript \
3822     (tclStubsPtr->tcl_GetStartupScript) /* 623 */
3823 #define Tcl_CloseEx \
3824     (tclStubsPtr->tcl_CloseEx) /* 624 */
3825 #define Tcl_NRExprObj \
3826     (tclStubsPtr->tcl_NRExprObj) /* 625 */
3827 #define Tcl_NRSubstObj \
3828     (tclStubsPtr->tcl_NRSubstObj) /* 626 */
3829 #define Tcl_LoadFile \
3830     (tclStubsPtr->tcl_LoadFile) /* 627 */
3831 #define Tcl_FindSymbol \
3832     (tclStubsPtr->tcl_FindSymbol) /* 628 */
3833 #define Tcl_FSUnloadFile \
3834     (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
3835 #define Tcl_ZlibStreamSetCompressionDictionary \
3836     (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
3837 /* Slot 631 is reserved */
3838 /* Slot 632 is reserved */
3839 /* Slot 633 is reserved */
3840 /* Slot 634 is reserved */
3841 /* Slot 635 is reserved */
3842 /* Slot 636 is reserved */
3843 /* Slot 637 is reserved */
3844 /* Slot 638 is reserved */
3845 /* Slot 639 is reserved */
3846 /* Slot 640 is reserved */
3847 /* Slot 641 is reserved */
3848 /* Slot 642 is reserved */
3849 /* Slot 643 is reserved */
3850 /* Slot 644 is reserved */
3851 /* Slot 645 is reserved */
3852 /* Slot 646 is reserved */
3853 /* Slot 647 is reserved */
3854 /* Slot 648 is reserved */
3855 /* Slot 649 is reserved */
3856 /* Slot 650 is reserved */
3857 /* Slot 651 is reserved */
3858 /* Slot 652 is reserved */
3859 /* Slot 653 is reserved */
3860 /* Slot 654 is reserved */
3861 /* Slot 655 is reserved */
3862 /* Slot 656 is reserved */
3863 /* Slot 657 is reserved */
3864 /* Slot 658 is reserved */
3865 /* Slot 659 is reserved */
3866 #define TclUnusedStubEntry \
3867     (tclStubsPtr->tclUnusedStubEntry) /* 660 */
3868 
3869 #endif /* defined(USE_TCL_STUBS) */
3870 
3871 /* !END!: Do not edit above this line. */
3872 
3873 #undef TclUnusedStubEntry
3874 
3875 #if defined(USE_TCL_STUBS)
3876 #   undef Tcl_CreateInterp
3877 #   undef Tcl_FindExecutable
3878 #   undef Tcl_GetStringResult
3879 #   undef Tcl_Init
3880 #   undef Tcl_SetPanicProc
3881 #   undef Tcl_SetVar
3882 #   undef Tcl_ObjSetVar2
3883 #   undef Tcl_StaticPackage
3884 #   define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
3885 #   define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp))
3886 #   define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
3887 #   define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
3888 #   define Tcl_SetVar(interp, varName, newValue, flags) \
3889         (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
3890 #   define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
3891         (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
3892 #endif
3893 
3894 #if defined(_WIN32) && defined(UNICODE)
3895 #   define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
3896 #   define Tcl_MainEx Tcl_MainExW
3897     EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
3898         Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
3899 #endif
3900 
3901 #undef TCL_STORAGE_CLASS
3902 #define TCL_STORAGE_CLASS DLLIMPORT
3903 
3904 #undef Tcl_SeekOld
3905 #undef Tcl_TellOld
3906 
3907 #undef Tcl_PkgPresent
3908 #define Tcl_PkgPresent(interp, name, version, exact) \
3909     Tcl_PkgPresentEx(interp, name, version, exact, NULL)
3910 #undef Tcl_PkgProvide
3911 #define Tcl_PkgProvide(interp, name, version) \
3912     Tcl_PkgProvideEx(interp, name, version, NULL)
3913 #undef Tcl_PkgRequire
3914 #define Tcl_PkgRequire(interp, name, version, exact) \
3915     Tcl_PkgRequireEx(interp, name, version, exact, NULL)
3916 #undef Tcl_GetIndexFromObj
3917 #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
3918     Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
3919     sizeof(char *), msg, flags, indexPtr)
3920 #undef Tcl_NewBooleanObj
3921 #define Tcl_NewBooleanObj(boolValue) \
3922     Tcl_NewIntObj((boolValue)!=0)
3923 #undef Tcl_DbNewBooleanObj
3924 #define Tcl_DbNewBooleanObj(boolValue, file, line) \
3925     Tcl_DbNewLongObj((boolValue)!=0, file, line)
3926 #undef Tcl_SetBooleanObj
3927 #define Tcl_SetBooleanObj(objPtr, boolValue) \
3928     Tcl_SetIntObj((objPtr), (boolValue)!=0)
3929 #undef Tcl_SetVar
3930 #define Tcl_SetVar(interp, varName, newValue, flags) \
3931     Tcl_SetVar2(interp, varName, NULL, newValue, flags)
3932 #undef Tcl_UnsetVar
3933 #define Tcl_UnsetVar(interp, varName, flags) \
3934     Tcl_UnsetVar2(interp, varName, NULL, flags)
3935 #undef Tcl_GetVar
3936 #define Tcl_GetVar(interp, varName, flags) \
3937     Tcl_GetVar2(interp, varName, NULL, flags)
3938 #undef Tcl_TraceVar
3939 #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
3940     Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
3941 #undef Tcl_UntraceVar
3942 #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
3943     Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
3944 #undef Tcl_VarTraceInfo
3945 #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
3946     Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
3947 #undef Tcl_UpVar
3948 #define Tcl_UpVar(interp, frameName, varName, localName, flags) \
3949     Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
3950 
3951 #if defined(USE_TCL_STUBS)
3952 #   if defined(_WIN32) && defined(_WIN64)
3953 #   undef Tcl_GetTime
3954 /* Handle Win64 tk.dll being loaded in Cygwin64. */
3955 #   define Tcl_GetTime(t) \
3956         do { \
3957             union { \
3958             Tcl_Time now; \
3959             __int64 reserved; \
3960             } _t; \
3961             _t.reserved = -1; \
3962             tclStubsPtr->tcl_GetTime((&_t.now)); \
3963             if (_t.reserved != -1) { \
3964             _t.now.usec = _t.reserved; \
3965             } \
3966             *(t) = _t.now; \
3967         } while (0)
3968 #   endif
3969 #   if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
3970 /* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
3971  * we have to make sure that all stub entries on Cygwin64 follow the
3972  * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
3973  * entries any more, they should use the 64-bit alternatives where
3974  * possible. Tcl 9 must find a better solution, but that cannot be done
3975  * without introducing a binary incompatibility.
3976  */
3977 #   undef Tcl_DbNewLongObj
3978 #   undef Tcl_GetLongFromObj
3979 #   undef Tcl_NewLongObj
3980 #   undef Tcl_SetLongObj
3981 #   undef Tcl_ExprLong
3982 #   undef Tcl_ExprLongObj
3983 #   undef Tcl_UniCharNcmp
3984 #   undef Tcl_UtfNcmp
3985 #   undef Tcl_UtfNcasecmp
3986 #   undef Tcl_UniCharNcasecmp
3987 #   define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj)
3988 #   define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
3989 #   define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
3990 #   define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
3991 #   define Tcl_ExprLong TclExprLong
3992     static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
3993         int intValue;
3994         int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
3995         if (result == TCL_OK) *ptr = (long)intValue;
3996         return result;
3997     }
3998 #   define Tcl_ExprLongObj TclExprLongObj
3999     static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
4000         int intValue;
4001         int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
4002         if (result == TCL_OK) *ptr = (long)intValue;
4003         return result;
4004     }
4005 #   define Tcl_UniCharNcmp(ucs,uct,n) \
4006         ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
4007 #   define Tcl_UtfNcmp(s1,s2,n) \
4008         ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
4009 #   define Tcl_UtfNcasecmp(s1,s2,n) \
4010         ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
4011 #   define Tcl_UniCharNcasecmp(ucs,uct,n) \
4012         ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
4013 #   endif
4014 #endif
4015 
4016 /*
4017  * Deprecated Tcl procedures:
4018  */
4019 
4020 #undef Tcl_EvalObj
4021 #define Tcl_EvalObj(interp,objPtr) \
4022     Tcl_EvalObjEx((interp),(objPtr),0)
4023 #undef Tcl_GlobalEvalObj
4024 #define Tcl_GlobalEvalObj(interp,objPtr) \
4025     Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
4026 #define Tcl_CreateChild Tcl_CreateSlave
4027 #define Tcl_GetChild Tcl_GetSlave
4028 #define Tcl_GetParent Tcl_GetMaster
4029 
4030 #endif /* _TCLDECLS */
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated by the 2.3.5 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!