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