os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclIntDecls.h
Update contrib.
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.
9 * Copyright (c) 1998-1999 by Scriptics Corporation.
11 * See the file "license.terms" for information on usage and redistribution
12 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14 * RCS: @(#) $Id: tclIntDecls.h,v 1.49.2.9 2007/04/21 19:52:14 kennykb Exp $
21 * WARNING: This file is automatically generated by the tools/genStubs.tcl
22 * script. Any modifications to the function declarations below should be made
23 * in the generic/tclInt.decls script.
26 /* !BEGIN!: Do not edit below this line. */
29 * Exported function declarations:
32 /* Slot 0 is reserved */
34 EXTERN int TclAccessDeleteProc _ANSI_ARGS_((
35 TclAccessProc_ * proc));
37 EXTERN int TclAccessInsertProc _ANSI_ARGS_((
38 TclAccessProc_ * proc));
40 EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void));
41 /* Slot 4 is reserved */
42 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
44 EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
45 int numPids, Tcl_Pid * pidPtr,
46 Tcl_Channel errorChan));
50 EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
51 int numPids, Tcl_Pid * pidPtr,
52 Tcl_Channel errorChan));
53 #endif /* __WIN32__ */
55 EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
57 EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count,
58 CONST char * src, char * dst));
60 EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp,
61 Tcl_Channel inChan, Tcl_Channel outChan,
62 int toRead, Tcl_Obj * cmdPtr));
63 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
65 EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
66 int argc, CONST char ** argv,
67 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
68 TclFile * outPipePtr, TclFile * errFilePtr));
72 EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
73 int argc, CONST char ** argv,
74 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
75 TclFile * outPipePtr, TclFile * errFilePtr));
76 #endif /* __WIN32__ */
78 EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp,
79 Namespace * nsPtr, CONST char * procName,
80 Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr,
83 EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_((
84 Interp * iPtr, CallFrame * framePtr));
86 EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr,
87 Tcl_HashTable * tablePtr));
89 EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp,
90 char * separators, Tcl_DString * headPtr,
91 char * tail, Tcl_GlobTypeData * types));
93 EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
94 /* Slot 15 is reserved */
96 EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
98 /* Slot 17 is reserved */
99 /* Slot 18 is reserved */
100 /* Slot 19 is reserved */
101 /* Slot 20 is reserved */
102 /* Slot 21 is reserved */
104 EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp,
105 CONST char * listStr, int listLength,
106 CONST char ** elementPtr,
107 CONST char ** nextPtr, int * sizePtr,
110 EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr,
111 CONST char * procName));
113 EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n));
115 EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
116 /* Slot 26 is reserved */
118 EXTERN int TclGetDate _ANSI_ARGS_((char * p, Tcl_WideInt now,
119 long zone, Tcl_WideInt * timePtr));
121 EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
122 /* Slot 29 is reserved */
123 /* Slot 30 is reserved */
125 EXTERN char * TclGetExtension _ANSI_ARGS_((char * name));
127 EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
128 CONST char * str, CallFrame ** framePtrPtr));
130 EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void));
132 EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp,
133 Tcl_Obj * objPtr, int endValue,
135 /* Slot 35 is reserved */
137 EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp,
138 CONST char * str, long * longPtr));
140 EXTERN int TclGetLoadedPackages _ANSI_ARGS_((
141 Tcl_Interp * interp, char * targetName));
143 EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_((
144 Tcl_Interp * interp, CONST char * qualName,
145 Namespace * cxtNsPtr, int flags,
146 Namespace ** nsPtrPtr,
147 Namespace ** altNsPtrPtr,
148 Namespace ** actualCxtPtrPtr,
149 CONST char ** simpleNamePtr));
151 EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
153 EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp,
154 CONST char * str, int * seekFlagPtr));
156 EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_((
157 Tcl_Command command));
159 EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name,
160 Tcl_DString * bufferPtr));
162 EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp,
163 int argc, CONST84 char ** argv, int flags));
165 EXTERN int TclGuessPackageName _ANSI_ARGS_((
166 CONST char * fileName, Tcl_DString * bufPtr));
168 EXTERN int TclHideUnsafeCommands _ANSI_ARGS_((
169 Tcl_Interp * interp));
171 EXTERN int TclInExit _ANSI_ARGS_((void));
172 /* Slot 47 is reserved */
173 /* Slot 48 is reserved */
175 EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp,
176 Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
177 long incrAmount, int part1NotParsed));
179 EXTERN void TclInitCompiledLocals _ANSI_ARGS_((
180 Tcl_Interp * interp, CallFrame * framePtr,
183 EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
185 EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc,
186 CONST84 char ** argv, int flags));
188 EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
189 ClientData clientData, Tcl_Interp * interp,
190 int argc, CONST84 char ** argv));
192 EXTERN int TclInvokeStringCommand _ANSI_ARGS_((
193 ClientData clientData, Tcl_Interp * interp,
194 int objc, Tcl_Obj *CONST objv[]));
196 EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr));
197 /* Slot 56 is reserved */
198 /* Slot 57 is reserved */
200 EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
201 CONST char * part1, CONST char * part2,
202 int flags, CONST char * msg, int createPart1,
203 int createPart2, Var ** arrayPtrPtr));
204 /* Slot 59 is reserved */
206 EXTERN int TclNeedSpace _ANSI_ARGS_((CONST char * start,
209 EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
211 EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
213 EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
214 Tcl_Interp * interp, int objc,
215 Tcl_Obj *CONST objv[]));
217 EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
218 int objc, Tcl_Obj *CONST objv[], int flags));
220 EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp,
221 int objc, Tcl_Obj *CONST objv[], int flags));
223 EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_((
224 TclOpenFileChannelProc_ * proc));
226 EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_((
227 TclOpenFileChannelProc_ * proc));
228 /* Slot 68 is reserved */
230 EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
231 /* Slot 70 is reserved */
232 /* Slot 71 is reserved */
233 /* Slot 72 is reserved */
234 /* Slot 73 is reserved */
236 EXTERN void TclpFree _ANSI_ARGS_((char * ptr));
238 EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void));
240 EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void));
242 EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
244 EXTERN int TclpGetTimeZone _ANSI_ARGS_((Tcl_WideInt time));
245 /* Slot 79 is reserved */
246 /* Slot 80 is reserved */
248 EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
250 /* Slot 82 is reserved */
251 /* Slot 83 is reserved */
252 /* Slot 84 is reserved */
253 /* Slot 85 is reserved */
254 /* Slot 86 is reserved */
255 /* Slot 87 is reserved */
257 EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
258 Tcl_Interp * interp, CONST char * name1,
259 CONST char * name2, int flags));
261 EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp,
262 Tcl_Interp * cmdInterp, Tcl_Command cmd));
263 /* Slot 90 is reserved */
265 EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
267 EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp,
268 Proc * procPtr, Tcl_Obj * bodyPtr,
269 Namespace * nsPtr, CONST char * description,
270 CONST char * procName));
272 EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
274 EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData,
275 Tcl_Interp * interp, int argc,
276 CONST84 char ** argv));
277 /* Slot 95 is reserved */
279 EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp,
280 char * oldName, char * newName));
282 EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_((
283 Tcl_Interp * interp, Command * newCmdPtr));
285 EXTERN int TclServiceIdle _ANSI_ARGS_((void));
286 /* Slot 99 is reserved */
287 /* Slot 100 is reserved */
289 EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
291 EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
293 EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp,
294 char * str, char * proto, int * portPtr));
295 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
297 EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
302 EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
304 #endif /* __WIN32__ */
305 /* Slot 105 is reserved */
307 EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
309 EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
311 EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
313 EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
314 /* Slot 110 is reserved */
316 EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((
317 Tcl_Interp * interp, CONST char * name,
318 Tcl_ResolveCmdProc * cmdProc,
319 Tcl_ResolveVarProc * varProc,
320 Tcl_ResolveCompiledVarProc * compiledVarProc));
322 EXTERN int Tcl_AppendExportList _ANSI_ARGS_((
323 Tcl_Interp * interp, Tcl_Namespace * nsPtr,
326 EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp,
327 CONST char * name, ClientData clientData,
328 Tcl_NamespaceDeleteProc * deleteProc));
330 EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((
331 Tcl_Namespace * nsPtr));
333 EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp,
334 Tcl_Namespace * nsPtr, CONST char * pattern,
335 int resetListFirst));
337 EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp,
339 Tcl_Namespace * contextNsPtr, int flags));
341 EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp,
343 Tcl_Namespace * contextNsPtr, int flags));
345 EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((
346 Tcl_Interp * interp, CONST char * name,
347 Tcl_ResolverInfo * resInfo));
349 EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_((
350 Tcl_Namespace * namespacePtr,
351 Tcl_ResolverInfo * resInfo));
353 EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((
354 Tcl_Interp * interp, CONST char * name,
355 Tcl_Namespace * contextNsPtr, int flags));
357 EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp,
358 Tcl_Namespace * nsPtr, CONST char * pattern));
360 EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_((
361 Tcl_Interp * interp, Tcl_Obj * objPtr));
363 EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_((
364 Tcl_Interp * interp, Tcl_Command command,
367 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_((
368 Tcl_Interp * interp));
370 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_((
371 Tcl_Interp * interp));
373 EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_((
374 Tcl_Interp * interp, Tcl_Var variable,
377 EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp,
378 Tcl_Namespace * nsPtr, CONST char * pattern,
379 int allowOverwrite));
381 EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
383 EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp,
384 Tcl_CallFrame * framePtr,
385 Tcl_Namespace * nsPtr, int isProcCallFrame));
387 EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_((
388 Tcl_Interp * interp, CONST char * name));
390 EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_((
391 Tcl_Namespace * namespacePtr,
392 Tcl_ResolveCmdProc * cmdProc,
393 Tcl_ResolveVarProc * varProc,
394 Tcl_ResolveCompiledVarProc * compiledVarProc));
396 EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
398 EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
400 EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize,
401 CONST char * format, CONST struct tm * t,
404 EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void));
405 /* Slot 136 is reserved */
406 /* Slot 137 is reserved */
408 EXTERN CONST84_RETURN char * TclGetEnv _ANSI_ARGS_((CONST char * name,
409 Tcl_DString * valuePtr));
410 /* Slot 139 is reserved */
412 EXTERN int TclLooksLikeInt _ANSI_ARGS_((CONST char * bytes,
415 EXTERN CONST84_RETURN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp,
416 Tcl_DString * cwdPtr));
418 EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_((
419 Tcl_Interp * interp, Tcl_Obj * objPtr,
420 CompileHookProc * hookProc,
421 ClientData clientData));
423 EXTERN int TclAddLiteralObj _ANSI_ARGS_((
424 struct CompileEnv * envPtr, Tcl_Obj * objPtr,
425 LiteralEntry ** litPtrPtr));
427 EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp,
428 struct CompileEnv * envPtr, int index));
430 EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
432 EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr));
434 EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle));
436 EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
438 EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle));
440 EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp,
443 EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re,
444 int index, int * startPtr, int * endPtr));
446 EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
448 EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void));
449 /* Slot 154 is reserved */
450 /* Slot 155 is reserved */
452 EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp,
453 CONST char * msg, int status));
455 EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp,
456 CONST char * varName));
458 EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_((
459 CONST char * filename));
461 EXTERN CONST84_RETURN char * TclGetStartupScriptFileName _ANSI_ARGS_((void));
462 /* Slot 160 is reserved */
464 EXTERN int TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp,
465 Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
467 EXTERN void TclChannelEventScriptInvoker _ANSI_ARGS_((
468 ClientData clientData, int flags));
470 EXTERN void * TclGetInstructionTable _ANSI_ARGS_((void));
472 EXTERN void TclExpandCodeArray _ANSI_ARGS_((void * envPtr));
474 EXTERN void TclpSetInitialEncodings _ANSI_ARGS_((void));
476 EXTERN int TclListObjSetElement _ANSI_ARGS_((
477 Tcl_Interp * interp, Tcl_Obj * listPtr,
478 int index, Tcl_Obj * valuePtr));
480 EXTERN void TclSetStartupScriptPath _ANSI_ARGS_((
483 EXTERN Tcl_Obj * TclGetStartupScriptPath _ANSI_ARGS_((void));
485 EXTERN int TclpUtfNcmp2 _ANSI_ARGS_((CONST char * s1,
486 CONST char * s2, unsigned long n));
488 EXTERN int TclCheckInterpTraces _ANSI_ARGS_((
489 Tcl_Interp * interp, CONST char * command,
490 int numChars, Command * cmdPtr, int result,
491 int traceFlags, int objc,
492 Tcl_Obj *CONST objv[]));
494 EXTERN int TclCheckExecutionTraces _ANSI_ARGS_((
495 Tcl_Interp * interp, CONST char * command,
496 int numChars, Command * cmdPtr, int result,
497 int traceFlags, int objc,
498 Tcl_Obj *CONST objv[]));
500 EXTERN int TclInThreadExit _ANSI_ARGS_((void));
502 EXTERN int TclUniCharMatch _ANSI_ARGS_((
503 CONST Tcl_UniChar * string, int strLen,
504 CONST Tcl_UniChar * pattern, int ptnLen,
506 /* Slot 174 is reserved */
507 /* Slot 175 is reserved */
508 /* Slot 176 is reserved */
509 /* Slot 177 is reserved */
510 /* Slot 178 is reserved */
511 /* Slot 179 is reserved */
512 /* Slot 180 is reserved */
513 /* Slot 181 is reserved */
515 EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((TclpTime_t_CONST clock));
517 EXTERN struct tm * TclpGmtime _ANSI_ARGS_((TclpTime_t_CONST clock));
518 /* Slot 184 is reserved */
519 /* Slot 185 is reserved */
520 /* Slot 186 is reserved */
521 /* Slot 187 is reserved */
522 /* Slot 188 is reserved */
523 /* Slot 189 is reserved */
524 /* Slot 190 is reserved */
525 /* Slot 191 is reserved */
526 /* Slot 192 is reserved */
527 /* Slot 193 is reserved */
528 /* Slot 194 is reserved */
529 /* Slot 195 is reserved */
530 /* Slot 196 is reserved */
531 /* Slot 197 is reserved */
532 /* Slot 198 is reserved */
534 EXTERN int TclMatchIsTrivial _ANSI_ARGS_((CONST char * pattern));
536 typedef struct TclIntStubs {
538 struct TclIntStubHooks *hooks;
541 int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
542 int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
543 void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
545 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
546 int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
549 int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
550 #endif /* __WIN32__ */
554 void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
555 int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
556 int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
557 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
558 int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
561 int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
562 #endif /* __WIN32__ */
566 int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
567 void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
568 void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
569 int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, Tcl_GlobTypeData * types)); /* 13 */
570 void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
572 void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
578 int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
579 Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */
580 int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
581 void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
583 int (*tclGetDate) _ANSI_ARGS_((char * p, Tcl_WideInt now, long zone, Tcl_WideInt * timePtr)); /* 27 */
584 Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
587 char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
588 int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */
589 TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
590 int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
592 int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */
593 int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
594 int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */
595 TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
596 int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */
597 Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
598 char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
599 int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 43 */
600 int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */
601 int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
602 int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
605 Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
606 void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
607 int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
608 int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 52 */
609 int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */
610 int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
611 Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
614 Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
616 int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */
617 Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
618 int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
619 int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
620 int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
621 int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
622 int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
623 int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
625 char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
630 void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
631 unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
632 unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
633 void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
634 int (*tclpGetTimeZone) _ANSI_ARGS_((Tcl_WideInt time)); /* 78 */
637 char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
644 char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */
645 int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
647 void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
648 int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
649 void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
650 int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 94 */
652 int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
653 void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
654 int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
657 char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
658 void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
659 int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
660 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
661 int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
664 int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
665 #endif /* __WIN32__ */
670 int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
671 int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
672 void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
673 int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
675 void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
676 int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
677 Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
678 void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
679 int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst)); /* 115 */
680 Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
681 Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
682 int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
683 int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
684 Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
685 int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern)); /* 121 */
686 Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
687 void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
688 Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
689 Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
690 void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
691 int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite)); /* 127 */
692 void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
693 int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
694 int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 130 */
695 void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
696 int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
697 struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
698 size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */
699 int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
702 CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
704 int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */
705 CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
706 int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
707 int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
708 void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
709 struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
710 TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
711 void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
712 TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
713 void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
714 int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
715 void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
716 void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
717 Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
720 void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */
721 Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */
722 void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */
723 CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
725 int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
726 void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
727 void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */
728 void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */
729 void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */
730 int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */
731 void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */
732 Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */
733 int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */
734 int (*tclCheckInterpTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 170 */
735 int (*tclCheckExecutionTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 171 */
736 int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */
737 int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */
746 struct tm * (*tclpLocaltime) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 182 */
747 struct tm * (*tclpGmtime) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 183 */
763 int (*tclMatchIsTrivial) _ANSI_ARGS_((CONST char * pattern)); /* 199 */
769 extern TclIntStubs *tclIntStubsPtr;
774 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
777 * Inline function declarations:
780 /* Slot 0 is reserved */
781 #ifndef TclAccessDeleteProc
782 #define TclAccessDeleteProc \
783 (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
785 #ifndef TclAccessInsertProc
786 #define TclAccessInsertProc \
787 (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
789 #ifndef TclAllocateFreeObjects
790 #define TclAllocateFreeObjects \
791 (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
793 /* Slot 4 is reserved */
794 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
795 #ifndef TclCleanupChildren
796 #define TclCleanupChildren \
797 (tclIntStubsPtr->tclCleanupChildren) /* 5 */
801 #ifndef TclCleanupChildren
802 #define TclCleanupChildren \
803 (tclIntStubsPtr->tclCleanupChildren) /* 5 */
805 #endif /* __WIN32__ */
806 #ifndef TclCleanupCommand
807 #define TclCleanupCommand \
808 (tclIntStubsPtr->tclCleanupCommand) /* 6 */
810 #ifndef TclCopyAndCollapse
811 #define TclCopyAndCollapse \
812 (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
814 #ifndef TclCopyChannel
815 #define TclCopyChannel \
816 (tclIntStubsPtr->tclCopyChannel) /* 8 */
818 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
819 #ifndef TclCreatePipeline
820 #define TclCreatePipeline \
821 (tclIntStubsPtr->tclCreatePipeline) /* 9 */
825 #ifndef TclCreatePipeline
826 #define TclCreatePipeline \
827 (tclIntStubsPtr->tclCreatePipeline) /* 9 */
829 #endif /* __WIN32__ */
830 #ifndef TclCreateProc
831 #define TclCreateProc \
832 (tclIntStubsPtr->tclCreateProc) /* 10 */
834 #ifndef TclDeleteCompiledLocalVars
835 #define TclDeleteCompiledLocalVars \
836 (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
838 #ifndef TclDeleteVars
839 #define TclDeleteVars \
840 (tclIntStubsPtr->tclDeleteVars) /* 12 */
844 (tclIntStubsPtr->tclDoGlob) /* 13 */
846 #ifndef TclDumpMemoryInfo
847 #define TclDumpMemoryInfo \
848 (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
850 /* Slot 15 is reserved */
851 #ifndef TclExprFloatError
852 #define TclExprFloatError \
853 (tclIntStubsPtr->tclExprFloatError) /* 16 */
855 /* Slot 17 is reserved */
856 /* Slot 18 is reserved */
857 /* Slot 19 is reserved */
858 /* Slot 20 is reserved */
859 /* Slot 21 is reserved */
860 #ifndef TclFindElement
861 #define TclFindElement \
862 (tclIntStubsPtr->tclFindElement) /* 22 */
865 #define TclFindProc \
866 (tclIntStubsPtr->tclFindProc) /* 23 */
869 #define TclFormatInt \
870 (tclIntStubsPtr->tclFormatInt) /* 24 */
872 #ifndef TclFreePackageInfo
873 #define TclFreePackageInfo \
874 (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
876 /* Slot 26 is reserved */
879 (tclIntStubsPtr->tclGetDate) /* 27 */
881 #ifndef TclpGetDefaultStdChannel
882 #define TclpGetDefaultStdChannel \
883 (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
885 /* Slot 29 is reserved */
886 /* Slot 30 is reserved */
887 #ifndef TclGetExtension
888 #define TclGetExtension \
889 (tclIntStubsPtr->tclGetExtension) /* 31 */
892 #define TclGetFrame \
893 (tclIntStubsPtr->tclGetFrame) /* 32 */
895 #ifndef TclGetInterpProc
896 #define TclGetInterpProc \
897 (tclIntStubsPtr->tclGetInterpProc) /* 33 */
899 #ifndef TclGetIntForIndex
900 #define TclGetIntForIndex \
901 (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
903 /* Slot 35 is reserved */
906 (tclIntStubsPtr->tclGetLong) /* 36 */
908 #ifndef TclGetLoadedPackages
909 #define TclGetLoadedPackages \
910 (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
912 #ifndef TclGetNamespaceForQualName
913 #define TclGetNamespaceForQualName \
914 (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
916 #ifndef TclGetObjInterpProc
917 #define TclGetObjInterpProc \
918 (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
920 #ifndef TclGetOpenMode
921 #define TclGetOpenMode \
922 (tclIntStubsPtr->tclGetOpenMode) /* 40 */
924 #ifndef TclGetOriginalCommand
925 #define TclGetOriginalCommand \
926 (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
928 #ifndef TclpGetUserHome
929 #define TclpGetUserHome \
930 (tclIntStubsPtr->tclpGetUserHome) /* 42 */
932 #ifndef TclGlobalInvoke
933 #define TclGlobalInvoke \
934 (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
936 #ifndef TclGuessPackageName
937 #define TclGuessPackageName \
938 (tclIntStubsPtr->tclGuessPackageName) /* 44 */
940 #ifndef TclHideUnsafeCommands
941 #define TclHideUnsafeCommands \
942 (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
946 (tclIntStubsPtr->tclInExit) /* 46 */
948 /* Slot 47 is reserved */
949 /* Slot 48 is reserved */
951 #define TclIncrVar2 \
952 (tclIntStubsPtr->tclIncrVar2) /* 49 */
954 #ifndef TclInitCompiledLocals
955 #define TclInitCompiledLocals \
956 (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
958 #ifndef TclInterpInit
959 #define TclInterpInit \
960 (tclIntStubsPtr->tclInterpInit) /* 51 */
964 (tclIntStubsPtr->tclInvoke) /* 52 */
966 #ifndef TclInvokeObjectCommand
967 #define TclInvokeObjectCommand \
968 (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
970 #ifndef TclInvokeStringCommand
971 #define TclInvokeStringCommand \
972 (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
976 (tclIntStubsPtr->tclIsProc) /* 55 */
978 /* Slot 56 is reserved */
979 /* Slot 57 is reserved */
981 #define TclLookupVar \
982 (tclIntStubsPtr->tclLookupVar) /* 58 */
984 /* Slot 59 is reserved */
986 #define TclNeedSpace \
987 (tclIntStubsPtr->tclNeedSpace) /* 60 */
989 #ifndef TclNewProcBodyObj
990 #define TclNewProcBodyObj \
991 (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
993 #ifndef TclObjCommandComplete
994 #define TclObjCommandComplete \
995 (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
997 #ifndef TclObjInterpProc
998 #define TclObjInterpProc \
999 (tclIntStubsPtr->tclObjInterpProc) /* 63 */
1001 #ifndef TclObjInvoke
1002 #define TclObjInvoke \
1003 (tclIntStubsPtr->tclObjInvoke) /* 64 */
1005 #ifndef TclObjInvokeGlobal
1006 #define TclObjInvokeGlobal \
1007 (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
1009 #ifndef TclOpenFileChannelDeleteProc
1010 #define TclOpenFileChannelDeleteProc \
1011 (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
1013 #ifndef TclOpenFileChannelInsertProc
1014 #define TclOpenFileChannelInsertProc \
1015 (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
1017 /* Slot 68 is reserved */
1020 (tclIntStubsPtr->tclpAlloc) /* 69 */
1022 /* Slot 70 is reserved */
1023 /* Slot 71 is reserved */
1024 /* Slot 72 is reserved */
1025 /* Slot 73 is reserved */
1028 (tclIntStubsPtr->tclpFree) /* 74 */
1030 #ifndef TclpGetClicks
1031 #define TclpGetClicks \
1032 (tclIntStubsPtr->tclpGetClicks) /* 75 */
1034 #ifndef TclpGetSeconds
1035 #define TclpGetSeconds \
1036 (tclIntStubsPtr->tclpGetSeconds) /* 76 */
1039 #define TclpGetTime \
1040 (tclIntStubsPtr->tclpGetTime) /* 77 */
1042 #ifndef TclpGetTimeZone
1043 #define TclpGetTimeZone \
1044 (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
1046 /* Slot 79 is reserved */
1047 /* Slot 80 is reserved */
1049 #define TclpRealloc \
1050 (tclIntStubsPtr->tclpRealloc) /* 81 */
1052 /* Slot 82 is reserved */
1053 /* Slot 83 is reserved */
1054 /* Slot 84 is reserved */
1055 /* Slot 85 is reserved */
1056 /* Slot 86 is reserved */
1057 /* Slot 87 is reserved */
1058 #ifndef TclPrecTraceProc
1059 #define TclPrecTraceProc \
1060 (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
1062 #ifndef TclPreventAliasLoop
1063 #define TclPreventAliasLoop \
1064 (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
1066 /* Slot 90 is reserved */
1067 #ifndef TclProcCleanupProc
1068 #define TclProcCleanupProc \
1069 (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
1071 #ifndef TclProcCompileProc
1072 #define TclProcCompileProc \
1073 (tclIntStubsPtr->tclProcCompileProc) /* 92 */
1075 #ifndef TclProcDeleteProc
1076 #define TclProcDeleteProc \
1077 (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
1079 #ifndef TclProcInterpProc
1080 #define TclProcInterpProc \
1081 (tclIntStubsPtr->tclProcInterpProc) /* 94 */
1083 /* Slot 95 is reserved */
1084 #ifndef TclRenameCommand
1085 #define TclRenameCommand \
1086 (tclIntStubsPtr->tclRenameCommand) /* 96 */
1088 #ifndef TclResetShadowedCmdRefs
1089 #define TclResetShadowedCmdRefs \
1090 (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
1092 #ifndef TclServiceIdle
1093 #define TclServiceIdle \
1094 (tclIntStubsPtr->tclServiceIdle) /* 98 */
1096 /* Slot 99 is reserved */
1097 /* Slot 100 is reserved */
1098 #ifndef TclSetPreInitScript
1099 #define TclSetPreInitScript \
1100 (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1103 #define TclSetupEnv \
1104 (tclIntStubsPtr->tclSetupEnv) /* 102 */
1106 #ifndef TclSockGetPort
1107 #define TclSockGetPort \
1108 (tclIntStubsPtr->tclSockGetPort) /* 103 */
1110 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1111 #ifndef TclSockMinimumBuffers
1112 #define TclSockMinimumBuffers \
1113 (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1117 #ifndef TclSockMinimumBuffers
1118 #define TclSockMinimumBuffers \
1119 (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1121 #endif /* __WIN32__ */
1122 /* Slot 105 is reserved */
1123 #ifndef TclStatDeleteProc
1124 #define TclStatDeleteProc \
1125 (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
1127 #ifndef TclStatInsertProc
1128 #define TclStatInsertProc \
1129 (tclIntStubsPtr->tclStatInsertProc) /* 107 */
1131 #ifndef TclTeardownNamespace
1132 #define TclTeardownNamespace \
1133 (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
1135 #ifndef TclUpdateReturnInfo
1136 #define TclUpdateReturnInfo \
1137 (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
1139 /* Slot 110 is reserved */
1140 #ifndef Tcl_AddInterpResolvers
1141 #define Tcl_AddInterpResolvers \
1142 (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
1144 #ifndef Tcl_AppendExportList
1145 #define Tcl_AppendExportList \
1146 (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
1148 #ifndef Tcl_CreateNamespace
1149 #define Tcl_CreateNamespace \
1150 (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
1152 #ifndef Tcl_DeleteNamespace
1153 #define Tcl_DeleteNamespace \
1154 (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
1157 #define Tcl_Export \
1158 (tclIntStubsPtr->tcl_Export) /* 115 */
1160 #ifndef Tcl_FindCommand
1161 #define Tcl_FindCommand \
1162 (tclIntStubsPtr->tcl_FindCommand) /* 116 */
1164 #ifndef Tcl_FindNamespace
1165 #define Tcl_FindNamespace \
1166 (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
1168 #ifndef Tcl_GetInterpResolvers
1169 #define Tcl_GetInterpResolvers \
1170 (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
1172 #ifndef Tcl_GetNamespaceResolvers
1173 #define Tcl_GetNamespaceResolvers \
1174 (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
1176 #ifndef Tcl_FindNamespaceVar
1177 #define Tcl_FindNamespaceVar \
1178 (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
1180 #ifndef Tcl_ForgetImport
1181 #define Tcl_ForgetImport \
1182 (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
1184 #ifndef Tcl_GetCommandFromObj
1185 #define Tcl_GetCommandFromObj \
1186 (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
1188 #ifndef Tcl_GetCommandFullName
1189 #define Tcl_GetCommandFullName \
1190 (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
1192 #ifndef Tcl_GetCurrentNamespace
1193 #define Tcl_GetCurrentNamespace \
1194 (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
1196 #ifndef Tcl_GetGlobalNamespace
1197 #define Tcl_GetGlobalNamespace \
1198 (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
1200 #ifndef Tcl_GetVariableFullName
1201 #define Tcl_GetVariableFullName \
1202 (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
1205 #define Tcl_Import \
1206 (tclIntStubsPtr->tcl_Import) /* 127 */
1208 #ifndef Tcl_PopCallFrame
1209 #define Tcl_PopCallFrame \
1210 (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
1212 #ifndef Tcl_PushCallFrame
1213 #define Tcl_PushCallFrame \
1214 (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
1216 #ifndef Tcl_RemoveInterpResolvers
1217 #define Tcl_RemoveInterpResolvers \
1218 (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
1220 #ifndef Tcl_SetNamespaceResolvers
1221 #define Tcl_SetNamespaceResolvers \
1222 (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
1224 #ifndef TclpHasSockets
1225 #define TclpHasSockets \
1226 (tclIntStubsPtr->tclpHasSockets) /* 132 */
1229 #define TclpGetDate \
1230 (tclIntStubsPtr->tclpGetDate) /* 133 */
1232 #ifndef TclpStrftime
1233 #define TclpStrftime \
1234 (tclIntStubsPtr->tclpStrftime) /* 134 */
1236 #ifndef TclpCheckStackSpace
1237 #define TclpCheckStackSpace \
1238 (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
1240 /* Slot 136 is reserved */
1241 /* Slot 137 is reserved */
1244 (tclIntStubsPtr->tclGetEnv) /* 138 */
1246 /* Slot 139 is reserved */
1247 #ifndef TclLooksLikeInt
1248 #define TclLooksLikeInt \
1249 (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
1252 #define TclpGetCwd \
1253 (tclIntStubsPtr->tclpGetCwd) /* 141 */
1255 #ifndef TclSetByteCodeFromAny
1256 #define TclSetByteCodeFromAny \
1257 (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
1259 #ifndef TclAddLiteralObj
1260 #define TclAddLiteralObj \
1261 (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
1263 #ifndef TclHideLiteral
1264 #define TclHideLiteral \
1265 (tclIntStubsPtr->tclHideLiteral) /* 144 */
1267 #ifndef TclGetAuxDataType
1268 #define TclGetAuxDataType \
1269 (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
1271 #ifndef TclHandleCreate
1272 #define TclHandleCreate \
1273 (tclIntStubsPtr->tclHandleCreate) /* 146 */
1275 #ifndef TclHandleFree
1276 #define TclHandleFree \
1277 (tclIntStubsPtr->tclHandleFree) /* 147 */
1279 #ifndef TclHandlePreserve
1280 #define TclHandlePreserve \
1281 (tclIntStubsPtr->tclHandlePreserve) /* 148 */
1283 #ifndef TclHandleRelease
1284 #define TclHandleRelease \
1285 (tclIntStubsPtr->tclHandleRelease) /* 149 */
1288 #define TclRegAbout \
1289 (tclIntStubsPtr->tclRegAbout) /* 150 */
1291 #ifndef TclRegExpRangeUniChar
1292 #define TclRegExpRangeUniChar \
1293 (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
1295 #ifndef TclSetLibraryPath
1296 #define TclSetLibraryPath \
1297 (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
1299 #ifndef TclGetLibraryPath
1300 #define TclGetLibraryPath \
1301 (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
1303 /* Slot 154 is reserved */
1304 /* Slot 155 is reserved */
1306 #define TclRegError \
1307 (tclIntStubsPtr->tclRegError) /* 156 */
1309 #ifndef TclVarTraceExists
1310 #define TclVarTraceExists \
1311 (tclIntStubsPtr->tclVarTraceExists) /* 157 */
1313 #ifndef TclSetStartupScriptFileName
1314 #define TclSetStartupScriptFileName \
1315 (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
1317 #ifndef TclGetStartupScriptFileName
1318 #define TclGetStartupScriptFileName \
1319 (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
1321 /* Slot 160 is reserved */
1322 #ifndef TclChannelTransform
1323 #define TclChannelTransform \
1324 (tclIntStubsPtr->tclChannelTransform) /* 161 */
1326 #ifndef TclChannelEventScriptInvoker
1327 #define TclChannelEventScriptInvoker \
1328 (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
1330 #ifndef TclGetInstructionTable
1331 #define TclGetInstructionTable \
1332 (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
1334 #ifndef TclExpandCodeArray
1335 #define TclExpandCodeArray \
1336 (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
1338 #ifndef TclpSetInitialEncodings
1339 #define TclpSetInitialEncodings \
1340 (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
1342 #ifndef TclListObjSetElement
1343 #define TclListObjSetElement \
1344 (tclIntStubsPtr->tclListObjSetElement) /* 166 */
1346 #ifndef TclSetStartupScriptPath
1347 #define TclSetStartupScriptPath \
1348 (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
1350 #ifndef TclGetStartupScriptPath
1351 #define TclGetStartupScriptPath \
1352 (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
1354 #ifndef TclpUtfNcmp2
1355 #define TclpUtfNcmp2 \
1356 (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
1358 #ifndef TclCheckInterpTraces
1359 #define TclCheckInterpTraces \
1360 (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
1362 #ifndef TclCheckExecutionTraces
1363 #define TclCheckExecutionTraces \
1364 (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
1366 #ifndef TclInThreadExit
1367 #define TclInThreadExit \
1368 (tclIntStubsPtr->tclInThreadExit) /* 172 */
1370 #ifndef TclUniCharMatch
1371 #define TclUniCharMatch \
1372 (tclIntStubsPtr->tclUniCharMatch) /* 173 */
1374 /* Slot 174 is reserved */
1375 /* Slot 175 is reserved */
1376 /* Slot 176 is reserved */
1377 /* Slot 177 is reserved */
1378 /* Slot 178 is reserved */
1379 /* Slot 179 is reserved */
1380 /* Slot 180 is reserved */
1381 /* Slot 181 is reserved */
1382 #ifndef TclpLocaltime
1383 #define TclpLocaltime \
1384 (tclIntStubsPtr->tclpLocaltime) /* 182 */
1387 #define TclpGmtime \
1388 (tclIntStubsPtr->tclpGmtime) /* 183 */
1390 /* Slot 184 is reserved */
1391 /* Slot 185 is reserved */
1392 /* Slot 186 is reserved */
1393 /* Slot 187 is reserved */
1394 /* Slot 188 is reserved */
1395 /* Slot 189 is reserved */
1396 /* Slot 190 is reserved */
1397 /* Slot 191 is reserved */
1398 /* Slot 192 is reserved */
1399 /* Slot 193 is reserved */
1400 /* Slot 194 is reserved */
1401 /* Slot 195 is reserved */
1402 /* Slot 196 is reserved */
1403 /* Slot 197 is reserved */
1404 /* Slot 198 is reserved */
1405 #ifndef TclMatchIsTrivial
1406 #define TclMatchIsTrivial \
1407 (tclIntStubsPtr->tclMatchIsTrivial) /* 199 */
1410 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
1412 /* !END!: Do not edit above this line. */
1414 #endif /* _TCLINTDECLS */