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