1/*
2 * tclIntDecls.h --
3 *
4 *	This file contains the declarations for all unsupported
5 *	functions that are exported by the Tcl library.  These
6 *	interfaces are not guaranteed to remain the same between
7 *	versions.  Use at your own risk.
8 *
9 * Copyright (c) 1998-1999 by Scriptics Corporation.
10 *
11 * See the file "license.terms" for information on usage and redistribution
12 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13 *
14 * RCS: @(#) $Id: tclIntDecls.h,v 1.112.2.3 2010/07/02 20:49:47 nijtmans Exp $
15 */
16
17#ifndef _TCLINTDECLS
18#define _TCLINTDECLS
19
20#include "tclPort.h"
21
22#undef TCL_STORAGE_CLASS
23#ifdef BUILD_tcl
24#   define TCL_STORAGE_CLASS DLLEXPORT
25#else
26#   ifdef USE_TCL_STUBS
27#      define TCL_STORAGE_CLASS
28#   else
29#      define TCL_STORAGE_CLASS DLLIMPORT
30#   endif
31#endif
32
33/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */
34#undef Tcl_AppendExportList
35#undef Tcl_CreateNamespace
36#undef Tcl_DeleteNamespace
37#undef Tcl_Export
38#undef Tcl_FindCommand
39#undef Tcl_FindNamespace
40#undef Tcl_FindNamespaceVar
41#undef Tcl_ForgetImport
42#undef Tcl_GetCommandFromObj
43#undef Tcl_GetCommandFullName
44#undef Tcl_GetCurrentNamespace
45#undef Tcl_GetGlobalNamespace
46#undef Tcl_Import
47
48/*
49 * WARNING: This file is automatically generated by the tools/genStubs.tcl
50 * script.  Any modifications to the function declarations below should be made
51 * in the generic/tclInt.decls script.
52 */
53
54/* !BEGIN!: Do not edit below this line. */
55
56/*
57 * Exported function declarations:
58 */
59
60/* Slot 0 is reserved */
61/* Slot 1 is reserved */
62/* Slot 2 is reserved */
63#ifndef TclAllocateFreeObjects_TCL_DECLARED
64#define TclAllocateFreeObjects_TCL_DECLARED
65/* 3 */
66EXTERN void		TclAllocateFreeObjects(void);
67#endif
68/* Slot 4 is reserved */
69#ifndef TclCleanupChildren_TCL_DECLARED
70#define TclCleanupChildren_TCL_DECLARED
71/* 5 */
72EXTERN int		TclCleanupChildren(Tcl_Interp *interp, int numPids,
73				Tcl_Pid *pidPtr, Tcl_Channel errorChan);
74#endif
75#ifndef TclCleanupCommand_TCL_DECLARED
76#define TclCleanupCommand_TCL_DECLARED
77/* 6 */
78EXTERN void		TclCleanupCommand(Command *cmdPtr);
79#endif
80#ifndef TclCopyAndCollapse_TCL_DECLARED
81#define TclCopyAndCollapse_TCL_DECLARED
82/* 7 */
83EXTERN int		TclCopyAndCollapse(int count, CONST char *src,
84				char *dst);
85#endif
86#ifndef TclCopyChannel_TCL_DECLARED
87#define TclCopyChannel_TCL_DECLARED
88/* 8 */
89EXTERN int		TclCopyChannel(Tcl_Interp *interp,
90				Tcl_Channel inChan, Tcl_Channel outChan,
91				int toRead, Tcl_Obj *cmdPtr);
92#endif
93#ifndef TclCreatePipeline_TCL_DECLARED
94#define TclCreatePipeline_TCL_DECLARED
95/* 9 */
96EXTERN int		TclCreatePipeline(Tcl_Interp *interp, int argc,
97				CONST char **argv, Tcl_Pid **pidArrayPtr,
98				TclFile *inPipePtr, TclFile *outPipePtr,
99				TclFile *errFilePtr);
100#endif
101#ifndef TclCreateProc_TCL_DECLARED
102#define TclCreateProc_TCL_DECLARED
103/* 10 */
104EXTERN int		TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
105				CONST char *procName, Tcl_Obj *argsPtr,
106				Tcl_Obj *bodyPtr, Proc **procPtrPtr);
107#endif
108#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED
109#define TclDeleteCompiledLocalVars_TCL_DECLARED
110/* 11 */
111EXTERN void		TclDeleteCompiledLocalVars(Interp *iPtr,
112				CallFrame *framePtr);
113#endif
114#ifndef TclDeleteVars_TCL_DECLARED
115#define TclDeleteVars_TCL_DECLARED
116/* 12 */
117EXTERN void		TclDeleteVars(Interp *iPtr,
118				TclVarHashTable *tablePtr);
119#endif
120/* Slot 13 is reserved */
121#ifndef TclDumpMemoryInfo_TCL_DECLARED
122#define TclDumpMemoryInfo_TCL_DECLARED
123/* 14 */
124EXTERN void		TclDumpMemoryInfo(FILE *outFile);
125#endif
126/* Slot 15 is reserved */
127#ifndef TclExprFloatError_TCL_DECLARED
128#define TclExprFloatError_TCL_DECLARED
129/* 16 */
130EXTERN void		TclExprFloatError(Tcl_Interp *interp, double value);
131#endif
132/* Slot 17 is reserved */
133/* Slot 18 is reserved */
134/* Slot 19 is reserved */
135/* Slot 20 is reserved */
136/* Slot 21 is reserved */
137#ifndef TclFindElement_TCL_DECLARED
138#define TclFindElement_TCL_DECLARED
139/* 22 */
140EXTERN int		TclFindElement(Tcl_Interp *interp,
141				CONST char *listStr, int listLength,
142				CONST char **elementPtr,
143				CONST char **nextPtr, int *sizePtr,
144				int *bracePtr);
145#endif
146#ifndef TclFindProc_TCL_DECLARED
147#define TclFindProc_TCL_DECLARED
148/* 23 */
149EXTERN Proc *		TclFindProc(Interp *iPtr, CONST char *procName);
150#endif
151/* Slot 24 is reserved */
152#ifndef TclFreePackageInfo_TCL_DECLARED
153#define TclFreePackageInfo_TCL_DECLARED
154/* 25 */
155EXTERN void		TclFreePackageInfo(Interp *iPtr);
156#endif
157/* Slot 26 is reserved */
158/* Slot 27 is reserved */
159#ifndef TclpGetDefaultStdChannel_TCL_DECLARED
160#define TclpGetDefaultStdChannel_TCL_DECLARED
161/* 28 */
162EXTERN Tcl_Channel	TclpGetDefaultStdChannel(int type);
163#endif
164/* Slot 29 is reserved */
165/* Slot 30 is reserved */
166#ifndef TclGetExtension_TCL_DECLARED
167#define TclGetExtension_TCL_DECLARED
168/* 31 */
169EXTERN CONST char *	TclGetExtension(CONST char *name);
170#endif
171#ifndef TclGetFrame_TCL_DECLARED
172#define TclGetFrame_TCL_DECLARED
173/* 32 */
174EXTERN int		TclGetFrame(Tcl_Interp *interp, CONST char *str,
175				CallFrame **framePtrPtr);
176#endif
177/* Slot 33 is reserved */
178#ifndef TclGetIntForIndex_TCL_DECLARED
179#define TclGetIntForIndex_TCL_DECLARED
180/* 34 */
181EXTERN int		TclGetIntForIndex(Tcl_Interp *interp,
182				Tcl_Obj *objPtr, int endValue, int *indexPtr);
183#endif
184/* Slot 35 is reserved */
185#ifndef TclGetLong_TCL_DECLARED
186#define TclGetLong_TCL_DECLARED
187/* 36 */
188EXTERN int		TclGetLong(Tcl_Interp *interp, CONST char *str,
189				long *longPtr);
190#endif
191#ifndef TclGetLoadedPackages_TCL_DECLARED
192#define TclGetLoadedPackages_TCL_DECLARED
193/* 37 */
194EXTERN int		TclGetLoadedPackages(Tcl_Interp *interp,
195				char *targetName);
196#endif
197#ifndef TclGetNamespaceForQualName_TCL_DECLARED
198#define TclGetNamespaceForQualName_TCL_DECLARED
199/* 38 */
200EXTERN int		TclGetNamespaceForQualName(Tcl_Interp *interp,
201				CONST char *qualName, Namespace *cxtNsPtr,
202				int flags, Namespace **nsPtrPtr,
203				Namespace **altNsPtrPtr,
204				Namespace **actualCxtPtrPtr,
205				CONST char **simpleNamePtr);
206#endif
207#ifndef TclGetObjInterpProc_TCL_DECLARED
208#define TclGetObjInterpProc_TCL_DECLARED
209/* 39 */
210EXTERN TclObjCmdProcType TclGetObjInterpProc(void);
211#endif
212#ifndef TclGetOpenMode_TCL_DECLARED
213#define TclGetOpenMode_TCL_DECLARED
214/* 40 */
215EXTERN int		TclGetOpenMode(Tcl_Interp *interp, CONST char *str,
216				int *seekFlagPtr);
217#endif
218#ifndef TclGetOriginalCommand_TCL_DECLARED
219#define TclGetOriginalCommand_TCL_DECLARED
220/* 41 */
221EXTERN Tcl_Command	TclGetOriginalCommand(Tcl_Command command);
222#endif
223#ifndef TclpGetUserHome_TCL_DECLARED
224#define TclpGetUserHome_TCL_DECLARED
225/* 42 */
226EXTERN char *		TclpGetUserHome(CONST char *name,
227				Tcl_DString *bufferPtr);
228#endif
229/* Slot 43 is reserved */
230#ifndef TclGuessPackageName_TCL_DECLARED
231#define TclGuessPackageName_TCL_DECLARED
232/* 44 */
233EXTERN int		TclGuessPackageName(CONST char *fileName,
234				Tcl_DString *bufPtr);
235#endif
236#ifndef TclHideUnsafeCommands_TCL_DECLARED
237#define TclHideUnsafeCommands_TCL_DECLARED
238/* 45 */
239EXTERN int		TclHideUnsafeCommands(Tcl_Interp *interp);
240#endif
241#ifndef TclInExit_TCL_DECLARED
242#define TclInExit_TCL_DECLARED
243/* 46 */
244EXTERN int		TclInExit(void);
245#endif
246/* Slot 47 is reserved */
247/* Slot 48 is reserved */
248/* Slot 49 is reserved */
249#ifndef TclInitCompiledLocals_TCL_DECLARED
250#define TclInitCompiledLocals_TCL_DECLARED
251/* 50 */
252EXTERN void		TclInitCompiledLocals(Tcl_Interp *interp,
253				CallFrame *framePtr, Namespace *nsPtr);
254#endif
255#ifndef TclInterpInit_TCL_DECLARED
256#define TclInterpInit_TCL_DECLARED
257/* 51 */
258EXTERN int		TclInterpInit(Tcl_Interp *interp);
259#endif
260/* Slot 52 is reserved */
261#ifndef TclInvokeObjectCommand_TCL_DECLARED
262#define TclInvokeObjectCommand_TCL_DECLARED
263/* 53 */
264EXTERN int		TclInvokeObjectCommand(ClientData clientData,
265				Tcl_Interp *interp, int argc,
266				CONST84 char **argv);
267#endif
268#ifndef TclInvokeStringCommand_TCL_DECLARED
269#define TclInvokeStringCommand_TCL_DECLARED
270/* 54 */
271EXTERN int		TclInvokeStringCommand(ClientData clientData,
272				Tcl_Interp *interp, int objc,
273				Tcl_Obj *CONST objv[]);
274#endif
275#ifndef TclIsProc_TCL_DECLARED
276#define TclIsProc_TCL_DECLARED
277/* 55 */
278EXTERN Proc *		TclIsProc(Command *cmdPtr);
279#endif
280/* Slot 56 is reserved */
281/* Slot 57 is reserved */
282#ifndef TclLookupVar_TCL_DECLARED
283#define TclLookupVar_TCL_DECLARED
284/* 58 */
285EXTERN Var *		TclLookupVar(Tcl_Interp *interp, CONST char *part1,
286				CONST char *part2, int flags,
287				CONST char *msg, int createPart1,
288				int createPart2, Var **arrayPtrPtr);
289#endif
290/* Slot 59 is reserved */
291#ifndef TclNeedSpace_TCL_DECLARED
292#define TclNeedSpace_TCL_DECLARED
293/* 60 */
294EXTERN int		TclNeedSpace(CONST char *start, CONST char *end);
295#endif
296#ifndef TclNewProcBodyObj_TCL_DECLARED
297#define TclNewProcBodyObj_TCL_DECLARED
298/* 61 */
299EXTERN Tcl_Obj *	TclNewProcBodyObj(Proc *procPtr);
300#endif
301#ifndef TclObjCommandComplete_TCL_DECLARED
302#define TclObjCommandComplete_TCL_DECLARED
303/* 62 */
304EXTERN int		TclObjCommandComplete(Tcl_Obj *cmdPtr);
305#endif
306#ifndef TclObjInterpProc_TCL_DECLARED
307#define TclObjInterpProc_TCL_DECLARED
308/* 63 */
309EXTERN int		TclObjInterpProc(ClientData clientData,
310				Tcl_Interp *interp, int objc,
311				Tcl_Obj *CONST objv[]);
312#endif
313#ifndef TclObjInvoke_TCL_DECLARED
314#define TclObjInvoke_TCL_DECLARED
315/* 64 */
316EXTERN int		TclObjInvoke(Tcl_Interp *interp, int objc,
317				Tcl_Obj *CONST objv[], int flags);
318#endif
319/* Slot 65 is reserved */
320/* Slot 66 is reserved */
321/* Slot 67 is reserved */
322/* Slot 68 is reserved */
323#ifndef TclpAlloc_TCL_DECLARED
324#define TclpAlloc_TCL_DECLARED
325/* 69 */
326EXTERN char *		TclpAlloc(unsigned int size);
327#endif
328/* Slot 70 is reserved */
329/* Slot 71 is reserved */
330/* Slot 72 is reserved */
331/* Slot 73 is reserved */
332#ifndef TclpFree_TCL_DECLARED
333#define TclpFree_TCL_DECLARED
334/* 74 */
335EXTERN void		TclpFree(char *ptr);
336#endif
337#ifndef TclpGetClicks_TCL_DECLARED
338#define TclpGetClicks_TCL_DECLARED
339/* 75 */
340EXTERN unsigned long	TclpGetClicks(void);
341#endif
342#ifndef TclpGetSeconds_TCL_DECLARED
343#define TclpGetSeconds_TCL_DECLARED
344/* 76 */
345EXTERN unsigned long	TclpGetSeconds(void);
346#endif
347#ifndef TclpGetTime_TCL_DECLARED
348#define TclpGetTime_TCL_DECLARED
349/* 77 */
350EXTERN void		TclpGetTime(Tcl_Time *time);
351#endif
352#ifndef TclpGetTimeZone_TCL_DECLARED
353#define TclpGetTimeZone_TCL_DECLARED
354/* 78 */
355EXTERN int		TclpGetTimeZone(unsigned long time);
356#endif
357/* Slot 79 is reserved */
358/* Slot 80 is reserved */
359#ifndef TclpRealloc_TCL_DECLARED
360#define TclpRealloc_TCL_DECLARED
361/* 81 */
362EXTERN char *		TclpRealloc(char *ptr, unsigned int size);
363#endif
364/* Slot 82 is reserved */
365/* Slot 83 is reserved */
366/* Slot 84 is reserved */
367/* Slot 85 is reserved */
368/* Slot 86 is reserved */
369/* Slot 87 is reserved */
370#ifndef TclPrecTraceProc_TCL_DECLARED
371#define TclPrecTraceProc_TCL_DECLARED
372/* 88 */
373EXTERN char *		TclPrecTraceProc(ClientData clientData,
374				Tcl_Interp *interp, CONST char *name1,
375				CONST char *name2, int flags);
376#endif
377#ifndef TclPreventAliasLoop_TCL_DECLARED
378#define TclPreventAliasLoop_TCL_DECLARED
379/* 89 */
380EXTERN int		TclPreventAliasLoop(Tcl_Interp *interp,
381				Tcl_Interp *cmdInterp, Tcl_Command cmd);
382#endif
383/* Slot 90 is reserved */
384#ifndef TclProcCleanupProc_TCL_DECLARED
385#define TclProcCleanupProc_TCL_DECLARED
386/* 91 */
387EXTERN void		TclProcCleanupProc(Proc *procPtr);
388#endif
389#ifndef TclProcCompileProc_TCL_DECLARED
390#define TclProcCompileProc_TCL_DECLARED
391/* 92 */
392EXTERN int		TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
393				Tcl_Obj *bodyPtr, Namespace *nsPtr,
394				CONST char *description,
395				CONST char *procName);
396#endif
397#ifndef TclProcDeleteProc_TCL_DECLARED
398#define TclProcDeleteProc_TCL_DECLARED
399/* 93 */
400EXTERN void		TclProcDeleteProc(ClientData clientData);
401#endif
402/* Slot 94 is reserved */
403/* Slot 95 is reserved */
404#ifndef TclRenameCommand_TCL_DECLARED
405#define TclRenameCommand_TCL_DECLARED
406/* 96 */
407EXTERN int		TclRenameCommand(Tcl_Interp *interp,
408				CONST char *oldName, CONST char *newName);
409#endif
410#ifndef TclResetShadowedCmdRefs_TCL_DECLARED
411#define TclResetShadowedCmdRefs_TCL_DECLARED
412/* 97 */
413EXTERN void		TclResetShadowedCmdRefs(Tcl_Interp *interp,
414				Command *newCmdPtr);
415#endif
416#ifndef TclServiceIdle_TCL_DECLARED
417#define TclServiceIdle_TCL_DECLARED
418/* 98 */
419EXTERN int		TclServiceIdle(void);
420#endif
421/* Slot 99 is reserved */
422/* Slot 100 is reserved */
423#ifndef TclSetPreInitScript_TCL_DECLARED
424#define TclSetPreInitScript_TCL_DECLARED
425/* 101 */
426EXTERN char *		TclSetPreInitScript(char *string);
427#endif
428#ifndef TclSetupEnv_TCL_DECLARED
429#define TclSetupEnv_TCL_DECLARED
430/* 102 */
431EXTERN void		TclSetupEnv(Tcl_Interp *interp);
432#endif
433#ifndef TclSockGetPort_TCL_DECLARED
434#define TclSockGetPort_TCL_DECLARED
435/* 103 */
436EXTERN int		TclSockGetPort(Tcl_Interp *interp, CONST char *str,
437				CONST char *proto, int *portPtr);
438#endif
439#ifndef TclSockMinimumBuffers_TCL_DECLARED
440#define TclSockMinimumBuffers_TCL_DECLARED
441/* 104 */
442EXTERN int		TclSockMinimumBuffers(int sock, int size);
443#endif
444/* Slot 105 is reserved */
445/* Slot 106 is reserved */
446/* Slot 107 is reserved */
447#ifndef TclTeardownNamespace_TCL_DECLARED
448#define TclTeardownNamespace_TCL_DECLARED
449/* 108 */
450EXTERN void		TclTeardownNamespace(Namespace *nsPtr);
451#endif
452#ifndef TclUpdateReturnInfo_TCL_DECLARED
453#define TclUpdateReturnInfo_TCL_DECLARED
454/* 109 */
455EXTERN int		TclUpdateReturnInfo(Interp *iPtr);
456#endif
457/* Slot 110 is reserved */
458#ifndef Tcl_AddInterpResolvers_TCL_DECLARED
459#define Tcl_AddInterpResolvers_TCL_DECLARED
460/* 111 */
461EXTERN void		Tcl_AddInterpResolvers(Tcl_Interp *interp,
462				CONST char *name,
463				Tcl_ResolveCmdProc *cmdProc,
464				Tcl_ResolveVarProc *varProc,
465				Tcl_ResolveCompiledVarProc *compiledVarProc);
466#endif
467#ifndef Tcl_AppendExportList_TCL_DECLARED
468#define Tcl_AppendExportList_TCL_DECLARED
469/* 112 */
470EXTERN int		Tcl_AppendExportList(Tcl_Interp *interp,
471				Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
472#endif
473#ifndef Tcl_CreateNamespace_TCL_DECLARED
474#define Tcl_CreateNamespace_TCL_DECLARED
475/* 113 */
476EXTERN Tcl_Namespace *	Tcl_CreateNamespace(Tcl_Interp *interp,
477				CONST char *name, ClientData clientData,
478				Tcl_NamespaceDeleteProc *deleteProc);
479#endif
480#ifndef Tcl_DeleteNamespace_TCL_DECLARED
481#define Tcl_DeleteNamespace_TCL_DECLARED
482/* 114 */
483EXTERN void		Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
484#endif
485#ifndef Tcl_Export_TCL_DECLARED
486#define Tcl_Export_TCL_DECLARED
487/* 115 */
488EXTERN int		Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
489				CONST char *pattern, int resetListFirst);
490#endif
491#ifndef Tcl_FindCommand_TCL_DECLARED
492#define Tcl_FindCommand_TCL_DECLARED
493/* 116 */
494EXTERN Tcl_Command	Tcl_FindCommand(Tcl_Interp *interp, CONST char *name,
495				Tcl_Namespace *contextNsPtr, int flags);
496#endif
497#ifndef Tcl_FindNamespace_TCL_DECLARED
498#define Tcl_FindNamespace_TCL_DECLARED
499/* 117 */
500EXTERN Tcl_Namespace *	Tcl_FindNamespace(Tcl_Interp *interp,
501				CONST char *name,
502				Tcl_Namespace *contextNsPtr, int flags);
503#endif
504#ifndef Tcl_GetInterpResolvers_TCL_DECLARED
505#define Tcl_GetInterpResolvers_TCL_DECLARED
506/* 118 */
507EXTERN int		Tcl_GetInterpResolvers(Tcl_Interp *interp,
508				CONST char *name, Tcl_ResolverInfo *resInfo);
509#endif
510#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED
511#define Tcl_GetNamespaceResolvers_TCL_DECLARED
512/* 119 */
513EXTERN int		Tcl_GetNamespaceResolvers(
514				Tcl_Namespace *namespacePtr,
515				Tcl_ResolverInfo *resInfo);
516#endif
517#ifndef Tcl_FindNamespaceVar_TCL_DECLARED
518#define Tcl_FindNamespaceVar_TCL_DECLARED
519/* 120 */
520EXTERN Tcl_Var		Tcl_FindNamespaceVar(Tcl_Interp *interp,
521				CONST char *name,
522				Tcl_Namespace *contextNsPtr, int flags);
523#endif
524#ifndef Tcl_ForgetImport_TCL_DECLARED
525#define Tcl_ForgetImport_TCL_DECLARED
526/* 121 */
527EXTERN int		Tcl_ForgetImport(Tcl_Interp *interp,
528				Tcl_Namespace *nsPtr, CONST char *pattern);
529#endif
530#ifndef Tcl_GetCommandFromObj_TCL_DECLARED
531#define Tcl_GetCommandFromObj_TCL_DECLARED
532/* 122 */
533EXTERN Tcl_Command	Tcl_GetCommandFromObj(Tcl_Interp *interp,
534				Tcl_Obj *objPtr);
535#endif
536#ifndef Tcl_GetCommandFullName_TCL_DECLARED
537#define Tcl_GetCommandFullName_TCL_DECLARED
538/* 123 */
539EXTERN void		Tcl_GetCommandFullName(Tcl_Interp *interp,
540				Tcl_Command command, Tcl_Obj *objPtr);
541#endif
542#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
543#define Tcl_GetCurrentNamespace_TCL_DECLARED
544/* 124 */
545EXTERN Tcl_Namespace *	Tcl_GetCurrentNamespace(Tcl_Interp *interp);
546#endif
547#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
548#define Tcl_GetGlobalNamespace_TCL_DECLARED
549/* 125 */
550EXTERN Tcl_Namespace *	Tcl_GetGlobalNamespace(Tcl_Interp *interp);
551#endif
552#ifndef Tcl_GetVariableFullName_TCL_DECLARED
553#define Tcl_GetVariableFullName_TCL_DECLARED
554/* 126 */
555EXTERN void		Tcl_GetVariableFullName(Tcl_Interp *interp,
556				Tcl_Var variable, Tcl_Obj *objPtr);
557#endif
558#ifndef Tcl_Import_TCL_DECLARED
559#define Tcl_Import_TCL_DECLARED
560/* 127 */
561EXTERN int		Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
562				CONST char *pattern, int allowOverwrite);
563#endif
564#ifndef Tcl_PopCallFrame_TCL_DECLARED
565#define Tcl_PopCallFrame_TCL_DECLARED
566/* 128 */
567EXTERN void		Tcl_PopCallFrame(Tcl_Interp *interp);
568#endif
569#ifndef Tcl_PushCallFrame_TCL_DECLARED
570#define Tcl_PushCallFrame_TCL_DECLARED
571/* 129 */
572EXTERN int		Tcl_PushCallFrame(Tcl_Interp *interp,
573				Tcl_CallFrame *framePtr,
574				Tcl_Namespace *nsPtr, int isProcCallFrame);
575#endif
576#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED
577#define Tcl_RemoveInterpResolvers_TCL_DECLARED
578/* 130 */
579EXTERN int		Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
580				CONST char *name);
581#endif
582#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED
583#define Tcl_SetNamespaceResolvers_TCL_DECLARED
584/* 131 */
585EXTERN void		Tcl_SetNamespaceResolvers(
586				Tcl_Namespace *namespacePtr,
587				Tcl_ResolveCmdProc *cmdProc,
588				Tcl_ResolveVarProc *varProc,
589				Tcl_ResolveCompiledVarProc *compiledVarProc);
590#endif
591#ifndef TclpHasSockets_TCL_DECLARED
592#define TclpHasSockets_TCL_DECLARED
593/* 132 */
594EXTERN int		TclpHasSockets(Tcl_Interp *interp);
595#endif
596#ifndef TclpGetDate_TCL_DECLARED
597#define TclpGetDate_TCL_DECLARED
598/* 133 */
599EXTERN struct tm *	TclpGetDate(CONST time_t *time, int useGMT);
600#endif
601/* Slot 134 is reserved */
602/* Slot 135 is reserved */
603/* Slot 136 is reserved */
604/* Slot 137 is reserved */
605#ifndef TclGetEnv_TCL_DECLARED
606#define TclGetEnv_TCL_DECLARED
607/* 138 */
608EXTERN CONST84_RETURN char * TclGetEnv(CONST char *name,
609				Tcl_DString *valuePtr);
610#endif
611/* Slot 139 is reserved */
612/* Slot 140 is reserved */
613#ifndef TclpGetCwd_TCL_DECLARED
614#define TclpGetCwd_TCL_DECLARED
615/* 141 */
616EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
617				Tcl_DString *cwdPtr);
618#endif
619#ifndef TclSetByteCodeFromAny_TCL_DECLARED
620#define TclSetByteCodeFromAny_TCL_DECLARED
621/* 142 */
622EXTERN int		TclSetByteCodeFromAny(Tcl_Interp *interp,
623				Tcl_Obj *objPtr, CompileHookProc *hookProc,
624				ClientData clientData);
625#endif
626#ifndef TclAddLiteralObj_TCL_DECLARED
627#define TclAddLiteralObj_TCL_DECLARED
628/* 143 */
629EXTERN int		TclAddLiteralObj(struct CompileEnv *envPtr,
630				Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
631#endif
632#ifndef TclHideLiteral_TCL_DECLARED
633#define TclHideLiteral_TCL_DECLARED
634/* 144 */
635EXTERN void		TclHideLiteral(Tcl_Interp *interp,
636				struct CompileEnv *envPtr, int index);
637#endif
638#ifndef TclGetAuxDataType_TCL_DECLARED
639#define TclGetAuxDataType_TCL_DECLARED
640/* 145 */
641EXTERN struct AuxDataType * TclGetAuxDataType(char *typeName);
642#endif
643#ifndef TclHandleCreate_TCL_DECLARED
644#define TclHandleCreate_TCL_DECLARED
645/* 146 */
646EXTERN TclHandle	TclHandleCreate(VOID *ptr);
647#endif
648#ifndef TclHandleFree_TCL_DECLARED
649#define TclHandleFree_TCL_DECLARED
650/* 147 */
651EXTERN void		TclHandleFree(TclHandle handle);
652#endif
653#ifndef TclHandlePreserve_TCL_DECLARED
654#define TclHandlePreserve_TCL_DECLARED
655/* 148 */
656EXTERN TclHandle	TclHandlePreserve(TclHandle handle);
657#endif
658#ifndef TclHandleRelease_TCL_DECLARED
659#define TclHandleRelease_TCL_DECLARED
660/* 149 */
661EXTERN void		TclHandleRelease(TclHandle handle);
662#endif
663#ifndef TclRegAbout_TCL_DECLARED
664#define TclRegAbout_TCL_DECLARED
665/* 150 */
666EXTERN int		TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
667#endif
668#ifndef TclRegExpRangeUniChar_TCL_DECLARED
669#define TclRegExpRangeUniChar_TCL_DECLARED
670/* 151 */
671EXTERN void		TclRegExpRangeUniChar(Tcl_RegExp re, int index,
672				int *startPtr, int *endPtr);
673#endif
674#ifndef TclSetLibraryPath_TCL_DECLARED
675#define TclSetLibraryPath_TCL_DECLARED
676/* 152 */
677EXTERN void		TclSetLibraryPath(Tcl_Obj *pathPtr);
678#endif
679#ifndef TclGetLibraryPath_TCL_DECLARED
680#define TclGetLibraryPath_TCL_DECLARED
681/* 153 */
682EXTERN Tcl_Obj *	TclGetLibraryPath(void);
683#endif
684/* Slot 154 is reserved */
685/* Slot 155 is reserved */
686#ifndef TclRegError_TCL_DECLARED
687#define TclRegError_TCL_DECLARED
688/* 156 */
689EXTERN void		TclRegError(Tcl_Interp *interp, CONST char *msg,
690				int status);
691#endif
692#ifndef TclVarTraceExists_TCL_DECLARED
693#define TclVarTraceExists_TCL_DECLARED
694/* 157 */
695EXTERN Var *		TclVarTraceExists(Tcl_Interp *interp,
696				CONST char *varName);
697#endif
698#ifndef TclSetStartupScriptFileName_TCL_DECLARED
699#define TclSetStartupScriptFileName_TCL_DECLARED
700/* 158 */
701EXTERN void		TclSetStartupScriptFileName(CONST char *filename);
702#endif
703#ifndef TclGetStartupScriptFileName_TCL_DECLARED
704#define TclGetStartupScriptFileName_TCL_DECLARED
705/* 159 */
706EXTERN CONST84_RETURN char * TclGetStartupScriptFileName(void);
707#endif
708/* Slot 160 is reserved */
709#ifndef TclChannelTransform_TCL_DECLARED
710#define TclChannelTransform_TCL_DECLARED
711/* 161 */
712EXTERN int		TclChannelTransform(Tcl_Interp *interp,
713				Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
714#endif
715#ifndef TclChannelEventScriptInvoker_TCL_DECLARED
716#define TclChannelEventScriptInvoker_TCL_DECLARED
717/* 162 */
718EXTERN void		TclChannelEventScriptInvoker(ClientData clientData,
719				int flags);
720#endif
721#ifndef TclGetInstructionTable_TCL_DECLARED
722#define TclGetInstructionTable_TCL_DECLARED
723/* 163 */
724EXTERN void *		TclGetInstructionTable(void);
725#endif
726#ifndef TclExpandCodeArray_TCL_DECLARED
727#define TclExpandCodeArray_TCL_DECLARED
728/* 164 */
729EXTERN void		TclExpandCodeArray(void *envPtr);
730#endif
731#ifndef TclpSetInitialEncodings_TCL_DECLARED
732#define TclpSetInitialEncodings_TCL_DECLARED
733/* 165 */
734EXTERN void		TclpSetInitialEncodings(void);
735#endif
736#ifndef TclListObjSetElement_TCL_DECLARED
737#define TclListObjSetElement_TCL_DECLARED
738/* 166 */
739EXTERN int		TclListObjSetElement(Tcl_Interp *interp,
740				Tcl_Obj *listPtr, int index,
741				Tcl_Obj *valuePtr);
742#endif
743#ifndef TclSetStartupScriptPath_TCL_DECLARED
744#define TclSetStartupScriptPath_TCL_DECLARED
745/* 167 */
746EXTERN void		TclSetStartupScriptPath(Tcl_Obj *pathPtr);
747#endif
748#ifndef TclGetStartupScriptPath_TCL_DECLARED
749#define TclGetStartupScriptPath_TCL_DECLARED
750/* 168 */
751EXTERN Tcl_Obj *	TclGetStartupScriptPath(void);
752#endif
753#ifndef TclpUtfNcmp2_TCL_DECLARED
754#define TclpUtfNcmp2_TCL_DECLARED
755/* 169 */
756EXTERN int		TclpUtfNcmp2(CONST char *s1, CONST char *s2,
757				unsigned long n);
758#endif
759#ifndef TclCheckInterpTraces_TCL_DECLARED
760#define TclCheckInterpTraces_TCL_DECLARED
761/* 170 */
762EXTERN int		TclCheckInterpTraces(Tcl_Interp *interp,
763				CONST char *command, int numChars,
764				Command *cmdPtr, int result, int traceFlags,
765				int objc, Tcl_Obj *CONST objv[]);
766#endif
767#ifndef TclCheckExecutionTraces_TCL_DECLARED
768#define TclCheckExecutionTraces_TCL_DECLARED
769/* 171 */
770EXTERN int		TclCheckExecutionTraces(Tcl_Interp *interp,
771				CONST char *command, int numChars,
772				Command *cmdPtr, int result, int traceFlags,
773				int objc, Tcl_Obj *CONST objv[]);
774#endif
775#ifndef TclInThreadExit_TCL_DECLARED
776#define TclInThreadExit_TCL_DECLARED
777/* 172 */
778EXTERN int		TclInThreadExit(void);
779#endif
780#ifndef TclUniCharMatch_TCL_DECLARED
781#define TclUniCharMatch_TCL_DECLARED
782/* 173 */
783EXTERN int		TclUniCharMatch(CONST Tcl_UniChar *string,
784				int strLen, CONST Tcl_UniChar *pattern,
785				int ptnLen, int flags);
786#endif
787/* Slot 174 is reserved */
788#ifndef TclCallVarTraces_TCL_DECLARED
789#define TclCallVarTraces_TCL_DECLARED
790/* 175 */
791EXTERN int		TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
792				Var *varPtr, CONST char *part1,
793				CONST char *part2, int flags,
794				int leaveErrMsg);
795#endif
796#ifndef TclCleanupVar_TCL_DECLARED
797#define TclCleanupVar_TCL_DECLARED
798/* 176 */
799EXTERN void		TclCleanupVar(Var *varPtr, Var *arrayPtr);
800#endif
801#ifndef TclVarErrMsg_TCL_DECLARED
802#define TclVarErrMsg_TCL_DECLARED
803/* 177 */
804EXTERN void		TclVarErrMsg(Tcl_Interp *interp, CONST char *part1,
805				CONST char *part2, CONST char *operation,
806				CONST char *reason);
807#endif
808#ifndef Tcl_SetStartupScript_TCL_DECLARED
809#define Tcl_SetStartupScript_TCL_DECLARED
810/* 178 */
811EXTERN void		Tcl_SetStartupScript(Tcl_Obj *pathPtr,
812				CONST char*encodingName);
813#endif
814#ifndef Tcl_GetStartupScript_TCL_DECLARED
815#define Tcl_GetStartupScript_TCL_DECLARED
816/* 179 */
817EXTERN Tcl_Obj *	Tcl_GetStartupScript(CONST char **encodingNamePtr);
818#endif
819/* Slot 180 is reserved */
820/* Slot 181 is reserved */
821#ifndef TclpLocaltime_TCL_DECLARED
822#define TclpLocaltime_TCL_DECLARED
823/* 182 */
824EXTERN struct tm *	TclpLocaltime(CONST time_t *clock);
825#endif
826#ifndef TclpGmtime_TCL_DECLARED
827#define TclpGmtime_TCL_DECLARED
828/* 183 */
829EXTERN struct tm *	TclpGmtime(CONST time_t *clock);
830#endif
831/* Slot 184 is reserved */
832/* Slot 185 is reserved */
833/* Slot 186 is reserved */
834/* Slot 187 is reserved */
835/* Slot 188 is reserved */
836/* Slot 189 is reserved */
837/* Slot 190 is reserved */
838/* Slot 191 is reserved */
839/* Slot 192 is reserved */
840/* Slot 193 is reserved */
841/* Slot 194 is reserved */
842/* Slot 195 is reserved */
843/* Slot 196 is reserved */
844/* Slot 197 is reserved */
845#ifndef TclObjGetFrame_TCL_DECLARED
846#define TclObjGetFrame_TCL_DECLARED
847/* 198 */
848EXTERN int		TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
849				CallFrame **framePtrPtr);
850#endif
851/* Slot 199 is reserved */
852#ifndef TclpObjRemoveDirectory_TCL_DECLARED
853#define TclpObjRemoveDirectory_TCL_DECLARED
854/* 200 */
855EXTERN int		TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
856				int recursive, Tcl_Obj **errorPtr);
857#endif
858#ifndef TclpObjCopyDirectory_TCL_DECLARED
859#define TclpObjCopyDirectory_TCL_DECLARED
860/* 201 */
861EXTERN int		TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
862				Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
863#endif
864#ifndef TclpObjCreateDirectory_TCL_DECLARED
865#define TclpObjCreateDirectory_TCL_DECLARED
866/* 202 */
867EXTERN int		TclpObjCreateDirectory(Tcl_Obj *pathPtr);
868#endif
869#ifndef TclpObjDeleteFile_TCL_DECLARED
870#define TclpObjDeleteFile_TCL_DECLARED
871/* 203 */
872EXTERN int		TclpObjDeleteFile(Tcl_Obj *pathPtr);
873#endif
874#ifndef TclpObjCopyFile_TCL_DECLARED
875#define TclpObjCopyFile_TCL_DECLARED
876/* 204 */
877EXTERN int		TclpObjCopyFile(Tcl_Obj *srcPathPtr,
878				Tcl_Obj *destPathPtr);
879#endif
880#ifndef TclpObjRenameFile_TCL_DECLARED
881#define TclpObjRenameFile_TCL_DECLARED
882/* 205 */
883EXTERN int		TclpObjRenameFile(Tcl_Obj *srcPathPtr,
884				Tcl_Obj *destPathPtr);
885#endif
886#ifndef TclpObjStat_TCL_DECLARED
887#define TclpObjStat_TCL_DECLARED
888/* 206 */
889EXTERN int		TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
890#endif
891#ifndef TclpObjAccess_TCL_DECLARED
892#define TclpObjAccess_TCL_DECLARED
893/* 207 */
894EXTERN int		TclpObjAccess(Tcl_Obj *pathPtr, int mode);
895#endif
896#ifndef TclpOpenFileChannel_TCL_DECLARED
897#define TclpOpenFileChannel_TCL_DECLARED
898/* 208 */
899EXTERN Tcl_Channel	TclpOpenFileChannel(Tcl_Interp *interp,
900				Tcl_Obj *pathPtr, int mode, int permissions);
901#endif
902/* Slot 209 is reserved */
903/* Slot 210 is reserved */
904/* Slot 211 is reserved */
905#ifndef TclpFindExecutable_TCL_DECLARED
906#define TclpFindExecutable_TCL_DECLARED
907/* 212 */
908EXTERN void		TclpFindExecutable(CONST char *argv0);
909#endif
910#ifndef TclGetObjNameOfExecutable_TCL_DECLARED
911#define TclGetObjNameOfExecutable_TCL_DECLARED
912/* 213 */
913EXTERN Tcl_Obj *	TclGetObjNameOfExecutable(void);
914#endif
915#ifndef TclSetObjNameOfExecutable_TCL_DECLARED
916#define TclSetObjNameOfExecutable_TCL_DECLARED
917/* 214 */
918EXTERN void		TclSetObjNameOfExecutable(Tcl_Obj *name,
919				Tcl_Encoding encoding);
920#endif
921#ifndef TclStackAlloc_TCL_DECLARED
922#define TclStackAlloc_TCL_DECLARED
923/* 215 */
924EXTERN void *		TclStackAlloc(Tcl_Interp *interp, int numBytes);
925#endif
926#ifndef TclStackFree_TCL_DECLARED
927#define TclStackFree_TCL_DECLARED
928/* 216 */
929EXTERN void		TclStackFree(Tcl_Interp *interp, void *freePtr);
930#endif
931#ifndef TclPushStackFrame_TCL_DECLARED
932#define TclPushStackFrame_TCL_DECLARED
933/* 217 */
934EXTERN int		TclPushStackFrame(Tcl_Interp *interp,
935				Tcl_CallFrame **framePtrPtr,
936				Tcl_Namespace *namespacePtr,
937				int isProcCallFrame);
938#endif
939#ifndef TclPopStackFrame_TCL_DECLARED
940#define TclPopStackFrame_TCL_DECLARED
941/* 218 */
942EXTERN void		TclPopStackFrame(Tcl_Interp *interp);
943#endif
944/* Slot 219 is reserved */
945/* Slot 220 is reserved */
946/* Slot 221 is reserved */
947/* Slot 222 is reserved */
948/* Slot 223 is reserved */
949#ifndef TclGetPlatform_TCL_DECLARED
950#define TclGetPlatform_TCL_DECLARED
951/* 224 */
952EXTERN TclPlatformType * TclGetPlatform(void);
953#endif
954#ifndef TclTraceDictPath_TCL_DECLARED
955#define TclTraceDictPath_TCL_DECLARED
956/* 225 */
957EXTERN Tcl_Obj *	TclTraceDictPath(Tcl_Interp *interp,
958				Tcl_Obj *rootPtr, int keyc,
959				Tcl_Obj *CONST keyv[], int flags);
960#endif
961#ifndef TclObjBeingDeleted_TCL_DECLARED
962#define TclObjBeingDeleted_TCL_DECLARED
963/* 226 */
964EXTERN int		TclObjBeingDeleted(Tcl_Obj *objPtr);
965#endif
966#ifndef TclSetNsPath_TCL_DECLARED
967#define TclSetNsPath_TCL_DECLARED
968/* 227 */
969EXTERN void		TclSetNsPath(Namespace *nsPtr, int pathLength,
970				Tcl_Namespace *pathAry[]);
971#endif
972#ifndef TclObjInterpProcCore_TCL_DECLARED
973#define TclObjInterpProcCore_TCL_DECLARED
974/* 228 */
975EXTERN int		TclObjInterpProcCore(register Tcl_Interp *interp,
976				Tcl_Obj *procNameObj, int skip,
977				ProcErrorProc errorProc);
978#endif
979#ifndef TclPtrMakeUpvar_TCL_DECLARED
980#define TclPtrMakeUpvar_TCL_DECLARED
981/* 229 */
982EXTERN int		TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
983				CONST char *myName, int myFlags, int index);
984#endif
985#ifndef TclObjLookupVar_TCL_DECLARED
986#define TclObjLookupVar_TCL_DECLARED
987/* 230 */
988EXTERN Var *		TclObjLookupVar(Tcl_Interp *interp,
989				Tcl_Obj *part1Ptr, CONST char *part2,
990				int flags, CONST char *msg,
991				CONST int createPart1, CONST int createPart2,
992				Var **arrayPtrPtr);
993#endif
994#ifndef TclGetNamespaceFromObj_TCL_DECLARED
995#define TclGetNamespaceFromObj_TCL_DECLARED
996/* 231 */
997EXTERN int		TclGetNamespaceFromObj(Tcl_Interp *interp,
998				Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
999#endif
1000#ifndef TclEvalObjEx_TCL_DECLARED
1001#define TclEvalObjEx_TCL_DECLARED
1002/* 232 */
1003EXTERN int		TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
1004				int flags, CONST CmdFrame *invoker, int word);
1005#endif
1006#ifndef TclGetSrcInfoForPc_TCL_DECLARED
1007#define TclGetSrcInfoForPc_TCL_DECLARED
1008/* 233 */
1009EXTERN void		TclGetSrcInfoForPc(CmdFrame *contextPtr);
1010#endif
1011#ifndef TclVarHashCreateVar_TCL_DECLARED
1012#define TclVarHashCreateVar_TCL_DECLARED
1013/* 234 */
1014EXTERN Var *		TclVarHashCreateVar(TclVarHashTable *tablePtr,
1015				CONST char *key, int *newPtr);
1016#endif
1017#ifndef TclInitVarHashTable_TCL_DECLARED
1018#define TclInitVarHashTable_TCL_DECLARED
1019/* 235 */
1020EXTERN void		TclInitVarHashTable(TclVarHashTable *tablePtr,
1021				Namespace *nsPtr);
1022#endif
1023#ifndef TclBackgroundException_TCL_DECLARED
1024#define TclBackgroundException_TCL_DECLARED
1025/* 236 */
1026EXTERN void		TclBackgroundException(Tcl_Interp *interp, int code);
1027#endif
1028/* Slot 237 is reserved */
1029/* Slot 238 is reserved */
1030/* Slot 239 is reserved */
1031/* Slot 240 is reserved */
1032/* Slot 241 is reserved */
1033/* Slot 242 is reserved */
1034#ifndef TclDbDumpActiveObjects_TCL_DECLARED
1035#define TclDbDumpActiveObjects_TCL_DECLARED
1036/* 243 */
1037EXTERN void		TclDbDumpActiveObjects(FILE *outFile);
1038#endif
1039
1040typedef struct TclIntStubs {
1041    int magic;
1042    struct TclIntStubHooks *hooks;
1043
1044    void *reserved0;
1045    void *reserved1;
1046    void *reserved2;
1047    void (*tclAllocateFreeObjects) (void); /* 3 */
1048    void *reserved4;
1049    int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */
1050    void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */
1051    int (*tclCopyAndCollapse) (int count, CONST char *src, char *dst); /* 7 */
1052    int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */
1053    int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, CONST char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */
1054    int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, CONST char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */
1055    void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */
1056    void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */
1057    void *reserved13;
1058    void (*tclDumpMemoryInfo) (FILE *outFile); /* 14 */
1059    void *reserved15;
1060    void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */
1061    void *reserved17;
1062    void *reserved18;
1063    void *reserved19;
1064    void *reserved20;
1065    void *reserved21;
1066    int (*tclFindElement) (Tcl_Interp *interp, CONST char *listStr, int listLength, CONST char **elementPtr, CONST char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */
1067    Proc * (*tclFindProc) (Interp *iPtr, CONST char *procName); /* 23 */
1068    void *reserved24;
1069    void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */
1070    void *reserved26;
1071    void *reserved27;
1072    Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
1073    void *reserved29;
1074    void *reserved30;
1075    CONST char * (*tclGetExtension) (CONST char *name); /* 31 */
1076    int (*tclGetFrame) (Tcl_Interp *interp, CONST char *str, CallFrame **framePtrPtr); /* 32 */
1077    void *reserved33;
1078    int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
1079    void *reserved35;
1080    int (*tclGetLong) (Tcl_Interp *interp, CONST char *str, long *longPtr); /* 36 */
1081    int (*tclGetLoadedPackages) (Tcl_Interp *interp, char *targetName); /* 37 */
1082    int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, CONST char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, CONST char **simpleNamePtr); /* 38 */
1083    TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */
1084    int (*tclGetOpenMode) (Tcl_Interp *interp, CONST char *str, int *seekFlagPtr); /* 40 */
1085    Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
1086    char * (*tclpGetUserHome) (CONST char *name, Tcl_DString *bufferPtr); /* 42 */
1087    void *reserved43;
1088    int (*tclGuessPackageName) (CONST char *fileName, Tcl_DString *bufPtr); /* 44 */
1089    int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
1090    int (*tclInExit) (void); /* 46 */
1091    void *reserved47;
1092    void *reserved48;
1093    void *reserved49;
1094    void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */
1095    int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */
1096    void *reserved52;
1097    int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */
1098    int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */
1099    Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */
1100    void *reserved56;
1101    void *reserved57;
1102    Var * (*tclLookupVar) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, CONST char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */
1103    void *reserved59;
1104    int (*tclNeedSpace) (CONST char *start, CONST char *end); /* 60 */
1105    Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */
1106    int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */
1107    int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */
1108    int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */
1109    void *reserved65;
1110    void *reserved66;
1111    void *reserved67;
1112    void *reserved68;
1113    char * (*tclpAlloc) (unsigned int size); /* 69 */
1114    void *reserved70;
1115    void *reserved71;
1116    void *reserved72;
1117    void *reserved73;
1118    void (*tclpFree) (char *ptr); /* 74 */
1119    unsigned long (*tclpGetClicks) (void); /* 75 */
1120    unsigned long (*tclpGetSeconds) (void); /* 76 */
1121    void (*tclpGetTime) (Tcl_Time *time); /* 77 */
1122    int (*tclpGetTimeZone) (unsigned long time); /* 78 */
1123    void *reserved79;
1124    void *reserved80;
1125    char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */
1126    void *reserved82;
1127    void *reserved83;
1128    void *reserved84;
1129    void *reserved85;
1130    void *reserved86;
1131    void *reserved87;
1132    char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, CONST char *name1, CONST char *name2, int flags); /* 88 */
1133    int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */
1134    void *reserved90;
1135    void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */
1136    int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, CONST char *procName); /* 92 */
1137    void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
1138    void *reserved94;
1139    void *reserved95;
1140    int (*tclRenameCommand) (Tcl_Interp *interp, CONST char *oldName, CONST char *newName); /* 96 */
1141    void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */
1142    int (*tclServiceIdle) (void); /* 98 */
1143    void *reserved99;
1144    void *reserved100;
1145    char * (*tclSetPreInitScript) (char *string); /* 101 */
1146    void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */
1147    int (*tclSockGetPort) (Tcl_Interp *interp, CONST char *str, CONST char *proto, int *portPtr); /* 103 */
1148    int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
1149    void *reserved105;
1150    void *reserved106;
1151    void *reserved107;
1152    void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */
1153    int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */
1154    void *reserved110;
1155    void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */
1156    int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */
1157    Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */
1158    void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */
1159    int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 115 */
1160    Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */
1161    Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */
1162    int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolverInfo *resInfo); /* 118 */
1163    int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */
1164    Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */
1165    int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 121 */
1166    Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */
1167    void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */
1168    Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */
1169    Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */
1170    void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */
1171    int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 127 */
1172    void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */
1173    int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */
1174    int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, CONST char *name); /* 130 */
1175    void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */
1176    int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */
1177    struct tm * (*tclpGetDate) (CONST time_t *time, int useGMT); /* 133 */
1178    void *reserved134;
1179    void *reserved135;
1180    void *reserved136;
1181    void *reserved137;
1182    CONST84_RETURN char * (*tclGetEnv) (CONST char *name, Tcl_DString *valuePtr); /* 138 */
1183    void *reserved139;
1184    void *reserved140;
1185    CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */
1186    int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */
1187    int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */
1188    void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */
1189    struct AuxDataType * (*tclGetAuxDataType) (char *typeName); /* 145 */
1190    TclHandle (*tclHandleCreate) (VOID *ptr); /* 146 */
1191    void (*tclHandleFree) (TclHandle handle); /* 147 */
1192    TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
1193    void (*tclHandleRelease) (TclHandle handle); /* 149 */
1194    int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */
1195    void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */
1196    void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */
1197    Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
1198    void *reserved154;
1199    void *reserved155;
1200    void (*tclRegError) (Tcl_Interp *interp, CONST char *msg, int status); /* 156 */
1201    Var * (*tclVarTraceExists) (Tcl_Interp *interp, CONST char *varName); /* 157 */
1202    void (*tclSetStartupScriptFileName) (CONST char *filename); /* 158 */
1203    CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */
1204    void *reserved160;
1205    int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */
1206    void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
1207    void * (*tclGetInstructionTable) (void); /* 163 */
1208    void (*tclExpandCodeArray) (void *envPtr); /* 164 */
1209    void (*tclpSetInitialEncodings) (void); /* 165 */
1210    int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */
1211    void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */
1212    Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
1213    int (*tclpUtfNcmp2) (CONST char *s1, CONST char *s2, unsigned long n); /* 169 */
1214    int (*tclCheckInterpTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */
1215    int (*tclCheckExecutionTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */
1216    int (*tclInThreadExit) (void); /* 172 */
1217    int (*tclUniCharMatch) (CONST Tcl_UniChar *string, int strLen, CONST Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */
1218    void *reserved174;
1219    int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, CONST char *part1, CONST char *part2, int flags, int leaveErrMsg); /* 175 */
1220    void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */
1221    void (*tclVarErrMsg) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *operation, CONST char *reason); /* 177 */
1222    void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, CONST char*encodingName); /* 178 */
1223    Tcl_Obj * (*tcl_GetStartupScript) (CONST char **encodingNamePtr); /* 179 */
1224    void *reserved180;
1225    void *reserved181;
1226    struct tm * (*tclpLocaltime) (CONST time_t *clock); /* 182 */
1227    struct tm * (*tclpGmtime) (CONST time_t *clock); /* 183 */
1228    void *reserved184;
1229    void *reserved185;
1230    void *reserved186;
1231    void *reserved187;
1232    void *reserved188;
1233    void *reserved189;
1234    void *reserved190;
1235    void *reserved191;
1236    void *reserved192;
1237    void *reserved193;
1238    void *reserved194;
1239    void *reserved195;
1240    void *reserved196;
1241    void *reserved197;
1242    int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */
1243    void *reserved199;
1244    int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */
1245    int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */
1246    int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */
1247    int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */
1248    int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */
1249    int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */
1250    int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */
1251    int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */
1252    Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */
1253    void *reserved209;
1254    void *reserved210;
1255    void *reserved211;
1256    void (*tclpFindExecutable) (CONST char *argv0); /* 212 */
1257    Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
1258    void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */
1259    void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */
1260    void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */
1261    int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */
1262    void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */
1263    void *reserved219;
1264    void *reserved220;
1265    void *reserved221;
1266    void *reserved222;
1267    void *reserved223;
1268    TclPlatformType * (*tclGetPlatform) (void); /* 224 */
1269    Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */
1270    int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */
1271    void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */
1272    int (*tclObjInterpProcCore) (register Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc errorProc); /* 228 */
1273    int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, CONST char *myName, int myFlags, int index); /* 229 */
1274    Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, CONST char *part2, int flags, CONST char *msg, CONST int createPart1, CONST int createPart2, Var **arrayPtrPtr); /* 230 */
1275    int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */
1276    int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, CONST CmdFrame *invoker, int word); /* 232 */
1277    void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */
1278    Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, CONST char *key, int *newPtr); /* 234 */
1279    void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */
1280    void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */
1281    void *reserved237;
1282    void *reserved238;
1283    void *reserved239;
1284    void *reserved240;
1285    void *reserved241;
1286    void *reserved242;
1287    void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */
1288} TclIntStubs;
1289
1290#ifdef __cplusplus
1291extern "C" {
1292#endif
1293extern TclIntStubs *tclIntStubsPtr;
1294#ifdef __cplusplus
1295}
1296#endif
1297
1298#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
1299
1300/*
1301 * Inline function declarations:
1302 */
1303
1304/* Slot 0 is reserved */
1305/* Slot 1 is reserved */
1306/* Slot 2 is reserved */
1307#ifndef TclAllocateFreeObjects
1308#define TclAllocateFreeObjects \
1309	(tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
1310#endif
1311/* Slot 4 is reserved */
1312#ifndef TclCleanupChildren
1313#define TclCleanupChildren \
1314	(tclIntStubsPtr->tclCleanupChildren) /* 5 */
1315#endif
1316#ifndef TclCleanupCommand
1317#define TclCleanupCommand \
1318	(tclIntStubsPtr->tclCleanupCommand) /* 6 */
1319#endif
1320#ifndef TclCopyAndCollapse
1321#define TclCopyAndCollapse \
1322	(tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
1323#endif
1324#ifndef TclCopyChannel
1325#define TclCopyChannel \
1326	(tclIntStubsPtr->tclCopyChannel) /* 8 */
1327#endif
1328#ifndef TclCreatePipeline
1329#define TclCreatePipeline \
1330	(tclIntStubsPtr->tclCreatePipeline) /* 9 */
1331#endif
1332#ifndef TclCreateProc
1333#define TclCreateProc \
1334	(tclIntStubsPtr->tclCreateProc) /* 10 */
1335#endif
1336#ifndef TclDeleteCompiledLocalVars
1337#define TclDeleteCompiledLocalVars \
1338	(tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
1339#endif
1340#ifndef TclDeleteVars
1341#define TclDeleteVars \
1342	(tclIntStubsPtr->tclDeleteVars) /* 12 */
1343#endif
1344/* Slot 13 is reserved */
1345#ifndef TclDumpMemoryInfo
1346#define TclDumpMemoryInfo \
1347	(tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
1348#endif
1349/* Slot 15 is reserved */
1350#ifndef TclExprFloatError
1351#define TclExprFloatError \
1352	(tclIntStubsPtr->tclExprFloatError) /* 16 */
1353#endif
1354/* Slot 17 is reserved */
1355/* Slot 18 is reserved */
1356/* Slot 19 is reserved */
1357/* Slot 20 is reserved */
1358/* Slot 21 is reserved */
1359#ifndef TclFindElement
1360#define TclFindElement \
1361	(tclIntStubsPtr->tclFindElement) /* 22 */
1362#endif
1363#ifndef TclFindProc
1364#define TclFindProc \
1365	(tclIntStubsPtr->tclFindProc) /* 23 */
1366#endif
1367/* Slot 24 is reserved */
1368#ifndef TclFreePackageInfo
1369#define TclFreePackageInfo \
1370	(tclIntStubsPtr->tclFreePackageInfo) /* 25 */
1371#endif
1372/* Slot 26 is reserved */
1373/* Slot 27 is reserved */
1374#ifndef TclpGetDefaultStdChannel
1375#define TclpGetDefaultStdChannel \
1376	(tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
1377#endif
1378/* Slot 29 is reserved */
1379/* Slot 30 is reserved */
1380#ifndef TclGetExtension
1381#define TclGetExtension \
1382	(tclIntStubsPtr->tclGetExtension) /* 31 */
1383#endif
1384#ifndef TclGetFrame
1385#define TclGetFrame \
1386	(tclIntStubsPtr->tclGetFrame) /* 32 */
1387#endif
1388/* Slot 33 is reserved */
1389#ifndef TclGetIntForIndex
1390#define TclGetIntForIndex \
1391	(tclIntStubsPtr->tclGetIntForIndex) /* 34 */
1392#endif
1393/* Slot 35 is reserved */
1394#ifndef TclGetLong
1395#define TclGetLong \
1396	(tclIntStubsPtr->tclGetLong) /* 36 */
1397#endif
1398#ifndef TclGetLoadedPackages
1399#define TclGetLoadedPackages \
1400	(tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
1401#endif
1402#ifndef TclGetNamespaceForQualName
1403#define TclGetNamespaceForQualName \
1404	(tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
1405#endif
1406#ifndef TclGetObjInterpProc
1407#define TclGetObjInterpProc \
1408	(tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
1409#endif
1410#ifndef TclGetOpenMode
1411#define TclGetOpenMode \
1412	(tclIntStubsPtr->tclGetOpenMode) /* 40 */
1413#endif
1414#ifndef TclGetOriginalCommand
1415#define TclGetOriginalCommand \
1416	(tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
1417#endif
1418#ifndef TclpGetUserHome
1419#define TclpGetUserHome \
1420	(tclIntStubsPtr->tclpGetUserHome) /* 42 */
1421#endif
1422/* Slot 43 is reserved */
1423#ifndef TclGuessPackageName
1424#define TclGuessPackageName \
1425	(tclIntStubsPtr->tclGuessPackageName) /* 44 */
1426#endif
1427#ifndef TclHideUnsafeCommands
1428#define TclHideUnsafeCommands \
1429	(tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
1430#endif
1431#ifndef TclInExit
1432#define TclInExit \
1433	(tclIntStubsPtr->tclInExit) /* 46 */
1434#endif
1435/* Slot 47 is reserved */
1436/* Slot 48 is reserved */
1437/* Slot 49 is reserved */
1438#ifndef TclInitCompiledLocals
1439#define TclInitCompiledLocals \
1440	(tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
1441#endif
1442#ifndef TclInterpInit
1443#define TclInterpInit \
1444	(tclIntStubsPtr->tclInterpInit) /* 51 */
1445#endif
1446/* Slot 52 is reserved */
1447#ifndef TclInvokeObjectCommand
1448#define TclInvokeObjectCommand \
1449	(tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
1450#endif
1451#ifndef TclInvokeStringCommand
1452#define TclInvokeStringCommand \
1453	(tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
1454#endif
1455#ifndef TclIsProc
1456#define TclIsProc \
1457	(tclIntStubsPtr->tclIsProc) /* 55 */
1458#endif
1459/* Slot 56 is reserved */
1460/* Slot 57 is reserved */
1461#ifndef TclLookupVar
1462#define TclLookupVar \
1463	(tclIntStubsPtr->tclLookupVar) /* 58 */
1464#endif
1465/* Slot 59 is reserved */
1466#ifndef TclNeedSpace
1467#define TclNeedSpace \
1468	(tclIntStubsPtr->tclNeedSpace) /* 60 */
1469#endif
1470#ifndef TclNewProcBodyObj
1471#define TclNewProcBodyObj \
1472	(tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
1473#endif
1474#ifndef TclObjCommandComplete
1475#define TclObjCommandComplete \
1476	(tclIntStubsPtr->tclObjCommandComplete) /* 62 */
1477#endif
1478#ifndef TclObjInterpProc
1479#define TclObjInterpProc \
1480	(tclIntStubsPtr->tclObjInterpProc) /* 63 */
1481#endif
1482#ifndef TclObjInvoke
1483#define TclObjInvoke \
1484	(tclIntStubsPtr->tclObjInvoke) /* 64 */
1485#endif
1486/* Slot 65 is reserved */
1487/* Slot 66 is reserved */
1488/* Slot 67 is reserved */
1489/* Slot 68 is reserved */
1490#ifndef TclpAlloc
1491#define TclpAlloc \
1492	(tclIntStubsPtr->tclpAlloc) /* 69 */
1493#endif
1494/* Slot 70 is reserved */
1495/* Slot 71 is reserved */
1496/* Slot 72 is reserved */
1497/* Slot 73 is reserved */
1498#ifndef TclpFree
1499#define TclpFree \
1500	(tclIntStubsPtr->tclpFree) /* 74 */
1501#endif
1502#ifndef TclpGetClicks
1503#define TclpGetClicks \
1504	(tclIntStubsPtr->tclpGetClicks) /* 75 */
1505#endif
1506#ifndef TclpGetSeconds
1507#define TclpGetSeconds \
1508	(tclIntStubsPtr->tclpGetSeconds) /* 76 */
1509#endif
1510#ifndef TclpGetTime
1511#define TclpGetTime \
1512	(tclIntStubsPtr->tclpGetTime) /* 77 */
1513#endif
1514#ifndef TclpGetTimeZone
1515#define TclpGetTimeZone \
1516	(tclIntStubsPtr->tclpGetTimeZone) /* 78 */
1517#endif
1518/* Slot 79 is reserved */
1519/* Slot 80 is reserved */
1520#ifndef TclpRealloc
1521#define TclpRealloc \
1522	(tclIntStubsPtr->tclpRealloc) /* 81 */
1523#endif
1524/* Slot 82 is reserved */
1525/* Slot 83 is reserved */
1526/* Slot 84 is reserved */
1527/* Slot 85 is reserved */
1528/* Slot 86 is reserved */
1529/* Slot 87 is reserved */
1530#ifndef TclPrecTraceProc
1531#define TclPrecTraceProc \
1532	(tclIntStubsPtr->tclPrecTraceProc) /* 88 */
1533#endif
1534#ifndef TclPreventAliasLoop
1535#define TclPreventAliasLoop \
1536	(tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
1537#endif
1538/* Slot 90 is reserved */
1539#ifndef TclProcCleanupProc
1540#define TclProcCleanupProc \
1541	(tclIntStubsPtr->tclProcCleanupProc) /* 91 */
1542#endif
1543#ifndef TclProcCompileProc
1544#define TclProcCompileProc \
1545	(tclIntStubsPtr->tclProcCompileProc) /* 92 */
1546#endif
1547#ifndef TclProcDeleteProc
1548#define TclProcDeleteProc \
1549	(tclIntStubsPtr->tclProcDeleteProc) /* 93 */
1550#endif
1551/* Slot 94 is reserved */
1552/* Slot 95 is reserved */
1553#ifndef TclRenameCommand
1554#define TclRenameCommand \
1555	(tclIntStubsPtr->tclRenameCommand) /* 96 */
1556#endif
1557#ifndef TclResetShadowedCmdRefs
1558#define TclResetShadowedCmdRefs \
1559	(tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
1560#endif
1561#ifndef TclServiceIdle
1562#define TclServiceIdle \
1563	(tclIntStubsPtr->tclServiceIdle) /* 98 */
1564#endif
1565/* Slot 99 is reserved */
1566/* Slot 100 is reserved */
1567#ifndef TclSetPreInitScript
1568#define TclSetPreInitScript \
1569	(tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1570#endif
1571#ifndef TclSetupEnv
1572#define TclSetupEnv \
1573	(tclIntStubsPtr->tclSetupEnv) /* 102 */
1574#endif
1575#ifndef TclSockGetPort
1576#define TclSockGetPort \
1577	(tclIntStubsPtr->tclSockGetPort) /* 103 */
1578#endif
1579#ifndef TclSockMinimumBuffers
1580#define TclSockMinimumBuffers \
1581	(tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1582#endif
1583/* Slot 105 is reserved */
1584/* Slot 106 is reserved */
1585/* Slot 107 is reserved */
1586#ifndef TclTeardownNamespace
1587#define TclTeardownNamespace \
1588	(tclIntStubsPtr->tclTeardownNamespace) /* 108 */
1589#endif
1590#ifndef TclUpdateReturnInfo
1591#define TclUpdateReturnInfo \
1592	(tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
1593#endif
1594/* Slot 110 is reserved */
1595#ifndef Tcl_AddInterpResolvers
1596#define Tcl_AddInterpResolvers \
1597	(tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
1598#endif
1599#ifndef Tcl_AppendExportList
1600#define Tcl_AppendExportList \
1601	(tclIntStubsPtr->tcl_AppendExportList) /* 112 */
1602#endif
1603#ifndef Tcl_CreateNamespace
1604#define Tcl_CreateNamespace \
1605	(tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
1606#endif
1607#ifndef Tcl_DeleteNamespace
1608#define Tcl_DeleteNamespace \
1609	(tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
1610#endif
1611#ifndef Tcl_Export
1612#define Tcl_Export \
1613	(tclIntStubsPtr->tcl_Export) /* 115 */
1614#endif
1615#ifndef Tcl_FindCommand
1616#define Tcl_FindCommand \
1617	(tclIntStubsPtr->tcl_FindCommand) /* 116 */
1618#endif
1619#ifndef Tcl_FindNamespace
1620#define Tcl_FindNamespace \
1621	(tclIntStubsPtr->tcl_FindNamespace) /* 117 */
1622#endif
1623#ifndef Tcl_GetInterpResolvers
1624#define Tcl_GetInterpResolvers \
1625	(tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
1626#endif
1627#ifndef Tcl_GetNamespaceResolvers
1628#define Tcl_GetNamespaceResolvers \
1629	(tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
1630#endif
1631#ifndef Tcl_FindNamespaceVar
1632#define Tcl_FindNamespaceVar \
1633	(tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
1634#endif
1635#ifndef Tcl_ForgetImport
1636#define Tcl_ForgetImport \
1637	(tclIntStubsPtr->tcl_ForgetImport) /* 121 */
1638#endif
1639#ifndef Tcl_GetCommandFromObj
1640#define Tcl_GetCommandFromObj \
1641	(tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
1642#endif
1643#ifndef Tcl_GetCommandFullName
1644#define Tcl_GetCommandFullName \
1645	(tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
1646#endif
1647#ifndef Tcl_GetCurrentNamespace
1648#define Tcl_GetCurrentNamespace \
1649	(tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
1650#endif
1651#ifndef Tcl_GetGlobalNamespace
1652#define Tcl_GetGlobalNamespace \
1653	(tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
1654#endif
1655#ifndef Tcl_GetVariableFullName
1656#define Tcl_GetVariableFullName \
1657	(tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
1658#endif
1659#ifndef Tcl_Import
1660#define Tcl_Import \
1661	(tclIntStubsPtr->tcl_Import) /* 127 */
1662#endif
1663#ifndef Tcl_PopCallFrame
1664#define Tcl_PopCallFrame \
1665	(tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
1666#endif
1667#ifndef Tcl_PushCallFrame
1668#define Tcl_PushCallFrame \
1669	(tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
1670#endif
1671#ifndef Tcl_RemoveInterpResolvers
1672#define Tcl_RemoveInterpResolvers \
1673	(tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
1674#endif
1675#ifndef Tcl_SetNamespaceResolvers
1676#define Tcl_SetNamespaceResolvers \
1677	(tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
1678#endif
1679#ifndef TclpHasSockets
1680#define TclpHasSockets \
1681	(tclIntStubsPtr->tclpHasSockets) /* 132 */
1682#endif
1683#ifndef TclpGetDate
1684#define TclpGetDate \
1685	(tclIntStubsPtr->tclpGetDate) /* 133 */
1686#endif
1687/* Slot 134 is reserved */
1688/* Slot 135 is reserved */
1689/* Slot 136 is reserved */
1690/* Slot 137 is reserved */
1691#ifndef TclGetEnv
1692#define TclGetEnv \
1693	(tclIntStubsPtr->tclGetEnv) /* 138 */
1694#endif
1695/* Slot 139 is reserved */
1696/* Slot 140 is reserved */
1697#ifndef TclpGetCwd
1698#define TclpGetCwd \
1699	(tclIntStubsPtr->tclpGetCwd) /* 141 */
1700#endif
1701#ifndef TclSetByteCodeFromAny
1702#define TclSetByteCodeFromAny \
1703	(tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
1704#endif
1705#ifndef TclAddLiteralObj
1706#define TclAddLiteralObj \
1707	(tclIntStubsPtr->tclAddLiteralObj) /* 143 */
1708#endif
1709#ifndef TclHideLiteral
1710#define TclHideLiteral \
1711	(tclIntStubsPtr->tclHideLiteral) /* 144 */
1712#endif
1713#ifndef TclGetAuxDataType
1714#define TclGetAuxDataType \
1715	(tclIntStubsPtr->tclGetAuxDataType) /* 145 */
1716#endif
1717#ifndef TclHandleCreate
1718#define TclHandleCreate \
1719	(tclIntStubsPtr->tclHandleCreate) /* 146 */
1720#endif
1721#ifndef TclHandleFree
1722#define TclHandleFree \
1723	(tclIntStubsPtr->tclHandleFree) /* 147 */
1724#endif
1725#ifndef TclHandlePreserve
1726#define TclHandlePreserve \
1727	(tclIntStubsPtr->tclHandlePreserve) /* 148 */
1728#endif
1729#ifndef TclHandleRelease
1730#define TclHandleRelease \
1731	(tclIntStubsPtr->tclHandleRelease) /* 149 */
1732#endif
1733#ifndef TclRegAbout
1734#define TclRegAbout \
1735	(tclIntStubsPtr->tclRegAbout) /* 150 */
1736#endif
1737#ifndef TclRegExpRangeUniChar
1738#define TclRegExpRangeUniChar \
1739	(tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
1740#endif
1741#ifndef TclSetLibraryPath
1742#define TclSetLibraryPath \
1743	(tclIntStubsPtr->tclSetLibraryPath) /* 152 */
1744#endif
1745#ifndef TclGetLibraryPath
1746#define TclGetLibraryPath \
1747	(tclIntStubsPtr->tclGetLibraryPath) /* 153 */
1748#endif
1749/* Slot 154 is reserved */
1750/* Slot 155 is reserved */
1751#ifndef TclRegError
1752#define TclRegError \
1753	(tclIntStubsPtr->tclRegError) /* 156 */
1754#endif
1755#ifndef TclVarTraceExists
1756#define TclVarTraceExists \
1757	(tclIntStubsPtr->tclVarTraceExists) /* 157 */
1758#endif
1759#ifndef TclSetStartupScriptFileName
1760#define TclSetStartupScriptFileName \
1761	(tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
1762#endif
1763#ifndef TclGetStartupScriptFileName
1764#define TclGetStartupScriptFileName \
1765	(tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
1766#endif
1767/* Slot 160 is reserved */
1768#ifndef TclChannelTransform
1769#define TclChannelTransform \
1770	(tclIntStubsPtr->tclChannelTransform) /* 161 */
1771#endif
1772#ifndef TclChannelEventScriptInvoker
1773#define TclChannelEventScriptInvoker \
1774	(tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
1775#endif
1776#ifndef TclGetInstructionTable
1777#define TclGetInstructionTable \
1778	(tclIntStubsPtr->tclGetInstructionTable) /* 163 */
1779#endif
1780#ifndef TclExpandCodeArray
1781#define TclExpandCodeArray \
1782	(tclIntStubsPtr->tclExpandCodeArray) /* 164 */
1783#endif
1784#ifndef TclpSetInitialEncodings
1785#define TclpSetInitialEncodings \
1786	(tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
1787#endif
1788#ifndef TclListObjSetElement
1789#define TclListObjSetElement \
1790	(tclIntStubsPtr->tclListObjSetElement) /* 166 */
1791#endif
1792#ifndef TclSetStartupScriptPath
1793#define TclSetStartupScriptPath \
1794	(tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
1795#endif
1796#ifndef TclGetStartupScriptPath
1797#define TclGetStartupScriptPath \
1798	(tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
1799#endif
1800#ifndef TclpUtfNcmp2
1801#define TclpUtfNcmp2 \
1802	(tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
1803#endif
1804#ifndef TclCheckInterpTraces
1805#define TclCheckInterpTraces \
1806	(tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
1807#endif
1808#ifndef TclCheckExecutionTraces
1809#define TclCheckExecutionTraces \
1810	(tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
1811#endif
1812#ifndef TclInThreadExit
1813#define TclInThreadExit \
1814	(tclIntStubsPtr->tclInThreadExit) /* 172 */
1815#endif
1816#ifndef TclUniCharMatch
1817#define TclUniCharMatch \
1818	(tclIntStubsPtr->tclUniCharMatch) /* 173 */
1819#endif
1820/* Slot 174 is reserved */
1821#ifndef TclCallVarTraces
1822#define TclCallVarTraces \
1823	(tclIntStubsPtr->tclCallVarTraces) /* 175 */
1824#endif
1825#ifndef TclCleanupVar
1826#define TclCleanupVar \
1827	(tclIntStubsPtr->tclCleanupVar) /* 176 */
1828#endif
1829#ifndef TclVarErrMsg
1830#define TclVarErrMsg \
1831	(tclIntStubsPtr->tclVarErrMsg) /* 177 */
1832#endif
1833#ifndef Tcl_SetStartupScript
1834#define Tcl_SetStartupScript \
1835	(tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
1836#endif
1837#ifndef Tcl_GetStartupScript
1838#define Tcl_GetStartupScript \
1839	(tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
1840#endif
1841/* Slot 180 is reserved */
1842/* Slot 181 is reserved */
1843#ifndef TclpLocaltime
1844#define TclpLocaltime \
1845	(tclIntStubsPtr->tclpLocaltime) /* 182 */
1846#endif
1847#ifndef TclpGmtime
1848#define TclpGmtime \
1849	(tclIntStubsPtr->tclpGmtime) /* 183 */
1850#endif
1851/* Slot 184 is reserved */
1852/* Slot 185 is reserved */
1853/* Slot 186 is reserved */
1854/* Slot 187 is reserved */
1855/* Slot 188 is reserved */
1856/* Slot 189 is reserved */
1857/* Slot 190 is reserved */
1858/* Slot 191 is reserved */
1859/* Slot 192 is reserved */
1860/* Slot 193 is reserved */
1861/* Slot 194 is reserved */
1862/* Slot 195 is reserved */
1863/* Slot 196 is reserved */
1864/* Slot 197 is reserved */
1865#ifndef TclObjGetFrame
1866#define TclObjGetFrame \
1867	(tclIntStubsPtr->tclObjGetFrame) /* 198 */
1868#endif
1869/* Slot 199 is reserved */
1870#ifndef TclpObjRemoveDirectory
1871#define TclpObjRemoveDirectory \
1872	(tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
1873#endif
1874#ifndef TclpObjCopyDirectory
1875#define TclpObjCopyDirectory \
1876	(tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
1877#endif
1878#ifndef TclpObjCreateDirectory
1879#define TclpObjCreateDirectory \
1880	(tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
1881#endif
1882#ifndef TclpObjDeleteFile
1883#define TclpObjDeleteFile \
1884	(tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
1885#endif
1886#ifndef TclpObjCopyFile
1887#define TclpObjCopyFile \
1888	(tclIntStubsPtr->tclpObjCopyFile) /* 204 */
1889#endif
1890#ifndef TclpObjRenameFile
1891#define TclpObjRenameFile \
1892	(tclIntStubsPtr->tclpObjRenameFile) /* 205 */
1893#endif
1894#ifndef TclpObjStat
1895#define TclpObjStat \
1896	(tclIntStubsPtr->tclpObjStat) /* 206 */
1897#endif
1898#ifndef TclpObjAccess
1899#define TclpObjAccess \
1900	(tclIntStubsPtr->tclpObjAccess) /* 207 */
1901#endif
1902#ifndef TclpOpenFileChannel
1903#define TclpOpenFileChannel \
1904	(tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
1905#endif
1906/* Slot 209 is reserved */
1907/* Slot 210 is reserved */
1908/* Slot 211 is reserved */
1909#ifndef TclpFindExecutable
1910#define TclpFindExecutable \
1911	(tclIntStubsPtr->tclpFindExecutable) /* 212 */
1912#endif
1913#ifndef TclGetObjNameOfExecutable
1914#define TclGetObjNameOfExecutable \
1915	(tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
1916#endif
1917#ifndef TclSetObjNameOfExecutable
1918#define TclSetObjNameOfExecutable \
1919	(tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
1920#endif
1921#ifndef TclStackAlloc
1922#define TclStackAlloc \
1923	(tclIntStubsPtr->tclStackAlloc) /* 215 */
1924#endif
1925#ifndef TclStackFree
1926#define TclStackFree \
1927	(tclIntStubsPtr->tclStackFree) /* 216 */
1928#endif
1929#ifndef TclPushStackFrame
1930#define TclPushStackFrame \
1931	(tclIntStubsPtr->tclPushStackFrame) /* 217 */
1932#endif
1933#ifndef TclPopStackFrame
1934#define TclPopStackFrame \
1935	(tclIntStubsPtr->tclPopStackFrame) /* 218 */
1936#endif
1937/* Slot 219 is reserved */
1938/* Slot 220 is reserved */
1939/* Slot 221 is reserved */
1940/* Slot 222 is reserved */
1941/* Slot 223 is reserved */
1942#ifndef TclGetPlatform
1943#define TclGetPlatform \
1944	(tclIntStubsPtr->tclGetPlatform) /* 224 */
1945#endif
1946#ifndef TclTraceDictPath
1947#define TclTraceDictPath \
1948	(tclIntStubsPtr->tclTraceDictPath) /* 225 */
1949#endif
1950#ifndef TclObjBeingDeleted
1951#define TclObjBeingDeleted \
1952	(tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
1953#endif
1954#ifndef TclSetNsPath
1955#define TclSetNsPath \
1956	(tclIntStubsPtr->tclSetNsPath) /* 227 */
1957#endif
1958#ifndef TclObjInterpProcCore
1959#define TclObjInterpProcCore \
1960	(tclIntStubsPtr->tclObjInterpProcCore) /* 228 */
1961#endif
1962#ifndef TclPtrMakeUpvar
1963#define TclPtrMakeUpvar \
1964	(tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
1965#endif
1966#ifndef TclObjLookupVar
1967#define TclObjLookupVar \
1968	(tclIntStubsPtr->tclObjLookupVar) /* 230 */
1969#endif
1970#ifndef TclGetNamespaceFromObj
1971#define TclGetNamespaceFromObj \
1972	(tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
1973#endif
1974#ifndef TclEvalObjEx
1975#define TclEvalObjEx \
1976	(tclIntStubsPtr->tclEvalObjEx) /* 232 */
1977#endif
1978#ifndef TclGetSrcInfoForPc
1979#define TclGetSrcInfoForPc \
1980	(tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
1981#endif
1982#ifndef TclVarHashCreateVar
1983#define TclVarHashCreateVar \
1984	(tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
1985#endif
1986#ifndef TclInitVarHashTable
1987#define TclInitVarHashTable \
1988	(tclIntStubsPtr->tclInitVarHashTable) /* 235 */
1989#endif
1990#ifndef TclBackgroundException
1991#define TclBackgroundException \
1992	(tclIntStubsPtr->tclBackgroundException) /* 236 */
1993#endif
1994/* Slot 237 is reserved */
1995/* Slot 238 is reserved */
1996/* Slot 239 is reserved */
1997/* Slot 240 is reserved */
1998/* Slot 241 is reserved */
1999/* Slot 242 is reserved */
2000#ifndef TclDbDumpActiveObjects
2001#define TclDbDumpActiveObjects \
2002	(tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */
2003#endif
2004
2005#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
2006
2007/* !END!: Do not edit above this line. */
2008
2009#undef TCL_STORAGE_CLASS
2010#define TCL_STORAGE_CLASS DLLIMPORT
2011
2012#endif /* _TCLINTDECLS */
2013