Mercurial > repos > rliterman > csp2

comparison CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclIntDecls.h @ 69:33d812a61356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
author jpayne
date Tue, 18 Mar 2025 17:55:14 -0400
parents
children
comparison
equal deleted inserted replaced
67:0e9998148a16 69:33d812a61356
1 /*
2 * tclIntDecls.h --
3 *
4 * This file contains the declarations for all unsupported
5 * functions that are exported by the Tcl library. These
6 * interfaces are not guaranteed to remain the same between
7 * versions. Use at your own risk.
8 *
9 * Copyright (c) 1998-1999 by Scriptics Corporation.
10 *
11 * See the file "license.terms" for information on usage and redistribution
12 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13 */
14
15 #ifndef _TCLINTDECLS
16 #define _TCLINTDECLS
17
18
19 #undef TCL_STORAGE_CLASS
20 #ifdef BUILD_tcl
21 # define TCL_STORAGE_CLASS DLLEXPORT
22 #else
23 # ifdef USE_TCL_STUBS
24 # define TCL_STORAGE_CLASS
25 # else
26 # define TCL_STORAGE_CLASS DLLIMPORT
27 # endif
28 #endif
29
30 /* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */
31 #undef Tcl_CreateNamespace
32 #undef Tcl_DeleteNamespace
33 #undef Tcl_AppendExportList
34 #undef Tcl_Export
35 #undef Tcl_Import
36 #undef Tcl_ForgetImport
37 #undef Tcl_GetCurrentNamespace
38 #undef Tcl_GetGlobalNamespace
39 #undef Tcl_FindNamespace
40 #undef Tcl_FindCommand
41 #undef Tcl_GetCommandFromObj
42 #undef Tcl_GetCommandFullName
43 #undef Tcl_SetStartupScript
44 #undef Tcl_GetStartupScript
45
46 /*
47 * WARNING: This file is automatically generated by the tools/genStubs.tcl
48 * script. Any modifications to the function declarations below should be made
49 * in the generic/tclInt.decls script.
50 */
51
52 /* !BEGIN!: Do not edit below this line. */
53
54 #ifdef __cplusplus
55 extern "C" {
56 #endif
57
58 /*
59 * Exported function declarations:
60 */
61
62 /* Slot 0 is reserved */
63 /* Slot 1 is reserved */
64 /* Slot 2 is reserved */
65 /* 3 */
66 EXTERN void TclAllocateFreeObjects(void);
67 /* Slot 4 is reserved */
68 /* 5 */
69 EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids,
70 Tcl_Pid *pidPtr, Tcl_Channel errorChan);
71 /* 6 */
72 EXTERN void TclCleanupCommand(Command *cmdPtr);
73 /* 7 */
74 EXTERN int TclCopyAndCollapse(int count, const char *src,
75 char *dst);
76 /* 8 */
77 EXTERN int TclCopyChannelOld(Tcl_Interp *interp,
78 Tcl_Channel inChan, Tcl_Channel outChan,
79 int toRead, Tcl_Obj *cmdPtr);
80 /* 9 */
81 EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc,
82 const char **argv, Tcl_Pid **pidArrayPtr,
83 TclFile *inPipePtr, TclFile *outPipePtr,
84 TclFile *errFilePtr);
85 /* 10 */
86 EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
87 const char *procName, Tcl_Obj *argsPtr,
88 Tcl_Obj *bodyPtr, Proc **procPtrPtr);
89 /* 11 */
90 EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr,
91 CallFrame *framePtr);
92 /* 12 */
93 EXTERN void TclDeleteVars(Interp *iPtr,
94 TclVarHashTable *tablePtr);
95 /* Slot 13 is reserved */
96 /* 14 */
97 EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags);
98 /* Slot 15 is reserved */
99 /* 16 */
100 EXTERN void TclExprFloatError(Tcl_Interp *interp, double value);
101 /* Slot 17 is reserved */
102 /* Slot 18 is reserved */
103 /* Slot 19 is reserved */
104 /* Slot 20 is reserved */
105 /* Slot 21 is reserved */
106 /* 22 */
107 EXTERN int TclFindElement(Tcl_Interp *interp,
108 const char *listStr, int listLength,
109 const char **elementPtr,
110 const char **nextPtr, int *sizePtr,
111 int *bracePtr);
112 /* 23 */
113 EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName);
114 /* 24 */
115 EXTERN int TclFormatInt(char *buffer, long n);
116 /* 25 */
117 EXTERN void TclFreePackageInfo(Interp *iPtr);
118 /* Slot 26 is reserved */
119 /* Slot 27 is reserved */
120 /* 28 */
121 EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type);
122 /* Slot 29 is reserved */
123 /* Slot 30 is reserved */
124 /* 31 */
125 EXTERN const char * TclGetExtension(const char *name);
126 /* 32 */
127 EXTERN int TclGetFrame(Tcl_Interp *interp, const char *str,
128 CallFrame **framePtrPtr);
129 /* Slot 33 is reserved */
130 /* 34 */
131 EXTERN int TclGetIntForIndex(Tcl_Interp *interp,
132 Tcl_Obj *objPtr, int endValue, int *indexPtr);
133 /* Slot 35 is reserved */
134 /* Slot 36 is reserved */
135 /* 37 */
136 EXTERN int TclGetLoadedPackages(Tcl_Interp *interp,
137 const char *targetName);
138 /* 38 */
139 EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp,
140 const char *qualName, Namespace *cxtNsPtr,
141 int flags, Namespace **nsPtrPtr,
142 Namespace **altNsPtrPtr,
143 Namespace **actualCxtPtrPtr,
144 const char **simpleNamePtr);
145 /* 39 */
146 EXTERN Tcl_ObjCmdProc * TclGetObjInterpProc(void);
147 /* 40 */
148 EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str,
149 int *seekFlagPtr);
150 /* 41 */
151 EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command);
152 /* 42 */
153 EXTERN CONST86 char * TclpGetUserHome(const char *name,
154 Tcl_DString *bufferPtr);
155 /* Slot 43 is reserved */
156 /* 44 */
157 EXTERN int TclGuessPackageName(const char *fileName,
158 Tcl_DString *bufPtr);
159 /* 45 */
160 EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp);
161 /* 46 */
162 EXTERN int TclInExit(void);
163 /* Slot 47 is reserved */
164 /* Slot 48 is reserved */
165 /* Slot 49 is reserved */
166 /* 50 */
167 EXTERN void TclInitCompiledLocals(Tcl_Interp *interp,
168 CallFrame *framePtr, Namespace *nsPtr);
169 /* 51 */
170 EXTERN int TclInterpInit(Tcl_Interp *interp);
171 /* Slot 52 is reserved */
172 /* 53 */
173 EXTERN int TclInvokeObjectCommand(ClientData clientData,
174 Tcl_Interp *interp, int argc,
175 CONST84 char **argv);
176 /* 54 */
177 EXTERN int TclInvokeStringCommand(ClientData clientData,
178 Tcl_Interp *interp, int objc,
179 Tcl_Obj *const objv[]);
180 /* 55 */
181 EXTERN Proc * TclIsProc(Command *cmdPtr);
182 /* Slot 56 is reserved */
183 /* Slot 57 is reserved */
184 /* 58 */
185 EXTERN Var * TclLookupVar(Tcl_Interp *interp, const char *part1,
186 const char *part2, int flags,
187 const char *msg, int createPart1,
188 int createPart2, Var **arrayPtrPtr);
189 /* Slot 59 is reserved */
190 /* 60 */
191 EXTERN int TclNeedSpace(const char *start, const char *end);
192 /* 61 */
193 EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr);
194 /* 62 */
195 EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr);
196 /* 63 */
197 EXTERN int TclObjInterpProc(ClientData clientData,
198 Tcl_Interp *interp, int objc,
199 Tcl_Obj *const objv[]);
200 /* 64 */
201 EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc,
202 Tcl_Obj *const objv[], int flags);
203 /* Slot 65 is reserved */
204 /* Slot 66 is reserved */
205 /* Slot 67 is reserved */
206 /* Slot 68 is reserved */
207 /* 69 */
208 EXTERN char * TclpAlloc(unsigned int size);
209 /* Slot 70 is reserved */
210 /* Slot 71 is reserved */
211 /* Slot 72 is reserved */
212 /* Slot 73 is reserved */
213 /* 74 */
214 EXTERN void TclpFree(char *ptr);
215 /* 75 */
216 EXTERN unsigned long TclpGetClicks(void);
217 /* 76 */
218 EXTERN unsigned long TclpGetSeconds(void);
219 /* 77 */
220 EXTERN void TclpGetTime(Tcl_Time *time);
221 /* Slot 78 is reserved */
222 /* Slot 79 is reserved */
223 /* Slot 80 is reserved */
224 /* 81 */
225 EXTERN char * TclpRealloc(char *ptr, unsigned int size);
226 /* Slot 82 is reserved */
227 /* Slot 83 is reserved */
228 /* Slot 84 is reserved */
229 /* Slot 85 is reserved */
230 /* Slot 86 is reserved */
231 /* Slot 87 is reserved */
232 /* 88 */
233 EXTERN char * TclPrecTraceProc(ClientData clientData,
234 Tcl_Interp *interp, const char *name1,
235 const char *name2, int flags);
236 /* 89 */
237 EXTERN int TclPreventAliasLoop(Tcl_Interp *interp,
238 Tcl_Interp *cmdInterp, Tcl_Command cmd);
239 /* Slot 90 is reserved */
240 /* 91 */
241 EXTERN void TclProcCleanupProc(Proc *procPtr);
242 /* 92 */
243 EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
244 Tcl_Obj *bodyPtr, Namespace *nsPtr,
245 const char *description,
246 const char *procName);
247 /* 93 */
248 EXTERN void TclProcDeleteProc(ClientData clientData);
249 /* Slot 94 is reserved */
250 /* Slot 95 is reserved */
251 /* 96 */
252 EXTERN int TclRenameCommand(Tcl_Interp *interp,
253 const char *oldName, const char *newName);
254 /* 97 */
255 EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp,
256 Command *newCmdPtr);
257 /* 98 */
258 EXTERN int TclServiceIdle(void);
259 /* Slot 99 is reserved */
260 /* Slot 100 is reserved */
261 /* 101 */
262 EXTERN CONST86 char * TclSetPreInitScript(const char *string);
263 /* 102 */
264 EXTERN void TclSetupEnv(Tcl_Interp *interp);
265 /* 103 */
266 EXTERN int TclSockGetPort(Tcl_Interp *interp, const char *str,
267 const char *proto, int *portPtr);
268 /* 104 */
269 EXTERN int TclSockMinimumBuffersOld(int sock, int size);
270 /* Slot 105 is reserved */
271 /* Slot 106 is reserved */
272 /* Slot 107 is reserved */
273 /* 108 */
274 EXTERN void TclTeardownNamespace(Namespace *nsPtr);
275 /* 109 */
276 EXTERN int TclUpdateReturnInfo(Interp *iPtr);
277 /* 110 */
278 EXTERN int TclSockMinimumBuffers(void *sock, int size);
279 /* 111 */
280 EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp,
281 const char *name,
282 Tcl_ResolveCmdProc *cmdProc,
283 Tcl_ResolveVarProc *varProc,
284 Tcl_ResolveCompiledVarProc *compiledVarProc);
285 /* 112 */
286 EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
287 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
288 /* 113 */
289 EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
290 const char *name, ClientData clientData,
291 Tcl_NamespaceDeleteProc *deleteProc);
292 /* 114 */
293 EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
294 /* 115 */
295 EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
296 const char *pattern, int resetListFirst);
297 /* 116 */
298 EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
299 Tcl_Namespace *contextNsPtr, int flags);
300 /* 117 */
301 EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
302 const char *name,
303 Tcl_Namespace *contextNsPtr, int flags);
304 /* 118 */
305 EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp,
306 const char *name, Tcl_ResolverInfo *resInfo);
307 /* 119 */
308 EXTERN int Tcl_GetNamespaceResolvers(
309 Tcl_Namespace *namespacePtr,
310 Tcl_ResolverInfo *resInfo);
311 /* 120 */
312 EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp,
313 const char *name,
314 Tcl_Namespace *contextNsPtr, int flags);
315 /* 121 */
316 EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
317 Tcl_Namespace *nsPtr, const char *pattern);
318 /* 122 */
319 EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
320 Tcl_Obj *objPtr);
321 /* 123 */
322 EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
323 Tcl_Command command, Tcl_Obj *objPtr);
324 /* 124 */
325 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
326 /* 125 */
327 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
328 /* 126 */
329 EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp,
330 Tcl_Var variable, Tcl_Obj *objPtr);
331 /* 127 */
332 EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
333 const char *pattern, int allowOverwrite);
334 /* 128 */
335 EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp);
336 /* 129 */
337 EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp,
338 Tcl_CallFrame *framePtr,
339 Tcl_Namespace *nsPtr, int isProcCallFrame);
340 /* 130 */
341 EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
342 const char *name);
343 /* 131 */
344 EXTERN void Tcl_SetNamespaceResolvers(
345 Tcl_Namespace *namespacePtr,
346 Tcl_ResolveCmdProc *cmdProc,
347 Tcl_ResolveVarProc *varProc,
348 Tcl_ResolveCompiledVarProc *compiledVarProc);
349 /* 132 */
350 EXTERN int TclpHasSockets(Tcl_Interp *interp);
351 /* 133 */
352 EXTERN struct tm * TclpGetDate(const time_t *time, int useGMT);
353 /* Slot 134 is reserved */
354 /* Slot 135 is reserved */
355 /* Slot 136 is reserved */
356 /* Slot 137 is reserved */
357 /* 138 */
358 EXTERN CONST84_RETURN char * TclGetEnv(const char *name,
359 Tcl_DString *valuePtr);
360 /* Slot 139 is reserved */
361 /* Slot 140 is reserved */
362 /* 141 */
363 EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
364 Tcl_DString *cwdPtr);
365 /* 142 */
366 EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp,
367 Tcl_Obj *objPtr, CompileHookProc *hookProc,
368 ClientData clientData);
369 /* 143 */
370 EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr,
371 Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
372 /* 144 */
373 EXTERN void TclHideLiteral(Tcl_Interp *interp,
374 struct CompileEnv *envPtr, int index);
375 /* 145 */
376 EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName);
377 /* 146 */
378 EXTERN TclHandle TclHandleCreate(void *ptr);
379 /* 147 */
380 EXTERN void TclHandleFree(TclHandle handle);
381 /* 148 */
382 EXTERN TclHandle TclHandlePreserve(TclHandle handle);
383 /* 149 */
384 EXTERN void TclHandleRelease(TclHandle handle);
385 /* 150 */
386 EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
387 /* 151 */
388 EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index,
389 int *startPtr, int *endPtr);
390 /* 152 */
391 EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr);
392 /* 153 */
393 EXTERN Tcl_Obj * TclGetLibraryPath(void);
394 /* Slot 154 is reserved */
395 /* Slot 155 is reserved */
396 /* 156 */
397 EXTERN void TclRegError(Tcl_Interp *interp, const char *msg,
398 int status);
399 /* 157 */
400 EXTERN Var * TclVarTraceExists(Tcl_Interp *interp,
401 const char *varName);
402 /* 158 */
403 EXTERN void TclSetStartupScriptFileName(const char *filename);
404 /* 159 */
405 EXTERN const char * TclGetStartupScriptFileName(void);
406 /* Slot 160 is reserved */
407 /* 161 */
408 EXTERN int TclChannelTransform(Tcl_Interp *interp,
409 Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
410 /* 162 */
411 EXTERN void TclChannelEventScriptInvoker(ClientData clientData,
412 int flags);
413 /* 163 */
414 EXTERN const void * TclGetInstructionTable(void);
415 /* 164 */
416 EXTERN void TclExpandCodeArray(void *envPtr);
417 /* 165 */
418 EXTERN void TclpSetInitialEncodings(void);
419 /* 166 */
420 EXTERN int TclListObjSetElement(Tcl_Interp *interp,
421 Tcl_Obj *listPtr, int index,
422 Tcl_Obj *valuePtr);
423 /* 167 */
424 EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr);
425 /* 168 */
426 EXTERN Tcl_Obj * TclGetStartupScriptPath(void);
427 /* 169 */
428 EXTERN int TclpUtfNcmp2(const char *s1, const char *s2,
429 unsigned long n);
430 /* 170 */
431 EXTERN int TclCheckInterpTraces(Tcl_Interp *interp,
432 const char *command, int numChars,
433 Command *cmdPtr, int result, int traceFlags,
434 int objc, Tcl_Obj *const objv[]);
435 /* 171 */
436 EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp,
437 const char *command, int numChars,
438 Command *cmdPtr, int result, int traceFlags,
439 int objc, Tcl_Obj *const objv[]);
440 /* 172 */
441 EXTERN int TclInThreadExit(void);
442 /* 173 */
443 EXTERN int TclUniCharMatch(const Tcl_UniChar *string,
444 int strLen, const Tcl_UniChar *pattern,
445 int ptnLen, int flags);
446 /* Slot 174 is reserved */
447 /* 175 */
448 EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
449 Var *varPtr, const char *part1,
450 const char *part2, int flags,
451 int leaveErrMsg);
452 /* 176 */
453 EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr);
454 /* 177 */
455 EXTERN void TclVarErrMsg(Tcl_Interp *interp, const char *part1,
456 const char *part2, const char *operation,
457 const char *reason);
458 /* 178 */
459 EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr,
460 const char *encodingName);
461 /* 179 */
462 EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingNamePtr);
463 /* Slot 180 is reserved */
464 /* Slot 181 is reserved */
465 /* 182 */
466 EXTERN struct tm * TclpLocaltime(const time_t *clock);
467 /* 183 */
468 EXTERN struct tm * TclpGmtime(const time_t *clock);
469 /* Slot 184 is reserved */
470 /* Slot 185 is reserved */
471 /* Slot 186 is reserved */
472 /* Slot 187 is reserved */
473 /* Slot 188 is reserved */
474 /* Slot 189 is reserved */
475 /* Slot 190 is reserved */
476 /* Slot 191 is reserved */
477 /* Slot 192 is reserved */
478 /* Slot 193 is reserved */
479 /* Slot 194 is reserved */
480 /* Slot 195 is reserved */
481 /* Slot 196 is reserved */
482 /* Slot 197 is reserved */
483 /* 198 */
484 EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
485 CallFrame **framePtrPtr);
486 /* Slot 199 is reserved */
487 /* 200 */
488 EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
489 int recursive, Tcl_Obj **errorPtr);
490 /* 201 */
491 EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
492 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
493 /* 202 */
494 EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr);
495 /* 203 */
496 EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr);
497 /* 204 */
498 EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr,
499 Tcl_Obj *destPathPtr);
500 /* 205 */
501 EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr,
502 Tcl_Obj *destPathPtr);
503 /* 206 */
504 EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
505 /* 207 */
506 EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode);
507 /* 208 */
508 EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp,
509 Tcl_Obj *pathPtr, int mode, int permissions);
510 /* Slot 209 is reserved */
511 /* Slot 210 is reserved */
512 /* Slot 211 is reserved */
513 /* 212 */
514 EXTERN void TclpFindExecutable(const char *argv0);
515 /* 213 */
516 EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void);
517 /* 214 */
518 EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name,
519 Tcl_Encoding encoding);
520 /* 215 */
521 EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes);
522 /* 216 */
523 EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr);
524 /* 217 */
525 EXTERN int TclPushStackFrame(Tcl_Interp *interp,
526 Tcl_CallFrame **framePtrPtr,
527 Tcl_Namespace *namespacePtr,
528 int isProcCallFrame);
529 /* 218 */
530 EXTERN void TclPopStackFrame(Tcl_Interp *interp);
531 /* Slot 219 is reserved */
532 /* Slot 220 is reserved */
533 /* Slot 221 is reserved */
534 /* Slot 222 is reserved */
535 /* Slot 223 is reserved */
536 /* 224 */
537 EXTERN TclPlatformType * TclGetPlatform(void);
538 /* 225 */
539 EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp,
540 Tcl_Obj *rootPtr, int keyc,
541 Tcl_Obj *const keyv[], int flags);
542 /* 226 */
543 EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr);
544 /* 227 */
545 EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength,
546 Tcl_Namespace *pathAry[]);
547 /* Slot 228 is reserved */
548 /* 229 */
549 EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
550 const char *myName, int myFlags, int index);
551 /* 230 */
552 EXTERN Var * TclObjLookupVar(Tcl_Interp *interp,
553 Tcl_Obj *part1Ptr, const char *part2,
554 int flags, const char *msg,
555 const int createPart1, const int createPart2,
556 Var **arrayPtrPtr);
557 /* 231 */
558 EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp,
559 Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
560 /* 232 */
561 EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
562 int flags, const CmdFrame *invoker, int word);
563 /* 233 */
564 EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr);
565 /* 234 */
566 EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr,
567 const char *key, int *newPtr);
568 /* 235 */
569 EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr,
570 Namespace *nsPtr);
571 /* 236 */
572 EXTERN void TclBackgroundException(Tcl_Interp *interp, int code);
573 /* 237 */
574 EXTERN int TclResetCancellation(Tcl_Interp *interp, int force);
575 /* 238 */
576 EXTERN int TclNRInterpProc(ClientData clientData,
577 Tcl_Interp *interp, int objc,
578 Tcl_Obj *const objv[]);
579 /* 239 */
580 EXTERN int TclNRInterpProcCore(Tcl_Interp *interp,
581 Tcl_Obj *procNameObj, int skip,
582 ProcErrorProc *errorProc);
583 /* 240 */
584 EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result,
585 struct NRE_callback *rootPtr);
586 /* 241 */
587 EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
588 int flags, const CmdFrame *invoker, int word);
589 /* 242 */
590 EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc,
591 Tcl_Obj *const objv[], int flags,
592 Command *cmdPtr);
593 /* 243 */
594 EXTERN void TclDbDumpActiveObjects(FILE *outFile);
595 /* 244 */
596 EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr);
597 /* 245 */
598 EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr);
599 /* 246 */
600 EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp,
601 int numRemoved, int numInserted,
602 Tcl_Obj *const *objv);
603 /* 247 */
604 EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp,
605 int isRootEnsemble);
606 /* 248 */
607 EXTERN int TclCopyChannel(Tcl_Interp *interp,
608 Tcl_Channel inChan, Tcl_Channel outChan,
609 Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
610 /* 249 */
611 EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags,
612 int *decpt, int *signum, char **endPtr);
613 /* 250 */
614 EXTERN void TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags,
615 int force);
616 /* 251 */
617 EXTERN int TclRegisterLiteral(void *envPtr, char *bytes,
618 int length, int flags);
619 /* 252 */
620 EXTERN Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr,
621 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
622 Tcl_Obj *part2Ptr, const int flags);
623 /* 253 */
624 EXTERN Tcl_Obj * TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr,
625 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
626 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
627 const int flags);
628 /* 254 */
629 EXTERN Tcl_Obj * TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr,
630 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
631 Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr,
632 const int flags);
633 /* 255 */
634 EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp,
635 Tcl_Var otherPtr, Tcl_Obj *myNamePtr,
636 int myFlags);
637 /* 256 */
638 EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr,
639 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
640 Tcl_Obj *part2Ptr, const int flags);
641 /* 257 */
642 EXTERN void TclStaticPackage(Tcl_Interp *interp,
643 const char *prefix,
644 Tcl_PackageInitProc *initProc,
645 Tcl_PackageInitProc *safeInitProc);
646 /* Slot 258 is reserved */
647 /* Slot 259 is reserved */
648 /* Slot 260 is reserved */
649 /* 261 */
650 EXTERN void TclUnusedStubEntry(void);
651
652 typedef struct TclIntStubs {
653 int magic;
654 void *hooks;
655
656 void (*reserved0)(void);
657 void (*reserved1)(void);
658 void (*reserved2)(void);
659 void (*tclAllocateFreeObjects) (void); /* 3 */
660 void (*reserved4)(void);
661 int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */
662 void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */
663 int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */
664 int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */
665 int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */
666 int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */
667 void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */
668 void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */
669 void (*reserved13)(void);
670 int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */
671 void (*reserved15)(void);
672 void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */
673 void (*reserved17)(void);
674 void (*reserved18)(void);
675 void (*reserved19)(void);
676 void (*reserved20)(void);
677 void (*reserved21)(void);
678 int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */
679 Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */
680 int (*tclFormatInt) (char *buffer, long n); /* 24 */
681 void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */
682 void (*reserved26)(void);
683 void (*reserved27)(void);
684 Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
685 void (*reserved29)(void);
686 void (*reserved30)(void);
687 const char * (*tclGetExtension) (const char *name); /* 31 */
688 int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */
689 void (*reserved33)(void);
690 int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
691 void (*reserved35)(void);
692 void (*reserved36)(void);
693 int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */
694 int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */
695 Tcl_ObjCmdProc * (*tclGetObjInterpProc) (void); /* 39 */
696 int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */
697 Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
698 CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */
699 void (*reserved43)(void);
700 int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */
701 int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
702 int (*tclInExit) (void); /* 46 */
703 void (*reserved47)(void);
704 void (*reserved48)(void);
705 void (*reserved49)(void);
706 void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */
707 int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */
708 void (*reserved52)(void);
709 int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */
710 int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */
711 Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */
712 void (*reserved56)(void);
713 void (*reserved57)(void);
714 Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */
715 void (*reserved59)(void);
716 int (*tclNeedSpace) (const char *start, const char *end); /* 60 */
717 Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */
718 int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */
719 int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */
720 int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */
721 void (*reserved65)(void);
722 void (*reserved66)(void);
723 void (*reserved67)(void);
724 void (*reserved68)(void);
725 char * (*tclpAlloc) (unsigned int size); /* 69 */
726 void (*reserved70)(void);
727 void (*reserved71)(void);
728 void (*reserved72)(void);
729 void (*reserved73)(void);
730 void (*tclpFree) (char *ptr); /* 74 */
731 unsigned long (*tclpGetClicks) (void); /* 75 */
732 unsigned long (*tclpGetSeconds) (void); /* 76 */
733 void (*tclpGetTime) (Tcl_Time *time); /* 77 */
734 void (*reserved78)(void);
735 void (*reserved79)(void);
736 void (*reserved80)(void);
737 char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */
738 void (*reserved82)(void);
739 void (*reserved83)(void);
740 void (*reserved84)(void);
741 void (*reserved85)(void);
742 void (*reserved86)(void);
743 void (*reserved87)(void);
744 char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */
745 int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */
746 void (*reserved90)(void);
747 void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */
748 int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */
749 void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
750 void (*reserved94)(void);
751 void (*reserved95)(void);
752 int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */
753 void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */
754 int (*tclServiceIdle) (void); /* 98 */
755 void (*reserved99)(void);
756 void (*reserved100)(void);
757 CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */
758 void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */
759 int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */
760 int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */
761 void (*reserved105)(void);
762 void (*reserved106)(void);
763 void (*reserved107)(void);
764 void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */
765 int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */
766 int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */
767 void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */
768 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */
769 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */
770 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */
771 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */
772 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */
773 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */
774 int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */
775 int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */
776 Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */
777 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */
778 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */
779 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */
780 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */
781 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */
782 void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */
783 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */
784 void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */
785 int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */
786 int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */
787 void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */
788 int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */
789 struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */
790 void (*reserved134)(void);
791 void (*reserved135)(void);
792 void (*reserved136)(void);
793 void (*reserved137)(void);
794 CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */
795 void (*reserved139)(void);
796 void (*reserved140)(void);
797 CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */
798 int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */
799 int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */
800 void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */
801 const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */
802 TclHandle (*tclHandleCreate) (void *ptr); /* 146 */
803 void (*tclHandleFree) (TclHandle handle); /* 147 */
804 TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
805 void (*tclHandleRelease) (TclHandle handle); /* 149 */
806 int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */
807 void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */
808 void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */
809 Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
810 void (*reserved154)(void);
811 void (*reserved155)(void);
812 void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */
813 Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */
814 void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */
815 const char * (*tclGetStartupScriptFileName) (void); /* 159 */
816 void (*reserved160)(void);
817 int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */
818 void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
819 const void * (*tclGetInstructionTable) (void); /* 163 */
820 void (*tclExpandCodeArray) (void *envPtr); /* 164 */
821 void (*tclpSetInitialEncodings) (void); /* 165 */
822 int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */
823 void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */
824 Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
825 int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */
826 int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 170 */
827 int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 171 */
828 int (*tclInThreadExit) (void); /* 172 */
829 int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */
830 void (*reserved174)(void);
831 int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */
832 void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */
833 void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */
834 void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */
835 Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */
836 void (*reserved180)(void);
837 void (*reserved181)(void);
838 struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */
839 struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */
840 void (*reserved184)(void);
841 void (*reserved185)(void);
842 void (*reserved186)(void);
843 void (*reserved187)(void);
844 void (*reserved188)(void);
845 void (*reserved189)(void);
846 void (*reserved190)(void);
847 void (*reserved191)(void);
848 void (*reserved192)(void);
849 void (*reserved193)(void);
850 void (*reserved194)(void);
851 void (*reserved195)(void);
852 void (*reserved196)(void);
853 void (*reserved197)(void);
854 int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */
855 void (*reserved199)(void);
856 int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */
857 int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */
858 int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */
859 int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */
860 int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */
861 int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */
862 int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */
863 int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */
864 Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */
865 void (*reserved209)(void);
866 void (*reserved210)(void);
867 void (*reserved211)(void);
868 void (*tclpFindExecutable) (const char *argv0); /* 212 */
869 Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
870 void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */
871 void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */
872 void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */
873 int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */
874 void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */
875 void (*reserved219)(void);
876 void (*reserved220)(void);
877 void (*reserved221)(void);
878 void (*reserved222)(void);
879 void (*reserved223)(void);
880 TclPlatformType * (*tclGetPlatform) (void); /* 224 */
881 Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */
882 int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */
883 void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */
884 void (*reserved228)(void);
885 int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */
886 Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, const char *part2, int flags, const char *msg, const int createPart1, const int createPart2, Var **arrayPtrPtr); /* 230 */
887 int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */
888 int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */
889 void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */
890 Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */
891 void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */
892 void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */
893 int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */
894 int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */
895 int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */
896 int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */
897 int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */
898 int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */
899 void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */
900 Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */
901 Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */
902 int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */
903 void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */
904 int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */
905 char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */
906 void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */
907 int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */
908 Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 252 */
909 Tcl_Obj * (*tclPtrSetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags); /* 253 */
910 Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */
911 int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */
912 int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */
913 void (*tclStaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */
914 void (*reserved258)(void);
915 void (*reserved259)(void);
916 void (*reserved260)(void);
917 void (*tclUnusedStubEntry) (void); /* 261 */
918 } TclIntStubs;
919
920 extern const TclIntStubs *tclIntStubsPtr;
921
922 #ifdef __cplusplus
923 }
924 #endif
925
926 #if defined(USE_TCL_STUBS)
927
928 /*
929 * Inline function declarations:
930 */
931
932 /* Slot 0 is reserved */
933 /* Slot 1 is reserved */
934 /* Slot 2 is reserved */
935 #define TclAllocateFreeObjects \
936 (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
937 /* Slot 4 is reserved */
938 #define TclCleanupChildren \
939 (tclIntStubsPtr->tclCleanupChildren) /* 5 */
940 #define TclCleanupCommand \
941 (tclIntStubsPtr->tclCleanupCommand) /* 6 */
942 #define TclCopyAndCollapse \
943 (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
944 #define TclCopyChannelOld \
945 (tclIntStubsPtr->tclCopyChannelOld) /* 8 */
946 #define TclCreatePipeline \
947 (tclIntStubsPtr->tclCreatePipeline) /* 9 */
948 #define TclCreateProc \
949 (tclIntStubsPtr->tclCreateProc) /* 10 */
950 #define TclDeleteCompiledLocalVars \
951 (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
952 #define TclDeleteVars \
953 (tclIntStubsPtr->tclDeleteVars) /* 12 */
954 /* Slot 13 is reserved */
955 #define TclDumpMemoryInfo \
956 (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
957 /* Slot 15 is reserved */
958 #define TclExprFloatError \
959 (tclIntStubsPtr->tclExprFloatError) /* 16 */
960 /* Slot 17 is reserved */
961 /* Slot 18 is reserved */
962 /* Slot 19 is reserved */
963 /* Slot 20 is reserved */
964 /* Slot 21 is reserved */
965 #define TclFindElement \
966 (tclIntStubsPtr->tclFindElement) /* 22 */
967 #define TclFindProc \
968 (tclIntStubsPtr->tclFindProc) /* 23 */
969 #define TclFormatInt \
970 (tclIntStubsPtr->tclFormatInt) /* 24 */
971 #define TclFreePackageInfo \
972 (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
973 /* Slot 26 is reserved */
974 /* Slot 27 is reserved */
975 #define TclpGetDefaultStdChannel \
976 (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
977 /* Slot 29 is reserved */
978 /* Slot 30 is reserved */
979 #define TclGetExtension \
980 (tclIntStubsPtr->tclGetExtension) /* 31 */
981 #define TclGetFrame \
982 (tclIntStubsPtr->tclGetFrame) /* 32 */
983 /* Slot 33 is reserved */
984 #define TclGetIntForIndex \
985 (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
986 /* Slot 35 is reserved */
987 /* Slot 36 is reserved */
988 #define TclGetLoadedPackages \
989 (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
990 #define TclGetNamespaceForQualName \
991 (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
992 #define TclGetObjInterpProc \
993 (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
994 #define TclGetOpenMode \
995 (tclIntStubsPtr->tclGetOpenMode) /* 40 */
996 #define TclGetOriginalCommand \
997 (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
998 #define TclpGetUserHome \
999 (tclIntStubsPtr->tclpGetUserHome) /* 42 */
1000 /* Slot 43 is reserved */
1001 #define TclGuessPackageName \
1002 (tclIntStubsPtr->tclGuessPackageName) /* 44 */
1003 #define TclHideUnsafeCommands \
1004 (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
1005 #define TclInExit \
1006 (tclIntStubsPtr->tclInExit) /* 46 */
1007 /* Slot 47 is reserved */
1008 /* Slot 48 is reserved */
1009 /* Slot 49 is reserved */
1010 #define TclInitCompiledLocals \
1011 (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
1012 #define TclInterpInit \
1013 (tclIntStubsPtr->tclInterpInit) /* 51 */
1014 /* Slot 52 is reserved */
1015 #define TclInvokeObjectCommand \
1016 (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
1017 #define TclInvokeStringCommand \
1018 (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
1019 #define TclIsProc \
1020 (tclIntStubsPtr->tclIsProc) /* 55 */
1021 /* Slot 56 is reserved */
1022 /* Slot 57 is reserved */
1023 #define TclLookupVar \
1024 (tclIntStubsPtr->tclLookupVar) /* 58 */
1025 /* Slot 59 is reserved */
1026 #define TclNeedSpace \
1027 (tclIntStubsPtr->tclNeedSpace) /* 60 */
1028 #define TclNewProcBodyObj \
1029 (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
1030 #define TclObjCommandComplete \
1031 (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
1032 #define TclObjInterpProc \
1033 (tclIntStubsPtr->tclObjInterpProc) /* 63 */
1034 #define TclObjInvoke \
1035 (tclIntStubsPtr->tclObjInvoke) /* 64 */
1036 /* Slot 65 is reserved */
1037 /* Slot 66 is reserved */
1038 /* Slot 67 is reserved */
1039 /* Slot 68 is reserved */
1040 #define TclpAlloc \
1041 (tclIntStubsPtr->tclpAlloc) /* 69 */
1042 /* Slot 70 is reserved */
1043 /* Slot 71 is reserved */
1044 /* Slot 72 is reserved */
1045 /* Slot 73 is reserved */
1046 #define TclpFree \
1047 (tclIntStubsPtr->tclpFree) /* 74 */
1048 #define TclpGetClicks \
1049 (tclIntStubsPtr->tclpGetClicks) /* 75 */
1050 #define TclpGetSeconds \
1051 (tclIntStubsPtr->tclpGetSeconds) /* 76 */
1052 #define TclpGetTime \
1053 (tclIntStubsPtr->tclpGetTime) /* 77 */
1054 /* Slot 78 is reserved */
1055 /* Slot 79 is reserved */
1056 /* Slot 80 is reserved */
1057 #define TclpRealloc \
1058 (tclIntStubsPtr->tclpRealloc) /* 81 */
1059 /* Slot 82 is reserved */
1060 /* Slot 83 is reserved */
1061 /* Slot 84 is reserved */
1062 /* Slot 85 is reserved */
1063 /* Slot 86 is reserved */
1064 /* Slot 87 is reserved */
1065 #define TclPrecTraceProc \
1066 (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
1067 #define TclPreventAliasLoop \
1068 (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
1069 /* Slot 90 is reserved */
1070 #define TclProcCleanupProc \
1071 (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
1072 #define TclProcCompileProc \
1073 (tclIntStubsPtr->tclProcCompileProc) /* 92 */
1074 #define TclProcDeleteProc \
1075 (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
1076 /* Slot 94 is reserved */
1077 /* Slot 95 is reserved */
1078 #define TclRenameCommand \
1079 (tclIntStubsPtr->tclRenameCommand) /* 96 */
1080 #define TclResetShadowedCmdRefs \
1081 (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
1082 #define TclServiceIdle \
1083 (tclIntStubsPtr->tclServiceIdle) /* 98 */
1084 /* Slot 99 is reserved */
1085 /* Slot 100 is reserved */
1086 #define TclSetPreInitScript \
1087 (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1088 #define TclSetupEnv \
1089 (tclIntStubsPtr->tclSetupEnv) /* 102 */
1090 #define TclSockGetPort \
1091 (tclIntStubsPtr->tclSockGetPort) /* 103 */
1092 #define TclSockMinimumBuffersOld \
1093 (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */
1094 /* Slot 105 is reserved */
1095 /* Slot 106 is reserved */
1096 /* Slot 107 is reserved */
1097 #define TclTeardownNamespace \
1098 (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
1099 #define TclUpdateReturnInfo \
1100 (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
1101 #define TclSockMinimumBuffers \
1102 (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */
1103 #define Tcl_AddInterpResolvers \
1104 (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
1105 #define Tcl_AppendExportList \
1106 (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
1107 #define Tcl_CreateNamespace \
1108 (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
1109 #define Tcl_DeleteNamespace \
1110 (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
1111 #define Tcl_Export \
1112 (tclIntStubsPtr->tcl_Export) /* 115 */
1113 #define Tcl_FindCommand \
1114 (tclIntStubsPtr->tcl_FindCommand) /* 116 */
1115 #define Tcl_FindNamespace \
1116 (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
1117 #define Tcl_GetInterpResolvers \
1118 (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
1119 #define Tcl_GetNamespaceResolvers \
1120 (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
1121 #define Tcl_FindNamespaceVar \
1122 (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
1123 #define Tcl_ForgetImport \
1124 (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
1125 #define Tcl_GetCommandFromObj \
1126 (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
1127 #define Tcl_GetCommandFullName \
1128 (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
1129 #define Tcl_GetCurrentNamespace \
1130 (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
1131 #define Tcl_GetGlobalNamespace \
1132 (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
1133 #define Tcl_GetVariableFullName \
1134 (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
1135 #define Tcl_Import \
1136 (tclIntStubsPtr->tcl_Import) /* 127 */
1137 #define Tcl_PopCallFrame \
1138 (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
1139 #define Tcl_PushCallFrame \
1140 (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
1141 #define Tcl_RemoveInterpResolvers \
1142 (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
1143 #define Tcl_SetNamespaceResolvers \
1144 (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
1145 #define TclpHasSockets \
1146 (tclIntStubsPtr->tclpHasSockets) /* 132 */
1147 #define TclpGetDate \
1148 (tclIntStubsPtr->tclpGetDate) /* 133 */
1149 /* Slot 134 is reserved */
1150 /* Slot 135 is reserved */
1151 /* Slot 136 is reserved */
1152 /* Slot 137 is reserved */
1153 #define TclGetEnv \
1154 (tclIntStubsPtr->tclGetEnv) /* 138 */
1155 /* Slot 139 is reserved */
1156 /* Slot 140 is reserved */
1157 #define TclpGetCwd \
1158 (tclIntStubsPtr->tclpGetCwd) /* 141 */
1159 #define TclSetByteCodeFromAny \
1160 (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
1161 #define TclAddLiteralObj \
1162 (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
1163 #define TclHideLiteral \
1164 (tclIntStubsPtr->tclHideLiteral) /* 144 */
1165 #define TclGetAuxDataType \
1166 (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
1167 #define TclHandleCreate \
1168 (tclIntStubsPtr->tclHandleCreate) /* 146 */
1169 #define TclHandleFree \
1170 (tclIntStubsPtr->tclHandleFree) /* 147 */
1171 #define TclHandlePreserve \
1172 (tclIntStubsPtr->tclHandlePreserve) /* 148 */
1173 #define TclHandleRelease \
1174 (tclIntStubsPtr->tclHandleRelease) /* 149 */
1175 #define TclRegAbout \
1176 (tclIntStubsPtr->tclRegAbout) /* 150 */
1177 #define TclRegExpRangeUniChar \
1178 (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
1179 #define TclSetLibraryPath \
1180 (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
1181 #define TclGetLibraryPath \
1182 (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
1183 /* Slot 154 is reserved */
1184 /* Slot 155 is reserved */
1185 #define TclRegError \
1186 (tclIntStubsPtr->tclRegError) /* 156 */
1187 #define TclVarTraceExists \
1188 (tclIntStubsPtr->tclVarTraceExists) /* 157 */
1189 #define TclSetStartupScriptFileName \
1190 (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
1191 #define TclGetStartupScriptFileName \
1192 (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
1193 /* Slot 160 is reserved */
1194 #define TclChannelTransform \
1195 (tclIntStubsPtr->tclChannelTransform) /* 161 */
1196 #define TclChannelEventScriptInvoker \
1197 (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
1198 #define TclGetInstructionTable \
1199 (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
1200 #define TclExpandCodeArray \
1201 (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
1202 #define TclpSetInitialEncodings \
1203 (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
1204 #define TclListObjSetElement \
1205 (tclIntStubsPtr->tclListObjSetElement) /* 166 */
1206 #define TclSetStartupScriptPath \
1207 (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
1208 #define TclGetStartupScriptPath \
1209 (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
1210 #define TclpUtfNcmp2 \
1211 (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
1212 #define TclCheckInterpTraces \
1213 (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
1214 #define TclCheckExecutionTraces \
1215 (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
1216 #define TclInThreadExit \
1217 (tclIntStubsPtr->tclInThreadExit) /* 172 */
1218 #define TclUniCharMatch \
1219 (tclIntStubsPtr->tclUniCharMatch) /* 173 */
1220 /* Slot 174 is reserved */
1221 #define TclCallVarTraces \
1222 (tclIntStubsPtr->tclCallVarTraces) /* 175 */
1223 #define TclCleanupVar \
1224 (tclIntStubsPtr->tclCleanupVar) /* 176 */
1225 #define TclVarErrMsg \
1226 (tclIntStubsPtr->tclVarErrMsg) /* 177 */
1227 #define Tcl_SetStartupScript \
1228 (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
1229 #define Tcl_GetStartupScript \
1230 (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
1231 /* Slot 180 is reserved */
1232 /* Slot 181 is reserved */
1233 #define TclpLocaltime \
1234 (tclIntStubsPtr->tclpLocaltime) /* 182 */
1235 #define TclpGmtime \
1236 (tclIntStubsPtr->tclpGmtime) /* 183 */
1237 /* Slot 184 is reserved */
1238 /* Slot 185 is reserved */
1239 /* Slot 186 is reserved */
1240 /* Slot 187 is reserved */
1241 /* Slot 188 is reserved */
1242 /* Slot 189 is reserved */
1243 /* Slot 190 is reserved */
1244 /* Slot 191 is reserved */
1245 /* Slot 192 is reserved */
1246 /* Slot 193 is reserved */
1247 /* Slot 194 is reserved */
1248 /* Slot 195 is reserved */
1249 /* Slot 196 is reserved */
1250 /* Slot 197 is reserved */
1251 #define TclObjGetFrame \
1252 (tclIntStubsPtr->tclObjGetFrame) /* 198 */
1253 /* Slot 199 is reserved */
1254 #define TclpObjRemoveDirectory \
1255 (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
1256 #define TclpObjCopyDirectory \
1257 (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
1258 #define TclpObjCreateDirectory \
1259 (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
1260 #define TclpObjDeleteFile \
1261 (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
1262 #define TclpObjCopyFile \
1263 (tclIntStubsPtr->tclpObjCopyFile) /* 204 */
1264 #define TclpObjRenameFile \
1265 (tclIntStubsPtr->tclpObjRenameFile) /* 205 */
1266 #define TclpObjStat \
1267 (tclIntStubsPtr->tclpObjStat) /* 206 */
1268 #define TclpObjAccess \
1269 (tclIntStubsPtr->tclpObjAccess) /* 207 */
1270 #define TclpOpenFileChannel \
1271 (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
1272 /* Slot 209 is reserved */
1273 /* Slot 210 is reserved */
1274 /* Slot 211 is reserved */
1275 #define TclpFindExecutable \
1276 (tclIntStubsPtr->tclpFindExecutable) /* 212 */
1277 #define TclGetObjNameOfExecutable \
1278 (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
1279 #define TclSetObjNameOfExecutable \
1280 (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
1281 #define TclStackAlloc \
1282 (tclIntStubsPtr->tclStackAlloc) /* 215 */
1283 #define TclStackFree \
1284 (tclIntStubsPtr->tclStackFree) /* 216 */
1285 #define TclPushStackFrame \
1286 (tclIntStubsPtr->tclPushStackFrame) /* 217 */
1287 #define TclPopStackFrame \
1288 (tclIntStubsPtr->tclPopStackFrame) /* 218 */
1289 /* Slot 219 is reserved */
1290 /* Slot 220 is reserved */
1291 /* Slot 221 is reserved */
1292 /* Slot 222 is reserved */
1293 /* Slot 223 is reserved */
1294 #define TclGetPlatform \
1295 (tclIntStubsPtr->tclGetPlatform) /* 224 */
1296 #define TclTraceDictPath \
1297 (tclIntStubsPtr->tclTraceDictPath) /* 225 */
1298 #define TclObjBeingDeleted \
1299 (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
1300 #define TclSetNsPath \
1301 (tclIntStubsPtr->tclSetNsPath) /* 227 */
1302 /* Slot 228 is reserved */
1303 #define TclPtrMakeUpvar \
1304 (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
1305 #define TclObjLookupVar \
1306 (tclIntStubsPtr->tclObjLookupVar) /* 230 */
1307 #define TclGetNamespaceFromObj \
1308 (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
1309 #define TclEvalObjEx \
1310 (tclIntStubsPtr->tclEvalObjEx) /* 232 */
1311 #define TclGetSrcInfoForPc \
1312 (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
1313 #define TclVarHashCreateVar \
1314 (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
1315 #define TclInitVarHashTable \
1316 (tclIntStubsPtr->tclInitVarHashTable) /* 235 */
1317 #define TclBackgroundException \
1318 (tclIntStubsPtr->tclBackgroundException) /* 236 */
1319 #define TclResetCancellation \
1320 (tclIntStubsPtr->tclResetCancellation) /* 237 */
1321 #define TclNRInterpProc \
1322 (tclIntStubsPtr->tclNRInterpProc) /* 238 */
1323 #define TclNRInterpProcCore \
1324 (tclIntStubsPtr->tclNRInterpProcCore) /* 239 */
1325 #define TclNRRunCallbacks \
1326 (tclIntStubsPtr->tclNRRunCallbacks) /* 240 */
1327 #define TclNREvalObjEx \
1328 (tclIntStubsPtr->tclNREvalObjEx) /* 241 */
1329 #define TclNREvalObjv \
1330 (tclIntStubsPtr->tclNREvalObjv) /* 242 */
1331 #define TclDbDumpActiveObjects \
1332 (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */
1333 #define TclGetNamespaceChildTable \
1334 (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */
1335 #define TclGetNamespaceCommandTable \
1336 (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */
1337 #define TclInitRewriteEnsemble \
1338 (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */
1339 #define TclResetRewriteEnsemble \
1340 (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */
1341 #define TclCopyChannel \
1342 (tclIntStubsPtr->tclCopyChannel) /* 248 */
1343 #define TclDoubleDigits \
1344 (tclIntStubsPtr->tclDoubleDigits) /* 249 */
1345 #define TclSetSlaveCancelFlags \
1346 (tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */
1347 #define TclRegisterLiteral \
1348 (tclIntStubsPtr->tclRegisterLiteral) /* 251 */
1349 #define TclPtrGetVar \
1350 (tclIntStubsPtr->tclPtrGetVar) /* 252 */
1351 #define TclPtrSetVar \
1352 (tclIntStubsPtr->tclPtrSetVar) /* 253 */
1353 #define TclPtrIncrObjVar \
1354 (tclIntStubsPtr->tclPtrIncrObjVar) /* 254 */
1355 #define TclPtrObjMakeUpvar \
1356 (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */
1357 #define TclPtrUnsetVar \
1358 (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */
1359 #define TclStaticPackage \
1360 (tclIntStubsPtr->tclStaticPackage) /* 257 */
1361 /* Slot 258 is reserved */
1362 /* Slot 259 is reserved */
1363 /* Slot 260 is reserved */
1364 #define TclUnusedStubEntry \
1365 (tclIntStubsPtr->tclUnusedStubEntry) /* 261 */
1366
1367 #endif /* defined(USE_TCL_STUBS) */
1368
1369 /* !END!: Do not edit above this line. */
1370
1371 #undef TCL_STORAGE_CLASS
1372 #define TCL_STORAGE_CLASS DLLIMPORT
1373
1374 #undef TclGetStartupScriptFileName
1375 #undef TclSetStartupScriptFileName
1376 #undef TclGetStartupScriptPath
1377 #undef TclSetStartupScriptPath
1378 #undef TclBackgroundException
1379 #undef TclUnusedStubEntry
1380 #undef TclObjInterpProc
1381 #define TclObjInterpProc TclGetObjInterpProc()
1382
1383 #if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED)
1384 # undef Tcl_SetStartupScript
1385 # define Tcl_SetStartupScript \
1386 (tclStubsPtr->tcl_SetStartupScript) /* 622 */
1387 # undef Tcl_GetStartupScript
1388 # define Tcl_GetStartupScript \
1389 (tclStubsPtr->tcl_GetStartupScript) /* 623 */
1390 # undef Tcl_CreateNamespace
1391 # define Tcl_CreateNamespace \
1392 (tclStubsPtr->tcl_CreateNamespace) /* 506 */
1393 # undef Tcl_DeleteNamespace
1394 # define Tcl_DeleteNamespace \
1395 (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
1396 # undef Tcl_AppendExportList
1397 # define Tcl_AppendExportList \
1398 (tclStubsPtr->tcl_AppendExportList) /* 508 */
1399 # undef Tcl_Export
1400 # define Tcl_Export \
1401 (tclStubsPtr->tcl_Export) /* 509 */
1402 # undef Tcl_Import
1403 # define Tcl_Import \
1404 (tclStubsPtr->tcl_Import) /* 510 */
1405 # undef Tcl_ForgetImport
1406 # define Tcl_ForgetImport \
1407 (tclStubsPtr->tcl_ForgetImport) /* 511 */
1408 # undef Tcl_GetCurrentNamespace
1409 # define Tcl_GetCurrentNamespace \
1410 (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
1411 # undef Tcl_GetGlobalNamespace
1412 # define Tcl_GetGlobalNamespace \
1413 (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
1414 # undef Tcl_FindNamespace
1415 # define Tcl_FindNamespace \
1416 (tclStubsPtr->tcl_FindNamespace) /* 514 */
1417 # undef Tcl_FindCommand
1418 # define Tcl_FindCommand \
1419 (tclStubsPtr->tcl_FindCommand) /* 515 */
1420 # undef Tcl_GetCommandFromObj
1421 # define Tcl_GetCommandFromObj \
1422 (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
1423 # undef Tcl_GetCommandFullName
1424 # define Tcl_GetCommandFullName \
1425 (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
1426 #endif
1427
1428 #undef TclCopyChannelOld
1429 #undef TclSockMinimumBuffersOld
1430
1431 #define TclSetChildCancelFlags TclSetSlaveCancelFlags
1432
1433 #endif /* _TCLINTDECLS */