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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 64 - (show annotations) (download)
Sun Oct 30 04:21:11 2016 UTC (7 years, 7 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 /*$Header$ */
2 /*
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 /* End of tclintdecls.h */

Properties

Name Value
svn:keywords Header

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25