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 |
35 | extern "C" { |
36 | #endif |
37 | |
38 | /* |
39 | * Exported function declarations: |
40 | */ |
41 | |
42 | /* 0 */ |
43 | EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, |
44 | const char *name, const char *version, |
45 | const void *clientData); |
46 | /* 1 */ |
47 | EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, |
48 | const char *name, const char *version, |
49 | int exact, void *clientDataPtr); |
50 | /* 2 */ |
51 | EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); |
52 | /* 3 */ |
53 | EXTERN char * Tcl_Alloc(unsigned int size); |
54 | /* 4 */ |
55 | EXTERN void Tcl_Free(char *ptr); |
56 | /* 5 */ |
57 | EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); |
58 | /* 6 */ |
59 | EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file, |
60 | int line); |
61 | /* 7 */ |
62 | EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line); |
63 | /* 8 */ |
64 | EXTERN 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 */ |
68 | EXTERN void Tcl_CreateFileHandler(int fd, int mask, |
69 | Tcl_FileProc *proc, ClientData clientData); |
70 | #endif /* UNIX */ |
71 | #ifdef MAC_OSX_TCL /* MACOSX */ |
72 | /* 9 */ |
73 | EXTERN 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 */ |
78 | EXTERN void Tcl_DeleteFileHandler(int fd); |
79 | #endif /* UNIX */ |
80 | #ifdef MAC_OSX_TCL /* MACOSX */ |
81 | /* 10 */ |
82 | EXTERN void Tcl_DeleteFileHandler(int fd); |
83 | #endif /* MACOSX */ |
84 | /* 11 */ |
85 | EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr); |
86 | /* 12 */ |
87 | EXTERN void Tcl_Sleep(int ms); |
88 | /* 13 */ |
89 | EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr); |
90 | /* 14 */ |
91 | EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, |
92 | Tcl_Obj *objPtr); |
93 | /* 15 */ |
94 | EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); |
95 | /* 16 */ |
96 | EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes, |
97 | int length); |
98 | /* 17 */ |
99 | EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]); |
100 | /* 18 */ |
101 | EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, |
102 | Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); |
103 | /* 19 */ |
104 | EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, |
105 | int line); |
106 | /* 20 */ |
107 | EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file, |
108 | int line); |
109 | /* 21 */ |
110 | EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file, |
111 | int line); |
112 | /* 22 */ |
113 | EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file, |
114 | int line); |
115 | /* 23 */ |
116 | EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes, |
117 | int length, const char *file, int line); |
118 | /* 24 */ |
119 | EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, |
120 | const char *file, int line); |
121 | /* 25 */ |
122 | EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv, |
123 | const char *file, int line); |
124 | /* 26 */ |
125 | EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file, |
126 | int line); |
127 | /* 27 */ |
128 | EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line); |
129 | /* 28 */ |
130 | EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length, |
131 | const char *file, int line); |
132 | /* 29 */ |
133 | EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); |
134 | /* 30 */ |
135 | EXTERN void TclFreeObj(Tcl_Obj *objPtr); |
136 | /* 31 */ |
137 | EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src, |
138 | int *boolPtr); |
139 | /* 32 */ |
140 | EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, |
141 | Tcl_Obj *objPtr, int *boolPtr); |
142 | /* 33 */ |
143 | EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, |
144 | int *lengthPtr); |
145 | /* 34 */ |
146 | EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src, |
147 | double *doublePtr); |
148 | /* 35 */ |
149 | EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, |
150 | Tcl_Obj *objPtr, double *doublePtr); |
151 | /* 36 */ |
152 | EXTERN 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 */ |
157 | EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src, |
158 | int *intPtr); |
159 | /* 38 */ |
160 | EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, |
161 | Tcl_Obj *objPtr, int *intPtr); |
162 | /* 39 */ |
163 | EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, |
164 | Tcl_Obj *objPtr, long *longPtr); |
165 | /* 40 */ |
166 | EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName); |
167 | /* 41 */ |
168 | EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); |
169 | /* 42 */ |
170 | EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); |
171 | /* 43 */ |
172 | EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, |
173 | Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); |
174 | /* 44 */ |
175 | EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, |
176 | Tcl_Obj *listPtr, Tcl_Obj *objPtr); |
177 | /* 45 */ |
178 | EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, |
179 | Tcl_Obj *listPtr, int *objcPtr, |
180 | Tcl_Obj ***objvPtr); |
181 | /* 46 */ |
182 | EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, |
183 | Tcl_Obj *listPtr, int index, |
184 | Tcl_Obj **objPtrPtr); |
185 | /* 47 */ |
186 | EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, |
187 | Tcl_Obj *listPtr, int *lengthPtr); |
188 | /* 48 */ |
189 | EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, |
190 | Tcl_Obj *listPtr, int first, int count, |
191 | int objc, Tcl_Obj *const objv[]); |
192 | /* 49 */ |
193 | EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); |
194 | /* 50 */ |
195 | EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes, |
196 | int length); |
197 | /* 51 */ |
198 | EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); |
199 | /* 52 */ |
200 | EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); |
201 | /* 53 */ |
202 | EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]); |
203 | /* 54 */ |
204 | EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); |
205 | /* 55 */ |
206 | EXTERN Tcl_Obj * Tcl_NewObj(void); |
207 | /* 56 */ |
208 | EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length); |
209 | /* 57 */ |
210 | EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); |
211 | /* 58 */ |
212 | EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); |
213 | /* 59 */ |
214 | EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, |
215 | const unsigned char *bytes, int length); |
216 | /* 60 */ |
217 | EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); |
218 | /* 61 */ |
219 | EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); |
220 | /* 62 */ |
221 | EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, |
222 | Tcl_Obj *const objv[]); |
223 | /* 63 */ |
224 | EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); |
225 | /* 64 */ |
226 | EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); |
227 | /* 65 */ |
228 | EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes, |
229 | int length); |
230 | /* 66 */ |
231 | EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, |
232 | const char *message); |
233 | /* 67 */ |
234 | EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, |
235 | const char *message, int length); |
236 | /* 68 */ |
237 | EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); |
238 | /* 69 */ |
239 | EXTERN void Tcl_AppendElement(Tcl_Interp *interp, |
240 | const char *element); |
241 | /* 70 */ |
242 | EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); |
243 | /* 71 */ |
244 | EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, |
245 | ClientData clientData); |
246 | /* 72 */ |
247 | EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); |
248 | /* 73 */ |
249 | EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); |
250 | /* 74 */ |
251 | EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); |
252 | /* 75 */ |
253 | EXTERN int Tcl_AsyncReady(void); |
254 | /* 76 */ |
255 | EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); |
256 | /* 77 */ |
257 | EXTERN char Tcl_Backslash(const char *src, int *readPtr); |
258 | /* 78 */ |
259 | EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, |
260 | const char *optionName, |
261 | const char *optionList); |
262 | /* 79 */ |
263 | EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, |
264 | Tcl_InterpDeleteProc *proc, |
265 | ClientData clientData); |
266 | /* 80 */ |
267 | EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, |
268 | ClientData clientData); |
269 | /* 81 */ |
270 | EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); |
271 | /* 82 */ |
272 | EXTERN int Tcl_CommandComplete(const char *cmd); |
273 | /* 83 */ |
274 | EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv); |
275 | /* 84 */ |
276 | EXTERN int Tcl_ConvertElement(const char *src, char *dst, |
277 | int flags); |
278 | /* 85 */ |
279 | EXTERN int Tcl_ConvertCountedElement(const char *src, |
280 | int length, char *dst, int flags); |
281 | /* 86 */ |
282 | EXTERN 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 */ |
287 | EXTERN 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 */ |
292 | EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, |
293 | const char *chanName, |
294 | ClientData instanceData, int mask); |
295 | /* 89 */ |
296 | EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, |
297 | Tcl_ChannelProc *proc, ClientData clientData); |
298 | /* 90 */ |
299 | EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, |
300 | Tcl_CloseProc *proc, ClientData clientData); |
301 | /* 91 */ |
302 | EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, |
303 | const char *cmdName, Tcl_CmdProc *proc, |
304 | ClientData clientData, |
305 | Tcl_CmdDeleteProc *deleteProc); |
306 | /* 92 */ |
307 | EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, |
308 | Tcl_EventCheckProc *checkProc, |
309 | ClientData clientData); |
310 | /* 93 */ |
311 | EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, |
312 | ClientData clientData); |
313 | /* 94 */ |
314 | EXTERN Tcl_Interp * Tcl_CreateInterp(void); |
315 | /* 95 */ |
316 | EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, |
317 | const char *name, int numArgs, |
318 | Tcl_ValueType *argTypes, Tcl_MathProc *proc, |
319 | ClientData clientData); |
320 | /* 96 */ |
321 | EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, |
322 | const char *cmdName, Tcl_ObjCmdProc *proc, |
323 | ClientData clientData, |
324 | Tcl_CmdDeleteProc *deleteProc); |
325 | /* 97 */ |
326 | EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, |
327 | const char *slaveName, int isSafe); |
328 | /* 98 */ |
329 | EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, |
330 | Tcl_TimerProc *proc, ClientData clientData); |
331 | /* 99 */ |
332 | EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, |
333 | Tcl_CmdTraceProc *proc, |
334 | ClientData clientData); |
335 | /* 100 */ |
336 | EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, |
337 | const char *name); |
338 | /* 101 */ |
339 | EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, |
340 | Tcl_ChannelProc *proc, ClientData clientData); |
341 | /* 102 */ |
342 | EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, |
343 | Tcl_CloseProc *proc, ClientData clientData); |
344 | /* 103 */ |
345 | EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, |
346 | const char *cmdName); |
347 | /* 104 */ |
348 | EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, |
349 | Tcl_Command command); |
350 | /* 105 */ |
351 | EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, |
352 | ClientData clientData); |
353 | /* 106 */ |
354 | EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, |
355 | Tcl_EventCheckProc *checkProc, |
356 | ClientData clientData); |
357 | /* 107 */ |
358 | EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, |
359 | ClientData clientData); |
360 | /* 108 */ |
361 | EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); |
362 | /* 109 */ |
363 | EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); |
364 | /* 110 */ |
365 | EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); |
366 | /* 111 */ |
367 | EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); |
368 | /* 112 */ |
369 | EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); |
370 | /* 113 */ |
371 | EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); |
372 | /* 114 */ |
373 | EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, |
374 | Tcl_InterpDeleteProc *proc, |
375 | ClientData clientData); |
376 | /* 115 */ |
377 | EXTERN int Tcl_DoOneEvent(int flags); |
378 | /* 116 */ |
379 | EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, |
380 | ClientData clientData); |
381 | /* 117 */ |
382 | EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, |
383 | const char *bytes, int length); |
384 | /* 118 */ |
385 | EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, |
386 | const char *element); |
387 | /* 119 */ |
388 | EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); |
389 | /* 120 */ |
390 | EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); |
391 | /* 121 */ |
392 | EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, |
393 | Tcl_DString *dsPtr); |
394 | /* 122 */ |
395 | EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); |
396 | /* 123 */ |
397 | EXTERN void Tcl_DStringResult(Tcl_Interp *interp, |
398 | Tcl_DString *dsPtr); |
399 | /* 124 */ |
400 | EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); |
401 | /* 125 */ |
402 | EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); |
403 | /* 126 */ |
404 | EXTERN int Tcl_Eof(Tcl_Channel chan); |
405 | /* 127 */ |
406 | EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); |
407 | /* 128 */ |
408 | EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); |
409 | /* 129 */ |
410 | EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script); |
411 | /* 130 */ |
412 | EXTERN int Tcl_EvalFile(Tcl_Interp *interp, |
413 | const char *fileName); |
414 | /* 131 */ |
415 | EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); |
416 | /* 132 */ |
417 | EXTERN void Tcl_EventuallyFree(ClientData clientData, |
418 | Tcl_FreeProc *freeProc); |
419 | /* 133 */ |
420 | EXTERN TCL_NORETURN void Tcl_Exit(int status); |
421 | /* 134 */ |
422 | EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, |
423 | const char *hiddenCmdToken, |
424 | const char *cmdName); |
425 | /* 135 */ |
426 | EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr, |
427 | int *ptr); |
428 | /* 136 */ |
429 | EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, |
430 | Tcl_Obj *objPtr, int *ptr); |
431 | /* 137 */ |
432 | EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr, |
433 | double *ptr); |
434 | /* 138 */ |
435 | EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, |
436 | Tcl_Obj *objPtr, double *ptr); |
437 | /* 139 */ |
438 | EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr, |
439 | long *ptr); |
440 | /* 140 */ |
441 | EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
442 | long *ptr); |
443 | /* 141 */ |
444 | EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
445 | Tcl_Obj **resultPtrPtr); |
446 | /* 142 */ |
447 | EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr); |
448 | /* 143 */ |
449 | EXTERN void Tcl_Finalize(void); |
450 | /* 144 */ |
451 | EXTERN void Tcl_FindExecutable(const char *argv0); |
452 | /* 145 */ |
453 | EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, |
454 | Tcl_HashSearch *searchPtr); |
455 | /* 146 */ |
456 | EXTERN int Tcl_Flush(Tcl_Channel chan); |
457 | /* 147 */ |
458 | EXTERN void Tcl_FreeResult(Tcl_Interp *interp); |
459 | /* 148 */ |
460 | EXTERN 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 */ |
466 | EXTERN 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 */ |
472 | EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, |
473 | const char *name, |
474 | Tcl_InterpDeleteProc **procPtr); |
475 | /* 151 */ |
476 | EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, |
477 | const char *chanName, int *modePtr); |
478 | /* 152 */ |
479 | EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); |
480 | /* 153 */ |
481 | EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, |
482 | ClientData *handlePtr); |
483 | /* 154 */ |
484 | EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); |
485 | /* 155 */ |
486 | EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); |
487 | /* 156 */ |
488 | EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); |
489 | /* 157 */ |
490 | EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, |
491 | Tcl_Channel chan, const char *optionName, |
492 | Tcl_DString *dsPtr); |
493 | /* 158 */ |
494 | EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); |
495 | /* 159 */ |
496 | EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, |
497 | const char *cmdName, Tcl_CmdInfo *infoPtr); |
498 | /* 160 */ |
499 | EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, |
500 | Tcl_Command command); |
501 | /* 161 */ |
502 | EXTERN int Tcl_GetErrno(void); |
503 | /* 162 */ |
504 | EXTERN CONST84_RETURN char * Tcl_GetHostName(void); |
505 | /* 163 */ |
506 | EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, |
507 | Tcl_Interp *slaveInterp); |
508 | /* 164 */ |
509 | EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); |
510 | /* 165 */ |
511 | EXTERN const char * Tcl_GetNameOfExecutable(void); |
512 | /* 166 */ |
513 | EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); |
514 | #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */ |
515 | /* 167 */ |
516 | EXTERN 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 */ |
522 | EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, |
523 | const char *chanID, int forWriting, |
524 | int checkUsage, ClientData *filePtr); |
525 | #endif /* MACOSX */ |
526 | /* 168 */ |
527 | EXTERN Tcl_PathType Tcl_GetPathType(const char *path); |
528 | /* 169 */ |
529 | EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); |
530 | /* 170 */ |
531 | EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); |
532 | /* 171 */ |
533 | EXTERN int Tcl_GetServiceMode(void); |
534 | /* 172 */ |
535 | EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, |
536 | const char *slaveName); |
537 | /* 173 */ |
538 | EXTERN Tcl_Channel Tcl_GetStdChannel(int type); |
539 | /* 174 */ |
540 | EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); |
541 | /* 175 */ |
542 | EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, |
543 | const char *varName, int flags); |
544 | /* 176 */ |
545 | EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, |
546 | const char *part1, const char *part2, |
547 | int flags); |
548 | /* 177 */ |
549 | EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, |
550 | const char *command); |
551 | /* 178 */ |
552 | EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, |
553 | Tcl_Obj *objPtr); |
554 | /* 179 */ |
555 | EXTERN int Tcl_HideCommand(Tcl_Interp *interp, |
556 | const char *cmdName, |
557 | const char *hiddenCmdToken); |
558 | /* 180 */ |
559 | EXTERN int Tcl_Init(Tcl_Interp *interp); |
560 | /* 181 */ |
561 | EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, |
562 | int keyType); |
563 | /* 182 */ |
564 | EXTERN int Tcl_InputBlocked(Tcl_Channel chan); |
565 | /* 183 */ |
566 | EXTERN int Tcl_InputBuffered(Tcl_Channel chan); |
567 | /* 184 */ |
568 | EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); |
569 | /* 185 */ |
570 | EXTERN int Tcl_IsSafe(Tcl_Interp *interp); |
571 | /* 186 */ |
572 | EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv, |
573 | Tcl_DString *resultPtr); |
574 | /* 187 */ |
575 | EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName, |
576 | char *addr, int type); |
577 | /* Slot 188 is reserved */ |
578 | /* 189 */ |
579 | EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); |
580 | /* 190 */ |
581 | EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); |
582 | /* 191 */ |
583 | EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); |
584 | /* 192 */ |
585 | EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv); |
586 | /* 193 */ |
587 | EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); |
588 | /* 194 */ |
589 | EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); |
590 | /* 195 */ |
591 | EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, |
592 | Tcl_Obj *part2Ptr, int flags); |
593 | /* 196 */ |
594 | EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, |
595 | Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, |
596 | int flags); |
597 | /* 197 */ |
598 | EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, |
599 | CONST84 char **argv, int flags); |
600 | /* 198 */ |
601 | EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, |
602 | const char *fileName, const char *modeString, |
603 | int permissions); |
604 | /* 199 */ |
605 | EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, |
606 | const char *address, const char *myaddr, |
607 | int myport, int async); |
608 | /* 200 */ |
609 | EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, |
610 | const char *host, |
611 | Tcl_TcpAcceptProc *acceptProc, |
612 | ClientData callbackData); |
613 | /* 201 */ |
614 | EXTERN void Tcl_Preserve(ClientData data); |
615 | /* 202 */ |
616 | EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, |
617 | char *dst); |
618 | /* 203 */ |
619 | EXTERN int Tcl_PutEnv(const char *assignment); |
620 | /* 204 */ |
621 | EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); |
622 | /* 205 */ |
623 | EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, |
624 | Tcl_QueuePosition position); |
625 | /* 206 */ |
626 | EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); |
627 | /* 207 */ |
628 | EXTERN void Tcl_ReapDetachedProcs(void); |
629 | /* 208 */ |
630 | EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, |
631 | const char *cmd, int flags); |
632 | /* 209 */ |
633 | EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, |
634 | Tcl_Obj *cmdPtr, int flags); |
635 | /* 210 */ |
636 | EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, |
637 | Tcl_Channel chan); |
638 | /* 211 */ |
639 | EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr); |
640 | /* 212 */ |
641 | EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, |
642 | const char *pattern); |
643 | /* 213 */ |
644 | EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, |
645 | const char *text, const char *start); |
646 | /* 214 */ |
647 | EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text, |
648 | const char *pattern); |
649 | /* 215 */ |
650 | EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, |
651 | CONST84 char **startPtr, |
652 | CONST84 char **endPtr); |
653 | /* 216 */ |
654 | EXTERN void Tcl_Release(ClientData clientData); |
655 | /* 217 */ |
656 | EXTERN void Tcl_ResetResult(Tcl_Interp *interp); |
657 | /* 218 */ |
658 | EXTERN int Tcl_ScanElement(const char *src, int *flagPtr); |
659 | /* 219 */ |
660 | EXTERN int Tcl_ScanCountedElement(const char *src, int length, |
661 | int *flagPtr); |
662 | /* 220 */ |
663 | EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); |
664 | /* 221 */ |
665 | EXTERN int Tcl_ServiceAll(void); |
666 | /* 222 */ |
667 | EXTERN int Tcl_ServiceEvent(int flags); |
668 | /* 223 */ |
669 | EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, |
670 | const char *name, Tcl_InterpDeleteProc *proc, |
671 | ClientData clientData); |
672 | /* 224 */ |
673 | EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); |
674 | /* 225 */ |
675 | EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, |
676 | Tcl_Channel chan, const char *optionName, |
677 | const char *newValue); |
678 | /* 226 */ |
679 | EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, |
680 | const char *cmdName, |
681 | const Tcl_CmdInfo *infoPtr); |
682 | /* 227 */ |
683 | EXTERN void Tcl_SetErrno(int err); |
684 | /* 228 */ |
685 | EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); |
686 | /* 229 */ |
687 | EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr); |
688 | /* 230 */ |
689 | EXTERN void Tcl_SetPanicProc( |
690 | TCL_NORETURN1 Tcl_PanicProc *panicProc); |
691 | /* 231 */ |
692 | EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); |
693 | /* 232 */ |
694 | EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, |
695 | Tcl_FreeProc *freeProc); |
696 | /* 233 */ |
697 | EXTERN int Tcl_SetServiceMode(int mode); |
698 | /* 234 */ |
699 | EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, |
700 | Tcl_Obj *errorObjPtr); |
701 | /* 235 */ |
702 | EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, |
703 | Tcl_Obj *resultObjPtr); |
704 | /* 236 */ |
705 | EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); |
706 | /* 237 */ |
707 | EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, |
708 | const char *varName, const char *newValue, |
709 | int flags); |
710 | /* 238 */ |
711 | EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, |
712 | const char *part1, const char *part2, |
713 | const char *newValue, int flags); |
714 | /* 239 */ |
715 | EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); |
716 | /* 240 */ |
717 | EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); |
718 | /* 241 */ |
719 | EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); |
720 | /* 242 */ |
721 | EXTERN int Tcl_SplitList(Tcl_Interp *interp, |
722 | const char *listStr, int *argcPtr, |
723 | CONST84 char ***argvPtr); |
724 | /* 243 */ |
725 | EXTERN void Tcl_SplitPath(const char *path, int *argcPtr, |
726 | CONST84 char ***argvPtr); |
727 | /* 244 */ |
728 | EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, |
729 | const char *pkgName, |
730 | Tcl_PackageInitProc *initProc, |
731 | Tcl_PackageInitProc *safeInitProc); |
732 | /* 245 */ |
733 | EXTERN int Tcl_StringMatch(const char *str, const char *pattern); |
734 | /* 246 */ |
735 | EXTERN int Tcl_TellOld(Tcl_Channel chan); |
736 | /* 247 */ |
737 | EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName, |
738 | int flags, Tcl_VarTraceProc *proc, |
739 | ClientData clientData); |
740 | /* 248 */ |
741 | EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1, |
742 | const char *part2, int flags, |
743 | Tcl_VarTraceProc *proc, |
744 | ClientData clientData); |
745 | /* 249 */ |
746 | EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, |
747 | const char *name, Tcl_DString *bufferPtr); |
748 | /* 250 */ |
749 | EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str, |
750 | int len, int atHead); |
751 | /* 251 */ |
752 | EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, |
753 | const char *varName); |
754 | /* 252 */ |
755 | EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, |
756 | Tcl_Channel chan); |
757 | /* 253 */ |
758 | EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName, |
759 | int flags); |
760 | /* 254 */ |
761 | EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1, |
762 | const char *part2, int flags); |
763 | /* 255 */ |
764 | EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, |
765 | const char *varName, int flags, |
766 | Tcl_VarTraceProc *proc, |
767 | ClientData clientData); |
768 | /* 256 */ |
769 | EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, |
770 | const char *part1, const char *part2, |
771 | int flags, Tcl_VarTraceProc *proc, |
772 | ClientData clientData); |
773 | /* 257 */ |
774 | EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, |
775 | const char *varName); |
776 | /* 258 */ |
777 | EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName, |
778 | const char *varName, const char *localName, |
779 | int flags); |
780 | /* 259 */ |
781 | EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName, |
782 | const char *part1, const char *part2, |
783 | const char *localName, int flags); |
784 | /* 260 */ |
785 | EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); |
786 | /* 261 */ |
787 | EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, |
788 | const char *varName, int flags, |
789 | Tcl_VarTraceProc *procPtr, |
790 | ClientData prevClientData); |
791 | /* 262 */ |
792 | EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, |
793 | const char *part1, const char *part2, |
794 | int flags, Tcl_VarTraceProc *procPtr, |
795 | ClientData prevClientData); |
796 | /* 263 */ |
797 | EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen); |
798 | /* 264 */ |
799 | EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, |
800 | Tcl_Obj *const objv[], const char *message); |
801 | /* 265 */ |
802 | EXTERN int Tcl_DumpActiveMemory(const char *fileName); |
803 | /* 266 */ |
804 | EXTERN void Tcl_ValidateAllMemory(const char *file, int line); |
805 | /* 267 */ |
806 | EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, |
807 | va_list argList); |
808 | /* 268 */ |
809 | EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, |
810 | va_list argList); |
811 | /* 269 */ |
812 | EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); |
813 | /* 270 */ |
814 | EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, |
815 | const char *start, CONST84 char **termPtr); |
816 | /* 271 */ |
817 | EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, |
818 | const char *name, const char *version, |
819 | int exact); |
820 | /* 272 */ |
821 | EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, |
822 | const char *name, const char *version, |
823 | int exact, void *clientDataPtr); |
824 | /* 273 */ |
825 | EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, |
826 | const char *version); |
827 | /* 274 */ |
828 | EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, |
829 | const char *name, const char *version, |
830 | int exact); |
831 | /* 275 */ |
832 | EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, |
833 | va_list argList); |
834 | /* 276 */ |
835 | EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); |
836 | /* 277 */ |
837 | EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); |
838 | /* 278 */ |
839 | EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList); |
840 | /* 279 */ |
841 | EXTERN void Tcl_GetVersion(int *major, int *minor, |
842 | int *patchLevel, int *type); |
843 | /* 280 */ |
844 | EXTERN void Tcl_InitMemory(Tcl_Interp *interp); |
845 | /* 281 */ |
846 | EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, |
847 | const Tcl_ChannelType *typePtr, |
848 | ClientData instanceData, int mask, |
849 | Tcl_Channel prevChan); |
850 | /* 282 */ |
851 | EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, |
852 | Tcl_Channel chan); |
853 | /* 283 */ |
854 | EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); |
855 | /* 284 */ |
856 | EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); |
857 | /* Slot 285 is reserved */ |
858 | /* 286 */ |
859 | EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, |
860 | Tcl_Obj *appendObjPtr); |
861 | /* 287 */ |
862 | EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr); |
863 | /* 288 */ |
864 | EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, |
865 | ClientData clientData); |
866 | /* 289 */ |
867 | EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, |
868 | ClientData clientData); |
869 | /* 290 */ |
870 | EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); |
871 | /* 291 */ |
872 | EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script, |
873 | int numBytes, int flags); |
874 | /* 292 */ |
875 | EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, |
876 | Tcl_Obj *const objv[], int flags); |
877 | /* 293 */ |
878 | EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, |
879 | int flags); |
880 | /* 294 */ |
881 | EXTERN void Tcl_ExitThread(int status); |
882 | /* 295 */ |
883 | EXTERN 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 */ |
890 | EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, |
891 | const char *src, int srcLen, |
892 | Tcl_DString *dsPtr); |
893 | /* 297 */ |
894 | EXTERN void Tcl_FinalizeThread(void); |
895 | /* 298 */ |
896 | EXTERN void Tcl_FinalizeNotifier(ClientData clientData); |
897 | /* 299 */ |
898 | EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); |
899 | /* 300 */ |
900 | EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); |
901 | /* 301 */ |
902 | EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name); |
903 | /* 302 */ |
904 | EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); |
905 | /* 303 */ |
906 | EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); |
907 | /* 304 */ |
908 | EXTERN 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 */ |
913 | EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, |
914 | int size); |
915 | /* 306 */ |
916 | EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1, |
917 | const char *part2, int flags); |
918 | /* 307 */ |
919 | EXTERN ClientData Tcl_InitNotifier(void); |
920 | /* 308 */ |
921 | EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); |
922 | /* 309 */ |
923 | EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); |
924 | /* 310 */ |
925 | EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); |
926 | /* 311 */ |
927 | EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, |
928 | Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); |
929 | /* 312 */ |
930 | EXTERN int Tcl_NumUtfChars(const char *src, int length); |
931 | /* 313 */ |
932 | EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, |
933 | int charsToRead, int appendFlag); |
934 | /* 314 */ |
935 | EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, |
936 | Tcl_SavedResult *statePtr); |
937 | /* 315 */ |
938 | EXTERN void Tcl_SaveResult(Tcl_Interp *interp, |
939 | Tcl_SavedResult *statePtr); |
940 | /* 316 */ |
941 | EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, |
942 | const char *name); |
943 | /* 317 */ |
944 | EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1, |
945 | const char *part2, Tcl_Obj *newValuePtr, |
946 | int flags); |
947 | /* 318 */ |
948 | EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); |
949 | /* 319 */ |
950 | EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, |
951 | Tcl_Event *evPtr, Tcl_QueuePosition position); |
952 | /* 320 */ |
953 | EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index); |
954 | /* 321 */ |
955 | EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); |
956 | /* 322 */ |
957 | EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); |
958 | /* 323 */ |
959 | EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); |
960 | /* 324 */ |
961 | EXTERN int Tcl_UniCharToUtf(int ch, char *buf); |
962 | /* 325 */ |
963 | EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index); |
964 | /* 326 */ |
965 | EXTERN int Tcl_UtfCharComplete(const char *src, int length); |
966 | /* 327 */ |
967 | EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr, |
968 | char *dst); |
969 | /* 328 */ |
970 | EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch); |
971 | /* 329 */ |
972 | EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch); |
973 | /* 330 */ |
974 | EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src); |
975 | /* 331 */ |
976 | EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start); |
977 | /* 332 */ |
978 | EXTERN 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 */ |
985 | EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, |
986 | const char *src, int srcLen, |
987 | Tcl_DString *dsPtr); |
988 | /* 334 */ |
989 | EXTERN int Tcl_UtfToLower(char *src); |
990 | /* 335 */ |
991 | EXTERN int Tcl_UtfToTitle(char *src); |
992 | /* 336 */ |
993 | EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr); |
994 | /* 337 */ |
995 | EXTERN int Tcl_UtfToUpper(char *src); |
996 | /* 338 */ |
997 | EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src, |
998 | int srcLen); |
999 | /* 339 */ |
1000 | EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); |
1001 | /* 340 */ |
1002 | EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); |
1003 | /* 341 */ |
1004 | EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); |
1005 | /* 342 */ |
1006 | EXTERN void Tcl_SetDefaultEncodingDir(const char *path); |
1007 | /* 343 */ |
1008 | EXTERN void Tcl_AlertNotifier(ClientData clientData); |
1009 | /* 344 */ |
1010 | EXTERN void Tcl_ServiceModeHook(int mode); |
1011 | /* 345 */ |
1012 | EXTERN int Tcl_UniCharIsAlnum(int ch); |
1013 | /* 346 */ |
1014 | EXTERN int Tcl_UniCharIsAlpha(int ch); |
1015 | /* 347 */ |
1016 | EXTERN int Tcl_UniCharIsDigit(int ch); |
1017 | /* 348 */ |
1018 | EXTERN int Tcl_UniCharIsLower(int ch); |
1019 | /* 349 */ |
1020 | EXTERN int Tcl_UniCharIsSpace(int ch); |
1021 | /* 350 */ |
1022 | EXTERN int Tcl_UniCharIsUpper(int ch); |
1023 | /* 351 */ |
1024 | EXTERN int Tcl_UniCharIsWordChar(int ch); |
1025 | /* 352 */ |
1026 | EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr); |
1027 | /* 353 */ |
1028 | EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs, |
1029 | const Tcl_UniChar *uct, |
1030 | unsigned long numChars); |
1031 | /* 354 */ |
1032 | EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr, |
1033 | int uniLength, Tcl_DString *dsPtr); |
1034 | /* 355 */ |
1035 | EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length, |
1036 | Tcl_DString *dsPtr); |
1037 | /* 356 */ |
1038 | EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, |
1039 | Tcl_Obj *patObj, int flags); |
1040 | /* 357 */ |
1041 | EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, |
1042 | Tcl_Token *tokenPtr, int count); |
1043 | /* 358 */ |
1044 | EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); |
1045 | /* 359 */ |
1046 | EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, |
1047 | const char *script, const char *command, |
1048 | int length); |
1049 | /* 360 */ |
1050 | EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, |
1051 | const char *start, int numBytes, |
1052 | Tcl_Parse *parsePtr, int append, |
1053 | CONST84 char **termPtr); |
1054 | /* 361 */ |
1055 | EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, |
1056 | const char *start, int numBytes, int nested, |
1057 | Tcl_Parse *parsePtr); |
1058 | /* 362 */ |
1059 | EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start, |
1060 | int numBytes, Tcl_Parse *parsePtr); |
1061 | /* 363 */ |
1062 | EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, |
1063 | const char *start, int numBytes, |
1064 | Tcl_Parse *parsePtr, int append, |
1065 | CONST84 char **termPtr); |
1066 | /* 364 */ |
1067 | EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, |
1068 | const char *start, int numBytes, |
1069 | Tcl_Parse *parsePtr, int append); |
1070 | /* 365 */ |
1071 | EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); |
1072 | /* 366 */ |
1073 | EXTERN int Tcl_Chdir(const char *dirName); |
1074 | /* 367 */ |
1075 | EXTERN int Tcl_Access(const char *path, int mode); |
1076 | /* 368 */ |
1077 | EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr); |
1078 | /* 369 */ |
1079 | EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, |
1080 | unsigned long n); |
1081 | /* 370 */ |
1082 | EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2, |
1083 | unsigned long n); |
1084 | /* 371 */ |
1085 | EXTERN int Tcl_StringCaseMatch(const char *str, |
1086 | const char *pattern, int nocase); |
1087 | /* 372 */ |
1088 | EXTERN int Tcl_UniCharIsControl(int ch); |
1089 | /* 373 */ |
1090 | EXTERN int Tcl_UniCharIsGraph(int ch); |
1091 | /* 374 */ |
1092 | EXTERN int Tcl_UniCharIsPrint(int ch); |
1093 | /* 375 */ |
1094 | EXTERN int Tcl_UniCharIsPunct(int ch); |
1095 | /* 376 */ |
1096 | EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, |
1097 | Tcl_RegExp regexp, Tcl_Obj *textObj, |
1098 | int offset, int nmatches, int flags); |
1099 | /* 377 */ |
1100 | EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, |
1101 | Tcl_RegExpInfo *infoPtr); |
1102 | /* 378 */ |
1103 | EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode, |
1104 | int numChars); |
1105 | /* 379 */ |
1106 | EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, |
1107 | const Tcl_UniChar *unicode, int numChars); |
1108 | /* 380 */ |
1109 | EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); |
1110 | /* 381 */ |
1111 | EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); |
1112 | /* 382 */ |
1113 | EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); |
1114 | /* 383 */ |
1115 | EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); |
1116 | /* 384 */ |
1117 | EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, |
1118 | const Tcl_UniChar *unicode, int length); |
1119 | /* 385 */ |
1120 | EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, |
1121 | Tcl_Obj *textObj, Tcl_Obj *patternObj); |
1122 | /* 386 */ |
1123 | EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); |
1124 | /* 387 */ |
1125 | EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); |
1126 | /* 388 */ |
1127 | EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); |
1128 | /* 389 */ |
1129 | EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, |
1130 | const char *pattern); |
1131 | /* 390 */ |
1132 | EXTERN int Tcl_ProcObjCmd(ClientData clientData, |
1133 | Tcl_Interp *interp, int objc, |
1134 | Tcl_Obj *const objv[]); |
1135 | /* 391 */ |
1136 | EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); |
1137 | /* 392 */ |
1138 | EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); |
1139 | /* 393 */ |
1140 | EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, |
1141 | Tcl_ThreadCreateProc *proc, |
1142 | ClientData clientData, int stackSize, |
1143 | int flags); |
1144 | /* 394 */ |
1145 | EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, |
1146 | int bytesToRead); |
1147 | /* 395 */ |
1148 | EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src, |
1149 | int srcLen); |
1150 | /* 396 */ |
1151 | EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); |
1152 | /* 397 */ |
1153 | EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); |
1154 | /* 398 */ |
1155 | EXTERN CONST84_RETURN char * Tcl_ChannelName( |
1156 | const Tcl_ChannelType *chanTypePtr); |
1157 | /* 399 */ |
1158 | EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( |
1159 | const Tcl_ChannelType *chanTypePtr); |
1160 | /* 400 */ |
1161 | EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( |
1162 | const Tcl_ChannelType *chanTypePtr); |
1163 | /* 401 */ |
1164 | EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( |
1165 | const Tcl_ChannelType *chanTypePtr); |
1166 | /* 402 */ |
1167 | EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( |
1168 | const Tcl_ChannelType *chanTypePtr); |
1169 | /* 403 */ |
1170 | EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( |
1171 | const Tcl_ChannelType *chanTypePtr); |
1172 | /* 404 */ |
1173 | EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( |
1174 | const Tcl_ChannelType *chanTypePtr); |
1175 | /* 405 */ |
1176 | EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( |
1177 | const Tcl_ChannelType *chanTypePtr); |
1178 | /* 406 */ |
1179 | EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( |
1180 | const Tcl_ChannelType *chanTypePtr); |
1181 | /* 407 */ |
1182 | EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( |
1183 | const Tcl_ChannelType *chanTypePtr); |
1184 | /* 408 */ |
1185 | EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( |
1186 | const Tcl_ChannelType *chanTypePtr); |
1187 | /* 409 */ |
1188 | EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( |
1189 | const Tcl_ChannelType *chanTypePtr); |
1190 | /* 410 */ |
1191 | EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( |
1192 | const Tcl_ChannelType *chanTypePtr); |
1193 | /* 411 */ |
1194 | EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( |
1195 | const Tcl_ChannelType *chanTypePtr); |
1196 | /* 412 */ |
1197 | EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); |
1198 | /* 413 */ |
1199 | EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); |
1200 | /* 414 */ |
1201 | EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, |
1202 | Tcl_Channel channel); |
1203 | /* 415 */ |
1204 | EXTERN void Tcl_CutChannel(Tcl_Channel channel); |
1205 | /* 416 */ |
1206 | EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); |
1207 | /* 417 */ |
1208 | EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); |
1209 | /* 418 */ |
1210 | EXTERN int Tcl_IsChannelExisting(const char *channelName); |
1211 | /* 419 */ |
1212 | EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs, |
1213 | const Tcl_UniChar *uct, |
1214 | unsigned long numChars); |
1215 | /* 420 */ |
1216 | EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr, |
1217 | const Tcl_UniChar *uniPattern, int nocase); |
1218 | /* 421 */ |
1219 | EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, |
1220 | const void *key); |
1221 | /* 422 */ |
1222 | EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, |
1223 | const void *key, int *newPtr); |
1224 | /* 423 */ |
1225 | EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, |
1226 | int keyType, const Tcl_HashKeyType *typePtr); |
1227 | /* 424 */ |
1228 | EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); |
1229 | /* 425 */ |
1230 | EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, |
1231 | const char *varName, int flags, |
1232 | Tcl_CommandTraceProc *procPtr, |
1233 | ClientData prevClientData); |
1234 | /* 426 */ |
1235 | EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, |
1236 | const char *varName, int flags, |
1237 | Tcl_CommandTraceProc *proc, |
1238 | ClientData clientData); |
1239 | /* 427 */ |
1240 | EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, |
1241 | const char *varName, int flags, |
1242 | Tcl_CommandTraceProc *proc, |
1243 | ClientData clientData); |
1244 | /* 428 */ |
1245 | EXTERN char * Tcl_AttemptAlloc(unsigned int size); |
1246 | /* 429 */ |
1247 | EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, |
1248 | const char *file, int line); |
1249 | /* 430 */ |
1250 | EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); |
1251 | /* 431 */ |
1252 | EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, |
1253 | const char *file, int line); |
1254 | /* 432 */ |
1255 | EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); |
1256 | /* 433 */ |
1257 | EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); |
1258 | /* 434 */ |
1259 | EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, |
1260 | int *lengthPtr); |
1261 | /* 435 */ |
1262 | EXTERN 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 */ |
1268 | EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, |
1269 | const char *pattern); |
1270 | /* 437 */ |
1271 | EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
1272 | int flags); |
1273 | /* 438 */ |
1274 | EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, |
1275 | Tcl_Channel channel); |
1276 | /* 439 */ |
1277 | EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); |
1278 | /* 440 */ |
1279 | EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, |
1280 | Tcl_Obj *destPathPtr); |
1281 | /* 441 */ |
1282 | EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, |
1283 | Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); |
1284 | /* 442 */ |
1285 | EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); |
1286 | /* 443 */ |
1287 | EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); |
1288 | /* 444 */ |
1289 | EXTERN 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 */ |
1296 | EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, |
1297 | Tcl_Obj *result, Tcl_Obj *pathPtr, |
1298 | const char *pattern, Tcl_GlobTypeData *types); |
1299 | /* 446 */ |
1300 | EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, |
1301 | int linkAction); |
1302 | /* 447 */ |
1303 | EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, |
1304 | int recursive, Tcl_Obj **errorPtr); |
1305 | /* 448 */ |
1306 | EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, |
1307 | Tcl_Obj *destPathPtr); |
1308 | /* 449 */ |
1309 | EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); |
1310 | /* 450 */ |
1311 | EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); |
1312 | /* 451 */ |
1313 | EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, |
1314 | Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); |
1315 | /* 452 */ |
1316 | EXTERN int (Tcl_Interp *interp, int index, |
1317 | Tcl_Obj *pathPtr, Tcl_Obj *objPtr); |
1318 | /* 453 */ |
1319 | EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, |
1320 | Tcl_Obj **objPtrRef); |
1321 | /* 454 */ |
1322 | EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); |
1323 | /* 455 */ |
1324 | EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); |
1325 | /* 456 */ |
1326 | EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, |
1327 | Tcl_Obj *pathPtr, const char *modeString, |
1328 | int permissions); |
1329 | /* 457 */ |
1330 | EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); |
1331 | /* 458 */ |
1332 | EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); |
1333 | /* 459 */ |
1334 | EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, |
1335 | Tcl_Obj *pathPtr); |
1336 | /* 460 */ |
1337 | EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); |
1338 | /* 461 */ |
1339 | EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); |
1340 | /* 462 */ |
1341 | EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, |
1342 | Tcl_Obj *secondPtr); |
1343 | /* 463 */ |
1344 | EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, |
1345 | Tcl_Obj *pathPtr); |
1346 | /* 464 */ |
1347 | EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, |
1348 | Tcl_Obj *const objv[]); |
1349 | /* 465 */ |
1350 | EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, |
1351 | const Tcl_Filesystem *fsPtr); |
1352 | /* 466 */ |
1353 | EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, |
1354 | Tcl_Obj *pathPtr); |
1355 | /* 467 */ |
1356 | EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); |
1357 | /* 468 */ |
1358 | EXTERN Tcl_Obj * Tcl_FSNewNativePath( |
1359 | const Tcl_Filesystem *fromFilesystem, |
1360 | ClientData clientData); |
1361 | /* 469 */ |
1362 | EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); |
1363 | /* 470 */ |
1364 | EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); |
1365 | /* 471 */ |
1366 | EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); |
1367 | /* 472 */ |
1368 | EXTERN Tcl_Obj * Tcl_FSListVolumes(void); |
1369 | /* 473 */ |
1370 | EXTERN int Tcl_FSRegister(ClientData clientData, |
1371 | const Tcl_Filesystem *fsPtr); |
1372 | /* 474 */ |
1373 | EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr); |
1374 | /* 475 */ |
1375 | EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr); |
1376 | /* 476 */ |
1377 | EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, |
1378 | Tcl_Obj *pathPtr); |
1379 | /* 477 */ |
1380 | EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); |
1381 | /* 478 */ |
1382 | EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); |
1383 | /* 479 */ |
1384 | EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); |
1385 | /* 480 */ |
1386 | EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr); |
1387 | /* 481 */ |
1388 | EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, |
1389 | Tcl_Token *tokenPtr, int count); |
1390 | /* 482 */ |
1391 | EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); |
1392 | /* 483 */ |
1393 | EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, |
1394 | int flags, Tcl_CmdObjTraceProc *objProc, |
1395 | ClientData clientData, |
1396 | Tcl_CmdObjTraceDeleteProc *delProc); |
1397 | /* 484 */ |
1398 | EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, |
1399 | Tcl_CmdInfo *infoPtr); |
1400 | /* 485 */ |
1401 | EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, |
1402 | const Tcl_CmdInfo *infoPtr); |
1403 | /* 486 */ |
1404 | EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, |
1405 | const char *file, int line); |
1406 | /* 487 */ |
1407 | EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, |
1408 | Tcl_Obj *objPtr, Tcl_WideInt *widePtr); |
1409 | /* 488 */ |
1410 | EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); |
1411 | /* 489 */ |
1412 | EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, |
1413 | Tcl_WideInt wideValue); |
1414 | /* 490 */ |
1415 | EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); |
1416 | /* 491 */ |
1417 | EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, |
1418 | int mode); |
1419 | /* 492 */ |
1420 | EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); |
1421 | /* 493 */ |
1422 | EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( |
1423 | const Tcl_ChannelType *chanTypePtr); |
1424 | /* 494 */ |
1425 | EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, |
1426 | Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); |
1427 | /* 495 */ |
1428 | EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, |
1429 | Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); |
1430 | /* 496 */ |
1431 | EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, |
1432 | Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); |
1433 | /* 497 */ |
1434 | EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, |
1435 | int *sizePtr); |
1436 | /* 498 */ |
1437 | EXTERN 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 */ |
1442 | EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, |
1443 | Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, |
1444 | int *donePtr); |
1445 | /* 500 */ |
1446 | EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); |
1447 | /* 501 */ |
1448 | EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, |
1449 | Tcl_Obj *dictPtr, int keyc, |
1450 | Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); |
1451 | /* 502 */ |
1452 | EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, |
1453 | Tcl_Obj *dictPtr, int keyc, |
1454 | Tcl_Obj *const *keyv); |
1455 | /* 503 */ |
1456 | EXTERN Tcl_Obj * Tcl_NewDictObj(void); |
1457 | /* 504 */ |
1458 | EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line); |
1459 | /* 505 */ |
1460 | EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, |
1461 | const char *pkgName, |
1462 | const Tcl_Config *configuration, |
1463 | const char *valEncoding); |
1464 | /* 506 */ |
1465 | EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, |
1466 | const char *name, ClientData clientData, |
1467 | Tcl_NamespaceDeleteProc *deleteProc); |
1468 | /* 507 */ |
1469 | EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); |
1470 | /* 508 */ |
1471 | EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, |
1472 | Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); |
1473 | /* 509 */ |
1474 | EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, |
1475 | const char *pattern, int resetListFirst); |
1476 | /* 510 */ |
1477 | EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, |
1478 | const char *pattern, int allowOverwrite); |
1479 | /* 511 */ |
1480 | EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, |
1481 | Tcl_Namespace *nsPtr, const char *pattern); |
1482 | /* 512 */ |
1483 | EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); |
1484 | /* 513 */ |
1485 | EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); |
1486 | /* 514 */ |
1487 | EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, |
1488 | const char *name, |
1489 | Tcl_Namespace *contextNsPtr, int flags); |
1490 | /* 515 */ |
1491 | EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, |
1492 | Tcl_Namespace *contextNsPtr, int flags); |
1493 | /* 516 */ |
1494 | EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, |
1495 | Tcl_Obj *objPtr); |
1496 | /* 517 */ |
1497 | EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, |
1498 | Tcl_Command command, Tcl_Obj *objPtr); |
1499 | /* 518 */ |
1500 | EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, |
1501 | Tcl_Obj *fileName, const char *encodingName); |
1502 | /* 519 */ |
1503 | EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc); |
1504 | /* 520 */ |
1505 | EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, |
1506 | Tcl_LimitHandlerProc *handlerProc, |
1507 | ClientData clientData, |
1508 | Tcl_LimitHandlerDeleteProc *deleteProc); |
1509 | /* 521 */ |
1510 | EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, |
1511 | Tcl_LimitHandlerProc *handlerProc, |
1512 | ClientData clientData); |
1513 | /* 522 */ |
1514 | EXTERN int Tcl_LimitReady(Tcl_Interp *interp); |
1515 | /* 523 */ |
1516 | EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); |
1517 | /* 524 */ |
1518 | EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); |
1519 | /* 525 */ |
1520 | EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, |
1521 | int commandLimit); |
1522 | /* 526 */ |
1523 | EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, |
1524 | Tcl_Time *timeLimitPtr); |
1525 | /* 527 */ |
1526 | EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, |
1527 | int granularity); |
1528 | /* 528 */ |
1529 | EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); |
1530 | /* 529 */ |
1531 | EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); |
1532 | /* 530 */ |
1533 | EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); |
1534 | /* 531 */ |
1535 | EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); |
1536 | /* 532 */ |
1537 | EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); |
1538 | /* 533 */ |
1539 | EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, |
1540 | Tcl_Time *timeLimitPtr); |
1541 | /* 534 */ |
1542 | EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); |
1543 | /* 535 */ |
1544 | EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); |
1545 | /* 536 */ |
1546 | EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, |
1547 | Tcl_InterpState state); |
1548 | /* 537 */ |
1549 | EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); |
1550 | /* 538 */ |
1551 | EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, |
1552 | Tcl_Obj *options); |
1553 | /* 539 */ |
1554 | EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); |
1555 | /* 540 */ |
1556 | EXTERN int Tcl_IsEnsemble(Tcl_Command token); |
1557 | /* 541 */ |
1558 | EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, |
1559 | const char *name, |
1560 | Tcl_Namespace *namespacePtr, int flags); |
1561 | /* 542 */ |
1562 | EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, |
1563 | Tcl_Obj *cmdNameObj, int flags); |
1564 | /* 543 */ |
1565 | EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, |
1566 | Tcl_Command token, Tcl_Obj *subcmdList); |
1567 | /* 544 */ |
1568 | EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, |
1569 | Tcl_Command token, Tcl_Obj *mapDict); |
1570 | /* 545 */ |
1571 | EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, |
1572 | Tcl_Command token, Tcl_Obj *unknownList); |
1573 | /* 546 */ |
1574 | EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, |
1575 | Tcl_Command token, int flags); |
1576 | /* 547 */ |
1577 | EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, |
1578 | Tcl_Command token, Tcl_Obj **subcmdListPtr); |
1579 | /* 548 */ |
1580 | EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, |
1581 | Tcl_Command token, Tcl_Obj **mapDictPtr); |
1582 | /* 549 */ |
1583 | EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, |
1584 | Tcl_Command token, Tcl_Obj **unknownListPtr); |
1585 | /* 550 */ |
1586 | EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, |
1587 | Tcl_Command token, int *flagsPtr); |
1588 | /* 551 */ |
1589 | EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, |
1590 | Tcl_Command token, |
1591 | Tcl_Namespace **namespacePtrPtr); |
1592 | /* 552 */ |
1593 | EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, |
1594 | Tcl_ScaleTimeProc *scaleProc, |
1595 | ClientData clientData); |
1596 | /* 553 */ |
1597 | EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, |
1598 | Tcl_ScaleTimeProc **scaleProc, |
1599 | ClientData *clientData); |
1600 | /* 554 */ |
1601 | EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( |
1602 | const Tcl_ChannelType *chanTypePtr); |
1603 | /* 555 */ |
1604 | EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); |
1605 | /* 556 */ |
1606 | EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file, |
1607 | int line); |
1608 | /* 557 */ |
1609 | EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); |
1610 | /* 558 */ |
1611 | EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, |
1612 | Tcl_Obj *obj, mp_int *value); |
1613 | /* 559 */ |
1614 | EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, |
1615 | Tcl_Obj *obj, mp_int *value); |
1616 | /* 560 */ |
1617 | EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, |
1618 | Tcl_WideInt length); |
1619 | /* 561 */ |
1620 | EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( |
1621 | const Tcl_ChannelType *chanTypePtr); |
1622 | /* 562 */ |
1623 | EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, |
1624 | Tcl_Obj *msg); |
1625 | /* 563 */ |
1626 | EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, |
1627 | Tcl_Obj **msg); |
1628 | /* 564 */ |
1629 | EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); |
1630 | /* 565 */ |
1631 | EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); |
1632 | /* 566 */ |
1633 | EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, |
1634 | double initval, mp_int *toInit); |
1635 | /* 567 */ |
1636 | EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, |
1637 | Tcl_Namespace *nsPtr); |
1638 | /* 568 */ |
1639 | EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, |
1640 | Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); |
1641 | /* 569 */ |
1642 | EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, |
1643 | Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); |
1644 | /* 570 */ |
1645 | EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); |
1646 | /* 571 */ |
1647 | EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); |
1648 | /* 572 */ |
1649 | EXTERN const char * Tcl_GetEncodingNameFromEnvironment( |
1650 | Tcl_DString *bufPtr); |
1651 | /* 573 */ |
1652 | EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, |
1653 | const char *name, int objc, |
1654 | Tcl_Obj *const objv[], void *clientDataPtr); |
1655 | /* 574 */ |
1656 | EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, |
1657 | Tcl_Obj *objPtr); |
1658 | /* 575 */ |
1659 | EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, |
1660 | const char *bytes, int length, int limit, |
1661 | const char *ellipsis); |
1662 | /* 576 */ |
1663 | EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format, |
1664 | int objc, Tcl_Obj *const objv[]); |
1665 | /* 577 */ |
1666 | EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, |
1667 | Tcl_Obj *objPtr, const char *format, |
1668 | int objc, Tcl_Obj *const objv[]); |
1669 | /* 578 */ |
1670 | EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); |
1671 | /* 579 */ |
1672 | EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, |
1673 | const char *format, ...) TCL_FORMAT_PRINTF(2, 3); |
1674 | /* 580 */ |
1675 | EXTERN int Tcl_CancelEval(Tcl_Interp *interp, |
1676 | Tcl_Obj *resultObjPtr, ClientData clientData, |
1677 | int flags); |
1678 | /* 581 */ |
1679 | EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags); |
1680 | /* 582 */ |
1681 | EXTERN int Tcl_CreatePipe(Tcl_Interp *interp, |
1682 | Tcl_Channel *rchan, Tcl_Channel *wchan, |
1683 | int flags); |
1684 | /* 583 */ |
1685 | EXTERN 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 */ |
1691 | EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
1692 | int flags); |
1693 | /* 585 */ |
1694 | EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc, |
1695 | Tcl_Obj *const objv[], int flags); |
1696 | /* 586 */ |
1697 | EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd, |
1698 | int objc, Tcl_Obj *const objv[], int flags); |
1699 | /* 587 */ |
1700 | EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp, |
1701 | Tcl_NRPostProc *postProcPtr, |
1702 | ClientData data0, ClientData data1, |
1703 | ClientData data2, ClientData data3); |
1704 | /* 588 */ |
1705 | EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp, |
1706 | Tcl_ObjCmdProc *objProc, |
1707 | ClientData clientData, int objc, |
1708 | Tcl_Obj *const objv[]); |
1709 | /* 589 */ |
1710 | EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr); |
1711 | /* 590 */ |
1712 | EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr); |
1713 | /* 591 */ |
1714 | EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr); |
1715 | /* 592 */ |
1716 | EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr); |
1717 | /* 593 */ |
1718 | EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr); |
1719 | /* 594 */ |
1720 | EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr); |
1721 | /* 595 */ |
1722 | EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr); |
1723 | /* 596 */ |
1724 | EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr); |
1725 | /* 597 */ |
1726 | EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat( |
1727 | const Tcl_StatBuf *statPtr); |
1728 | /* 598 */ |
1729 | EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr); |
1730 | /* 599 */ |
1731 | EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr); |
1732 | /* 600 */ |
1733 | EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr); |
1734 | /* 601 */ |
1735 | EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr); |
1736 | /* 602 */ |
1737 | EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, |
1738 | Tcl_Command token, Tcl_Obj *paramList); |
1739 | /* 603 */ |
1740 | EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, |
1741 | Tcl_Command token, Tcl_Obj **paramListPtr); |
1742 | /* 604 */ |
1743 | EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp, |
1744 | const Tcl_ArgvInfo *argTable, int *objcPtr, |
1745 | Tcl_Obj *const *objv, Tcl_Obj ***remObjv); |
1746 | /* 605 */ |
1747 | EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp); |
1748 | /* 606 */ |
1749 | EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum); |
1750 | /* 607 */ |
1751 | EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp, |
1752 | int result, Tcl_Interp *targetInterp); |
1753 | /* 608 */ |
1754 | EXTERN int Tcl_InterpActive(Tcl_Interp *interp); |
1755 | /* 609 */ |
1756 | EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code); |
1757 | /* 610 */ |
1758 | EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format, |
1759 | Tcl_Obj *data, int level, |
1760 | Tcl_Obj *); |
1761 | /* 611 */ |
1762 | EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format, |
1763 | Tcl_Obj *data, int buffersize, |
1764 | Tcl_Obj *); |
1765 | /* 612 */ |
1766 | EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc, |
1767 | const unsigned char *buf, int len); |
1768 | /* 613 */ |
1769 | EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler, |
1770 | const unsigned char *buf, int len); |
1771 | /* 614 */ |
1772 | EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode, |
1773 | int format, int level, Tcl_Obj *dictObj, |
1774 | Tcl_ZlibStream *zshandle); |
1775 | /* 615 */ |
1776 | EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle); |
1777 | /* 616 */ |
1778 | EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle); |
1779 | /* 617 */ |
1780 | EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle); |
1781 | /* 618 */ |
1782 | EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle, |
1783 | Tcl_Obj *data, int flush); |
1784 | /* 619 */ |
1785 | EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle, |
1786 | Tcl_Obj *data, int count); |
1787 | /* 620 */ |
1788 | EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle); |
1789 | /* 621 */ |
1790 | EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle); |
1791 | /* 622 */ |
1792 | EXTERN void Tcl_SetStartupScript(Tcl_Obj *path, |
1793 | const char *encoding); |
1794 | /* 623 */ |
1795 | EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr); |
1796 | /* 624 */ |
1797 | EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, |
1798 | int flags); |
1799 | /* 625 */ |
1800 | EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
1801 | Tcl_Obj *resultPtr); |
1802 | /* 626 */ |
1803 | EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
1804 | int flags); |
1805 | /* 627 */ |
1806 | EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, |
1807 | const char *const symv[], int flags, |
1808 | void *procPtrs, Tcl_LoadHandle *handlePtr); |
1809 | /* 628 */ |
1810 | EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp, |
1811 | Tcl_LoadHandle handle, const char *symbol); |
1812 | /* 629 */ |
1813 | EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, |
1814 | Tcl_LoadHandle handlePtr); |
1815 | /* 630 */ |
1816 | EXTERN 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 */ |
1837 | EXTERN void TclUnusedStubEntry(void); |
1838 | |
1839 | typedef struct { |
1840 | const struct TclPlatStubs *tclPlatStubs; |
1841 | const struct TclIntStubs *tclIntStubs; |
1842 | const struct TclIntPlatStubs *tclIntPlatStubs; |
1843 | } TclStubHooks; |
1844 | |
1845 | typedef 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_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 *); /* 610 */ |
2484 | int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *); /* 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 | |
2524 | extern 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 | |