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