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