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 * RCS: @(#) $Id: tclDecls.h,v 1.2 1999/03/28 15:16:04 aku Exp $ 12 */ 13 14#ifndef _TCLDECLS 15#define _TCLDECLS 16 17/* 18 * WARNING: This file is automatically generated by the tools/genStubs.tcl 19 * script. Any modifications to the function declarations below should be made 20 * in the generic/tcl.decls script. 21 */ 22 23/* !BEGIN!: Do not edit below this line. */ 24 25/* 26 * Exported function declarations: 27 */ 28 29/* 0 */ 30EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp * interp, 31 char * name, char * version, 32 ClientData clientData)); 33/* 1 */ 34EXTERN char * Tcl_PkgRequireEx _ANSI_ARGS_((Tcl_Interp * interp, 35 char * name, char * version, int exact, 36 ClientData * clientDataPtr)); 37/* 2 */ 38EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); 39/* 3 */ 40EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); 41/* 4 */ 42EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr)); 43/* 5 */ 44EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr, 45 unsigned int size)); 46/* 6 */ 47EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, 48 char * file, int line)); 49/* 7 */ 50EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, char * file, 51 int line)); 52/* 8 */ 53EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr, 54 unsigned int size, char * file, int line)); 55#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 56/* 9 */ 57EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, 58 Tcl_FileProc * proc, ClientData clientData)); 59#endif /* UNIX */ 60#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 61/* 10 */ 62EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); 63#endif /* UNIX */ 64/* 11 */ 65EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr)); 66/* 12 */ 67EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); 68/* 13 */ 69EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); 70/* 14 */ 71EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( 72 Tcl_Interp * interp, Tcl_Obj * objPtr)); 73/* 15 */ 74EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); 75/* 16 */ 76EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj * objPtr, 77 char * bytes, int length)); 78/* 17 */ 79EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, 80 Tcl_Obj *CONST objv[])); 81/* 18 */ 82EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp, 83 Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); 84/* 19 */ 85EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, 86 char * file, int line)); 87/* 20 */ 88EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, 89 char * file, int line)); 90/* 21 */ 91EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr, 92 char * file, int line)); 93/* 22 */ 94EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, 95 char * file, int line)); 96/* 23 */ 97EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( 98 unsigned char * bytes, int length, 99 char * file, int line)); 100/* 24 */ 101EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, 102 char * file, int line)); 103/* 25 */ 104EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, 105 Tcl_Obj *CONST objv[], char * file, int line)); 106/* 26 */ 107EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, 108 char * file, int line)); 109/* 27 */ 110EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((char * file, int line)); 111/* 28 */ 112EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes, 113 int length, char * file, int line)); 114/* 29 */ 115EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr)); 116/* 30 */ 117EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr)); 118/* 31 */ 119EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp, 120 char * string, int * boolPtr)); 121/* 32 */ 122EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( 123 Tcl_Interp * interp, Tcl_Obj * objPtr, 124 int * boolPtr)); 125/* 33 */ 126EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_(( 127 Tcl_Obj * objPtr, int * lengthPtr)); 128/* 34 */ 129EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp, 130 char * string, double * doublePtr)); 131/* 35 */ 132EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( 133 Tcl_Interp * interp, Tcl_Obj * objPtr, 134 double * doublePtr)); 135/* 36 */ 136EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp, 137 Tcl_Obj * objPtr, char ** tablePtr, 138 char * msg, int flags, int * indexPtr)); 139/* 37 */ 140EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp, 141 char * string, int * intPtr)); 142/* 38 */ 143EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp, 144 Tcl_Obj * objPtr, int * intPtr)); 145/* 39 */ 146EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp, 147 Tcl_Obj * objPtr, long * longPtr)); 148/* 40 */ 149EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char * typeName)); 150/* 41 */ 151EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, 152 int * lengthPtr)); 153/* 42 */ 154EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_(( 155 Tcl_Obj * objPtr)); 156/* 43 */ 157EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( 158 Tcl_Interp * interp, Tcl_Obj * listPtr, 159 Tcl_Obj * elemListPtr)); 160/* 44 */ 161EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( 162 Tcl_Interp * interp, Tcl_Obj * listPtr, 163 Tcl_Obj * objPtr)); 164/* 45 */ 165EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( 166 Tcl_Interp * interp, Tcl_Obj * listPtr, 167 int * objcPtr, Tcl_Obj *** objvPtr)); 168/* 46 */ 169EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, 170 Tcl_Obj * listPtr, int index, 171 Tcl_Obj ** objPtrPtr)); 172/* 47 */ 173EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp, 174 Tcl_Obj * listPtr, int * intPtr)); 175/* 48 */ 176EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp, 177 Tcl_Obj * listPtr, int first, int count, 178 int objc, Tcl_Obj *CONST objv[])); 179/* 49 */ 180EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); 181/* 50 */ 182EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( 183 unsigned char * bytes, int length)); 184/* 51 */ 185EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); 186/* 52 */ 187EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); 188/* 53 */ 189EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, 190 Tcl_Obj *CONST objv[])); 191/* 54 */ 192EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); 193/* 55 */ 194EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); 195/* 56 */ 196EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes, 197 int length)); 198/* 57 */ 199EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr, 200 int boolValue)); 201/* 58 */ 202EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr, 203 int length)); 204/* 59 */ 205EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr, 206 unsigned char * bytes, int length)); 207/* 60 */ 208EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr, 209 double doubleValue)); 210/* 61 */ 211EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, 212 int intValue)); 213/* 62 */ 214EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr, 215 int objc, Tcl_Obj *CONST objv[])); 216/* 63 */ 217EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr, 218 long longValue)); 219/* 64 */ 220EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr, 221 int length)); 222/* 65 */ 223EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj * objPtr, 224 char * bytes, int length)); 225/* 66 */ 226EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, 227 CONST char * message)); 228/* 67 */ 229EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, 230 CONST char * message, int length)); 231/* 68 */ 232EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp)); 233/* 69 */ 234EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp, 235 CONST char * string)); 236/* 70 */ 237EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); 238/* 71 */ 239EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc * proc, 240 ClientData clientData)); 241/* 72 */ 242EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async)); 243/* 73 */ 244EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp * interp, 245 int code)); 246/* 74 */ 247EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); 248/* 75 */ 249EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); 250/* 76 */ 251EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp * interp)); 252/* 77 */ 253EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char * src, 254 int * readPtr)); 255/* 78 */ 256EXTERN int Tcl_BadChannelOption _ANSI_ARGS_(( 257 Tcl_Interp * interp, char * optionName, 258 char * optionList)); 259/* 79 */ 260EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp * interp, 261 Tcl_InterpDeleteProc * proc, 262 ClientData clientData)); 263/* 80 */ 264EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( 265 Tcl_IdleProc * idleProc, 266 ClientData clientData)); 267/* 81 */ 268EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp * interp, 269 Tcl_Channel chan)); 270/* 82 */ 271EXTERN int Tcl_CommandComplete _ANSI_ARGS_((char * cmd)); 272/* 83 */ 273EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, char ** argv)); 274/* 84 */ 275EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src, 276 char * dst, int flags)); 277/* 85 */ 278EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( 279 CONST char * src, int length, char * dst, 280 int flags)); 281/* 86 */ 282EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp * slave, 283 char * slaveCmd, Tcl_Interp * target, 284 char * targetCmd, int argc, char ** argv)); 285/* 87 */ 286EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp * slave, 287 char * slaveCmd, Tcl_Interp * target, 288 char * targetCmd, int objc, 289 Tcl_Obj *CONST objv[])); 290/* 88 */ 291EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( 292 Tcl_ChannelType * typePtr, char * chanName, 293 ClientData instanceData, int mask)); 294/* 89 */ 295EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( 296 Tcl_Channel chan, int mask, 297 Tcl_ChannelProc * proc, 298 ClientData clientData)); 299/* 90 */ 300EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan, 301 Tcl_CloseProc * proc, ClientData clientData)); 302/* 91 */ 303EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, 304 char * cmdName, Tcl_CmdProc * proc, 305 ClientData clientData, 306 Tcl_CmdDeleteProc * deleteProc)); 307/* 92 */ 308EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( 309 Tcl_EventSetupProc * setupProc, 310 Tcl_EventCheckProc * checkProc, 311 ClientData clientData)); 312/* 93 */ 313EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( 314 Tcl_ExitProc * proc, ClientData clientData)); 315/* 94 */ 316EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); 317/* 95 */ 318EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, 319 char * name, int numArgs, 320 Tcl_ValueType * argTypes, 321 Tcl_MathProc * proc, ClientData clientData)); 322/* 96 */ 323EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_(( 324 Tcl_Interp * interp, char * cmdName, 325 Tcl_ObjCmdProc * proc, ClientData clientData, 326 Tcl_CmdDeleteProc * deleteProc)); 327/* 97 */ 328EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp * interp, 329 char * slaveName, int isSafe)); 330/* 98 */ 331EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds, 332 Tcl_TimerProc * proc, ClientData clientData)); 333/* 99 */ 334EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp * interp, 335 int level, Tcl_CmdTraceProc * proc, 336 ClientData clientData)); 337/* 100 */ 338EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp, 339 char * name)); 340/* 101 */ 341EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( 342 Tcl_Channel chan, Tcl_ChannelProc * proc, 343 ClientData clientData)); 344/* 102 */ 345EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan, 346 Tcl_CloseProc * proc, ClientData clientData)); 347/* 103 */ 348EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, 349 char * cmdName)); 350/* 104 */ 351EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( 352 Tcl_Interp * interp, Tcl_Command command)); 353/* 105 */ 354EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( 355 Tcl_EventDeleteProc * proc, 356 ClientData clientData)); 357/* 106 */ 358EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( 359 Tcl_EventSetupProc * setupProc, 360 Tcl_EventCheckProc * checkProc, 361 ClientData clientData)); 362/* 107 */ 363EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( 364 Tcl_ExitProc * proc, ClientData clientData)); 365/* 108 */ 366EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( 367 Tcl_HashEntry * entryPtr)); 368/* 109 */ 369EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( 370 Tcl_HashTable * tablePtr)); 371/* 110 */ 372EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp * interp)); 373/* 111 */ 374EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, 375 Tcl_Pid * pidPtr)); 376/* 112 */ 377EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( 378 Tcl_TimerToken token)); 379/* 113 */ 380EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp * interp, 381 Tcl_Trace trace)); 382/* 114 */ 383EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( 384 Tcl_Interp * interp, 385 Tcl_InterpDeleteProc * proc, 386 ClientData clientData)); 387/* 115 */ 388EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); 389/* 116 */ 390EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc * proc, 391 ClientData clientData)); 392/* 117 */ 393EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString * dsPtr, 394 CONST char * string, int length)); 395/* 118 */ 396EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_(( 397 Tcl_DString * dsPtr, CONST char * string)); 398/* 119 */ 399EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_(( 400 Tcl_DString * dsPtr)); 401/* 120 */ 402EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString * dsPtr)); 403/* 121 */ 404EXTERN void Tcl_DStringGetResult _ANSI_ARGS_(( 405 Tcl_Interp * interp, Tcl_DString * dsPtr)); 406/* 122 */ 407EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString * dsPtr)); 408/* 123 */ 409EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp * interp, 410 Tcl_DString * dsPtr)); 411/* 124 */ 412EXTERN void Tcl_DStringSetLength _ANSI_ARGS_(( 413 Tcl_DString * dsPtr, int length)); 414/* 125 */ 415EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( 416 Tcl_DString * dsPtr)); 417/* 126 */ 418EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); 419/* 127 */ 420EXTERN char * Tcl_ErrnoId _ANSI_ARGS_((void)); 421/* 128 */ 422EXTERN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); 423/* 129 */ 424EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp * interp, 425 char * string)); 426/* 130 */ 427EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp * interp, 428 char * fileName)); 429/* 131 */ 430EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp, 431 Tcl_Obj * objPtr)); 432/* 132 */ 433EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( 434 ClientData clientData, 435 Tcl_FreeProc * freeProc)); 436/* 133 */ 437EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); 438/* 134 */ 439EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, 440 char * hiddenCmdToken, char * cmdName)); 441/* 135 */ 442EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, 443 char * string, int * ptr)); 444/* 136 */ 445EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, 446 Tcl_Obj * objPtr, int * ptr)); 447/* 137 */ 448EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, 449 char * string, double * ptr)); 450/* 138 */ 451EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, 452 Tcl_Obj * objPtr, double * ptr)); 453/* 139 */ 454EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, 455 char * string, long * ptr)); 456/* 140 */ 457EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, 458 Tcl_Obj * objPtr, long * ptr)); 459/* 141 */ 460EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp * interp, 461 Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); 462/* 142 */ 463EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, 464 char * string)); 465/* 143 */ 466EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); 467/* 144 */ 468EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char * argv0)); 469/* 145 */ 470EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( 471 Tcl_HashTable * tablePtr, 472 Tcl_HashSearch * searchPtr)); 473/* 146 */ 474EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); 475/* 147 */ 476EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp * interp)); 477/* 148 */ 478EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp * interp, 479 char * slaveCmd, 480 Tcl_Interp ** targetInterpPtr, 481 char ** targetCmdPtr, int * argcPtr, 482 char *** argvPtr)); 483/* 149 */ 484EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp * interp, 485 char * slaveCmd, 486 Tcl_Interp ** targetInterpPtr, 487 char ** targetCmdPtr, int * objcPtr, 488 Tcl_Obj *** objv)); 489/* 150 */ 490EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, 491 char * name, Tcl_InterpDeleteProc ** procPtr)); 492/* 151 */ 493EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, 494 char * chanName, int * modePtr)); 495/* 152 */ 496EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( 497 Tcl_Channel chan)); 498/* 153 */ 499EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, 500 int direction, ClientData * handlePtr)); 501/* 154 */ 502EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( 503 Tcl_Channel chan)); 504/* 155 */ 505EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); 506/* 156 */ 507EXTERN char * Tcl_GetChannelName _ANSI_ARGS_((Tcl_Channel chan)); 508/* 157 */ 509EXTERN int Tcl_GetChannelOption _ANSI_ARGS_(( 510 Tcl_Interp * interp, Tcl_Channel chan, 511 char * optionName, Tcl_DString * dsPtr)); 512/* 158 */ 513EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)); 514/* 159 */ 515EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 516 char * cmdName, Tcl_CmdInfo * infoPtr)); 517/* 160 */ 518EXTERN char * Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp * interp, 519 Tcl_Command command)); 520/* 161 */ 521EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); 522/* 162 */ 523EXTERN char * Tcl_GetHostName _ANSI_ARGS_((void)); 524/* 163 */ 525EXTERN int Tcl_GetInterpPath _ANSI_ARGS_(( 526 Tcl_Interp * askInterp, 527 Tcl_Interp * slaveInterp)); 528/* 164 */ 529EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp * interp)); 530/* 165 */ 531EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); 532/* 166 */ 533EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp)); 534#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 535/* 167 */ 536EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, 537 char * string, int write, int checkUsage, 538 ClientData * filePtr)); 539#endif /* UNIX */ 540/* 168 */ 541EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((char * path)); 542/* 169 */ 543EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, 544 Tcl_DString * dsPtr)); 545/* 170 */ 546EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, 547 Tcl_Obj * objPtr)); 548/* 171 */ 549EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); 550/* 172 */ 551EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp * interp, 552 char * slaveName)); 553/* 173 */ 554EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); 555/* 174 */ 556EXTERN char * Tcl_GetStringResult _ANSI_ARGS_((Tcl_Interp * interp)); 557/* 175 */ 558EXTERN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp * interp, 559 char * varName, int flags)); 560/* 176 */ 561EXTERN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp * interp, 562 char * part1, char * part2, int flags)); 563/* 177 */ 564EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp * interp, 565 char * command)); 566/* 178 */ 567EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp * interp, 568 Tcl_Obj * objPtr)); 569/* 179 */ 570EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, 571 char * cmdName, char * hiddenCmdToken)); 572/* 180 */ 573EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp)); 574/* 181 */ 575EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( 576 Tcl_HashTable * tablePtr, int keyType)); 577/* 182 */ 578EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); 579/* 183 */ 580EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); 581/* 184 */ 582EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp * interp)); 583/* 185 */ 584EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp * interp)); 585/* 186 */ 586EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, char ** argv, 587 Tcl_DString * resultPtr)); 588/* 187 */ 589EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp * interp, 590 char * varName, char * addr, int type)); 591/* Slot 188 is reserved */ 592/* 189 */ 593EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, 594 int mode)); 595/* 190 */ 596EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp * interp)); 597/* 191 */ 598EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( 599 ClientData tcpSocket)); 600/* 192 */ 601EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, char ** argv)); 602/* 193 */ 603EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( 604 Tcl_HashSearch * searchPtr)); 605/* 194 */ 606EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, 607 int mask)); 608/* 195 */ 609EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp, 610 Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, 611 int flags)); 612/* 196 */ 613EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp, 614 Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, 615 Tcl_Obj * newValuePtr, int flags)); 616/* 197 */ 617EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( 618 Tcl_Interp * interp, int argc, char ** argv, 619 int flags)); 620/* 198 */ 621EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, 622 char * fileName, char * modeString, 623 int permissions)); 624/* 199 */ 625EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp, 626 int port, char * address, char * myaddr, 627 int myport, int async)); 628/* 200 */ 629EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, 630 int port, char * host, 631 Tcl_TcpAcceptProc * acceptProc, 632 ClientData callbackData)); 633/* 201 */ 634EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); 635/* 202 */ 636EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp * interp, 637 double value, char * dst)); 638/* 203 */ 639EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string)); 640/* 204 */ 641EXTERN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp)); 642/* 205 */ 643EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr, 644 Tcl_QueuePosition position)); 645/* 206 */ 646EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, 647 char * bufPtr, int toRead)); 648/* 207 */ 649EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); 650/* 208 */ 651EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, 652 char * cmd, int flags)); 653/* 209 */ 654EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_(( 655 Tcl_Interp * interp, Tcl_Obj * cmdPtr, 656 int flags)); 657/* 210 */ 658EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp, 659 Tcl_Channel chan)); 660/* 211 */ 661EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( 662 Tcl_ObjType * typePtr)); 663/* 212 */ 664EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp * interp, 665 char * string)); 666/* 213 */ 667EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp * interp, 668 Tcl_RegExp regexp, CONST char * string, 669 CONST char * start)); 670/* 214 */ 671EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp * interp, 672 char * string, char * pattern)); 673/* 215 */ 674EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, 675 int index, char ** startPtr, char ** endPtr)); 676/* 216 */ 677EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); 678/* 217 */ 679EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp * interp)); 680/* 218 */ 681EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * string, 682 int * flagPtr)); 683/* 219 */ 684EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_(( 685 CONST char * string, int length, 686 int * flagPtr)); 687/* 220 */ 688EXTERN int Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, int offset, 689 int mode)); 690/* 221 */ 691EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); 692/* 222 */ 693EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); 694/* 223 */ 695EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, 696 char * name, Tcl_InterpDeleteProc * proc, 697 ClientData clientData)); 698/* 224 */ 699EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( 700 Tcl_Channel chan, int sz)); 701/* 225 */ 702EXTERN int Tcl_SetChannelOption _ANSI_ARGS_(( 703 Tcl_Interp * interp, Tcl_Channel chan, 704 char * optionName, char * newValue)); 705/* 226 */ 706EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 707 char * cmdName, Tcl_CmdInfo * infoPtr)); 708/* 227 */ 709EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); 710/* 228 */ 711EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); 712/* 229 */ 713EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr)); 714/* 230 */ 715EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( 716 Tcl_PanicProc * panicProc)); 717/* 231 */ 718EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( 719 Tcl_Interp * interp, int depth)); 720/* 232 */ 721EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp * interp, 722 char * string, Tcl_FreeProc * freeProc)); 723/* 233 */ 724EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); 725/* 234 */ 726EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp * interp, 727 Tcl_Obj * errorObjPtr)); 728/* 235 */ 729EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp * interp, 730 Tcl_Obj * resultObjPtr)); 731/* 236 */ 732EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, 733 int type)); 734/* 237 */ 735EXTERN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp * interp, 736 char * varName, char * newValue, int flags)); 737/* 238 */ 738EXTERN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp * interp, 739 char * part1, char * part2, char * newValue, 740 int flags)); 741/* 239 */ 742EXTERN char * Tcl_SignalId _ANSI_ARGS_((int sig)); 743/* 240 */ 744EXTERN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); 745/* 241 */ 746EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp * interp)); 747/* 242 */ 748EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp * interp, 749 CONST char * list, int * argcPtr, 750 char *** argvPtr)); 751/* 243 */ 752EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char * path, 753 int * argcPtr, char *** argvPtr)); 754/* 244 */ 755EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp * interp, 756 char * pkgName, 757 Tcl_PackageInitProc * initProc, 758 Tcl_PackageInitProc * safeInitProc)); 759/* 245 */ 760EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * string, 761 CONST char * pattern)); 762/* 246 */ 763EXTERN int Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); 764/* 247 */ 765EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, 766 char * varName, int flags, 767 Tcl_VarTraceProc * proc, 768 ClientData clientData)); 769/* 248 */ 770EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, 771 char * part1, char * part2, int flags, 772 Tcl_VarTraceProc * proc, 773 ClientData clientData)); 774/* 249 */ 775EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( 776 Tcl_Interp * interp, char * name, 777 Tcl_DString * bufferPtr)); 778/* 250 */ 779EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, char * str, 780 int len, int atHead)); 781/* 251 */ 782EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp * interp, 783 char * varName)); 784/* 252 */ 785EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( 786 Tcl_Interp * interp, Tcl_Channel chan)); 787/* 253 */ 788EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp * interp, 789 char * varName, int flags)); 790/* 254 */ 791EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp * interp, 792 char * part1, char * part2, int flags)); 793/* 255 */ 794EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, 795 char * varName, int flags, 796 Tcl_VarTraceProc * proc, 797 ClientData clientData)); 798/* 256 */ 799EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, 800 char * part1, char * part2, int flags, 801 Tcl_VarTraceProc * proc, 802 ClientData clientData)); 803/* 257 */ 804EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp * interp, 805 char * varName)); 806/* 258 */ 807EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp * interp, 808 char * frameName, char * varName, 809 char * localName, int flags)); 810/* 259 */ 811EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp * interp, 812 char * frameName, char * part1, char * part2, 813 char * localName, int flags)); 814/* 260 */ 815EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); 816/* 261 */ 817EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp * interp, 818 char * varName, int flags, 819 Tcl_VarTraceProc * procPtr, 820 ClientData prevClientData)); 821/* 262 */ 822EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp * interp, 823 char * part1, char * part2, int flags, 824 Tcl_VarTraceProc * procPtr, 825 ClientData prevClientData)); 826/* 263 */ 827EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, char * s, 828 int slen)); 829/* 264 */ 830EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp * interp, 831 int objc, Tcl_Obj *CONST objv[], 832 char * message)); 833/* 265 */ 834EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((char * fileName)); 835/* 266 */ 836EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((char * file, 837 int line)); 838/* 267 */ 839EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp, 840 va_list argList)); 841/* 268 */ 842EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( 843 Tcl_Obj * objPtr, va_list argList)); 844/* 269 */ 845EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable * tablePtr)); 846/* 270 */ 847EXTERN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, 848 char * string, char ** termPtr)); 849/* 271 */ 850EXTERN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * interp, 851 char * name, char * version, int exact)); 852/* 272 */ 853EXTERN char * Tcl_PkgPresentEx _ANSI_ARGS_((Tcl_Interp * interp, 854 char * name, char * version, int exact, 855 ClientData * clientDataPtr)); 856/* 273 */ 857EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp, 858 char * name, char * version)); 859/* 274 */ 860EXTERN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * interp, 861 char * name, char * version, int exact)); 862/* 275 */ 863EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, 864 va_list argList)); 865/* 276 */ 866EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, 867 va_list argList)); 868/* 277 */ 869EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, 870 int options)); 871/* 278 */ 872EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format, 873 va_list argList)); 874/* 279 */ 875EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor, 876 int * patchLevel, int * type)); 877/* Slot 280 is reserved */ 878/* Slot 281 is reserved */ 879/* Slot 282 is reserved */ 880/* Slot 283 is reserved */ 881/* Slot 284 is reserved */ 882/* Slot 285 is reserved */ 883/* 286 */ 884EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr, 885 Tcl_Obj * appendObjPtr)); 886/* 287 */ 887EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( 888 Tcl_EncodingType * typePtr)); 889/* 288 */ 890EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( 891 Tcl_ExitProc * proc, ClientData clientData)); 892/* 289 */ 893EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( 894 Tcl_ExitProc * proc, ClientData clientData)); 895/* 290 */ 896EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( 897 Tcl_SavedResult * statePtr)); 898/* 291 */ 899EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp * interp, 900 char * script, int numBytes, int flags)); 901/* 292 */ 902EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp * interp, 903 int objc, Tcl_Obj *CONST objv[], int flags)); 904/* 293 */ 905EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp * interp, 906 Tcl_Obj * objPtr, int flags)); 907/* 294 */ 908EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); 909/* 295 */ 910EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp * interp, 911 Tcl_Encoding encoding, CONST char * src, 912 int srcLen, int flags, 913 Tcl_EncodingState * statePtr, char * dst, 914 int dstLen, int * srcReadPtr, 915 int * dstWrotePtr, int * dstCharsPtr)); 916/* 296 */ 917EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_(( 918 Tcl_Encoding encoding, CONST char * src, 919 int srcLen, Tcl_DString * dsPtr)); 920/* 297 */ 921EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); 922/* 298 */ 923EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( 924 ClientData clientData)); 925/* 299 */ 926EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding)); 927/* 300 */ 928EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); 929/* 301 */ 930EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp * interp, 931 CONST char * name)); 932/* 302 */ 933EXTERN char * Tcl_GetEncodingName _ANSI_ARGS_(( 934 Tcl_Encoding encoding)); 935/* 303 */ 936EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_(( 937 Tcl_Interp * interp)); 938/* 304 */ 939EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( 940 Tcl_Interp * interp, Tcl_Obj * objPtr, 941 char ** tablePtr, int offset, char * msg, 942 int flags, int * indexPtr)); 943/* 305 */ 944EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( 945 Tcl_ThreadDataKey * keyPtr, int size)); 946/* 306 */ 947EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, 948 char * part1, char * part2, int flags)); 949/* 307 */ 950EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); 951/* 308 */ 952EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); 953/* 309 */ 954EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); 955/* 310 */ 956EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( 957 Tcl_Condition * condPtr)); 958/* 311 */ 959EXTERN void Tcl_ConditionWait _ANSI_ARGS_(( 960 Tcl_Condition * condPtr, 961 Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); 962/* 312 */ 963EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char * src, 964 int len)); 965/* 313 */ 966EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel, 967 Tcl_Obj * objPtr, int charsToRead, 968 int appendFlag)); 969/* 314 */ 970EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp * interp, 971 Tcl_SavedResult * statePtr)); 972/* 315 */ 973EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp * interp, 974 Tcl_SavedResult * statePtr)); 975/* 316 */ 976EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( 977 Tcl_Interp * interp, CONST char * name)); 978/* 317 */ 979EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, 980 char * part1, char * part2, 981 Tcl_Obj * newValuePtr, int flags)); 982/* 318 */ 983EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)); 984/* 319 */ 985EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( 986 Tcl_ThreadId threadId, Tcl_Event* evPtr, 987 Tcl_QueuePosition position)); 988/* 320 */ 989EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char * src, 990 int index)); 991/* 321 */ 992EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); 993/* 322 */ 994EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); 995/* 323 */ 996EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); 997/* 324 */ 998EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char * buf)); 999/* 325 */ 1000EXTERN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char * src, 1001 int index)); 1002/* 326 */ 1003EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char * src, 1004 int len)); 1005/* 327 */ 1006EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char * src, 1007 int * readPtr, char * dst)); 1008/* 328 */ 1009EXTERN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char * src, 1010 int ch)); 1011/* 329 */ 1012EXTERN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char * src, 1013 int ch)); 1014/* 330 */ 1015EXTERN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src)); 1016/* 331 */ 1017EXTERN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char * src, 1018 CONST char * start)); 1019/* 332 */ 1020EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp * interp, 1021 Tcl_Encoding encoding, CONST char * src, 1022 int srcLen, int flags, 1023 Tcl_EncodingState * statePtr, char * dst, 1024 int dstLen, int * srcReadPtr, 1025 int * dstWrotePtr, int * dstCharsPtr)); 1026/* 333 */ 1027EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( 1028 Tcl_Encoding encoding, CONST char * src, 1029 int srcLen, Tcl_DString * dsPtr)); 1030/* 334 */ 1031EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char * src)); 1032/* 335 */ 1033EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char * src)); 1034/* 336 */ 1035EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char * src, 1036 Tcl_UniChar * chPtr)); 1037/* 337 */ 1038EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src)); 1039/* 338 */ 1040EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, 1041 CONST char * src, int srcLen)); 1042/* 339 */ 1043EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, 1044 Tcl_Obj * objPtr)); 1045/* 340 */ 1046EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr)); 1047/* 341 */ 1048EXTERN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void)); 1049/* 342 */ 1050EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_((char * path)); 1051/* 345 */ 1052EXTERN Tcl_Channel Tcl_ReplaceChannel _ANSI_ARGS_((Tcl_Interp * interp, 1053 Tcl_ChannelType * typePtr, 1054 ClientData instanceData, int mask, 1055 Tcl_Channel prevChan)); 1056/* 346 */ 1057EXTERN void Tcl_UndoReplaceChannel _ANSI_ARGS_(( 1058 Tcl_Interp * interp, Tcl_Channel chan)); 1059 1060typedef struct TclStubHooks { 1061 struct TclPlatStubs *tclPlatStubs; 1062 struct TclIntStubs *tclIntStubs; 1063 struct TclIntPlatStubs *tclIntPlatStubs; 1064} TclStubHooks; 1065 1066typedef struct TclStubs { 1067 int magic; 1068 struct TclStubHooks *hooks; 1069 1070 int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, ClientData clientData)); /* 0 */ 1071 char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 1 */ 1072 void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 2 */ 1073 char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ 1074 void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */ 1075 char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 5 */ 1076 char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, char * file, int line)); /* 6 */ 1077 int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, char * file, int line)); /* 7 */ 1078 char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, char * file, int line)); /* 8 */ 1079#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 1080 void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FileProc * proc, ClientData clientData)); /* 9 */ 1081#endif /* UNIX */ 1082#ifdef __WIN32__ 1083 void *reserved9; 1084#endif /* __WIN32__ */ 1085#ifdef MAC_TCL 1086 void *reserved9; 1087#endif /* MAC_TCL */ 1088#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 1089 void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ 1090#endif /* UNIX */ 1091#ifdef __WIN32__ 1092 void *reserved10; 1093#endif /* __WIN32__ */ 1094#ifdef MAC_TCL 1095 void *reserved10; 1096#endif /* MAC_TCL */ 1097 void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 11 */ 1098 void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ 1099 int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 13 */ 1100 int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 14 */ 1101 void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); /* 15 */ 1102 void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, int length)); /* 16 */ 1103 Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 17 */ 1104 int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); /* 18 */ 1105 void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 19 */ 1106 void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 20 */ 1107 int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 21 */ 1108 Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, char * file, int line)); /* 22 */ 1109 Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, int length, char * file, int line)); /* 23 */ 1110 Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, char * file, int line)); /* 24 */ 1111 Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[], char * file, int line)); /* 25 */ 1112 Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, char * file, int line)); /* 26 */ 1113 Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((char * file, int line)); /* 27 */ 1114 Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int length, char * file, int line)); /* 28 */ 1115 Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 29 */ 1116 void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 30 */ 1117 int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * boolPtr)); /* 31 */ 1118 int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr)); /* 32 */ 1119 unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 33 */ 1120 int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * string, double * doublePtr)); /* 34 */ 1121 int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr)); /* 35 */ 1122 int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, char * msg, int flags, int * indexPtr)); /* 36 */ 1123 int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * intPtr)); /* 37 */ 1124 int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr)); /* 38 */ 1125 int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr)); /* 39 */ 1126 Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((char * typeName)); /* 40 */ 1127 char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 41 */ 1128 void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */ 1129 int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */ 1130 int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr)); /* 44 */ 1131 int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 45 */ 1132 int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */ 1133 int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * intPtr)); /* 47 */ 1134 int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ 1135 Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */ 1136 Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, int length)); /* 50 */ 1137 Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */ 1138 Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */ 1139 Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 53 */ 1140 Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */ 1141 Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */ 1142 Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int length)); /* 56 */ 1143 void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue)); /* 57 */ 1144 unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 58 */ 1145 void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, unsigned char * bytes, int length)); /* 59 */ 1146 void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleValue)); /* 60 */ 1147 void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int intValue)); /* 61 */ 1148 void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv[])); /* 62 */ 1149 void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj * objPtr, long longValue)); /* 63 */ 1150 void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 64 */ 1151 void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, int length)); /* 65 */ 1152 void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message)); /* 66 */ 1153 void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message, int length)); /* 67 */ 1154 void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 68 */ 1155 void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 69 */ 1156 void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 70 */ 1157 Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); /* 71 */ 1158 void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */ 1159 int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 73 */ 1160 void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */ 1161 int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */ 1162 void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 76 */ 1163 char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); /* 77 */ 1164 int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, char * optionName, char * optionList)); /* 78 */ 1165 void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 79 */ 1166 void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, ClientData clientData)); /* 80 */ 1167 int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 81 */ 1168 int (*tcl_CommandComplete) _ANSI_ARGS_((char * cmd)); /* 82 */ 1169 char * (*tcl_Concat) _ANSI_ARGS_((int argc, char ** argv)); /* 83 */ 1170 int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, int flags)); /* 84 */ 1171 int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int length, char * dst, int flags)); /* 85 */ 1172 int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int argc, char ** argv)); /* 86 */ 1173 int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int objc, Tcl_Obj *CONST objv[])); /* 87 */ 1174 Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr, char * chanName, ClientData instanceData, int mask)); /* 88 */ 1175 void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); /* 89 */ 1176 void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 90 */ 1177 Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 91 */ 1178 void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */ 1179 void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 93 */ 1180 Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */ 1181 void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); /* 95 */ 1182 Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 96 */ 1183 Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName, int isSafe)); /* 97 */ 1184 Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */ 1185 Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */ 1186 void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 100 */ 1187 void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); /* 101 */ 1188 void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 102 */ 1189 int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName)); /* 103 */ 1190 int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 104 */ 1191 void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, ClientData clientData)); /* 105 */ 1192 void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */ 1193 void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 107 */ 1194 void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */ 1195 void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */ 1196 void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */ 1197 void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */ 1198 void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */ 1199 void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace trace)); /* 113 */ 1200 void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 114 */ 1201 int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */ 1202 void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData clientData)); /* 116 */ 1203 char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * string, int length)); /* 117 */ 1204 char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * string)); /* 118 */ 1205 void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 119 */ 1206 void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */ 1207 void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 121 */ 1208 void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 122 */ 1209 void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 123 */ 1210 void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int length)); /* 124 */ 1211 void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 125 */ 1212 int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */ 1213 char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */ 1214 char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */ 1215 int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 129 */ 1216 int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName)); /* 130 */ 1217 int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 131 */ 1218 void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc * freeProc)); /* 132 */ 1219 void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */ 1220 int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * hiddenCmdToken, char * cmdName)); /* 134 */ 1221 int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * ptr)); /* 135 */ 1222 int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); /* 136 */ 1223 int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * string, double * ptr)); /* 137 */ 1224 int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); /* 138 */ 1225 int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * ptr)); /* 139 */ 1226 int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); /* 140 */ 1227 int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */ 1228 int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 142 */ 1229 void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */ 1230 void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */ 1231 Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); /* 145 */ 1232 int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */ 1233 void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */ 1234 int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char *** argvPtr)); /* 148 */ 1235 int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); /* 149 */ 1236 ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */ 1237 Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * chanName, int * modePtr)); /* 151 */ 1238 int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */ 1239 int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); /* 153 */ 1240 ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan)); /* 154 */ 1241 int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */ 1242 char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */ 1243 int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, Tcl_DString * dsPtr)); /* 157 */ 1244 Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 158 */ 1245 int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */ 1246 char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 160 */ 1247 int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */ 1248 char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */ 1249 int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); /* 163 */ 1250 Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 164 */ 1251 CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ 1252 Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 166 */ 1253#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 1254 int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int write, int checkUsage, ClientData * filePtr)); /* 167 */ 1255#endif /* UNIX */ 1256#ifdef __WIN32__ 1257 void *reserved167; 1258#endif /* __WIN32__ */ 1259#ifdef MAC_TCL 1260 void *reserved167; 1261#endif /* MAC_TCL */ 1262 Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 168 */ 1263 int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 169 */ 1264 int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 170 */ 1265 int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ 1266 Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName)); /* 172 */ 1267 Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ 1268 char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 174 */ 1269 char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); /* 175 */ 1270 char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 176 */ 1271 int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * command)); /* 177 */ 1272 int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 178 */ 1273 int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, char * hiddenCmdToken)); /* 179 */ 1274 int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */ 1275 void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType)); /* 181 */ 1276 int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ 1277 int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ 1278 int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 184 */ 1279 int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 185 */ 1280 char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, char ** argv, Tcl_DString * resultPtr)); /* 186 */ 1281 int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * addr, int type)); /* 187 */ 1282 void *reserved188; 1283 Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ 1284 int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */ 1285 Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSocket)); /* 191 */ 1286 char * (*tcl_Merge) _ANSI_ARGS_((int argc, char ** argv)); /* 192 */ 1287 Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * searchPtr)); /* 193 */ 1288 void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */ 1289 Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */ 1290 Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 */ 1291 Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 197 */ 1292 Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 198 */ 1293 Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * address, char * myaddr, int myport, int async)); /* 199 */ 1294 Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData)); /* 200 */ 1295 void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ 1296 void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */ 1297 int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */ 1298 char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 204 */ 1299 void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePosition position)); /* 205 */ 1300 int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRead)); /* 206 */ 1301 void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ 1302 int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 208 */ 1303 int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */ 1304 void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 210 */ 1305 void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 211 */ 1306 Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 212 */ 1307 int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp regexp, CONST char * string, CONST char * start)); /* 213 */ 1308 int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * pattern)); /* 214 */ 1309 void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, char ** startPtr, char ** endPtr)); /* 215 */ 1310 void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ 1311 void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */ 1312 int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * string, int * flagPtr)); /* 218 */ 1313 int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * string, int length, int * flagPtr)); /* 219 */ 1314 int (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */ 1315 int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ 1316 int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ 1317 void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */ 1318 void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 224 */ 1319 int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, char * newValue)); /* 225 */ 1320 int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 226 */ 1321 void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ 1322 void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */ 1323 void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 */ 1324 void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 230 */ 1325 int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int depth)); /* 231 */ 1326 void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tcl_FreeProc * freeProc)); /* 232 */ 1327 int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ 1328 void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); /* 234 */ 1329 void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * resultObjPtr)); /* 235 */ 1330 void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */ 1331 char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * newValue, int flags)); /* 237 */ 1332 char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, char * newValue, int flags)); /* 238 */ 1333 char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ 1334 char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 */ 1335 void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 241 */ 1336 int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int * argcPtr, char *** argvPtr)); /* 242 */ 1337 void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, char *** argvPtr)); /* 243 */ 1338 void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc)); /* 244 */ 1339 int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * string, CONST char * pattern)); /* 245 */ 1340 int (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ 1341 int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 247 */ 1342 int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 248 */ 1343 char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_DString * bufferPtr)); /* 249 */ 1344 int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, char * str, int len, int atHead)); /* 250 */ 1345 void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 251 */ 1346 int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 252 */ 1347 int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); /* 253 */ 1348 int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 254 */ 1349 void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255 */ 1350 void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 256 */ 1351 void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 257 */ 1352 int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * varName, char * localName, int flags)); /* 258 */ 1353 int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * part1, char * part2, char * localName, int flags)); /* 259 */ 1354 int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 260 */ 1355 ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 261 */ 1356 ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 262 */ 1357 int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, char * s, int slen)); /* 263 */ 1358 void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], char * message)); /* 264 */ 1359 int (*tcl_DumpActiveMemory) _ANSI_ARGS_((char * fileName)); /* 265 */ 1360 void (*tcl_ValidateAllMemory) _ANSI_ARGS_((char * file, int line)); /* 266 */ 1361 void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 267 */ 1362 void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */ 1363 char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 269 */ 1364 char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr)); /* 270 */ 1365 char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 271 */ 1366 char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 272 */ 1367 int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version)); /* 273 */ 1368 char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 274 */ 1369 void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 275 */ 1370 int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 276 */ 1371 Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */ 1372 void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */ 1373 void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, int * type)); /* 279 */ 1374 void *reserved280; 1375 void *reserved281; 1376 void *reserved282; 1377 void *reserved283; 1378 void *reserved284; 1379 void *reserved285; 1380 void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); /* 286 */ 1381 Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * typePtr)); /* 287 */ 1382 void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 288 */ 1383 void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 289 */ 1384 void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */ 1385 int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); /* 291 */ 1386 int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */ 1387 int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); /* 293 */ 1388 void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ 1389 int (*tcl_ExternalToUtf) _ANSI_ARGS_((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 */ 1390 char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 296 */ 1391 void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */ 1392 void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 298 */ 1393 void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 */ 1394 Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */ 1395 Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 301 */ 1396 char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */ 1397 void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 303 */ 1398 int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, int offset, char * msg, int flags, int * indexPtr)); /* 304 */ 1399 VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, int size)); /* 305 */ 1400 Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 306 */ 1401 ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */ 1402 void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 308 */ 1403 void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 309 */ 1404 void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 310 */ 1405 void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); /* 311 */ 1406 int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 312 */ 1407 int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag)); /* 313 */ 1408 void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 314 */ 1409 void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 315 */ 1410 int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 316 */ 1411 Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, Tcl_Obj * newValuePtr, int flags)); /* 317 */ 1412 void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */ 1413 void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position)); /* 319 */ 1414 Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 320 */ 1415 Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */ 1416 Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */ 1417 Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */ 1418 int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 324 */ 1419 char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 325 */ 1420 int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* 326 */ 1421 int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, char * dst)); /* 327 */ 1422 char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src, int ch)); /* 328 */ 1423 char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src, int ch)); /* 329 */ 1424 char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); /* 330 */ 1425 char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CONST char * start)); /* 331 */ 1426 int (*tcl_UtfToExternal) _ANSI_ARGS_((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 */ 1427 char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 333 */ 1428 int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 334 */ 1429 int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 335 */ 1430 int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * chPtr)); /* 336 */ 1431 int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 337 */ 1432 int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 338 */ 1433 int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 339 */ 1434 char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 340 */ 1435 char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); /* 341 */ 1436 void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((char * path)); /* 342 */ 1437 void *reserved343; 1438 void *reserved344; 1439 Tcl_Channel (*tcl_ReplaceChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan)); /* 345 */ 1440 void (*tcl_UndoReplaceChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 346 */ 1441} TclStubs; 1442 1443extern TclStubs *tclStubsPtr; 1444 1445#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) 1446 1447/* 1448 * Inline function declarations: 1449 */ 1450 1451#ifndef Tcl_PkgProvideEx 1452#define Tcl_PkgProvideEx(interp, name, version, clientData) \ 1453 (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData) /* 0 */ 1454#endif 1455#ifndef Tcl_PkgRequireEx 1456#define Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) \ 1457 (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr) /* 1 */ 1458#endif 1459#ifndef Tcl_Panic 1460#define Tcl_Panic \ 1461 (tclStubsPtr->tcl_Panic) /* 2 */ 1462#endif 1463#ifndef Tcl_Alloc 1464#define Tcl_Alloc(size) \ 1465 (tclStubsPtr->tcl_Alloc)(size) /* 3 */ 1466#endif 1467#ifndef Tcl_Free 1468#define Tcl_Free(ptr) \ 1469 (tclStubsPtr->tcl_Free)(ptr) /* 4 */ 1470#endif 1471#ifndef Tcl_Realloc 1472#define Tcl_Realloc(ptr, size) \ 1473 (tclStubsPtr->tcl_Realloc)(ptr, size) /* 5 */ 1474#endif 1475#ifndef Tcl_DbCkalloc 1476#define Tcl_DbCkalloc(size, file, line) \ 1477 (tclStubsPtr->tcl_DbCkalloc)(size, file, line) /* 6 */ 1478#endif 1479#ifndef Tcl_DbCkfree 1480#define Tcl_DbCkfree(ptr, file, line) \ 1481 (tclStubsPtr->tcl_DbCkfree)(ptr, file, line) /* 7 */ 1482#endif 1483#ifndef Tcl_DbCkrealloc 1484#define Tcl_DbCkrealloc(ptr, size, file, line) \ 1485 (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line) /* 8 */ 1486#endif 1487#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 1488#ifndef Tcl_CreateFileHandler 1489#define Tcl_CreateFileHandler(fd, mask, proc, clientData) \ 1490 (tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData) /* 9 */ 1491#endif 1492#endif /* UNIX */ 1493#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 1494#ifndef Tcl_DeleteFileHandler 1495#define Tcl_DeleteFileHandler(fd) \ 1496 (tclStubsPtr->tcl_DeleteFileHandler)(fd) /* 10 */ 1497#endif 1498#endif /* UNIX */ 1499#ifndef Tcl_SetTimer 1500#define Tcl_SetTimer(timePtr) \ 1501 (tclStubsPtr->tcl_SetTimer)(timePtr) /* 11 */ 1502#endif 1503#ifndef Tcl_Sleep 1504#define Tcl_Sleep(ms) \ 1505 (tclStubsPtr->tcl_Sleep)(ms) /* 12 */ 1506#endif 1507#ifndef Tcl_WaitForEvent 1508#define Tcl_WaitForEvent(timePtr) \ 1509 (tclStubsPtr->tcl_WaitForEvent)(timePtr) /* 13 */ 1510#endif 1511#ifndef Tcl_AppendAllObjTypes 1512#define Tcl_AppendAllObjTypes(interp, objPtr) \ 1513 (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr) /* 14 */ 1514#endif 1515#ifndef Tcl_AppendStringsToObj 1516#define Tcl_AppendStringsToObj \ 1517 (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ 1518#endif 1519#ifndef Tcl_AppendToObj 1520#define Tcl_AppendToObj(objPtr, bytes, length) \ 1521 (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length) /* 16 */ 1522#endif 1523#ifndef Tcl_ConcatObj 1524#define Tcl_ConcatObj(objc, objv) \ 1525 (tclStubsPtr->tcl_ConcatObj)(objc, objv) /* 17 */ 1526#endif 1527#ifndef Tcl_ConvertToType 1528#define Tcl_ConvertToType(interp, objPtr, typePtr) \ 1529 (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr) /* 18 */ 1530#endif 1531#ifndef Tcl_DbDecrRefCount 1532#define Tcl_DbDecrRefCount(objPtr, file, line) \ 1533 (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line) /* 19 */ 1534#endif 1535#ifndef Tcl_DbIncrRefCount 1536#define Tcl_DbIncrRefCount(objPtr, file, line) \ 1537 (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line) /* 20 */ 1538#endif 1539#ifndef Tcl_DbIsShared 1540#define Tcl_DbIsShared(objPtr, file, line) \ 1541 (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line) /* 21 */ 1542#endif 1543#ifndef Tcl_DbNewBooleanObj 1544#define Tcl_DbNewBooleanObj(boolValue, file, line) \ 1545 (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line) /* 22 */ 1546#endif 1547#ifndef Tcl_DbNewByteArrayObj 1548#define Tcl_DbNewByteArrayObj(bytes, length, file, line) \ 1549 (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line) /* 23 */ 1550#endif 1551#ifndef Tcl_DbNewDoubleObj 1552#define Tcl_DbNewDoubleObj(doubleValue, file, line) \ 1553 (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line) /* 24 */ 1554#endif 1555#ifndef Tcl_DbNewListObj 1556#define Tcl_DbNewListObj(objc, objv, file, line) \ 1557 (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line) /* 25 */ 1558#endif 1559#ifndef Tcl_DbNewLongObj 1560#define Tcl_DbNewLongObj(longValue, file, line) \ 1561 (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line) /* 26 */ 1562#endif 1563#ifndef Tcl_DbNewObj 1564#define Tcl_DbNewObj(file, line) \ 1565 (tclStubsPtr->tcl_DbNewObj)(file, line) /* 27 */ 1566#endif 1567#ifndef Tcl_DbNewStringObj 1568#define Tcl_DbNewStringObj(bytes, length, file, line) \ 1569 (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line) /* 28 */ 1570#endif 1571#ifndef Tcl_DuplicateObj 1572#define Tcl_DuplicateObj(objPtr) \ 1573 (tclStubsPtr->tcl_DuplicateObj)(objPtr) /* 29 */ 1574#endif 1575#ifndef TclFreeObj 1576#define TclFreeObj(objPtr) \ 1577 (tclStubsPtr->tclFreeObj)(objPtr) /* 30 */ 1578#endif 1579#ifndef Tcl_GetBoolean 1580#define Tcl_GetBoolean(interp, string, boolPtr) \ 1581 (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr) /* 31 */ 1582#endif 1583#ifndef Tcl_GetBooleanFromObj 1584#define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \ 1585 (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr) /* 32 */ 1586#endif 1587#ifndef Tcl_GetByteArrayFromObj 1588#define Tcl_GetByteArrayFromObj(objPtr, lengthPtr) \ 1589 (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr) /* 33 */ 1590#endif 1591#ifndef Tcl_GetDouble 1592#define Tcl_GetDouble(interp, string, doublePtr) \ 1593 (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr) /* 34 */ 1594#endif 1595#ifndef Tcl_GetDoubleFromObj 1596#define Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) \ 1597 (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr) /* 35 */ 1598#endif 1599#ifndef Tcl_GetIndexFromObj 1600#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ 1601 (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr) /* 36 */ 1602#endif 1603#ifndef Tcl_GetInt 1604#define Tcl_GetInt(interp, string, intPtr) \ 1605 (tclStubsPtr->tcl_GetInt)(interp, string, intPtr) /* 37 */ 1606#endif 1607#ifndef Tcl_GetIntFromObj 1608#define Tcl_GetIntFromObj(interp, objPtr, intPtr) \ 1609 (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr) /* 38 */ 1610#endif 1611#ifndef Tcl_GetLongFromObj 1612#define Tcl_GetLongFromObj(interp, objPtr, longPtr) \ 1613 (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr) /* 39 */ 1614#endif 1615#ifndef Tcl_GetObjType 1616#define Tcl_GetObjType(typeName) \ 1617 (tclStubsPtr->tcl_GetObjType)(typeName) /* 40 */ 1618#endif 1619#ifndef Tcl_GetStringFromObj 1620#define Tcl_GetStringFromObj(objPtr, lengthPtr) \ 1621 (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr) /* 41 */ 1622#endif 1623#ifndef Tcl_InvalidateStringRep 1624#define Tcl_InvalidateStringRep(objPtr) \ 1625 (tclStubsPtr->tcl_InvalidateStringRep)(objPtr) /* 42 */ 1626#endif 1627#ifndef Tcl_ListObjAppendList 1628#define Tcl_ListObjAppendList(interp, listPtr, elemListPtr) \ 1629 (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr) /* 43 */ 1630#endif 1631#ifndef Tcl_ListObjAppendElement 1632#define Tcl_ListObjAppendElement(interp, listPtr, objPtr) \ 1633 (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr) /* 44 */ 1634#endif 1635#ifndef Tcl_ListObjGetElements 1636#define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ 1637 (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr) /* 45 */ 1638#endif 1639#ifndef Tcl_ListObjIndex 1640#define Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) \ 1641 (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr) /* 46 */ 1642#endif 1643#ifndef Tcl_ListObjLength 1644#define Tcl_ListObjLength(interp, listPtr, intPtr) \ 1645 (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr) /* 47 */ 1646#endif 1647#ifndef Tcl_ListObjReplace 1648#define Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) \ 1649 (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv) /* 48 */ 1650#endif 1651#ifndef Tcl_NewBooleanObj 1652#define Tcl_NewBooleanObj(boolValue) \ 1653 (tclStubsPtr->tcl_NewBooleanObj)(boolValue) /* 49 */ 1654#endif 1655#ifndef Tcl_NewByteArrayObj 1656#define Tcl_NewByteArrayObj(bytes, length) \ 1657 (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length) /* 50 */ 1658#endif 1659#ifndef Tcl_NewDoubleObj 1660#define Tcl_NewDoubleObj(doubleValue) \ 1661 (tclStubsPtr->tcl_NewDoubleObj)(doubleValue) /* 51 */ 1662#endif 1663#ifndef Tcl_NewIntObj 1664#define Tcl_NewIntObj(intValue) \ 1665 (tclStubsPtr->tcl_NewIntObj)(intValue) /* 52 */ 1666#endif 1667#ifndef Tcl_NewListObj 1668#define Tcl_NewListObj(objc, objv) \ 1669 (tclStubsPtr->tcl_NewListObj)(objc, objv) /* 53 */ 1670#endif 1671#ifndef Tcl_NewLongObj 1672#define Tcl_NewLongObj(longValue) \ 1673 (tclStubsPtr->tcl_NewLongObj)(longValue) /* 54 */ 1674#endif 1675#ifndef Tcl_NewObj 1676#define Tcl_NewObj() \ 1677 (tclStubsPtr->tcl_NewObj)() /* 55 */ 1678#endif 1679#ifndef Tcl_NewStringObj 1680#define Tcl_NewStringObj(bytes, length) \ 1681 (tclStubsPtr->tcl_NewStringObj)(bytes, length) /* 56 */ 1682#endif 1683#ifndef Tcl_SetBooleanObj 1684#define Tcl_SetBooleanObj(objPtr, boolValue) \ 1685 (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue) /* 57 */ 1686#endif 1687#ifndef Tcl_SetByteArrayLength 1688#define Tcl_SetByteArrayLength(objPtr, length) \ 1689 (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length) /* 58 */ 1690#endif 1691#ifndef Tcl_SetByteArrayObj 1692#define Tcl_SetByteArrayObj(objPtr, bytes, length) \ 1693 (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length) /* 59 */ 1694#endif 1695#ifndef Tcl_SetDoubleObj 1696#define Tcl_SetDoubleObj(objPtr, doubleValue) \ 1697 (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue) /* 60 */ 1698#endif 1699#ifndef Tcl_SetIntObj 1700#define Tcl_SetIntObj(objPtr, intValue) \ 1701 (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue) /* 61 */ 1702#endif 1703#ifndef Tcl_SetListObj 1704#define Tcl_SetListObj(objPtr, objc, objv) \ 1705 (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv) /* 62 */ 1706#endif 1707#ifndef Tcl_SetLongObj 1708#define Tcl_SetLongObj(objPtr, longValue) \ 1709 (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue) /* 63 */ 1710#endif 1711#ifndef Tcl_SetObjLength 1712#define Tcl_SetObjLength(objPtr, length) \ 1713 (tclStubsPtr->tcl_SetObjLength)(objPtr, length) /* 64 */ 1714#endif 1715#ifndef Tcl_SetStringObj 1716#define Tcl_SetStringObj(objPtr, bytes, length) \ 1717 (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length) /* 65 */ 1718#endif 1719#ifndef Tcl_AddErrorInfo 1720#define Tcl_AddErrorInfo(interp, message) \ 1721 (tclStubsPtr->tcl_AddErrorInfo)(interp, message) /* 66 */ 1722#endif 1723#ifndef Tcl_AddObjErrorInfo 1724#define Tcl_AddObjErrorInfo(interp, message, length) \ 1725 (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length) /* 67 */ 1726#endif 1727#ifndef Tcl_AllowExceptions 1728#define Tcl_AllowExceptions(interp) \ 1729 (tclStubsPtr->tcl_AllowExceptions)(interp) /* 68 */ 1730#endif 1731#ifndef Tcl_AppendElement 1732#define Tcl_AppendElement(interp, string) \ 1733 (tclStubsPtr->tcl_AppendElement)(interp, string) /* 69 */ 1734#endif 1735#ifndef Tcl_AppendResult 1736#define Tcl_AppendResult \ 1737 (tclStubsPtr->tcl_AppendResult) /* 70 */ 1738#endif 1739#ifndef Tcl_AsyncCreate 1740#define Tcl_AsyncCreate(proc, clientData) \ 1741 (tclStubsPtr->tcl_AsyncCreate)(proc, clientData) /* 71 */ 1742#endif 1743#ifndef Tcl_AsyncDelete 1744#define Tcl_AsyncDelete(async) \ 1745 (tclStubsPtr->tcl_AsyncDelete)(async) /* 72 */ 1746#endif 1747#ifndef Tcl_AsyncInvoke 1748#define Tcl_AsyncInvoke(interp, code) \ 1749 (tclStubsPtr->tcl_AsyncInvoke)(interp, code) /* 73 */ 1750#endif 1751#ifndef Tcl_AsyncMark 1752#define Tcl_AsyncMark(async) \ 1753 (tclStubsPtr->tcl_AsyncMark)(async) /* 74 */ 1754#endif 1755#ifndef Tcl_AsyncReady 1756#define Tcl_AsyncReady() \ 1757 (tclStubsPtr->tcl_AsyncReady)() /* 75 */ 1758#endif 1759#ifndef Tcl_BackgroundError 1760#define Tcl_BackgroundError(interp) \ 1761 (tclStubsPtr->tcl_BackgroundError)(interp) /* 76 */ 1762#endif 1763#ifndef Tcl_Backslash 1764#define Tcl_Backslash(src, readPtr) \ 1765 (tclStubsPtr->tcl_Backslash)(src, readPtr) /* 77 */ 1766#endif 1767#ifndef Tcl_BadChannelOption 1768#define Tcl_BadChannelOption(interp, optionName, optionList) \ 1769 (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList) /* 78 */ 1770#endif 1771#ifndef Tcl_CallWhenDeleted 1772#define Tcl_CallWhenDeleted(interp, proc, clientData) \ 1773 (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData) /* 79 */ 1774#endif 1775#ifndef Tcl_CancelIdleCall 1776#define Tcl_CancelIdleCall(idleProc, clientData) \ 1777 (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData) /* 80 */ 1778#endif 1779#ifndef Tcl_Close 1780#define Tcl_Close(interp, chan) \ 1781 (tclStubsPtr->tcl_Close)(interp, chan) /* 81 */ 1782#endif 1783#ifndef Tcl_CommandComplete 1784#define Tcl_CommandComplete(cmd) \ 1785 (tclStubsPtr->tcl_CommandComplete)(cmd) /* 82 */ 1786#endif 1787#ifndef Tcl_Concat 1788#define Tcl_Concat(argc, argv) \ 1789 (tclStubsPtr->tcl_Concat)(argc, argv) /* 83 */ 1790#endif 1791#ifndef Tcl_ConvertElement 1792#define Tcl_ConvertElement(src, dst, flags) \ 1793 (tclStubsPtr->tcl_ConvertElement)(src, dst, flags) /* 84 */ 1794#endif 1795#ifndef Tcl_ConvertCountedElement 1796#define Tcl_ConvertCountedElement(src, length, dst, flags) \ 1797 (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags) /* 85 */ 1798#endif 1799#ifndef Tcl_CreateAlias 1800#define Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) \ 1801 (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv) /* 86 */ 1802#endif 1803#ifndef Tcl_CreateAliasObj 1804#define Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) \ 1805 (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv) /* 87 */ 1806#endif 1807#ifndef Tcl_CreateChannel 1808#define Tcl_CreateChannel(typePtr, chanName, instanceData, mask) \ 1809 (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask) /* 88 */ 1810#endif 1811#ifndef Tcl_CreateChannelHandler 1812#define Tcl_CreateChannelHandler(chan, mask, proc, clientData) \ 1813 (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData) /* 89 */ 1814#endif 1815#ifndef Tcl_CreateCloseHandler 1816#define Tcl_CreateCloseHandler(chan, proc, clientData) \ 1817 (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData) /* 90 */ 1818#endif 1819#ifndef Tcl_CreateCommand 1820#define Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) \ 1821 (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc) /* 91 */ 1822#endif 1823#ifndef Tcl_CreateEventSource 1824#define Tcl_CreateEventSource(setupProc, checkProc, clientData) \ 1825 (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData) /* 92 */ 1826#endif 1827#ifndef Tcl_CreateExitHandler 1828#define Tcl_CreateExitHandler(proc, clientData) \ 1829 (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData) /* 93 */ 1830#endif 1831#ifndef Tcl_CreateInterp 1832#define Tcl_CreateInterp() \ 1833 (tclStubsPtr->tcl_CreateInterp)() /* 94 */ 1834#endif 1835#ifndef Tcl_CreateMathFunc 1836#define Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) \ 1837 (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData) /* 95 */ 1838#endif 1839#ifndef Tcl_CreateObjCommand 1840#define Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) \ 1841 (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc) /* 96 */ 1842#endif 1843#ifndef Tcl_CreateSlave 1844#define Tcl_CreateSlave(interp, slaveName, isSafe) \ 1845 (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe) /* 97 */ 1846#endif 1847#ifndef Tcl_CreateTimerHandler 1848#define Tcl_CreateTimerHandler(milliseconds, proc, clientData) \ 1849 (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData) /* 98 */ 1850#endif 1851#ifndef Tcl_CreateTrace 1852#define Tcl_CreateTrace(interp, level, proc, clientData) \ 1853 (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData) /* 99 */ 1854#endif 1855#ifndef Tcl_DeleteAssocData 1856#define Tcl_DeleteAssocData(interp, name) \ 1857 (tclStubsPtr->tcl_DeleteAssocData)(interp, name) /* 100 */ 1858#endif 1859#ifndef Tcl_DeleteChannelHandler 1860#define Tcl_DeleteChannelHandler(chan, proc, clientData) \ 1861 (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData) /* 101 */ 1862#endif 1863#ifndef Tcl_DeleteCloseHandler 1864#define Tcl_DeleteCloseHandler(chan, proc, clientData) \ 1865 (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData) /* 102 */ 1866#endif 1867#ifndef Tcl_DeleteCommand 1868#define Tcl_DeleteCommand(interp, cmdName) \ 1869 (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName) /* 103 */ 1870#endif 1871#ifndef Tcl_DeleteCommandFromToken 1872#define Tcl_DeleteCommandFromToken(interp, command) \ 1873 (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command) /* 104 */ 1874#endif 1875#ifndef Tcl_DeleteEvents 1876#define Tcl_DeleteEvents(proc, clientData) \ 1877 (tclStubsPtr->tcl_DeleteEvents)(proc, clientData) /* 105 */ 1878#endif 1879#ifndef Tcl_DeleteEventSource 1880#define Tcl_DeleteEventSource(setupProc, checkProc, clientData) \ 1881 (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData) /* 106 */ 1882#endif 1883#ifndef Tcl_DeleteExitHandler 1884#define Tcl_DeleteExitHandler(proc, clientData) \ 1885 (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData) /* 107 */ 1886#endif 1887#ifndef Tcl_DeleteHashEntry 1888#define Tcl_DeleteHashEntry(entryPtr) \ 1889 (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr) /* 108 */ 1890#endif 1891#ifndef Tcl_DeleteHashTable 1892#define Tcl_DeleteHashTable(tablePtr) \ 1893 (tclStubsPtr->tcl_DeleteHashTable)(tablePtr) /* 109 */ 1894#endif 1895#ifndef Tcl_DeleteInterp 1896#define Tcl_DeleteInterp(interp) \ 1897 (tclStubsPtr->tcl_DeleteInterp)(interp) /* 110 */ 1898#endif 1899#ifndef Tcl_DetachPids 1900#define Tcl_DetachPids(numPids, pidPtr) \ 1901 (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr) /* 111 */ 1902#endif 1903#ifndef Tcl_DeleteTimerHandler 1904#define Tcl_DeleteTimerHandler(token) \ 1905 (tclStubsPtr->tcl_DeleteTimerHandler)(token) /* 112 */ 1906#endif 1907#ifndef Tcl_DeleteTrace 1908#define Tcl_DeleteTrace(interp, trace) \ 1909 (tclStubsPtr->tcl_DeleteTrace)(interp, trace) /* 113 */ 1910#endif 1911#ifndef Tcl_DontCallWhenDeleted 1912#define Tcl_DontCallWhenDeleted(interp, proc, clientData) \ 1913 (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData) /* 114 */ 1914#endif 1915#ifndef Tcl_DoOneEvent 1916#define Tcl_DoOneEvent(flags) \ 1917 (tclStubsPtr->tcl_DoOneEvent)(flags) /* 115 */ 1918#endif 1919#ifndef Tcl_DoWhenIdle 1920#define Tcl_DoWhenIdle(proc, clientData) \ 1921 (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData) /* 116 */ 1922#endif 1923#ifndef Tcl_DStringAppend 1924#define Tcl_DStringAppend(dsPtr, string, length) \ 1925 (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length) /* 117 */ 1926#endif 1927#ifndef Tcl_DStringAppendElement 1928#define Tcl_DStringAppendElement(dsPtr, string) \ 1929 (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string) /* 118 */ 1930#endif 1931#ifndef Tcl_DStringEndSublist 1932#define Tcl_DStringEndSublist(dsPtr) \ 1933 (tclStubsPtr->tcl_DStringEndSublist)(dsPtr) /* 119 */ 1934#endif 1935#ifndef Tcl_DStringFree 1936#define Tcl_DStringFree(dsPtr) \ 1937 (tclStubsPtr->tcl_DStringFree)(dsPtr) /* 120 */ 1938#endif 1939#ifndef Tcl_DStringGetResult 1940#define Tcl_DStringGetResult(interp, dsPtr) \ 1941 (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr) /* 121 */ 1942#endif 1943#ifndef Tcl_DStringInit 1944#define Tcl_DStringInit(dsPtr) \ 1945 (tclStubsPtr->tcl_DStringInit)(dsPtr) /* 122 */ 1946#endif 1947#ifndef Tcl_DStringResult 1948#define Tcl_DStringResult(interp, dsPtr) \ 1949 (tclStubsPtr->tcl_DStringResult)(interp, dsPtr) /* 123 */ 1950#endif 1951#ifndef Tcl_DStringSetLength 1952#define Tcl_DStringSetLength(dsPtr, length) \ 1953 (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length) /* 124 */ 1954#endif 1955#ifndef Tcl_DStringStartSublist 1956#define Tcl_DStringStartSublist(dsPtr) \ 1957 (tclStubsPtr->tcl_DStringStartSublist)(dsPtr) /* 125 */ 1958#endif 1959#ifndef Tcl_Eof 1960#define Tcl_Eof(chan) \ 1961 (tclStubsPtr->tcl_Eof)(chan) /* 126 */ 1962#endif 1963#ifndef Tcl_ErrnoId 1964#define Tcl_ErrnoId() \ 1965 (tclStubsPtr->tcl_ErrnoId)() /* 127 */ 1966#endif 1967#ifndef Tcl_ErrnoMsg 1968#define Tcl_ErrnoMsg(err) \ 1969 (tclStubsPtr->tcl_ErrnoMsg)(err) /* 128 */ 1970#endif 1971#ifndef Tcl_Eval 1972#define Tcl_Eval(interp, string) \ 1973 (tclStubsPtr->tcl_Eval)(interp, string) /* 129 */ 1974#endif 1975#ifndef Tcl_EvalFile 1976#define Tcl_EvalFile(interp, fileName) \ 1977 (tclStubsPtr->tcl_EvalFile)(interp, fileName) /* 130 */ 1978#endif 1979#ifndef Tcl_EvalObj 1980#define Tcl_EvalObj(interp, objPtr) \ 1981 (tclStubsPtr->tcl_EvalObj)(interp, objPtr) /* 131 */ 1982#endif 1983#ifndef Tcl_EventuallyFree 1984#define Tcl_EventuallyFree(clientData, freeProc) \ 1985 (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc) /* 132 */ 1986#endif 1987#ifndef Tcl_Exit 1988#define Tcl_Exit(status) \ 1989 (tclStubsPtr->tcl_Exit)(status) /* 133 */ 1990#endif 1991#ifndef Tcl_ExposeCommand 1992#define Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) \ 1993 (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName) /* 134 */ 1994#endif 1995#ifndef Tcl_ExprBoolean 1996#define Tcl_ExprBoolean(interp, string, ptr) \ 1997 (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr) /* 135 */ 1998#endif 1999#ifndef Tcl_ExprBooleanObj 2000#define Tcl_ExprBooleanObj(interp, objPtr, ptr) \ 2001 (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr) /* 136 */ 2002#endif 2003#ifndef Tcl_ExprDouble 2004#define Tcl_ExprDouble(interp, string, ptr) \ 2005 (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr) /* 137 */ 2006#endif 2007#ifndef Tcl_ExprDoubleObj 2008#define Tcl_ExprDoubleObj(interp, objPtr, ptr) \ 2009 (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr) /* 138 */ 2010#endif 2011#ifndef Tcl_ExprLong 2012#define Tcl_ExprLong(interp, string, ptr) \ 2013 (tclStubsPtr->tcl_ExprLong)(interp, string, ptr) /* 139 */ 2014#endif 2015#ifndef Tcl_ExprLongObj 2016#define Tcl_ExprLongObj(interp, objPtr, ptr) \ 2017 (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr) /* 140 */ 2018#endif 2019#ifndef Tcl_ExprObj 2020#define Tcl_ExprObj(interp, objPtr, resultPtrPtr) \ 2021 (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr) /* 141 */ 2022#endif 2023#ifndef Tcl_ExprString 2024#define Tcl_ExprString(interp, string) \ 2025 (tclStubsPtr->tcl_ExprString)(interp, string) /* 142 */ 2026#endif 2027#ifndef Tcl_Finalize 2028#define Tcl_Finalize() \ 2029 (tclStubsPtr->tcl_Finalize)() /* 143 */ 2030#endif 2031#ifndef Tcl_FindExecutable 2032#define Tcl_FindExecutable(argv0) \ 2033 (tclStubsPtr->tcl_FindExecutable)(argv0) /* 144 */ 2034#endif 2035#ifndef Tcl_FirstHashEntry 2036#define Tcl_FirstHashEntry(tablePtr, searchPtr) \ 2037 (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr) /* 145 */ 2038#endif 2039#ifndef Tcl_Flush 2040#define Tcl_Flush(chan) \ 2041 (tclStubsPtr->tcl_Flush)(chan) /* 146 */ 2042#endif 2043#ifndef Tcl_FreeResult 2044#define Tcl_FreeResult(interp) \ 2045 (tclStubsPtr->tcl_FreeResult)(interp) /* 147 */ 2046#endif 2047#ifndef Tcl_GetAlias 2048#define Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) \ 2049 (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) /* 148 */ 2050#endif 2051#ifndef Tcl_GetAliasObj 2052#define Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) \ 2053 (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) /* 149 */ 2054#endif 2055#ifndef Tcl_GetAssocData 2056#define Tcl_GetAssocData(interp, name, procPtr) \ 2057 (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr) /* 150 */ 2058#endif 2059#ifndef Tcl_GetChannel 2060#define Tcl_GetChannel(interp, chanName, modePtr) \ 2061 (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr) /* 151 */ 2062#endif 2063#ifndef Tcl_GetChannelBufferSize 2064#define Tcl_GetChannelBufferSize(chan) \ 2065 (tclStubsPtr->tcl_GetChannelBufferSize)(chan) /* 152 */ 2066#endif 2067#ifndef Tcl_GetChannelHandle 2068#define Tcl_GetChannelHandle(chan, direction, handlePtr) \ 2069 (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr) /* 153 */ 2070#endif 2071#ifndef Tcl_GetChannelInstanceData 2072#define Tcl_GetChannelInstanceData(chan) \ 2073 (tclStubsPtr->tcl_GetChannelInstanceData)(chan) /* 154 */ 2074#endif 2075#ifndef Tcl_GetChannelMode 2076#define Tcl_GetChannelMode(chan) \ 2077 (tclStubsPtr->tcl_GetChannelMode)(chan) /* 155 */ 2078#endif 2079#ifndef Tcl_GetChannelName 2080#define Tcl_GetChannelName(chan) \ 2081 (tclStubsPtr->tcl_GetChannelName)(chan) /* 156 */ 2082#endif 2083#ifndef Tcl_GetChannelOption 2084#define Tcl_GetChannelOption(interp, chan, optionName, dsPtr) \ 2085 (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr) /* 157 */ 2086#endif 2087#ifndef Tcl_GetChannelType 2088#define Tcl_GetChannelType(chan) \ 2089 (tclStubsPtr->tcl_GetChannelType)(chan) /* 158 */ 2090#endif 2091#ifndef Tcl_GetCommandInfo 2092#define Tcl_GetCommandInfo(interp, cmdName, infoPtr) \ 2093 (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr) /* 159 */ 2094#endif 2095#ifndef Tcl_GetCommandName 2096#define Tcl_GetCommandName(interp, command) \ 2097 (tclStubsPtr->tcl_GetCommandName)(interp, command) /* 160 */ 2098#endif 2099#ifndef Tcl_GetErrno 2100#define Tcl_GetErrno() \ 2101 (tclStubsPtr->tcl_GetErrno)() /* 161 */ 2102#endif 2103#ifndef Tcl_GetHostName 2104#define Tcl_GetHostName() \ 2105 (tclStubsPtr->tcl_GetHostName)() /* 162 */ 2106#endif 2107#ifndef Tcl_GetInterpPath 2108#define Tcl_GetInterpPath(askInterp, slaveInterp) \ 2109 (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp) /* 163 */ 2110#endif 2111#ifndef Tcl_GetMaster 2112#define Tcl_GetMaster(interp) \ 2113 (tclStubsPtr->tcl_GetMaster)(interp) /* 164 */ 2114#endif 2115#ifndef Tcl_GetNameOfExecutable 2116#define Tcl_GetNameOfExecutable() \ 2117 (tclStubsPtr->tcl_GetNameOfExecutable)() /* 165 */ 2118#endif 2119#ifndef Tcl_GetObjResult 2120#define Tcl_GetObjResult(interp) \ 2121 (tclStubsPtr->tcl_GetObjResult)(interp) /* 166 */ 2122#endif 2123#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 2124#ifndef Tcl_GetOpenFile 2125#define Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) \ 2126 (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr) /* 167 */ 2127#endif 2128#endif /* UNIX */ 2129#ifndef Tcl_GetPathType 2130#define Tcl_GetPathType(path) \ 2131 (tclStubsPtr->tcl_GetPathType)(path) /* 168 */ 2132#endif 2133#ifndef Tcl_Gets 2134#define Tcl_Gets(chan, dsPtr) \ 2135 (tclStubsPtr->tcl_Gets)(chan, dsPtr) /* 169 */ 2136#endif 2137#ifndef Tcl_GetsObj 2138#define Tcl_GetsObj(chan, objPtr) \ 2139 (tclStubsPtr->tcl_GetsObj)(chan, objPtr) /* 170 */ 2140#endif 2141#ifndef Tcl_GetServiceMode 2142#define Tcl_GetServiceMode() \ 2143 (tclStubsPtr->tcl_GetServiceMode)() /* 171 */ 2144#endif 2145#ifndef Tcl_GetSlave 2146#define Tcl_GetSlave(interp, slaveName) \ 2147 (tclStubsPtr->tcl_GetSlave)(interp, slaveName) /* 172 */ 2148#endif 2149#ifndef Tcl_GetStdChannel 2150#define Tcl_GetStdChannel(type) \ 2151 (tclStubsPtr->tcl_GetStdChannel)(type) /* 173 */ 2152#endif 2153#ifndef Tcl_GetStringResult 2154#define Tcl_GetStringResult(interp) \ 2155 (tclStubsPtr->tcl_GetStringResult)(interp) /* 174 */ 2156#endif 2157#ifndef Tcl_GetVar 2158#define Tcl_GetVar(interp, varName, flags) \ 2159 (tclStubsPtr->tcl_GetVar)(interp, varName, flags) /* 175 */ 2160#endif 2161#ifndef Tcl_GetVar2 2162#define Tcl_GetVar2(interp, part1, part2, flags) \ 2163 (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags) /* 176 */ 2164#endif 2165#ifndef Tcl_GlobalEval 2166#define Tcl_GlobalEval(interp, command) \ 2167 (tclStubsPtr->tcl_GlobalEval)(interp, command) /* 177 */ 2168#endif 2169#ifndef Tcl_GlobalEvalObj 2170#define Tcl_GlobalEvalObj(interp, objPtr) \ 2171 (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr) /* 178 */ 2172#endif 2173#ifndef Tcl_HideCommand 2174#define Tcl_HideCommand(interp, cmdName, hiddenCmdToken) \ 2175 (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken) /* 179 */ 2176#endif 2177#ifndef Tcl_Init 2178#define Tcl_Init(interp) \ 2179 (tclStubsPtr->tcl_Init)(interp) /* 180 */ 2180#endif 2181#ifndef Tcl_InitHashTable 2182#define Tcl_InitHashTable(tablePtr, keyType) \ 2183 (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType) /* 181 */ 2184#endif 2185#ifndef Tcl_InputBlocked 2186#define Tcl_InputBlocked(chan) \ 2187 (tclStubsPtr->tcl_InputBlocked)(chan) /* 182 */ 2188#endif 2189#ifndef Tcl_InputBuffered 2190#define Tcl_InputBuffered(chan) \ 2191 (tclStubsPtr->tcl_InputBuffered)(chan) /* 183 */ 2192#endif 2193#ifndef Tcl_InterpDeleted 2194#define Tcl_InterpDeleted(interp) \ 2195 (tclStubsPtr->tcl_InterpDeleted)(interp) /* 184 */ 2196#endif 2197#ifndef Tcl_IsSafe 2198#define Tcl_IsSafe(interp) \ 2199 (tclStubsPtr->tcl_IsSafe)(interp) /* 185 */ 2200#endif 2201#ifndef Tcl_JoinPath 2202#define Tcl_JoinPath(argc, argv, resultPtr) \ 2203 (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr) /* 186 */ 2204#endif 2205#ifndef Tcl_LinkVar 2206#define Tcl_LinkVar(interp, varName, addr, type) \ 2207 (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type) /* 187 */ 2208#endif 2209/* Slot 188 is reserved */ 2210#ifndef Tcl_MakeFileChannel 2211#define Tcl_MakeFileChannel(handle, mode) \ 2212 (tclStubsPtr->tcl_MakeFileChannel)(handle, mode) /* 189 */ 2213#endif 2214#ifndef Tcl_MakeSafe 2215#define Tcl_MakeSafe(interp) \ 2216 (tclStubsPtr->tcl_MakeSafe)(interp) /* 190 */ 2217#endif 2218#ifndef Tcl_MakeTcpClientChannel 2219#define Tcl_MakeTcpClientChannel(tcpSocket) \ 2220 (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket) /* 191 */ 2221#endif 2222#ifndef Tcl_Merge 2223#define Tcl_Merge(argc, argv) \ 2224 (tclStubsPtr->tcl_Merge)(argc, argv) /* 192 */ 2225#endif 2226#ifndef Tcl_NextHashEntry 2227#define Tcl_NextHashEntry(searchPtr) \ 2228 (tclStubsPtr->tcl_NextHashEntry)(searchPtr) /* 193 */ 2229#endif 2230#ifndef Tcl_NotifyChannel 2231#define Tcl_NotifyChannel(channel, mask) \ 2232 (tclStubsPtr->tcl_NotifyChannel)(channel, mask) /* 194 */ 2233#endif 2234#ifndef Tcl_ObjGetVar2 2235#define Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) \ 2236 (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags) /* 195 */ 2237#endif 2238#ifndef Tcl_ObjSetVar2 2239#define Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) \ 2240 (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags) /* 196 */ 2241#endif 2242#ifndef Tcl_OpenCommandChannel 2243#define Tcl_OpenCommandChannel(interp, argc, argv, flags) \ 2244 (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags) /* 197 */ 2245#endif 2246#ifndef Tcl_OpenFileChannel 2247#define Tcl_OpenFileChannel(interp, fileName, modeString, permissions) \ 2248 (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions) /* 198 */ 2249#endif 2250#ifndef Tcl_OpenTcpClient 2251#define Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) \ 2252 (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async) /* 199 */ 2253#endif 2254#ifndef Tcl_OpenTcpServer 2255#define Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) \ 2256 (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData) /* 200 */ 2257#endif 2258#ifndef Tcl_Preserve 2259#define Tcl_Preserve(data) \ 2260 (tclStubsPtr->tcl_Preserve)(data) /* 201 */ 2261#endif 2262#ifndef Tcl_PrintDouble 2263#define Tcl_PrintDouble(interp, value, dst) \ 2264 (tclStubsPtr->tcl_PrintDouble)(interp, value, dst) /* 202 */ 2265#endif 2266#ifndef Tcl_PutEnv 2267#define Tcl_PutEnv(string) \ 2268 (tclStubsPtr->tcl_PutEnv)(string) /* 203 */ 2269#endif 2270#ifndef Tcl_PosixError 2271#define Tcl_PosixError(interp) \ 2272 (tclStubsPtr->tcl_PosixError)(interp) /* 204 */ 2273#endif 2274#ifndef Tcl_QueueEvent 2275#define Tcl_QueueEvent(evPtr, position) \ 2276 (tclStubsPtr->tcl_QueueEvent)(evPtr, position) /* 205 */ 2277#endif 2278#ifndef Tcl_Read 2279#define Tcl_Read(chan, bufPtr, toRead) \ 2280 (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead) /* 206 */ 2281#endif 2282#ifndef Tcl_ReapDetachedProcs 2283#define Tcl_ReapDetachedProcs() \ 2284 (tclStubsPtr->tcl_ReapDetachedProcs)() /* 207 */ 2285#endif 2286#ifndef Tcl_RecordAndEval 2287#define Tcl_RecordAndEval(interp, cmd, flags) \ 2288 (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags) /* 208 */ 2289#endif 2290#ifndef Tcl_RecordAndEvalObj 2291#define Tcl_RecordAndEvalObj(interp, cmdPtr, flags) \ 2292 (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags) /* 209 */ 2293#endif 2294#ifndef Tcl_RegisterChannel 2295#define Tcl_RegisterChannel(interp, chan) \ 2296 (tclStubsPtr->tcl_RegisterChannel)(interp, chan) /* 210 */ 2297#endif 2298#ifndef Tcl_RegisterObjType 2299#define Tcl_RegisterObjType(typePtr) \ 2300 (tclStubsPtr->tcl_RegisterObjType)(typePtr) /* 211 */ 2301#endif 2302#ifndef Tcl_RegExpCompile 2303#define Tcl_RegExpCompile(interp, string) \ 2304 (tclStubsPtr->tcl_RegExpCompile)(interp, string) /* 212 */ 2305#endif 2306#ifndef Tcl_RegExpExec 2307#define Tcl_RegExpExec(interp, regexp, string, start) \ 2308 (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start) /* 213 */ 2309#endif 2310#ifndef Tcl_RegExpMatch 2311#define Tcl_RegExpMatch(interp, string, pattern) \ 2312 (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern) /* 214 */ 2313#endif 2314#ifndef Tcl_RegExpRange 2315#define Tcl_RegExpRange(regexp, index, startPtr, endPtr) \ 2316 (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr) /* 215 */ 2317#endif 2318#ifndef Tcl_Release 2319#define Tcl_Release(clientData) \ 2320 (tclStubsPtr->tcl_Release)(clientData) /* 216 */ 2321#endif 2322#ifndef Tcl_ResetResult 2323#define Tcl_ResetResult(interp) \ 2324 (tclStubsPtr->tcl_ResetResult)(interp) /* 217 */ 2325#endif 2326#ifndef Tcl_ScanElement 2327#define Tcl_ScanElement(string, flagPtr) \ 2328 (tclStubsPtr->tcl_ScanElement)(string, flagPtr) /* 218 */ 2329#endif 2330#ifndef Tcl_ScanCountedElement 2331#define Tcl_ScanCountedElement(string, length, flagPtr) \ 2332 (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr) /* 219 */ 2333#endif 2334#ifndef Tcl_Seek 2335#define Tcl_Seek(chan, offset, mode) \ 2336 (tclStubsPtr->tcl_Seek)(chan, offset, mode) /* 220 */ 2337#endif 2338#ifndef Tcl_ServiceAll 2339#define Tcl_ServiceAll() \ 2340 (tclStubsPtr->tcl_ServiceAll)() /* 221 */ 2341#endif 2342#ifndef Tcl_ServiceEvent 2343#define Tcl_ServiceEvent(flags) \ 2344 (tclStubsPtr->tcl_ServiceEvent)(flags) /* 222 */ 2345#endif 2346#ifndef Tcl_SetAssocData 2347#define Tcl_SetAssocData(interp, name, proc, clientData) \ 2348 (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData) /* 223 */ 2349#endif 2350#ifndef Tcl_SetChannelBufferSize 2351#define Tcl_SetChannelBufferSize(chan, sz) \ 2352 (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz) /* 224 */ 2353#endif 2354#ifndef Tcl_SetChannelOption 2355#define Tcl_SetChannelOption(interp, chan, optionName, newValue) \ 2356 (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue) /* 225 */ 2357#endif 2358#ifndef Tcl_SetCommandInfo 2359#define Tcl_SetCommandInfo(interp, cmdName, infoPtr) \ 2360 (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr) /* 226 */ 2361#endif 2362#ifndef Tcl_SetErrno 2363#define Tcl_SetErrno(err) \ 2364 (tclStubsPtr->tcl_SetErrno)(err) /* 227 */ 2365#endif 2366#ifndef Tcl_SetErrorCode 2367#define Tcl_SetErrorCode \ 2368 (tclStubsPtr->tcl_SetErrorCode) /* 228 */ 2369#endif 2370#ifndef Tcl_SetMaxBlockTime 2371#define Tcl_SetMaxBlockTime(timePtr) \ 2372 (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr) /* 229 */ 2373#endif 2374#ifndef Tcl_SetPanicProc 2375#define Tcl_SetPanicProc(panicProc) \ 2376 (tclStubsPtr->tcl_SetPanicProc)(panicProc) /* 230 */ 2377#endif 2378#ifndef Tcl_SetRecursionLimit 2379#define Tcl_SetRecursionLimit(interp, depth) \ 2380 (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth) /* 231 */ 2381#endif 2382#ifndef Tcl_SetResult 2383#define Tcl_SetResult(interp, string, freeProc) \ 2384 (tclStubsPtr->tcl_SetResult)(interp, string, freeProc) /* 232 */ 2385#endif 2386#ifndef Tcl_SetServiceMode 2387#define Tcl_SetServiceMode(mode) \ 2388 (tclStubsPtr->tcl_SetServiceMode)(mode) /* 233 */ 2389#endif 2390#ifndef Tcl_SetObjErrorCode 2391#define Tcl_SetObjErrorCode(interp, errorObjPtr) \ 2392 (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr) /* 234 */ 2393#endif 2394#ifndef Tcl_SetObjResult 2395#define Tcl_SetObjResult(interp, resultObjPtr) \ 2396 (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr) /* 235 */ 2397#endif 2398#ifndef Tcl_SetStdChannel 2399#define Tcl_SetStdChannel(channel, type) \ 2400 (tclStubsPtr->tcl_SetStdChannel)(channel, type) /* 236 */ 2401#endif 2402#ifndef Tcl_SetVar 2403#define Tcl_SetVar(interp, varName, newValue, flags) \ 2404 (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags) /* 237 */ 2405#endif 2406#ifndef Tcl_SetVar2 2407#define Tcl_SetVar2(interp, part1, part2, newValue, flags) \ 2408 (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags) /* 238 */ 2409#endif 2410#ifndef Tcl_SignalId 2411#define Tcl_SignalId(sig) \ 2412 (tclStubsPtr->tcl_SignalId)(sig) /* 239 */ 2413#endif 2414#ifndef Tcl_SignalMsg 2415#define Tcl_SignalMsg(sig) \ 2416 (tclStubsPtr->tcl_SignalMsg)(sig) /* 240 */ 2417#endif 2418#ifndef Tcl_SourceRCFile 2419#define Tcl_SourceRCFile(interp) \ 2420 (tclStubsPtr->tcl_SourceRCFile)(interp) /* 241 */ 2421#endif 2422#ifndef Tcl_SplitList 2423#define Tcl_SplitList(interp, list, argcPtr, argvPtr) \ 2424 (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr) /* 242 */ 2425#endif 2426#ifndef Tcl_SplitPath 2427#define Tcl_SplitPath(path, argcPtr, argvPtr) \ 2428 (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr) /* 243 */ 2429#endif 2430#ifndef Tcl_StaticPackage 2431#define Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) \ 2432 (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc) /* 244 */ 2433#endif 2434#ifndef Tcl_StringMatch 2435#define Tcl_StringMatch(string, pattern) \ 2436 (tclStubsPtr->tcl_StringMatch)(string, pattern) /* 245 */ 2437#endif 2438#ifndef Tcl_Tell 2439#define Tcl_Tell(chan) \ 2440 (tclStubsPtr->tcl_Tell)(chan) /* 246 */ 2441#endif 2442#ifndef Tcl_TraceVar 2443#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ 2444 (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData) /* 247 */ 2445#endif 2446#ifndef Tcl_TraceVar2 2447#define Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) \ 2448 (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData) /* 248 */ 2449#endif 2450#ifndef Tcl_TranslateFileName 2451#define Tcl_TranslateFileName(interp, name, bufferPtr) \ 2452 (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr) /* 249 */ 2453#endif 2454#ifndef Tcl_Ungets 2455#define Tcl_Ungets(chan, str, len, atHead) \ 2456 (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead) /* 250 */ 2457#endif 2458#ifndef Tcl_UnlinkVar 2459#define Tcl_UnlinkVar(interp, varName) \ 2460 (tclStubsPtr->tcl_UnlinkVar)(interp, varName) /* 251 */ 2461#endif 2462#ifndef Tcl_UnregisterChannel 2463#define Tcl_UnregisterChannel(interp, chan) \ 2464 (tclStubsPtr->tcl_UnregisterChannel)(interp, chan) /* 252 */ 2465#endif 2466#ifndef Tcl_UnsetVar 2467#define Tcl_UnsetVar(interp, varName, flags) \ 2468 (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags) /* 253 */ 2469#endif 2470#ifndef Tcl_UnsetVar2 2471#define Tcl_UnsetVar2(interp, part1, part2, flags) \ 2472 (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags) /* 254 */ 2473#endif 2474#ifndef Tcl_UntraceVar 2475#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ 2476 (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData) /* 255 */ 2477#endif 2478#ifndef Tcl_UntraceVar2 2479#define Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) \ 2480 (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData) /* 256 */ 2481#endif 2482#ifndef Tcl_UpdateLinkedVar 2483#define Tcl_UpdateLinkedVar(interp, varName) \ 2484 (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName) /* 257 */ 2485#endif 2486#ifndef Tcl_UpVar 2487#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ 2488 (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags) /* 258 */ 2489#endif 2490#ifndef Tcl_UpVar2 2491#define Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) \ 2492 (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags) /* 259 */ 2493#endif 2494#ifndef Tcl_VarEval 2495#define Tcl_VarEval \ 2496 (tclStubsPtr->tcl_VarEval) /* 260 */ 2497#endif 2498#ifndef Tcl_VarTraceInfo 2499#define Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) \ 2500 (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData) /* 261 */ 2501#endif 2502#ifndef Tcl_VarTraceInfo2 2503#define Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) \ 2504 (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData) /* 262 */ 2505#endif 2506#ifndef Tcl_Write 2507#define Tcl_Write(chan, s, slen) \ 2508 (tclStubsPtr->tcl_Write)(chan, s, slen) /* 263 */ 2509#endif 2510#ifndef Tcl_WrongNumArgs 2511#define Tcl_WrongNumArgs(interp, objc, objv, message) \ 2512 (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message) /* 264 */ 2513#endif 2514#ifndef Tcl_DumpActiveMemory 2515#define Tcl_DumpActiveMemory(fileName) \ 2516 (tclStubsPtr->tcl_DumpActiveMemory)(fileName) /* 265 */ 2517#endif 2518#ifndef Tcl_ValidateAllMemory 2519#define Tcl_ValidateAllMemory(file, line) \ 2520 (tclStubsPtr->tcl_ValidateAllMemory)(file, line) /* 266 */ 2521#endif 2522#ifndef Tcl_AppendResultVA 2523#define Tcl_AppendResultVA(interp, argList) \ 2524 (tclStubsPtr->tcl_AppendResultVA)(interp, argList) /* 267 */ 2525#endif 2526#ifndef Tcl_AppendStringsToObjVA 2527#define Tcl_AppendStringsToObjVA(objPtr, argList) \ 2528 (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList) /* 268 */ 2529#endif 2530#ifndef Tcl_HashStats 2531#define Tcl_HashStats(tablePtr) \ 2532 (tclStubsPtr->tcl_HashStats)(tablePtr) /* 269 */ 2533#endif 2534#ifndef Tcl_ParseVar 2535#define Tcl_ParseVar(interp, string, termPtr) \ 2536 (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr) /* 270 */ 2537#endif 2538#ifndef Tcl_PkgPresent 2539#define Tcl_PkgPresent(interp, name, version, exact) \ 2540 (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact) /* 271 */ 2541#endif 2542#ifndef Tcl_PkgPresentEx 2543#define Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) \ 2544 (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr) /* 272 */ 2545#endif 2546#ifndef Tcl_PkgProvide 2547#define Tcl_PkgProvide(interp, name, version) \ 2548 (tclStubsPtr->tcl_PkgProvide)(interp, name, version) /* 273 */ 2549#endif 2550#ifndef Tcl_PkgRequire 2551#define Tcl_PkgRequire(interp, name, version, exact) \ 2552 (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact) /* 274 */ 2553#endif 2554#ifndef Tcl_SetErrorCodeVA 2555#define Tcl_SetErrorCodeVA(interp, argList) \ 2556 (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList) /* 275 */ 2557#endif 2558#ifndef Tcl_VarEvalVA 2559#define Tcl_VarEvalVA(interp, argList) \ 2560 (tclStubsPtr->tcl_VarEvalVA)(interp, argList) /* 276 */ 2561#endif 2562#ifndef Tcl_WaitPid 2563#define Tcl_WaitPid(pid, statPtr, options) \ 2564 (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options) /* 277 */ 2565#endif 2566#ifndef Tcl_PanicVA 2567#define Tcl_PanicVA(format, argList) \ 2568 (tclStubsPtr->tcl_PanicVA)(format, argList) /* 278 */ 2569#endif 2570#ifndef Tcl_GetVersion 2571#define Tcl_GetVersion(major, minor, patchLevel, type) \ 2572 (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type) /* 279 */ 2573#endif 2574/* Slot 280 is reserved */ 2575/* Slot 281 is reserved */ 2576/* Slot 282 is reserved */ 2577/* Slot 283 is reserved */ 2578/* Slot 284 is reserved */ 2579/* Slot 285 is reserved */ 2580#ifndef Tcl_AppendObjToObj 2581#define Tcl_AppendObjToObj(objPtr, appendObjPtr) \ 2582 (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr) /* 286 */ 2583#endif 2584#ifndef Tcl_CreateEncoding 2585#define Tcl_CreateEncoding(typePtr) \ 2586 (tclStubsPtr->tcl_CreateEncoding)(typePtr) /* 287 */ 2587#endif 2588#ifndef Tcl_CreateThreadExitHandler 2589#define Tcl_CreateThreadExitHandler(proc, clientData) \ 2590 (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData) /* 288 */ 2591#endif 2592#ifndef Tcl_DeleteThreadExitHandler 2593#define Tcl_DeleteThreadExitHandler(proc, clientData) \ 2594 (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData) /* 289 */ 2595#endif 2596#ifndef Tcl_DiscardResult 2597#define Tcl_DiscardResult(statePtr) \ 2598 (tclStubsPtr->tcl_DiscardResult)(statePtr) /* 290 */ 2599#endif 2600#ifndef Tcl_EvalEx 2601#define Tcl_EvalEx(interp, script, numBytes, flags) \ 2602 (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags) /* 291 */ 2603#endif 2604#ifndef Tcl_EvalObjv 2605#define Tcl_EvalObjv(interp, objc, objv, flags) \ 2606 (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags) /* 292 */ 2607#endif 2608#ifndef Tcl_EvalObjEx 2609#define Tcl_EvalObjEx(interp, objPtr, flags) \ 2610 (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags) /* 293 */ 2611#endif 2612#ifndef Tcl_ExitThread 2613#define Tcl_ExitThread(status) \ 2614 (tclStubsPtr->tcl_ExitThread)(status) /* 294 */ 2615#endif 2616#ifndef Tcl_ExternalToUtf 2617#define Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) \ 2618 (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 295 */ 2619#endif 2620#ifndef Tcl_ExternalToUtfDString 2621#define Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr) \ 2622 (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr) /* 296 */ 2623#endif 2624#ifndef Tcl_FinalizeThread 2625#define Tcl_FinalizeThread() \ 2626 (tclStubsPtr->tcl_FinalizeThread)() /* 297 */ 2627#endif 2628#ifndef Tcl_FinalizeNotifier 2629#define Tcl_FinalizeNotifier(clientData) \ 2630 (tclStubsPtr->tcl_FinalizeNotifier)(clientData) /* 298 */ 2631#endif 2632#ifndef Tcl_FreeEncoding 2633#define Tcl_FreeEncoding(encoding) \ 2634 (tclStubsPtr->tcl_FreeEncoding)(encoding) /* 299 */ 2635#endif 2636#ifndef Tcl_GetCurrentThread 2637#define Tcl_GetCurrentThread() \ 2638 (tclStubsPtr->tcl_GetCurrentThread)() /* 300 */ 2639#endif 2640#ifndef Tcl_GetEncoding 2641#define Tcl_GetEncoding(interp, name) \ 2642 (tclStubsPtr->tcl_GetEncoding)(interp, name) /* 301 */ 2643#endif 2644#ifndef Tcl_GetEncodingName 2645#define Tcl_GetEncodingName(encoding) \ 2646 (tclStubsPtr->tcl_GetEncodingName)(encoding) /* 302 */ 2647#endif 2648#ifndef Tcl_GetEncodingNames 2649#define Tcl_GetEncodingNames(interp) \ 2650 (tclStubsPtr->tcl_GetEncodingNames)(interp) /* 303 */ 2651#endif 2652#ifndef Tcl_GetIndexFromObjStruct 2653#define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \ 2654 (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) /* 304 */ 2655#endif 2656#ifndef Tcl_GetThreadData 2657#define Tcl_GetThreadData(keyPtr, size) \ 2658 (tclStubsPtr->tcl_GetThreadData)(keyPtr, size) /* 305 */ 2659#endif 2660#ifndef Tcl_GetVar2Ex 2661#define Tcl_GetVar2Ex(interp, part1, part2, flags) \ 2662 (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags) /* 306 */ 2663#endif 2664#ifndef Tcl_InitNotifier 2665#define Tcl_InitNotifier() \ 2666 (tclStubsPtr->tcl_InitNotifier)() /* 307 */ 2667#endif 2668#ifndef Tcl_MutexLock 2669#define Tcl_MutexLock(mutexPtr) \ 2670 (tclStubsPtr->tcl_MutexLock)(mutexPtr) /* 308 */ 2671#endif 2672#ifndef Tcl_MutexUnlock 2673#define Tcl_MutexUnlock(mutexPtr) \ 2674 (tclStubsPtr->tcl_MutexUnlock)(mutexPtr) /* 309 */ 2675#endif 2676#ifndef Tcl_ConditionNotify 2677#define Tcl_ConditionNotify(condPtr) \ 2678 (tclStubsPtr->tcl_ConditionNotify)(condPtr) /* 310 */ 2679#endif 2680#ifndef Tcl_ConditionWait 2681#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) \ 2682 (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr) /* 311 */ 2683#endif 2684#ifndef Tcl_NumUtfChars 2685#define Tcl_NumUtfChars(src, len) \ 2686 (tclStubsPtr->tcl_NumUtfChars)(src, len) /* 312 */ 2687#endif 2688#ifndef Tcl_ReadChars 2689#define Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) \ 2690 (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag) /* 313 */ 2691#endif 2692#ifndef Tcl_RestoreResult 2693#define Tcl_RestoreResult(interp, statePtr) \ 2694 (tclStubsPtr->tcl_RestoreResult)(interp, statePtr) /* 314 */ 2695#endif 2696#ifndef Tcl_SaveResult 2697#define Tcl_SaveResult(interp, statePtr) \ 2698 (tclStubsPtr->tcl_SaveResult)(interp, statePtr) /* 315 */ 2699#endif 2700#ifndef Tcl_SetSystemEncoding 2701#define Tcl_SetSystemEncoding(interp, name) \ 2702 (tclStubsPtr->tcl_SetSystemEncoding)(interp, name) /* 316 */ 2703#endif 2704#ifndef Tcl_SetVar2Ex 2705#define Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) \ 2706 (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags) /* 317 */ 2707#endif 2708#ifndef Tcl_ThreadAlert 2709#define Tcl_ThreadAlert(threadId) \ 2710 (tclStubsPtr->tcl_ThreadAlert)(threadId) /* 318 */ 2711#endif 2712#ifndef Tcl_ThreadQueueEvent 2713#define Tcl_ThreadQueueEvent(threadId, evPtr, position) \ 2714 (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position) /* 319 */ 2715#endif 2716#ifndef Tcl_UniCharAtIndex 2717#define Tcl_UniCharAtIndex(src, index) \ 2718 (tclStubsPtr->tcl_UniCharAtIndex)(src, index) /* 320 */ 2719#endif 2720#ifndef Tcl_UniCharToLower 2721#define Tcl_UniCharToLower(ch) \ 2722 (tclStubsPtr->tcl_UniCharToLower)(ch) /* 321 */ 2723#endif 2724#ifndef Tcl_UniCharToTitle 2725#define Tcl_UniCharToTitle(ch) \ 2726 (tclStubsPtr->tcl_UniCharToTitle)(ch) /* 322 */ 2727#endif 2728#ifndef Tcl_UniCharToUpper 2729#define Tcl_UniCharToUpper(ch) \ 2730 (tclStubsPtr->tcl_UniCharToUpper)(ch) /* 323 */ 2731#endif 2732#ifndef Tcl_UniCharToUtf 2733#define Tcl_UniCharToUtf(ch, buf) \ 2734 (tclStubsPtr->tcl_UniCharToUtf)(ch, buf) /* 324 */ 2735#endif 2736#ifndef Tcl_UtfAtIndex 2737#define Tcl_UtfAtIndex(src, index) \ 2738 (tclStubsPtr->tcl_UtfAtIndex)(src, index) /* 325 */ 2739#endif 2740#ifndef Tcl_UtfCharComplete 2741#define Tcl_UtfCharComplete(src, len) \ 2742 (tclStubsPtr->tcl_UtfCharComplete)(src, len) /* 326 */ 2743#endif 2744#ifndef Tcl_UtfBackslash 2745#define Tcl_UtfBackslash(src, readPtr, dst) \ 2746 (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst) /* 327 */ 2747#endif 2748#ifndef Tcl_UtfFindFirst 2749#define Tcl_UtfFindFirst(src, ch) \ 2750 (tclStubsPtr->tcl_UtfFindFirst)(src, ch) /* 328 */ 2751#endif 2752#ifndef Tcl_UtfFindLast 2753#define Tcl_UtfFindLast(src, ch) \ 2754 (tclStubsPtr->tcl_UtfFindLast)(src, ch) /* 329 */ 2755#endif 2756#ifndef Tcl_UtfNext 2757#define Tcl_UtfNext(src) \ 2758 (tclStubsPtr->tcl_UtfNext)(src) /* 330 */ 2759#endif 2760#ifndef Tcl_UtfPrev 2761#define Tcl_UtfPrev(src, start) \ 2762 (tclStubsPtr->tcl_UtfPrev)(src, start) /* 331 */ 2763#endif 2764#ifndef Tcl_UtfToExternal 2765#define Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) \ 2766 (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 332 */ 2767#endif 2768#ifndef Tcl_UtfToExternalDString 2769#define Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr) \ 2770 (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr) /* 333 */ 2771#endif 2772#ifndef Tcl_UtfToLower 2773#define Tcl_UtfToLower(src) \ 2774 (tclStubsPtr->tcl_UtfToLower)(src) /* 334 */ 2775#endif 2776#ifndef Tcl_UtfToTitle 2777#define Tcl_UtfToTitle(src) \ 2778 (tclStubsPtr->tcl_UtfToTitle)(src) /* 335 */ 2779#endif 2780#ifndef Tcl_UtfToUniChar 2781#define Tcl_UtfToUniChar(src, chPtr) \ 2782 (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr) /* 336 */ 2783#endif 2784#ifndef Tcl_UtfToUpper 2785#define Tcl_UtfToUpper(src) \ 2786 (tclStubsPtr->tcl_UtfToUpper)(src) /* 337 */ 2787#endif 2788#ifndef Tcl_WriteChars 2789#define Tcl_WriteChars(chan, src, srcLen) \ 2790 (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen) /* 338 */ 2791#endif 2792#ifndef Tcl_WriteObj 2793#define Tcl_WriteObj(chan, objPtr) \ 2794 (tclStubsPtr->tcl_WriteObj)(chan, objPtr) /* 339 */ 2795#endif 2796#ifndef Tcl_GetString 2797#define Tcl_GetString(objPtr) \ 2798 (tclStubsPtr->tcl_GetString)(objPtr) /* 340 */ 2799#endif 2800#ifndef Tcl_GetDefaultEncodingDir 2801#define Tcl_GetDefaultEncodingDir() \ 2802 (tclStubsPtr->tcl_GetDefaultEncodingDir)() /* 341 */ 2803#endif 2804#ifndef Tcl_SetDefaultEncodingDir 2805#define Tcl_SetDefaultEncodingDir(path) \ 2806 (tclStubsPtr->tcl_SetDefaultEncodingDir)(path) /* 342 */ 2807#endif 2808#ifndef Tcl_ReplaceChannel 2809#define Tcl_ReplaceChannel(interp, typePtr, instanceData, mask, prevChan) \ 2810 (tclStubsPtr->tcl_ReplaceChannel)(interp, typePtr, instanceData, mask, prevChan) /* 345 */ 2811#endif 2812#ifndef Tcl_UndoReplaceChannel 2813#define Tcl_UndoReplaceChannel(interp, chan) \ 2814 (tclStubsPtr->tcl_UndoReplaceChannel)(interp, chan) /* 346 */ 2815#endif 2816 2817#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ 2818 2819/* !END!: Do not edit above this line. */ 2820 2821#endif /* _TCLDECLS */ 2822 2823