util/X86LINUX64/include/tclDecls.h

   1 /*
   2  * tclDecls.h --
   3  *
   4  *      Declarations of functions in the platform independent public Tcl API.
   5  *
   6  * Copyright (c) 1998-1999 by Scriptics Corporation.
   7  *
   8  * See the file "license.terms" for information on usage and redistribution
   9  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10  */
  11
  12 #ifndef _TCLDECLS
  13 #define _TCLDECLS
  14
  15 #undef TCL_STORAGE_CLASS
  16 #ifdef BUILD_tcl
  17 #   define TCL_STORAGE_CLASS DLLEXPORT
  18 #else
  19 #   ifdef USE_TCL_STUBS
  20 #      define TCL_STORAGE_CLASS
  21 #   else
  22 #      define TCL_STORAGE_CLASS DLLIMPORT
  23 #   endif
  24 #endif
  25
  26 /*
  27  * WARNING: This file is automatically generated by the tools/genStubs.tcl
  28  * script.  Any modifications to the function declarations below should be made
  29  * in the generic/tcl.decls script.
  30  */
  31
  32 /* !BEGIN!: Do not edit below this line. */
  33
  34 #ifdef __cplusplus
  35 extern "C" {
  36 #endif
  37
  38 /*
  39  * Exported function declarations:
  40  */
  41
  42 /* 0 */
  43 EXTERN int              Tcl_PkgProvideEx(Tcl_Interp *interp,
  44                                 const char *name, const char *version,
  45                                 const void *clientData);
  46 /* 1 */
  47 EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
  48                                 const char *name, const char *version,
  49                                 int exact, void *clientDataPtr);
  50 /* 2 */
  51 EXTERN void             Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
  52 /* 3 */
  53 EXTERN char *           Tcl_Alloc(unsigned int size);
  54 /* 4 */
  55 EXTERN void             Tcl_Free(char *ptr);
  56 /* 5 */
  57 EXTERN char *           Tcl_Realloc(char *ptr, unsigned int size);
  58 /* 6 */
  59 EXTERN char *           Tcl_DbCkalloc(unsigned int size, const char *file,
  60                                 int line);
  61 /* 7 */
  62 EXTERN void             Tcl_DbCkfree(char *ptr, const char *file, int line);
  63 /* 8 */
  64 EXTERN char *           Tcl_DbCkrealloc(char *ptr, unsigned int size,
  65                                 const char *file, int line);
  66 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  67 /* 9 */
  68 EXTERN void             Tcl_CreateFileHandler(int fd, int mask,
  69                                 Tcl_FileProc *proc, ClientData clientData);
  70 #endif /* UNIX */
  71 #ifdef MAC_OSX_TCL /* MACOSX */
  72 /* 9 */
  73 EXTERN void             Tcl_CreateFileHandler(int fd, int mask,
  74                                 Tcl_FileProc *proc, ClientData clientData);
  75 #endif /* MACOSX */
  76 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  77 /* 10 */
  78 EXTERN void             Tcl_DeleteFileHandler(int fd);
  79 #endif /* UNIX */
  80 #ifdef MAC_OSX_TCL /* MACOSX */
  81 /* 10 */
  82 EXTERN void             Tcl_DeleteFileHandler(int fd);
  83 #endif /* MACOSX */
  84 /* 11 */
  85 EXTERN void             Tcl_SetTimer(const Tcl_Time *timePtr);
  86 /* 12 */
  87 EXTERN void             Tcl_Sleep(int ms);
  88 /* 13 */
  89 EXTERN int              Tcl_WaitForEvent(const Tcl_Time *timePtr);
  90 /* 14 */
  91 EXTERN int              Tcl_AppendAllObjTypes(Tcl_Interp *interp,
  92                                 Tcl_Obj *objPtr);
  93 /* 15 */
  94 EXTERN void             Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
  95 /* 16 */
  96 EXTERN void             Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
  97                                 int length);
  98 /* 17 */
  99 EXTERN Tcl_Obj *        Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
 100 /* 18 */
 101 EXTERN int              Tcl_ConvertToType(Tcl_Interp *interp,
 102                                 Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
 103 /* 19 */
 104 EXTERN void             Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
 105                                 int line);
 106 /* 20 */
 107 EXTERN void             Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
 108                                 int line);
 109 /* 21 */
 110 EXTERN int              Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
 111                                 int line);
 112 /* 22 */
 113 EXTERN Tcl_Obj *        Tcl_DbNewBooleanObj(int boolValue, const char *file,
 114                                 int line);
 115 /* 23 */
 116 EXTERN Tcl_Obj *        Tcl_DbNewByteArrayObj(const unsigned char *bytes,
 117                                 int length, const char *file, int line);
 118 /* 24 */
 119 EXTERN Tcl_Obj *        Tcl_DbNewDoubleObj(double doubleValue,
 120                                 const char *file, int line);
 121 /* 25 */
 122 EXTERN Tcl_Obj *        Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
 123                                 const char *file, int line);
 124 /* 26 */
 125 EXTERN Tcl_Obj *        Tcl_DbNewLongObj(long longValue, const char *file,
 126                                 int line);
 127 /* 27 */
 128 EXTERN Tcl_Obj *        Tcl_DbNewObj(const char *file, int line);
 129 /* 28 */
 130 EXTERN Tcl_Obj *        Tcl_DbNewStringObj(const char *bytes, int length,
 131                                 const char *file, int line);
 132 /* 29 */
 133 EXTERN Tcl_Obj *        Tcl_DuplicateObj(Tcl_Obj *objPtr);
 134 /* 30 */
 135 EXTERN void             TclFreeObj(Tcl_Obj *objPtr);
 136 /* 31 */
 137 EXTERN int              Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
 138                                 int *boolPtr);
 139 /* 32 */
 140 EXTERN int              Tcl_GetBooleanFromObj(Tcl_Interp *interp,
 141                                 Tcl_Obj *objPtr, int *boolPtr);
 142 /* 33 */
 143 EXTERN unsigned char *  Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
 144                                 int *lengthPtr);
 145 /* 34 */
 146 EXTERN int              Tcl_GetDouble(Tcl_Interp *interp, const char *src,
 147                                 double *doublePtr);
 148 /* 35 */
 149 EXTERN int              Tcl_GetDoubleFromObj(Tcl_Interp *interp,
 150                                 Tcl_Obj *objPtr, double *doublePtr);
 151 /* 36 */
 152 EXTERN int              Tcl_GetIndexFromObj(Tcl_Interp *interp,
 153                                 Tcl_Obj *objPtr,
 154                                 CONST84 char *const *tablePtr,
 155                                 const char *msg, int flags, int *indexPtr);
 156 /* 37 */
 157 EXTERN int              Tcl_GetInt(Tcl_Interp *interp, const char *src,
 158                                 int *intPtr);
 159 /* 38 */
 160 EXTERN int              Tcl_GetIntFromObj(Tcl_Interp *interp,
 161                                 Tcl_Obj *objPtr, int *intPtr);
 162 /* 39 */
 163 EXTERN int              Tcl_GetLongFromObj(Tcl_Interp *interp,
 164                                 Tcl_Obj *objPtr, long *longPtr);
 165 /* 40 */
 166 EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
 167 /* 41 */
 168 EXTERN char *           Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr);
 169 /* 42 */
 170 EXTERN void             Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
 171 /* 43 */
 172 EXTERN int              Tcl_ListObjAppendList(Tcl_Interp *interp,
 173                                 Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
 174 /* 44 */
 175 EXTERN int              Tcl_ListObjAppendElement(Tcl_Interp *interp,
 176                                 Tcl_Obj *listPtr, Tcl_Obj *objPtr);
 177 /* 45 */
 178 EXTERN int              Tcl_ListObjGetElements(Tcl_Interp *interp,
 179                                 Tcl_Obj *listPtr, int *objcPtr,
 180                                 Tcl_Obj ***objvPtr);
 181 /* 46 */
 182 EXTERN int              Tcl_ListObjIndex(Tcl_Interp *interp,
 183                                 Tcl_Obj *listPtr, int index,
 184                                 Tcl_Obj **objPtrPtr);
 185 /* 47 */
 186 EXTERN int              Tcl_ListObjLength(Tcl_Interp *interp,
 187                                 Tcl_Obj *listPtr, int *lengthPtr);
 188 /* 48 */
 189 EXTERN int              Tcl_ListObjReplace(Tcl_Interp *interp,
 190                                 Tcl_Obj *listPtr, int first, int count,
 191                                 int objc, Tcl_Obj *const objv[]);
 192 /* 49 */
 193 EXTERN Tcl_Obj *        Tcl_NewBooleanObj(int boolValue);
 194 /* 50 */
 195 EXTERN Tcl_Obj *        Tcl_NewByteArrayObj(const unsigned char *bytes,
 196                                 int length);
 197 /* 51 */
 198 EXTERN Tcl_Obj *        Tcl_NewDoubleObj(double doubleValue);
 199 /* 52 */
 200 EXTERN Tcl_Obj *        Tcl_NewIntObj(int intValue);
 201 /* 53 */
 202 EXTERN Tcl_Obj *        Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
 203 /* 54 */
 204 EXTERN Tcl_Obj *        Tcl_NewLongObj(long longValue);
 205 /* 55 */
 206 EXTERN Tcl_Obj *        Tcl_NewObj(void);
 207 /* 56 */
 208 EXTERN Tcl_Obj *        Tcl_NewStringObj(const char *bytes, int length);
 209 /* 57 */
 210 EXTERN void             Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue);
 211 /* 58 */
 212 EXTERN unsigned char *  Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length);
 213 /* 59 */
 214 EXTERN void             Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
 215                                 const unsigned char *bytes, int length);
 216 /* 60 */
 217 EXTERN void             Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
 218 /* 61 */
 219 EXTERN void             Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
 220 /* 62 */
 221 EXTERN void             Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
 222                                 Tcl_Obj *const objv[]);
 223 /* 63 */
 224 EXTERN void             Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
 225 /* 64 */
 226 EXTERN void             Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
 227 /* 65 */
 228 EXTERN void             Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
 229                                 int length);
 230 /* 66 */
 231 EXTERN void             Tcl_AddErrorInfo(Tcl_Interp *interp,
 232                                 const char *message);
 233 /* 67 */
 234 EXTERN void             Tcl_AddObjErrorInfo(Tcl_Interp *interp,
 235                                 const char *message, int length);
 236 /* 68 */
 237 EXTERN void             Tcl_AllowExceptions(Tcl_Interp *interp);
 238 /* 69 */
 239 EXTERN void             Tcl_AppendElement(Tcl_Interp *interp,
 240                                 const char *element);
 241 /* 70 */
 242 EXTERN void             Tcl_AppendResult(Tcl_Interp *interp, ...);
 243 /* 71 */
 244 EXTERN Tcl_AsyncHandler  Tcl_AsyncCreate(Tcl_AsyncProc *proc,
 245                                 ClientData clientData);
 246 /* 72 */
 247 EXTERN void             Tcl_AsyncDelete(Tcl_AsyncHandler async);
 248 /* 73 */
 249 EXTERN int              Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
 250 /* 74 */
 251 EXTERN void             Tcl_AsyncMark(Tcl_AsyncHandler async);
 252 /* 75 */
 253 EXTERN int              Tcl_AsyncReady(void);
 254 /* 76 */
 255 EXTERN void             Tcl_BackgroundError(Tcl_Interp *interp);
 256 /* 77 */
 257 EXTERN char             Tcl_Backslash(const char *src, int *readPtr);
 258 /* 78 */
 259 EXTERN int              Tcl_BadChannelOption(Tcl_Interp *interp,
 260                                 const char *optionName,
 261                                 const char *optionList);
 262 /* 79 */
 263 EXTERN void             Tcl_CallWhenDeleted(Tcl_Interp *interp,
 264                                 Tcl_InterpDeleteProc *proc,
 265                                 ClientData clientData);
 266 /* 80 */
 267 EXTERN void             Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
 268                                 ClientData clientData);
 269 /* 81 */
 270 EXTERN int              Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
 271 /* 82 */
 272 EXTERN int              Tcl_CommandComplete(const char *cmd);
 273 /* 83 */
 274 EXTERN char *           Tcl_Concat(int argc, CONST84 char *const *argv);
 275 /* 84 */
 276 EXTERN int              Tcl_ConvertElement(const char *src, char *dst,
 277                                 int flags);
 278 /* 85 */
 279 EXTERN int              Tcl_ConvertCountedElement(const char *src,
 280                                 int length, char *dst, int flags);
 281 /* 86 */
 282 EXTERN int              Tcl_CreateAlias(Tcl_Interp *slave,
 283                                 const char *slaveCmd, Tcl_Interp *target,
 284                                 const char *targetCmd, int argc,
 285                                 CONST84 char *const *argv);
 286 /* 87 */
 287 EXTERN int              Tcl_CreateAliasObj(Tcl_Interp *slave,
 288                                 const char *slaveCmd, Tcl_Interp *target,
 289                                 const char *targetCmd, int objc,
 290                                 Tcl_Obj *const objv[]);
 291 /* 88 */
 292 EXTERN Tcl_Channel      Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
 293                                 const char *chanName,
 294                                 ClientData instanceData, int mask);
 295 /* 89 */
 296 EXTERN void             Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
 297                                 Tcl_ChannelProc *proc, ClientData clientData);
 298 /* 90 */
 299 EXTERN void             Tcl_CreateCloseHandler(Tcl_Channel chan,
 300                                 Tcl_CloseProc *proc, ClientData clientData);
 301 /* 91 */
 302 EXTERN Tcl_Command      Tcl_CreateCommand(Tcl_Interp *interp,
 303                                 const char *cmdName, Tcl_CmdProc *proc,
 304                                 ClientData clientData,
 305                                 Tcl_CmdDeleteProc *deleteProc);
 306 /* 92 */
 307 EXTERN void             Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
 308                                 Tcl_EventCheckProc *checkProc,
 309                                 ClientData clientData);
 310 /* 93 */
 311 EXTERN void             Tcl_CreateExitHandler(Tcl_ExitProc *proc,
 312                                 ClientData clientData);
 313 /* 94 */
 314 EXTERN Tcl_Interp *     Tcl_CreateInterp(void);
 315 /* 95 */
 316 EXTERN void             Tcl_CreateMathFunc(Tcl_Interp *interp,
 317                                 const char *name, int numArgs,
 318                                 Tcl_ValueType *argTypes, Tcl_MathProc *proc,
 319                                 ClientData clientData);
 320 /* 96 */
 321 EXTERN Tcl_Command      Tcl_CreateObjCommand(Tcl_Interp *interp,
 322                                 const char *cmdName, Tcl_ObjCmdProc *proc,
 323                                 ClientData clientData,
 324                                 Tcl_CmdDeleteProc *deleteProc);
 325 /* 97 */
 326 EXTERN Tcl_Interp *     Tcl_CreateSlave(Tcl_Interp *interp,
 327                                 const char *slaveName, int isSafe);
 328 /* 98 */
 329 EXTERN Tcl_TimerToken   Tcl_CreateTimerHandler(int milliseconds,
 330                                 Tcl_TimerProc *proc, ClientData clientData);
 331 /* 99 */
 332 EXTERN Tcl_Trace        Tcl_CreateTrace(Tcl_Interp *interp, int level,
 333                                 Tcl_CmdTraceProc *proc,
 334                                 ClientData clientData);
 335 /* 100 */
 336 EXTERN void             Tcl_DeleteAssocData(Tcl_Interp *interp,
 337                                 const char *name);
 338 /* 101 */
 339 EXTERN void             Tcl_DeleteChannelHandler(Tcl_Channel chan,
 340                                 Tcl_ChannelProc *proc, ClientData clientData);
 341 /* 102 */
 342 EXTERN void             Tcl_DeleteCloseHandler(Tcl_Channel chan,
 343                                 Tcl_CloseProc *proc, ClientData clientData);
 344 /* 103 */
 345 EXTERN int              Tcl_DeleteCommand(Tcl_Interp *interp,
 346                                 const char *cmdName);
 347 /* 104 */
 348 EXTERN int              Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
 349                                 Tcl_Command command);
 350 /* 105 */
 351 EXTERN void             Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
 352                                 ClientData clientData);
 353 /* 106 */
 354 EXTERN void             Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
 355                                 Tcl_EventCheckProc *checkProc,
 356                                 ClientData clientData);
 357 /* 107 */
 358 EXTERN void             Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
 359                                 ClientData clientData);
 360 /* 108 */
 361 EXTERN void             Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
 362 /* 109 */
 363 EXTERN void             Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
 364 /* 110 */
 365 EXTERN void             Tcl_DeleteInterp(Tcl_Interp *interp);
 366 /* 111 */
 367 EXTERN void             Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
 368 /* 112 */
 369 EXTERN void             Tcl_DeleteTimerHandler(Tcl_TimerToken token);
 370 /* 113 */
 371 EXTERN void             Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
 372 /* 114 */
 373 EXTERN void             Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
 374                                 Tcl_InterpDeleteProc *proc,
 375                                 ClientData clientData);
 376 /* 115 */
 377 EXTERN int              Tcl_DoOneEvent(int flags);
 378 /* 116 */
 379 EXTERN void             Tcl_DoWhenIdle(Tcl_IdleProc *proc,
 380                                 ClientData clientData);
 381 /* 117 */
 382 EXTERN char *           Tcl_DStringAppend(Tcl_DString *dsPtr,
 383                                 const char *bytes, int length);
 384 /* 118 */
 385 EXTERN char *           Tcl_DStringAppendElement(Tcl_DString *dsPtr,
 386                                 const char *element);
 387 /* 119 */
 388 EXTERN void             Tcl_DStringEndSublist(Tcl_DString *dsPtr);
 389 /* 120 */
 390 EXTERN void             Tcl_DStringFree(Tcl_DString *dsPtr);
 391 /* 121 */
 392 EXTERN void             Tcl_DStringGetResult(Tcl_Interp *interp,
 393                                 Tcl_DString *dsPtr);
 394 /* 122 */
 395 EXTERN void             Tcl_DStringInit(Tcl_DString *dsPtr);
 396 /* 123 */
 397 EXTERN void             Tcl_DStringResult(Tcl_Interp *interp,
 398                                 Tcl_DString *dsPtr);
 399 /* 124 */
 400 EXTERN void             Tcl_DStringSetLength(Tcl_DString *dsPtr, int length);
 401 /* 125 */
 402 EXTERN void             Tcl_DStringStartSublist(Tcl_DString *dsPtr);
 403 /* 126 */
 404 EXTERN int              Tcl_Eof(Tcl_Channel chan);
 405 /* 127 */
 406 EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
 407 /* 128 */
 408 EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
 409 /* 129 */
 410 EXTERN int              Tcl_Eval(Tcl_Interp *interp, const char *script);
 411 /* 130 */
 412 EXTERN int              Tcl_EvalFile(Tcl_Interp *interp,
 413                                 const char *fileName);
 414 /* 131 */
 415 EXTERN int              Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
 416 /* 132 */
 417 EXTERN void             Tcl_EventuallyFree(ClientData clientData,
 418                                 Tcl_FreeProc *freeProc);
 419 /* 133 */
 420 EXTERN void             Tcl_Exit(int status);
 421 /* 134 */
 422 EXTERN int              Tcl_ExposeCommand(Tcl_Interp *interp,
 423                                 const char *hiddenCmdToken,
 424                                 const char *cmdName);
 425 /* 135 */
 426 EXTERN int              Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
 427                                 int *ptr);
 428 /* 136 */
 429 EXTERN int              Tcl_ExprBooleanObj(Tcl_Interp *interp,
 430                                 Tcl_Obj *objPtr, int *ptr);
 431 /* 137 */
 432 EXTERN int              Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
 433                                 double *ptr);
 434 /* 138 */
 435 EXTERN int              Tcl_ExprDoubleObj(Tcl_Interp *interp,
 436                                 Tcl_Obj *objPtr, double *ptr);
 437 /* 139 */
 438 EXTERN int              Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
 439                                 long *ptr);
 440 /* 140 */
 441 EXTERN int              Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
 442                                 long *ptr);
 443 /* 141 */
 444 EXTERN int              Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
 445                                 Tcl_Obj **resultPtrPtr);
 446 /* 142 */
 447 EXTERN int              Tcl_ExprString(Tcl_Interp *interp, const char *expr);
 448 /* 143 */
 449 EXTERN void             Tcl_Finalize(void);
 450 /* 144 */
 451 EXTERN void             Tcl_FindExecutable(const char *argv0);
 452 /* 145 */
 453 EXTERN Tcl_HashEntry *  Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
 454                                 Tcl_HashSearch *searchPtr);
 455 /* 146 */
 456 EXTERN int              Tcl_Flush(Tcl_Channel chan);
 457 /* 147 */
 458 EXTERN void             Tcl_FreeResult(Tcl_Interp *interp);
 459 /* 148 */
 460 EXTERN int              Tcl_GetAlias(Tcl_Interp *interp,
 461                                 const char *slaveCmd,
 462                                 Tcl_Interp **targetInterpPtr,
 463                                 CONST84 char **targetCmdPtr, int *argcPtr,
 464                                 CONST84 char ***argvPtr);
 465 /* 149 */
 466 EXTERN int              Tcl_GetAliasObj(Tcl_Interp *interp,
 467                                 const char *slaveCmd,
 468                                 Tcl_Interp **targetInterpPtr,
 469                                 CONST84 char **targetCmdPtr, int *objcPtr,
 470                                 Tcl_Obj ***objv);
 471 /* 150 */
 472 EXTERN ClientData       Tcl_GetAssocData(Tcl_Interp *interp,
 473                                 const char *name,
 474                                 Tcl_InterpDeleteProc **procPtr);
 475 /* 151 */
 476 EXTERN Tcl_Channel      Tcl_GetChannel(Tcl_Interp *interp,
 477                                 const char *chanName, int *modePtr);
 478 /* 152 */
 479 EXTERN int              Tcl_GetChannelBufferSize(Tcl_Channel chan);
 480 /* 153 */
 481 EXTERN int              Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
 482                                 ClientData *handlePtr);
 483 /* 154 */
 484 EXTERN ClientData       Tcl_GetChannelInstanceData(Tcl_Channel chan);
 485 /* 155 */
 486 EXTERN int              Tcl_GetChannelMode(Tcl_Channel chan);
 487 /* 156 */
 488 EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
 489 /* 157 */
 490 EXTERN int              Tcl_GetChannelOption(Tcl_Interp *interp,
 491                                 Tcl_Channel chan, const char *optionName,
 492                                 Tcl_DString *dsPtr);
 493 /* 158 */
 494 EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
 495 /* 159 */
 496 EXTERN int              Tcl_GetCommandInfo(Tcl_Interp *interp,
 497                                 const char *cmdName, Tcl_CmdInfo *infoPtr);
 498 /* 160 */
 499 EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
 500                                 Tcl_Command command);
 501 /* 161 */
 502 EXTERN int              Tcl_GetErrno(void);
 503 /* 162 */
 504 EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
 505 /* 163 */
 506 EXTERN int              Tcl_GetInterpPath(Tcl_Interp *askInterp,
 507                                 Tcl_Interp *slaveInterp);
 508 /* 164 */
 509 EXTERN Tcl_Interp *     Tcl_GetMaster(Tcl_Interp *interp);
 510 /* 165 */
 511 EXTERN const char *     Tcl_GetNameOfExecutable(void);
 512 /* 166 */
 513 EXTERN Tcl_Obj *        Tcl_GetObjResult(Tcl_Interp *interp);
 514 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
 515 /* 167 */
 516 EXTERN int              Tcl_GetOpenFile(Tcl_Interp *interp,
 517                                 const char *chanID, int forWriting,
 518                                 int checkUsage, ClientData *filePtr);
 519 #endif /* UNIX */
 520 #ifdef MAC_OSX_TCL /* MACOSX */
 521 /* 167 */
 522 EXTERN int              Tcl_GetOpenFile(Tcl_Interp *interp,
 523                                 const char *chanID, int forWriting,
 524                                 int checkUsage, ClientData *filePtr);
 525 #endif /* MACOSX */
 526 /* 168 */
 527 EXTERN Tcl_PathType     Tcl_GetPathType(const char *path);
 528 /* 169 */
 529 EXTERN int              Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
 530 /* 170 */
 531 EXTERN int              Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
 532 /* 171 */
 533 EXTERN int              Tcl_GetServiceMode(void);
 534 /* 172 */
 535 EXTERN Tcl_Interp *     Tcl_GetSlave(Tcl_Interp *interp,
 536                                 const char *slaveName);
 537 /* 173 */
 538 EXTERN Tcl_Channel      Tcl_GetStdChannel(int type);
 539 /* 174 */
 540 EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
 541 /* 175 */
 542 EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
 543                                 const char *varName, int flags);
 544 /* 176 */
 545 EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
 546                                 const char *part1, const char *part2,
 547                                 int flags);
 548 /* 177 */
 549 EXTERN int              Tcl_GlobalEval(Tcl_Interp *interp,
 550                                 const char *command);
 551 /* 178 */
 552 EXTERN int              Tcl_GlobalEvalObj(Tcl_Interp *interp,
 553                                 Tcl_Obj *objPtr);
 554 /* 179 */
 555 EXTERN int              Tcl_HideCommand(Tcl_Interp *interp,
 556                                 const char *cmdName,
 557                                 const char *hiddenCmdToken);
 558 /* 180 */
 559 EXTERN int              Tcl_Init(Tcl_Interp *interp);
 560 /* 181 */
 561 EXTERN void             Tcl_InitHashTable(Tcl_HashTable *tablePtr,
 562                                 int keyType);
 563 /* 182 */
 564 EXTERN int              Tcl_InputBlocked(Tcl_Channel chan);
 565 /* 183 */
 566 EXTERN int              Tcl_InputBuffered(Tcl_Channel chan);
 567 /* 184 */
 568 EXTERN int              Tcl_InterpDeleted(Tcl_Interp *interp);
 569 /* 185 */
 570 EXTERN int              Tcl_IsSafe(Tcl_Interp *interp);
 571 /* 186 */
 572 EXTERN char *           Tcl_JoinPath(int argc, CONST84 char *const *argv,
 573                                 Tcl_DString *resultPtr);
 574 /* 187 */
 575 EXTERN int              Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
 576                                 char *addr, int type);
 577 /* Slot 188 is reserved */
 578 /* 189 */
 579 EXTERN Tcl_Channel      Tcl_MakeFileChannel(ClientData handle, int mode);
 580 /* 190 */
 581 EXTERN int              Tcl_MakeSafe(Tcl_Interp *interp);
 582 /* 191 */
 583 EXTERN Tcl_Channel      Tcl_MakeTcpClientChannel(ClientData tcpSocket);
 584 /* 192 */
 585 EXTERN char *           Tcl_Merge(int argc, CONST84 char *const *argv);
 586 /* 193 */
 587 EXTERN Tcl_HashEntry *  Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
 588 /* 194 */
 589 EXTERN void             Tcl_NotifyChannel(Tcl_Channel channel, int mask);
 590 /* 195 */
 591 EXTERN Tcl_Obj *        Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
 592                                 Tcl_Obj *part2Ptr, int flags);
 593 /* 196 */
 594 EXTERN Tcl_Obj *        Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
 595                                 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
 596                                 int flags);
 597 /* 197 */
 598 EXTERN Tcl_Channel      Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
 599                                 CONST84 char **argv, int flags);
 600 /* 198 */
 601 EXTERN Tcl_Channel      Tcl_OpenFileChannel(Tcl_Interp *interp,
 602                                 const char *fileName, const char *modeString,
 603                                 int permissions);
 604 /* 199 */
 605 EXTERN Tcl_Channel      Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
 606                                 const char *address, const char *myaddr,
 607                                 int myport, int async);
 608 /* 200 */
 609 EXTERN Tcl_Channel      Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
 610                                 const char *host,
 611                                 Tcl_TcpAcceptProc *acceptProc,
 612                                 ClientData callbackData);
 613 /* 201 */
 614 EXTERN void             Tcl_Preserve(ClientData data);
 615 /* 202 */
 616 EXTERN void             Tcl_PrintDouble(Tcl_Interp *interp, double value,
 617                                 char *dst);
 618 /* 203 */
 619 EXTERN int              Tcl_PutEnv(const char *assignment);
 620 /* 204 */
 621 EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
 622 /* 205 */
 623 EXTERN void             Tcl_QueueEvent(Tcl_Event *evPtr,
 624                                 Tcl_QueuePosition position);
 625 /* 206 */
 626 EXTERN int              Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead);
 627 /* 207 */
 628 EXTERN void             Tcl_ReapDetachedProcs(void);
 629 /* 208 */
 630 EXTERN int              Tcl_RecordAndEval(Tcl_Interp *interp,
 631                                 const char *cmd, int flags);
 632 /* 209 */
 633 EXTERN int              Tcl_RecordAndEvalObj(Tcl_Interp *interp,
 634                                 Tcl_Obj *cmdPtr, int flags);
 635 /* 210 */
 636 EXTERN void             Tcl_RegisterChannel(Tcl_Interp *interp,
 637                                 Tcl_Channel chan);
 638 /* 211 */
 639 EXTERN void             Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
 640 /* 212 */
 641 EXTERN Tcl_RegExp       Tcl_RegExpCompile(Tcl_Interp *interp,
 642                                 const char *pattern);
 643 /* 213 */
 644 EXTERN int              Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
 645                                 const char *text, const char *start);
 646 /* 214 */
 647 EXTERN int              Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
 648                                 const char *pattern);
 649 /* 215 */
 650 EXTERN void             Tcl_RegExpRange(Tcl_RegExp regexp, int index,
 651                                 CONST84 char **startPtr,
 652                                 CONST84 char **endPtr);
 653 /* 216 */
 654 EXTERN void             Tcl_Release(ClientData clientData);
 655 /* 217 */
 656 EXTERN void             Tcl_ResetResult(Tcl_Interp *interp);
 657 /* 218 */
 658 EXTERN int              Tcl_ScanElement(const char *src, int *flagPtr);
 659 /* 219 */
 660 EXTERN int              Tcl_ScanCountedElement(const char *src, int length,
 661                                 int *flagPtr);
 662 /* 220 */
 663 EXTERN int              Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
 664 /* 221 */
 665 EXTERN int              Tcl_ServiceAll(void);
 666 /* 222 */
 667 EXTERN int              Tcl_ServiceEvent(int flags);
 668 /* 223 */
 669 EXTERN void             Tcl_SetAssocData(Tcl_Interp *interp,
 670                                 const char *name, Tcl_InterpDeleteProc *proc,
 671                                 ClientData clientData);
 672 /* 224 */
 673 EXTERN void             Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
 674 /* 225 */
 675 EXTERN int              Tcl_SetChannelOption(Tcl_Interp *interp,
 676                                 Tcl_Channel chan, const char *optionName,
 677                                 const char *newValue);
 678 /* 226 */
 679 EXTERN int              Tcl_SetCommandInfo(Tcl_Interp *interp,
 680                                 const char *cmdName,
 681                                 const Tcl_CmdInfo *infoPtr);
 682 /* 227 */
 683 EXTERN void             Tcl_SetErrno(int err);
 684 /* 228 */
 685 EXTERN void             Tcl_SetErrorCode(Tcl_Interp *interp, ...);
 686 /* 229 */
 687 EXTERN void             Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
 688 /* 230 */
 689 EXTERN void             Tcl_SetPanicProc(Tcl_PanicProc *panicProc);
 690 /* 231 */
 691 EXTERN int              Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth);
 692 /* 232 */
 693 EXTERN void             Tcl_SetResult(Tcl_Interp *interp, char *result,
 694                                 Tcl_FreeProc *freeProc);
 695 /* 233 */
 696 EXTERN int              Tcl_SetServiceMode(int mode);
 697 /* 234 */
 698 EXTERN void             Tcl_SetObjErrorCode(Tcl_Interp *interp,
 699                                 Tcl_Obj *errorObjPtr);
 700 /* 235 */
 701 EXTERN void             Tcl_SetObjResult(Tcl_Interp *interp,
 702                                 Tcl_Obj *resultObjPtr);
 703 /* 236 */
 704 EXTERN void             Tcl_SetStdChannel(Tcl_Channel channel, int type);
 705 /* 237 */
 706 EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
 707                                 const char *varName, const char *newValue,
 708                                 int flags);
 709 /* 238 */
 710 EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
 711                                 const char *part1, const char *part2,
 712                                 const char *newValue, int flags);
 713 /* 239 */
 714 EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
 715 /* 240 */
 716 EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
 717 /* 241 */
 718 EXTERN void             Tcl_SourceRCFile(Tcl_Interp *interp);
 719 /* 242 */
 720 EXTERN int              Tcl_SplitList(Tcl_Interp *interp,
 721                                 const char *listStr, int *argcPtr,
 722                                 CONST84 char ***argvPtr);
 723 /* 243 */
 724 EXTERN void             Tcl_SplitPath(const char *path, int *argcPtr,
 725                                 CONST84 char ***argvPtr);
 726 /* 244 */
 727 EXTERN void             Tcl_StaticPackage(Tcl_Interp *interp,
 728                                 const char *pkgName,
 729                                 Tcl_PackageInitProc *initProc,
 730                                 Tcl_PackageInitProc *safeInitProc);
 731 /* 245 */
 732 EXTERN int              Tcl_StringMatch(const char *str, const char *pattern);
 733 /* 246 */
 734 EXTERN int              Tcl_TellOld(Tcl_Channel chan);
 735 /* 247 */
 736 EXTERN int              Tcl_TraceVar(Tcl_Interp *interp, const char *varName,
 737                                 int flags, Tcl_VarTraceProc *proc,
 738                                 ClientData clientData);
 739 /* 248 */
 740 EXTERN int              Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
 741                                 const char *part2, int flags,
 742                                 Tcl_VarTraceProc *proc,
 743                                 ClientData clientData);
 744 /* 249 */
 745 EXTERN char *           Tcl_TranslateFileName(Tcl_Interp *interp,
 746                                 const char *name, Tcl_DString *bufferPtr);
 747 /* 250 */
 748 EXTERN int              Tcl_Ungets(Tcl_Channel chan, const char *str,
 749                                 int len, int atHead);
 750 /* 251 */
 751 EXTERN void             Tcl_UnlinkVar(Tcl_Interp *interp,
 752                                 const char *varName);
 753 /* 252 */
 754 EXTERN int              Tcl_UnregisterChannel(Tcl_Interp *interp,
 755                                 Tcl_Channel chan);
 756 /* 253 */
 757 EXTERN int              Tcl_UnsetVar(Tcl_Interp *interp, const char *varName,
 758                                 int flags);
 759 /* 254 */
 760 EXTERN int              Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
 761                                 const char *part2, int flags);
 762 /* 255 */
 763 EXTERN void             Tcl_UntraceVar(Tcl_Interp *interp,
 764                                 const char *varName, int flags,
 765                                 Tcl_VarTraceProc *proc,
 766                                 ClientData clientData);
 767 /* 256 */
 768 EXTERN void             Tcl_UntraceVar2(Tcl_Interp *interp,
 769                                 const char *part1, const char *part2,
 770                                 int flags, Tcl_VarTraceProc *proc,
 771                                 ClientData clientData);
 772 /* 257 */
 773 EXTERN void             Tcl_UpdateLinkedVar(Tcl_Interp *interp,
 774                                 const char *varName);
 775 /* 258 */
 776 EXTERN int              Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
 777                                 const char *varName, const char *localName,
 778                                 int flags);
 779 /* 259 */
 780 EXTERN int              Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
 781                                 const char *part1, const char *part2,
 782                                 const char *localName, int flags);
 783 /* 260 */
 784 EXTERN int              Tcl_VarEval(Tcl_Interp *interp, ...);
 785 /* 261 */
 786 EXTERN ClientData       Tcl_VarTraceInfo(Tcl_Interp *interp,
 787                                 const char *varName, int flags,
 788                                 Tcl_VarTraceProc *procPtr,
 789                                 ClientData prevClientData);
 790 /* 262 */
 791 EXTERN ClientData       Tcl_VarTraceInfo2(Tcl_Interp *interp,
 792                                 const char *part1, const char *part2,
 793                                 int flags, Tcl_VarTraceProc *procPtr,
 794                                 ClientData prevClientData);
 795 /* 263 */
 796 EXTERN int              Tcl_Write(Tcl_Channel chan, const char *s, int slen);
 797 /* 264 */
 798 EXTERN void             Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
 799                                 Tcl_Obj *const objv[], const char *message);
 800 /* 265 */
 801 EXTERN int              Tcl_DumpActiveMemory(const char *fileName);
 802 /* 266 */
 803 EXTERN void             Tcl_ValidateAllMemory(const char *file, int line);
 804 /* 267 */
 805 EXTERN void             Tcl_AppendResultVA(Tcl_Interp *interp,
 806                                 va_list argList);
 807 /* 268 */
 808 EXTERN void             Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
 809                                 va_list argList);
 810 /* 269 */
 811 EXTERN char *           Tcl_HashStats(Tcl_HashTable *tablePtr);
 812 /* 270 */
 813 EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
 814                                 const char *start, CONST84 char **termPtr);
 815 /* 271 */
 816 EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
 817                                 const char *name, const char *version,
 818                                 int exact);
 819 /* 272 */
 820 EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
 821                                 const char *name, const char *version,
 822                                 int exact, void *clientDataPtr);
 823 /* 273 */
 824 EXTERN int              Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
 825                                 const char *version);
 826 /* 274 */
 827 EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
 828                                 const char *name, const char *version,
 829                                 int exact);
 830 /* 275 */
 831 EXTERN void             Tcl_SetErrorCodeVA(Tcl_Interp *interp,
 832                                 va_list argList);
 833 /* 276 */
 834 EXTERN int              Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
 835 /* 277 */
 836 EXTERN Tcl_Pid          Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
 837 /* 278 */
 838 EXTERN void             Tcl_PanicVA(const char *format, va_list argList);
 839 /* 279 */
 840 EXTERN void             Tcl_GetVersion(int *major, int *minor,
 841                                 int *patchLevel, int *type);
 842 /* 280 */
 843 EXTERN void             Tcl_InitMemory(Tcl_Interp *interp);
 844 /* 281 */
 845 EXTERN Tcl_Channel      Tcl_StackChannel(Tcl_Interp *interp,
 846                                 const Tcl_ChannelType *typePtr,
 847                                 ClientData instanceData, int mask,
 848                                 Tcl_Channel prevChan);
 849 /* 282 */
 850 EXTERN int              Tcl_UnstackChannel(Tcl_Interp *interp,
 851                                 Tcl_Channel chan);
 852 /* 283 */
 853 EXTERN Tcl_Channel      Tcl_GetStackedChannel(Tcl_Channel chan);
 854 /* 284 */
 855 EXTERN void             Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
 856 /* Slot 285 is reserved */
 857 /* 286 */
 858 EXTERN void             Tcl_AppendObjToObj(Tcl_Obj *objPtr,
 859                                 Tcl_Obj *appendObjPtr);
 860 /* 287 */
 861 EXTERN Tcl_Encoding     Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
 862 /* 288 */
 863 EXTERN void             Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
 864                                 ClientData clientData);
 865 /* 289 */
 866 EXTERN void             Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
 867                                 ClientData clientData);
 868 /* 290 */
 869 EXTERN void             Tcl_DiscardResult(Tcl_SavedResult *statePtr);
 870 /* 291 */
 871 EXTERN int              Tcl_EvalEx(Tcl_Interp *interp, const char *script,
 872                                 int numBytes, int flags);
 873 /* 292 */
 874 EXTERN int              Tcl_EvalObjv(Tcl_Interp *interp, int objc,
 875                                 Tcl_Obj *const objv[], int flags);
 876 /* 293 */
 877 EXTERN int              Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
 878                                 int flags);
 879 /* 294 */
 880 EXTERN void             Tcl_ExitThread(int status);
 881 /* 295 */
 882 EXTERN int              Tcl_ExternalToUtf(Tcl_Interp *interp,
 883                                 Tcl_Encoding encoding, const char *src,
 884                                 int srcLen, int flags,
 885                                 Tcl_EncodingState *statePtr, char *dst,
 886                                 int dstLen, int *srcReadPtr,
 887                                 int *dstWrotePtr, int *dstCharsPtr);
 888 /* 296 */
 889 EXTERN char *           Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
 890                                 const char *src, int srcLen,
 891                                 Tcl_DString *dsPtr);
 892 /* 297 */
 893 EXTERN void             Tcl_FinalizeThread(void);
 894 /* 298 */
 895 EXTERN void             Tcl_FinalizeNotifier(ClientData clientData);
 896 /* 299 */
 897 EXTERN void             Tcl_FreeEncoding(Tcl_Encoding encoding);
 898 /* 300 */
 899 EXTERN Tcl_ThreadId     Tcl_GetCurrentThread(void);
 900 /* 301 */
 901 EXTERN Tcl_Encoding     Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
 902 /* 302 */
 903 EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
 904 /* 303 */
 905 EXTERN void             Tcl_GetEncodingNames(Tcl_Interp *interp);
 906 /* 304 */
 907 EXTERN int              Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
 908                                 Tcl_Obj *objPtr, const void *tablePtr,
 909                                 int offset, const char *msg, int flags,
 910                                 int *indexPtr);
 911 /* 305 */
 912 EXTERN void *           Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
 913                                 int size);
 914 /* 306 */
 915 EXTERN Tcl_Obj *        Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
 916                                 const char *part2, int flags);
 917 /* 307 */
 918 EXTERN ClientData       Tcl_InitNotifier(void);
 919 /* 308 */
 920 EXTERN void             Tcl_MutexLock(Tcl_Mutex *mutexPtr);
 921 /* 309 */
 922 EXTERN void             Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
 923 /* 310 */
 924 EXTERN void             Tcl_ConditionNotify(Tcl_Condition *condPtr);
 925 /* 311 */
 926 EXTERN void             Tcl_ConditionWait(Tcl_Condition *condPtr,
 927                                 Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
 928 /* 312 */
 929 EXTERN int              Tcl_NumUtfChars(const char *src, int length);
 930 /* 313 */
 931 EXTERN int              Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
 932                                 int charsToRead, int appendFlag);
 933 /* 314 */
 934 EXTERN void             Tcl_RestoreResult(Tcl_Interp *interp,
 935                                 Tcl_SavedResult *statePtr);
 936 /* 315 */
 937 EXTERN void             Tcl_SaveResult(Tcl_Interp *interp,
 938                                 Tcl_SavedResult *statePtr);
 939 /* 316 */
 940 EXTERN int              Tcl_SetSystemEncoding(Tcl_Interp *interp,
 941                                 const char *name);
 942 /* 317 */
 943 EXTERN Tcl_Obj *        Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
 944                                 const char *part2, Tcl_Obj *newValuePtr,
 945                                 int flags);
 946 /* 318 */
 947 EXTERN void             Tcl_ThreadAlert(Tcl_ThreadId threadId);
 948 /* 319 */
 949 EXTERN void             Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
 950                                 Tcl_Event *evPtr, Tcl_QueuePosition position);
 951 /* 320 */
 952 EXTERN Tcl_UniChar      Tcl_UniCharAtIndex(const char *src, int index);
 953 /* 321 */
 954 EXTERN Tcl_UniChar      Tcl_UniCharToLower(int ch);
 955 /* 322 */
 956 EXTERN Tcl_UniChar      Tcl_UniCharToTitle(int ch);
 957 /* 323 */
 958 EXTERN Tcl_UniChar      Tcl_UniCharToUpper(int ch);
 959 /* 324 */
 960 EXTERN int              Tcl_UniCharToUtf(int ch, char *buf);
 961 /* 325 */
 962 EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
 963 /* 326 */
 964 EXTERN int              Tcl_UtfCharComplete(const char *src, int length);
 965 /* 327 */
 966 EXTERN int              Tcl_UtfBackslash(const char *src, int *readPtr,
 967                                 char *dst);
 968 /* 328 */
 969 EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
 970 /* 329 */
 971 EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
 972 /* 330 */
 973 EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
 974 /* 331 */
 975 EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start);
 976 /* 332 */
 977 EXTERN int              Tcl_UtfToExternal(Tcl_Interp *interp,
 978                                 Tcl_Encoding encoding, const char *src,
 979                                 int srcLen, int flags,
 980                                 Tcl_EncodingState *statePtr, char *dst,
 981                                 int dstLen, int *srcReadPtr,
 982                                 int *dstWrotePtr, int *dstCharsPtr);
 983 /* 333 */
 984 EXTERN char *           Tcl_UtfToExternalDString(Tcl_Encoding encoding,
 985                                 const char *src, int srcLen,
 986                                 Tcl_DString *dsPtr);
 987 /* 334 */
 988 EXTERN int              Tcl_UtfToLower(char *src);
 989 /* 335 */
 990 EXTERN int              Tcl_UtfToTitle(char *src);
 991 /* 336 */
 992 EXTERN int              Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr);
 993 /* 337 */
 994 EXTERN int              Tcl_UtfToUpper(char *src);
 995 /* 338 */
 996 EXTERN int              Tcl_WriteChars(Tcl_Channel chan, const char *src,
 997                                 int srcLen);
 998 /* 339 */
 999 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_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 result, 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
1819 typedef struct {
1820     const struct TclPlatStubs *tclPlatStubs;
1821     const struct TclIntStubs *tclIntStubs;
1822     const struct TclIntPlatStubs *tclIntPlatStubs;
1823 } TclStubHooks;
1824
1825 typedef struct TclStubs {
1826     int magic;
1827     const TclStubHooks *hooks;
1828
1829     int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
1830     CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
1831     void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
1832     char * (*tcl_Alloc) (unsigned int size); /* 3 */
1833     void (*tcl_Free) (char *ptr); /* 4 */
1834     char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
1835     char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */
1836     void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
1837     char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */
1838 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
1839     void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
1840 #endif /* UNIX */
1841 #if defined(_WIN32) /* WIN */
1842     void (*reserved9)(void);
1843 #endif /* WIN */
1844 #ifdef MAC_OSX_TCL /* MACOSX */
1845     void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
1846 #endif /* MACOSX */
1847 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
1848     void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1849 #endif /* UNIX */
1850 #if defined(_WIN32) /* WIN */
1851     void (*reserved10)(void);
1852 #endif /* WIN */
1853 #ifdef MAC_OSX_TCL /* MACOSX */
1854     void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1855 #endif /* MACOSX */
1856     void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
1857     void (*tcl_Sleep) (int ms); /* 12 */
1858     int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
1859     int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
1860     void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
1861     void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */
1862     Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
1863     int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
1864     void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
1865     void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
1866     int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
1867     Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */
1868     Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */
1869     Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
1870     Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
1871     Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */
1872     Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
1873     Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */
1874     Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
1875     void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
1876     int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */
1877     int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */
1878     unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */
1879     int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
1880     int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
1881     int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */
1882     int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
1883     int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
1884     int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
1885     CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
1886     char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
1887     void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
1888     int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
1889     int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
1890     int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
1891     int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */
1892     int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */
1893     int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
1894     Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
1895     Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */
1896     Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
1897     Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
1898     Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
1899     Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
1900     Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
1901     Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
1902     void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */
1903     unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */
1904     void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */
1905     void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
1906     void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
1907     void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
1908     void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
1909     void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
1910     void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */
1911     void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */
1912     void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */
1913     void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
1914     void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
1915     void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
1916     Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */
1917     void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
1918     int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
1919     void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
1920     int (*tcl_AsyncReady) (void); /* 75 */
1921     void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
1922     char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
1923     int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
1924     void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */
1925     void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */
1926     int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
1927     int (*tcl_CommandComplete) (const char *cmd); /* 82 */
1928     char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
1929     int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
1930     int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
1931     int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
1932     int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
1933     Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
1934     void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
1935     void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
1936     Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
1937     void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */
1938     void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */
1939     Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
1940     void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
1941     Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
1942     Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveName, int isSafe); /* 97 */
1943     Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
1944     Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
1945     void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
1946     void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */
1947     void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
1948     int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
1949     int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
1950     void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */
1951     void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */
1952     void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */
1953     void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
1954     void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
1955     void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
1956     void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
1957     void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
1958     void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
1959     void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */
1960     int (*tcl_DoOneEvent) (int flags); /* 115 */
1961     void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
1962     char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */
1963     char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
1964     void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
1965     void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
1966     void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
1967     void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
1968     void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
1969     void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */
1970     void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
1971     int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
1972     CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
1973     CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
1974     int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
1975     int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
1976     int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
1977     void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */
1978     void (*tcl_Exit) (int status); /* 133 */
1979     int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
1980     int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
1981     int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
1982     int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
1983     int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
1984     int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
1985     int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
1986     int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
1987     int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
1988     void (*tcl_Finalize) (void); /* 143 */
1989     void (*tcl_FindExecutable) (const char *argv0); /* 144 */
1990     Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
1991     int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
1992     void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
1993     int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
1994     int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
1995     ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
1996     Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
1997     int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
1998     int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */
1999     ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
2000     int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
2001     CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
2002     int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
2003     CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
2004     int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
2005     CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
2006     int (*tcl_GetErrno) (void); /* 161 */
2007     CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
2008     int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */
2009     Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
2010     const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
2011     Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
2012 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2013     int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
2014 #endif /* UNIX */
2015 #if defined(_WIN32) /* WIN */
2016     void (*reserved167)(void);
2017 #endif /* WIN */
2018 #ifdef MAC_OSX_TCL /* MACOSX */
2019     int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
2020 #endif /* MACOSX */
2021     Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
2022     int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
2023     int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
2024     int (*tcl_GetServiceMode) (void); /* 171 */
2025     Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName); /* 172 */
2026     Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
2027     CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
2028     CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
2029     CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
2030     int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */
2031     int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
2032     int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
2033     int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
2034     void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
2035     int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
2036     int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
2037     int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
2038     int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
2039     char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */
2040     int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */
2041     void (*reserved188)(void);
2042     Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
2043     int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
2044     Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
2045     char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
2046     Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
2047     void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
2048     Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
2049     Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
2050     Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */
2051     Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
2052     Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */
2053     Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */
2054     void (*tcl_Preserve) (ClientData data); /* 201 */
2055     void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
2056     int (*tcl_PutEnv) (const char *assignment); /* 203 */
2057     CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
2058     void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
2059     int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
2060     void (*tcl_ReapDetachedProcs) (void); /* 207 */
2061     int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
2062     int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
2063     void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
2064     void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
2065     Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
2066     int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
2067     int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
2068     void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */
2069     void (*tcl_Release) (ClientData clientData); /* 216 */
2070     void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
2071     int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
2072     int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */
2073     int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
2074     int (*tcl_ServiceAll) (void); /* 221 */
2075     int (*tcl_ServiceEvent) (int flags); /* 222 */
2076     void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */
2077     void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
2078     int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
2079     int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
2080     void (*tcl_SetErrno) (int err); /* 227 */
2081     void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
2082     void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
2083     void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */
2084     int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
2085     void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */
2086     int (*tcl_SetServiceMode) (int mode); /* 233 */
2087     void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
2088     void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
2089     void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
2090     CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */
2091     CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
2092     CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
2093     CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
2094     void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
2095     int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */
2096     void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */
2097     void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
2098     int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */
2099     int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
2100     int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
2101     int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */
2102     char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
2103     int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */
2104     void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
2105     int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
2106     int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */
2107     int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
2108     void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
2109     void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */
2110     void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
2111     int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */
2112     int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
2113     int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
2114     ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */
2115     ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */
2116     int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
2117     void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */
2118     int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
2119     void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
2120     void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */
2121     void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
2122     char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
2123     CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */
2124     CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */
2125     CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
2126     int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */
2127     CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */
2128     void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */
2129     int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
2130     Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
2131     void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
2132     void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
2133     void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
2134     Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
2135     int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
2136     Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
2137     void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
2138     void (*reserved285)(void);
2139     void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
2140     Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
2141     void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */
2142     void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */
2143     void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
2144     int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */
2145     int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
2146     int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
2147     void (*tcl_ExitThread) (int status); /* 294 */
2148     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 */
2149     char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */
2150     void (*tcl_FinalizeThread) (void); /* 297 */
2151     void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
2152     void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
2153     Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
2154     Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
2155     CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
2156     void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
2157     int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */
2158     void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */
2159     Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
2160     ClientData (*tcl_InitNotifier) (void); /* 307 */
2161     void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
2162     void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
2163     void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
2164     void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
2165     int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
2166     int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */
2167     void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */
2168     void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
2169     int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
2170     Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
2171     void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
2172     void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
2173     Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
2174     Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
2175     Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
2176     Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
2177     int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
2178     CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */
2179     int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
2180     int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
2181     CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
2182     CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
2183     CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
2184     CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */
2185     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 */
2186     char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */
2187     int (*tcl_UtfToLower) (char *src); /* 334 */
2188     int (*tcl_UtfToTitle) (char *src); /* 335 */
2189     int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */
2190     int (*tcl_UtfToUpper) (char *src); /* 337 */
2191     int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
2192     int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
2193     char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
2194     CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
2195     void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
2196     void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
2197     void (*tcl_ServiceModeHook) (int mode); /* 344 */
2198     int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
2199     int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
2200     int (*tcl_UniCharIsDigit) (int ch); /* 347 */
2201     int (*tcl_UniCharIsLower) (int ch); /* 348 */
2202     int (*tcl_UniCharIsSpace) (int ch); /* 349 */
2203     int (*tcl_UniCharIsUpper) (int ch); /* 350 */
2204     int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
2205     int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
2206     int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */
2207     char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */
2208     Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */
2209     Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
2210     Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */
2211     void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
2212     void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */
2213     int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
2214     int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
2215     int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */
2216     int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */
2217     int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
2218     char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
2219     int (*tcl_Chdir) (const char *dirName); /* 366 */
2220     int (*tcl_Access) (const char *path, int mode); /* 367 */
2221     int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
2222     int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */
2223     int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */
2224     int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
2225     int (*tcl_UniCharIsControl) (int ch); /* 372 */
2226     int (*tcl_UniCharIsGraph) (int ch); /* 373 */
2227     int (*tcl_UniCharIsPrint) (int ch); /* 374 */
2228     int (*tcl_UniCharIsPunct) (int ch); /* 375 */
2229     int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */
2230     void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
2231     Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */
2232     void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */
2233     int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
2234     Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
2235     Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
2236     Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */
2237     void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */
2238     int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
2239     void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
2240     Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
2241     int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
2242     int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
2243     int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */
2244     void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
2245     void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
2246     int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */
2247     int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */
2248     int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
2249     Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
2250     int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
2251     CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
2252     Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
2253     Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
2254     Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */
2255     Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
2256     Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
2257     Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
2258     Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */
2259     Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
2260     Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
2261     Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
2262     Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
2263     Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
2264     Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
2265     int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
2266     int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
2267     int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
2268     void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
2269     void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
2270     void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
2271     int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
2272     int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */
2273     int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */
2274     Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */
2275     Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
2276     void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
2277     void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
2278     ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */
2279     int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
2280     void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
2281     char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
2282     char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */
2283     char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
2284     char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */
2285     int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
2286     Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
2287     Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */
2288     int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */
2289     Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */
2290     Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
2291     int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
2292     int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
2293     int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
2294     int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
2295     int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
2296     int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
2297     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 */
2298     int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
2299     Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
2300     int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
2301     int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
2302     int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
2303     int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
2304     int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
2305     int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
2306     const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
2307     int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
2308     int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
2309     Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
2310     Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
2311     int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
2312     int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
2313     Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
2314     Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
2315     int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
2316     Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
2317     Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
2318     ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
2319     Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
2320     int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
2321     Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */
2322     const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
2323     Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
2324     Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
2325     Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
2326     int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */
2327     int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
2328     ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
2329     const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
2330     CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
2331     Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
2332     int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
2333     void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
2334     int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
2335     void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
2336     Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
2337     int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
2338     int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
2339     Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
2340     int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
2341     Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
2342     void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
2343     Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
2344     Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
2345     Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
2346     Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
2347     int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
2348     int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
2349     int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
2350     int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */
2351     int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
2352     void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
2353     void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
2354     int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
2355     int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */
2356     Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
2357     Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
2358     void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
2359     Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
2360     void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
2361     int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
2362     int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
2363     int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
2364     int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
2365     Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
2366     Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
2367     Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
2368     Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
2369     Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
2370     void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
2371     int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
2372     Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */
2373     void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
2374     void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */
2375     int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
2376     int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
2377     int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
2378     void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
2379     void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
2380     void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
2381     int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
2382     int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
2383     void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
2384     void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
2385     int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
2386     void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
2387     int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
2388     Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
2389     int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
2390     void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
2391     int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
2392     Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
2393     int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
2394     Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
2395     Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
2396     int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
2397     int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
2398     int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
2399     int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
2400     int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
2401     int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
2402     int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
2403     int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
2404     int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
2405     void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */
2406     void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
2407     Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
2408     Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
2409     Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */
2410     void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
2411     int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */
2412     int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
2413     int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
2414     Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
2415     void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
2416     void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
2417     void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
2418     void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
2419     int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */
2420     Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
2421     int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
2422     int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
2423     Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
2424     int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
2425     const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
2426     int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
2427     void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
2428     void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */
2429     Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */
2430     int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
2431     Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
2432     void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
2433     int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */
2434     int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
2435     int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
2436     Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
2437     int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
2438     int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
2439     int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
2440     void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
2441     int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
2442     unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
2443     unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
2444     unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
2445     int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
2446     int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
2447     int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
2448     int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
2449     Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
2450     Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
2451     Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
2452     Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
2453     Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
2454     unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
2455     int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
2456     int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
2457     int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
2458     int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
2459     void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
2460     void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp); /* 607 */
2461     int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
2462     void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
2463     int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
2464     int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
2465     unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */
2466     unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */
2467     int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
2468     Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
2469     int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
2470     int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
2471     int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
2472     int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */
2473     int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
2474     int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
2475     void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
2476     Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
2477     int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
2478     int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
2479     int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
2480     int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
2481     void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
2482     int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
2483     void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
2484 } TclStubs;
2485
2486 extern const TclStubs *tclStubsPtr;
2487
2488 #ifdef __cplusplus
2489 }
2490 #endif
2491
2492 #if defined(USE_TCL_STUBS)
2493
2494 /*
2495  * Inline function declarations:
2496  */
2497
2498 #define Tcl_PkgProvideEx \
2499         (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
2500 #define Tcl_PkgRequireEx \
2501         (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
2502 #define Tcl_Panic \
2503         (tclStubsPtr->tcl_Panic) /* 2 */
2504 #define Tcl_Alloc \
2505         (tclStubsPtr->tcl_Alloc) /* 3 */
2506 #define Tcl_Free \
2507         (tclStubsPtr->tcl_Free) /* 4 */
2508 #define Tcl_Realloc \
2509         (tclStubsPtr->tcl_Realloc) /* 5 */
2510 #define Tcl_DbCkalloc \
2511         (tclStubsPtr->tcl_DbCkalloc) /* 6 */
2512 #define Tcl_DbCkfree \
2513         (tclStubsPtr->tcl_DbCkfree) /* 7 */
2514 #define Tcl_DbCkrealloc \
2515         (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
2516 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2517 #define Tcl_CreateFileHandler \
2518         (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2519 #endif /* UNIX */
2520 #ifdef MAC_OSX_TCL /* MACOSX */
2521 #define Tcl_CreateFileHandler \
2522         (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2523 #endif /* MACOSX */
2524 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2525 #define Tcl_DeleteFileHandler \
2526         (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2527 #endif /* UNIX */
2528 #ifdef MAC_OSX_TCL /* MACOSX */
2529 #define Tcl_DeleteFileHandler \
2530         (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2531 #endif /* MACOSX */
2532 #define Tcl_SetTimer \
2533         (tclStubsPtr->tcl_SetTimer) /* 11 */
2534 #define Tcl_Sleep \
2535         (tclStubsPtr->tcl_Sleep) /* 12 */
2536 #define Tcl_WaitForEvent \
2537         (tclStubsPtr->tcl_WaitForEvent) /* 13 */
2538 #define Tcl_AppendAllObjTypes \
2539         (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
2540 #define Tcl_AppendStringsToObj \
2541         (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
2542 #define Tcl_AppendToObj \
2543         (tclStubsPtr->tcl_AppendToObj) /* 16 */
2544 #define Tcl_ConcatObj \
2545         (tclStubsPtr->tcl_ConcatObj) /* 17 */
2546 #define Tcl_ConvertToType \
2547         (tclStubsPtr->tcl_ConvertToType) /* 18 */
2548 #define Tcl_DbDecrRefCount \
2549         (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
2550 #define Tcl_DbIncrRefCount \
2551         (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
2552 #define Tcl_DbIsShared \
2553         (tclStubsPtr->tcl_DbIsShared) /* 21 */
2554 #define Tcl_DbNewBooleanObj \
2555         (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
2556 #define Tcl_DbNewByteArrayObj \
2557         (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
2558 #define Tcl_DbNewDoubleObj \
2559         (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
2560 #define Tcl_DbNewListObj \
2561         (tclStubsPtr->tcl_DbNewListObj) /* 25 */
2562 #define Tcl_DbNewLongObj \
2563         (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
2564 #define Tcl_DbNewObj \
2565         (tclStubsPtr->tcl_DbNewObj) /* 27 */
2566 #define Tcl_DbNewStringObj \
2567         (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
2568 #define Tcl_DuplicateObj \
2569         (tclStubsPtr->tcl_DuplicateObj) /* 29 */
2570 #define TclFreeObj \
2571         (tclStubsPtr->tclFreeObj) /* 30 */
2572 #define Tcl_GetBoolean \
2573         (tclStubsPtr->tcl_GetBoolean) /* 31 */
2574 #define Tcl_GetBooleanFromObj \
2575         (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
2576 #define Tcl_GetByteArrayFromObj \
2577         (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
2578 #define Tcl_GetDouble \
2579         (tclStubsPtr->tcl_GetDouble) /* 34 */
2580 #define Tcl_GetDoubleFromObj \
2581         (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
2582 #define Tcl_GetIndexFromObj \
2583         (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
2584 #define Tcl_GetInt \
2585         (tclStubsPtr->tcl_GetInt) /* 37 */
2586 #define Tcl_GetIntFromObj \
2587         (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
2588 #define Tcl_GetLongFromObj \
2589         (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
2590 #define Tcl_GetObjType \
2591         (tclStubsPtr->tcl_GetObjType) /* 40 */
2592 #define Tcl_GetStringFromObj \
2593         (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
2594 #define Tcl_InvalidateStringRep \
2595         (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
2596 #define Tcl_ListObjAppendList \
2597         (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
2598 #define Tcl_ListObjAppendElement \
2599         (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
2600 #define Tcl_ListObjGetElements \
2601         (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
2602 #define Tcl_ListObjIndex \
2603         (tclStubsPtr->tcl_ListObjIndex) /* 46 */
2604 #define Tcl_ListObjLength \
2605         (tclStubsPtr->tcl_ListObjLength) /* 47 */
2606 #define Tcl_ListObjReplace \
2607         (tclStubsPtr->tcl_ListObjReplace) /* 48 */
2608 #define Tcl_NewBooleanObj \
2609         (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
2610 #define Tcl_NewByteArrayObj \
2611         (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
2612 #define Tcl_NewDoubleObj \
2613         (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
2614 #define Tcl_NewIntObj \
2615         (tclStubsPtr->tcl_NewIntObj) /* 52 */
2616 #define Tcl_NewListObj \
2617         (tclStubsPtr->tcl_NewListObj) /* 53 */
2618 #define Tcl_NewLongObj \
2619         (tclStubsPtr->tcl_NewLongObj) /* 54 */
2620 #define Tcl_NewObj \
2621         (tclStubsPtr->tcl_NewObj) /* 55 */
2622 #define Tcl_NewStringObj \
2623         (tclStubsPtr->tcl_NewStringObj) /* 56 */
2624 #define Tcl_SetBooleanObj \
2625         (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
2626 #define Tcl_SetByteArrayLength \
2627         (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
2628 #define Tcl_SetByteArrayObj \
2629         (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
2630 #define Tcl_SetDoubleObj \
2631         (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
2632 #define Tcl_SetIntObj \
2633         (tclStubsPtr->tcl_SetIntObj) /* 61 */
2634 #define Tcl_SetListObj \
2635         (tclStubsPtr->tcl_SetListObj) /* 62 */
2636 #define Tcl_SetLongObj \
2637         (tclStubsPtr->tcl_SetLongObj) /* 63 */
2638 #define Tcl_SetObjLength \
2639         (tclStubsPtr->tcl_SetObjLength) /* 64 */
2640 #define Tcl_SetStringObj \
2641         (tclStubsPtr->tcl_SetStringObj) /* 65 */
2642 #define Tcl_AddErrorInfo \
2643         (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
2644 #define Tcl_AddObjErrorInfo \
2645         (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
2646 #define Tcl_AllowExceptions \
2647         (tclStubsPtr->tcl_AllowExceptions) /* 68 */
2648 #define Tcl_AppendElement \
2649         (tclStubsPtr->tcl_AppendElement) /* 69 */
2650 #define Tcl_AppendResult \
2651         (tclStubsPtr->tcl_AppendResult) /* 70 */
2652 #define Tcl_AsyncCreate \
2653         (tclStubsPtr->tcl_AsyncCreate) /* 71 */
2654 #define Tcl_AsyncDelete \
2655         (tclStubsPtr->tcl_AsyncDelete) /* 72 */
2656 #define Tcl_AsyncInvoke \
2657         (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
2658 #define Tcl_AsyncMark \
2659         (tclStubsPtr->tcl_AsyncMark) /* 74 */
2660 #define Tcl_AsyncReady \
2661         (tclStubsPtr->tcl_AsyncReady) /* 75 */
2662 #define Tcl_BackgroundError \
2663         (tclStubsPtr->tcl_BackgroundError) /* 76 */
2664 #define Tcl_Backslash \
2665         (tclStubsPtr->tcl_Backslash) /* 77 */
2666 #define Tcl_BadChannelOption \
2667         (tclStubsPtr->tcl_BadChannelOption) /* 78 */
2668 #define Tcl_CallWhenDeleted \
2669         (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
2670 #define Tcl_CancelIdleCall \
2671         (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
2672 #define Tcl_Close \
2673         (tclStubsPtr->tcl_Close) /* 81 */
2674 #define Tcl_CommandComplete \
2675         (tclStubsPtr->tcl_CommandComplete) /* 82 */
2676 #define Tcl_Concat \
2677         (tclStubsPtr->tcl_Concat) /* 83 */
2678 #define Tcl_ConvertElement \
2679         (tclStubsPtr->tcl_ConvertElement) /* 84 */
2680 #define Tcl_ConvertCountedElement \
2681         (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
2682 #define Tcl_CreateAlias \
2683         (tclStubsPtr->tcl_CreateAlias) /* 86 */
2684 #define Tcl_CreateAliasObj \
2685         (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
2686 #define Tcl_CreateChannel \
2687         (tclStubsPtr->tcl_CreateChannel) /* 88 */
2688 #define Tcl_CreateChannelHandler \
2689         (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
2690 #define Tcl_CreateCloseHandler \
2691         (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
2692 #define Tcl_CreateCommand \
2693         (tclStubsPtr->tcl_CreateCommand) /* 91 */
2694 #define Tcl_CreateEventSource \
2695         (tclStubsPtr->tcl_CreateEventSource) /* 92 */
2696 #define Tcl_CreateExitHandler \
2697         (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
2698 #define Tcl_CreateInterp \
2699         (tclStubsPtr->tcl_CreateInterp) /* 94 */
2700 #define Tcl_CreateMathFunc \
2701         (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
2702 #define Tcl_CreateObjCommand \
2703         (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
2704 #define Tcl_CreateSlave \
2705         (tclStubsPtr->tcl_CreateSlave) /* 97 */
2706 #define Tcl_CreateTimerHandler \
2707         (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
2708 #define Tcl_CreateTrace \
2709         (tclStubsPtr->tcl_CreateTrace) /* 99 */
2710 #define Tcl_DeleteAssocData \
2711         (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
2712 #define Tcl_DeleteChannelHandler \
2713         (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
2714 #define Tcl_DeleteCloseHandler \
2715         (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
2716 #define Tcl_DeleteCommand \
2717         (tclStubsPtr->tcl_DeleteCommand) /* 103 */
2718 #define Tcl_DeleteCommandFromToken \
2719         (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
2720 #define Tcl_DeleteEvents \
2721         (tclStubsPtr->tcl_DeleteEvents) /* 105 */
2722 #define Tcl_DeleteEventSource \
2723         (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
2724 #define Tcl_DeleteExitHandler \
2725         (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
2726 #define Tcl_DeleteHashEntry \
2727         (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
2728 #define Tcl_DeleteHashTable \
2729         (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
2730 #define Tcl_DeleteInterp \
2731         (tclStubsPtr->tcl_DeleteInterp) /* 110 */
2732 #define Tcl_DetachPids \
2733         (tclStubsPtr->tcl_DetachPids) /* 111 */
2734 #define Tcl_DeleteTimerHandler \
2735         (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
2736 #define Tcl_DeleteTrace \
2737         (tclStubsPtr->tcl_DeleteTrace) /* 113 */
2738 #define Tcl_DontCallWhenDeleted \
2739         (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
2740 #define Tcl_DoOneEvent \
2741         (tclStubsPtr->tcl_DoOneEvent) /* 115 */
2742 #define Tcl_DoWhenIdle \
2743         (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
2744 #define Tcl_DStringAppend \
2745         (tclStubsPtr->tcl_DStringAppend) /* 117 */
2746 #define Tcl_DStringAppendElement \
2747         (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
2748 #define Tcl_DStringEndSublist \
2749         (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
2750 #define Tcl_DStringFree \
2751         (tclStubsPtr->tcl_DStringFree) /* 120 */
2752 #define Tcl_DStringGetResult \
2753         (tclStubsPtr->tcl_DStringGetResult) /* 121 */
2754 #define Tcl_DStringInit \
2755         (tclStubsPtr->tcl_DStringInit) /* 122 */
2756 #define Tcl_DStringResult \
2757         (tclStubsPtr->tcl_DStringResult) /* 123 */
2758 #define Tcl_DStringSetLength \
2759         (tclStubsPtr->tcl_DStringSetLength) /* 124 */
2760 #define Tcl_DStringStartSublist \
2761         (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
2762 #define Tcl_Eof \
2763         (tclStubsPtr->tcl_Eof) /* 126 */
2764 #define Tcl_ErrnoId \
2765         (tclStubsPtr->tcl_ErrnoId) /* 127 */
2766 #define Tcl_ErrnoMsg \
2767         (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
2768 #define Tcl_Eval \
2769         (tclStubsPtr->tcl_Eval) /* 129 */
2770 #define Tcl_EvalFile \
2771         (tclStubsPtr->tcl_EvalFile) /* 130 */
2772 #define Tcl_EvalObj \
2773         (tclStubsPtr->tcl_EvalObj) /* 131 */
2774 #define Tcl_EventuallyFree \
2775         (tclStubsPtr->tcl_EventuallyFree) /* 132 */
2776 #define Tcl_Exit \
2777         (tclStubsPtr->tcl_Exit) /* 133 */
2778 #define Tcl_ExposeCommand \
2779         (tclStubsPtr->tcl_ExposeCommand) /* 134 */
2780 #define Tcl_ExprBoolean \
2781         (tclStubsPtr->tcl_ExprBoolean) /* 135 */
2782 #define Tcl_ExprBooleanObj \
2783         (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
2784 #define Tcl_ExprDouble \
2785         (tclStubsPtr->tcl_ExprDouble) /* 137 */
2786 #define Tcl_ExprDoubleObj \
2787         (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
2788 #define Tcl_ExprLong \
2789         (tclStubsPtr->tcl_ExprLong) /* 139 */
2790 #define Tcl_ExprLongObj \
2791         (tclStubsPtr->tcl_ExprLongObj) /* 140 */
2792 #define Tcl_ExprObj \
2793         (tclStubsPtr->tcl_ExprObj) /* 141 */
2794 #define Tcl_ExprString \
2795         (tclStubsPtr->tcl_ExprString) /* 142 */
2796 #define Tcl_Finalize \
2797         (tclStubsPtr->tcl_Finalize) /* 143 */
2798 #define Tcl_FindExecutable \
2799         (tclStubsPtr->tcl_FindExecutable) /* 144 */
2800 #define Tcl_FirstHashEntry \
2801         (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
2802 #define Tcl_Flush \
2803         (tclStubsPtr->tcl_Flush) /* 146 */
2804 #define Tcl_FreeResult \
2805         (tclStubsPtr->tcl_FreeResult) /* 147 */
2806 #define Tcl_GetAlias \
2807         (tclStubsPtr->tcl_GetAlias) /* 148 */
2808 #define Tcl_GetAliasObj \
2809         (tclStubsPtr->tcl_GetAliasObj) /* 149 */
2810 #define Tcl_GetAssocData \
2811         (tclStubsPtr->tcl_GetAssocData) /* 150 */
2812 #define Tcl_GetChannel \
2813         (tclStubsPtr->tcl_GetChannel) /* 151 */
2814 #define Tcl_GetChannelBufferSize \
2815         (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
2816 #define Tcl_GetChannelHandle \
2817         (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
2818 #define Tcl_GetChannelInstanceData \
2819         (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
2820 #define Tcl_GetChannelMode \
2821         (tclStubsPtr->tcl_GetChannelMode) /* 155 */
2822 #define Tcl_GetChannelName \
2823         (tclStubsPtr->tcl_GetChannelName) /* 156 */
2824 #define Tcl_GetChannelOption \
2825         (tclStubsPtr->tcl_GetChannelOption) /* 157 */
2826 #define Tcl_GetChannelType \
2827         (tclStubsPtr->tcl_GetChannelType) /* 158 */
2828 #define Tcl_GetCommandInfo \
2829         (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
2830 #define Tcl_GetCommandName \
2831         (tclStubsPtr->tcl_GetCommandName) /* 160 */
2832 #define Tcl_GetErrno \
2833         (tclStubsPtr->tcl_GetErrno) /* 161 */
2834 #define Tcl_GetHostName \
2835         (tclStubsPtr->tcl_GetHostName) /* 162 */
2836 #define Tcl_GetInterpPath \
2837         (tclStubsPtr->tcl_GetInterpPath) /* 163 */
2838 #define Tcl_GetMaster \
2839         (tclStubsPtr->tcl_GetMaster) /* 164 */
2840 #define Tcl_GetNameOfExecutable \
2841         (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
2842 #define Tcl_GetObjResult \
2843         (tclStubsPtr->tcl_GetObjResult) /* 166 */
2844 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2845 #define Tcl_GetOpenFile \
2846         (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2847 #endif /* UNIX */
2848 #ifdef MAC_OSX_TCL /* MACOSX */
2849 #define Tcl_GetOpenFile \
2850         (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2851 #endif /* MACOSX */
2852 #define Tcl_GetPathType \
2853         (tclStubsPtr->tcl_GetPathType) /* 168 */
2854 #define Tcl_Gets \
2855         (tclStubsPtr->tcl_Gets) /* 169 */
2856 #define Tcl_GetsObj \
2857         (tclStubsPtr->tcl_GetsObj) /* 170 */
2858 #define Tcl_GetServiceMode \
2859         (tclStubsPtr->tcl_GetServiceMode) /* 171 */
2860 #define Tcl_GetSlave \
2861         (tclStubsPtr->tcl_GetSlave) /* 172 */
2862 #define Tcl_GetStdChannel \
2863         (tclStubsPtr->tcl_GetStdChannel) /* 173 */
2864 #define Tcl_GetStringResult \
2865         (tclStubsPtr->tcl_GetStringResult) /* 174 */
2866 #define Tcl_GetVar \
2867         (tclStubsPtr->tcl_GetVar) /* 175 */
2868 #define Tcl_GetVar2 \
2869         (tclStubsPtr->tcl_GetVar2) /* 176 */
2870 #define Tcl_GlobalEval \
2871         (tclStubsPtr->tcl_GlobalEval) /* 177 */
2872 #define Tcl_GlobalEvalObj \
2873         (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
2874 #define Tcl_HideCommand \
2875         (tclStubsPtr->tcl_HideCommand) /* 179 */
2876 #define Tcl_Init \
2877         (tclStubsPtr->tcl_Init) /* 180 */
2878 #define Tcl_InitHashTable \
2879         (tclStubsPtr->tcl_InitHashTable) /* 181 */
2880 #define Tcl_InputBlocked \
2881         (tclStubsPtr->tcl_InputBlocked) /* 182 */
2882 #define Tcl_InputBuffered \
2883         (tclStubsPtr->tcl_InputBuffered) /* 183 */
2884 #define Tcl_InterpDeleted \
2885         (tclStubsPtr->tcl_InterpDeleted) /* 184 */
2886 #define Tcl_IsSafe \
2887         (tclStubsPtr->tcl_IsSafe) /* 185 */
2888 #define Tcl_JoinPath \
2889         (tclStubsPtr->tcl_JoinPath) /* 186 */
2890 #define Tcl_LinkVar \
2891         (tclStubsPtr->tcl_LinkVar) /* 187 */
2892 /* Slot 188 is reserved */
2893 #define Tcl_MakeFileChannel \
2894         (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
2895 #define Tcl_MakeSafe \
2896         (tclStubsPtr->tcl_MakeSafe) /* 190 */
2897 #define Tcl_MakeTcpClientChannel \
2898         (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
2899 #define Tcl_Merge \
2900         (tclStubsPtr->tcl_Merge) /* 192 */
2901 #define Tcl_NextHashEntry \
2902         (tclStubsPtr->tcl_NextHashEntry) /* 193 */
2903 #define Tcl_NotifyChannel \
2904         (tclStubsPtr->tcl_NotifyChannel) /* 194 */
2905 #define Tcl_ObjGetVar2 \
2906         (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
2907 #define Tcl_ObjSetVar2 \
2908         (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
2909 #define Tcl_OpenCommandChannel \
2910         (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
2911 #define Tcl_OpenFileChannel \
2912         (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
2913 #define Tcl_OpenTcpClient \
2914         (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
2915 #define Tcl_OpenTcpServer \
2916         (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
2917 #define Tcl_Preserve \
2918         (tclStubsPtr->tcl_Preserve) /* 201 */
2919 #define Tcl_PrintDouble \
2920         (tclStubsPtr->tcl_PrintDouble) /* 202 */
2921 #define Tcl_PutEnv \
2922         (tclStubsPtr->tcl_PutEnv) /* 203 */
2923 #define Tcl_PosixError \
2924         (tclStubsPtr->tcl_PosixError) /* 204 */
2925 #define Tcl_QueueEvent \
2926         (tclStubsPtr->tcl_QueueEvent) /* 205 */
2927 #define Tcl_Read \
2928         (tclStubsPtr->tcl_Read) /* 206 */
2929 #define Tcl_ReapDetachedProcs \
2930         (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
2931 #define Tcl_RecordAndEval \
2932         (tclStubsPtr->tcl_RecordAndEval) /* 208 */
2933 #define Tcl_RecordAndEvalObj \
2934         (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
2935 #define Tcl_RegisterChannel \
2936         (tclStubsPtr->tcl_RegisterChannel) /* 210 */
2937 #define Tcl_RegisterObjType \
2938         (tclStubsPtr->tcl_RegisterObjType) /* 211 */
2939 #define Tcl_RegExpCompile \
2940         (tclStubsPtr->tcl_RegExpCompile) /* 212 */
2941 #define Tcl_RegExpExec \
2942         (tclStubsPtr->tcl_RegExpExec) /* 213 */
2943 #define Tcl_RegExpMatch \
2944         (tclStubsPtr->tcl_RegExpMatch) /* 214 */
2945 #define Tcl_RegExpRange \
2946         (tclStubsPtr->tcl_RegExpRange) /* 215 */
2947 #define Tcl_Release \
2948         (tclStubsPtr->tcl_Release) /* 216 */
2949 #define Tcl_ResetResult \
2950         (tclStubsPtr->tcl_ResetResult) /* 217 */
2951 #define Tcl_ScanElement \
2952         (tclStubsPtr->tcl_ScanElement) /* 218 */
2953 #define Tcl_ScanCountedElement \
2954         (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
2955 #define Tcl_SeekOld \
2956         (tclStubsPtr->tcl_SeekOld) /* 220 */
2957 #define Tcl_ServiceAll \
2958         (tclStubsPtr->tcl_ServiceAll) /* 221 */
2959 #define Tcl_ServiceEvent \
2960         (tclStubsPtr->tcl_ServiceEvent) /* 222 */
2961 #define Tcl_SetAssocData \
2962         (tclStubsPtr->tcl_SetAssocData) /* 223 */
2963 #define Tcl_SetChannelBufferSize \
2964         (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
2965 #define Tcl_SetChannelOption \
2966         (tclStubsPtr->tcl_SetChannelOption) /* 225 */
2967 #define Tcl_SetCommandInfo \
2968         (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
2969 #define Tcl_SetErrno \
2970         (tclStubsPtr->tcl_SetErrno) /* 227 */
2971 #define Tcl_SetErrorCode \
2972         (tclStubsPtr->tcl_SetErrorCode) /* 228 */
2973 #define Tcl_SetMaxBlockTime \
2974         (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
2975 #define Tcl_SetPanicProc \
2976         (tclStubsPtr->tcl_SetPanicProc) /* 230 */
2977 #define Tcl_SetRecursionLimit \
2978         (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
2979 #define Tcl_SetResult \
2980         (tclStubsPtr->tcl_SetResult) /* 232 */
2981 #define Tcl_SetServiceMode \
2982         (tclStubsPtr->tcl_SetServiceMode) /* 233 */
2983 #define Tcl_SetObjErrorCode \
2984         (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
2985 #define Tcl_SetObjResult \
2986         (tclStubsPtr->tcl_SetObjResult) /* 235 */
2987 #define Tcl_SetStdChannel \
2988         (tclStubsPtr->tcl_SetStdChannel) /* 236 */
2989 #define Tcl_SetVar \
2990         (tclStubsPtr->tcl_SetVar) /* 237 */
2991 #define Tcl_SetVar2 \
2992         (tclStubsPtr->tcl_SetVar2) /* 238 */
2993 #define Tcl_SignalId \
2994         (tclStubsPtr->tcl_SignalId) /* 239 */
2995 #define Tcl_SignalMsg \
2996         (tclStubsPtr->tcl_SignalMsg) /* 240 */
2997 #define Tcl_SourceRCFile \
2998         (tclStubsPtr->tcl_SourceRCFile) /* 241 */
2999 #define Tcl_SplitList \
3000         (tclStubsPtr->tcl_SplitList) /* 242 */
3001 #define Tcl_SplitPath \
3002         (tclStubsPtr->tcl_SplitPath) /* 243 */
3003 #define Tcl_StaticPackage \
3004         (tclStubsPtr->tcl_StaticPackage) /* 244 */
3005 #define Tcl_StringMatch \
3006         (tclStubsPtr->tcl_StringMatch) /* 245 */
3007 #define Tcl_TellOld \
3008         (tclStubsPtr->tcl_TellOld) /* 246 */
3009 #define Tcl_TraceVar \
3010         (tclStubsPtr->tcl_TraceVar) /* 247 */
3011 #define Tcl_TraceVar2 \
3012         (tclStubsPtr->tcl_TraceVar2) /* 248 */
3013 #define Tcl_TranslateFileName \
3014         (tclStubsPtr->tcl_TranslateFileName) /* 249 */
3015 #define Tcl_Ungets \
3016         (tclStubsPtr->tcl_Ungets) /* 250 */
3017 #define Tcl_UnlinkVar \
3018         (tclStubsPtr->tcl_UnlinkVar) /* 251 */
3019 #define Tcl_UnregisterChannel \
3020         (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
3021 #define Tcl_UnsetVar \
3022         (tclStubsPtr->tcl_UnsetVar) /* 253 */
3023 #define Tcl_UnsetVar2 \
3024         (tclStubsPtr->tcl_UnsetVar2) /* 254 */
3025 #define Tcl_UntraceVar \
3026         (tclStubsPtr->tcl_UntraceVar) /* 255 */
3027 #define Tcl_UntraceVar2 \
3028         (tclStubsPtr->tcl_UntraceVar2) /* 256 */
3029 #define Tcl_UpdateLinkedVar \
3030         (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
3031 #define Tcl_UpVar \
3032         (tclStubsPtr->tcl_UpVar) /* 258 */
3033 #define Tcl_UpVar2 \
3034         (tclStubsPtr->tcl_UpVar2) /* 259 */
3035 #define Tcl_VarEval \
3036         (tclStubsPtr->tcl_VarEval) /* 260 */
3037 #define Tcl_VarTraceInfo \
3038         (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
3039 #define Tcl_VarTraceInfo2 \
3040         (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
3041 #define Tcl_Write \
3042         (tclStubsPtr->tcl_Write) /* 263 */
3043 #define Tcl_WrongNumArgs \
3044         (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
3045 #define Tcl_DumpActiveMemory \
3046         (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
3047 #define Tcl_ValidateAllMemory \
3048         (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
3049 #define Tcl_AppendResultVA \
3050         (tclStubsPtr->tcl_AppendResultVA) /* 267 */
3051 #define Tcl_AppendStringsToObjVA \
3052         (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
3053 #define Tcl_HashStats \
3054         (tclStubsPtr->tcl_HashStats) /* 269 */
3055 #define Tcl_ParseVar \
3056         (tclStubsPtr->tcl_ParseVar) /* 270 */
3057 #define Tcl_PkgPresent \
3058         (tclStubsPtr->tcl_PkgPresent) /* 271 */
3059 #define Tcl_PkgPresentEx \
3060         (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
3061 #define Tcl_PkgProvide \
3062         (tclStubsPtr->tcl_PkgProvide) /* 273 */
3063 #define Tcl_PkgRequire \
3064         (tclStubsPtr->tcl_PkgRequire) /* 274 */
3065 #define Tcl_SetErrorCodeVA \
3066         (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
3067 #define Tcl_VarEvalVA \
3068         (tclStubsPtr->tcl_VarEvalVA) /* 276 */
3069 #define Tcl_WaitPid \
3070         (tclStubsPtr->tcl_WaitPid) /* 277 */
3071 #define Tcl_PanicVA \
3072         (tclStubsPtr->tcl_PanicVA) /* 278 */
3073 #define Tcl_GetVersion \
3074         (tclStubsPtr->tcl_GetVersion) /* 279 */
3075 #define Tcl_InitMemory \
3076         (tclStubsPtr->tcl_InitMemory) /* 280 */
3077 #define Tcl_StackChannel \
3078         (tclStubsPtr->tcl_StackChannel) /* 281 */
3079 #define Tcl_UnstackChannel \
3080         (tclStubsPtr->tcl_UnstackChannel) /* 282 */
3081 #define Tcl_GetStackedChannel \
3082         (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
3083 #define Tcl_SetMainLoop \
3084         (tclStubsPtr->tcl_SetMainLoop) /* 284 */
3085 /* Slot 285 is reserved */
3086 #define Tcl_AppendObjToObj \
3087         (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
3088 #define Tcl_CreateEncoding \
3089         (tclStubsPtr->tcl_CreateEncoding) /* 287 */
3090 #define Tcl_CreateThreadExitHandler \
3091         (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
3092 #define Tcl_DeleteThreadExitHandler \
3093         (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
3094 #define Tcl_DiscardResult \
3095         (tclStubsPtr->tcl_DiscardResult) /* 290 */
3096 #define Tcl_EvalEx \
3097         (tclStubsPtr->tcl_EvalEx) /* 291 */
3098 #define Tcl_EvalObjv \
3099         (tclStubsPtr->tcl_EvalObjv) /* 292 */
3100 #define Tcl_EvalObjEx \
3101         (tclStubsPtr->tcl_EvalObjEx) /* 293 */
3102 #define Tcl_ExitThread \
3103         (tclStubsPtr->tcl_ExitThread) /* 294 */
3104 #define Tcl_ExternalToUtf \
3105         (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
3106 #define Tcl_ExternalToUtfDString \
3107         (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
3108 #define Tcl_FinalizeThread \
3109         (tclStubsPtr->tcl_FinalizeThread) /* 297 */
3110 #define Tcl_FinalizeNotifier \
3111         (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
3112 #define Tcl_FreeEncoding \
3113         (tclStubsPtr->tcl_FreeEncoding) /* 299 */
3114 #define Tcl_GetCurrentThread \
3115         (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
3116 #define Tcl_GetEncoding \
3117         (tclStubsPtr->tcl_GetEncoding) /* 301 */
3118 #define Tcl_GetEncodingName \
3119         (tclStubsPtr->tcl_GetEncodingName) /* 302 */
3120 #define Tcl_GetEncodingNames \
3121         (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
3122 #define Tcl_GetIndexFromObjStruct \
3123         (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
3124 #define Tcl_GetThreadData \
3125         (tclStubsPtr->tcl_GetThreadData) /* 305 */
3126 #define Tcl_GetVar2Ex \
3127         (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
3128 #define Tcl_InitNotifier \
3129         (tclStubsPtr->tcl_InitNotifier) /* 307 */
3130 #define Tcl_MutexLock \
3131         (tclStubsPtr->tcl_MutexLock) /* 308 */
3132 #define Tcl_MutexUnlock \
3133         (tclStubsPtr->tcl_MutexUnlock) /* 309 */
3134 #define Tcl_ConditionNotify \
3135         (tclStubsPtr->tcl_ConditionNotify) /* 310 */
3136 #define Tcl_ConditionWait \
3137         (tclStubsPtr->tcl_ConditionWait) /* 311 */
3138 #define Tcl_NumUtfChars \
3139         (tclStubsPtr->tcl_NumUtfChars) /* 312 */
3140 #define Tcl_ReadChars \
3141         (tclStubsPtr->tcl_ReadChars) /* 313 */
3142 #define Tcl_RestoreResult \
3143         (tclStubsPtr->tcl_RestoreResult) /* 314 */
3144 #define Tcl_SaveResult \
3145         (tclStubsPtr->tcl_SaveResult) /* 315 */
3146 #define Tcl_SetSystemEncoding \
3147         (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
3148 #define Tcl_SetVar2Ex \
3149         (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
3150 #define Tcl_ThreadAlert \
3151         (tclStubsPtr->tcl_ThreadAlert) /* 318 */
3152 #define Tcl_ThreadQueueEvent \
3153         (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
3154 #define Tcl_UniCharAtIndex \
3155         (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
3156 #define Tcl_UniCharToLower \
3157         (tclStubsPtr->tcl_UniCharToLower) /* 321 */
3158 #define Tcl_UniCharToTitle \
3159         (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
3160 #define Tcl_UniCharToUpper \
3161         (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
3162 #define Tcl_UniCharToUtf \
3163         (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
3164 #define Tcl_UtfAtIndex \
3165         (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
3166 #define Tcl_UtfCharComplete \
3167         (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
3168 #define Tcl_UtfBackslash \
3169         (tclStubsPtr->tcl_UtfBackslash) /* 327 */
3170 #define Tcl_UtfFindFirst \
3171         (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
3172 #define Tcl_UtfFindLast \
3173         (tclStubsPtr->tcl_UtfFindLast) /* 329 */
3174 #define Tcl_UtfNext \
3175         (tclStubsPtr->tcl_UtfNext) /* 330 */
3176 #define Tcl_UtfPrev \
3177         (tclStubsPtr->tcl_UtfPrev) /* 331 */
3178 #define Tcl_UtfToExternal \
3179         (tclStubsPtr->tcl_UtfToExternal) /* 332 */
3180 #define Tcl_UtfToExternalDString \
3181         (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
3182 #define Tcl_UtfToLower \
3183         (tclStubsPtr->tcl_UtfToLower) /* 334 */
3184 #define Tcl_UtfToTitle \
3185         (tclStubsPtr->tcl_UtfToTitle) /* 335 */
3186 #define Tcl_UtfToUniChar \
3187         (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
3188 #define Tcl_UtfToUpper \
3189         (tclStubsPtr->tcl_UtfToUpper) /* 337 */
3190 #define Tcl_WriteChars \
3191         (tclStubsPtr->tcl_WriteChars) /* 338 */
3192 #define Tcl_WriteObj \
3193         (tclStubsPtr->tcl_WriteObj) /* 339 */
3194 #define Tcl_GetString \
3195         (tclStubsPtr->tcl_GetString) /* 340 */
3196 #define Tcl_GetDefaultEncodingDir \
3197         (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
3198 #define Tcl_SetDefaultEncodingDir \
3199         (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
3200 #define Tcl_AlertNotifier \
3201         (tclStubsPtr->tcl_AlertNotifier) /* 343 */
3202 #define Tcl_ServiceModeHook \
3203         (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
3204 #define Tcl_UniCharIsAlnum \
3205         (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
3206 #define Tcl_UniCharIsAlpha \
3207         (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
3208 #define Tcl_UniCharIsDigit \
3209         (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
3210 #define Tcl_UniCharIsLower \
3211         (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
3212 #define Tcl_UniCharIsSpace \
3213         (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
3214 #define Tcl_UniCharIsUpper \
3215         (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
3216 #define Tcl_UniCharIsWordChar \
3217         (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
3218 #define Tcl_UniCharLen \
3219         (tclStubsPtr->tcl_UniCharLen) /* 352 */
3220 #define Tcl_UniCharNcmp \
3221         (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
3222 #define Tcl_UniCharToUtfDString \
3223         (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
3224 #define Tcl_UtfToUniCharDString \
3225         (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
3226 #define Tcl_GetRegExpFromObj \
3227         (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
3228 #define Tcl_EvalTokens \
3229         (tclStubsPtr->tcl_EvalTokens) /* 357 */
3230 #define Tcl_FreeParse \
3231         (tclStubsPtr->tcl_FreeParse) /* 358 */
3232 #define Tcl_LogCommandInfo \
3233         (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
3234 #define Tcl_ParseBraces \
3235         (tclStubsPtr->tcl_ParseBraces) /* 360 */
3236 #define Tcl_ParseCommand \
3237         (tclStubsPtr->tcl_ParseCommand) /* 361 */
3238 #define Tcl_ParseExpr \
3239         (tclStubsPtr->tcl_ParseExpr) /* 362 */
3240 #define Tcl_ParseQuotedString \
3241         (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
3242 #define Tcl_ParseVarName \
3243         (tclStubsPtr->tcl_ParseVarName) /* 364 */
3244 #define Tcl_GetCwd \
3245         (tclStubsPtr->tcl_GetCwd) /* 365 */
3246 #define Tcl_Chdir \
3247         (tclStubsPtr->tcl_Chdir) /* 366 */
3248 #define Tcl_Access \
3249         (tclStubsPtr->tcl_Access) /* 367 */
3250 #define Tcl_Stat \
3251         (tclStubsPtr->tcl_Stat) /* 368 */
3252 #define Tcl_UtfNcmp \
3253         (tclStubsPtr->tcl_UtfNcmp) /* 369 */
3254 #define Tcl_UtfNcasecmp \
3255         (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
3256 #define Tcl_StringCaseMatch \
3257         (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
3258 #define Tcl_UniCharIsControl \
3259         (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
3260 #define Tcl_UniCharIsGraph \
3261         (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
3262 #define Tcl_UniCharIsPrint \
3263         (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
3264 #define Tcl_UniCharIsPunct \
3265         (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
3266 #define Tcl_RegExpExecObj \
3267         (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
3268 #define Tcl_RegExpGetInfo \
3269         (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
3270 #define Tcl_NewUnicodeObj \
3271         (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
3272 #define Tcl_SetUnicodeObj \
3273         (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
3274 #define Tcl_GetCharLength \
3275         (tclStubsPtr->tcl_GetCharLength) /* 380 */
3276 #define Tcl_GetUniChar \
3277         (tclStubsPtr->tcl_GetUniChar) /* 381 */
3278 #define Tcl_GetUnicode \
3279         (tclStubsPtr->tcl_GetUnicode) /* 382 */
3280 #define Tcl_GetRange \
3281         (tclStubsPtr->tcl_GetRange) /* 383 */
3282 #define Tcl_AppendUnicodeToObj \
3283         (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
3284 #define Tcl_RegExpMatchObj \
3285         (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
3286 #define Tcl_SetNotifier \
3287         (tclStubsPtr->tcl_SetNotifier) /* 386 */
3288 #define Tcl_GetAllocMutex \
3289         (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
3290 #define Tcl_GetChannelNames \
3291         (tclStubsPtr->tcl_GetChannelNames) /* 388 */
3292 #define Tcl_GetChannelNamesEx \
3293         (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
3294 #define Tcl_ProcObjCmd \
3295         (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
3296 #define Tcl_ConditionFinalize \
3297         (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
3298 #define Tcl_MutexFinalize \
3299         (tclStubsPtr->tcl_MutexFinalize) /* 392 */
3300 #define Tcl_CreateThread \
3301         (tclStubsPtr->tcl_CreateThread) /* 393 */
3302 #define Tcl_ReadRaw \
3303         (tclStubsPtr->tcl_ReadRaw) /* 394 */
3304 #define Tcl_WriteRaw \
3305         (tclStubsPtr->tcl_WriteRaw) /* 395 */
3306 #define Tcl_GetTopChannel \
3307         (tclStubsPtr->tcl_GetTopChannel) /* 396 */
3308 #define Tcl_ChannelBuffered \
3309         (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
3310 #define Tcl_ChannelName \
3311         (tclStubsPtr->tcl_ChannelName) /* 398 */
3312 #define Tcl_ChannelVersion \
3313         (tclStubsPtr->tcl_ChannelVersion) /* 399 */
3314 #define Tcl_ChannelBlockModeProc \
3315         (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
3316 #define Tcl_ChannelCloseProc \
3317         (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
3318 #define Tcl_ChannelClose2Proc \
3319         (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
3320 #define Tcl_ChannelInputProc \
3321         (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
3322 #define Tcl_ChannelOutputProc \
3323         (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
3324 #define Tcl_ChannelSeekProc \
3325         (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
3326 #define Tcl_ChannelSetOptionProc \
3327         (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
3328 #define Tcl_ChannelGetOptionProc \
3329         (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
3330 #define Tcl_ChannelWatchProc \
3331         (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
3332 #define Tcl_ChannelGetHandleProc \
3333         (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
3334 #define Tcl_ChannelFlushProc \
3335         (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
3336 #define Tcl_ChannelHandlerProc \
3337         (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
3338 #define Tcl_JoinThread \
3339         (tclStubsPtr->tcl_JoinThread) /* 412 */
3340 #define Tcl_IsChannelShared \
3341         (tclStubsPtr->tcl_IsChannelShared) /* 413 */
3342 #define Tcl_IsChannelRegistered \
3343         (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
3344 #define Tcl_CutChannel \
3345         (tclStubsPtr->tcl_CutChannel) /* 415 */
3346 #define Tcl_SpliceChannel \
3347         (tclStubsPtr->tcl_SpliceChannel) /* 416 */
3348 #define Tcl_ClearChannelHandlers \
3349         (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
3350 #define Tcl_IsChannelExisting \
3351         (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
3352 #define Tcl_UniCharNcasecmp \
3353         (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
3354 #define Tcl_UniCharCaseMatch \
3355         (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
3356 #define Tcl_FindHashEntry \
3357         (tclStubsPtr->tcl_FindHashEntry) /* 421 */
3358 #define Tcl_CreateHashEntry \
3359         (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
3360 #define Tcl_InitCustomHashTable \
3361         (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
3362 #define Tcl_InitObjHashTable \
3363         (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
3364 #define Tcl_CommandTraceInfo \
3365         (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
3366 #define Tcl_TraceCommand \
3367         (tclStubsPtr->tcl_TraceCommand) /* 426 */
3368 #define Tcl_UntraceCommand \
3369         (tclStubsPtr->tcl_UntraceCommand) /* 427 */
3370 #define Tcl_AttemptAlloc \
3371         (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
3372 #define Tcl_AttemptDbCkalloc \
3373         (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
3374 #define Tcl_AttemptRealloc \
3375         (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
3376 #define Tcl_AttemptDbCkrealloc \
3377         (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
3378 #define Tcl_AttemptSetObjLength \
3379         (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
3380 #define Tcl_GetChannelThread \
3381         (tclStubsPtr->tcl_GetChannelThread) /* 433 */
3382 #define Tcl_GetUnicodeFromObj \
3383         (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
3384 #define Tcl_GetMathFuncInfo \
3385         (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
3386 #define Tcl_ListMathFuncs \
3387         (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
3388 #define Tcl_SubstObj \
3389         (tclStubsPtr->tcl_SubstObj) /* 437 */
3390 #define Tcl_DetachChannel \
3391         (tclStubsPtr->tcl_DetachChannel) /* 438 */
3392 #define Tcl_IsStandardChannel \
3393         (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
3394 #define Tcl_FSCopyFile \
3395         (tclStubsPtr->tcl_FSCopyFile) /* 440 */
3396 #define Tcl_FSCopyDirectory \
3397         (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
3398 #define Tcl_FSCreateDirectory \
3399         (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
3400 #define Tcl_FSDeleteFile \
3401         (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
3402 #define Tcl_FSLoadFile \
3403         (tclStubsPtr->tcl_FSLoadFile) /* 444 */
3404 #define Tcl_FSMatchInDirectory \
3405         (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
3406 #define Tcl_FSLink \
3407         (tclStubsPtr->tcl_FSLink) /* 446 */
3408 #define Tcl_FSRemoveDirectory \
3409         (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
3410 #define Tcl_FSRenameFile \
3411         (tclStubsPtr->tcl_FSRenameFile) /* 448 */
3412 #define Tcl_FSLstat \
3413         (tclStubsPtr->tcl_FSLstat) /* 449 */
3414 #define Tcl_FSUtime \
3415         (tclStubsPtr->tcl_FSUtime) /* 450 */
3416 #define Tcl_FSFileAttrsGet \
3417         (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
3418 #define Tcl_FSFileAttrsSet \
3419         (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
3420 #define Tcl_FSFileAttrStrings \
3421         (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
3422 #define Tcl_FSStat \
3423         (tclStubsPtr->tcl_FSStat) /* 454 */
3424 #define Tcl_FSAccess \
3425         (tclStubsPtr->tcl_FSAccess) /* 455 */
3426 #define Tcl_FSOpenFileChannel \
3427         (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
3428 #define Tcl_FSGetCwd \
3429         (tclStubsPtr->tcl_FSGetCwd) /* 457 */
3430 #define Tcl_FSChdir \
3431         (tclStubsPtr->tcl_FSChdir) /* 458 */
3432 #define Tcl_FSConvertToPathType \
3433         (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
3434 #define Tcl_FSJoinPath \
3435         (tclStubsPtr->tcl_FSJoinPath) /* 460 */
3436 #define Tcl_FSSplitPath \
3437         (tclStubsPtr->tcl_FSSplitPath) /* 461 */
3438 #define Tcl_FSEqualPaths \
3439         (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
3440 #define Tcl_FSGetNormalizedPath \
3441         (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
3442 #define Tcl_FSJoinToPath \
3443         (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
3444 #define Tcl_FSGetInternalRep \
3445         (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
3446 #define Tcl_FSGetTranslatedPath \
3447         (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
3448 #define Tcl_FSEvalFile \
3449         (tclStubsPtr->tcl_FSEvalFile) /* 467 */
3450 #define Tcl_FSNewNativePath \
3451         (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
3452 #define Tcl_FSGetNativePath \
3453         (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
3454 #define Tcl_FSFileSystemInfo \
3455         (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
3456 #define Tcl_FSPathSeparator \
3457         (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
3458 #define Tcl_FSListVolumes \
3459         (tclStubsPtr->tcl_FSListVolumes) /* 472 */
3460 #define Tcl_FSRegister \
3461         (tclStubsPtr->tcl_FSRegister) /* 473 */
3462 #define Tcl_FSUnregister \
3463         (tclStubsPtr->tcl_FSUnregister) /* 474 */
3464 #define Tcl_FSData \
3465         (tclStubsPtr->tcl_FSData) /* 475 */
3466 #define Tcl_FSGetTranslatedStringPath \
3467         (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
3468 #define Tcl_FSGetFileSystemForPath \
3469         (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
3470 #define Tcl_FSGetPathType \
3471         (tclStubsPtr->tcl_FSGetPathType) /* 478 */
3472 #define Tcl_OutputBuffered \
3473         (tclStubsPtr->tcl_OutputBuffered) /* 479 */
3474 #define Tcl_FSMountsChanged \
3475         (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
3476 #define Tcl_EvalTokensStandard \
3477         (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
3478 #define Tcl_GetTime \
3479         (tclStubsPtr->tcl_GetTime) /* 482 */
3480 #define Tcl_CreateObjTrace \
3481         (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
3482 #define Tcl_GetCommandInfoFromToken \
3483         (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
3484 #define Tcl_SetCommandInfoFromToken \
3485         (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
3486 #define Tcl_DbNewWideIntObj \
3487         (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
3488 #define Tcl_GetWideIntFromObj \
3489         (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
3490 #define Tcl_NewWideIntObj \
3491         (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
3492 #define Tcl_SetWideIntObj \
3493         (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
3494 #define Tcl_AllocStatBuf \
3495         (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
3496 #define Tcl_Seek \
3497         (tclStubsPtr->tcl_Seek) /* 491 */
3498 #define Tcl_Tell \
3499         (tclStubsPtr->tcl_Tell) /* 492 */
3500 #define Tcl_ChannelWideSeekProc \
3501         (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
3502 #define Tcl_DictObjPut \
3503         (tclStubsPtr->tcl_DictObjPut) /* 494 */
3504 #define Tcl_DictObjGet \
3505         (tclStubsPtr->tcl_DictObjGet) /* 495 */
3506 #define Tcl_DictObjRemove \
3507         (tclStubsPtr->tcl_DictObjRemove) /* 496 */
3508 #define Tcl_DictObjSize \
3509         (tclStubsPtr->tcl_DictObjSize) /* 497 */
3510 #define Tcl_DictObjFirst \
3511         (tclStubsPtr->tcl_DictObjFirst) /* 498 */
3512 #define Tcl_DictObjNext \
3513         (tclStubsPtr->tcl_DictObjNext) /* 499 */
3514 #define Tcl_DictObjDone \
3515         (tclStubsPtr->tcl_DictObjDone) /* 500 */
3516 #define Tcl_DictObjPutKeyList \
3517         (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
3518 #define Tcl_DictObjRemoveKeyList \
3519         (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
3520 #define Tcl_NewDictObj \
3521         (tclStubsPtr->tcl_NewDictObj) /* 503 */
3522 #define Tcl_DbNewDictObj \
3523         (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
3524 #define Tcl_RegisterConfig \
3525         (tclStubsPtr->tcl_RegisterConfig) /* 505 */
3526 #define Tcl_CreateNamespace \
3527         (tclStubsPtr->tcl_CreateNamespace) /* 506 */
3528 #define Tcl_DeleteNamespace \
3529         (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
3530 #define Tcl_AppendExportList \
3531         (tclStubsPtr->tcl_AppendExportList) /* 508 */
3532 #define Tcl_Export \
3533         (tclStubsPtr->tcl_Export) /* 509 */
3534 #define Tcl_Import \
3535         (tclStubsPtr->tcl_Import) /* 510 */
3536 #define Tcl_ForgetImport \
3537         (tclStubsPtr->tcl_ForgetImport) /* 511 */
3538 #define Tcl_GetCurrentNamespace \
3539         (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
3540 #define Tcl_GetGlobalNamespace \
3541         (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
3542 #define Tcl_FindNamespace \
3543         (tclStubsPtr->tcl_FindNamespace) /* 514 */
3544 #define Tcl_FindCommand \
3545         (tclStubsPtr->tcl_FindCommand) /* 515 */
3546 #define Tcl_GetCommandFromObj \
3547         (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
3548 #define Tcl_GetCommandFullName \
3549         (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
3550 #define Tcl_FSEvalFileEx \
3551         (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
3552 #define Tcl_SetExitProc \
3553         (tclStubsPtr->tcl_SetExitProc) /* 519 */
3554 #define Tcl_LimitAddHandler \
3555         (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
3556 #define Tcl_LimitRemoveHandler \
3557         (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
3558 #define Tcl_LimitReady \
3559         (tclStubsPtr->tcl_LimitReady) /* 522 */
3560 #define Tcl_LimitCheck \
3561         (tclStubsPtr->tcl_LimitCheck) /* 523 */
3562 #define Tcl_LimitExceeded \
3563         (tclStubsPtr->tcl_LimitExceeded) /* 524 */
3564 #define Tcl_LimitSetCommands \
3565         (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
3566 #define Tcl_LimitSetTime \
3567         (tclStubsPtr->tcl_LimitSetTime) /* 526 */
3568 #define Tcl_LimitSetGranularity \
3569         (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
3570 #define Tcl_LimitTypeEnabled \
3571         (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
3572 #define Tcl_LimitTypeExceeded \
3573         (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
3574 #define Tcl_LimitTypeSet \
3575         (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
3576 #define Tcl_LimitTypeReset \
3577         (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
3578 #define Tcl_LimitGetCommands \
3579         (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
3580 #define Tcl_LimitGetTime \
3581         (tclStubsPtr->tcl_LimitGetTime) /* 533 */
3582 #define Tcl_LimitGetGranularity \
3583         (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
3584 #define Tcl_SaveInterpState \
3585         (tclStubsPtr->tcl_SaveInterpState) /* 535 */
3586 #define Tcl_RestoreInterpState \
3587         (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
3588 #define Tcl_DiscardInterpState \
3589         (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
3590 #define Tcl_SetReturnOptions \
3591         (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
3592 #define Tcl_GetReturnOptions \
3593         (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
3594 #define Tcl_IsEnsemble \
3595         (tclStubsPtr->tcl_IsEnsemble) /* 540 */
3596 #define Tcl_CreateEnsemble \
3597         (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
3598 #define Tcl_FindEnsemble \
3599         (tclStubsPtr->tcl_FindEnsemble) /* 542 */
3600 #define Tcl_SetEnsembleSubcommandList \
3601         (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
3602 #define Tcl_SetEnsembleMappingDict \
3603         (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
3604 #define Tcl_SetEnsembleUnknownHandler \
3605         (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
3606 #define Tcl_SetEnsembleFlags \
3607         (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
3608 #define Tcl_GetEnsembleSubcommandList \
3609         (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
3610 #define Tcl_GetEnsembleMappingDict \
3611         (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
3612 #define Tcl_GetEnsembleUnknownHandler \
3613         (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
3614 #define Tcl_GetEnsembleFlags \
3615         (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
3616 #define Tcl_GetEnsembleNamespace \
3617         (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
3618 #define Tcl_SetTimeProc \
3619         (tclStubsPtr->tcl_SetTimeProc) /* 552 */
3620 #define Tcl_QueryTimeProc \
3621         (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
3622 #define Tcl_ChannelThreadActionProc \
3623         (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
3624 #define Tcl_NewBignumObj \
3625         (tclStubsPtr->tcl_NewBignumObj) /* 555 */
3626 #define Tcl_DbNewBignumObj \
3627         (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
3628 #define Tcl_SetBignumObj \
3629         (tclStubsPtr->tcl_SetBignumObj) /* 557 */
3630 #define Tcl_GetBignumFromObj \
3631         (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
3632 #define Tcl_TakeBignumFromObj \
3633         (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
3634 #define Tcl_TruncateChannel \
3635         (tclStubsPtr->tcl_TruncateChannel) /* 560 */
3636 #define Tcl_ChannelTruncateProc \
3637         (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
3638 #define Tcl_SetChannelErrorInterp \
3639         (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
3640 #define Tcl_GetChannelErrorInterp \
3641         (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
3642 #define Tcl_SetChannelError \
3643         (tclStubsPtr->tcl_SetChannelError) /* 564 */
3644 #define Tcl_GetChannelError \
3645         (tclStubsPtr->tcl_GetChannelError) /* 565 */
3646 #define Tcl_InitBignumFromDouble \
3647         (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
3648 #define Tcl_GetNamespaceUnknownHandler \
3649         (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
3650 #define Tcl_SetNamespaceUnknownHandler \
3651         (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
3652 #define Tcl_GetEncodingFromObj \
3653         (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
3654 #define Tcl_GetEncodingSearchPath \
3655         (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
3656 #define Tcl_SetEncodingSearchPath \
3657         (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
3658 #define Tcl_GetEncodingNameFromEnvironment \
3659         (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
3660 #define Tcl_PkgRequireProc \
3661         (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
3662 #define Tcl_AppendObjToErrorInfo \
3663         (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
3664 #define Tcl_AppendLimitedToObj \
3665         (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
3666 #define Tcl_Format \
3667         (tclStubsPtr->tcl_Format) /* 576 */
3668 #define Tcl_AppendFormatToObj \
3669         (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
3670 #define Tcl_ObjPrintf \
3671         (tclStubsPtr->tcl_ObjPrintf) /* 578 */
3672 #define Tcl_AppendPrintfToObj \
3673         (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
3674 #define Tcl_CancelEval \
3675         (tclStubsPtr->tcl_CancelEval) /* 580 */
3676 #define Tcl_Canceled \
3677         (tclStubsPtr->tcl_Canceled) /* 581 */
3678 #define Tcl_CreatePipe \
3679         (tclStubsPtr->tcl_CreatePipe) /* 582 */
3680 #define Tcl_NRCreateCommand \
3681         (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
3682 #define Tcl_NREvalObj \
3683         (tclStubsPtr->tcl_NREvalObj) /* 584 */
3684 #define Tcl_NREvalObjv \
3685         (tclStubsPtr->tcl_NREvalObjv) /* 585 */
3686 #define Tcl_NRCmdSwap \
3687         (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
3688 #define Tcl_NRAddCallback \
3689         (tclStubsPtr->tcl_NRAddCallback) /* 587 */
3690 #define Tcl_NRCallObjProc \
3691         (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
3692 #define Tcl_GetFSDeviceFromStat \
3693         (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
3694 #define Tcl_GetFSInodeFromStat \
3695         (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
3696 #define Tcl_GetModeFromStat \
3697         (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
3698 #define Tcl_GetLinkCountFromStat \
3699         (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
3700 #define Tcl_GetUserIdFromStat \
3701         (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
3702 #define Tcl_GetGroupIdFromStat \
3703         (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
3704 #define Tcl_GetDeviceTypeFromStat \
3705         (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
3706 #define Tcl_GetAccessTimeFromStat \
3707         (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
3708 #define Tcl_GetModificationTimeFromStat \
3709         (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
3710 #define Tcl_GetChangeTimeFromStat \
3711         (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
3712 #define Tcl_GetSizeFromStat \
3713         (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
3714 #define Tcl_GetBlocksFromStat \
3715         (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
3716 #define Tcl_GetBlockSizeFromStat \
3717         (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
3718 #define Tcl_SetEnsembleParameterList \
3719         (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
3720 #define Tcl_GetEnsembleParameterList \
3721         (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
3722 #define Tcl_ParseArgsObjv \
3723         (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
3724 #define Tcl_GetErrorLine \
3725         (tclStubsPtr->tcl_GetErrorLine) /* 605 */
3726 #define Tcl_SetErrorLine \
3727         (tclStubsPtr->tcl_SetErrorLine) /* 606 */
3728 #define Tcl_TransferResult \
3729         (tclStubsPtr->tcl_TransferResult) /* 607 */
3730 #define Tcl_InterpActive \
3731         (tclStubsPtr->tcl_InterpActive) /* 608 */
3732 #define Tcl_BackgroundException \
3733         (tclStubsPtr->tcl_BackgroundException) /* 609 */
3734 #define Tcl_ZlibDeflate \
3735         (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
3736 #define Tcl_ZlibInflate \
3737         (tclStubsPtr->tcl_ZlibInflate) /* 611 */
3738 #define Tcl_ZlibCRC32 \
3739         (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
3740 #define Tcl_ZlibAdler32 \
3741         (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
3742 #define Tcl_ZlibStreamInit \
3743         (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
3744 #define Tcl_ZlibStreamGetCommandName \
3745         (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
3746 #define Tcl_ZlibStreamEof \
3747         (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
3748 #define Tcl_ZlibStreamChecksum \
3749         (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
3750 #define Tcl_ZlibStreamPut \
3751         (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
3752 #define Tcl_ZlibStreamGet \
3753         (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
3754 #define Tcl_ZlibStreamClose \
3755         (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
3756 #define Tcl_ZlibStreamReset \
3757         (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
3758 #define Tcl_SetStartupScript \
3759         (tclStubsPtr->tcl_SetStartupScript) /* 622 */
3760 #define Tcl_GetStartupScript \
3761         (tclStubsPtr->tcl_GetStartupScript) /* 623 */
3762 #define Tcl_CloseEx \
3763         (tclStubsPtr->tcl_CloseEx) /* 624 */
3764 #define Tcl_NRExprObj \
3765         (tclStubsPtr->tcl_NRExprObj) /* 625 */
3766 #define Tcl_NRSubstObj \
3767         (tclStubsPtr->tcl_NRSubstObj) /* 626 */
3768 #define Tcl_LoadFile \
3769         (tclStubsPtr->tcl_LoadFile) /* 627 */
3770 #define Tcl_FindSymbol \
3771         (tclStubsPtr->tcl_FindSymbol) /* 628 */
3772 #define Tcl_FSUnloadFile \
3773         (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
3774 #define Tcl_ZlibStreamSetCompressionDictionary \
3775         (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
3776
3777 #endif /* defined(USE_TCL_STUBS) */
3778
3779 /* !END!: Do not edit above this line. */
3780
3781 #if defined(USE_TCL_STUBS)
3782 #   undef Tcl_CreateInterp
3783 #   undef Tcl_FindExecutable
3784 #   undef Tcl_GetStringResult
3785 #   undef Tcl_Init
3786 #   undef Tcl_SetPanicProc
3787 #   undef Tcl_SetVar
3788 #   undef Tcl_ObjSetVar2
3789 #   undef Tcl_StaticPackage
3790 #   undef TclFSGetNativePath
3791 #   define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
3792 #   define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp))
3793 #   define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
3794 #   define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
3795 #   define Tcl_SetVar(interp, varName, newValue, flags) \
3796             (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
3797 #   define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
3798             (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
3799 #endif
3800
3801 #if defined(_WIN32) && defined(UNICODE)
3802 #   define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
3803 #   define Tcl_MainEx Tcl_MainExW
3804     EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
3805             Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
3806 #endif
3807
3808 #undef TCL_STORAGE_CLASS
3809 #define TCL_STORAGE_CLASS DLLIMPORT
3810
3811 #undef Tcl_SeekOld
3812 #undef Tcl_TellOld
3813
3814 #undef Tcl_PkgPresent
3815 #define Tcl_PkgPresent(interp, name, version, exact) \
3816         Tcl_PkgPresentEx(interp, name, version, exact, NULL)
3817 #undef Tcl_PkgProvide
3818 #define Tcl_PkgProvide(interp, name, version) \
3819         Tcl_PkgProvideEx(interp, name, version, NULL)
3820 #undef Tcl_PkgRequire
3821 #define Tcl_PkgRequire(interp, name, version, exact) \
3822         Tcl_PkgRequireEx(interp, name, version, exact, NULL)
3823 #undef Tcl_GetIndexFromObj
3824 #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
3825         Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
3826         sizeof(char *), msg, flags, indexPtr)
3827 #undef Tcl_NewBooleanObj
3828 #define Tcl_NewBooleanObj(boolValue) \
3829         Tcl_NewIntObj((boolValue)!=0)
3830 #undef Tcl_DbNewBooleanObj
3831 #define Tcl_DbNewBooleanObj(boolValue, file, line) \
3832         Tcl_DbNewLongObj((boolValue)!=0, file, line)
3833 #undef Tcl_SetBooleanObj
3834 #define Tcl_SetBooleanObj(objPtr, boolValue) \
3835         Tcl_SetIntObj((objPtr), (boolValue)!=0)
3836 #undef Tcl_SetVar
3837 #define Tcl_SetVar(interp, varName, newValue, flags) \
3838         Tcl_SetVar2(interp, varName, NULL, newValue, flags)
3839 #undef Tcl_UnsetVar
3840 #define Tcl_UnsetVar(interp, varName, flags) \
3841         Tcl_UnsetVar2(interp, varName, NULL, flags)
3842 #undef Tcl_GetVar
3843 #define Tcl_GetVar(interp, varName, flags) \
3844         Tcl_GetVar2(interp, varName, NULL, flags)
3845 #undef Tcl_TraceVar
3846 #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
3847         Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
3848 #undef Tcl_UntraceVar
3849 #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
3850         Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
3851 #undef Tcl_VarTraceInfo
3852 #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
3853         Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
3854 #undef Tcl_UpVar
3855 #define Tcl_UpVar(interp, frameName, varName, localName, flags) \
3856         Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
3857
3858 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
3859 #   if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
3860 /* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
3861  * we have to make sure that all stub entries on Cygwin64 follow the
3862  * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
3863  * entries any more, they should use the 64-bit alternatives where
3864  * possible. Tcl 9 must find a better solution, but that cannot be done
3865  * without introducing a binary incompatibility.
3866  */
3867 #       undef Tcl_DbNewLongObj
3868 #       undef Tcl_GetLongFromObj
3869 #       undef Tcl_NewLongObj
3870 #       undef Tcl_SetLongObj
3871 #       undef Tcl_ExprLong
3872 #       undef Tcl_ExprLongObj
3873 #       undef Tcl_UniCharNcmp
3874 #       undef Tcl_UtfNcmp
3875 #       undef Tcl_UtfNcasecmp
3876 #       undef Tcl_UniCharNcasecmp
3877 #       define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj)
3878 #       define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
3879 #       define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
3880 #       define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
3881 #       define Tcl_ExprLong TclExprLong
3882         static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
3883             int intValue;
3884             int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
3885             if (result == TCL_OK) *ptr = (long)intValue;
3886             return result;
3887         }
3888 #       define Tcl_ExprLongObj TclExprLongObj
3889         static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
3890             int intValue;
3891             int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
3892             if (result == TCL_OK) *ptr = (long)intValue;
3893             return result;
3894         }
3895 #       define Tcl_UniCharNcmp(ucs,uct,n) \
3896                 ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
3897 #       define Tcl_UtfNcmp(s1,s2,n) \
3898                 ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
3899 #       define Tcl_UtfNcasecmp(s1,s2,n) \
3900                 ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
3901 #       define Tcl_UniCharNcasecmp(ucs,uct,n) \
3902                 ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
3903 #   endif
3904 #endif
3905
3906 /*
3907  * Deprecated Tcl procedures:
3908  */
3909
3910 #undef Tcl_EvalObj
3911 #define Tcl_EvalObj(interp,objPtr) \
3912     Tcl_EvalObjEx((interp),(objPtr),0)
3913 #undef Tcl_GlobalEvalObj
3914 #define Tcl_GlobalEvalObj(interp,objPtr) \
3915     Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
3916
3917 #endif /* _TCLDECLS */