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