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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25