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,v 1.1 1999/05/07 18:51:00 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 */
55 int
Tcl_PkgProvideEx(interp,name,version,clientData)56 Tcl_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 */
66 char *
Tcl_PkgRequireEx(interp,name,version,exact,clientDataPtr)67 Tcl_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 */
78 void
TCL_VARARGS_DEF(char *,format)79 Tcl_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 */
91 char *
Tcl_Alloc(size)92 Tcl_Alloc(size)
93 unsigned int size;
94 {
95 return (tclStubsPtr->tcl_Alloc)(size);
96 }
97
98 /* Slot 4 */
99 void
Tcl_Free(ptr)100 Tcl_Free(ptr)
101 char * ptr;
102 {
103 (tclStubsPtr->tcl_Free)(ptr);
104 }
105
106 /* Slot 5 */
107 char *
Tcl_Realloc(ptr,size)108 Tcl_Realloc(ptr, size)
109 char * ptr;
110 unsigned int size;
111 {
112 return (tclStubsPtr->tcl_Realloc)(ptr, size);
113 }
114
115 /* Slot 6 */
116 char *
Tcl_DbCkalloc(size,file,line)117 Tcl_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 */
126 int
Tcl_DbCkfree(ptr,file,line)127 Tcl_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 */
136 char *
Tcl_DbCkrealloc(ptr,size,file,line)137 Tcl_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 */
148 void
Tcl_CreateFileHandler(fd,mask,proc,clientData)149 Tcl_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 */
161 void
Tcl_DeleteFileHandler(fd)162 Tcl_DeleteFileHandler(fd)
163 int fd;
164 {
165 (tclStubsPtr->tcl_DeleteFileHandler)(fd);
166 }
167
168 #endif /* UNIX */
169 /* Slot 11 */
170 void
Tcl_SetTimer(timePtr)171 Tcl_SetTimer(timePtr)
172 Tcl_Time * timePtr;
173 {
174 (tclStubsPtr->tcl_SetTimer)(timePtr);
175 }
176
177 /* Slot 12 */
178 void
Tcl_Sleep(ms)179 Tcl_Sleep(ms)
180 int ms;
181 {
182 (tclStubsPtr->tcl_Sleep)(ms);
183 }
184
185 /* Slot 13 */
186 int
Tcl_WaitForEvent(timePtr)187 Tcl_WaitForEvent(timePtr)
188 Tcl_Time * timePtr;
189 {
190 return (tclStubsPtr->tcl_WaitForEvent)(timePtr);
191 }
192
193 /* Slot 14 */
194 int
Tcl_AppendAllObjTypes(interp,objPtr)195 Tcl_AppendAllObjTypes(interp, objPtr)
196 Tcl_Interp * interp;
197 Tcl_Obj * objPtr;
198 {
199 return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr);
200 }
201
202 /* Slot 15 */
203 void
TCL_VARARGS_DEF(Tcl_Obj *,objPtr)204 Tcl_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 */
216 void
Tcl_AppendToObj(objPtr,bytes,length)217 Tcl_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 */
226 Tcl_Obj *
Tcl_ConcatObj(objc,objv)227 Tcl_ConcatObj(objc, objv)
228 int objc;
229 Tcl_Obj *CONST objv[];
230 {
231 return (tclStubsPtr->tcl_ConcatObj)(objc, objv);
232 }
233
234 /* Slot 18 */
235 int
Tcl_ConvertToType(interp,objPtr,typePtr)236 Tcl_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 */
245 void
Tcl_DbDecrRefCount(objPtr,file,line)246 Tcl_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 */
255 void
Tcl_DbIncrRefCount(objPtr,file,line)256 Tcl_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 */
265 int
Tcl_DbIsShared(objPtr,file,line)266 Tcl_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 */
275 Tcl_Obj *
Tcl_DbNewBooleanObj(boolValue,file,line)276 Tcl_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 */
285 Tcl_Obj *
Tcl_DbNewByteArrayObj(bytes,length,file,line)286 Tcl_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 */
296 Tcl_Obj *
Tcl_DbNewDoubleObj(doubleValue,file,line)297 Tcl_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 */
306 Tcl_Obj *
Tcl_DbNewListObj(objc,objv,file,line)307 Tcl_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 */
317 Tcl_Obj *
Tcl_DbNewLongObj(longValue,file,line)318 Tcl_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 */
327 Tcl_Obj *
Tcl_DbNewObj(file,line)328 Tcl_DbNewObj(file, line)
329 char * file;
330 int line;
331 {
332 return (tclStubsPtr->tcl_DbNewObj)(file, line);
333 }
334
335 /* Slot 28 */
336 Tcl_Obj *
Tcl_DbNewStringObj(bytes,length,file,line)337 Tcl_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 */
347 Tcl_Obj *
Tcl_DuplicateObj(objPtr)348 Tcl_DuplicateObj(objPtr)
349 Tcl_Obj * objPtr;
350 {
351 return (tclStubsPtr->tcl_DuplicateObj)(objPtr);
352 }
353
354 /* Slot 30 */
355 void
TclFreeObj(objPtr)356 TclFreeObj(objPtr)
357 Tcl_Obj * objPtr;
358 {
359 (tclStubsPtr->tclFreeObj)(objPtr);
360 }
361
362 /* Slot 31 */
363 int
Tcl_GetBoolean(interp,str,boolPtr)364 Tcl_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 */
373 int
Tcl_GetBooleanFromObj(interp,objPtr,boolPtr)374 Tcl_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 */
383 unsigned char *
Tcl_GetByteArrayFromObj(objPtr,lengthPtr)384 Tcl_GetByteArrayFromObj(objPtr, lengthPtr)
385 Tcl_Obj * objPtr;
386 int * lengthPtr;
387 {
388 return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr);
389 }
390
391 /* Slot 34 */
392 int
Tcl_GetDouble(interp,str,doublePtr)393 Tcl_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 */
402 int
Tcl_GetDoubleFromObj(interp,objPtr,doublePtr)403 Tcl_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 */
412 int
Tcl_GetIndexFromObj(interp,objPtr,tablePtr,msg,flags,indexPtr)413 Tcl_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 */
425 int
Tcl_GetInt(interp,str,intPtr)426 Tcl_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 */
435 int
Tcl_GetIntFromObj(interp,objPtr,intPtr)436 Tcl_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 */
445 int
Tcl_GetLongFromObj(interp,objPtr,longPtr)446 Tcl_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 */
455 Tcl_ObjType *
Tcl_GetObjType(typeName)456 Tcl_GetObjType(typeName)
457 char * typeName;
458 {
459 return (tclStubsPtr->tcl_GetObjType)(typeName);
460 }
461
462 /* Slot 41 */
463 char *
Tcl_GetStringFromObj(objPtr,lengthPtr)464 Tcl_GetStringFromObj(objPtr, lengthPtr)
465 Tcl_Obj * objPtr;
466 int * lengthPtr;
467 {
468 return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr);
469 }
470
471 /* Slot 42 */
472 void
Tcl_InvalidateStringRep(objPtr)473 Tcl_InvalidateStringRep(objPtr)
474 Tcl_Obj * objPtr;
475 {
476 (tclStubsPtr->tcl_InvalidateStringRep)(objPtr);
477 }
478
479 /* Slot 43 */
480 int
Tcl_ListObjAppendList(interp,listPtr,elemListPtr)481 Tcl_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 */
490 int
Tcl_ListObjAppendElement(interp,listPtr,objPtr)491 Tcl_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 */
500 int
Tcl_ListObjGetElements(interp,listPtr,objcPtr,objvPtr)501 Tcl_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 */
511 int
Tcl_ListObjIndex(interp,listPtr,index,objPtrPtr)512 Tcl_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 */
522 int
Tcl_ListObjLength(interp,listPtr,intPtr)523 Tcl_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 */
532 int
Tcl_ListObjReplace(interp,listPtr,first,count,objc,objv)533 Tcl_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 */
545 Tcl_Obj *
Tcl_NewBooleanObj(boolValue)546 Tcl_NewBooleanObj(boolValue)
547 int boolValue;
548 {
549 return (tclStubsPtr->tcl_NewBooleanObj)(boolValue);
550 }
551
552 /* Slot 50 */
553 Tcl_Obj *
Tcl_NewByteArrayObj(bytes,length)554 Tcl_NewByteArrayObj(bytes, length)
555 unsigned char * bytes;
556 int length;
557 {
558 return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length);
559 }
560
561 /* Slot 51 */
562 Tcl_Obj *
Tcl_NewDoubleObj(doubleValue)563 Tcl_NewDoubleObj(doubleValue)
564 double doubleValue;
565 {
566 return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue);
567 }
568
569 /* Slot 52 */
570 Tcl_Obj *
Tcl_NewIntObj(intValue)571 Tcl_NewIntObj(intValue)
572 int intValue;
573 {
574 return (tclStubsPtr->tcl_NewIntObj)(intValue);
575 }
576
577 /* Slot 53 */
578 Tcl_Obj *
Tcl_NewListObj(objc,objv)579 Tcl_NewListObj(objc, objv)
580 int objc;
581 Tcl_Obj *CONST objv[];
582 {
583 return (tclStubsPtr->tcl_NewListObj)(objc, objv);
584 }
585
586 /* Slot 54 */
587 Tcl_Obj *
Tcl_NewLongObj(longValue)588 Tcl_NewLongObj(longValue)
589 long longValue;
590 {
591 return (tclStubsPtr->tcl_NewLongObj)(longValue);
592 }
593
594 /* Slot 55 */
595 Tcl_Obj *
Tcl_NewObj()596 Tcl_NewObj()
597 {
598 return (tclStubsPtr->tcl_NewObj)();
599 }
600
601 /* Slot 56 */
602 Tcl_Obj *
Tcl_NewStringObj(bytes,length)603 Tcl_NewStringObj(bytes, length)
604 CONST char * bytes;
605 int length;
606 {
607 return (tclStubsPtr->tcl_NewStringObj)(bytes, length);
608 }
609
610 /* Slot 57 */
611 void
Tcl_SetBooleanObj(objPtr,boolValue)612 Tcl_SetBooleanObj(objPtr, boolValue)
613 Tcl_Obj * objPtr;
614 int boolValue;
615 {
616 (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue);
617 }
618
619 /* Slot 58 */
620 unsigned char *
Tcl_SetByteArrayLength(objPtr,length)621 Tcl_SetByteArrayLength(objPtr, length)
622 Tcl_Obj * objPtr;
623 int length;
624 {
625 return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length);
626 }
627
628 /* Slot 59 */
629 void
Tcl_SetByteArrayObj(objPtr,bytes,length)630 Tcl_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 */
639 void
Tcl_SetDoubleObj(objPtr,doubleValue)640 Tcl_SetDoubleObj(objPtr, doubleValue)
641 Tcl_Obj * objPtr;
642 double doubleValue;
643 {
644 (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue);
645 }
646
647 /* Slot 61 */
648 void
Tcl_SetIntObj(objPtr,intValue)649 Tcl_SetIntObj(objPtr, intValue)
650 Tcl_Obj * objPtr;
651 int intValue;
652 {
653 (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue);
654 }
655
656 /* Slot 62 */
657 void
Tcl_SetListObj(objPtr,objc,objv)658 Tcl_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 */
667 void
Tcl_SetLongObj(objPtr,longValue)668 Tcl_SetLongObj(objPtr, longValue)
669 Tcl_Obj * objPtr;
670 long longValue;
671 {
672 (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue);
673 }
674
675 /* Slot 64 */
676 void
Tcl_SetObjLength(objPtr,length)677 Tcl_SetObjLength(objPtr, length)
678 Tcl_Obj * objPtr;
679 int length;
680 {
681 (tclStubsPtr->tcl_SetObjLength)(objPtr, length);
682 }
683
684 /* Slot 65 */
685 void
Tcl_SetStringObj(objPtr,bytes,length)686 Tcl_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 */
695 void
Tcl_AddErrorInfo(interp,message)696 Tcl_AddErrorInfo(interp, message)
697 Tcl_Interp * interp;
698 CONST char * message;
699 {
700 (tclStubsPtr->tcl_AddErrorInfo)(interp, message);
701 }
702
703 /* Slot 67 */
704 void
Tcl_AddObjErrorInfo(interp,message,length)705 Tcl_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 */
714 void
Tcl_AllowExceptions(interp)715 Tcl_AllowExceptions(interp)
716 Tcl_Interp * interp;
717 {
718 (tclStubsPtr->tcl_AllowExceptions)(interp);
719 }
720
721 /* Slot 69 */
722 void
Tcl_AppendElement(interp,string)723 Tcl_AppendElement(interp, string)
724 Tcl_Interp * interp;
725 CONST char * string;
726 {
727 (tclStubsPtr->tcl_AppendElement)(interp, string);
728 }
729
730 /* Slot 70 */
731 void
TCL_VARARGS_DEF(Tcl_Interp *,interp)732 Tcl_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 */
744 Tcl_AsyncHandler
Tcl_AsyncCreate(proc,clientData)745 Tcl_AsyncCreate(proc, clientData)
746 Tcl_AsyncProc * proc;
747 ClientData clientData;
748 {
749 return (tclStubsPtr->tcl_AsyncCreate)(proc, clientData);
750 }
751
752 /* Slot 72 */
753 void
Tcl_AsyncDelete(async)754 Tcl_AsyncDelete(async)
755 Tcl_AsyncHandler async;
756 {
757 (tclStubsPtr->tcl_AsyncDelete)(async);
758 }
759
760 /* Slot 73 */
761 int
Tcl_AsyncInvoke(interp,code)762 Tcl_AsyncInvoke(interp, code)
763 Tcl_Interp * interp;
764 int code;
765 {
766 return (tclStubsPtr->tcl_AsyncInvoke)(interp, code);
767 }
768
769 /* Slot 74 */
770 void
Tcl_AsyncMark(async)771 Tcl_AsyncMark(async)
772 Tcl_AsyncHandler async;
773 {
774 (tclStubsPtr->tcl_AsyncMark)(async);
775 }
776
777 /* Slot 75 */
778 int
Tcl_AsyncReady()779 Tcl_AsyncReady()
780 {
781 return (tclStubsPtr->tcl_AsyncReady)();
782 }
783
784 /* Slot 76 */
785 void
Tcl_BackgroundError(interp)786 Tcl_BackgroundError(interp)
787 Tcl_Interp * interp;
788 {
789 (tclStubsPtr->tcl_BackgroundError)(interp);
790 }
791
792 /* Slot 77 */
793 char
Tcl_Backslash(src,readPtr)794 Tcl_Backslash(src, readPtr)
795 CONST char * src;
796 int * readPtr;
797 {
798 return (tclStubsPtr->tcl_Backslash)(src, readPtr);
799 }
800
801 /* Slot 78 */
802 int
Tcl_BadChannelOption(interp,optionName,optionList)803 Tcl_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 */
812 void
Tcl_CallWhenDeleted(interp,proc,clientData)813 Tcl_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 */
822 void
Tcl_CancelIdleCall(idleProc,clientData)823 Tcl_CancelIdleCall(idleProc, clientData)
824 Tcl_IdleProc * idleProc;
825 ClientData clientData;
826 {
827 (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData);
828 }
829
830 /* Slot 81 */
831 int
Tcl_Close(interp,chan)832 Tcl_Close(interp, chan)
833 Tcl_Interp * interp;
834 Tcl_Channel chan;
835 {
836 return (tclStubsPtr->tcl_Close)(interp, chan);
837 }
838
839 /* Slot 82 */
840 int
Tcl_CommandComplete(cmd)841 Tcl_CommandComplete(cmd)
842 char * cmd;
843 {
844 return (tclStubsPtr->tcl_CommandComplete)(cmd);
845 }
846
847 /* Slot 83 */
848 char *
Tcl_Concat(argc,argv)849 Tcl_Concat(argc, argv)
850 int argc;
851 char ** argv;
852 {
853 return (tclStubsPtr->tcl_Concat)(argc, argv);
854 }
855
856 /* Slot 84 */
857 int
Tcl_ConvertElement(src,dst,flags)858 Tcl_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 */
867 int
Tcl_ConvertCountedElement(src,length,dst,flags)868 Tcl_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 */
878 int
Tcl_CreateAlias(slave,slaveCmd,target,targetCmd,argc,argv)879 Tcl_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 */
891 int
Tcl_CreateAliasObj(slave,slaveCmd,target,targetCmd,objc,objv)892 Tcl_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 */
904 Tcl_Channel
Tcl_CreateChannel(typePtr,chanName,instanceData,mask)905 Tcl_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 */
915 void
Tcl_CreateChannelHandler(chan,mask,proc,clientData)916 Tcl_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 */
926 void
Tcl_CreateCloseHandler(chan,proc,clientData)927 Tcl_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 */
936 Tcl_Command
Tcl_CreateCommand(interp,cmdName,proc,clientData,deleteProc)937 Tcl_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 */
948 void
Tcl_CreateEventSource(setupProc,checkProc,clientData)949 Tcl_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 */
958 void
Tcl_CreateExitHandler(proc,clientData)959 Tcl_CreateExitHandler(proc, clientData)
960 Tcl_ExitProc * proc;
961 ClientData clientData;
962 {
963 (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData);
964 }
965
966 /* Slot 94 */
967 Tcl_Interp *
Tcl_CreateInterp()968 Tcl_CreateInterp()
969 {
970 return (tclStubsPtr->tcl_CreateInterp)();
971 }
972
973 /* Slot 95 */
974 void
Tcl_CreateMathFunc(interp,name,numArgs,argTypes,proc,clientData)975 Tcl_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 */
987 Tcl_Command
Tcl_CreateObjCommand(interp,cmdName,proc,clientData,deleteProc)988 Tcl_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 */
999 Tcl_Interp *
Tcl_CreateSlave(interp,slaveName,isSafe)1000 Tcl_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 */
1009 Tcl_TimerToken
Tcl_CreateTimerHandler(milliseconds,proc,clientData)1010 Tcl_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 */
1019 Tcl_Trace
Tcl_CreateTrace(interp,level,proc,clientData)1020 Tcl_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 */
1030 void
Tcl_DeleteAssocData(interp,name)1031 Tcl_DeleteAssocData(interp, name)
1032 Tcl_Interp * interp;
1033 char * name;
1034 {
1035 (tclStubsPtr->tcl_DeleteAssocData)(interp, name);
1036 }
1037
1038 /* Slot 101 */
1039 void
Tcl_DeleteChannelHandler(chan,proc,clientData)1040 Tcl_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 */
1049 void
Tcl_DeleteCloseHandler(chan,proc,clientData)1050 Tcl_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 */
1059 int
Tcl_DeleteCommand(interp,cmdName)1060 Tcl_DeleteCommand(interp, cmdName)
1061 Tcl_Interp * interp;
1062 char * cmdName;
1063 {
1064 return (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName);
1065 }
1066
1067 /* Slot 104 */
1068 int
Tcl_DeleteCommandFromToken(interp,command)1069 Tcl_DeleteCommandFromToken(interp, command)
1070 Tcl_Interp * interp;
1071 Tcl_Command command;
1072 {
1073 return (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command);
1074 }
1075
1076 /* Slot 105 */
1077 void
Tcl_DeleteEvents(proc,clientData)1078 Tcl_DeleteEvents(proc, clientData)
1079 Tcl_EventDeleteProc * proc;
1080 ClientData clientData;
1081 {
1082 (tclStubsPtr->tcl_DeleteEvents)(proc, clientData);
1083 }
1084
1085 /* Slot 106 */
1086 void
Tcl_DeleteEventSource(setupProc,checkProc,clientData)1087 Tcl_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 */
1096 void
Tcl_DeleteExitHandler(proc,clientData)1097 Tcl_DeleteExitHandler(proc, clientData)
1098 Tcl_ExitProc * proc;
1099 ClientData clientData;
1100 {
1101 (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData);
1102 }
1103
1104 /* Slot 108 */
1105 void
Tcl_DeleteHashEntry(entryPtr)1106 Tcl_DeleteHashEntry(entryPtr)
1107 Tcl_HashEntry * entryPtr;
1108 {
1109 (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr);
1110 }
1111
1112 /* Slot 109 */
1113 void
Tcl_DeleteHashTable(tablePtr)1114 Tcl_DeleteHashTable(tablePtr)
1115 Tcl_HashTable * tablePtr;
1116 {
1117 (tclStubsPtr->tcl_DeleteHashTable)(tablePtr);
1118 }
1119
1120 /* Slot 110 */
1121 void
Tcl_DeleteInterp(interp)1122 Tcl_DeleteInterp(interp)
1123 Tcl_Interp * interp;
1124 {
1125 (tclStubsPtr->tcl_DeleteInterp)(interp);
1126 }
1127
1128 /* Slot 111 */
1129 void
Tcl_DetachPids(numPids,pidPtr)1130 Tcl_DetachPids(numPids, pidPtr)
1131 int numPids;
1132 Tcl_Pid * pidPtr;
1133 {
1134 (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr);
1135 }
1136
1137 /* Slot 112 */
1138 void
Tcl_DeleteTimerHandler(token)1139 Tcl_DeleteTimerHandler(token)
1140 Tcl_TimerToken token;
1141 {
1142 (tclStubsPtr->tcl_DeleteTimerHandler)(token);
1143 }
1144
1145 /* Slot 113 */
1146 void
Tcl_DeleteTrace(interp,trace)1147 Tcl_DeleteTrace(interp, trace)
1148 Tcl_Interp * interp;
1149 Tcl_Trace trace;
1150 {
1151 (tclStubsPtr->tcl_DeleteTrace)(interp, trace);
1152 }
1153
1154 /* Slot 114 */
1155 void
Tcl_DontCallWhenDeleted(interp,proc,clientData)1156 Tcl_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 */
1165 int
Tcl_DoOneEvent(flags)1166 Tcl_DoOneEvent(flags)
1167 int flags;
1168 {
1169 return (tclStubsPtr->tcl_DoOneEvent)(flags);
1170 }
1171
1172 /* Slot 116 */
1173 void
Tcl_DoWhenIdle(proc,clientData)1174 Tcl_DoWhenIdle(proc, clientData)
1175 Tcl_IdleProc * proc;
1176 ClientData clientData;
1177 {
1178 (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData);
1179 }
1180
1181 /* Slot 117 */
1182 char *
Tcl_DStringAppend(dsPtr,str,length)1183 Tcl_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 */
1192 char *
Tcl_DStringAppendElement(dsPtr,string)1193 Tcl_DStringAppendElement(dsPtr, string)
1194 Tcl_DString * dsPtr;
1195 CONST char * string;
1196 {
1197 return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string);
1198 }
1199
1200 /* Slot 119 */
1201 void
Tcl_DStringEndSublist(dsPtr)1202 Tcl_DStringEndSublist(dsPtr)
1203 Tcl_DString * dsPtr;
1204 {
1205 (tclStubsPtr->tcl_DStringEndSublist)(dsPtr);
1206 }
1207
1208 /* Slot 120 */
1209 void
Tcl_DStringFree(dsPtr)1210 Tcl_DStringFree(dsPtr)
1211 Tcl_DString * dsPtr;
1212 {
1213 (tclStubsPtr->tcl_DStringFree)(dsPtr);
1214 }
1215
1216 /* Slot 121 */
1217 void
Tcl_DStringGetResult(interp,dsPtr)1218 Tcl_DStringGetResult(interp, dsPtr)
1219 Tcl_Interp * interp;
1220 Tcl_DString * dsPtr;
1221 {
1222 (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr);
1223 }
1224
1225 /* Slot 122 */
1226 void
Tcl_DStringInit(dsPtr)1227 Tcl_DStringInit(dsPtr)
1228 Tcl_DString * dsPtr;
1229 {
1230 (tclStubsPtr->tcl_DStringInit)(dsPtr);
1231 }
1232
1233 /* Slot 123 */
1234 void
Tcl_DStringResult(interp,dsPtr)1235 Tcl_DStringResult(interp, dsPtr)
1236 Tcl_Interp * interp;
1237 Tcl_DString * dsPtr;
1238 {
1239 (tclStubsPtr->tcl_DStringResult)(interp, dsPtr);
1240 }
1241
1242 /* Slot 124 */
1243 void
Tcl_DStringSetLength(dsPtr,length)1244 Tcl_DStringSetLength(dsPtr, length)
1245 Tcl_DString * dsPtr;
1246 int length;
1247 {
1248 (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length);
1249 }
1250
1251 /* Slot 125 */
1252 void
Tcl_DStringStartSublist(dsPtr)1253 Tcl_DStringStartSublist(dsPtr)
1254 Tcl_DString * dsPtr;
1255 {
1256 (tclStubsPtr->tcl_DStringStartSublist)(dsPtr);
1257 }
1258
1259 /* Slot 126 */
1260 int
Tcl_Eof(chan)1261 Tcl_Eof(chan)
1262 Tcl_Channel chan;
1263 {
1264 return (tclStubsPtr->tcl_Eof)(chan);
1265 }
1266
1267 /* Slot 127 */
1268 char *
Tcl_ErrnoId()1269 Tcl_ErrnoId()
1270 {
1271 return (tclStubsPtr->tcl_ErrnoId)();
1272 }
1273
1274 /* Slot 128 */
1275 char *
Tcl_ErrnoMsg(err)1276 Tcl_ErrnoMsg(err)
1277 int err;
1278 {
1279 return (tclStubsPtr->tcl_ErrnoMsg)(err);
1280 }
1281
1282 /* Slot 129 */
1283 int
Tcl_Eval(interp,string)1284 Tcl_Eval(interp, string)
1285 Tcl_Interp * interp;
1286 char * string;
1287 {
1288 return (tclStubsPtr->tcl_Eval)(interp, string);
1289 }
1290
1291 /* Slot 130 */
1292 int
Tcl_EvalFile(interp,fileName)1293 Tcl_EvalFile(interp, fileName)
1294 Tcl_Interp * interp;
1295 char * fileName;
1296 {
1297 return (tclStubsPtr->tcl_EvalFile)(interp, fileName);
1298 }
1299
1300 /* Slot 131 */
1301 int
Tcl_EvalObj(interp,objPtr)1302 Tcl_EvalObj(interp, objPtr)
1303 Tcl_Interp * interp;
1304 Tcl_Obj * objPtr;
1305 {
1306 return (tclStubsPtr->tcl_EvalObj)(interp, objPtr);
1307 }
1308
1309 /* Slot 132 */
1310 void
Tcl_EventuallyFree(clientData,freeProc)1311 Tcl_EventuallyFree(clientData, freeProc)
1312 ClientData clientData;
1313 Tcl_FreeProc * freeProc;
1314 {
1315 (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc);
1316 }
1317
1318 /* Slot 133 */
1319 void
Tcl_Exit(status)1320 Tcl_Exit(status)
1321 int status;
1322 {
1323 (tclStubsPtr->tcl_Exit)(status);
1324 }
1325
1326 /* Slot 134 */
1327 int
Tcl_ExposeCommand(interp,hiddenCmdToken,cmdName)1328 Tcl_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 */
1337 int
Tcl_ExprBoolean(interp,str,ptr)1338 Tcl_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 */
1347 int
Tcl_ExprBooleanObj(interp,objPtr,ptr)1348 Tcl_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 */
1357 int
Tcl_ExprDouble(interp,str,ptr)1358 Tcl_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 */
1367 int
Tcl_ExprDoubleObj(interp,objPtr,ptr)1368 Tcl_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 */
1377 int
Tcl_ExprLong(interp,str,ptr)1378 Tcl_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 */
1387 int
Tcl_ExprLongObj(interp,objPtr,ptr)1388 Tcl_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 */
1397 int
Tcl_ExprObj(interp,objPtr,resultPtrPtr)1398 Tcl_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 */
1407 int
Tcl_ExprString(interp,string)1408 Tcl_ExprString(interp, string)
1409 Tcl_Interp * interp;
1410 char * string;
1411 {
1412 return (tclStubsPtr->tcl_ExprString)(interp, string);
1413 }
1414
1415 /* Slot 143 */
1416 void
Tcl_Finalize()1417 Tcl_Finalize()
1418 {
1419 (tclStubsPtr->tcl_Finalize)();
1420 }
1421
1422 /* Slot 144 */
1423 void
Tcl_FindExecutable(argv0)1424 Tcl_FindExecutable(argv0)
1425 CONST char * argv0;
1426 {
1427 (tclStubsPtr->tcl_FindExecutable)(argv0);
1428 }
1429
1430 /* Slot 145 */
1431 Tcl_HashEntry *
Tcl_FirstHashEntry(tablePtr,searchPtr)1432 Tcl_FirstHashEntry(tablePtr, searchPtr)
1433 Tcl_HashTable * tablePtr;
1434 Tcl_HashSearch * searchPtr;
1435 {
1436 return (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr);
1437 }
1438
1439 /* Slot 146 */
1440 int
Tcl_Flush(chan)1441 Tcl_Flush(chan)
1442 Tcl_Channel chan;
1443 {
1444 return (tclStubsPtr->tcl_Flush)(chan);
1445 }
1446
1447 /* Slot 147 */
1448 void
Tcl_FreeResult(interp)1449 Tcl_FreeResult(interp)
1450 Tcl_Interp * interp;
1451 {
1452 (tclStubsPtr->tcl_FreeResult)(interp);
1453 }
1454
1455 /* Slot 148 */
1456 int
Tcl_GetAlias(interp,slaveCmd,targetInterpPtr,targetCmdPtr,argcPtr,argvPtr)1457 Tcl_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 */
1469 int
Tcl_GetAliasObj(interp,slaveCmd,targetInterpPtr,targetCmdPtr,objcPtr,objv)1470 Tcl_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 */
1482 ClientData
Tcl_GetAssocData(interp,name,procPtr)1483 Tcl_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 */
1492 Tcl_Channel
Tcl_GetChannel(interp,chanName,modePtr)1493 Tcl_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 */
1502 int
Tcl_GetChannelBufferSize(chan)1503 Tcl_GetChannelBufferSize(chan)
1504 Tcl_Channel chan;
1505 {
1506 return (tclStubsPtr->tcl_GetChannelBufferSize)(chan);
1507 }
1508
1509 /* Slot 153 */
1510 int
Tcl_GetChannelHandle(chan,direction,handlePtr)1511 Tcl_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 */
1520 ClientData
Tcl_GetChannelInstanceData(chan)1521 Tcl_GetChannelInstanceData(chan)
1522 Tcl_Channel chan;
1523 {
1524 return (tclStubsPtr->tcl_GetChannelInstanceData)(chan);
1525 }
1526
1527 /* Slot 155 */
1528 int
Tcl_GetChannelMode(chan)1529 Tcl_GetChannelMode(chan)
1530 Tcl_Channel chan;
1531 {
1532 return (tclStubsPtr->tcl_GetChannelMode)(chan);
1533 }
1534
1535 /* Slot 156 */
1536 char *
Tcl_GetChannelName(chan)1537 Tcl_GetChannelName(chan)
1538 Tcl_Channel chan;
1539 {
1540 return (tclStubsPtr->tcl_GetChannelName)(chan);
1541 }
1542
1543 /* Slot 157 */
1544 int
Tcl_GetChannelOption(interp,chan,optionName,dsPtr)1545 Tcl_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 */
1555 Tcl_ChannelType *
Tcl_GetChannelType(chan)1556 Tcl_GetChannelType(chan)
1557 Tcl_Channel chan;
1558 {
1559 return (tclStubsPtr->tcl_GetChannelType)(chan);
1560 }
1561
1562 /* Slot 159 */
1563 int
Tcl_GetCommandInfo(interp,cmdName,infoPtr)1564 Tcl_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 */
1573 char *
Tcl_GetCommandName(interp,command)1574 Tcl_GetCommandName(interp, command)
1575 Tcl_Interp * interp;
1576 Tcl_Command command;
1577 {
1578 return (tclStubsPtr->tcl_GetCommandName)(interp, command);
1579 }
1580
1581 /* Slot 161 */
1582 int
Tcl_GetErrno()1583 Tcl_GetErrno()
1584 {
1585 return (tclStubsPtr->tcl_GetErrno)();
1586 }
1587
1588 /* Slot 162 */
1589 char *
Tcl_GetHostName()1590 Tcl_GetHostName()
1591 {
1592 return (tclStubsPtr->tcl_GetHostName)();
1593 }
1594
1595 /* Slot 163 */
1596 int
Tcl_GetInterpPath(askInterp,slaveInterp)1597 Tcl_GetInterpPath(askInterp, slaveInterp)
1598 Tcl_Interp * askInterp;
1599 Tcl_Interp * slaveInterp;
1600 {
1601 return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp);
1602 }
1603
1604 /* Slot 164 */
1605 Tcl_Interp *
Tcl_GetMaster(interp)1606 Tcl_GetMaster(interp)
1607 Tcl_Interp * interp;
1608 {
1609 return (tclStubsPtr->tcl_GetMaster)(interp);
1610 }
1611
1612 /* Slot 165 */
1613 CONST char *
Tcl_GetNameOfExecutable()1614 Tcl_GetNameOfExecutable()
1615 {
1616 return (tclStubsPtr->tcl_GetNameOfExecutable)();
1617 }
1618
1619 /* Slot 166 */
1620 Tcl_Obj *
Tcl_GetObjResult(interp)1621 Tcl_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 */
1629 int
Tcl_GetOpenFile(interp,str,write,checkUsage,filePtr)1630 Tcl_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 */
1642 Tcl_PathType
Tcl_GetPathType(path)1643 Tcl_GetPathType(path)
1644 char * path;
1645 {
1646 return (tclStubsPtr->tcl_GetPathType)(path);
1647 }
1648
1649 /* Slot 169 */
1650 int
Tcl_Gets(chan,dsPtr)1651 Tcl_Gets(chan, dsPtr)
1652 Tcl_Channel chan;
1653 Tcl_DString * dsPtr;
1654 {
1655 return (tclStubsPtr->tcl_Gets)(chan, dsPtr);
1656 }
1657
1658 /* Slot 170 */
1659 int
Tcl_GetsObj(chan,objPtr)1660 Tcl_GetsObj(chan, objPtr)
1661 Tcl_Channel chan;
1662 Tcl_Obj * objPtr;
1663 {
1664 return (tclStubsPtr->tcl_GetsObj)(chan, objPtr);
1665 }
1666
1667 /* Slot 171 */
1668 int
Tcl_GetServiceMode()1669 Tcl_GetServiceMode()
1670 {
1671 return (tclStubsPtr->tcl_GetServiceMode)();
1672 }
1673
1674 /* Slot 172 */
1675 Tcl_Interp *
Tcl_GetSlave(interp,slaveName)1676 Tcl_GetSlave(interp, slaveName)
1677 Tcl_Interp * interp;
1678 char * slaveName;
1679 {
1680 return (tclStubsPtr->tcl_GetSlave)(interp, slaveName);
1681 }
1682
1683 /* Slot 173 */
1684 Tcl_Channel
Tcl_GetStdChannel(type)1685 Tcl_GetStdChannel(type)
1686 int type;
1687 {
1688 return (tclStubsPtr->tcl_GetStdChannel)(type);
1689 }
1690
1691 /* Slot 174 */
1692 char *
Tcl_GetStringResult(interp)1693 Tcl_GetStringResult(interp)
1694 Tcl_Interp * interp;
1695 {
1696 return (tclStubsPtr->tcl_GetStringResult)(interp);
1697 }
1698
1699 /* Slot 175 */
1700 char *
Tcl_GetVar(interp,varName,flags)1701 Tcl_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 */
1710 char *
Tcl_GetVar2(interp,part1,part2,flags)1711 Tcl_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 */
1721 int
Tcl_GlobalEval(interp,command)1722 Tcl_GlobalEval(interp, command)
1723 Tcl_Interp * interp;
1724 char * command;
1725 {
1726 return (tclStubsPtr->tcl_GlobalEval)(interp, command);
1727 }
1728
1729 /* Slot 178 */
1730 int
Tcl_GlobalEvalObj(interp,objPtr)1731 Tcl_GlobalEvalObj(interp, objPtr)
1732 Tcl_Interp * interp;
1733 Tcl_Obj * objPtr;
1734 {
1735 return (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr);
1736 }
1737
1738 /* Slot 179 */
1739 int
Tcl_HideCommand(interp,cmdName,hiddenCmdToken)1740 Tcl_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 */
1749 int
Tcl_Init(interp)1750 Tcl_Init(interp)
1751 Tcl_Interp * interp;
1752 {
1753 return (tclStubsPtr->tcl_Init)(interp);
1754 }
1755
1756 /* Slot 181 */
1757 void
Tcl_InitHashTable(tablePtr,keyType)1758 Tcl_InitHashTable(tablePtr, keyType)
1759 Tcl_HashTable * tablePtr;
1760 int keyType;
1761 {
1762 (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType);
1763 }
1764
1765 /* Slot 182 */
1766 int
Tcl_InputBlocked(chan)1767 Tcl_InputBlocked(chan)
1768 Tcl_Channel chan;
1769 {
1770 return (tclStubsPtr->tcl_InputBlocked)(chan);
1771 }
1772
1773 /* Slot 183 */
1774 int
Tcl_InputBuffered(chan)1775 Tcl_InputBuffered(chan)
1776 Tcl_Channel chan;
1777 {
1778 return (tclStubsPtr->tcl_InputBuffered)(chan);
1779 }
1780
1781 /* Slot 184 */
1782 int
Tcl_InterpDeleted(interp)1783 Tcl_InterpDeleted(interp)
1784 Tcl_Interp * interp;
1785 {
1786 return (tclStubsPtr->tcl_InterpDeleted)(interp);
1787 }
1788
1789 /* Slot 185 */
1790 int
Tcl_IsSafe(interp)1791 Tcl_IsSafe(interp)
1792 Tcl_Interp * interp;
1793 {
1794 return (tclStubsPtr->tcl_IsSafe)(interp);
1795 }
1796
1797 /* Slot 186 */
1798 char *
Tcl_JoinPath(argc,argv,resultPtr)1799 Tcl_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 */
1808 int
Tcl_LinkVar(interp,varName,addr,type)1809 Tcl_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 */
1820 Tcl_Channel
Tcl_MakeFileChannel(handle,mode)1821 Tcl_MakeFileChannel(handle, mode)
1822 ClientData handle;
1823 int mode;
1824 {
1825 return (tclStubsPtr->tcl_MakeFileChannel)(handle, mode);
1826 }
1827
1828 /* Slot 190 */
1829 int
Tcl_MakeSafe(interp)1830 Tcl_MakeSafe(interp)
1831 Tcl_Interp * interp;
1832 {
1833 return (tclStubsPtr->tcl_MakeSafe)(interp);
1834 }
1835
1836 /* Slot 191 */
1837 Tcl_Channel
Tcl_MakeTcpClientChannel(tcpSocket)1838 Tcl_MakeTcpClientChannel(tcpSocket)
1839 ClientData tcpSocket;
1840 {
1841 return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket);
1842 }
1843
1844 /* Slot 192 */
1845 char *
Tcl_Merge(argc,argv)1846 Tcl_Merge(argc, argv)
1847 int argc;
1848 char ** argv;
1849 {
1850 return (tclStubsPtr->tcl_Merge)(argc, argv);
1851 }
1852
1853 /* Slot 193 */
1854 Tcl_HashEntry *
Tcl_NextHashEntry(searchPtr)1855 Tcl_NextHashEntry(searchPtr)
1856 Tcl_HashSearch * searchPtr;
1857 {
1858 return (tclStubsPtr->tcl_NextHashEntry)(searchPtr);
1859 }
1860
1861 /* Slot 194 */
1862 void
Tcl_NotifyChannel(channel,mask)1863 Tcl_NotifyChannel(channel, mask)
1864 Tcl_Channel channel;
1865 int mask;
1866 {
1867 (tclStubsPtr->tcl_NotifyChannel)(channel, mask);
1868 }
1869
1870 /* Slot 195 */
1871 Tcl_Obj *
Tcl_ObjGetVar2(interp,part1Ptr,part2Ptr,flags)1872 Tcl_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 */
1882 Tcl_Obj *
Tcl_ObjSetVar2(interp,part1Ptr,part2Ptr,newValuePtr,flags)1883 Tcl_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 */
1894 Tcl_Channel
Tcl_OpenCommandChannel(interp,argc,argv,flags)1895 Tcl_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 */
1905 Tcl_Channel
Tcl_OpenFileChannel(interp,fileName,modeString,permissions)1906 Tcl_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 */
1916 Tcl_Channel
Tcl_OpenTcpClient(interp,port,address,myaddr,myport,async)1917 Tcl_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 */
1929 Tcl_Channel
Tcl_OpenTcpServer(interp,port,host,acceptProc,callbackData)1930 Tcl_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 */
1941 void
Tcl_Preserve(data)1942 Tcl_Preserve(data)
1943 ClientData data;
1944 {
1945 (tclStubsPtr->tcl_Preserve)(data);
1946 }
1947
1948 /* Slot 202 */
1949 void
Tcl_PrintDouble(interp,value,dst)1950 Tcl_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 */
1959 int
Tcl_PutEnv(string)1960 Tcl_PutEnv(string)
1961 CONST char * string;
1962 {
1963 return (tclStubsPtr->tcl_PutEnv)(string);
1964 }
1965
1966 /* Slot 204 */
1967 char *
Tcl_PosixError(interp)1968 Tcl_PosixError(interp)
1969 Tcl_Interp * interp;
1970 {
1971 return (tclStubsPtr->tcl_PosixError)(interp);
1972 }
1973
1974 /* Slot 205 */
1975 void
Tcl_QueueEvent(evPtr,position)1976 Tcl_QueueEvent(evPtr, position)
1977 Tcl_Event * evPtr;
1978 Tcl_QueuePosition position;
1979 {
1980 (tclStubsPtr->tcl_QueueEvent)(evPtr, position);
1981 }
1982
1983 /* Slot 206 */
1984 int
Tcl_Read(chan,bufPtr,toRead)1985 Tcl_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 */
1994 void
Tcl_ReapDetachedProcs()1995 Tcl_ReapDetachedProcs()
1996 {
1997 (tclStubsPtr->tcl_ReapDetachedProcs)();
1998 }
1999
2000 /* Slot 208 */
2001 int
Tcl_RecordAndEval(interp,cmd,flags)2002 Tcl_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 */
2011 int
Tcl_RecordAndEvalObj(interp,cmdPtr,flags)2012 Tcl_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 */
2021 void
Tcl_RegisterChannel(interp,chan)2022 Tcl_RegisterChannel(interp, chan)
2023 Tcl_Interp * interp;
2024 Tcl_Channel chan;
2025 {
2026 (tclStubsPtr->tcl_RegisterChannel)(interp, chan);
2027 }
2028
2029 /* Slot 211 */
2030 void
Tcl_RegisterObjType(typePtr)2031 Tcl_RegisterObjType(typePtr)
2032 Tcl_ObjType * typePtr;
2033 {
2034 (tclStubsPtr->tcl_RegisterObjType)(typePtr);
2035 }
2036
2037 /* Slot 212 */
2038 Tcl_RegExp
Tcl_RegExpCompile(interp,string)2039 Tcl_RegExpCompile(interp, string)
2040 Tcl_Interp * interp;
2041 char * string;
2042 {
2043 return (tclStubsPtr->tcl_RegExpCompile)(interp, string);
2044 }
2045
2046 /* Slot 213 */
2047 int
Tcl_RegExpExec(interp,regexp,str,start)2048 Tcl_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 */
2058 int
Tcl_RegExpMatch(interp,str,pattern)2059 Tcl_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 */
2068 void
Tcl_RegExpRange(regexp,index,startPtr,endPtr)2069 Tcl_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 */
2079 void
Tcl_Release(clientData)2080 Tcl_Release(clientData)
2081 ClientData clientData;
2082 {
2083 (tclStubsPtr->tcl_Release)(clientData);
2084 }
2085
2086 /* Slot 217 */
2087 void
Tcl_ResetResult(interp)2088 Tcl_ResetResult(interp)
2089 Tcl_Interp * interp;
2090 {
2091 (tclStubsPtr->tcl_ResetResult)(interp);
2092 }
2093
2094 /* Slot 218 */
2095 int
Tcl_ScanElement(str,flagPtr)2096 Tcl_ScanElement(str, flagPtr)
2097 CONST char * str;
2098 int * flagPtr;
2099 {
2100 return (tclStubsPtr->tcl_ScanElement)(str, flagPtr);
2101 }
2102
2103 /* Slot 219 */
2104 int
Tcl_ScanCountedElement(str,length,flagPtr)2105 Tcl_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 */
2114 int
Tcl_Seek(chan,offset,mode)2115 Tcl_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 */
2124 int
Tcl_ServiceAll()2125 Tcl_ServiceAll()
2126 {
2127 return (tclStubsPtr->tcl_ServiceAll)();
2128 }
2129
2130 /* Slot 222 */
2131 int
Tcl_ServiceEvent(flags)2132 Tcl_ServiceEvent(flags)
2133 int flags;
2134 {
2135 return (tclStubsPtr->tcl_ServiceEvent)(flags);
2136 }
2137
2138 /* Slot 223 */
2139 void
Tcl_SetAssocData(interp,name,proc,clientData)2140 Tcl_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 */
2150 void
Tcl_SetChannelBufferSize(chan,sz)2151 Tcl_SetChannelBufferSize(chan, sz)
2152 Tcl_Channel chan;
2153 int sz;
2154 {
2155 (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz);
2156 }
2157
2158 /* Slot 225 */
2159 int
Tcl_SetChannelOption(interp,chan,optionName,newValue)2160 Tcl_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 */
2170 int
Tcl_SetCommandInfo(interp,cmdName,infoPtr)2171 Tcl_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 */
2180 void
Tcl_SetErrno(err)2181 Tcl_SetErrno(err)
2182 int err;
2183 {
2184 (tclStubsPtr->tcl_SetErrno)(err);
2185 }
2186
2187 /* Slot 228 */
2188 void
TCL_VARARGS_DEF(Tcl_Interp *,interp)2189 Tcl_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 */
2201 void
Tcl_SetMaxBlockTime(timePtr)2202 Tcl_SetMaxBlockTime(timePtr)
2203 Tcl_Time * timePtr;
2204 {
2205 (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr);
2206 }
2207
2208 /* Slot 230 */
2209 void
Tcl_SetPanicProc(panicProc)2210 Tcl_SetPanicProc(panicProc)
2211 Tcl_PanicProc * panicProc;
2212 {
2213 (tclStubsPtr->tcl_SetPanicProc)(panicProc);
2214 }
2215
2216 /* Slot 231 */
2217 int
Tcl_SetRecursionLimit(interp,depth)2218 Tcl_SetRecursionLimit(interp, depth)
2219 Tcl_Interp * interp;
2220 int depth;
2221 {
2222 return (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth);
2223 }
2224
2225 /* Slot 232 */
2226 void
Tcl_SetResult(interp,str,freeProc)2227 Tcl_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 */
2236 int
Tcl_SetServiceMode(mode)2237 Tcl_SetServiceMode(mode)
2238 int mode;
2239 {
2240 return (tclStubsPtr->tcl_SetServiceMode)(mode);
2241 }
2242
2243 /* Slot 234 */
2244 void
Tcl_SetObjErrorCode(interp,errorObjPtr)2245 Tcl_SetObjErrorCode(interp, errorObjPtr)
2246 Tcl_Interp * interp;
2247 Tcl_Obj * errorObjPtr;
2248 {
2249 (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr);
2250 }
2251
2252 /* Slot 235 */
2253 void
Tcl_SetObjResult(interp,resultObjPtr)2254 Tcl_SetObjResult(interp, resultObjPtr)
2255 Tcl_Interp * interp;
2256 Tcl_Obj * resultObjPtr;
2257 {
2258 (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr);
2259 }
2260
2261 /* Slot 236 */
2262 void
Tcl_SetStdChannel(channel,type)2263 Tcl_SetStdChannel(channel, type)
2264 Tcl_Channel channel;
2265 int type;
2266 {
2267 (tclStubsPtr->tcl_SetStdChannel)(channel, type);
2268 }
2269
2270 /* Slot 237 */
2271 char *
Tcl_SetVar(interp,varName,newValue,flags)2272 Tcl_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 */
2282 char *
Tcl_SetVar2(interp,part1,part2,newValue,flags)2283 Tcl_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 */
2294 char *
Tcl_SignalId(sig)2295 Tcl_SignalId(sig)
2296 int sig;
2297 {
2298 return (tclStubsPtr->tcl_SignalId)(sig);
2299 }
2300
2301 /* Slot 240 */
2302 char *
Tcl_SignalMsg(sig)2303 Tcl_SignalMsg(sig)
2304 int sig;
2305 {
2306 return (tclStubsPtr->tcl_SignalMsg)(sig);
2307 }
2308
2309 /* Slot 241 */
2310 void
Tcl_SourceRCFile(interp)2311 Tcl_SourceRCFile(interp)
2312 Tcl_Interp * interp;
2313 {
2314 (tclStubsPtr->tcl_SourceRCFile)(interp);
2315 }
2316
2317 /* Slot 242 */
2318 int
Tcl_SplitList(interp,listStr,argcPtr,argvPtr)2319 Tcl_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 */
2329 void
Tcl_SplitPath(path,argcPtr,argvPtr)2330 Tcl_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 */
2339 void
Tcl_StaticPackage(interp,pkgName,initProc,safeInitProc)2340 Tcl_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 */
2350 int
Tcl_StringMatch(str,pattern)2351 Tcl_StringMatch(str, pattern)
2352 CONST char * str;
2353 CONST char * pattern;
2354 {
2355 return (tclStubsPtr->tcl_StringMatch)(str, pattern);
2356 }
2357
2358 /* Slot 246 */
2359 int
Tcl_Tell(chan)2360 Tcl_Tell(chan)
2361 Tcl_Channel chan;
2362 {
2363 return (tclStubsPtr->tcl_Tell)(chan);
2364 }
2365
2366 /* Slot 247 */
2367 int
Tcl_TraceVar(interp,varName,flags,proc,clientData)2368 Tcl_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 */
2379 int
Tcl_TraceVar2(interp,part1,part2,flags,proc,clientData)2380 Tcl_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 */
2392 char *
Tcl_TranslateFileName(interp,name,bufferPtr)2393 Tcl_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 */
2402 int
Tcl_Ungets(chan,str,len,atHead)2403 Tcl_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 */
2413 void
Tcl_UnlinkVar(interp,varName)2414 Tcl_UnlinkVar(interp, varName)
2415 Tcl_Interp * interp;
2416 char * varName;
2417 {
2418 (tclStubsPtr->tcl_UnlinkVar)(interp, varName);
2419 }
2420
2421 /* Slot 252 */
2422 int
Tcl_UnregisterChannel(interp,chan)2423 Tcl_UnregisterChannel(interp, chan)
2424 Tcl_Interp * interp;
2425 Tcl_Channel chan;
2426 {
2427 return (tclStubsPtr->tcl_UnregisterChannel)(interp, chan);
2428 }
2429
2430 /* Slot 253 */
2431 int
Tcl_UnsetVar(interp,varName,flags)2432 Tcl_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 */
2441 int
Tcl_UnsetVar2(interp,part1,part2,flags)2442 Tcl_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 */
2452 void
Tcl_UntraceVar(interp,varName,flags,proc,clientData)2453 Tcl_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 */
2464 void
Tcl_UntraceVar2(interp,part1,part2,flags,proc,clientData)2465 Tcl_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 */
2477 void
Tcl_UpdateLinkedVar(interp,varName)2478 Tcl_UpdateLinkedVar(interp, varName)
2479 Tcl_Interp * interp;
2480 char * varName;
2481 {
2482 (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName);
2483 }
2484
2485 /* Slot 258 */
2486 int
Tcl_UpVar(interp,frameName,varName,localName,flags)2487 Tcl_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 */
2498 int
Tcl_UpVar2(interp,frameName,part1,part2,localName,flags)2499 Tcl_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 */
2511 int
TCL_VARARGS_DEF(Tcl_Interp *,interp)2512 Tcl_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);
2522 return resultValue;
2523 }
2524
2525 /* Slot 261 */
2526 ClientData
Tcl_VarTraceInfo(interp,varName,flags,procPtr,prevClientData)2527 Tcl_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 */
2538 ClientData
Tcl_VarTraceInfo2(interp,part1,part2,flags,procPtr,prevClientData)2539 Tcl_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 */
2551 int
Tcl_Write(chan,s,slen)2552 Tcl_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 */
2561 void
Tcl_WrongNumArgs(interp,objc,objv,message)2562 Tcl_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 */
2572 int
Tcl_DumpActiveMemory(fileName)2573 Tcl_DumpActiveMemory(fileName)
2574 char * fileName;
2575 {
2576 return (tclStubsPtr->tcl_DumpActiveMemory)(fileName);
2577 }
2578
2579 /* Slot 266 */
2580 void
Tcl_ValidateAllMemory(file,line)2581 Tcl_ValidateAllMemory(file, line)
2582 char * file;
2583 int line;
2584 {
2585 (tclStubsPtr->tcl_ValidateAllMemory)(file, line);
2586 }
2587
2588 /* Slot 267 */
2589 void
Tcl_AppendResultVA(interp,argList)2590 Tcl_AppendResultVA(interp, argList)
2591 Tcl_Interp * interp;
2592 va_list argList;
2593 {
2594 (tclStubsPtr->tcl_AppendResultVA)(interp, argList);
2595 }
2596
2597 /* Slot 268 */
2598 void
Tcl_AppendStringsToObjVA(objPtr,argList)2599 Tcl_AppendStringsToObjVA(objPtr, argList)
2600 Tcl_Obj * objPtr;
2601 va_list argList;
2602 {
2603 (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList);
2604 }
2605
2606 /* Slot 269 */
2607 char *
Tcl_HashStats(tablePtr)2608 Tcl_HashStats(tablePtr)
2609 Tcl_HashTable * tablePtr;
2610 {
2611 return (tclStubsPtr->tcl_HashStats)(tablePtr);
2612 }
2613
2614 /* Slot 270 */
2615 char *
Tcl_ParseVar(interp,str,termPtr)2616 Tcl_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 */
2625 char *
Tcl_PkgPresent(interp,name,version,exact)2626 Tcl_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 */
2636 char *
Tcl_PkgPresentEx(interp,name,version,exact,clientDataPtr)2637 Tcl_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 */
2648 int
Tcl_PkgProvide(interp,name,version)2649 Tcl_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 */
2658 char *
Tcl_PkgRequire(interp,name,version,exact)2659 Tcl_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 */
2669 void
Tcl_SetErrorCodeVA(interp,argList)2670 Tcl_SetErrorCodeVA(interp, argList)
2671 Tcl_Interp * interp;
2672 va_list argList;
2673 {
2674 (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList);
2675 }
2676
2677 /* Slot 276 */
2678 int
Tcl_VarEvalVA(interp,argList)2679 Tcl_VarEvalVA(interp, argList)
2680 Tcl_Interp * interp;
2681 va_list argList;
2682 {
2683 return (tclStubsPtr->tcl_VarEvalVA)(interp, argList);
2684 }
2685
2686 /* Slot 277 */
2687 Tcl_Pid
Tcl_WaitPid(pid,statPtr,options)2688 Tcl_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 */
2697 void
Tcl_PanicVA(format,argList)2698 Tcl_PanicVA(format, argList)
2699 char * format;
2700 va_list argList;
2701 {
2702 (tclStubsPtr->tcl_PanicVA)(format, argList);
2703 }
2704
2705 /* Slot 279 */
2706 void
Tcl_GetVersion(major,minor,patchLevel,type)2707 Tcl_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 */
2723 void
Tcl_AppendObjToObj(objPtr,appendObjPtr)2724 Tcl_AppendObjToObj(objPtr, appendObjPtr)
2725 Tcl_Obj * objPtr;
2726 Tcl_Obj * appendObjPtr;
2727 {
2728 (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr);
2729 }
2730
2731 /* Slot 287 */
2732 Tcl_Encoding
Tcl_CreateEncoding(typePtr)2733 Tcl_CreateEncoding(typePtr)
2734 Tcl_EncodingType * typePtr;
2735 {
2736 return (tclStubsPtr->tcl_CreateEncoding)(typePtr);
2737 }
2738
2739 /* Slot 288 */
2740 void
Tcl_CreateThreadExitHandler(proc,clientData)2741 Tcl_CreateThreadExitHandler(proc, clientData)
2742 Tcl_ExitProc * proc;
2743 ClientData clientData;
2744 {
2745 (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData);
2746 }
2747
2748 /* Slot 289 */
2749 void
Tcl_DeleteThreadExitHandler(proc,clientData)2750 Tcl_DeleteThreadExitHandler(proc, clientData)
2751 Tcl_ExitProc * proc;
2752 ClientData clientData;
2753 {
2754 (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData);
2755 }
2756
2757 /* Slot 290 */
2758 void
Tcl_DiscardResult(statePtr)2759 Tcl_DiscardResult(statePtr)
2760 Tcl_SavedResult * statePtr;
2761 {
2762 (tclStubsPtr->tcl_DiscardResult)(statePtr);
2763 }
2764
2765 /* Slot 291 */
2766 int
Tcl_EvalEx(interp,script,numBytes,flags)2767 Tcl_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 */
2777 int
Tcl_EvalObjv(interp,objc,objv,flags)2778 Tcl_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 */
2788 int
Tcl_EvalObjEx(interp,objPtr,flags)2789 Tcl_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 */
2798 void
Tcl_ExitThread(status)2799 Tcl_ExitThread(status)
2800 int status;
2801 {
2802 (tclStubsPtr->tcl_ExitThread)(status);
2803 }
2804
2805 /* Slot 295 */
2806 int
Tcl_ExternalToUtf(interp,encoding,src,srcLen,flags,statePtr,dst,dstLen,srcReadPtr,dstWrotePtr,dstCharsPtr)2807 Tcl_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 */
2824 char *
Tcl_ExternalToUtfDString(encoding,src,srcLen,dsPtr)2825 Tcl_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 */
2835 void
Tcl_FinalizeThread()2836 Tcl_FinalizeThread()
2837 {
2838 (tclStubsPtr->tcl_FinalizeThread)();
2839 }
2840
2841 /* Slot 298 */
2842 void
Tcl_FinalizeNotifier(clientData)2843 Tcl_FinalizeNotifier(clientData)
2844 ClientData clientData;
2845 {
2846 (tclStubsPtr->tcl_FinalizeNotifier)(clientData);
2847 }
2848
2849 /* Slot 299 */
2850 void
Tcl_FreeEncoding(encoding)2851 Tcl_FreeEncoding(encoding)
2852 Tcl_Encoding encoding;
2853 {
2854 (tclStubsPtr->tcl_FreeEncoding)(encoding);
2855 }
2856
2857 /* Slot 300 */
2858 Tcl_ThreadId
Tcl_GetCurrentThread()2859 Tcl_GetCurrentThread()
2860 {
2861 return (tclStubsPtr->tcl_GetCurrentThread)();
2862 }
2863
2864 /* Slot 301 */
2865 Tcl_Encoding
Tcl_GetEncoding(interp,name)2866 Tcl_GetEncoding(interp, name)
2867 Tcl_Interp * interp;
2868 CONST char * name;
2869 {
2870 return (tclStubsPtr->tcl_GetEncoding)(interp, name);
2871 }
2872
2873 /* Slot 302 */
2874 char *
Tcl_GetEncodingName(encoding)2875 Tcl_GetEncodingName(encoding)
2876 Tcl_Encoding encoding;
2877 {
2878 return (tclStubsPtr->tcl_GetEncodingName)(encoding);
2879 }
2880
2881 /* Slot 303 */
2882 void
Tcl_GetEncodingNames(interp)2883 Tcl_GetEncodingNames(interp)
2884 Tcl_Interp * interp;
2885 {
2886 (tclStubsPtr->tcl_GetEncodingNames)(interp);
2887 }
2888
2889 /* Slot 304 */
2890 int
Tcl_GetIndexFromObjStruct(interp,objPtr,tablePtr,offset,msg,flags,indexPtr)2891 Tcl_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 */
2904 VOID *
Tcl_GetThreadData(keyPtr,size)2905 Tcl_GetThreadData(keyPtr, size)
2906 Tcl_ThreadDataKey * keyPtr;
2907 int size;
2908 {
2909 return (tclStubsPtr->tcl_GetThreadData)(keyPtr, size);
2910 }
2911
2912 /* Slot 306 */
2913 Tcl_Obj *
Tcl_GetVar2Ex(interp,part1,part2,flags)2914 Tcl_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 */
2924 ClientData
Tcl_InitNotifier()2925 Tcl_InitNotifier()
2926 {
2927 return (tclStubsPtr->tcl_InitNotifier)();
2928 }
2929
2930 /* Slot 308 */
2931 void
Tcl_MutexLock(mutexPtr)2932 Tcl_MutexLock(mutexPtr)
2933 Tcl_Mutex * mutexPtr;
2934 {
2935 (tclStubsPtr->tcl_MutexLock)(mutexPtr);
2936 }
2937
2938 /* Slot 309 */
2939 void
Tcl_MutexUnlock(mutexPtr)2940 Tcl_MutexUnlock(mutexPtr)
2941 Tcl_Mutex * mutexPtr;
2942 {
2943 (tclStubsPtr->tcl_MutexUnlock)(mutexPtr);
2944 }
2945
2946 /* Slot 310 */
2947 void
Tcl_ConditionNotify(condPtr)2948 Tcl_ConditionNotify(condPtr)
2949 Tcl_Condition * condPtr;
2950 {
2951 (tclStubsPtr->tcl_ConditionNotify)(condPtr);
2952 }
2953
2954 /* Slot 311 */
2955 void
Tcl_ConditionWait(condPtr,mutexPtr,timePtr)2956 Tcl_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 */
2965 int
Tcl_NumUtfChars(src,len)2966 Tcl_NumUtfChars(src, len)
2967 CONST char * src;
2968 int len;
2969 {
2970 return (tclStubsPtr->tcl_NumUtfChars)(src, len);
2971 }
2972
2973 /* Slot 313 */
2974 int
Tcl_ReadChars(channel,objPtr,charsToRead,appendFlag)2975 Tcl_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 */
2985 void
Tcl_RestoreResult(interp,statePtr)2986 Tcl_RestoreResult(interp, statePtr)
2987 Tcl_Interp * interp;
2988 Tcl_SavedResult * statePtr;
2989 {
2990 (tclStubsPtr->tcl_RestoreResult)(interp, statePtr);
2991 }
2992
2993 /* Slot 315 */
2994 void
Tcl_SaveResult(interp,statePtr)2995 Tcl_SaveResult(interp, statePtr)
2996 Tcl_Interp * interp;
2997 Tcl_SavedResult * statePtr;
2998 {
2999 (tclStubsPtr->tcl_SaveResult)(interp, statePtr);
3000 }
3001
3002 /* Slot 316 */
3003 int
Tcl_SetSystemEncoding(interp,name)3004 Tcl_SetSystemEncoding(interp, name)
3005 Tcl_Interp * interp;
3006 CONST char * name;
3007 {
3008 return (tclStubsPtr->tcl_SetSystemEncoding)(interp, name);
3009 }
3010
3011 /* Slot 317 */
3012 Tcl_Obj *
Tcl_SetVar2Ex(interp,part1,part2,newValuePtr,flags)3013 Tcl_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 */
3024 void
Tcl_ThreadAlert(threadId)3025 Tcl_ThreadAlert(threadId)
3026 Tcl_ThreadId threadId;
3027 {
3028 (tclStubsPtr->tcl_ThreadAlert)(threadId);
3029 }
3030
3031 /* Slot 319 */
3032 void
Tcl_ThreadQueueEvent(threadId,evPtr,position)3033 Tcl_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 */
3042 Tcl_UniChar
Tcl_UniCharAtIndex(src,index)3043 Tcl_UniCharAtIndex(src, index)
3044 CONST char * src;
3045 int index;
3046 {
3047 return (tclStubsPtr->tcl_UniCharAtIndex)(src, index);
3048 }
3049
3050 /* Slot 321 */
3051 Tcl_UniChar
Tcl_UniCharToLower(ch)3052 Tcl_UniCharToLower(ch)
3053 int ch;
3054 {
3055 return (tclStubsPtr->tcl_UniCharToLower)(ch);
3056 }
3057
3058 /* Slot 322 */
3059 Tcl_UniChar
Tcl_UniCharToTitle(ch)3060 Tcl_UniCharToTitle(ch)
3061 int ch;
3062 {
3063 return (tclStubsPtr->tcl_UniCharToTitle)(ch);
3064 }
3065
3066 /* Slot 323 */
3067 Tcl_UniChar
Tcl_UniCharToUpper(ch)3068 Tcl_UniCharToUpper(ch)
3069 int ch;
3070 {
3071 return (tclStubsPtr->tcl_UniCharToUpper)(ch);
3072 }
3073
3074 /* Slot 324 */
3075 int
Tcl_UniCharToUtf(ch,buf)3076 Tcl_UniCharToUtf(ch, buf)
3077 int ch;
3078 char * buf;
3079 {
3080 return (tclStubsPtr->tcl_UniCharToUtf)(ch, buf);
3081 }
3082
3083 /* Slot 325 */
3084 char *
Tcl_UtfAtIndex(src,index)3085 Tcl_UtfAtIndex(src, index)
3086 CONST char * src;
3087 int index;
3088 {
3089 return (tclStubsPtr->tcl_UtfAtIndex)(src, index);
3090 }
3091
3092 /* Slot 326 */
3093 int
Tcl_UtfCharComplete(src,len)3094 Tcl_UtfCharComplete(src, len)
3095 CONST char * src;
3096 int len;
3097 {
3098 return (tclStubsPtr->tcl_UtfCharComplete)(src, len);
3099 }
3100
3101 /* Slot 327 */
3102 int
Tcl_UtfBackslash(src,readPtr,dst)3103 Tcl_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 */
3112 char *
Tcl_UtfFindFirst(src,ch)3113 Tcl_UtfFindFirst(src, ch)
3114 CONST char * src;
3115 int ch;
3116 {
3117 return (tclStubsPtr->tcl_UtfFindFirst)(src, ch);
3118 }
3119
3120 /* Slot 329 */
3121 char *
Tcl_UtfFindLast(src,ch)3122 Tcl_UtfFindLast(src, ch)
3123 CONST char * src;
3124 int ch;
3125 {
3126 return (tclStubsPtr->tcl_UtfFindLast)(src, ch);
3127 }
3128
3129 /* Slot 330 */
3130 char *
Tcl_UtfNext(src)3131 Tcl_UtfNext(src)
3132 CONST char * src;
3133 {
3134 return (tclStubsPtr->tcl_UtfNext)(src);
3135 }
3136
3137 /* Slot 331 */
3138 char *
Tcl_UtfPrev(src,start)3139 Tcl_UtfPrev(src, start)
3140 CONST char * src;
3141 CONST char * start;
3142 {
3143 return (tclStubsPtr->tcl_UtfPrev)(src, start);
3144 }
3145
3146 /* Slot 332 */
3147 int
Tcl_UtfToExternal(interp,encoding,src,srcLen,flags,statePtr,dst,dstLen,srcReadPtr,dstWrotePtr,dstCharsPtr)3148 Tcl_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 */
3165 char *
Tcl_UtfToExternalDString(encoding,src,srcLen,dsPtr)3166 Tcl_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 */
3176 int
Tcl_UtfToLower(src)3177 Tcl_UtfToLower(src)
3178 char * src;
3179 {
3180 return (tclStubsPtr->tcl_UtfToLower)(src);
3181 }
3182
3183 /* Slot 335 */
3184 int
Tcl_UtfToTitle(src)3185 Tcl_UtfToTitle(src)
3186 char * src;
3187 {
3188 return (tclStubsPtr->tcl_UtfToTitle)(src);
3189 }
3190
3191 /* Slot 336 */
3192 int
Tcl_UtfToUniChar(src,chPtr)3193 Tcl_UtfToUniChar(src, chPtr)
3194 CONST char * src;
3195 Tcl_UniChar * chPtr;
3196 {
3197 return (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr);
3198 }
3199
3200 /* Slot 337 */
3201 int
Tcl_UtfToUpper(src)3202 Tcl_UtfToUpper(src)
3203 char * src;
3204 {
3205 return (tclStubsPtr->tcl_UtfToUpper)(src);
3206 }
3207
3208 /* Slot 338 */
3209 int
Tcl_WriteChars(chan,src,srcLen)3210 Tcl_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 */
3219 int
Tcl_WriteObj(chan,objPtr)3220 Tcl_WriteObj(chan, objPtr)
3221 Tcl_Channel chan;
3222 Tcl_Obj * objPtr;
3223 {
3224 return (tclStubsPtr->tcl_WriteObj)(chan, objPtr);
3225 }
3226
3227 /* Slot 340 */
3228 char *
Tcl_GetString(objPtr)3229 Tcl_GetString(objPtr)
3230 Tcl_Obj * objPtr;
3231 {
3232 return (tclStubsPtr->tcl_GetString)(objPtr);
3233 }
3234
3235 /* Slot 341 */
3236 char *
Tcl_GetDefaultEncodingDir()3237 Tcl_GetDefaultEncodingDir()
3238 {
3239 return (tclStubsPtr->tcl_GetDefaultEncodingDir)();
3240 }
3241
3242 /* Slot 342 */
3243 void
Tcl_SetDefaultEncodingDir(path)3244 Tcl_SetDefaultEncodingDir(path)
3245 char * path;
3246 {
3247 (tclStubsPtr->tcl_SetDefaultEncodingDir)(path);
3248 }
3249
3250 /* Slot 343 */
3251 void
Tcl_AlertNotifier(clientData)3252 Tcl_AlertNotifier(clientData)
3253 ClientData clientData;
3254 {
3255 (tclStubsPtr->tcl_AlertNotifier)(clientData);
3256 }
3257
3258 /* Slot 344 */
3259 void
Tcl_ServiceModeHook(mode)3260 Tcl_ServiceModeHook(mode)
3261 int mode;
3262 {
3263 (tclStubsPtr->tcl_ServiceModeHook)(mode);
3264 }
3265
3266 /* Slot 345 */
3267 Tcl_Channel
Tcl_ReplaceChannel(interp,typePtr,instanceData,mask,prevChan)3268 Tcl_ReplaceChannel(interp, typePtr, instanceData, mask, prevChan)
3269 Tcl_Interp * interp;
3270 Tcl_ChannelType * typePtr;
3271 ClientData instanceData;
3272 int mask;
3273 Tcl_Channel prevChan;
3274 {
3275 return (tclStubsPtr->tcl_ReplaceChannel)(interp, typePtr, instanceData, mask, prevChan);
3276 }
3277
3278 /* Slot 346 */
3279 void
Tcl_UndoReplaceChannel(interp,chan)3280 Tcl_UndoReplaceChannel(interp, chan)
3281 Tcl_Interp * interp;
3282 Tcl_Channel chan;
3283 {
3284 (tclStubsPtr->tcl_UndoReplaceChannel)(interp, chan);
3285 }
3286
3287
3288 /* !END!: Do not edit above this line. */
3289