1/*
2 * tclDecls.h --
3 *
4 * Declarations of functions in the platform independent public Tcl API.
5 *
6 * Copyright (c) 1998-1999 by Scriptics Corporation.
7 *
8 * See the file "license.terms" for information on usage and redistribution
9 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
10 */
11
12#ifndef _TCLDECLS
13#define _TCLDECLS
14
15#undef TCL_STORAGE_CLASS
16#ifdef BUILD_tcl
17# define TCL_STORAGE_CLASS DLLEXPORT
18#else
19# ifdef USE_TCL_STUBS
20# define TCL_STORAGE_CLASS
21# else
22# define TCL_STORAGE_CLASS DLLIMPORT
23# endif
24#endif
25
26/*
27 * WARNING: This file is automatically generated by the tools/genStubs.tcl
28 * script. Any modifications to the function declarations below should be made
29 * in the generic/tcl.decls script.
30 */
31
32/* !BEGIN!: Do not edit below this line. */
33
34#ifdef __cplusplus
35extern "C" {
36#endif
37
38/*
39 * Exported function declarations:
40 */
41
42/* 0 */
43EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
44 const char *name, const char *version,
45 const void *clientData);
46/* 1 */
47EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
48 const char *name, const char *version,
49 int exact, void *clientDataPtr);
50/* 2 */
51EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
52/* 3 */
53EXTERN char * Tcl_Alloc(unsigned int size);
54/* 4 */
55EXTERN void Tcl_Free(char *ptr);
56/* 5 */
57EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);
58/* 6 */
59EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,
60 int line);
61/* 7 */
62EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line);
63/* 8 */
64EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
65 const char *file, int line);
66#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
67/* 9 */
68EXTERN void Tcl_CreateFileHandler(int fd, int mask,
69 Tcl_FileProc *proc, ClientData clientData);
70#endif /* UNIX */
71#ifdef MAC_OSX_TCL /* MACOSX */
72/* 9 */
73EXTERN void Tcl_CreateFileHandler(int fd, int mask,
74 Tcl_FileProc *proc, ClientData clientData);
75#endif /* MACOSX */
76#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
77/* 10 */
78EXTERN void Tcl_DeleteFileHandler(int fd);
79#endif /* UNIX */
80#ifdef MAC_OSX_TCL /* MACOSX */
81/* 10 */
82EXTERN void Tcl_DeleteFileHandler(int fd);
83#endif /* MACOSX */
84/* 11 */
85EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
86/* 12 */
87EXTERN void Tcl_Sleep(int ms);
88/* 13 */
89EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
90/* 14 */
91EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
92 Tcl_Obj *objPtr);
93/* 15 */
94EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
95/* 16 */
96EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
97 int length);
98/* 17 */
99EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
100/* 18 */
101EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
102 Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
103/* 19 */
104EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
105 int line);
106/* 20 */
107EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
108 int line);
109/* 21 */
110EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
111 int line);
112/* 22 */
113EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file,
114 int line);
115/* 23 */
116EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
117 int length, const char *file, int line);
118/* 24 */
119EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
120 const char *file, int line);
121/* 25 */
122EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
123 const char *file, int line);
124/* 26 */
125EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file,
126 int line);
127/* 27 */
128EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
129/* 28 */
130EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length,
131 const char *file, int line);
132/* 29 */
133EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
134/* 30 */
135EXTERN void TclFreeObj(Tcl_Obj *objPtr);
136/* 31 */
137EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
138 int *boolPtr);
139/* 32 */
140EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
141 Tcl_Obj *objPtr, int *boolPtr);
142/* 33 */
143EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
144 int *lengthPtr);
145/* 34 */
146EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
147 double *doublePtr);
148/* 35 */
149EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
150 Tcl_Obj *objPtr, double *doublePtr);
151/* 36 */
152EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp,
153 Tcl_Obj *objPtr,
154 CONST84 char *const *tablePtr,
155 const char *msg, int flags, int *indexPtr);
156/* 37 */
157EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
158 int *intPtr);
159/* 38 */
160EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
161 Tcl_Obj *objPtr, int *intPtr);
162/* 39 */
163EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
164 Tcl_Obj *objPtr, long *longPtr);
165/* 40 */
166EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
167/* 41 */
168EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr);
169/* 42 */
170EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
171/* 43 */
172EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
173 Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
174/* 44 */
175EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
176 Tcl_Obj *listPtr, Tcl_Obj *objPtr);
177/* 45 */
178EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
179 Tcl_Obj *listPtr, int *objcPtr,
180 Tcl_Obj ***objvPtr);
181/* 46 */
182EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
183 Tcl_Obj *listPtr, int index,
184 Tcl_Obj **objPtrPtr);
185/* 47 */
186EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
187 Tcl_Obj *listPtr, int *lengthPtr);
188/* 48 */
189EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
190 Tcl_Obj *listPtr, int first, int count,
191 int objc, Tcl_Obj *const objv[]);
192/* 49 */
193EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue);
194/* 50 */
195EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
196 int length);
197/* 51 */
198EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
199/* 52 */
200EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue);
201/* 53 */
202EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
203/* 54 */
204EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue);
205/* 55 */
206EXTERN Tcl_Obj * Tcl_NewObj(void);
207/* 56 */
208EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length);
209/* 57 */
210EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue);
211/* 58 */
212EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length);
213/* 59 */
214EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
215 const unsigned char *bytes, int length);
216/* 60 */
217EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
218/* 61 */
219EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
220/* 62 */
221EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
222 Tcl_Obj *const objv[]);
223/* 63 */
224EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
225/* 64 */
226EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
227/* 65 */
228EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
229 int length);
230/* 66 */
231EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp,
232 const char *message);
233/* 67 */
234EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp,
235 const char *message, int length);
236/* 68 */
237EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
238/* 69 */
239EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
240 const char *element);
241/* 70 */
242EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
243/* 71 */
244EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
245 ClientData clientData);
246/* 72 */
247EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
248/* 73 */
249EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
250/* 74 */
251EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
252/* 75 */
253EXTERN int Tcl_AsyncReady(void);
254/* 76 */
255EXTERN void Tcl_BackgroundError(Tcl_Interp *interp);
256/* 77 */
257EXTERN char Tcl_Backslash(const char *src, int *readPtr);
258/* 78 */
259EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
260 const char *optionName,
261 const char *optionList);
262/* 79 */
263EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
264 Tcl_InterpDeleteProc *proc,
265 ClientData clientData);
266/* 80 */
267EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
268 ClientData clientData);
269/* 81 */
270EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
271/* 82 */
272EXTERN int Tcl_CommandComplete(const char *cmd);
273/* 83 */
274EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv);
275/* 84 */
276EXTERN int Tcl_ConvertElement(const char *src, char *dst,
277 int flags);
278/* 85 */
279EXTERN int Tcl_ConvertCountedElement(const char *src,
280 int length, char *dst, int flags);
281/* 86 */
282EXTERN int Tcl_CreateAlias(Tcl_Interp *slave,
283 const char *slaveCmd, Tcl_Interp *target,
284 const char *targetCmd, int argc,
285 CONST84 char *const *argv);
286/* 87 */
287EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave,
288 const char *slaveCmd, Tcl_Interp *target,
289 const char *targetCmd, int objc,
290 Tcl_Obj *const objv[]);
291/* 88 */
292EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
293 const char *chanName,
294 ClientData instanceData, int mask);
295/* 89 */
296EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
297 Tcl_ChannelProc *proc, ClientData clientData);
298/* 90 */
299EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
300 Tcl_CloseProc *proc, ClientData clientData);
301/* 91 */
302EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
303 const char *cmdName, Tcl_CmdProc *proc,
304 ClientData clientData,
305 Tcl_CmdDeleteProc *deleteProc);
306/* 92 */
307EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
308 Tcl_EventCheckProc *checkProc,
309 ClientData clientData);
310/* 93 */
311EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
312 ClientData clientData);
313/* 94 */
314EXTERN Tcl_Interp * Tcl_CreateInterp(void);
315/* 95 */
316EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp,
317 const char *name, int numArgs,
318 Tcl_ValueType *argTypes, Tcl_MathProc *proc,
319 ClientData clientData);
320/* 96 */
321EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
322 const char *cmdName, Tcl_ObjCmdProc *proc,
323 ClientData clientData,
324 Tcl_CmdDeleteProc *deleteProc);
325/* 97 */
326EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp,
327 const char *slaveName, int isSafe);
328/* 98 */
329EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
330 Tcl_TimerProc *proc, ClientData clientData);
331/* 99 */
332EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
333 Tcl_CmdTraceProc *proc,
334 ClientData clientData);
335/* 100 */
336EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
337 const char *name);
338/* 101 */
339EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
340 Tcl_ChannelProc *proc, ClientData clientData);
341/* 102 */
342EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
343 Tcl_CloseProc *proc, ClientData clientData);
344/* 103 */
345EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
346 const char *cmdName);
347/* 104 */
348EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
349 Tcl_Command command);
350/* 105 */
351EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
352 ClientData clientData);
353/* 106 */
354EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
355 Tcl_EventCheckProc *checkProc,
356 ClientData clientData);
357/* 107 */
358EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
359 ClientData clientData);
360/* 108 */
361EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
362/* 109 */
363EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
364/* 110 */
365EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
366/* 111 */
367EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
368/* 112 */
369EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
370/* 113 */
371EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
372/* 114 */
373EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
374 Tcl_InterpDeleteProc *proc,
375 ClientData clientData);
376/* 115 */
377EXTERN int Tcl_DoOneEvent(int flags);
378/* 116 */
379EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc,
380 ClientData clientData);
381/* 117 */
382EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
383 const char *bytes, int length);
384/* 118 */
385EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
386 const char *element);
387/* 119 */
388EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
389/* 120 */
390EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
391/* 121 */
392EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
393 Tcl_DString *dsPtr);
394/* 122 */
395EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
396/* 123 */
397EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
398 Tcl_DString *dsPtr);
399/* 124 */
400EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length);
401/* 125 */
402EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
403/* 126 */
404EXTERN int Tcl_Eof(Tcl_Channel chan);
405/* 127 */
406EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
407/* 128 */
408EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
409/* 129 */
410EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script);
411/* 130 */
412EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
413 const char *fileName);
414/* 131 */
415EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
416/* 132 */
417EXTERN void Tcl_EventuallyFree(ClientData clientData,
418 Tcl_FreeProc *freeProc);
419/* 133 */
420EXTERN TCL_NORETURN void Tcl_Exit(int status);
421/* 134 */
422EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
423 const char *hiddenCmdToken,
424 const char *cmdName);
425/* 135 */
426EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
427 int *ptr);
428/* 136 */
429EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
430 Tcl_Obj *objPtr, int *ptr);
431/* 137 */
432EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
433 double *ptr);
434/* 138 */
435EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
436 Tcl_Obj *objPtr, double *ptr);
437/* 139 */
438EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
439 long *ptr);
440/* 140 */
441EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
442 long *ptr);
443/* 141 */
444EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
445 Tcl_Obj **resultPtrPtr);
446/* 142 */
447EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr);
448/* 143 */
449EXTERN void Tcl_Finalize(void);
450/* 144 */
451EXTERN void Tcl_FindExecutable(const char *argv0);
452/* 145 */
453EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
454 Tcl_HashSearch *searchPtr);
455/* 146 */
456EXTERN int Tcl_Flush(Tcl_Channel chan);
457/* 147 */
458EXTERN void Tcl_FreeResult(Tcl_Interp *interp);
459/* 148 */
460EXTERN int Tcl_GetAlias(Tcl_Interp *interp,
461 const char *slaveCmd,
462 Tcl_Interp **targetInterpPtr,
463 CONST84 char **targetCmdPtr, int *argcPtr,
464 CONST84 char ***argvPtr);
465/* 149 */
466EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
467 const char *slaveCmd,
468 Tcl_Interp **targetInterpPtr,
469 CONST84 char **targetCmdPtr, int *objcPtr,
470 Tcl_Obj ***objv);
471/* 150 */
472EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp,
473 const char *name,
474 Tcl_InterpDeleteProc **procPtr);
475/* 151 */
476EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
477 const char *chanName, int *modePtr);
478/* 152 */
479EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan);
480/* 153 */
481EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
482 ClientData *handlePtr);
483/* 154 */
484EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan);
485/* 155 */
486EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
487/* 156 */
488EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
489/* 157 */
490EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
491 Tcl_Channel chan, const char *optionName,
492 Tcl_DString *dsPtr);
493/* 158 */
494EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
495/* 159 */
496EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
497 const char *cmdName, Tcl_CmdInfo *infoPtr);
498/* 160 */
499EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
500 Tcl_Command command);
501/* 161 */
502EXTERN int Tcl_GetErrno(void);
503/* 162 */
504EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
505/* 163 */
506EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp,
507 Tcl_Interp *slaveInterp);
508/* 164 */
509EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
510/* 165 */
511EXTERN const char * Tcl_GetNameOfExecutable(void);
512/* 166 */
513EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
514#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
515/* 167 */
516EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
517 const char *chanID, int forWriting,
518 int checkUsage, ClientData *filePtr);
519#endif /* UNIX */
520#ifdef MAC_OSX_TCL /* MACOSX */
521/* 167 */
522EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
523 const char *chanID, int forWriting,
524 int checkUsage, ClientData *filePtr);
525#endif /* MACOSX */
526/* 168 */
527EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
528/* 169 */
529EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
530/* 170 */
531EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
532/* 171 */
533EXTERN int Tcl_GetServiceMode(void);
534/* 172 */
535EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp,
536 const char *slaveName);
537/* 173 */
538EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
539/* 174 */
540EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
541/* 175 */
542EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
543 const char *varName, int flags);
544/* 176 */
545EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
546 const char *part1, const char *part2,
547 int flags);
548/* 177 */
549EXTERN int Tcl_GlobalEval(Tcl_Interp *interp,
550 const char *command);
551/* 178 */
552EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp,
553 Tcl_Obj *objPtr);
554/* 179 */
555EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
556 const char *cmdName,
557 const char *hiddenCmdToken);
558/* 180 */
559EXTERN int Tcl_Init(Tcl_Interp *interp);
560/* 181 */
561EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
562 int keyType);
563/* 182 */
564EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
565/* 183 */
566EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
567/* 184 */
568EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
569/* 185 */
570EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
571/* 186 */
572EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv,
573 Tcl_DString *resultPtr);
574/* 187 */
575EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
576 char *addr, int type);
577/* Slot 188 is reserved */
578/* 189 */
579EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode);
580/* 190 */
581EXTERN int Tcl_MakeSafe(Tcl_Interp *interp);
582/* 191 */
583EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket);
584/* 192 */
585EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv);
586/* 193 */
587EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
588/* 194 */
589EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
590/* 195 */
591EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
592 Tcl_Obj *part2Ptr, int flags);
593/* 196 */
594EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
595 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
596 int flags);
597/* 197 */
598EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
599 CONST84 char **argv, int flags);
600/* 198 */
601EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
602 const char *fileName, const char *modeString,
603 int permissions);
604/* 199 */
605EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
606 const char *address, const char *myaddr,
607 int myport, int async);
608/* 200 */
609EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
610 const char *host,
611 Tcl_TcpAcceptProc *acceptProc,
612 ClientData callbackData);
613/* 201 */
614EXTERN void Tcl_Preserve(ClientData data);
615/* 202 */
616EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
617 char *dst);
618/* 203 */
619EXTERN int Tcl_PutEnv(const char *assignment);
620/* 204 */
621EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
622/* 205 */
623EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr,
624 Tcl_QueuePosition position);
625/* 206 */
626EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead);
627/* 207 */
628EXTERN void Tcl_ReapDetachedProcs(void);
629/* 208 */
630EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
631 const char *cmd, int flags);
632/* 209 */
633EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
634 Tcl_Obj *cmdPtr, int flags);
635/* 210 */
636EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
637 Tcl_Channel chan);
638/* 211 */
639EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
640/* 212 */
641EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
642 const char *pattern);
643/* 213 */
644EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
645 const char *text, const char *start);
646/* 214 */
647EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
648 const char *pattern);
649/* 215 */
650EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
651 CONST84 char **startPtr,
652 CONST84 char **endPtr);
653/* 216 */
654EXTERN void Tcl_Release(ClientData clientData);
655/* 217 */
656EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
657/* 218 */
658EXTERN int Tcl_ScanElement(const char *src, int *flagPtr);
659/* 219 */
660EXTERN int Tcl_ScanCountedElement(const char *src, int length,
661 int *flagPtr);
662/* 220 */
663EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
664/* 221 */
665EXTERN int Tcl_ServiceAll(void);
666/* 222 */
667EXTERN int Tcl_ServiceEvent(int flags);
668/* 223 */
669EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
670 const char *name, Tcl_InterpDeleteProc *proc,
671 ClientData clientData);
672/* 224 */
673EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
674/* 225 */
675EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
676 Tcl_Channel chan, const char *optionName,
677 const char *newValue);
678/* 226 */
679EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
680 const char *cmdName,
681 const Tcl_CmdInfo *infoPtr);
682/* 227 */
683EXTERN void Tcl_SetErrno(int err);
684/* 228 */
685EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
686/* 229 */
687EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
688/* 230 */
689EXTERN void Tcl_SetPanicProc(
690 TCL_NORETURN1 Tcl_PanicProc *panicProc);
691/* 231 */
692EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth);
693/* 232 */
694EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result,
695 Tcl_FreeProc *freeProc);
696/* 233 */
697EXTERN int Tcl_SetServiceMode(int mode);
698/* 234 */
699EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
700 Tcl_Obj *errorObjPtr);
701/* 235 */
702EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
703 Tcl_Obj *resultObjPtr);
704/* 236 */
705EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
706/* 237 */
707EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
708 const char *varName, const char *newValue,
709 int flags);
710/* 238 */
711EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
712 const char *part1, const char *part2,
713 const char *newValue, int flags);
714/* 239 */
715EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
716/* 240 */
717EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
718/* 241 */
719EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
720/* 242 */
721EXTERN int Tcl_SplitList(Tcl_Interp *interp,
722 const char *listStr, int *argcPtr,
723 CONST84 char ***argvPtr);
724/* 243 */
725EXTERN void Tcl_SplitPath(const char *path, int *argcPtr,
726 CONST84 char ***argvPtr);
727/* 244 */
728EXTERN void Tcl_StaticPackage(Tcl_Interp *interp,
729 const char *pkgName,
730 Tcl_PackageInitProc *initProc,
731 Tcl_PackageInitProc *safeInitProc);
732/* 245 */
733EXTERN int Tcl_StringMatch(const char *str, const char *pattern);
734/* 246 */
735EXTERN int Tcl_TellOld(Tcl_Channel chan);
736/* 247 */
737EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName,
738 int flags, Tcl_VarTraceProc *proc,
739 ClientData clientData);
740/* 248 */
741EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
742 const char *part2, int flags,
743 Tcl_VarTraceProc *proc,
744 ClientData clientData);
745/* 249 */
746EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
747 const char *name, Tcl_DString *bufferPtr);
748/* 250 */
749EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str,
750 int len, int atHead);
751/* 251 */
752EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
753 const char *varName);
754/* 252 */
755EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
756 Tcl_Channel chan);
757/* 253 */
758EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName,
759 int flags);
760/* 254 */
761EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
762 const char *part2, int flags);
763/* 255 */
764EXTERN void Tcl_UntraceVar(Tcl_Interp *interp,
765 const char *varName, int flags,
766 Tcl_VarTraceProc *proc,
767 ClientData clientData);
768/* 256 */
769EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
770 const char *part1, const char *part2,
771 int flags, Tcl_VarTraceProc *proc,
772 ClientData clientData);
773/* 257 */
774EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
775 const char *varName);
776/* 258 */
777EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
778 const char *varName, const char *localName,
779 int flags);
780/* 259 */
781EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
782 const char *part1, const char *part2,
783 const char *localName, int flags);
784/* 260 */
785EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
786/* 261 */
787EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp,
788 const char *varName, int flags,
789 Tcl_VarTraceProc *procPtr,
790 ClientData prevClientData);
791/* 262 */
792EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp,
793 const char *part1, const char *part2,
794 int flags, Tcl_VarTraceProc *procPtr,
795 ClientData prevClientData);
796/* 263 */
797EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen);
798/* 264 */
799EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
800 Tcl_Obj *const objv[], const char *message);
801/* 265 */
802EXTERN int Tcl_DumpActiveMemory(const char *fileName);
803/* 266 */
804EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
805/* 267 */
806EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp,
807 va_list argList);
808/* 268 */
809EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
810 va_list argList);
811/* 269 */
812EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
813/* 270 */
814EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
815 const char *start, CONST84 char **termPtr);
816/* 271 */
817EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
818 const char *name, const char *version,
819 int exact);
820/* 272 */
821EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
822 const char *name, const char *version,
823 int exact, void *clientDataPtr);
824/* 273 */
825EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
826 const char *version);
827/* 274 */
828EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
829 const char *name, const char *version,
830 int exact);
831/* 275 */
832EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp,
833 va_list argList);
834/* 276 */
835EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
836/* 277 */
837EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
838/* 278 */
839EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList);
840/* 279 */
841EXTERN void Tcl_GetVersion(int *major, int *minor,
842 int *patchLevel, int *type);
843/* 280 */
844EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
845/* 281 */
846EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
847 const Tcl_ChannelType *typePtr,
848 ClientData instanceData, int mask,
849 Tcl_Channel prevChan);
850/* 282 */
851EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
852 Tcl_Channel chan);
853/* 283 */
854EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
855/* 284 */
856EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
857/* Slot 285 is reserved */
858/* 286 */
859EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
860 Tcl_Obj *appendObjPtr);
861/* 287 */
862EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
863/* 288 */
864EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
865 ClientData clientData);
866/* 289 */
867EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
868 ClientData clientData);
869/* 290 */
870EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr);
871/* 291 */
872EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
873 int numBytes, int flags);
874/* 292 */
875EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc,
876 Tcl_Obj *const objv[], int flags);
877/* 293 */
878EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
879 int flags);
880/* 294 */
881EXTERN void Tcl_ExitThread(int status);
882/* 295 */
883EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
884 Tcl_Encoding encoding, const char *src,
885 int srcLen, int flags,
886 Tcl_EncodingState *statePtr, char *dst,
887 int dstLen, int *srcReadPtr,
888 int *dstWrotePtr, int *dstCharsPtr);
889/* 296 */
890EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
891 const char *src, int srcLen,
892 Tcl_DString *dsPtr);
893/* 297 */
894EXTERN void Tcl_FinalizeThread(void);
895/* 298 */
896EXTERN void Tcl_FinalizeNotifier(ClientData clientData);
897/* 299 */
898EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
899/* 300 */
900EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
901/* 301 */
902EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
903/* 302 */
904EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
905/* 303 */
906EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
907/* 304 */
908EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
909 Tcl_Obj *objPtr, const void *tablePtr,
910 int offset, const char *msg, int flags,
911 int *indexPtr);
912/* 305 */
913EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
914 int size);
915/* 306 */
916EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
917 const char *part2, int flags);
918/* 307 */
919EXTERN ClientData Tcl_InitNotifier(void);
920/* 308 */
921EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
922/* 309 */
923EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
924/* 310 */
925EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
926/* 311 */
927EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
928 Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
929/* 312 */
930EXTERN int Tcl_NumUtfChars(const char *src, int length);
931/* 313 */
932EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
933 int charsToRead, int appendFlag);
934/* 314 */
935EXTERN void Tcl_RestoreResult(Tcl_Interp *interp,
936 Tcl_SavedResult *statePtr);
937/* 315 */
938EXTERN void Tcl_SaveResult(Tcl_Interp *interp,
939 Tcl_SavedResult *statePtr);
940/* 316 */
941EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
942 const char *name);
943/* 317 */
944EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
945 const char *part2, Tcl_Obj *newValuePtr,
946 int flags);
947/* 318 */
948EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
949/* 319 */
950EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
951 Tcl_Event *evPtr, Tcl_QueuePosition position);
952/* 320 */
953EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index);
954/* 321 */
955EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch);
956/* 322 */
957EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch);
958/* 323 */
959EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch);
960/* 324 */
961EXTERN int Tcl_UniCharToUtf(int ch, char *buf);
962/* 325 */
963EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
964/* 326 */
965EXTERN int Tcl_UtfCharComplete(const char *src, int length);
966/* 327 */
967EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr,
968 char *dst);
969/* 328 */
970EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
971/* 329 */
972EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
973/* 330 */
974EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
975/* 331 */
976EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start);
977/* 332 */
978EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
979 Tcl_Encoding encoding, const char *src,
980 int srcLen, int flags,
981 Tcl_EncodingState *statePtr, char *dst,
982 int dstLen, int *srcReadPtr,
983 int *dstWrotePtr, int *dstCharsPtr);
984/* 333 */
985EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
986 const char *src, int srcLen,
987 Tcl_DString *dsPtr);
988/* 334 */
989EXTERN int Tcl_UtfToLower(char *src);
990/* 335 */
991EXTERN int Tcl_UtfToTitle(char *src);
992/* 336 */
993EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr);
994/* 337 */
995EXTERN int Tcl_UtfToUpper(char *src);
996/* 338 */
997EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src,
998 int srcLen);
999/* 339 */
1000EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
1001/* 340 */
1002EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
1003/* 341 */
1004EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void);
1005/* 342 */
1006EXTERN void Tcl_SetDefaultEncodingDir(const char *path);
1007/* 343 */
1008EXTERN void Tcl_AlertNotifier(ClientData clientData);
1009/* 344 */
1010EXTERN void Tcl_ServiceModeHook(int mode);
1011/* 345 */
1012EXTERN int Tcl_UniCharIsAlnum(int ch);
1013/* 346 */
1014EXTERN int Tcl_UniCharIsAlpha(int ch);
1015/* 347 */
1016EXTERN int Tcl_UniCharIsDigit(int ch);
1017/* 348 */
1018EXTERN int Tcl_UniCharIsLower(int ch);
1019/* 349 */
1020EXTERN int Tcl_UniCharIsSpace(int ch);
1021/* 350 */
1022EXTERN int Tcl_UniCharIsUpper(int ch);
1023/* 351 */
1024EXTERN int Tcl_UniCharIsWordChar(int ch);
1025/* 352 */
1026EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr);
1027/* 353 */
1028EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs,
1029 const Tcl_UniChar *uct,
1030 unsigned long numChars);
1031/* 354 */
1032EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr,
1033 int uniLength, Tcl_DString *dsPtr);
1034/* 355 */
1035EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length,
1036 Tcl_DString *dsPtr);
1037/* 356 */
1038EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
1039 Tcl_Obj *patObj, int flags);
1040/* 357 */
1041EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp,
1042 Tcl_Token *tokenPtr, int count);
1043/* 358 */
1044EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
1045/* 359 */
1046EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
1047 const char *script, const char *command,
1048 int length);
1049/* 360 */
1050EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
1051 const char *start, int numBytes,
1052 Tcl_Parse *parsePtr, int append,
1053 CONST84 char **termPtr);
1054/* 361 */
1055EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
1056 const char *start, int numBytes, int nested,
1057 Tcl_Parse *parsePtr);
1058/* 362 */
1059EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
1060 int numBytes, Tcl_Parse *parsePtr);
1061/* 363 */
1062EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
1063 const char *start, int numBytes,
1064 Tcl_Parse *parsePtr, int append,
1065 CONST84 char **termPtr);
1066/* 364 */
1067EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
1068 const char *start, int numBytes,
1069 Tcl_Parse *parsePtr, int append);
1070/* 365 */
1071EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
1072/* 366 */
1073EXTERN int Tcl_Chdir(const char *dirName);
1074/* 367 */
1075EXTERN int Tcl_Access(const char *path, int mode);
1076/* 368 */
1077EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
1078/* 369 */
1079EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2,
1080 unsigned long n);
1081/* 370 */
1082EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
1083 unsigned long n);
1084/* 371 */
1085EXTERN int Tcl_StringCaseMatch(const char *str,
1086 const char *pattern, int nocase);
1087/* 372 */
1088EXTERN int Tcl_UniCharIsControl(int ch);
1089/* 373 */
1090EXTERN int Tcl_UniCharIsGraph(int ch);
1091/* 374 */
1092EXTERN int Tcl_UniCharIsPrint(int ch);
1093/* 375 */
1094EXTERN int Tcl_UniCharIsPunct(int ch);
1095/* 376 */
1096EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
1097 Tcl_RegExp regexp, Tcl_Obj *textObj,
1098 int offset, int nmatches, int flags);
1099/* 377 */
1100EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
1101 Tcl_RegExpInfo *infoPtr);
1102/* 378 */
1103EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
1104 int numChars);
1105/* 379 */
1106EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
1107 const Tcl_UniChar *unicode, int numChars);
1108/* 380 */
1109EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr);
1110/* 381 */
1111EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index);
1112/* 382 */
1113EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr);
1114/* 383 */
1115EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last);
1116/* 384 */
1117EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
1118 const Tcl_UniChar *unicode, int length);
1119/* 385 */
1120EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
1121 Tcl_Obj *textObj, Tcl_Obj *patternObj);
1122/* 386 */
1123EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr);
1124/* 387 */
1125EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
1126/* 388 */
1127EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
1128/* 389 */
1129EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
1130 const char *pattern);
1131/* 390 */
1132EXTERN int Tcl_ProcObjCmd(ClientData clientData,
1133 Tcl_Interp *interp, int objc,
1134 Tcl_Obj *const objv[]);
1135/* 391 */
1136EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
1137/* 392 */
1138EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
1139/* 393 */
1140EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
1141 Tcl_ThreadCreateProc *proc,
1142 ClientData clientData, int stackSize,
1143 int flags);
1144/* 394 */
1145EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst,
1146 int bytesToRead);
1147/* 395 */
1148EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src,
1149 int srcLen);
1150/* 396 */
1151EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
1152/* 397 */
1153EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
1154/* 398 */
1155EXTERN CONST84_RETURN char * Tcl_ChannelName(
1156 const Tcl_ChannelType *chanTypePtr);
1157/* 399 */
1158EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
1159 const Tcl_ChannelType *chanTypePtr);
1160/* 400 */
1161EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
1162 const Tcl_ChannelType *chanTypePtr);
1163/* 401 */
1164EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc(
1165 const Tcl_ChannelType *chanTypePtr);
1166/* 402 */
1167EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
1168 const Tcl_ChannelType *chanTypePtr);
1169/* 403 */
1170EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
1171 const Tcl_ChannelType *chanTypePtr);
1172/* 404 */
1173EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
1174 const Tcl_ChannelType *chanTypePtr);
1175/* 405 */
1176EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc(
1177 const Tcl_ChannelType *chanTypePtr);
1178/* 406 */
1179EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
1180 const Tcl_ChannelType *chanTypePtr);
1181/* 407 */
1182EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
1183 const Tcl_ChannelType *chanTypePtr);
1184/* 408 */
1185EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
1186 const Tcl_ChannelType *chanTypePtr);
1187/* 409 */
1188EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
1189 const Tcl_ChannelType *chanTypePtr);
1190/* 410 */
1191EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
1192 const Tcl_ChannelType *chanTypePtr);
1193/* 411 */
1194EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
1195 const Tcl_ChannelType *chanTypePtr);
1196/* 412 */
1197EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
1198/* 413 */
1199EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
1200/* 414 */
1201EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
1202 Tcl_Channel channel);
1203/* 415 */
1204EXTERN void Tcl_CutChannel(Tcl_Channel channel);
1205/* 416 */
1206EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
1207/* 417 */
1208EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
1209/* 418 */
1210EXTERN int Tcl_IsChannelExisting(const char *channelName);
1211/* 419 */
1212EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs,
1213 const Tcl_UniChar *uct,
1214 unsigned long numChars);
1215/* 420 */
1216EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr,
1217 const Tcl_UniChar *uniPattern, int nocase);
1218/* 421 */
1219EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr,
1220 const void *key);
1221/* 422 */
1222EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
1223 const void *key, int *newPtr);
1224/* 423 */
1225EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
1226 int keyType, const Tcl_HashKeyType *typePtr);
1227/* 424 */
1228EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
1229/* 425 */
1230EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp,
1231 const char *varName, int flags,
1232 Tcl_CommandTraceProc *procPtr,
1233 ClientData prevClientData);
1234/* 426 */
1235EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
1236 const char *varName, int flags,
1237 Tcl_CommandTraceProc *proc,
1238 ClientData clientData);
1239/* 427 */
1240EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
1241 const char *varName, int flags,
1242 Tcl_CommandTraceProc *proc,
1243 ClientData clientData);
1244/* 428 */
1245EXTERN char * Tcl_AttemptAlloc(unsigned int size);
1246/* 429 */
1247EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size,
1248 const char *file, int line);
1249/* 430 */
1250EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size);
1251/* 431 */
1252EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
1253 const char *file, int line);
1254/* 432 */
1255EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length);
1256/* 433 */
1257EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
1258/* 434 */
1259EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
1260 int *lengthPtr);
1261/* 435 */
1262EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp,
1263 const char *name, int *numArgsPtr,
1264 Tcl_ValueType **argTypesPtr,
1265 Tcl_MathProc **procPtr,
1266 ClientData *clientDataPtr);
1267/* 436 */
1268EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp,
1269 const char *pattern);
1270/* 437 */
1271EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1272 int flags);
1273/* 438 */
1274EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
1275 Tcl_Channel channel);
1276/* 439 */
1277EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
1278/* 440 */
1279EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
1280 Tcl_Obj *destPathPtr);
1281/* 441 */
1282EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
1283 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
1284/* 442 */
1285EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
1286/* 443 */
1287EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
1288/* 444 */
1289EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1290 const char *sym1, const char *sym2,
1291 Tcl_PackageInitProc **proc1Ptr,
1292 Tcl_PackageInitProc **proc2Ptr,
1293 Tcl_LoadHandle *handlePtr,
1294 Tcl_FSUnloadFileProc **unloadProcPtr);
1295/* 445 */
1296EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
1297 Tcl_Obj *result, Tcl_Obj *pathPtr,
1298 const char *pattern, Tcl_GlobTypeData *types);
1299/* 446 */
1300EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
1301 int linkAction);
1302/* 447 */
1303EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
1304 int recursive, Tcl_Obj **errorPtr);
1305/* 448 */
1306EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
1307 Tcl_Obj *destPathPtr);
1308/* 449 */
1309EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1310/* 450 */
1311EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
1312/* 451 */
1313EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
1314 Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
1315/* 452 */
1316EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
1317 Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
1318/* 453 */
1319EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
1320 Tcl_Obj **objPtrRef);
1321/* 454 */
1322EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1323/* 455 */
1324EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
1325/* 456 */
1326EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
1327 Tcl_Obj *pathPtr, const char *modeString,
1328 int permissions);
1329/* 457 */
1330EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
1331/* 458 */
1332EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
1333/* 459 */
1334EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
1335 Tcl_Obj *pathPtr);
1336/* 460 */
1337EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements);
1338/* 461 */
1339EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr);
1340/* 462 */
1341EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
1342 Tcl_Obj *secondPtr);
1343/* 463 */
1344EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
1345 Tcl_Obj *pathPtr);
1346/* 464 */
1347EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc,
1348 Tcl_Obj *const objv[]);
1349/* 465 */
1350EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
1351 const Tcl_Filesystem *fsPtr);
1352/* 466 */
1353EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
1354 Tcl_Obj *pathPtr);
1355/* 467 */
1356EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
1357/* 468 */
1358EXTERN Tcl_Obj * Tcl_FSNewNativePath(
1359 const Tcl_Filesystem *fromFilesystem,
1360 ClientData clientData);
1361/* 469 */
1362EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
1363/* 470 */
1364EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
1365/* 471 */
1366EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
1367/* 472 */
1368EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
1369/* 473 */
1370EXTERN int Tcl_FSRegister(ClientData clientData,
1371 const Tcl_Filesystem *fsPtr);
1372/* 474 */
1373EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
1374/* 475 */
1375EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr);
1376/* 476 */
1377EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
1378 Tcl_Obj *pathPtr);
1379/* 477 */
1380EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
1381/* 478 */
1382EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
1383/* 479 */
1384EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
1385/* 480 */
1386EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
1387/* 481 */
1388EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
1389 Tcl_Token *tokenPtr, int count);
1390/* 482 */
1391EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
1392/* 483 */
1393EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level,
1394 int flags, Tcl_CmdObjTraceProc *objProc,
1395 ClientData clientData,
1396 Tcl_CmdObjTraceDeleteProc *delProc);
1397/* 484 */
1398EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
1399 Tcl_CmdInfo *infoPtr);
1400/* 485 */
1401EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
1402 const Tcl_CmdInfo *infoPtr);
1403/* 486 */
1404EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
1405 const char *file, int line);
1406/* 487 */
1407EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
1408 Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
1409/* 488 */
1410EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
1411/* 489 */
1412EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
1413 Tcl_WideInt wideValue);
1414/* 490 */
1415EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
1416/* 491 */
1417EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
1418 int mode);
1419/* 492 */
1420EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan);
1421/* 493 */
1422EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
1423 const Tcl_ChannelType *chanTypePtr);
1424/* 494 */
1425EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1426 Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
1427/* 495 */
1428EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1429 Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
1430/* 496 */
1431EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
1432 Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
1433/* 497 */
1434EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1435 int *sizePtr);
1436/* 498 */
1437EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
1438 Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
1439 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1440 int *donePtr);
1441/* 499 */
1442EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
1443 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1444 int *donePtr);
1445/* 500 */
1446EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
1447/* 501 */
1448EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
1449 Tcl_Obj *dictPtr, int keyc,
1450 Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
1451/* 502 */
1452EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
1453 Tcl_Obj *dictPtr, int keyc,
1454 Tcl_Obj *const *keyv);
1455/* 503 */
1456EXTERN Tcl_Obj * Tcl_NewDictObj(void);
1457/* 504 */
1458EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
1459/* 505 */
1460EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
1461 const char *pkgName,
1462 const Tcl_Config *configuration,
1463 const char *valEncoding);
1464/* 506 */
1465EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
1466 const char *name, ClientData clientData,
1467 Tcl_NamespaceDeleteProc *deleteProc);
1468/* 507 */
1469EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
1470/* 508 */
1471EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
1472 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
1473/* 509 */
1474EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1475 const char *pattern, int resetListFirst);
1476/* 510 */
1477EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1478 const char *pattern, int allowOverwrite);
1479/* 511 */
1480EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
1481 Tcl_Namespace *nsPtr, const char *pattern);
1482/* 512 */
1483EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
1484/* 513 */
1485EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
1486/* 514 */
1487EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
1488 const char *name,
1489 Tcl_Namespace *contextNsPtr, int flags);
1490/* 515 */
1491EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
1492 Tcl_Namespace *contextNsPtr, int flags);
1493/* 516 */
1494EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
1495 Tcl_Obj *objPtr);
1496/* 517 */
1497EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
1498 Tcl_Command command, Tcl_Obj *objPtr);
1499/* 518 */
1500EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
1501 Tcl_Obj *fileName, const char *encodingName);
1502/* 519 */
1503EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc);
1504/* 520 */
1505EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
1506 Tcl_LimitHandlerProc *handlerProc,
1507 ClientData clientData,
1508 Tcl_LimitHandlerDeleteProc *deleteProc);
1509/* 521 */
1510EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
1511 Tcl_LimitHandlerProc *handlerProc,
1512 ClientData clientData);
1513/* 522 */
1514EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
1515/* 523 */
1516EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
1517/* 524 */
1518EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
1519/* 525 */
1520EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
1521 int commandLimit);
1522/* 526 */
1523EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
1524 Tcl_Time *timeLimitPtr);
1525/* 527 */
1526EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
1527 int granularity);
1528/* 528 */
1529EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
1530/* 529 */
1531EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
1532/* 530 */
1533EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
1534/* 531 */
1535EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
1536/* 532 */
1537EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp);
1538/* 533 */
1539EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
1540 Tcl_Time *timeLimitPtr);
1541/* 534 */
1542EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
1543/* 535 */
1544EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
1545/* 536 */
1546EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
1547 Tcl_InterpState state);
1548/* 537 */
1549EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
1550/* 538 */
1551EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
1552 Tcl_Obj *options);
1553/* 539 */
1554EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
1555/* 540 */
1556EXTERN int Tcl_IsEnsemble(Tcl_Command token);
1557/* 541 */
1558EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
1559 const char *name,
1560 Tcl_Namespace *namespacePtr, int flags);
1561/* 542 */
1562EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
1563 Tcl_Obj *cmdNameObj, int flags);
1564/* 543 */
1565EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
1566 Tcl_Command token, Tcl_Obj *subcmdList);
1567/* 544 */
1568EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
1569 Tcl_Command token, Tcl_Obj *mapDict);
1570/* 545 */
1571EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
1572 Tcl_Command token, Tcl_Obj *unknownList);
1573/* 546 */
1574EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
1575 Tcl_Command token, int flags);
1576/* 547 */
1577EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
1578 Tcl_Command token, Tcl_Obj **subcmdListPtr);
1579/* 548 */
1580EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
1581 Tcl_Command token, Tcl_Obj **mapDictPtr);
1582/* 549 */
1583EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
1584 Tcl_Command token, Tcl_Obj **unknownListPtr);
1585/* 550 */
1586EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
1587 Tcl_Command token, int *flagsPtr);
1588/* 551 */
1589EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
1590 Tcl_Command token,
1591 Tcl_Namespace **namespacePtrPtr);
1592/* 552 */
1593EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
1594 Tcl_ScaleTimeProc *scaleProc,
1595 ClientData clientData);
1596/* 553 */
1597EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
1598 Tcl_ScaleTimeProc **scaleProc,
1599 ClientData *clientData);
1600/* 554 */
1601EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
1602 const Tcl_ChannelType *chanTypePtr);
1603/* 555 */
1604EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value);
1605/* 556 */
1606EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file,
1607 int line);
1608/* 557 */
1609EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value);
1610/* 558 */
1611EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
1612 Tcl_Obj *obj, mp_int *value);
1613/* 559 */
1614EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
1615 Tcl_Obj *obj, mp_int *value);
1616/* 560 */
1617EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
1618 Tcl_WideInt length);
1619/* 561 */
1620EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
1621 const Tcl_ChannelType *chanTypePtr);
1622/* 562 */
1623EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
1624 Tcl_Obj *msg);
1625/* 563 */
1626EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
1627 Tcl_Obj **msg);
1628/* 564 */
1629EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
1630/* 565 */
1631EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
1632/* 566 */
1633EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
1634 double initval, mp_int *toInit);
1635/* 567 */
1636EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
1637 Tcl_Namespace *nsPtr);
1638/* 568 */
1639EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
1640 Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
1641/* 569 */
1642EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
1643 Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
1644/* 570 */
1645EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
1646/* 571 */
1647EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
1648/* 572 */
1649EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
1650 Tcl_DString *bufPtr);
1651/* 573 */
1652EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
1653 const char *name, int objc,
1654 Tcl_Obj *const objv[], void *clientDataPtr);
1655/* 574 */
1656EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
1657 Tcl_Obj *objPtr);
1658/* 575 */
1659EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
1660 const char *bytes, int length, int limit,
1661 const char *ellipsis);
1662/* 576 */
1663EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
1664 int objc, Tcl_Obj *const objv[]);
1665/* 577 */
1666EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
1667 Tcl_Obj *objPtr, const char *format,
1668 int objc, Tcl_Obj *const objv[]);
1669/* 578 */
1670EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
1671/* 579 */
1672EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
1673 const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
1674/* 580 */
1675EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
1676 Tcl_Obj *resultObjPtr, ClientData clientData,
1677 int flags);
1678/* 581 */
1679EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
1680/* 582 */
1681EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
1682 Tcl_Channel *rchan, Tcl_Channel *wchan,
1683 int flags);
1684/* 583 */
1685EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
1686 const char *cmdName, Tcl_ObjCmdProc *proc,
1687 Tcl_ObjCmdProc *nreProc,
1688 ClientData clientData,
1689 Tcl_CmdDeleteProc *deleteProc);
1690/* 584 */
1691EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1692 int flags);
1693/* 585 */
1694EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc,
1695 Tcl_Obj *const objv[], int flags);
1696/* 586 */
1697EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
1698 int objc, Tcl_Obj *const objv[], int flags);
1699/* 587 */
1700EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
1701 Tcl_NRPostProc *postProcPtr,
1702 ClientData data0, ClientData data1,
1703 ClientData data2, ClientData data3);
1704/* 588 */
1705EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
1706 Tcl_ObjCmdProc *objProc,
1707 ClientData clientData, int objc,
1708 Tcl_Obj *const objv[]);
1709/* 589 */
1710EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
1711/* 590 */
1712EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
1713/* 591 */
1714EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
1715/* 592 */
1716EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
1717/* 593 */
1718EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
1719/* 594 */
1720EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
1721/* 595 */
1722EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
1723/* 596 */
1724EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
1725/* 597 */
1726EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat(
1727 const Tcl_StatBuf *statPtr);
1728/* 598 */
1729EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
1730/* 599 */
1731EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
1732/* 600 */
1733EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
1734/* 601 */
1735EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
1736/* 602 */
1737EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
1738 Tcl_Command token, Tcl_Obj *paramList);
1739/* 603 */
1740EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
1741 Tcl_Command token, Tcl_Obj **paramListPtr);
1742/* 604 */
1743EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
1744 const Tcl_ArgvInfo *argTable, int *objcPtr,
1745 Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
1746/* 605 */
1747EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
1748/* 606 */
1749EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
1750/* 607 */
1751EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
1752 int result, Tcl_Interp *targetInterp);
1753/* 608 */
1754EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
1755/* 609 */
1756EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code);
1757/* 610 */
1758EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
1759 Tcl_Obj *data, int level,
1760 Tcl_Obj *gzipHeaderDictObj);
1761/* 611 */
1762EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
1763 Tcl_Obj *data, int buffersize,
1764 Tcl_Obj *gzipHeaderDictObj);
1765/* 612 */
1766EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
1767 const unsigned char *buf, int len);
1768/* 613 */
1769EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
1770 const unsigned char *buf, int len);
1771/* 614 */
1772EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
1773 int format, int level, Tcl_Obj *dictObj,
1774 Tcl_ZlibStream *zshandle);
1775/* 615 */
1776EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
1777/* 616 */
1778EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
1779/* 617 */
1780EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
1781/* 618 */
1782EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
1783 Tcl_Obj *data, int flush);
1784/* 619 */
1785EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
1786 Tcl_Obj *data, int count);
1787/* 620 */
1788EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
1789/* 621 */
1790EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
1791/* 622 */
1792EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
1793 const char *encoding);
1794/* 623 */
1795EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
1796/* 624 */
1797EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
1798 int flags);
1799/* 625 */
1800EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1801 Tcl_Obj *resultPtr);
1802/* 626 */
1803EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1804 int flags);
1805/* 627 */
1806EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1807 const char *const symv[], int flags,
1808 void *procPtrs, Tcl_LoadHandle *handlePtr);
1809/* 628 */
1810EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
1811 Tcl_LoadHandle handle, const char *symbol);
1812/* 629 */
1813EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
1814 Tcl_LoadHandle handlePtr);
1815/* 630 */
1816EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
1817 Tcl_ZlibStream zhandle,
1818 Tcl_Obj *compressionDictionaryObj);
1819/* Slot 631 is reserved */
1820/* Slot 632 is reserved */
1821/* Slot 633 is reserved */
1822/* Slot 634 is reserved */
1823/* Slot 635 is reserved */
1824/* Slot 636 is reserved */
1825/* Slot 637 is reserved */
1826/* Slot 638 is reserved */
1827/* Slot 639 is reserved */
1828/* Slot 640 is reserved */
1829/* Slot 641 is reserved */
1830/* Slot 642 is reserved */
1831/* Slot 643 is reserved */
1832/* Slot 644 is reserved */
1833/* Slot 645 is reserved */
1834/* Slot 646 is reserved */
1835/* Slot 647 is reserved */
1836/* 648 */
1837EXTERN void TclUnusedStubEntry(void);
1838
1839typedef struct {
1840 const struct TclPlatStubs *tclPlatStubs;
1841 const struct TclIntStubs *tclIntStubs;
1842 const struct TclIntPlatStubs *tclIntPlatStubs;
1843} TclStubHooks;
1844
1845typedef struct TclStubs {
1846 int magic;
1847 const TclStubHooks *hooks;
1848
1849 int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
1850 CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
1851 TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
1852 char * (*tcl_Alloc) (unsigned int size); /* 3 */
1853 void (*tcl_Free) (char *ptr); /* 4 */
1854 char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
1855 char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */
1856 void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
1857 char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */
1858#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
1859 void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
1860#endif /* UNIX */
1861#if defined(_WIN32) /* WIN */
1862 void (*reserved9)(void);
1863#endif /* WIN */
1864#ifdef MAC_OSX_TCL /* MACOSX */
1865 void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
1866#endif /* MACOSX */
1867#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
1868 void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1869#endif /* UNIX */
1870#if defined(_WIN32) /* WIN */
1871 void (*reserved10)(void);
1872#endif /* WIN */
1873#ifdef MAC_OSX_TCL /* MACOSX */
1874 void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1875#endif /* MACOSX */
1876 void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
1877 void (*tcl_Sleep) (int ms); /* 12 */
1878 int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
1879 int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
1880 void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
1881 void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */
1882 Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
1883 int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
1884 void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
1885 void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
1886 int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
1887 Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */
1888 Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */
1889 Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
1890 Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
1891 Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */
1892 Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
1893 Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */
1894 Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
1895 void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
1896 int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */
1897 int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */
1898 unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */
1899 int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
1900 int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
1901 int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */
1902 int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
1903 int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
1904 int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
1905 CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
1906 char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
1907 void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
1908 int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
1909 int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
1910 int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
1911 int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */
1912 int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */
1913 int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
1914 Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
1915 Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */
1916 Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
1917 Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
1918 Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
1919 Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
1920 Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
1921 Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
1922 void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */
1923 unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */
1924 void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */
1925 void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
1926 void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
1927 void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
1928 void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
1929 void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
1930 void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */
1931 void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */
1932 void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */
1933 void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
1934 void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
1935 void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
1936 Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */
1937 void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
1938 int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
1939 void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
1940 int (*tcl_AsyncReady) (void); /* 75 */
1941 void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
1942 char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
1943 int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
1944 void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */
1945 void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */
1946 int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
1947 int (*tcl_CommandComplete) (const char *cmd); /* 82 */
1948 char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
1949 int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
1950 int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
1951 int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
1952 int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
1953 Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
1954 void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
1955 void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
1956 Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
1957 void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */
1958 void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */
1959 Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
1960 void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
1961 Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
1962 Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveName, int isSafe); /* 97 */
1963 Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
1964 Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
1965 void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
1966 void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */
1967 void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
1968 int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
1969 int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
1970 void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */
1971 void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */
1972 void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */
1973 void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
1974 void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
1975 void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
1976 void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
1977 void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
1978 void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
1979 void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */
1980 int (*tcl_DoOneEvent) (int flags); /* 115 */
1981 void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
1982 char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */
1983 char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
1984 void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
1985 void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
1986 void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
1987 void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
1988 void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
1989 void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */
1990 void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
1991 int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
1992 CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
1993 CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
1994 int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
1995 int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
1996 int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
1997 void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */
1998 TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
1999 int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
2000 int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
2001 int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
2002 int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
2003 int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
2004 int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
2005 int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
2006 int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
2007 int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
2008 void (*tcl_Finalize) (void); /* 143 */
2009 void (*tcl_FindExecutable) (const char *argv0); /* 144 */
2010 Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
2011 int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
2012 void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
2013 int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
2014 int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
2015 ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
2016 Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
2017 int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
2018 int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */
2019 ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
2020 int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
2021 CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
2022 int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
2023 CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
2024 int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
2025 CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
2026 int (*tcl_GetErrno) (void); /* 161 */
2027 CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
2028 int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInterp); /* 163 */
2029 Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
2030 const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
2031 Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
2032#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2033 int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
2034#endif /* UNIX */
2035#if defined(_WIN32) /* WIN */
2036 void (*reserved167)(void);
2037#endif /* WIN */
2038#ifdef MAC_OSX_TCL /* MACOSX */
2039 int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
2040#endif /* MACOSX */
2041 Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
2042 int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
2043 int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
2044 int (*tcl_GetServiceMode) (void); /* 171 */
2045 Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName); /* 172 */
2046 Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
2047 CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
2048 CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
2049 CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
2050 int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */
2051 int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
2052 int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
2053 int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
2054 void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
2055 int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
2056 int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
2057 int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
2058 int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
2059 char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */
2060 int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */
2061 void (*reserved188)(void);
2062 Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
2063 int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
2064 Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
2065 char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
2066 Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
2067 void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
2068 Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
2069 Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
2070 Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */
2071 Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
2072 Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */
2073 Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */
2074 void (*tcl_Preserve) (ClientData data); /* 201 */
2075 void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
2076 int (*tcl_PutEnv) (const char *assignment); /* 203 */
2077 CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
2078 void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
2079 int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
2080 void (*tcl_ReapDetachedProcs) (void); /* 207 */
2081 int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
2082 int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
2083 void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
2084 void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
2085 Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
2086 int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
2087 int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
2088 void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */
2089 void (*tcl_Release) (ClientData clientData); /* 216 */
2090 void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
2091 int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
2092 int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */
2093 int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
2094 int (*tcl_ServiceAll) (void); /* 221 */
2095 int (*tcl_ServiceEvent) (int flags); /* 222 */
2096 void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */
2097 void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
2098 int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
2099 int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
2100 void (*tcl_SetErrno) (int err); /* 227 */
2101 void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
2102 void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
2103 void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */
2104 int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
2105 void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */
2106 int (*tcl_SetServiceMode) (int mode); /* 233 */
2107 void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
2108 void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
2109 void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
2110 CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */
2111 CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
2112 CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
2113 CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
2114 void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
2115 int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */
2116 void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */
2117 void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
2118 int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */
2119 int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
2120 int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
2121 int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */
2122 char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
2123 int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */
2124 void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
2125 int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
2126 int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */
2127 int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
2128 void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
2129 void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */
2130 void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
2131 int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */
2132 int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
2133 int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
2134 ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */
2135 ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */
2136 int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
2137 void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */
2138 int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
2139 void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
2140 void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */
2141 void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
2142 char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
2143 CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */
2144 CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */
2145 CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
2146 int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */
2147 CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */
2148 void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */
2149 int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
2150 Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
2151 TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
2152 void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
2153 void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
2154 Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
2155 int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
2156 Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
2157 void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
2158 void (*reserved285)(void);
2159 void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
2160 Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
2161 void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */
2162 void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */
2163 void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
2164 int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */
2165 int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
2166 int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
2167 void (*tcl_ExitThread) (int status); /* 294 */
2168 int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
2169 char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */
2170 void (*tcl_FinalizeThread) (void); /* 297 */
2171 void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
2172 void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
2173 Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
2174 Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
2175 CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
2176 void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
2177 int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */
2178 void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */
2179 Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
2180 ClientData (*tcl_InitNotifier) (void); /* 307 */
2181 void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
2182 void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
2183 void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
2184 void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
2185 int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
2186 int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */
2187 void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */
2188 void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
2189 int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
2190 Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
2191 void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
2192 void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
2193 Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
2194 Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
2195 Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
2196 Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
2197 int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
2198 CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */
2199 int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
2200 int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
2201 CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
2202 CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
2203 CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
2204 CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */
2205 int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */
2206 char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */
2207 int (*tcl_UtfToLower) (char *src); /* 334 */
2208 int (*tcl_UtfToTitle) (char *src); /* 335 */
2209 int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */
2210 int (*tcl_UtfToUpper) (char *src); /* 337 */
2211 int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
2212 int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
2213 char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
2214 CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
2215 void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
2216 void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
2217 void (*tcl_ServiceModeHook) (int mode); /* 344 */
2218 int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
2219 int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
2220 int (*tcl_UniCharIsDigit) (int ch); /* 347 */
2221 int (*tcl_UniCharIsLower) (int ch); /* 348 */
2222 int (*tcl_UniCharIsSpace) (int ch); /* 349 */
2223 int (*tcl_UniCharIsUpper) (int ch); /* 350 */
2224 int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
2225 int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
2226 int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */
2227 char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */
2228 Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */
2229 Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
2230 Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */
2231 void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
2232 void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */
2233 int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
2234 int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
2235 int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */
2236 int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */
2237 int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
2238 char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
2239 int (*tcl_Chdir) (const char *dirName); /* 366 */
2240 int (*tcl_Access) (const char *path, int mode); /* 367 */
2241 int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
2242 int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */
2243 int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */
2244 int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
2245 int (*tcl_UniCharIsControl) (int ch); /* 372 */
2246 int (*tcl_UniCharIsGraph) (int ch); /* 373 */
2247 int (*tcl_UniCharIsPrint) (int ch); /* 374 */
2248 int (*tcl_UniCharIsPunct) (int ch); /* 375 */
2249 int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */
2250 void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
2251 Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */
2252 void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */
2253 int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
2254 Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
2255 Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
2256 Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */
2257 void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */
2258 int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
2259 void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
2260 Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
2261 int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
2262 int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
2263 int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */
2264 void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
2265 void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
2266 int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */
2267 int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */
2268 int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
2269 Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
2270 int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
2271 CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
2272 Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
2273 Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
2274 Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */
2275 Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
2276 Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
2277 Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
2278 Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */
2279 Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
2280 Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
2281 Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
2282 Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
2283 Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
2284 Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
2285 int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
2286 int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
2287 int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
2288 void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
2289 void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
2290 void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
2291 int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
2292 int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */
2293 int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */
2294 Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */
2295 Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
2296 void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
2297 void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
2298 ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */
2299 int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
2300 void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
2301 char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
2302 char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */
2303 char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
2304 char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */
2305 int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
2306 Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
2307 Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */
2308 int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */
2309 Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */
2310 Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
2311 int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
2312 int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
2313 int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
2314 int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
2315 int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
2316 int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
2317 int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */
2318 int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
2319 Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
2320 int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
2321 int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
2322 int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
2323 int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
2324 int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
2325 int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
2326 const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
2327 int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
2328 int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
2329 Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
2330 Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
2331 int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
2332 int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
2333 Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
2334 Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
2335 int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
2336 Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
2337 Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
2338 ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
2339 Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
2340 int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
2341 Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */
2342 const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
2343 Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
2344 Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
2345 Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
2346 int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */
2347 int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
2348 ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
2349 const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
2350 CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
2351 Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
2352 int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
2353 void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
2354 int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
2355 void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
2356 Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
2357 int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
2358 int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
2359 Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
2360 int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
2361 Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
2362 void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
2363 Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
2364 Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
2365 Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
2366 Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
2367 int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
2368 int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
2369 int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
2370 int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */
2371 int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
2372 void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
2373 void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
2374 int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
2375 int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */
2376 Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
2377 Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
2378 void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
2379 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
2380 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
2381 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
2382 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
2383 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
2384 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
2385 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
2386 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
2387 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
2388 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
2389 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
2390 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
2391 int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
2392 Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */
2393 void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
2394 void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */
2395 int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
2396 int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
2397 int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
2398 void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
2399 void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
2400 void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
2401 int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
2402 int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
2403 void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
2404 void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
2405 int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
2406 void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
2407 int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
2408 Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
2409 int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
2410 void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
2411 int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
2412 Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
2413 int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
2414 Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
2415 Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
2416 int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
2417 int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
2418 int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
2419 int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
2420 int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
2421 int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
2422 int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
2423 int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
2424 int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
2425 void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */
2426 void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
2427 Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
2428 Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
2429 Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */
2430 void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
2431 int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */
2432 int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
2433 int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
2434 Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
2435 void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
2436 void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
2437 void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
2438 void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
2439 int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */
2440 Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
2441 int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
2442 int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
2443 Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
2444 int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
2445 const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
2446 int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
2447 void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
2448 void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */
2449 Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */
2450 int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
2451 Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
2452 void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
2453 int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */
2454 int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
2455 int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
2456 Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
2457 int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
2458 int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
2459 int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
2460 void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
2461 int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
2462 unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
2463 unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
2464 unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
2465 int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
2466 int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
2467 int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
2468 int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
2469 Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
2470 Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
2471 Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
2472 Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
2473 Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
2474 unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
2475 int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
2476 int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
2477 int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
2478 int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
2479 void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
2480 void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp); /* 607 */
2481 int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
2482 void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
2483 int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
2484 int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
2485 unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */
2486 unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */
2487 int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
2488 Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
2489 int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
2490 int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
2491 int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
2492 int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */
2493 int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
2494 int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
2495 void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
2496 Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
2497 int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
2498 int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
2499 int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
2500 int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
2501 void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
2502 int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
2503 void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
2504 void (*reserved631)(void);
2505 void (*reserved632)(void);
2506 void (*reserved633)(void);
2507 void (*reserved634)(void);
2508 void (*reserved635)(void);
2509 void (*reserved636)(void);
2510 void (*reserved637)(void);
2511 void (*reserved638)(void);
2512 void (*reserved639)(void);
2513 void (*reserved640)(void);
2514 void (*reserved641)(void);
2515 void (*reserved642)(void);
2516 void (*reserved643)(void);
2517 void (*reserved644)(void);
2518 void (*reserved645)(void);
2519 void (*reserved646)(void);
2520 void (*reserved647)(void);
2521 void (*tclUnusedStubEntry) (void); /* 648 */
2522} TclStubs;
2523
2524extern const TclStubs *tclStubsPtr;
2525
2526#ifdef __cplusplus
2527}
2528#endif
2529
2530#if defined(USE_TCL_STUBS)
2531
2532/*
2533 * Inline function declarations:
2534 */
2535
2536#define Tcl_PkgProvideEx \
2537 (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
2538#define Tcl_PkgRequireEx \
2539 (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
2540#define Tcl_Panic \
2541 (tclStubsPtr->tcl_Panic) /* 2 */
2542#define Tcl_Alloc \
2543 (tclStubsPtr->tcl_Alloc) /* 3 */
2544#define Tcl_Free \
2545 (tclStubsPtr->tcl_Free) /* 4 */
2546#define Tcl_Realloc \
2547 (tclStubsPtr->tcl_Realloc) /* 5 */
2548#define Tcl_DbCkalloc \
2549 (tclStubsPtr->tcl_DbCkalloc) /* 6 */
2550#define Tcl_DbCkfree \
2551 (tclStubsPtr->tcl_DbCkfree) /* 7 */
2552#define Tcl_DbCkrealloc \
2553 (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
2554#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2555#define Tcl_CreateFileHandler \
2556 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2557#endif /* UNIX */
2558#ifdef MAC_OSX_TCL /* MACOSX */
2559#define Tcl_CreateFileHandler \
2560 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2561#endif /* MACOSX */
2562#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2563#define Tcl_DeleteFileHandler \
2564 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2565#endif /* UNIX */
2566#ifdef MAC_OSX_TCL /* MACOSX */
2567#define Tcl_DeleteFileHandler \
2568 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2569#endif /* MACOSX */
2570#define Tcl_SetTimer \
2571 (tclStubsPtr->tcl_SetTimer) /* 11 */
2572#define Tcl_Sleep \
2573 (tclStubsPtr->tcl_Sleep) /* 12 */
2574#define Tcl_WaitForEvent \
2575 (tclStubsPtr->tcl_WaitForEvent) /* 13 */
2576#define Tcl_AppendAllObjTypes \
2577 (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
2578#define Tcl_AppendStringsToObj \
2579 (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
2580#define Tcl_AppendToObj \
2581 (tclStubsPtr->tcl_AppendToObj) /* 16 */
2582#define Tcl_ConcatObj \
2583 (tclStubsPtr->tcl_ConcatObj) /* 17 */
2584#define Tcl_ConvertToType \
2585 (tclStubsPtr->tcl_ConvertToType) /* 18 */
2586#define Tcl_DbDecrRefCount \
2587 (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
2588#define Tcl_DbIncrRefCount \
2589 (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
2590#define Tcl_DbIsShared \
2591 (tclStubsPtr->tcl_DbIsShared) /* 21 */
2592#define Tcl_DbNewBooleanObj \
2593 (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
2594#define Tcl_DbNewByteArrayObj \
2595 (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
2596#define Tcl_DbNewDoubleObj \
2597 (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
2598#define Tcl_DbNewListObj \
2599 (tclStubsPtr->tcl_DbNewListObj) /* 25 */
2600#define Tcl_DbNewLongObj \
2601 (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
2602#define Tcl_DbNewObj \
2603 (tclStubsPtr->tcl_DbNewObj) /* 27 */
2604#define Tcl_DbNewStringObj \
2605 (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
2606#define Tcl_DuplicateObj \
2607 (tclStubsPtr->tcl_DuplicateObj) /* 29 */
2608#define TclFreeObj \
2609 (tclStubsPtr->tclFreeObj) /* 30 */
2610#define Tcl_GetBoolean \
2611 (tclStubsPtr->tcl_GetBoolean) /* 31 */
2612#define Tcl_GetBooleanFromObj \
2613 (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
2614#define Tcl_GetByteArrayFromObj \
2615 (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
2616#define Tcl_GetDouble \
2617 (tclStubsPtr->tcl_GetDouble) /* 34 */
2618#define Tcl_GetDoubleFromObj \
2619 (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
2620#define Tcl_GetIndexFromObj \
2621 (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
2622#define Tcl_GetInt \
2623 (tclStubsPtr->tcl_GetInt) /* 37 */
2624#define Tcl_GetIntFromObj \
2625 (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
2626#define Tcl_GetLongFromObj \
2627 (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
2628#define Tcl_GetObjType \
2629 (tclStubsPtr->tcl_GetObjType) /* 40 */
2630#define Tcl_GetStringFromObj \
2631 (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
2632#define Tcl_InvalidateStringRep \
2633 (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
2634#define Tcl_ListObjAppendList \
2635 (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
2636#define Tcl_ListObjAppendElement \
2637 (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
2638#define Tcl_ListObjGetElements \
2639 (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
2640#define Tcl_ListObjIndex \
2641 (tclStubsPtr->tcl_ListObjIndex) /* 46 */
2642#define Tcl_ListObjLength \
2643 (tclStubsPtr->tcl_ListObjLength) /* 47 */
2644#define Tcl_ListObjReplace \
2645 (tclStubsPtr->tcl_ListObjReplace) /* 48 */
2646#define Tcl_NewBooleanObj \
2647 (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
2648#define Tcl_NewByteArrayObj \
2649 (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
2650#define Tcl_NewDoubleObj \
2651 (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
2652#define Tcl_NewIntObj \
2653 (tclStubsPtr->tcl_NewIntObj) /* 52 */
2654#define Tcl_NewListObj \
2655 (tclStubsPtr->tcl_NewListObj) /* 53 */
2656#define Tcl_NewLongObj \
2657 (tclStubsPtr->tcl_NewLongObj) /* 54 */
2658#define Tcl_NewObj \
2659 (tclStubsPtr->tcl_NewObj) /* 55 */
2660#define Tcl_NewStringObj \
2661 (tclStubsPtr->tcl_NewStringObj) /* 56 */
2662#define Tcl_SetBooleanObj \
2663 (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
2664#define Tcl_SetByteArrayLength \
2665 (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
2666#define Tcl_SetByteArrayObj \
2667 (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
2668#define Tcl_SetDoubleObj \
2669 (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
2670#define Tcl_SetIntObj \
2671 (tclStubsPtr->tcl_SetIntObj) /* 61 */
2672#define Tcl_SetListObj \
2673 (tclStubsPtr->tcl_SetListObj) /* 62 */
2674#define Tcl_SetLongObj \
2675 (tclStubsPtr->tcl_SetLongObj) /* 63 */
2676#define Tcl_SetObjLength \
2677 (tclStubsPtr->tcl_SetObjLength) /* 64 */
2678#define Tcl_SetStringObj \
2679 (tclStubsPtr->tcl_SetStringObj) /* 65 */
2680#define Tcl_AddErrorInfo \
2681 (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
2682#define Tcl_AddObjErrorInfo \
2683 (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
2684#define Tcl_AllowExceptions \
2685 (tclStubsPtr->tcl_AllowExceptions) /* 68 */
2686#define Tcl_AppendElement \
2687 (tclStubsPtr->tcl_AppendElement) /* 69 */
2688#define Tcl_AppendResult \
2689 (tclStubsPtr->tcl_AppendResult) /* 70 */
2690#define Tcl_AsyncCreate \
2691 (tclStubsPtr->tcl_AsyncCreate) /* 71 */
2692#define Tcl_AsyncDelete \
2693 (tclStubsPtr->tcl_AsyncDelete) /* 72 */
2694#define Tcl_AsyncInvoke \
2695 (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
2696#define Tcl_AsyncMark \
2697 (tclStubsPtr->tcl_AsyncMark) /* 74 */
2698#define Tcl_AsyncReady \
2699 (tclStubsPtr->tcl_AsyncReady) /* 75 */
2700#define Tcl_BackgroundError \
2701 (tclStubsPtr->tcl_BackgroundError) /* 76 */
2702#define Tcl_Backslash \
2703 (tclStubsPtr->tcl_Backslash) /* 77 */
2704#define Tcl_BadChannelOption \
2705 (tclStubsPtr->tcl_BadChannelOption) /* 78 */
2706#define Tcl_CallWhenDeleted \
2707 (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
2708#define Tcl_CancelIdleCall \
2709 (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
2710#define Tcl_Close \
2711 (tclStubsPtr->tcl_Close) /* 81 */
2712#define Tcl_CommandComplete \
2713 (tclStubsPtr->tcl_CommandComplete) /* 82 */
2714#define Tcl_Concat \
2715 (tclStubsPtr->tcl_Concat) /* 83 */
2716#define Tcl_ConvertElement \
2717 (tclStubsPtr->tcl_ConvertElement) /* 84 */
2718#define Tcl_ConvertCountedElement \
2719 (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
2720#define Tcl_CreateAlias \
2721 (tclStubsPtr->tcl_CreateAlias) /* 86 */
2722#define Tcl_CreateAliasObj \
2723 (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
2724#define Tcl_CreateChannel \
2725 (tclStubsPtr->tcl_CreateChannel) /* 88 */
2726#define Tcl_CreateChannelHandler \
2727 (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
2728#define Tcl_CreateCloseHandler \
2729 (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
2730#define Tcl_CreateCommand \
2731 (tclStubsPtr->tcl_CreateCommand) /* 91 */
2732#define Tcl_CreateEventSource \
2733 (tclStubsPtr->tcl_CreateEventSource) /* 92 */
2734#define Tcl_CreateExitHandler \
2735 (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
2736#define Tcl_CreateInterp \
2737 (tclStubsPtr->tcl_CreateInterp) /* 94 */
2738#define Tcl_CreateMathFunc \
2739 (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
2740#define Tcl_CreateObjCommand \
2741 (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
2742#define Tcl_CreateSlave \
2743 (tclStubsPtr->tcl_CreateSlave) /* 97 */
2744#define Tcl_CreateTimerHandler \
2745 (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
2746#define Tcl_CreateTrace \
2747 (tclStubsPtr->tcl_CreateTrace) /* 99 */
2748#define Tcl_DeleteAssocData \
2749 (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
2750#define Tcl_DeleteChannelHandler \
2751 (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
2752#define Tcl_DeleteCloseHandler \
2753 (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
2754#define Tcl_DeleteCommand \
2755 (tclStubsPtr->tcl_DeleteCommand) /* 103 */
2756#define Tcl_DeleteCommandFromToken \
2757 (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
2758#define Tcl_DeleteEvents \
2759 (tclStubsPtr->tcl_DeleteEvents) /* 105 */
2760#define Tcl_DeleteEventSource \
2761 (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
2762#define Tcl_DeleteExitHandler \
2763 (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
2764#define Tcl_DeleteHashEntry \
2765 (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
2766#define Tcl_DeleteHashTable \
2767 (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
2768#define Tcl_DeleteInterp \
2769 (tclStubsPtr->tcl_DeleteInterp) /* 110 */
2770#define Tcl_DetachPids \
2771 (tclStubsPtr->tcl_DetachPids) /* 111 */
2772#define Tcl_DeleteTimerHandler \
2773 (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
2774#define Tcl_DeleteTrace \
2775 (tclStubsPtr->tcl_DeleteTrace) /* 113 */
2776#define Tcl_DontCallWhenDeleted \
2777 (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
2778#define Tcl_DoOneEvent \
2779 (tclStubsPtr->tcl_DoOneEvent) /* 115 */
2780#define Tcl_DoWhenIdle \
2781 (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
2782#define Tcl_DStringAppend \
2783 (tclStubsPtr->tcl_DStringAppend) /* 117 */
2784#define Tcl_DStringAppendElement \
2785 (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
2786#define Tcl_DStringEndSublist \
2787 (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
2788#define Tcl_DStringFree \
2789 (tclStubsPtr->tcl_DStringFree) /* 120 */
2790#define Tcl_DStringGetResult \
2791 (tclStubsPtr->tcl_DStringGetResult) /* 121 */
2792#define Tcl_DStringInit \
2793 (tclStubsPtr->tcl_DStringInit) /* 122 */
2794#define Tcl_DStringResult \
2795 (tclStubsPtr->tcl_DStringResult) /* 123 */
2796#define Tcl_DStringSetLength \
2797 (tclStubsPtr->tcl_DStringSetLength) /* 124 */
2798#define Tcl_DStringStartSublist \
2799 (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
2800#define Tcl_Eof \
2801 (tclStubsPtr->tcl_Eof) /* 126 */
2802#define Tcl_ErrnoId \
2803 (tclStubsPtr->tcl_ErrnoId) /* 127 */
2804#define Tcl_ErrnoMsg \
2805 (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
2806#define Tcl_Eval \
2807 (tclStubsPtr->tcl_Eval) /* 129 */
2808#define Tcl_EvalFile \
2809 (tclStubsPtr->tcl_EvalFile) /* 130 */
2810#define Tcl_EvalObj \
2811 (tclStubsPtr->tcl_EvalObj) /* 131 */
2812#define Tcl_EventuallyFree \
2813 (tclStubsPtr->tcl_EventuallyFree) /* 132 */
2814#define Tcl_Exit \
2815 (tclStubsPtr->tcl_Exit) /* 133 */
2816#define Tcl_ExposeCommand \
2817 (tclStubsPtr->tcl_ExposeCommand) /* 134 */
2818#define Tcl_ExprBoolean \
2819 (tclStubsPtr->tcl_ExprBoolean) /* 135 */
2820#define Tcl_ExprBooleanObj \
2821 (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
2822#define Tcl_ExprDouble \
2823 (tclStubsPtr->tcl_ExprDouble) /* 137 */
2824#define Tcl_ExprDoubleObj \
2825 (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
2826#define Tcl_ExprLong \
2827 (tclStubsPtr->tcl_ExprLong) /* 139 */
2828#define Tcl_ExprLongObj \
2829 (tclStubsPtr->tcl_ExprLongObj) /* 140 */
2830#define Tcl_ExprObj \
2831 (tclStubsPtr->tcl_ExprObj) /* 141 */
2832#define Tcl_ExprString \
2833 (tclStubsPtr->tcl_ExprString) /* 142 */
2834#define Tcl_Finalize \
2835 (tclStubsPtr->tcl_Finalize) /* 143 */
2836#define Tcl_FindExecutable \
2837 (tclStubsPtr->tcl_FindExecutable) /* 144 */
2838#define Tcl_FirstHashEntry \
2839 (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
2840#define Tcl_Flush \
2841 (tclStubsPtr->tcl_Flush) /* 146 */
2842#define Tcl_FreeResult \
2843 (tclStubsPtr->tcl_FreeResult) /* 147 */
2844#define Tcl_GetAlias \
2845 (tclStubsPtr->tcl_GetAlias) /* 148 */
2846#define Tcl_GetAliasObj \
2847 (tclStubsPtr->tcl_GetAliasObj) /* 149 */
2848#define Tcl_GetAssocData \
2849 (tclStubsPtr->tcl_GetAssocData) /* 150 */
2850#define Tcl_GetChannel \
2851 (tclStubsPtr->tcl_GetChannel) /* 151 */
2852#define Tcl_GetChannelBufferSize \
2853 (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
2854#define Tcl_GetChannelHandle \
2855 (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
2856#define Tcl_GetChannelInstanceData \
2857 (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
2858#define Tcl_GetChannelMode \
2859 (tclStubsPtr->tcl_GetChannelMode) /* 155 */
2860#define Tcl_GetChannelName \
2861 (tclStubsPtr->tcl_GetChannelName) /* 156 */
2862#define Tcl_GetChannelOption \
2863 (tclStubsPtr->tcl_GetChannelOption) /* 157 */
2864#define Tcl_GetChannelType \
2865 (tclStubsPtr->tcl_GetChannelType) /* 158 */
2866#define Tcl_GetCommandInfo \
2867 (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
2868#define Tcl_GetCommandName \
2869 (tclStubsPtr->tcl_GetCommandName) /* 160 */
2870#define Tcl_GetErrno \
2871 (tclStubsPtr->tcl_GetErrno) /* 161 */
2872#define Tcl_GetHostName \
2873 (tclStubsPtr->tcl_GetHostName) /* 162 */
2874#define Tcl_GetInterpPath \
2875 (tclStubsPtr->tcl_GetInterpPath) /* 163 */
2876#define Tcl_GetMaster \
2877 (tclStubsPtr->tcl_GetMaster) /* 164 */
2878#define Tcl_GetNameOfExecutable \
2879 (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
2880#define Tcl_GetObjResult \
2881 (tclStubsPtr->tcl_GetObjResult) /* 166 */
2882#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
2883#define Tcl_GetOpenFile \
2884 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2885#endif /* UNIX */
2886#ifdef MAC_OSX_TCL /* MACOSX */
2887#define Tcl_GetOpenFile \
2888 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2889#endif /* MACOSX */
2890#define Tcl_GetPathType \
2891 (tclStubsPtr->tcl_GetPathType) /* 168 */
2892#define Tcl_Gets \
2893 (tclStubsPtr->tcl_Gets) /* 169 */
2894#define Tcl_GetsObj \
2895 (tclStubsPtr->tcl_GetsObj) /* 170 */
2896#define Tcl_GetServiceMode \
2897 (tclStubsPtr->tcl_GetServiceMode) /* 171 */
2898#define Tcl_GetSlave \
2899 (tclStubsPtr->tcl_GetSlave) /* 172 */
2900#define Tcl_GetStdChannel \
2901 (tclStubsPtr->tcl_GetStdChannel) /* 173 */
2902#define Tcl_GetStringResult \
2903 (tclStubsPtr->tcl_GetStringResult) /* 174 */
2904#define Tcl_GetVar \
2905 (tclStubsPtr->tcl_GetVar) /* 175 */
2906#define Tcl_GetVar2 \
2907 (tclStubsPtr->tcl_GetVar2) /* 176 */
2908#define Tcl_GlobalEval \
2909 (tclStubsPtr->tcl_GlobalEval) /* 177 */
2910#define Tcl_GlobalEvalObj \
2911 (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
2912#define Tcl_HideCommand \
2913 (tclStubsPtr->tcl_HideCommand) /* 179 */
2914#define Tcl_Init \
2915 (tclStubsPtr->tcl_Init) /* 180 */
2916#define Tcl_InitHashTable \
2917 (tclStubsPtr->tcl_InitHashTable) /* 181 */
2918#define Tcl_InputBlocked \
2919 (tclStubsPtr->tcl_InputBlocked) /* 182 */
2920#define Tcl_InputBuffered \
2921 (tclStubsPtr->tcl_InputBuffered) /* 183 */
2922#define Tcl_InterpDeleted \
2923 (tclStubsPtr->tcl_InterpDeleted) /* 184 */
2924#define Tcl_IsSafe \
2925 (tclStubsPtr->tcl_IsSafe) /* 185 */
2926#define Tcl_JoinPath \
2927 (tclStubsPtr->tcl_JoinPath) /* 186 */
2928#define Tcl_LinkVar \
2929 (tclStubsPtr->tcl_LinkVar) /* 187 */
2930/* Slot 188 is reserved */
2931#define Tcl_MakeFileChannel \
2932 (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
2933#define Tcl_MakeSafe \
2934 (tclStubsPtr->tcl_MakeSafe) /* 190 */
2935#define Tcl_MakeTcpClientChannel \
2936 (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
2937#define Tcl_Merge \
2938 (tclStubsPtr->tcl_Merge) /* 192 */
2939#define Tcl_NextHashEntry \
2940 (tclStubsPtr->tcl_NextHashEntry) /* 193 */
2941#define Tcl_NotifyChannel \
2942 (tclStubsPtr->tcl_NotifyChannel) /* 194 */
2943#define Tcl_ObjGetVar2 \
2944 (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
2945#define Tcl_ObjSetVar2 \
2946 (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
2947#define Tcl_OpenCommandChannel \
2948 (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
2949#define Tcl_OpenFileChannel \
2950 (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
2951#define Tcl_OpenTcpClient \
2952 (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
2953#define Tcl_OpenTcpServer \
2954 (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
2955#define Tcl_Preserve \
2956 (tclStubsPtr->tcl_Preserve) /* 201 */
2957#define Tcl_PrintDouble \
2958 (tclStubsPtr->tcl_PrintDouble) /* 202 */
2959#define Tcl_PutEnv \
2960 (tclStubsPtr->tcl_PutEnv) /* 203 */
2961#define Tcl_PosixError \
2962 (tclStubsPtr->tcl_PosixError) /* 204 */
2963#define Tcl_QueueEvent \
2964 (tclStubsPtr->tcl_QueueEvent) /* 205 */
2965#define Tcl_Read \
2966 (tclStubsPtr->tcl_Read) /* 206 */
2967#define Tcl_ReapDetachedProcs \
2968 (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
2969#define Tcl_RecordAndEval \
2970 (tclStubsPtr->tcl_RecordAndEval) /* 208 */
2971#define Tcl_RecordAndEvalObj \
2972 (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
2973#define Tcl_RegisterChannel \
2974 (tclStubsPtr->tcl_RegisterChannel) /* 210 */
2975#define Tcl_RegisterObjType \
2976 (tclStubsPtr->tcl_RegisterObjType) /* 211 */
2977#define Tcl_RegExpCompile \
2978 (tclStubsPtr->tcl_RegExpCompile) /* 212 */
2979#define Tcl_RegExpExec \
2980 (tclStubsPtr->tcl_RegExpExec) /* 213 */
2981#define Tcl_RegExpMatch \
2982 (tclStubsPtr->tcl_RegExpMatch) /* 214 */
2983#define Tcl_RegExpRange \
2984 (tclStubsPtr->tcl_RegExpRange) /* 215 */
2985#define Tcl_Release \
2986 (tclStubsPtr->tcl_Release) /* 216 */
2987#define Tcl_ResetResult \
2988 (tclStubsPtr->tcl_ResetResult) /* 217 */
2989#define Tcl_ScanElement \
2990 (tclStubsPtr->tcl_ScanElement) /* 218 */
2991#define Tcl_ScanCountedElement \
2992 (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
2993#define Tcl_SeekOld \
2994 (tclStubsPtr->tcl_SeekOld) /* 220 */
2995#define Tcl_ServiceAll \
2996 (tclStubsPtr->tcl_ServiceAll) /* 221 */
2997#define Tcl_ServiceEvent \
2998 (tclStubsPtr->tcl_ServiceEvent) /* 222 */
2999#define Tcl_SetAssocData \
3000 (tclStubsPtr->tcl_SetAssocData) /* 223 */
3001#define Tcl_SetChannelBufferSize \
3002 (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
3003#define Tcl_SetChannelOption \
3004 (tclStubsPtr->tcl_SetChannelOption) /* 225 */
3005#define Tcl_SetCommandInfo \
3006 (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
3007#define Tcl_SetErrno \
3008 (tclStubsPtr->tcl_SetErrno) /* 227 */
3009#define Tcl_SetErrorCode \
3010 (tclStubsPtr->tcl_SetErrorCode) /* 228 */
3011#define Tcl_SetMaxBlockTime \
3012 (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
3013#define Tcl_SetPanicProc \
3014 (tclStubsPtr->tcl_SetPanicProc) /* 230 */
3015#define Tcl_SetRecursionLimit \
3016 (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
3017#define Tcl_SetResult \
3018 (tclStubsPtr->tcl_SetResult) /* 232 */
3019#define Tcl_SetServiceMode \
3020 (tclStubsPtr->tcl_SetServiceMode) /* 233 */
3021#define Tcl_SetObjErrorCode \
3022 (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
3023#define Tcl_SetObjResult \
3024 (tclStubsPtr->tcl_SetObjResult) /* 235 */
3025#define Tcl_SetStdChannel \
3026 (tclStubsPtr->tcl_SetStdChannel) /* 236 */
3027#define Tcl_SetVar \
3028 (tclStubsPtr->tcl_SetVar) /* 237 */
3029#define Tcl_SetVar2 \
3030 (tclStubsPtr->tcl_SetVar2) /* 238 */
3031#define Tcl_SignalId \
3032 (tclStubsPtr->tcl_SignalId) /* 239 */
3033#define Tcl_SignalMsg \
3034 (tclStubsPtr->tcl_SignalMsg) /* 240 */
3035#define Tcl_SourceRCFile \
3036 (tclStubsPtr->tcl_SourceRCFile) /* 241 */
3037#define Tcl_SplitList \
3038 (tclStubsPtr->tcl_SplitList) /* 242 */
3039#define Tcl_SplitPath \
3040 (tclStubsPtr->tcl_SplitPath) /* 243 */
3041#define Tcl_StaticPackage \
3042 (tclStubsPtr->tcl_StaticPackage) /* 244 */
3043#define Tcl_StringMatch \
3044 (tclStubsPtr->tcl_StringMatch) /* 245 */
3045#define Tcl_TellOld \
3046 (tclStubsPtr->tcl_TellOld) /* 246 */
3047#define Tcl_TraceVar \
3048 (tclStubsPtr->tcl_TraceVar) /* 247 */
3049#define Tcl_TraceVar2 \
3050 (tclStubsPtr->tcl_TraceVar2) /* 248 */
3051#define Tcl_TranslateFileName \
3052 (tclStubsPtr->tcl_TranslateFileName) /* 249 */
3053#define Tcl_Ungets \
3054 (tclStubsPtr->tcl_Ungets) /* 250 */
3055#define Tcl_UnlinkVar \
3056 (tclStubsPtr->tcl_UnlinkVar) /* 251 */
3057#define Tcl_UnregisterChannel \
3058 (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
3059#define Tcl_UnsetVar \
3060 (tclStubsPtr->tcl_UnsetVar) /* 253 */
3061#define Tcl_UnsetVar2 \
3062 (tclStubsPtr->tcl_UnsetVar2) /* 254 */
3063#define Tcl_UntraceVar \
3064 (tclStubsPtr->tcl_UntraceVar) /* 255 */
3065#define Tcl_UntraceVar2 \
3066 (tclStubsPtr->tcl_UntraceVar2) /* 256 */
3067#define Tcl_UpdateLinkedVar \
3068 (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
3069#define Tcl_UpVar \
3070 (tclStubsPtr->tcl_UpVar) /* 258 */
3071#define Tcl_UpVar2 \
3072 (tclStubsPtr->tcl_UpVar2) /* 259 */
3073#define Tcl_VarEval \
3074 (tclStubsPtr->tcl_VarEval) /* 260 */
3075#define Tcl_VarTraceInfo \
3076 (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
3077#define Tcl_VarTraceInfo2 \
3078 (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
3079#define Tcl_Write \
3080 (tclStubsPtr->tcl_Write) /* 263 */
3081#define Tcl_WrongNumArgs \
3082 (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
3083#define Tcl_DumpActiveMemory \
3084 (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
3085#define Tcl_ValidateAllMemory \
3086 (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
3087#define Tcl_AppendResultVA \
3088 (tclStubsPtr->tcl_AppendResultVA) /* 267 */
3089#define Tcl_AppendStringsToObjVA \
3090 (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
3091#define Tcl_HashStats \
3092 (tclStubsPtr->tcl_HashStats) /* 269 */
3093#define Tcl_ParseVar \
3094 (tclStubsPtr->tcl_ParseVar) /* 270 */
3095#define Tcl_PkgPresent \
3096 (tclStubsPtr->tcl_PkgPresent) /* 271 */
3097#define Tcl_PkgPresentEx \
3098 (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
3099#define Tcl_PkgProvide \
3100 (tclStubsPtr->tcl_PkgProvide) /* 273 */
3101#define Tcl_PkgRequire \
3102 (tclStubsPtr->tcl_PkgRequire) /* 274 */
3103#define Tcl_SetErrorCodeVA \
3104 (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
3105#define Tcl_VarEvalVA \
3106 (tclStubsPtr->tcl_VarEvalVA) /* 276 */
3107#define Tcl_WaitPid \
3108 (tclStubsPtr->tcl_WaitPid) /* 277 */
3109#define Tcl_PanicVA \
3110 (tclStubsPtr->tcl_PanicVA) /* 278 */
3111#define Tcl_GetVersion \
3112 (tclStubsPtr->tcl_GetVersion) /* 279 */
3113#define Tcl_InitMemory \
3114 (tclStubsPtr->tcl_InitMemory) /* 280 */
3115#define Tcl_StackChannel \
3116 (tclStubsPtr->tcl_StackChannel) /* 281 */
3117#define Tcl_UnstackChannel \
3118 (tclStubsPtr->tcl_UnstackChannel) /* 282 */
3119#define Tcl_GetStackedChannel \
3120 (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
3121#define Tcl_SetMainLoop \
3122 (tclStubsPtr->tcl_SetMainLoop) /* 284 */
3123/* Slot 285 is reserved */
3124#define Tcl_AppendObjToObj \
3125 (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
3126#define Tcl_CreateEncoding \
3127 (tclStubsPtr->tcl_CreateEncoding) /* 287 */
3128#define Tcl_CreateThreadExitHandler \
3129 (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
3130#define Tcl_DeleteThreadExitHandler \
3131 (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
3132#define Tcl_DiscardResult \
3133 (tclStubsPtr->tcl_DiscardResult) /* 290 */
3134#define Tcl_EvalEx \
3135 (tclStubsPtr->tcl_EvalEx) /* 291 */
3136#define Tcl_EvalObjv \
3137 (tclStubsPtr->tcl_EvalObjv) /* 292 */
3138#define Tcl_EvalObjEx \
3139 (tclStubsPtr->tcl_EvalObjEx) /* 293 */
3140#define Tcl_ExitThread \
3141 (tclStubsPtr->tcl_ExitThread) /* 294 */
3142#define Tcl_ExternalToUtf \
3143 (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
3144#define Tcl_ExternalToUtfDString \
3145 (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
3146#define Tcl_FinalizeThread \
3147 (tclStubsPtr->tcl_FinalizeThread) /* 297 */
3148#define Tcl_FinalizeNotifier \
3149 (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
3150#define Tcl_FreeEncoding \
3151 (tclStubsPtr->tcl_FreeEncoding) /* 299 */
3152#define Tcl_GetCurrentThread \
3153 (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
3154#define Tcl_GetEncoding \
3155 (tclStubsPtr->tcl_GetEncoding) /* 301 */
3156#define Tcl_GetEncodingName \
3157 (tclStubsPtr->tcl_GetEncodingName) /* 302 */
3158#define Tcl_GetEncodingNames \
3159 (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
3160#define Tcl_GetIndexFromObjStruct \
3161 (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
3162#define Tcl_GetThreadData \
3163 (tclStubsPtr->tcl_GetThreadData) /* 305 */
3164#define Tcl_GetVar2Ex \
3165 (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
3166#define Tcl_InitNotifier \
3167 (tclStubsPtr->tcl_InitNotifier) /* 307 */
3168#define Tcl_MutexLock \
3169 (tclStubsPtr->tcl_MutexLock) /* 308 */
3170#define Tcl_MutexUnlock \
3171 (tclStubsPtr->tcl_MutexUnlock) /* 309 */
3172#define Tcl_ConditionNotify \
3173 (tclStubsPtr->tcl_ConditionNotify) /* 310 */
3174#define Tcl_ConditionWait \
3175 (tclStubsPtr->tcl_ConditionWait) /* 311 */
3176#define Tcl_NumUtfChars \
3177 (tclStubsPtr->tcl_NumUtfChars) /* 312 */
3178#define Tcl_ReadChars \
3179 (tclStubsPtr->tcl_ReadChars) /* 313 */
3180#define Tcl_RestoreResult \
3181 (tclStubsPtr->tcl_RestoreResult) /* 314 */
3182#define Tcl_SaveResult \
3183 (tclStubsPtr->tcl_SaveResult) /* 315 */
3184#define Tcl_SetSystemEncoding \
3185 (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
3186#define Tcl_SetVar2Ex \
3187 (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
3188#define Tcl_ThreadAlert \
3189 (tclStubsPtr->tcl_ThreadAlert) /* 318 */
3190#define Tcl_ThreadQueueEvent \
3191 (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
3192#define Tcl_UniCharAtIndex \
3193 (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
3194#define Tcl_UniCharToLower \
3195 (tclStubsPtr->tcl_UniCharToLower) /* 321 */
3196#define Tcl_UniCharToTitle \
3197 (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
3198#define Tcl_UniCharToUpper \
3199 (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
3200#define Tcl_UniCharToUtf \
3201 (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
3202#define Tcl_UtfAtIndex \
3203 (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
3204#define Tcl_UtfCharComplete \
3205 (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
3206#define Tcl_UtfBackslash \
3207 (tclStubsPtr->tcl_UtfBackslash) /* 327 */
3208#define Tcl_UtfFindFirst \
3209 (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
3210#define Tcl_UtfFindLast \
3211 (tclStubsPtr->tcl_UtfFindLast) /* 329 */
3212#define Tcl_UtfNext \
3213 (tclStubsPtr->tcl_UtfNext) /* 330 */
3214#define Tcl_UtfPrev \
3215 (tclStubsPtr->tcl_UtfPrev) /* 331 */
3216#define Tcl_UtfToExternal \
3217 (tclStubsPtr->tcl_UtfToExternal) /* 332 */
3218#define Tcl_UtfToExternalDString \
3219 (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
3220#define Tcl_UtfToLower \
3221 (tclStubsPtr->tcl_UtfToLower) /* 334 */
3222#define Tcl_UtfToTitle \
3223 (tclStubsPtr->tcl_UtfToTitle) /* 335 */
3224#define Tcl_UtfToUniChar \
3225 (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
3226#define Tcl_UtfToUpper \
3227 (tclStubsPtr->tcl_UtfToUpper) /* 337 */
3228#define Tcl_WriteChars \
3229 (tclStubsPtr->tcl_WriteChars) /* 338 */
3230#define Tcl_WriteObj \
3231 (tclStubsPtr->tcl_WriteObj) /* 339 */
3232#define Tcl_GetString \
3233 (tclStubsPtr->tcl_GetString) /* 340 */
3234#define Tcl_GetDefaultEncodingDir \
3235 (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
3236#define Tcl_SetDefaultEncodingDir \
3237 (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
3238#define Tcl_AlertNotifier \
3239 (tclStubsPtr->tcl_AlertNotifier) /* 343 */
3240#define Tcl_ServiceModeHook \
3241 (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
3242#define Tcl_UniCharIsAlnum \
3243 (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
3244#define Tcl_UniCharIsAlpha \
3245 (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
3246#define Tcl_UniCharIsDigit \
3247 (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
3248#define Tcl_UniCharIsLower \
3249 (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
3250#define Tcl_UniCharIsSpace \
3251 (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
3252#define Tcl_UniCharIsUpper \
3253 (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
3254#define Tcl_UniCharIsWordChar \
3255 (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
3256#define Tcl_UniCharLen \
3257 (tclStubsPtr->tcl_UniCharLen) /* 352 */
3258#define Tcl_UniCharNcmp \
3259 (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
3260#define Tcl_UniCharToUtfDString \
3261 (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
3262#define Tcl_UtfToUniCharDString \
3263 (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
3264#define Tcl_GetRegExpFromObj \
3265 (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
3266#define Tcl_EvalTokens \
3267 (tclStubsPtr->tcl_EvalTokens) /* 357 */
3268#define Tcl_FreeParse \
3269 (tclStubsPtr->tcl_FreeParse) /* 358 */
3270#define Tcl_LogCommandInfo \
3271 (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
3272#define Tcl_ParseBraces \
3273 (tclStubsPtr->tcl_ParseBraces) /* 360 */
3274#define Tcl_ParseCommand \
3275 (tclStubsPtr->tcl_ParseCommand) /* 361 */
3276#define Tcl_ParseExpr \
3277 (tclStubsPtr->tcl_ParseExpr) /* 362 */
3278#define Tcl_ParseQuotedString \
3279 (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
3280#define Tcl_ParseVarName \
3281 (tclStubsPtr->tcl_ParseVarName) /* 364 */
3282#define Tcl_GetCwd \
3283 (tclStubsPtr->tcl_GetCwd) /* 365 */
3284#define Tcl_Chdir \
3285 (tclStubsPtr->tcl_Chdir) /* 366 */
3286#define Tcl_Access \
3287 (tclStubsPtr->tcl_Access) /* 367 */
3288#define Tcl_Stat \
3289 (tclStubsPtr->tcl_Stat) /* 368 */
3290#define Tcl_UtfNcmp \
3291 (tclStubsPtr->tcl_UtfNcmp) /* 369 */
3292#define Tcl_UtfNcasecmp \
3293 (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
3294#define Tcl_StringCaseMatch \
3295 (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
3296#define Tcl_UniCharIsControl \
3297 (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
3298#define Tcl_UniCharIsGraph \
3299 (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
3300#define Tcl_UniCharIsPrint \
3301 (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
3302#define Tcl_UniCharIsPunct \
3303 (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
3304#define Tcl_RegExpExecObj \
3305 (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
3306#define Tcl_RegExpGetInfo \
3307 (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
3308#define Tcl_NewUnicodeObj \
3309 (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
3310#define Tcl_SetUnicodeObj \
3311 (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
3312#define Tcl_GetCharLength \
3313 (tclStubsPtr->tcl_GetCharLength) /* 380 */
3314#define Tcl_GetUniChar \
3315 (tclStubsPtr->tcl_GetUniChar) /* 381 */
3316#define Tcl_GetUnicode \
3317 (tclStubsPtr->tcl_GetUnicode) /* 382 */
3318#define Tcl_GetRange \
3319 (tclStubsPtr->tcl_GetRange) /* 383 */
3320#define Tcl_AppendUnicodeToObj \
3321 (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
3322#define Tcl_RegExpMatchObj \
3323 (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
3324#define Tcl_SetNotifier \
3325 (tclStubsPtr->tcl_SetNotifier) /* 386 */
3326#define Tcl_GetAllocMutex \
3327 (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
3328#define Tcl_GetChannelNames \
3329 (tclStubsPtr->tcl_GetChannelNames) /* 388 */
3330#define Tcl_GetChannelNamesEx \
3331 (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
3332#define Tcl_ProcObjCmd \
3333 (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
3334#define Tcl_ConditionFinalize \
3335 (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
3336#define Tcl_MutexFinalize \
3337 (tclStubsPtr->tcl_MutexFinalize) /* 392 */
3338#define Tcl_CreateThread \
3339 (tclStubsPtr->tcl_CreateThread) /* 393 */
3340#define Tcl_ReadRaw \
3341 (tclStubsPtr->tcl_ReadRaw) /* 394 */
3342#define Tcl_WriteRaw \
3343 (tclStubsPtr->tcl_WriteRaw) /* 395 */
3344#define Tcl_GetTopChannel \
3345 (tclStubsPtr->tcl_GetTopChannel) /* 396 */
3346#define Tcl_ChannelBuffered \
3347 (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
3348#define Tcl_ChannelName \
3349 (tclStubsPtr->tcl_ChannelName) /* 398 */
3350#define Tcl_ChannelVersion \
3351 (tclStubsPtr->tcl_ChannelVersion) /* 399 */
3352#define Tcl_ChannelBlockModeProc \
3353 (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
3354#define Tcl_ChannelCloseProc \
3355 (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
3356#define Tcl_ChannelClose2Proc \
3357 (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
3358#define Tcl_ChannelInputProc \
3359 (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
3360#define Tcl_ChannelOutputProc \
3361 (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
3362#define Tcl_ChannelSeekProc \
3363 (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
3364#define Tcl_ChannelSetOptionProc \
3365 (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
3366#define Tcl_ChannelGetOptionProc \
3367 (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
3368#define Tcl_ChannelWatchProc \
3369 (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
3370#define Tcl_ChannelGetHandleProc \
3371 (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
3372#define Tcl_ChannelFlushProc \
3373 (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
3374#define Tcl_ChannelHandlerProc \
3375 (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
3376#define Tcl_JoinThread \
3377 (tclStubsPtr->tcl_JoinThread) /* 412 */
3378#define Tcl_IsChannelShared \
3379 (tclStubsPtr->tcl_IsChannelShared) /* 413 */
3380#define Tcl_IsChannelRegistered \
3381 (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
3382#define Tcl_CutChannel \
3383 (tclStubsPtr->tcl_CutChannel) /* 415 */
3384#define Tcl_SpliceChannel \
3385 (tclStubsPtr->tcl_SpliceChannel) /* 416 */
3386#define Tcl_ClearChannelHandlers \
3387 (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
3388#define Tcl_IsChannelExisting \
3389 (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
3390#define Tcl_UniCharNcasecmp \
3391 (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
3392#define Tcl_UniCharCaseMatch \
3393 (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
3394#define Tcl_FindHashEntry \
3395 (tclStubsPtr->tcl_FindHashEntry) /* 421 */
3396#define Tcl_CreateHashEntry \
3397 (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
3398#define Tcl_InitCustomHashTable \
3399 (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
3400#define Tcl_InitObjHashTable \
3401 (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
3402#define Tcl_CommandTraceInfo \
3403 (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
3404#define Tcl_TraceCommand \
3405 (tclStubsPtr->tcl_TraceCommand) /* 426 */
3406#define Tcl_UntraceCommand \
3407 (tclStubsPtr->tcl_UntraceCommand) /* 427 */
3408#define Tcl_AttemptAlloc \
3409 (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
3410#define Tcl_AttemptDbCkalloc \
3411 (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
3412#define Tcl_AttemptRealloc \
3413 (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
3414#define Tcl_AttemptDbCkrealloc \
3415 (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
3416#define Tcl_AttemptSetObjLength \
3417 (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
3418#define Tcl_GetChannelThread \
3419 (tclStubsPtr->tcl_GetChannelThread) /* 433 */
3420#define Tcl_GetUnicodeFromObj \
3421 (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
3422#define Tcl_GetMathFuncInfo \
3423 (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
3424#define Tcl_ListMathFuncs \
3425 (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
3426#define Tcl_SubstObj \
3427 (tclStubsPtr->tcl_SubstObj) /* 437 */
3428#define Tcl_DetachChannel \
3429 (tclStubsPtr->tcl_DetachChannel) /* 438 */
3430#define Tcl_IsStandardChannel \
3431 (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
3432#define Tcl_FSCopyFile \
3433 (tclStubsPtr->tcl_FSCopyFile) /* 440 */
3434#define Tcl_FSCopyDirectory \
3435 (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
3436#define Tcl_FSCreateDirectory \
3437 (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
3438#define Tcl_FSDeleteFile \
3439 (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
3440#define Tcl_FSLoadFile \
3441 (tclStubsPtr->tcl_FSLoadFile) /* 444 */
3442#define Tcl_FSMatchInDirectory \
3443 (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
3444#define Tcl_FSLink \
3445 (tclStubsPtr->tcl_FSLink) /* 446 */
3446#define Tcl_FSRemoveDirectory \
3447 (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
3448#define Tcl_FSRenameFile \
3449 (tclStubsPtr->tcl_FSRenameFile) /* 448 */
3450#define Tcl_FSLstat \
3451 (tclStubsPtr->tcl_FSLstat) /* 449 */
3452#define Tcl_FSUtime \
3453 (tclStubsPtr->tcl_FSUtime) /* 450 */
3454#define Tcl_FSFileAttrsGet \
3455 (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
3456#define Tcl_FSFileAttrsSet \
3457 (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
3458#define Tcl_FSFileAttrStrings \
3459 (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
3460#define Tcl_FSStat \
3461 (tclStubsPtr->tcl_FSStat) /* 454 */
3462#define Tcl_FSAccess \
3463 (tclStubsPtr->tcl_FSAccess) /* 455 */
3464#define Tcl_FSOpenFileChannel \
3465 (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
3466#define Tcl_FSGetCwd \
3467 (tclStubsPtr->tcl_FSGetCwd) /* 457 */
3468#define Tcl_FSChdir \
3469 (tclStubsPtr->tcl_FSChdir) /* 458 */
3470#define Tcl_FSConvertToPathType \
3471 (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
3472#define Tcl_FSJoinPath \
3473 (tclStubsPtr->tcl_FSJoinPath) /* 460 */
3474#define Tcl_FSSplitPath \
3475 (tclStubsPtr->tcl_FSSplitPath) /* 461 */
3476#define Tcl_FSEqualPaths \
3477 (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
3478#define Tcl_FSGetNormalizedPath \
3479 (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
3480#define Tcl_FSJoinToPath \
3481 (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
3482#define Tcl_FSGetInternalRep \
3483 (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
3484#define Tcl_FSGetTranslatedPath \
3485 (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
3486#define Tcl_FSEvalFile \
3487 (tclStubsPtr->tcl_FSEvalFile) /* 467 */
3488#define Tcl_FSNewNativePath \
3489 (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
3490#define Tcl_FSGetNativePath \
3491 (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
3492#define Tcl_FSFileSystemInfo \
3493 (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
3494#define Tcl_FSPathSeparator \
3495 (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
3496#define Tcl_FSListVolumes \
3497 (tclStubsPtr->tcl_FSListVolumes) /* 472 */
3498#define Tcl_FSRegister \
3499 (tclStubsPtr->tcl_FSRegister) /* 473 */
3500#define Tcl_FSUnregister \
3501 (tclStubsPtr->tcl_FSUnregister) /* 474 */
3502#define Tcl_FSData \
3503 (tclStubsPtr->tcl_FSData) /* 475 */
3504#define Tcl_FSGetTranslatedStringPath \
3505 (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
3506#define Tcl_FSGetFileSystemForPath \
3507 (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
3508#define Tcl_FSGetPathType \
3509 (tclStubsPtr->tcl_FSGetPathType) /* 478 */
3510#define Tcl_OutputBuffered \
3511 (tclStubsPtr->tcl_OutputBuffered) /* 479 */
3512#define Tcl_FSMountsChanged \
3513 (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
3514#define Tcl_EvalTokensStandard \
3515 (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
3516#define Tcl_GetTime \
3517 (tclStubsPtr->tcl_GetTime) /* 482 */
3518#define Tcl_CreateObjTrace \
3519 (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
3520#define Tcl_GetCommandInfoFromToken \
3521 (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
3522#define Tcl_SetCommandInfoFromToken \
3523 (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
3524#define Tcl_DbNewWideIntObj \
3525 (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
3526#define Tcl_GetWideIntFromObj \
3527 (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
3528#define Tcl_NewWideIntObj \
3529 (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
3530#define Tcl_SetWideIntObj \
3531 (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
3532#define Tcl_AllocStatBuf \
3533 (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
3534#define Tcl_Seek \
3535 (tclStubsPtr->tcl_Seek) /* 491 */
3536#define Tcl_Tell \
3537 (tclStubsPtr->tcl_Tell) /* 492 */
3538#define Tcl_ChannelWideSeekProc \
3539 (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
3540#define Tcl_DictObjPut \
3541 (tclStubsPtr->tcl_DictObjPut) /* 494 */
3542#define Tcl_DictObjGet \
3543 (tclStubsPtr->tcl_DictObjGet) /* 495 */
3544#define Tcl_DictObjRemove \
3545 (tclStubsPtr->tcl_DictObjRemove) /* 496 */
3546#define Tcl_DictObjSize \
3547 (tclStubsPtr->tcl_DictObjSize) /* 497 */
3548#define Tcl_DictObjFirst \
3549 (tclStubsPtr->tcl_DictObjFirst) /* 498 */
3550#define Tcl_DictObjNext \
3551 (tclStubsPtr->tcl_DictObjNext) /* 499 */
3552#define Tcl_DictObjDone \
3553 (tclStubsPtr->tcl_DictObjDone) /* 500 */
3554#define Tcl_DictObjPutKeyList \
3555 (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
3556#define Tcl_DictObjRemoveKeyList \
3557 (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
3558#define Tcl_NewDictObj \
3559 (tclStubsPtr->tcl_NewDictObj) /* 503 */
3560#define Tcl_DbNewDictObj \
3561 (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
3562#define Tcl_RegisterConfig \
3563 (tclStubsPtr->tcl_RegisterConfig) /* 505 */
3564#define Tcl_CreateNamespace \
3565 (tclStubsPtr->tcl_CreateNamespace) /* 506 */
3566#define Tcl_DeleteNamespace \
3567 (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
3568#define Tcl_AppendExportList \
3569 (tclStubsPtr->tcl_AppendExportList) /* 508 */
3570#define Tcl_Export \
3571 (tclStubsPtr->tcl_Export) /* 509 */
3572#define Tcl_Import \
3573 (tclStubsPtr->tcl_Import) /* 510 */
3574#define Tcl_ForgetImport \
3575 (tclStubsPtr->tcl_ForgetImport) /* 511 */
3576#define Tcl_GetCurrentNamespace \
3577 (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
3578#define Tcl_GetGlobalNamespace \
3579 (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
3580#define Tcl_FindNamespace \
3581 (tclStubsPtr->tcl_FindNamespace) /* 514 */
3582#define Tcl_FindCommand \
3583 (tclStubsPtr->tcl_FindCommand) /* 515 */
3584#define Tcl_GetCommandFromObj \
3585 (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
3586#define Tcl_GetCommandFullName \
3587 (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
3588#define Tcl_FSEvalFileEx \
3589 (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
3590#define Tcl_SetExitProc \
3591 (tclStubsPtr->tcl_SetExitProc) /* 519 */
3592#define Tcl_LimitAddHandler \
3593 (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
3594#define Tcl_LimitRemoveHandler \
3595 (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
3596#define Tcl_LimitReady \
3597 (tclStubsPtr->tcl_LimitReady) /* 522 */
3598#define Tcl_LimitCheck \
3599 (tclStubsPtr->tcl_LimitCheck) /* 523 */
3600#define Tcl_LimitExceeded \
3601 (tclStubsPtr->tcl_LimitExceeded) /* 524 */
3602#define Tcl_LimitSetCommands \
3603 (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
3604#define Tcl_LimitSetTime \
3605 (tclStubsPtr->tcl_LimitSetTime) /* 526 */
3606#define Tcl_LimitSetGranularity \
3607 (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
3608#define Tcl_LimitTypeEnabled \
3609 (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
3610#define Tcl_LimitTypeExceeded \
3611 (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
3612#define Tcl_LimitTypeSet \
3613 (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
3614#define Tcl_LimitTypeReset \
3615 (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
3616#define Tcl_LimitGetCommands \
3617 (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
3618#define Tcl_LimitGetTime \
3619 (tclStubsPtr->tcl_LimitGetTime) /* 533 */
3620#define Tcl_LimitGetGranularity \
3621 (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
3622#define Tcl_SaveInterpState \
3623 (tclStubsPtr->tcl_SaveInterpState) /* 535 */
3624#define Tcl_RestoreInterpState \
3625 (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
3626#define Tcl_DiscardInterpState \
3627 (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
3628#define Tcl_SetReturnOptions \
3629 (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
3630#define Tcl_GetReturnOptions \
3631 (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
3632#define Tcl_IsEnsemble \
3633 (tclStubsPtr->tcl_IsEnsemble) /* 540 */
3634#define Tcl_CreateEnsemble \
3635 (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
3636#define Tcl_FindEnsemble \
3637 (tclStubsPtr->tcl_FindEnsemble) /* 542 */
3638#define Tcl_SetEnsembleSubcommandList \
3639 (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
3640#define Tcl_SetEnsembleMappingDict \
3641 (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
3642#define Tcl_SetEnsembleUnknownHandler \
3643 (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
3644#define Tcl_SetEnsembleFlags \
3645 (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
3646#define Tcl_GetEnsembleSubcommandList \
3647 (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
3648#define Tcl_GetEnsembleMappingDict \
3649 (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
3650#define Tcl_GetEnsembleUnknownHandler \
3651 (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
3652#define Tcl_GetEnsembleFlags \
3653 (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
3654#define Tcl_GetEnsembleNamespace \
3655 (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
3656#define Tcl_SetTimeProc \
3657 (tclStubsPtr->tcl_SetTimeProc) /* 552 */
3658#define Tcl_QueryTimeProc \
3659 (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
3660#define Tcl_ChannelThreadActionProc \
3661 (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
3662#define Tcl_NewBignumObj \
3663 (tclStubsPtr->tcl_NewBignumObj) /* 555 */
3664#define Tcl_DbNewBignumObj \
3665 (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
3666#define Tcl_SetBignumObj \
3667 (tclStubsPtr->tcl_SetBignumObj) /* 557 */
3668#define Tcl_GetBignumFromObj \
3669 (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
3670#define Tcl_TakeBignumFromObj \
3671 (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
3672#define Tcl_TruncateChannel \
3673 (tclStubsPtr->tcl_TruncateChannel) /* 560 */
3674#define Tcl_ChannelTruncateProc \
3675 (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
3676#define Tcl_SetChannelErrorInterp \
3677 (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
3678#define Tcl_GetChannelErrorInterp \
3679 (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
3680#define Tcl_SetChannelError \
3681 (tclStubsPtr->tcl_SetChannelError) /* 564 */
3682#define Tcl_GetChannelError \
3683 (tclStubsPtr->tcl_GetChannelError) /* 565 */
3684#define Tcl_InitBignumFromDouble \
3685 (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
3686#define Tcl_GetNamespaceUnknownHandler \
3687 (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
3688#define Tcl_SetNamespaceUnknownHandler \
3689 (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
3690#define Tcl_GetEncodingFromObj \
3691 (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
3692#define Tcl_GetEncodingSearchPath \
3693 (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
3694#define Tcl_SetEncodingSearchPath \
3695 (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
3696#define Tcl_GetEncodingNameFromEnvironment \
3697 (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
3698#define Tcl_PkgRequireProc \
3699 (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
3700#define Tcl_AppendObjToErrorInfo \
3701 (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
3702#define Tcl_AppendLimitedToObj \
3703 (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
3704#define Tcl_Format \
3705 (tclStubsPtr->tcl_Format) /* 576 */
3706#define Tcl_AppendFormatToObj \
3707 (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
3708#define Tcl_ObjPrintf \
3709 (tclStubsPtr->tcl_ObjPrintf) /* 578 */
3710#define Tcl_AppendPrintfToObj \
3711 (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
3712#define Tcl_CancelEval \
3713 (tclStubsPtr->tcl_CancelEval) /* 580 */
3714#define Tcl_Canceled \
3715 (tclStubsPtr->tcl_Canceled) /* 581 */
3716#define Tcl_CreatePipe \
3717 (tclStubsPtr->tcl_CreatePipe) /* 582 */
3718#define Tcl_NRCreateCommand \
3719 (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
3720#define Tcl_NREvalObj \
3721 (tclStubsPtr->tcl_NREvalObj) /* 584 */
3722#define Tcl_NREvalObjv \
3723 (tclStubsPtr->tcl_NREvalObjv) /* 585 */
3724#define Tcl_NRCmdSwap \
3725 (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
3726#define Tcl_NRAddCallback \
3727 (tclStubsPtr->tcl_NRAddCallback) /* 587 */
3728#define Tcl_NRCallObjProc \
3729 (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
3730#define Tcl_GetFSDeviceFromStat \
3731 (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
3732#define Tcl_GetFSInodeFromStat \
3733 (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
3734#define Tcl_GetModeFromStat \
3735 (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
3736#define Tcl_GetLinkCountFromStat \
3737 (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
3738#define Tcl_GetUserIdFromStat \
3739 (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
3740#define Tcl_GetGroupIdFromStat \
3741 (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
3742#define Tcl_GetDeviceTypeFromStat \
3743 (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
3744#define Tcl_GetAccessTimeFromStat \
3745 (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
3746#define Tcl_GetModificationTimeFromStat \
3747 (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
3748#define Tcl_GetChangeTimeFromStat \
3749 (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
3750#define Tcl_GetSizeFromStat \
3751 (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
3752#define Tcl_GetBlocksFromStat \
3753 (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
3754#define Tcl_GetBlockSizeFromStat \
3755 (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
3756#define Tcl_SetEnsembleParameterList \
3757 (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
3758#define Tcl_GetEnsembleParameterList \
3759 (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
3760#define Tcl_ParseArgsObjv \
3761 (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
3762#define Tcl_GetErrorLine \
3763 (tclStubsPtr->tcl_GetErrorLine) /* 605 */
3764#define Tcl_SetErrorLine \
3765 (tclStubsPtr->tcl_SetErrorLine) /* 606 */
3766#define Tcl_TransferResult \
3767 (tclStubsPtr->tcl_TransferResult) /* 607 */
3768#define Tcl_InterpActive \
3769 (tclStubsPtr->tcl_InterpActive) /* 608 */
3770#define Tcl_BackgroundException \
3771 (tclStubsPtr->tcl_BackgroundException) /* 609 */
3772#define Tcl_ZlibDeflate \
3773 (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
3774#define Tcl_ZlibInflate \
3775 (tclStubsPtr->tcl_ZlibInflate) /* 611 */
3776#define Tcl_ZlibCRC32 \
3777 (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
3778#define Tcl_ZlibAdler32 \
3779 (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
3780#define Tcl_ZlibStreamInit \
3781 (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
3782#define Tcl_ZlibStreamGetCommandName \
3783 (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
3784#define Tcl_ZlibStreamEof \
3785 (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
3786#define Tcl_ZlibStreamChecksum \
3787 (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
3788#define Tcl_ZlibStreamPut \
3789 (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
3790#define Tcl_ZlibStreamGet \
3791 (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
3792#define Tcl_ZlibStreamClose \
3793 (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
3794#define Tcl_ZlibStreamReset \
3795 (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
3796#define Tcl_SetStartupScript \
3797 (tclStubsPtr->tcl_SetStartupScript) /* 622 */
3798#define Tcl_GetStartupScript \
3799 (tclStubsPtr->tcl_GetStartupScript) /* 623 */
3800#define Tcl_CloseEx \
3801 (tclStubsPtr->tcl_CloseEx) /* 624 */
3802#define Tcl_NRExprObj \
3803 (tclStubsPtr->tcl_NRExprObj) /* 625 */
3804#define Tcl_NRSubstObj \
3805 (tclStubsPtr->tcl_NRSubstObj) /* 626 */
3806#define Tcl_LoadFile \
3807 (tclStubsPtr->tcl_LoadFile) /* 627 */
3808#define Tcl_FindSymbol \
3809 (tclStubsPtr->tcl_FindSymbol) /* 628 */
3810#define Tcl_FSUnloadFile \
3811 (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
3812#define Tcl_ZlibStreamSetCompressionDictionary \
3813 (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
3814/* Slot 631 is reserved */
3815/* Slot 632 is reserved */
3816/* Slot 633 is reserved */
3817/* Slot 634 is reserved */
3818/* Slot 635 is reserved */
3819/* Slot 636 is reserved */
3820/* Slot 637 is reserved */
3821/* Slot 638 is reserved */
3822/* Slot 639 is reserved */
3823/* Slot 640 is reserved */
3824/* Slot 641 is reserved */
3825/* Slot 642 is reserved */
3826/* Slot 643 is reserved */
3827/* Slot 644 is reserved */
3828/* Slot 645 is reserved */
3829/* Slot 646 is reserved */
3830/* Slot 647 is reserved */
3831#define TclUnusedStubEntry \
3832 (tclStubsPtr->tclUnusedStubEntry) /* 648 */
3833
3834#endif /* defined(USE_TCL_STUBS) */
3835
3836/* !END!: Do not edit above this line. */
3837
3838#undef TclUnusedStubEntry
3839
3840#if defined(USE_TCL_STUBS)
3841# undef Tcl_CreateInterp
3842# undef Tcl_FindExecutable
3843# undef Tcl_GetStringResult
3844# undef Tcl_Init
3845# undef Tcl_SetPanicProc
3846# undef Tcl_SetVar
3847# undef Tcl_ObjSetVar2
3848# undef Tcl_StaticPackage
3849# define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
3850# define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp))
3851# define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
3852# define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
3853# define Tcl_SetVar(interp, varName, newValue, flags) \
3854 (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
3855# define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
3856 (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
3857#endif
3858
3859#if defined(_WIN32) && defined(UNICODE)
3860# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
3861# define Tcl_MainEx Tcl_MainExW
3862 EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
3863 Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
3864#endif
3865
3866#undef TCL_STORAGE_CLASS
3867#define TCL_STORAGE_CLASS DLLIMPORT
3868
3869#undef Tcl_SeekOld
3870#undef Tcl_TellOld
3871
3872#undef Tcl_PkgPresent
3873#define Tcl_PkgPresent(interp, name, version, exact) \
3874 Tcl_PkgPresentEx(interp, name, version, exact, NULL)
3875#undef Tcl_PkgProvide
3876#define Tcl_PkgProvide(interp, name, version) \
3877 Tcl_PkgProvideEx(interp, name, version, NULL)
3878#undef Tcl_PkgRequire
3879#define Tcl_PkgRequire(interp, name, version, exact) \
3880 Tcl_PkgRequireEx(interp, name, version, exact, NULL)
3881#undef Tcl_GetIndexFromObj
3882#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
3883 Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
3884 sizeof(char *), msg, flags, indexPtr)
3885#undef Tcl_NewBooleanObj
3886#define Tcl_NewBooleanObj(boolValue) \
3887 Tcl_NewIntObj((boolValue)!=0)
3888#undef Tcl_DbNewBooleanObj
3889#define Tcl_DbNewBooleanObj(boolValue, file, line) \
3890 Tcl_DbNewLongObj((boolValue)!=0, file, line)
3891#undef Tcl_SetBooleanObj
3892#define Tcl_SetBooleanObj(objPtr, boolValue) \
3893 Tcl_SetIntObj((objPtr), (boolValue)!=0)
3894#undef Tcl_SetVar
3895#define Tcl_SetVar(interp, varName, newValue, flags) \
3896 Tcl_SetVar2(interp, varName, NULL, newValue, flags)
3897#undef Tcl_UnsetVar
3898#define Tcl_UnsetVar(interp, varName, flags) \
3899 Tcl_UnsetVar2(interp, varName, NULL, flags)
3900#undef Tcl_GetVar
3901#define Tcl_GetVar(interp, varName, flags) \
3902 Tcl_GetVar2(interp, varName, NULL, flags)
3903#undef Tcl_TraceVar
3904#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
3905 Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
3906#undef Tcl_UntraceVar
3907#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
3908 Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
3909#undef Tcl_VarTraceInfo
3910#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
3911 Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
3912#undef Tcl_UpVar
3913#define Tcl_UpVar(interp, frameName, varName, localName, flags) \
3914 Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
3915
3916#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
3917# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
3918/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
3919 * we have to make sure that all stub entries on Cygwin64 follow the
3920 * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
3921 * entries any more, they should use the 64-bit alternatives where
3922 * possible. Tcl 9 must find a better solution, but that cannot be done
3923 * without introducing a binary incompatibility.
3924 */
3925# undef Tcl_DbNewLongObj
3926# undef Tcl_GetLongFromObj
3927# undef Tcl_NewLongObj
3928# undef Tcl_SetLongObj
3929# undef Tcl_ExprLong
3930# undef Tcl_ExprLongObj
3931# undef Tcl_UniCharNcmp
3932# undef Tcl_UtfNcmp
3933# undef Tcl_UtfNcasecmp
3934# undef Tcl_UniCharNcasecmp
3935# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj)
3936# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
3937# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
3938# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
3939# define Tcl_ExprLong TclExprLong
3940 static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
3941 int intValue;
3942 int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
3943 if (result == TCL_OK) *ptr = (long)intValue;
3944 return result;
3945 }
3946# define Tcl_ExprLongObj TclExprLongObj
3947 static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
3948 int intValue;
3949 int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
3950 if (result == TCL_OK) *ptr = (long)intValue;
3951 return result;
3952 }
3953# define Tcl_UniCharNcmp(ucs,uct,n) \
3954 ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
3955# define Tcl_UtfNcmp(s1,s2,n) \
3956 ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
3957# define Tcl_UtfNcasecmp(s1,s2,n) \
3958 ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
3959# define Tcl_UniCharNcasecmp(ucs,uct,n) \
3960 ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
3961# endif
3962#endif
3963
3964/*
3965 * Deprecated Tcl procedures:
3966 */
3967
3968#undef Tcl_EvalObj
3969#define Tcl_EvalObj(interp,objPtr) \
3970 Tcl_EvalObjEx((interp),(objPtr),0)
3971#undef Tcl_GlobalEvalObj
3972#define Tcl_GlobalEvalObj(interp,objPtr) \
3973 Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
3974
3975#endif /* _TCLDECLS */
3976