/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclintdecls.h
ViewVC logotype

Annotation of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclintdecls.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 64 - (hide annotations) (download)
Sun Oct 30 04:21:11 2016 UTC (7 years, 6 months ago) by dashley
File MIME type: text/plain
File size: 53903 byte(s)
Adjust line endings to Windows style.
Set properties to expand the "Header" keyword.
Change header and footer.
1 dashley 64 /*$Header$ */
2 dashley 25 /*
3     * tclIntDecls.h --
4     *
5     * This file contains the declarations for all unsupported
6     * functions that are exported by the Tcl library. These
7     * interfaces are not guaranteed to remain the same between
8     * versions. Use at your own risk.
9     *
10     * Copyright (c) 1998-1999 by Scriptics Corporation.
11     *
12     * See the file "license.terms" for information on usage and redistribution
13     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14     *
15     * RCS: @(#) $Id: tclintdecls.h,v 1.1.1.1 2001/06/13 04:40:16 dtashley Exp $
16     */
17    
18     #ifndef _TCLINTDECLS
19     #define _TCLINTDECLS
20    
21     /*
22     * WARNING: This file is automatically generated by the tools/genStubs.tcl
23     * script. Any modifications to the function declarations below should be made
24     * in the generic/tclInt.decls script.
25     */
26    
27     /* !BEGIN!: Do not edit below this line. */
28    
29     /*
30     * Exported function declarations:
31     */
32    
33     /* 0 */
34     EXTERN int TclAccess _ANSI_ARGS_((CONST char * path, int mode));
35     /* 1 */
36     EXTERN int TclAccessDeleteProc _ANSI_ARGS_((
37     TclAccessProc_ * proc));
38     /* 2 */
39     EXTERN int TclAccessInsertProc _ANSI_ARGS_((
40     TclAccessProc_ * proc));
41     /* 3 */
42     EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void));
43     /* Slot 4 is reserved */
44     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
45     /* 5 */
46     EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
47     int numPids, Tcl_Pid * pidPtr,
48     Tcl_Channel errorChan));
49     #endif /* UNIX */
50     #ifdef __WIN32__
51     /* 5 */
52     EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
53     int numPids, Tcl_Pid * pidPtr,
54     Tcl_Channel errorChan));
55     #endif /* __WIN32__ */
56     /* 6 */
57     EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
58     /* 7 */
59     EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count,
60     CONST char * src, char * dst));
61     /* 8 */
62     EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp,
63     Tcl_Channel inChan, Tcl_Channel outChan,
64     int toRead, Tcl_Obj * cmdPtr));
65     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
66     /* 9 */
67     EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
68     int argc, char ** argv,
69     Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
70     TclFile * outPipePtr, TclFile * errFilePtr));
71     #endif /* UNIX */
72     #ifdef __WIN32__
73     /* 9 */
74     EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
75     int argc, char ** argv,
76     Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
77     TclFile * outPipePtr, TclFile * errFilePtr));
78     #endif /* __WIN32__ */
79     /* 10 */
80     EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp,
81     Namespace * nsPtr, char * procName,
82     Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr,
83     Proc ** procPtrPtr));
84     /* 11 */
85     EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_((
86     Interp * iPtr, CallFrame * framePtr));
87     /* 12 */
88     EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr,
89     Tcl_HashTable * tablePtr));
90     /* 13 */
91     EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp,
92     char * separators, Tcl_DString * headPtr,
93     char * tail, GlobTypeData * types));
94     /* 14 */
95     EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
96     /* Slot 15 is reserved */
97     /* 16 */
98     EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
99     double value));
100     /* 17 */
101     EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp,
102     int objc, Tcl_Obj *CONST objv[]));
103     /* 18 */
104     EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp,
105     int argc, char ** argv));
106     /* 19 */
107     EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp,
108     int argc, char ** argv));
109     /* 20 */
110     EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp,
111     int argc, char ** argv));
112     /* 21 */
113     EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp,
114     int argc, char ** argv));
115     /* 22 */
116     EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp,
117     CONST char * listStr, int listLength,
118     CONST char ** elementPtr,
119     CONST char ** nextPtr, int * sizePtr,
120     int * bracePtr));
121     /* 23 */
122     EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr,
123     char * procName));
124     /* 24 */
125     EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n));
126     /* 25 */
127     EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
128     /* Slot 26 is reserved */
129     /* 27 */
130     EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now,
131     long zone, unsigned long * timePtr));
132     /* 28 */
133     EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
134     /* 29 */
135     EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_((
136     Tcl_Interp * interp, int localIndex,
137     Tcl_Obj * elemPtr, int leaveErrorMsg));
138     /* Slot 30 is reserved */
139     /* 31 */
140     EXTERN char * TclGetExtension _ANSI_ARGS_((char * name));
141     /* 32 */
142     EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
143     char * str, CallFrame ** framePtrPtr));
144     /* 33 */
145     EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void));
146     /* 34 */
147     EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp,
148     Tcl_Obj * objPtr, int endValue,
149     int * indexPtr));
150     /* 35 */
151     EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
152     int localIndex, int leaveErrorMsg));
153     /* 36 */
154     EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp,
155     char * str, long * longPtr));
156     /* 37 */
157     EXTERN int TclGetLoadedPackages _ANSI_ARGS_((
158     Tcl_Interp * interp, char * targetName));
159     /* 38 */
160     EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_((
161     Tcl_Interp * interp, char * qualName,
162     Namespace * cxtNsPtr, int flags,
163     Namespace ** nsPtrPtr,
164     Namespace ** altNsPtrPtr,
165     Namespace ** actualCxtPtrPtr,
166     char ** simpleNamePtr));
167     /* 39 */
168     EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
169     /* 40 */
170     EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp,
171     char * str, int * seekFlagPtr));
172     /* 41 */
173     EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_((
174     Tcl_Command command));
175     /* 42 */
176     EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name,
177     Tcl_DString * bufferPtr));
178     /* 43 */
179     EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp,
180     int argc, char ** argv, int flags));
181     /* 44 */
182     EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName,
183     Tcl_DString * bufPtr));
184     /* 45 */
185     EXTERN int TclHideUnsafeCommands _ANSI_ARGS_((
186     Tcl_Interp * interp));
187     /* 46 */
188     EXTERN int TclInExit _ANSI_ARGS_((void));
189     /* 47 */
190     EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_((
191     Tcl_Interp * interp, int localIndex,
192     Tcl_Obj * elemPtr, long incrAmount));
193     /* 48 */
194     EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_((
195     Tcl_Interp * interp, int localIndex,
196     long incrAmount));
197     /* 49 */
198     EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp,
199     Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
200     long incrAmount, int part1NotParsed));
201     /* 50 */
202     EXTERN void TclInitCompiledLocals _ANSI_ARGS_((
203     Tcl_Interp * interp, CallFrame * framePtr,
204     Namespace * nsPtr));
205     /* 51 */
206     EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
207     /* 52 */
208     EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc,
209     char ** argv, int flags));
210     /* 53 */
211     EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
212     ClientData clientData, Tcl_Interp * interp,
213     int argc, char ** argv));
214     /* 54 */
215     EXTERN int TclInvokeStringCommand _ANSI_ARGS_((
216     ClientData clientData, Tcl_Interp * interp,
217     int objc, Tcl_Obj *CONST objv[]));
218     /* 55 */
219     EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr));
220     /* Slot 56 is reserved */
221     /* Slot 57 is reserved */
222     /* 58 */
223     EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
224     char * part1, char * part2, int flags,
225     char * msg, int createPart1, int createPart2,
226     Var ** arrayPtrPtr));
227     /* 59 */
228     EXTERN int TclpMatchFiles _ANSI_ARGS_((Tcl_Interp * interp,
229     char * separators, Tcl_DString * dirPtr,
230     char * pattern, char * tail));
231     /* 60 */
232     EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end));
233     /* 61 */
234     EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
235     /* 62 */
236     EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
237     /* 63 */
238     EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
239     Tcl_Interp * interp, int objc,
240     Tcl_Obj *CONST objv[]));
241     /* 64 */
242     EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
243     int objc, Tcl_Obj *CONST objv[], int flags));
244     /* 65 */
245     EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp,
246     int objc, Tcl_Obj *CONST objv[], int flags));
247     /* 66 */
248     EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_((
249     TclOpenFileChannelProc_ * proc));
250     /* 67 */
251     EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_((
252     TclOpenFileChannelProc_ * proc));
253     /* 68 */
254     EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode));
255     /* 69 */
256     EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
257     /* 70 */
258     EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char * source,
259     CONST char * dest));
260     /* 71 */
261     EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char * source,
262     CONST char * dest, Tcl_DString * errorPtr));
263     /* 72 */
264     EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char * path));
265     /* 73 */
266     EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char * path));
267     /* 74 */
268     EXTERN void TclpFree _ANSI_ARGS_((char * ptr));
269     /* 75 */
270     EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void));
271     /* 76 */
272     EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void));
273     /* 77 */
274     EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
275     /* 78 */
276     EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
277     /* 79 */
278     EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp));
279     /* 80 */
280     EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp,
281     char * fileName, char * modeString,
282     int permissions));
283     /* 81 */
284     EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
285     unsigned int size));
286     /* 82 */
287     EXTERN int TclpRemoveDirectory _ANSI_ARGS_((CONST char * path,
288     int recursive, Tcl_DString * errorPtr));
289     /* 83 */
290     EXTERN int TclpRenameFile _ANSI_ARGS_((CONST char * source,
291     CONST char * dest));
292     /* Slot 84 is reserved */
293     /* Slot 85 is reserved */
294     /* Slot 86 is reserved */
295     /* Slot 87 is reserved */
296     /* 88 */
297     EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
298     Tcl_Interp * interp, char * name1,
299     char * name2, int flags));
300     /* 89 */
301     EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp,
302     Tcl_Interp * cmdInterp, Tcl_Command cmd));
303     /* Slot 90 is reserved */
304     /* 91 */
305     EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
306     /* 92 */
307     EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp,
308     Proc * procPtr, Tcl_Obj * bodyPtr,
309     Namespace * nsPtr, CONST char * description,
310     CONST char * procName));
311     /* 93 */
312     EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
313     /* 94 */
314     EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData,
315     Tcl_Interp * interp, int argc, char ** argv));
316     /* 95 */
317     EXTERN int TclpStat _ANSI_ARGS_((CONST char * path,
318     struct stat * buf));
319     /* 96 */
320     EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp,
321     char * oldName, char * newName));
322     /* 97 */
323     EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_((
324     Tcl_Interp * interp, Command * newCmdPtr));
325     /* 98 */
326     EXTERN int TclServiceIdle _ANSI_ARGS_((void));
327     /* 99 */
328     EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_((
329     Tcl_Interp * interp, int localIndex,
330     Tcl_Obj * elemPtr, Tcl_Obj * objPtr,
331     int leaveErrorMsg));
332     /* 100 */
333     EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
334     int localIndex, Tcl_Obj * objPtr,
335     int leaveErrorMsg));
336     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
337     /* 101 */
338     EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
339     #endif /* UNIX */
340     #ifdef __WIN32__
341     /* 101 */
342     EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
343     #endif /* __WIN32__ */
344     /* 102 */
345     EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
346     /* 103 */
347     EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp,
348     char * str, char * proto, int * portPtr));
349     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
350     /* 104 */
351     EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
352     int size));
353     #endif /* UNIX */
354     #ifdef __WIN32__
355     /* 104 */
356     EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
357     int size));
358     #endif /* __WIN32__ */
359     /* 105 */
360     EXTERN int TclStat _ANSI_ARGS_((CONST char * path,
361     struct stat * buf));
362     /* 106 */
363     EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
364     /* 107 */
365     EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
366     /* 108 */
367     EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
368     /* 109 */
369     EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
370     /* Slot 110 is reserved */
371     /* 111 */
372     EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((
373     Tcl_Interp * interp, char * name,
374     Tcl_ResolveCmdProc * cmdProc,
375     Tcl_ResolveVarProc * varProc,
376     Tcl_ResolveCompiledVarProc * compiledVarProc));
377     /* 112 */
378     EXTERN int Tcl_AppendExportList _ANSI_ARGS_((
379     Tcl_Interp * interp, Tcl_Namespace * nsPtr,
380     Tcl_Obj * objPtr));
381     /* 113 */
382     EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp,
383     char * name, ClientData clientData,
384     Tcl_NamespaceDeleteProc * deleteProc));
385     /* 114 */
386     EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((
387     Tcl_Namespace * nsPtr));
388     /* 115 */
389     EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp,
390     Tcl_Namespace * nsPtr, char * pattern,
391     int resetListFirst));
392     /* 116 */
393     EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp,
394     char * name, Tcl_Namespace * contextNsPtr,
395     int flags));
396     /* 117 */
397     EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp,
398     char * name, Tcl_Namespace * contextNsPtr,
399     int flags));
400     /* 118 */
401     EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((
402     Tcl_Interp * interp, char * name,
403     Tcl_ResolverInfo * resInfo));
404     /* 119 */
405     EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_((
406     Tcl_Namespace * namespacePtr,
407     Tcl_ResolverInfo * resInfo));
408     /* 120 */
409     EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((
410     Tcl_Interp * interp, char * name,
411     Tcl_Namespace * contextNsPtr, int flags));
412     /* 121 */
413     EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp,
414     Tcl_Namespace * nsPtr, char * pattern));
415     /* 122 */
416     EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_((
417     Tcl_Interp * interp, Tcl_Obj * objPtr));
418     /* 123 */
419     EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_((
420     Tcl_Interp * interp, Tcl_Command command,
421     Tcl_Obj * objPtr));
422     /* 124 */
423     EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_((
424     Tcl_Interp * interp));
425     /* 125 */
426     EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_((
427     Tcl_Interp * interp));
428     /* 126 */
429     EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_((
430     Tcl_Interp * interp, Tcl_Var variable,
431     Tcl_Obj * objPtr));
432     /* 127 */
433     EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp,
434     Tcl_Namespace * nsPtr, char * pattern,
435     int allowOverwrite));
436     /* 128 */
437     EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
438     /* 129 */
439     EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp,
440     Tcl_CallFrame * framePtr,
441     Tcl_Namespace * nsPtr, int isProcCallFrame));
442     /* 130 */
443     EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_((
444     Tcl_Interp * interp, char * name));
445     /* 131 */
446     EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_((
447     Tcl_Namespace * namespacePtr,
448     Tcl_ResolveCmdProc * cmdProc,
449     Tcl_ResolveVarProc * varProc,
450     Tcl_ResolveCompiledVarProc * compiledVarProc));
451     /* 132 */
452     EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
453     /* 133 */
454     EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
455     /* 134 */
456     EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize,
457     CONST char * format, CONST struct tm * t));
458     /* 135 */
459     EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void));
460     /* Slot 136 is reserved */
461     /* 137 */
462     EXTERN int TclpChdir _ANSI_ARGS_((CONST char * dirName));
463     /* 138 */
464     EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name,
465     Tcl_DString * valuePtr));
466     /* 139 */
467     EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp,
468     char * fileName, char * sym1, char * sym2,
469     Tcl_PackageInitProc ** proc1Ptr,
470     Tcl_PackageInitProc ** proc2Ptr,
471     ClientData * clientDataPtr));
472     /* 140 */
473     EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes,
474     int length));
475     /* 141 */
476     EXTERN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp,
477     Tcl_DString * cwdPtr));
478     /* 142 */
479     EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_((
480     Tcl_Interp * interp, Tcl_Obj * objPtr,
481     CompileHookProc * hookProc,
482     ClientData clientData));
483     /* 143 */
484     EXTERN int TclAddLiteralObj _ANSI_ARGS_((
485     struct CompileEnv * envPtr, Tcl_Obj * objPtr,
486     LiteralEntry ** litPtrPtr));
487     /* 144 */
488     EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp,
489     struct CompileEnv * envPtr, int index));
490     /* 145 */
491     EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
492     /* 146 */
493     EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr));
494     /* 147 */
495     EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle));
496     /* 148 */
497     EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
498     /* 149 */
499     EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle));
500     /* 150 */
501     EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp,
502     Tcl_RegExp re));
503     /* 151 */
504     EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re,
505     int index, int * startPtr, int * endPtr));
506     /* 152 */
507     EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
508     /* 153 */
509     EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void));
510     /* 154 */
511     EXTERN int TclTestChannelCmd _ANSI_ARGS_((ClientData clientData,
512     Tcl_Interp * interp, int argc, char ** argv));
513     /* 155 */
514     EXTERN int TclTestChannelEventCmd _ANSI_ARGS_((
515     ClientData clientData, Tcl_Interp * interp,
516     int argc, char ** argv));
517     /* 156 */
518     EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp,
519     char * msg, int status));
520     /* 157 */
521     EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp,
522     char * varName));
523     /* 158 */
524     EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_((
525     char * filename));
526     /* 159 */
527     EXTERN char * TclGetStartupScriptFileName _ANSI_ARGS_((void));
528     /* 160 */
529     EXTERN int TclpMatchFilesTypes _ANSI_ARGS_((Tcl_Interp * interp,
530     char * separators, Tcl_DString * dirPtr,
531     char * pattern, char * tail,
532     GlobTypeData * types));
533    
534     typedef struct TclIntStubs {
535     int magic;
536     struct TclIntStubHooks *hooks;
537    
538     int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */
539     int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
540     int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
541     void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
542     void *reserved4;
543     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
544     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
545     #endif /* UNIX */
546     #ifdef __WIN32__
547     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
548     #endif /* __WIN32__ */
549     #ifdef MAC_TCL
550     void *reserved5;
551     #endif /* MAC_TCL */
552     void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
553     int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
554     int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
555     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
556     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
557     #endif /* UNIX */
558     #ifdef __WIN32__
559     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
560     #endif /* __WIN32__ */
561     #ifdef MAC_TCL
562     void *reserved9;
563     #endif /* MAC_TCL */
564     int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
565     void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
566     void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
567     int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, GlobTypeData * types)); /* 13 */
568     void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
569     void *reserved15;
570     void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
571     int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */
572     int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */
573     int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */
574     int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */
575     int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */
576     int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
577     Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */
578     int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
579     void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
580     void *reserved26;
581     int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
582     Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
583     Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */
584     void *reserved30;
585     char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
586     int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * str, CallFrame ** framePtrPtr)); /* 32 */
587     TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
588     int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
589     Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
590     int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr)); /* 36 */
591     int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
592     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */
593     TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
594     int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * seekFlagPtr)); /* 40 */
595     Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
596     char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
597     int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */
598     int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */
599     int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
600     int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
601     Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */
602     Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */
603     Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
604     void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
605     int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
606     int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */
607     int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */
608     int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
609     Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
610     void *reserved56;
611     void *reserved57;
612     Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
613     int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */
614     int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */
615     Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
616     int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
617     int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
618     int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
619     int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
620     int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
621     int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
622     int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */
623     char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
624     int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 70 */
625     int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 71 */
626     int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 72 */
627     int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 73 */
628     void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
629     unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
630     unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
631     void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
632     int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
633     int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */
634     Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */
635     char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
636     int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */
637     int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 83 */
638     void *reserved84;
639     void *reserved85;
640     void *reserved86;
641     void *reserved87;
642     char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */
643     int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
644     void *reserved90;
645     void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
646     int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
647     void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
648     int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */
649     int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */
650     int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
651     void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
652     int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
653     Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */
654     Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */
655     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
656     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
657     #endif /* UNIX */
658     #ifdef __WIN32__
659     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
660     #endif /* __WIN32__ */
661     #ifdef MAC_TCL
662     void *reserved101;
663     #endif /* MAC_TCL */
664     void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
665     int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
666     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
667     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
668     #endif /* UNIX */
669     #ifdef __WIN32__
670     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
671     #endif /* __WIN32__ */
672     #ifdef MAC_TCL
673     void *reserved104;
674     #endif /* MAC_TCL */
675     int (*tclStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 105 */
676     int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
677     int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
678     void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
679     int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
680     void *reserved110;
681     void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
682     int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
683     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
684     void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
685     int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
686     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
687     Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
688     int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
689     int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
690     Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
691     int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */
692     Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
693     void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
694     Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
695     Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
696     void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
697     int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */
698     void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
699     int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
700     int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */
701     void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
702     int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
703     struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
704     size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t)); /* 134 */
705     int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
706     void *reserved136;
707     int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 137 */
708     char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
709     int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 139 */
710     int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */
711     char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
712     int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
713     int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
714     void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
715     struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
716     TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
717     void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
718     TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
719     void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
720     int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
721     void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
722     void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
723     Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
724     int (*tclTestChannelCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 154 */
725     int (*tclTestChannelEventCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 155 */
726     void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, char * msg, int status)); /* 156 */
727     Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 157 */
728     void (*tclSetStartupScriptFileName) _ANSI_ARGS_((char * filename)); /* 158 */
729     char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
730     int (*tclpMatchFilesTypes) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types)); /* 160 */
731     } TclIntStubs;
732    
733     #ifdef __cplusplus
734     extern "C" {
735     #endif
736     extern TclIntStubs *tclIntStubsPtr;
737     #ifdef __cplusplus
738     }
739     #endif
740    
741     #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
742    
743     /*
744     * Inline function declarations:
745     */
746    
747     #ifndef TclAccess
748     #define TclAccess \
749     (tclIntStubsPtr->tclAccess) /* 0 */
750     #endif
751     #ifndef TclAccessDeleteProc
752     #define TclAccessDeleteProc \
753     (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
754     #endif
755     #ifndef TclAccessInsertProc
756     #define TclAccessInsertProc \
757     (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
758     #endif
759     #ifndef TclAllocateFreeObjects
760     #define TclAllocateFreeObjects \
761     (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
762     #endif
763     /* Slot 4 is reserved */
764     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
765     #ifndef TclCleanupChildren
766     #define TclCleanupChildren \
767     (tclIntStubsPtr->tclCleanupChildren) /* 5 */
768     #endif
769     #endif /* UNIX */
770     #ifdef __WIN32__
771     #ifndef TclCleanupChildren
772     #define TclCleanupChildren \
773     (tclIntStubsPtr->tclCleanupChildren) /* 5 */
774     #endif
775     #endif /* __WIN32__ */
776     #ifndef TclCleanupCommand
777     #define TclCleanupCommand \
778     (tclIntStubsPtr->tclCleanupCommand) /* 6 */
779     #endif
780     #ifndef TclCopyAndCollapse
781     #define TclCopyAndCollapse \
782     (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
783     #endif
784     #ifndef TclCopyChannel
785     #define TclCopyChannel \
786     (tclIntStubsPtr->tclCopyChannel) /* 8 */
787     #endif
788     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
789     #ifndef TclCreatePipeline
790     #define TclCreatePipeline \
791     (tclIntStubsPtr->tclCreatePipeline) /* 9 */
792     #endif
793     #endif /* UNIX */
794     #ifdef __WIN32__
795     #ifndef TclCreatePipeline
796     #define TclCreatePipeline \
797     (tclIntStubsPtr->tclCreatePipeline) /* 9 */
798     #endif
799     #endif /* __WIN32__ */
800     #ifndef TclCreateProc
801     #define TclCreateProc \
802     (tclIntStubsPtr->tclCreateProc) /* 10 */
803     #endif
804     #ifndef TclDeleteCompiledLocalVars
805     #define TclDeleteCompiledLocalVars \
806     (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
807     #endif
808     #ifndef TclDeleteVars
809     #define TclDeleteVars \
810     (tclIntStubsPtr->tclDeleteVars) /* 12 */
811     #endif
812     #ifndef TclDoGlob
813     #define TclDoGlob \
814     (tclIntStubsPtr->tclDoGlob) /* 13 */
815     #endif
816     #ifndef TclDumpMemoryInfo
817     #define TclDumpMemoryInfo \
818     (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
819     #endif
820     /* Slot 15 is reserved */
821     #ifndef TclExprFloatError
822     #define TclExprFloatError \
823     (tclIntStubsPtr->tclExprFloatError) /* 16 */
824     #endif
825     #ifndef TclFileAttrsCmd
826     #define TclFileAttrsCmd \
827     (tclIntStubsPtr->tclFileAttrsCmd) /* 17 */
828     #endif
829     #ifndef TclFileCopyCmd
830     #define TclFileCopyCmd \
831     (tclIntStubsPtr->tclFileCopyCmd) /* 18 */
832     #endif
833     #ifndef TclFileDeleteCmd
834     #define TclFileDeleteCmd \
835     (tclIntStubsPtr->tclFileDeleteCmd) /* 19 */
836     #endif
837     #ifndef TclFileMakeDirsCmd
838     #define TclFileMakeDirsCmd \
839     (tclIntStubsPtr->tclFileMakeDirsCmd) /* 20 */
840     #endif
841     #ifndef TclFileRenameCmd
842     #define TclFileRenameCmd \
843     (tclIntStubsPtr->tclFileRenameCmd) /* 21 */
844     #endif
845     #ifndef TclFindElement
846     #define TclFindElement \
847     (tclIntStubsPtr->tclFindElement) /* 22 */
848     #endif
849     #ifndef TclFindProc
850     #define TclFindProc \
851     (tclIntStubsPtr->tclFindProc) /* 23 */
852     #endif
853     #ifndef TclFormatInt
854     #define TclFormatInt \
855     (tclIntStubsPtr->tclFormatInt) /* 24 */
856     #endif
857     #ifndef TclFreePackageInfo
858     #define TclFreePackageInfo \
859     (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
860     #endif
861     /* Slot 26 is reserved */
862     #ifndef TclGetDate
863     #define TclGetDate \
864     (tclIntStubsPtr->tclGetDate) /* 27 */
865     #endif
866     #ifndef TclpGetDefaultStdChannel
867     #define TclpGetDefaultStdChannel \
868     (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
869     #endif
870     #ifndef TclGetElementOfIndexedArray
871     #define TclGetElementOfIndexedArray \
872     (tclIntStubsPtr->tclGetElementOfIndexedArray) /* 29 */
873     #endif
874     /* Slot 30 is reserved */
875     #ifndef TclGetExtension
876     #define TclGetExtension \
877     (tclIntStubsPtr->tclGetExtension) /* 31 */
878     #endif
879     #ifndef TclGetFrame
880     #define TclGetFrame \
881     (tclIntStubsPtr->tclGetFrame) /* 32 */
882     #endif
883     #ifndef TclGetInterpProc
884     #define TclGetInterpProc \
885     (tclIntStubsPtr->tclGetInterpProc) /* 33 */
886     #endif
887     #ifndef TclGetIntForIndex
888     #define TclGetIntForIndex \
889     (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
890     #endif
891     #ifndef TclGetIndexedScalar
892     #define TclGetIndexedScalar \
893     (tclIntStubsPtr->tclGetIndexedScalar) /* 35 */
894     #endif
895     #ifndef TclGetLong
896     #define TclGetLong \
897     (tclIntStubsPtr->tclGetLong) /* 36 */
898     #endif
899     #ifndef TclGetLoadedPackages
900     #define TclGetLoadedPackages \
901     (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
902     #endif
903     #ifndef TclGetNamespaceForQualName
904     #define TclGetNamespaceForQualName \
905     (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
906     #endif
907     #ifndef TclGetObjInterpProc
908     #define TclGetObjInterpProc \
909     (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
910     #endif
911     #ifndef TclGetOpenMode
912     #define TclGetOpenMode \
913     (tclIntStubsPtr->tclGetOpenMode) /* 40 */
914     #endif
915     #ifndef TclGetOriginalCommand
916     #define TclGetOriginalCommand \
917     (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
918     #endif
919     #ifndef TclpGetUserHome
920     #define TclpGetUserHome \
921     (tclIntStubsPtr->tclpGetUserHome) /* 42 */
922     #endif
923     #ifndef TclGlobalInvoke
924     #define TclGlobalInvoke \
925     (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
926     #endif
927     #ifndef TclGuessPackageName
928     #define TclGuessPackageName \
929     (tclIntStubsPtr->tclGuessPackageName) /* 44 */
930     #endif
931     #ifndef TclHideUnsafeCommands
932     #define TclHideUnsafeCommands \
933     (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
934     #endif
935     #ifndef TclInExit
936     #define TclInExit \
937     (tclIntStubsPtr->tclInExit) /* 46 */
938     #endif
939     #ifndef TclIncrElementOfIndexedArray
940     #define TclIncrElementOfIndexedArray \
941     (tclIntStubsPtr->tclIncrElementOfIndexedArray) /* 47 */
942     #endif
943     #ifndef TclIncrIndexedScalar
944     #define TclIncrIndexedScalar \
945     (tclIntStubsPtr->tclIncrIndexedScalar) /* 48 */
946     #endif
947     #ifndef TclIncrVar2
948     #define TclIncrVar2 \
949     (tclIntStubsPtr->tclIncrVar2) /* 49 */
950     #endif
951     #ifndef TclInitCompiledLocals
952     #define TclInitCompiledLocals \
953     (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
954     #endif
955     #ifndef TclInterpInit
956     #define TclInterpInit \
957     (tclIntStubsPtr->tclInterpInit) /* 51 */
958     #endif
959     #ifndef TclInvoke
960     #define TclInvoke \
961     (tclIntStubsPtr->tclInvoke) /* 52 */
962     #endif
963     #ifndef TclInvokeObjectCommand
964     #define TclInvokeObjectCommand \
965     (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
966     #endif
967     #ifndef TclInvokeStringCommand
968     #define TclInvokeStringCommand \
969     (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
970     #endif
971     #ifndef TclIsProc
972     #define TclIsProc \
973     (tclIntStubsPtr->tclIsProc) /* 55 */
974     #endif
975     /* Slot 56 is reserved */
976     /* Slot 57 is reserved */
977     #ifndef TclLookupVar
978     #define TclLookupVar \
979     (tclIntStubsPtr->tclLookupVar) /* 58 */
980     #endif
981     #ifndef TclpMatchFiles
982     #define TclpMatchFiles \
983     (tclIntStubsPtr->tclpMatchFiles) /* 59 */
984     #endif
985     #ifndef TclNeedSpace
986     #define TclNeedSpace \
987     (tclIntStubsPtr->tclNeedSpace) /* 60 */
988     #endif
989     #ifndef TclNewProcBodyObj
990     #define TclNewProcBodyObj \
991     (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
992     #endif
993     #ifndef TclObjCommandComplete
994     #define TclObjCommandComplete \
995     (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
996     #endif
997     #ifndef TclObjInterpProc
998     #define TclObjInterpProc \
999     (tclIntStubsPtr->tclObjInterpProc) /* 63 */
1000     #endif
1001     #ifndef TclObjInvoke
1002     #define TclObjInvoke \
1003     (tclIntStubsPtr->tclObjInvoke) /* 64 */
1004     #endif
1005     #ifndef TclObjInvokeGlobal
1006     #define TclObjInvokeGlobal \
1007     (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
1008     #endif
1009     #ifndef TclOpenFileChannelDeleteProc
1010     #define TclOpenFileChannelDeleteProc \
1011     (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
1012     #endif
1013     #ifndef TclOpenFileChannelInsertProc
1014     #define TclOpenFileChannelInsertProc \
1015     (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
1016     #endif
1017     #ifndef TclpAccess
1018     #define TclpAccess \
1019     (tclIntStubsPtr->tclpAccess) /* 68 */
1020     #endif
1021     #ifndef TclpAlloc
1022     #define TclpAlloc \
1023     (tclIntStubsPtr->tclpAlloc) /* 69 */
1024     #endif
1025     #ifndef TclpCopyFile
1026     #define TclpCopyFile \
1027     (tclIntStubsPtr->tclpCopyFile) /* 70 */
1028     #endif
1029     #ifndef TclpCopyDirectory
1030     #define TclpCopyDirectory \
1031     (tclIntStubsPtr->tclpCopyDirectory) /* 71 */
1032     #endif
1033     #ifndef TclpCreateDirectory
1034     #define TclpCreateDirectory \
1035     (tclIntStubsPtr->tclpCreateDirectory) /* 72 */
1036     #endif
1037     #ifndef TclpDeleteFile
1038     #define TclpDeleteFile \
1039     (tclIntStubsPtr->tclpDeleteFile) /* 73 */
1040     #endif
1041     #ifndef TclpFree
1042     #define TclpFree \
1043     (tclIntStubsPtr->tclpFree) /* 74 */
1044     #endif
1045     #ifndef TclpGetClicks
1046     #define TclpGetClicks \
1047     (tclIntStubsPtr->tclpGetClicks) /* 75 */
1048     #endif
1049     #ifndef TclpGetSeconds
1050     #define TclpGetSeconds \
1051     (tclIntStubsPtr->tclpGetSeconds) /* 76 */
1052     #endif
1053     #ifndef TclpGetTime
1054     #define TclpGetTime \
1055     (tclIntStubsPtr->tclpGetTime) /* 77 */
1056     #endif
1057     #ifndef TclpGetTimeZone
1058     #define TclpGetTimeZone \
1059     (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
1060     #endif
1061     #ifndef TclpListVolumes
1062     #define TclpListVolumes \
1063     (tclIntStubsPtr->tclpListVolumes) /* 79 */
1064     #endif
1065     #ifndef TclpOpenFileChannel
1066     #define TclpOpenFileChannel \
1067     (tclIntStubsPtr->tclpOpenFileChannel) /* 80 */
1068     #endif
1069     #ifndef TclpRealloc
1070     #define TclpRealloc \
1071     (tclIntStubsPtr->tclpRealloc) /* 81 */
1072     #endif
1073     #ifndef TclpRemoveDirectory
1074     #define TclpRemoveDirectory \
1075     (tclIntStubsPtr->tclpRemoveDirectory) /* 82 */
1076     #endif
1077     #ifndef TclpRenameFile
1078     #define TclpRenameFile \
1079     (tclIntStubsPtr->tclpRenameFile) /* 83 */
1080     #endif
1081     /* Slot 84 is reserved */
1082     /* Slot 85 is reserved */
1083     /* Slot 86 is reserved */
1084     /* Slot 87 is reserved */
1085     #ifndef TclPrecTraceProc
1086     #define TclPrecTraceProc \
1087     (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
1088     #endif
1089     #ifndef TclPreventAliasLoop
1090     #define TclPreventAliasLoop \
1091     (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
1092     #endif
1093     /* Slot 90 is reserved */
1094     #ifndef TclProcCleanupProc
1095     #define TclProcCleanupProc \
1096     (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
1097     #endif
1098     #ifndef TclProcCompileProc
1099     #define TclProcCompileProc \
1100     (tclIntStubsPtr->tclProcCompileProc) /* 92 */
1101     #endif
1102     #ifndef TclProcDeleteProc
1103     #define TclProcDeleteProc \
1104     (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
1105     #endif
1106     #ifndef TclProcInterpProc
1107     #define TclProcInterpProc \
1108     (tclIntStubsPtr->tclProcInterpProc) /* 94 */
1109     #endif
1110     #ifndef TclpStat
1111     #define TclpStat \
1112     (tclIntStubsPtr->tclpStat) /* 95 */
1113     #endif
1114     #ifndef TclRenameCommand
1115     #define TclRenameCommand \
1116     (tclIntStubsPtr->tclRenameCommand) /* 96 */
1117     #endif
1118     #ifndef TclResetShadowedCmdRefs
1119     #define TclResetShadowedCmdRefs \
1120     (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
1121     #endif
1122     #ifndef TclServiceIdle
1123     #define TclServiceIdle \
1124     (tclIntStubsPtr->tclServiceIdle) /* 98 */
1125     #endif
1126     #ifndef TclSetElementOfIndexedArray
1127     #define TclSetElementOfIndexedArray \
1128     (tclIntStubsPtr->tclSetElementOfIndexedArray) /* 99 */
1129     #endif
1130     #ifndef TclSetIndexedScalar
1131     #define TclSetIndexedScalar \
1132     (tclIntStubsPtr->tclSetIndexedScalar) /* 100 */
1133     #endif
1134     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1135     #ifndef TclSetPreInitScript
1136     #define TclSetPreInitScript \
1137     (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1138     #endif
1139     #endif /* UNIX */
1140     #ifdef __WIN32__
1141     #ifndef TclSetPreInitScript
1142     #define TclSetPreInitScript \
1143     (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1144     #endif
1145     #endif /* __WIN32__ */
1146     #ifndef TclSetupEnv
1147     #define TclSetupEnv \
1148     (tclIntStubsPtr->tclSetupEnv) /* 102 */
1149     #endif
1150     #ifndef TclSockGetPort
1151     #define TclSockGetPort \
1152     (tclIntStubsPtr->tclSockGetPort) /* 103 */
1153     #endif
1154     #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1155     #ifndef TclSockMinimumBuffers
1156     #define TclSockMinimumBuffers \
1157     (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1158     #endif
1159     #endif /* UNIX */
1160     #ifdef __WIN32__
1161     #ifndef TclSockMinimumBuffers
1162     #define TclSockMinimumBuffers \
1163     (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1164     #endif
1165     #endif /* __WIN32__ */
1166     #ifndef TclStat
1167     #define TclStat \
1168     (tclIntStubsPtr->tclStat) /* 105 */
1169     #endif
1170     #ifndef TclStatDeleteProc
1171     #define TclStatDeleteProc \
1172     (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
1173     #endif
1174     #ifndef TclStatInsertProc
1175     #define TclStatInsertProc \
1176     (tclIntStubsPtr->tclStatInsertProc) /* 107 */
1177     #endif
1178     #ifndef TclTeardownNamespace
1179     #define TclTeardownNamespace \
1180     (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
1181     #endif
1182     #ifndef TclUpdateReturnInfo
1183     #define TclUpdateReturnInfo \
1184     (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
1185     #endif
1186     /* Slot 110 is reserved */
1187     #ifndef Tcl_AddInterpResolvers
1188     #define Tcl_AddInterpResolvers \
1189     (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
1190     #endif
1191     #ifndef Tcl_AppendExportList
1192     #define Tcl_AppendExportList \
1193     (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
1194     #endif
1195     #ifndef Tcl_CreateNamespace
1196     #define Tcl_CreateNamespace \
1197     (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
1198     #endif
1199     #ifndef Tcl_DeleteNamespace
1200     #define Tcl_DeleteNamespace \
1201     (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
1202     #endif
1203     #ifndef Tcl_Export
1204     #define Tcl_Export \
1205     (tclIntStubsPtr->tcl_Export) /* 115 */
1206     #endif
1207     #ifndef Tcl_FindCommand
1208     #define Tcl_FindCommand \
1209     (tclIntStubsPtr->tcl_FindCommand) /* 116 */
1210     #endif
1211     #ifndef Tcl_FindNamespace
1212     #define Tcl_FindNamespace \
1213     (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
1214     #endif
1215     #ifndef Tcl_GetInterpResolvers
1216     #define Tcl_GetInterpResolvers \
1217     (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
1218     #endif
1219     #ifndef Tcl_GetNamespaceResolvers
1220     #define Tcl_GetNamespaceResolvers \
1221     (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
1222     #endif
1223     #ifndef Tcl_FindNamespaceVar
1224     #define Tcl_FindNamespaceVar \
1225     (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
1226     #endif
1227     #ifndef Tcl_ForgetImport
1228     #define Tcl_ForgetImport \
1229     (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
1230     #endif
1231     #ifndef Tcl_GetCommandFromObj
1232     #define Tcl_GetCommandFromObj \
1233     (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
1234     #endif
1235     #ifndef Tcl_GetCommandFullName
1236     #define Tcl_GetCommandFullName \
1237     (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
1238     #endif
1239     #ifndef Tcl_GetCurrentNamespace
1240     #define Tcl_GetCurrentNamespace \
1241     (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
1242     #endif
1243     #ifndef Tcl_GetGlobalNamespace
1244     #define Tcl_GetGlobalNamespace \
1245     (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
1246     #endif
1247     #ifndef Tcl_GetVariableFullName
1248     #define Tcl_GetVariableFullName \
1249     (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
1250     #endif
1251     #ifndef Tcl_Import
1252     #define Tcl_Import \
1253     (tclIntStubsPtr->tcl_Import) /* 127 */
1254     #endif
1255     #ifndef Tcl_PopCallFrame
1256     #define Tcl_PopCallFrame \
1257     (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
1258     #endif
1259     #ifndef Tcl_PushCallFrame
1260     #define Tcl_PushCallFrame \
1261     (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
1262     #endif
1263     #ifndef Tcl_RemoveInterpResolvers
1264     #define Tcl_RemoveInterpResolvers \
1265     (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
1266     #endif
1267     #ifndef Tcl_SetNamespaceResolvers
1268     #define Tcl_SetNamespaceResolvers \
1269     (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
1270     #endif
1271     #ifndef TclpHasSockets
1272     #define TclpHasSockets \
1273     (tclIntStubsPtr->tclpHasSockets) /* 132 */
1274     #endif
1275     #ifndef TclpGetDate
1276     #define TclpGetDate \
1277     (tclIntStubsPtr->tclpGetDate) /* 133 */
1278     #endif
1279     #ifndef TclpStrftime
1280     #define TclpStrftime \
1281     (tclIntStubsPtr->tclpStrftime) /* 134 */
1282     #endif
1283     #ifndef TclpCheckStackSpace
1284     #define TclpCheckStackSpace \
1285     (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
1286     #endif
1287     /* Slot 136 is reserved */
1288     #ifndef TclpChdir
1289     #define TclpChdir \
1290     (tclIntStubsPtr->tclpChdir) /* 137 */
1291     #endif
1292     #ifndef TclGetEnv
1293     #define TclGetEnv \
1294     (tclIntStubsPtr->tclGetEnv) /* 138 */
1295     #endif
1296     #ifndef TclpLoadFile
1297     #define TclpLoadFile \
1298     (tclIntStubsPtr->tclpLoadFile) /* 139 */
1299     #endif
1300     #ifndef TclLooksLikeInt
1301     #define TclLooksLikeInt \
1302     (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
1303     #endif
1304     #ifndef TclpGetCwd
1305     #define TclpGetCwd \
1306     (tclIntStubsPtr->tclpGetCwd) /* 141 */
1307     #endif
1308     #ifndef TclSetByteCodeFromAny
1309     #define TclSetByteCodeFromAny \
1310     (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
1311     #endif
1312     #ifndef TclAddLiteralObj
1313     #define TclAddLiteralObj \
1314     (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
1315     #endif
1316     #ifndef TclHideLiteral
1317     #define TclHideLiteral \
1318     (tclIntStubsPtr->tclHideLiteral) /* 144 */
1319     #endif
1320     #ifndef TclGetAuxDataType
1321     #define TclGetAuxDataType \
1322     (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
1323     #endif
1324     #ifndef TclHandleCreate
1325     #define TclHandleCreate \
1326     (tclIntStubsPtr->tclHandleCreate) /* 146 */
1327     #endif
1328     #ifndef TclHandleFree
1329     #define TclHandleFree \
1330     (tclIntStubsPtr->tclHandleFree) /* 147 */
1331     #endif
1332     #ifndef TclHandlePreserve
1333     #define TclHandlePreserve \
1334     (tclIntStubsPtr->tclHandlePreserve) /* 148 */
1335     #endif
1336     #ifndef TclHandleRelease
1337     #define TclHandleRelease \
1338     (tclIntStubsPtr->tclHandleRelease) /* 149 */
1339     #endif
1340     #ifndef TclRegAbout
1341     #define TclRegAbout \
1342     (tclIntStubsPtr->tclRegAbout) /* 150 */
1343     #endif
1344     #ifndef TclRegExpRangeUniChar
1345     #define TclRegExpRangeUniChar \
1346     (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
1347     #endif
1348     #ifndef TclSetLibraryPath
1349     #define TclSetLibraryPath \
1350     (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
1351     #endif
1352     #ifndef TclGetLibraryPath
1353     #define TclGetLibraryPath \
1354     (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
1355     #endif
1356     #ifndef TclTestChannelCmd
1357     #define TclTestChannelCmd \
1358     (tclIntStubsPtr->tclTestChannelCmd) /* 154 */
1359     #endif
1360     #ifndef TclTestChannelEventCmd
1361     #define TclTestChannelEventCmd \
1362     (tclIntStubsPtr->tclTestChannelEventCmd) /* 155 */
1363     #endif
1364     #ifndef TclRegError
1365     #define TclRegError \
1366     (tclIntStubsPtr->tclRegError) /* 156 */
1367     #endif
1368     #ifndef TclVarTraceExists
1369     #define TclVarTraceExists \
1370     (tclIntStubsPtr->tclVarTraceExists) /* 157 */
1371     #endif
1372     #ifndef TclSetStartupScriptFileName
1373     #define TclSetStartupScriptFileName \
1374     (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
1375     #endif
1376     #ifndef TclGetStartupScriptFileName
1377     #define TclGetStartupScriptFileName \
1378     (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
1379     #endif
1380     #ifndef TclpMatchFilesTypes
1381     #define TclpMatchFilesTypes \
1382     (tclIntStubsPtr->tclpMatchFilesTypes) /* 160 */
1383     #endif
1384    
1385     #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
1386    
1387     /* !END!: Do not edit above this line. */
1388    
1389     #endif /* _TCLINTDECLS */
1390    
1391 dashley 64 /* End of tclintdecls.h */

Properties

Name Value
svn:keywords Header

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25