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