4 * Declarations of functions in the platform independent public Tcl API.
6 * Copyright (c) 1998-1999 by Scriptics Corporation.
8 * See the file "license.terms" for information on usage and redistribution
9 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 * RCS: @(#) $Id: tclDecls.h,v 1.130 2007/12/13 15:23:16 dgp Exp $
17 #undef TCL_STORAGE_CLASS
19 # define TCL_STORAGE_CLASS DLLEXPORT
22 # define TCL_STORAGE_CLASS
24 # define TCL_STORAGE_CLASS DLLIMPORT
29 * WARNING: This file is automatically generated by the tools/genStubs.tcl
30 * script. Any modifications to the function declarations below should be made
31 * in the generic/tcl.decls script.
34 /* !BEGIN!: Do not edit below this line. */
37 * Exported function declarations:
40 #ifndef Tcl_PkgProvideEx_TCL_DECLARED
41 #define Tcl_PkgProvideEx_TCL_DECLARED
43 EXTERN
int Tcl_PkgProvideEx (Tcl_Interp
* interp
,
44 CONST
char* name
, CONST
char* version
,
45 ClientData clientData
);
47 #ifndef Tcl_PkgRequireEx_TCL_DECLARED
48 #define Tcl_PkgRequireEx_TCL_DECLARED
50 EXTERN CONST84_RETURN
char * Tcl_PkgRequireEx (Tcl_Interp
* interp
,
51 CONST
char * name
, CONST
char * version
,
52 int exact
, ClientData
* clientDataPtr
);
54 #ifndef Tcl_Panic_TCL_DECLARED
55 #define Tcl_Panic_TCL_DECLARED
57 EXTERN
void Tcl_Panic (CONST
char * format
, ...);
59 #ifndef Tcl_Alloc_TCL_DECLARED
60 #define Tcl_Alloc_TCL_DECLARED
62 EXTERN
char * Tcl_Alloc (unsigned int size
);
64 #ifndef Tcl_Free_TCL_DECLARED
65 #define Tcl_Free_TCL_DECLARED
67 EXTERN
void Tcl_Free (char * ptr
);
69 #ifndef Tcl_Realloc_TCL_DECLARED
70 #define Tcl_Realloc_TCL_DECLARED
72 EXTERN
char * Tcl_Realloc (char * ptr
, unsigned int size
);
74 #ifndef Tcl_DbCkalloc_TCL_DECLARED
75 #define Tcl_DbCkalloc_TCL_DECLARED
77 EXTERN
char * Tcl_DbCkalloc (unsigned int size
, CONST
char * file
,
80 #ifndef Tcl_DbCkfree_TCL_DECLARED
81 #define Tcl_DbCkfree_TCL_DECLARED
83 EXTERN
int Tcl_DbCkfree (char * ptr
, CONST
char * file
,
86 #ifndef Tcl_DbCkrealloc_TCL_DECLARED
87 #define Tcl_DbCkrealloc_TCL_DECLARED
89 EXTERN
char * Tcl_DbCkrealloc (char * ptr
, unsigned int size
,
90 CONST
char * file
, int line
);
92 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
93 #ifndef Tcl_CreateFileHandler_TCL_DECLARED
94 #define Tcl_CreateFileHandler_TCL_DECLARED
96 EXTERN
void Tcl_CreateFileHandler (int fd
, int mask
,
97 Tcl_FileProc
* proc
, ClientData clientData
);
100 #ifdef MAC_OSX_TCL /* MACOSX */
101 #ifndef Tcl_CreateFileHandler_TCL_DECLARED
102 #define Tcl_CreateFileHandler_TCL_DECLARED
104 EXTERN
void Tcl_CreateFileHandler (int fd
, int mask
,
105 Tcl_FileProc
* proc
, ClientData clientData
);
108 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
109 #ifndef Tcl_DeleteFileHandler_TCL_DECLARED
110 #define Tcl_DeleteFileHandler_TCL_DECLARED
112 EXTERN
void Tcl_DeleteFileHandler (int fd
);
115 #ifdef MAC_OSX_TCL /* MACOSX */
116 #ifndef Tcl_DeleteFileHandler_TCL_DECLARED
117 #define Tcl_DeleteFileHandler_TCL_DECLARED
119 EXTERN
void Tcl_DeleteFileHandler (int fd
);
122 #ifndef Tcl_SetTimer_TCL_DECLARED
123 #define Tcl_SetTimer_TCL_DECLARED
125 EXTERN
void Tcl_SetTimer (Tcl_Time
* timePtr
);
127 #ifndef Tcl_Sleep_TCL_DECLARED
128 #define Tcl_Sleep_TCL_DECLARED
130 EXTERN
void Tcl_Sleep (int ms
);
132 #ifndef Tcl_WaitForEvent_TCL_DECLARED
133 #define Tcl_WaitForEvent_TCL_DECLARED
135 EXTERN
int Tcl_WaitForEvent (Tcl_Time
* timePtr
);
137 #ifndef Tcl_AppendAllObjTypes_TCL_DECLARED
138 #define Tcl_AppendAllObjTypes_TCL_DECLARED
140 EXTERN
int Tcl_AppendAllObjTypes (Tcl_Interp
* interp
,
143 #ifndef Tcl_AppendStringsToObj_TCL_DECLARED
144 #define Tcl_AppendStringsToObj_TCL_DECLARED
146 EXTERN
void Tcl_AppendStringsToObj (Tcl_Obj
* objPtr
, ...);
148 #ifndef Tcl_AppendToObj_TCL_DECLARED
149 #define Tcl_AppendToObj_TCL_DECLARED
151 EXTERN
void Tcl_AppendToObj (Tcl_Obj
* objPtr
, CONST
char* bytes
,
154 #ifndef Tcl_ConcatObj_TCL_DECLARED
155 #define Tcl_ConcatObj_TCL_DECLARED
157 EXTERN Tcl_Obj
* Tcl_ConcatObj (int objc
, Tcl_Obj
*CONST objv
[]);
159 #ifndef Tcl_ConvertToType_TCL_DECLARED
160 #define Tcl_ConvertToType_TCL_DECLARED
162 EXTERN
int Tcl_ConvertToType (Tcl_Interp
* interp
,
163 Tcl_Obj
* objPtr
, Tcl_ObjType
* typePtr
);
165 #ifndef Tcl_DbDecrRefCount_TCL_DECLARED
166 #define Tcl_DbDecrRefCount_TCL_DECLARED
168 EXTERN
void Tcl_DbDecrRefCount (Tcl_Obj
* objPtr
,
169 CONST
char * file
, int line
);
171 #ifndef Tcl_DbIncrRefCount_TCL_DECLARED
172 #define Tcl_DbIncrRefCount_TCL_DECLARED
174 EXTERN
void Tcl_DbIncrRefCount (Tcl_Obj
* objPtr
,
175 CONST
char * file
, int line
);
177 #ifndef Tcl_DbIsShared_TCL_DECLARED
178 #define Tcl_DbIsShared_TCL_DECLARED
180 EXTERN
int Tcl_DbIsShared (Tcl_Obj
* objPtr
, CONST
char * file
,
183 #ifndef Tcl_DbNewBooleanObj_TCL_DECLARED
184 #define Tcl_DbNewBooleanObj_TCL_DECLARED
186 EXTERN Tcl_Obj
* Tcl_DbNewBooleanObj (int boolValue
,
187 CONST
char * file
, int line
);
189 #ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED
190 #define Tcl_DbNewByteArrayObj_TCL_DECLARED
192 EXTERN Tcl_Obj
* Tcl_DbNewByteArrayObj (CONST
unsigned char * bytes
,
193 int length
, CONST
char * file
, int line
);
195 #ifndef Tcl_DbNewDoubleObj_TCL_DECLARED
196 #define Tcl_DbNewDoubleObj_TCL_DECLARED
198 EXTERN Tcl_Obj
* Tcl_DbNewDoubleObj (double doubleValue
,
199 CONST
char * file
, int line
);
201 #ifndef Tcl_DbNewListObj_TCL_DECLARED
202 #define Tcl_DbNewListObj_TCL_DECLARED
204 EXTERN Tcl_Obj
* Tcl_DbNewListObj (int objc
, Tcl_Obj
*CONST
* objv
,
205 CONST
char * file
, int line
);
207 #ifndef Tcl_DbNewLongObj_TCL_DECLARED
208 #define Tcl_DbNewLongObj_TCL_DECLARED
210 EXTERN Tcl_Obj
* Tcl_DbNewLongObj (long longValue
, CONST
char * file
,
213 #ifndef Tcl_DbNewObj_TCL_DECLARED
214 #define Tcl_DbNewObj_TCL_DECLARED
216 EXTERN Tcl_Obj
* Tcl_DbNewObj (CONST
char * file
, int line
);
218 #ifndef Tcl_DbNewStringObj_TCL_DECLARED
219 #define Tcl_DbNewStringObj_TCL_DECLARED
221 EXTERN Tcl_Obj
* Tcl_DbNewStringObj (CONST
char * bytes
, int length
,
222 CONST
char * file
, int line
);
224 #ifndef Tcl_DuplicateObj_TCL_DECLARED
225 #define Tcl_DuplicateObj_TCL_DECLARED
227 EXTERN Tcl_Obj
* Tcl_DuplicateObj (Tcl_Obj
* objPtr
);
229 #ifndef TclFreeObj_TCL_DECLARED
230 #define TclFreeObj_TCL_DECLARED
232 EXTERN
void TclFreeObj (Tcl_Obj
* objPtr
);
234 #ifndef Tcl_GetBoolean_TCL_DECLARED
235 #define Tcl_GetBoolean_TCL_DECLARED
237 EXTERN
int Tcl_GetBoolean (Tcl_Interp
* interp
,
238 CONST
char * src
, int * boolPtr
);
240 #ifndef Tcl_GetBooleanFromObj_TCL_DECLARED
241 #define Tcl_GetBooleanFromObj_TCL_DECLARED
243 EXTERN
int Tcl_GetBooleanFromObj (Tcl_Interp
* interp
,
244 Tcl_Obj
* objPtr
, int * boolPtr
);
246 #ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED
247 #define Tcl_GetByteArrayFromObj_TCL_DECLARED
249 EXTERN
unsigned char * Tcl_GetByteArrayFromObj (Tcl_Obj
* objPtr
,
252 #ifndef Tcl_GetDouble_TCL_DECLARED
253 #define Tcl_GetDouble_TCL_DECLARED
255 EXTERN
int Tcl_GetDouble (Tcl_Interp
* interp
, CONST
char * src
,
258 #ifndef Tcl_GetDoubleFromObj_TCL_DECLARED
259 #define Tcl_GetDoubleFromObj_TCL_DECLARED
261 EXTERN
int Tcl_GetDoubleFromObj (Tcl_Interp
* interp
,
262 Tcl_Obj
* objPtr
, double * doublePtr
);
264 #ifndef Tcl_GetIndexFromObj_TCL_DECLARED
265 #define Tcl_GetIndexFromObj_TCL_DECLARED
267 EXTERN
int Tcl_GetIndexFromObj (Tcl_Interp
* interp
,
268 Tcl_Obj
* objPtr
, CONST84
char ** tablePtr
,
269 CONST
char * msg
, int flags
, int * indexPtr
);
271 #ifndef Tcl_GetInt_TCL_DECLARED
272 #define Tcl_GetInt_TCL_DECLARED
274 EXTERN
int Tcl_GetInt (Tcl_Interp
* interp
, CONST
char * src
,
277 #ifndef Tcl_GetIntFromObj_TCL_DECLARED
278 #define Tcl_GetIntFromObj_TCL_DECLARED
280 EXTERN
int Tcl_GetIntFromObj (Tcl_Interp
* interp
,
281 Tcl_Obj
* objPtr
, int * intPtr
);
283 #ifndef Tcl_GetLongFromObj_TCL_DECLARED
284 #define Tcl_GetLongFromObj_TCL_DECLARED
286 EXTERN
int Tcl_GetLongFromObj (Tcl_Interp
* interp
,
287 Tcl_Obj
* objPtr
, long * longPtr
);
289 #ifndef Tcl_GetObjType_TCL_DECLARED
290 #define Tcl_GetObjType_TCL_DECLARED
292 EXTERN Tcl_ObjType
* Tcl_GetObjType (CONST
char * typeName
);
294 #ifndef Tcl_GetStringFromObj_TCL_DECLARED
295 #define Tcl_GetStringFromObj_TCL_DECLARED
297 EXTERN
char * Tcl_GetStringFromObj (Tcl_Obj
* objPtr
,
300 #ifndef Tcl_InvalidateStringRep_TCL_DECLARED
301 #define Tcl_InvalidateStringRep_TCL_DECLARED
303 EXTERN
void Tcl_InvalidateStringRep (Tcl_Obj
* objPtr
);
305 #ifndef Tcl_ListObjAppendList_TCL_DECLARED
306 #define Tcl_ListObjAppendList_TCL_DECLARED
308 EXTERN
int Tcl_ListObjAppendList (Tcl_Interp
* interp
,
309 Tcl_Obj
* listPtr
, Tcl_Obj
* elemListPtr
);
311 #ifndef Tcl_ListObjAppendElement_TCL_DECLARED
312 #define Tcl_ListObjAppendElement_TCL_DECLARED
314 EXTERN
int Tcl_ListObjAppendElement (Tcl_Interp
* interp
,
315 Tcl_Obj
* listPtr
, Tcl_Obj
* objPtr
);
317 #ifndef Tcl_ListObjGetElements_TCL_DECLARED
318 #define Tcl_ListObjGetElements_TCL_DECLARED
320 EXTERN
int Tcl_ListObjGetElements (Tcl_Interp
* interp
,
321 Tcl_Obj
* listPtr
, int * objcPtr
,
322 Tcl_Obj
*** objvPtr
);
324 #ifndef Tcl_ListObjIndex_TCL_DECLARED
325 #define Tcl_ListObjIndex_TCL_DECLARED
327 EXTERN
int Tcl_ListObjIndex (Tcl_Interp
* interp
,
328 Tcl_Obj
* listPtr
, int index
,
329 Tcl_Obj
** objPtrPtr
);
331 #ifndef Tcl_ListObjLength_TCL_DECLARED
332 #define Tcl_ListObjLength_TCL_DECLARED
334 EXTERN
int Tcl_ListObjLength (Tcl_Interp
* interp
,
335 Tcl_Obj
* listPtr
, int * lengthPtr
);
337 #ifndef Tcl_ListObjReplace_TCL_DECLARED
338 #define Tcl_ListObjReplace_TCL_DECLARED
340 EXTERN
int Tcl_ListObjReplace (Tcl_Interp
* interp
,
341 Tcl_Obj
* listPtr
, int first
, int count
,
342 int objc
, Tcl_Obj
*CONST objv
[]);
344 #ifndef Tcl_NewBooleanObj_TCL_DECLARED
345 #define Tcl_NewBooleanObj_TCL_DECLARED
347 EXTERN Tcl_Obj
* Tcl_NewBooleanObj (int boolValue
);
349 #ifndef Tcl_NewByteArrayObj_TCL_DECLARED
350 #define Tcl_NewByteArrayObj_TCL_DECLARED
352 EXTERN Tcl_Obj
* Tcl_NewByteArrayObj (CONST
unsigned char* bytes
,
355 #ifndef Tcl_NewDoubleObj_TCL_DECLARED
356 #define Tcl_NewDoubleObj_TCL_DECLARED
358 EXTERN Tcl_Obj
* Tcl_NewDoubleObj (double doubleValue
);
360 #ifndef Tcl_NewIntObj_TCL_DECLARED
361 #define Tcl_NewIntObj_TCL_DECLARED
363 EXTERN Tcl_Obj
* Tcl_NewIntObj (int intValue
);
365 #ifndef Tcl_NewListObj_TCL_DECLARED
366 #define Tcl_NewListObj_TCL_DECLARED
368 EXTERN Tcl_Obj
* Tcl_NewListObj (int objc
, Tcl_Obj
*CONST objv
[]);
370 #ifndef Tcl_NewLongObj_TCL_DECLARED
371 #define Tcl_NewLongObj_TCL_DECLARED
373 EXTERN Tcl_Obj
* Tcl_NewLongObj (long longValue
);
375 #ifndef Tcl_NewObj_TCL_DECLARED
376 #define Tcl_NewObj_TCL_DECLARED
378 EXTERN Tcl_Obj
* Tcl_NewObj (void);
380 #ifndef Tcl_NewStringObj_TCL_DECLARED
381 #define Tcl_NewStringObj_TCL_DECLARED
383 EXTERN Tcl_Obj
* Tcl_NewStringObj (CONST
char * bytes
, int length
);
385 #ifndef Tcl_SetBooleanObj_TCL_DECLARED
386 #define Tcl_SetBooleanObj_TCL_DECLARED
388 EXTERN
void Tcl_SetBooleanObj (Tcl_Obj
* objPtr
, int boolValue
);
390 #ifndef Tcl_SetByteArrayLength_TCL_DECLARED
391 #define Tcl_SetByteArrayLength_TCL_DECLARED
393 EXTERN
unsigned char * Tcl_SetByteArrayLength (Tcl_Obj
* objPtr
, int length
);
395 #ifndef Tcl_SetByteArrayObj_TCL_DECLARED
396 #define Tcl_SetByteArrayObj_TCL_DECLARED
398 EXTERN
void Tcl_SetByteArrayObj (Tcl_Obj
* objPtr
,
399 CONST
unsigned char * bytes
, int length
);
401 #ifndef Tcl_SetDoubleObj_TCL_DECLARED
402 #define Tcl_SetDoubleObj_TCL_DECLARED
404 EXTERN
void Tcl_SetDoubleObj (Tcl_Obj
* objPtr
,
407 #ifndef Tcl_SetIntObj_TCL_DECLARED
408 #define Tcl_SetIntObj_TCL_DECLARED
410 EXTERN
void Tcl_SetIntObj (Tcl_Obj
* objPtr
, int intValue
);
412 #ifndef Tcl_SetListObj_TCL_DECLARED
413 #define Tcl_SetListObj_TCL_DECLARED
415 EXTERN
void Tcl_SetListObj (Tcl_Obj
* objPtr
, int objc
,
416 Tcl_Obj
*CONST objv
[]);
418 #ifndef Tcl_SetLongObj_TCL_DECLARED
419 #define Tcl_SetLongObj_TCL_DECLARED
421 EXTERN
void Tcl_SetLongObj (Tcl_Obj
* objPtr
, long longValue
);
423 #ifndef Tcl_SetObjLength_TCL_DECLARED
424 #define Tcl_SetObjLength_TCL_DECLARED
426 EXTERN
void Tcl_SetObjLength (Tcl_Obj
* objPtr
, int length
);
428 #ifndef Tcl_SetStringObj_TCL_DECLARED
429 #define Tcl_SetStringObj_TCL_DECLARED
431 EXTERN
void Tcl_SetStringObj (Tcl_Obj
* objPtr
, CONST
char* bytes
,
434 #ifndef Tcl_AddErrorInfo_TCL_DECLARED
435 #define Tcl_AddErrorInfo_TCL_DECLARED
437 EXTERN
void Tcl_AddErrorInfo (Tcl_Interp
* interp
,
438 CONST
char * message
);
440 #ifndef Tcl_AddObjErrorInfo_TCL_DECLARED
441 #define Tcl_AddObjErrorInfo_TCL_DECLARED
443 EXTERN
void Tcl_AddObjErrorInfo (Tcl_Interp
* interp
,
444 CONST
char * message
, int length
);
446 #ifndef Tcl_AllowExceptions_TCL_DECLARED
447 #define Tcl_AllowExceptions_TCL_DECLARED
449 EXTERN
void Tcl_AllowExceptions (Tcl_Interp
* interp
);
451 #ifndef Tcl_AppendElement_TCL_DECLARED
452 #define Tcl_AppendElement_TCL_DECLARED
454 EXTERN
void Tcl_AppendElement (Tcl_Interp
* interp
,
455 CONST
char * element
);
457 #ifndef Tcl_AppendResult_TCL_DECLARED
458 #define Tcl_AppendResult_TCL_DECLARED
460 EXTERN
void Tcl_AppendResult (Tcl_Interp
* interp
, ...);
462 #ifndef Tcl_AsyncCreate_TCL_DECLARED
463 #define Tcl_AsyncCreate_TCL_DECLARED
465 EXTERN Tcl_AsyncHandler
Tcl_AsyncCreate (Tcl_AsyncProc
* proc
,
466 ClientData clientData
);
468 #ifndef Tcl_AsyncDelete_TCL_DECLARED
469 #define Tcl_AsyncDelete_TCL_DECLARED
471 EXTERN
void Tcl_AsyncDelete (Tcl_AsyncHandler async
);
473 #ifndef Tcl_AsyncInvoke_TCL_DECLARED
474 #define Tcl_AsyncInvoke_TCL_DECLARED
476 EXTERN
int Tcl_AsyncInvoke (Tcl_Interp
* interp
, int code
);
478 #ifndef Tcl_AsyncMark_TCL_DECLARED
479 #define Tcl_AsyncMark_TCL_DECLARED
481 EXTERN
void Tcl_AsyncMark (Tcl_AsyncHandler async
);
483 #ifndef Tcl_AsyncReady_TCL_DECLARED
484 #define Tcl_AsyncReady_TCL_DECLARED
486 EXTERN
int Tcl_AsyncReady (void);
488 #ifndef Tcl_BackgroundError_TCL_DECLARED
489 #define Tcl_BackgroundError_TCL_DECLARED
491 EXTERN
void Tcl_BackgroundError (Tcl_Interp
* interp
);
493 #ifndef Tcl_Backslash_TCL_DECLARED
494 #define Tcl_Backslash_TCL_DECLARED
496 EXTERN
char Tcl_Backslash (CONST
char * src
, int * readPtr
);
498 #ifndef Tcl_BadChannelOption_TCL_DECLARED
499 #define Tcl_BadChannelOption_TCL_DECLARED
501 EXTERN
int Tcl_BadChannelOption (Tcl_Interp
* interp
,
502 CONST
char * optionName
,
503 CONST
char * optionList
);
505 #ifndef Tcl_CallWhenDeleted_TCL_DECLARED
506 #define Tcl_CallWhenDeleted_TCL_DECLARED
508 EXTERN
void Tcl_CallWhenDeleted (Tcl_Interp
* interp
,
509 Tcl_InterpDeleteProc
* proc
,
510 ClientData clientData
);
512 #ifndef Tcl_CancelIdleCall_TCL_DECLARED
513 #define Tcl_CancelIdleCall_TCL_DECLARED
515 EXTERN
void Tcl_CancelIdleCall (Tcl_IdleProc
* idleProc
,
516 ClientData clientData
);
518 #ifndef Tcl_Close_TCL_DECLARED
519 #define Tcl_Close_TCL_DECLARED
521 EXTERN
int Tcl_Close (Tcl_Interp
* interp
, Tcl_Channel chan
);
523 #ifndef Tcl_CommandComplete_TCL_DECLARED
524 #define Tcl_CommandComplete_TCL_DECLARED
526 EXTERN
int Tcl_CommandComplete (CONST
char * cmd
);
528 #ifndef Tcl_Concat_TCL_DECLARED
529 #define Tcl_Concat_TCL_DECLARED
531 EXTERN
char * Tcl_Concat (int argc
, CONST84
char * CONST
* argv
);
533 #ifndef Tcl_ConvertElement_TCL_DECLARED
534 #define Tcl_ConvertElement_TCL_DECLARED
536 EXTERN
int Tcl_ConvertElement (CONST
char * src
, char * dst
,
539 #ifndef Tcl_ConvertCountedElement_TCL_DECLARED
540 #define Tcl_ConvertCountedElement_TCL_DECLARED
542 EXTERN
int Tcl_ConvertCountedElement (CONST
char * src
,
543 int length
, char * dst
, int flags
);
545 #ifndef Tcl_CreateAlias_TCL_DECLARED
546 #define Tcl_CreateAlias_TCL_DECLARED
548 EXTERN
int Tcl_CreateAlias (Tcl_Interp
* slave
,
549 CONST
char * slaveCmd
, Tcl_Interp
* target
,
550 CONST
char * targetCmd
, int argc
,
551 CONST84
char * CONST
* argv
);
553 #ifndef Tcl_CreateAliasObj_TCL_DECLARED
554 #define Tcl_CreateAliasObj_TCL_DECLARED
556 EXTERN
int Tcl_CreateAliasObj (Tcl_Interp
* slave
,
557 CONST
char * slaveCmd
, Tcl_Interp
* target
,
558 CONST
char * targetCmd
, int objc
,
559 Tcl_Obj
*CONST objv
[]);
561 #ifndef Tcl_CreateChannel_TCL_DECLARED
562 #define Tcl_CreateChannel_TCL_DECLARED
564 EXTERN Tcl_Channel
Tcl_CreateChannel (Tcl_ChannelType
* typePtr
,
565 CONST
char * chanName
,
566 ClientData instanceData
, int mask
);
568 #ifndef Tcl_CreateChannelHandler_TCL_DECLARED
569 #define Tcl_CreateChannelHandler_TCL_DECLARED
571 EXTERN
void Tcl_CreateChannelHandler (Tcl_Channel chan
, int mask
,
572 Tcl_ChannelProc
* proc
,
573 ClientData clientData
);
575 #ifndef Tcl_CreateCloseHandler_TCL_DECLARED
576 #define Tcl_CreateCloseHandler_TCL_DECLARED
578 EXTERN
void Tcl_CreateCloseHandler (Tcl_Channel chan
,
579 Tcl_CloseProc
* proc
, ClientData clientData
);
581 #ifndef Tcl_CreateCommand_TCL_DECLARED
582 #define Tcl_CreateCommand_TCL_DECLARED
584 EXTERN Tcl_Command
Tcl_CreateCommand (Tcl_Interp
* interp
,
585 CONST
char * cmdName
, Tcl_CmdProc
* proc
,
586 ClientData clientData
,
587 Tcl_CmdDeleteProc
* deleteProc
);
589 #ifndef Tcl_CreateEventSource_TCL_DECLARED
590 #define Tcl_CreateEventSource_TCL_DECLARED
592 EXTERN
void Tcl_CreateEventSource (
593 Tcl_EventSetupProc
* setupProc
,
594 Tcl_EventCheckProc
* checkProc
,
595 ClientData clientData
);
597 #ifndef Tcl_CreateExitHandler_TCL_DECLARED
598 #define Tcl_CreateExitHandler_TCL_DECLARED
600 EXTERN
void Tcl_CreateExitHandler (Tcl_ExitProc
* proc
,
601 ClientData clientData
);
603 #ifndef Tcl_CreateInterp_TCL_DECLARED
604 #define Tcl_CreateInterp_TCL_DECLARED
606 EXTERN Tcl_Interp
* Tcl_CreateInterp (void);
608 #ifndef Tcl_CreateMathFunc_TCL_DECLARED
609 #define Tcl_CreateMathFunc_TCL_DECLARED
611 EXTERN
void Tcl_CreateMathFunc (Tcl_Interp
* interp
,
612 CONST
char * name
, int numArgs
,
613 Tcl_ValueType
* argTypes
,
614 Tcl_MathProc
* proc
, ClientData clientData
);
616 #ifndef Tcl_CreateObjCommand_TCL_DECLARED
617 #define Tcl_CreateObjCommand_TCL_DECLARED
619 EXTERN Tcl_Command
Tcl_CreateObjCommand (Tcl_Interp
* interp
,
620 CONST
char * cmdName
, Tcl_ObjCmdProc
* proc
,
621 ClientData clientData
,
622 Tcl_CmdDeleteProc
* deleteProc
);
624 #ifndef Tcl_CreateSlave_TCL_DECLARED
625 #define Tcl_CreateSlave_TCL_DECLARED
627 EXTERN Tcl_Interp
* Tcl_CreateSlave (Tcl_Interp
* interp
,
628 CONST
char * slaveName
, int isSafe
);
630 #ifndef Tcl_CreateTimerHandler_TCL_DECLARED
631 #define Tcl_CreateTimerHandler_TCL_DECLARED
633 EXTERN Tcl_TimerToken
Tcl_CreateTimerHandler (int milliseconds
,
634 Tcl_TimerProc
* proc
, ClientData clientData
);
636 #ifndef Tcl_CreateTrace_TCL_DECLARED
637 #define Tcl_CreateTrace_TCL_DECLARED
639 EXTERN Tcl_Trace
Tcl_CreateTrace (Tcl_Interp
* interp
, int level
,
640 Tcl_CmdTraceProc
* proc
,
641 ClientData clientData
);
643 #ifndef Tcl_DeleteAssocData_TCL_DECLARED
644 #define Tcl_DeleteAssocData_TCL_DECLARED
646 EXTERN
void Tcl_DeleteAssocData (Tcl_Interp
* interp
,
649 #ifndef Tcl_DeleteChannelHandler_TCL_DECLARED
650 #define Tcl_DeleteChannelHandler_TCL_DECLARED
652 EXTERN
void Tcl_DeleteChannelHandler (Tcl_Channel chan
,
653 Tcl_ChannelProc
* proc
,
654 ClientData clientData
);
656 #ifndef Tcl_DeleteCloseHandler_TCL_DECLARED
657 #define Tcl_DeleteCloseHandler_TCL_DECLARED
659 EXTERN
void Tcl_DeleteCloseHandler (Tcl_Channel chan
,
660 Tcl_CloseProc
* proc
, ClientData clientData
);
662 #ifndef Tcl_DeleteCommand_TCL_DECLARED
663 #define Tcl_DeleteCommand_TCL_DECLARED
665 EXTERN
int Tcl_DeleteCommand (Tcl_Interp
* interp
,
666 CONST
char * cmdName
);
668 #ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED
669 #define Tcl_DeleteCommandFromToken_TCL_DECLARED
671 EXTERN
int Tcl_DeleteCommandFromToken (Tcl_Interp
* interp
,
672 Tcl_Command command
);
674 #ifndef Tcl_DeleteEvents_TCL_DECLARED
675 #define Tcl_DeleteEvents_TCL_DECLARED
677 EXTERN
void Tcl_DeleteEvents (Tcl_EventDeleteProc
* proc
,
678 ClientData clientData
);
680 #ifndef Tcl_DeleteEventSource_TCL_DECLARED
681 #define Tcl_DeleteEventSource_TCL_DECLARED
683 EXTERN
void Tcl_DeleteEventSource (
684 Tcl_EventSetupProc
* setupProc
,
685 Tcl_EventCheckProc
* checkProc
,
686 ClientData clientData
);
688 #ifndef Tcl_DeleteExitHandler_TCL_DECLARED
689 #define Tcl_DeleteExitHandler_TCL_DECLARED
691 EXTERN
void Tcl_DeleteExitHandler (Tcl_ExitProc
* proc
,
692 ClientData clientData
);
694 #ifndef Tcl_DeleteHashEntry_TCL_DECLARED
695 #define Tcl_DeleteHashEntry_TCL_DECLARED
697 EXTERN
void Tcl_DeleteHashEntry (Tcl_HashEntry
* entryPtr
);
699 #ifndef Tcl_DeleteHashTable_TCL_DECLARED
700 #define Tcl_DeleteHashTable_TCL_DECLARED
702 EXTERN
void Tcl_DeleteHashTable (Tcl_HashTable
* tablePtr
);
704 #ifndef Tcl_DeleteInterp_TCL_DECLARED
705 #define Tcl_DeleteInterp_TCL_DECLARED
707 EXTERN
void Tcl_DeleteInterp (Tcl_Interp
* interp
);
709 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
710 #ifndef Tcl_DetachPids_TCL_DECLARED
711 #define Tcl_DetachPids_TCL_DECLARED
713 EXTERN
void Tcl_DetachPids (int numPids
, Tcl_Pid
* pidPtr
);
716 #ifdef __WIN32__ /* WIN */
717 #ifndef Tcl_DetachPids_TCL_DECLARED
718 #define Tcl_DetachPids_TCL_DECLARED
720 EXTERN
void Tcl_DetachPids (int numPids
, Tcl_Pid
* pidPtr
);
723 #ifdef MAC_OSX_TCL /* MACOSX */
724 #ifndef Tcl_DetachPids_TCL_DECLARED
725 #define Tcl_DetachPids_TCL_DECLARED
727 EXTERN
void Tcl_DetachPids (int numPids
, Tcl_Pid
* pidPtr
);
730 #ifndef Tcl_DeleteTimerHandler_TCL_DECLARED
731 #define Tcl_DeleteTimerHandler_TCL_DECLARED
733 EXTERN
void Tcl_DeleteTimerHandler (Tcl_TimerToken token
);
735 #ifndef Tcl_DeleteTrace_TCL_DECLARED
736 #define Tcl_DeleteTrace_TCL_DECLARED
738 EXTERN
void Tcl_DeleteTrace (Tcl_Interp
* interp
,
741 #ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED
742 #define Tcl_DontCallWhenDeleted_TCL_DECLARED
744 EXTERN
void Tcl_DontCallWhenDeleted (Tcl_Interp
* interp
,
745 Tcl_InterpDeleteProc
* proc
,
746 ClientData clientData
);
748 #ifndef Tcl_DoOneEvent_TCL_DECLARED
749 #define Tcl_DoOneEvent_TCL_DECLARED
751 EXTERN
int Tcl_DoOneEvent (int flags
);
753 #ifndef Tcl_DoWhenIdle_TCL_DECLARED
754 #define Tcl_DoWhenIdle_TCL_DECLARED
756 EXTERN
void Tcl_DoWhenIdle (Tcl_IdleProc
* proc
,
757 ClientData clientData
);
759 #ifndef Tcl_DStringAppend_TCL_DECLARED
760 #define Tcl_DStringAppend_TCL_DECLARED
762 EXTERN
char * Tcl_DStringAppend (Tcl_DString
* dsPtr
,
763 CONST
char * bytes
, int length
);
765 #ifndef Tcl_DStringAppendElement_TCL_DECLARED
766 #define Tcl_DStringAppendElement_TCL_DECLARED
768 EXTERN
char * Tcl_DStringAppendElement (Tcl_DString
* dsPtr
,
769 CONST
char * element
);
771 #ifndef Tcl_DStringEndSublist_TCL_DECLARED
772 #define Tcl_DStringEndSublist_TCL_DECLARED
774 EXTERN
void Tcl_DStringEndSublist (Tcl_DString
* dsPtr
);
776 #ifndef Tcl_DStringFree_TCL_DECLARED
777 #define Tcl_DStringFree_TCL_DECLARED
779 EXTERN
void Tcl_DStringFree (Tcl_DString
* dsPtr
);
781 #ifndef Tcl_DStringGetResult_TCL_DECLARED
782 #define Tcl_DStringGetResult_TCL_DECLARED
784 EXTERN
void Tcl_DStringGetResult (Tcl_Interp
* interp
,
785 Tcl_DString
* dsPtr
);
787 #ifndef Tcl_DStringInit_TCL_DECLARED
788 #define Tcl_DStringInit_TCL_DECLARED
790 EXTERN
void Tcl_DStringInit (Tcl_DString
* dsPtr
);
792 #ifndef Tcl_DStringResult_TCL_DECLARED
793 #define Tcl_DStringResult_TCL_DECLARED
795 EXTERN
void Tcl_DStringResult (Tcl_Interp
* interp
,
796 Tcl_DString
* dsPtr
);
798 #ifndef Tcl_DStringSetLength_TCL_DECLARED
799 #define Tcl_DStringSetLength_TCL_DECLARED
801 EXTERN
void Tcl_DStringSetLength (Tcl_DString
* dsPtr
,
804 #ifndef Tcl_DStringStartSublist_TCL_DECLARED
805 #define Tcl_DStringStartSublist_TCL_DECLARED
807 EXTERN
void Tcl_DStringStartSublist (Tcl_DString
* dsPtr
);
809 #ifndef Tcl_Eof_TCL_DECLARED
810 #define Tcl_Eof_TCL_DECLARED
812 EXTERN
int Tcl_Eof (Tcl_Channel chan
);
814 #ifndef Tcl_ErrnoId_TCL_DECLARED
815 #define Tcl_ErrnoId_TCL_DECLARED
817 EXTERN CONST84_RETURN
char * Tcl_ErrnoId (void);
819 #ifndef Tcl_ErrnoMsg_TCL_DECLARED
820 #define Tcl_ErrnoMsg_TCL_DECLARED
822 EXTERN CONST84_RETURN
char * Tcl_ErrnoMsg (int err
);
824 #ifndef Tcl_Eval_TCL_DECLARED
825 #define Tcl_Eval_TCL_DECLARED
827 EXTERN
int Tcl_Eval (Tcl_Interp
* interp
, CONST
char * script
);
829 #ifndef Tcl_EvalFile_TCL_DECLARED
830 #define Tcl_EvalFile_TCL_DECLARED
832 EXTERN
int Tcl_EvalFile (Tcl_Interp
* interp
,
833 CONST
char * fileName
);
835 #ifndef Tcl_EvalObj_TCL_DECLARED
836 #define Tcl_EvalObj_TCL_DECLARED
838 EXTERN
int Tcl_EvalObj (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
);
840 #ifndef Tcl_EventuallyFree_TCL_DECLARED
841 #define Tcl_EventuallyFree_TCL_DECLARED
843 EXTERN
void Tcl_EventuallyFree (ClientData clientData
,
844 Tcl_FreeProc
* freeProc
);
846 #ifndef Tcl_Exit_TCL_DECLARED
847 #define Tcl_Exit_TCL_DECLARED
849 EXTERN
void Tcl_Exit (int status
);
851 #ifndef Tcl_ExposeCommand_TCL_DECLARED
852 #define Tcl_ExposeCommand_TCL_DECLARED
854 EXTERN
int Tcl_ExposeCommand (Tcl_Interp
* interp
,
855 CONST
char * hiddenCmdToken
,
856 CONST
char * cmdName
);
858 #ifndef Tcl_ExprBoolean_TCL_DECLARED
859 #define Tcl_ExprBoolean_TCL_DECLARED
861 EXTERN
int Tcl_ExprBoolean (Tcl_Interp
* interp
,
862 CONST
char * expr
, int * ptr
);
864 #ifndef Tcl_ExprBooleanObj_TCL_DECLARED
865 #define Tcl_ExprBooleanObj_TCL_DECLARED
867 EXTERN
int Tcl_ExprBooleanObj (Tcl_Interp
* interp
,
868 Tcl_Obj
* objPtr
, int * ptr
);
870 #ifndef Tcl_ExprDouble_TCL_DECLARED
871 #define Tcl_ExprDouble_TCL_DECLARED
873 EXTERN
int Tcl_ExprDouble (Tcl_Interp
* interp
,
874 CONST
char * expr
, double * ptr
);
876 #ifndef Tcl_ExprDoubleObj_TCL_DECLARED
877 #define Tcl_ExprDoubleObj_TCL_DECLARED
879 EXTERN
int Tcl_ExprDoubleObj (Tcl_Interp
* interp
,
880 Tcl_Obj
* objPtr
, double * ptr
);
882 #ifndef Tcl_ExprLong_TCL_DECLARED
883 #define Tcl_ExprLong_TCL_DECLARED
885 EXTERN
int Tcl_ExprLong (Tcl_Interp
* interp
, CONST
char * expr
,
888 #ifndef Tcl_ExprLongObj_TCL_DECLARED
889 #define Tcl_ExprLongObj_TCL_DECLARED
891 EXTERN
int Tcl_ExprLongObj (Tcl_Interp
* interp
,
892 Tcl_Obj
* objPtr
, long * ptr
);
894 #ifndef Tcl_ExprObj_TCL_DECLARED
895 #define Tcl_ExprObj_TCL_DECLARED
897 EXTERN
int Tcl_ExprObj (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
,
898 Tcl_Obj
** resultPtrPtr
);
900 #ifndef Tcl_ExprString_TCL_DECLARED
901 #define Tcl_ExprString_TCL_DECLARED
903 EXTERN
int Tcl_ExprString (Tcl_Interp
* interp
,
906 #ifndef Tcl_Finalize_TCL_DECLARED
907 #define Tcl_Finalize_TCL_DECLARED
909 EXTERN
void Tcl_Finalize (void);
911 #ifndef Tcl_FindExecutable_TCL_DECLARED
912 #define Tcl_FindExecutable_TCL_DECLARED
914 EXTERN
void Tcl_FindExecutable (CONST
char * argv0
);
916 #ifndef Tcl_FirstHashEntry_TCL_DECLARED
917 #define Tcl_FirstHashEntry_TCL_DECLARED
919 EXTERN Tcl_HashEntry
* Tcl_FirstHashEntry (Tcl_HashTable
* tablePtr
,
920 Tcl_HashSearch
* searchPtr
);
922 #ifndef Tcl_Flush_TCL_DECLARED
923 #define Tcl_Flush_TCL_DECLARED
925 EXTERN
int Tcl_Flush (Tcl_Channel chan
);
927 #ifndef Tcl_FreeResult_TCL_DECLARED
928 #define Tcl_FreeResult_TCL_DECLARED
930 EXTERN
void Tcl_FreeResult (Tcl_Interp
* interp
);
932 #ifndef Tcl_GetAlias_TCL_DECLARED
933 #define Tcl_GetAlias_TCL_DECLARED
935 EXTERN
int Tcl_GetAlias (Tcl_Interp
* interp
,
936 CONST
char * slaveCmd
,
937 Tcl_Interp
** targetInterpPtr
,
938 CONST84
char ** targetCmdPtr
, int * argcPtr
,
939 CONST84
char *** argvPtr
);
941 #ifndef Tcl_GetAliasObj_TCL_DECLARED
942 #define Tcl_GetAliasObj_TCL_DECLARED
944 EXTERN
int Tcl_GetAliasObj (Tcl_Interp
* interp
,
945 CONST
char * slaveCmd
,
946 Tcl_Interp
** targetInterpPtr
,
947 CONST84
char ** targetCmdPtr
, int * objcPtr
,
950 #ifndef Tcl_GetAssocData_TCL_DECLARED
951 #define Tcl_GetAssocData_TCL_DECLARED
953 EXTERN ClientData
Tcl_GetAssocData (Tcl_Interp
* interp
,
955 Tcl_InterpDeleteProc
** procPtr
);
957 #ifndef Tcl_GetChannel_TCL_DECLARED
958 #define Tcl_GetChannel_TCL_DECLARED
960 EXTERN Tcl_Channel
Tcl_GetChannel (Tcl_Interp
* interp
,
961 CONST
char * chanName
, int * modePtr
);
963 #ifndef Tcl_GetChannelBufferSize_TCL_DECLARED
964 #define Tcl_GetChannelBufferSize_TCL_DECLARED
966 EXTERN
int Tcl_GetChannelBufferSize (Tcl_Channel chan
);
968 #ifndef Tcl_GetChannelHandle_TCL_DECLARED
969 #define Tcl_GetChannelHandle_TCL_DECLARED
971 EXTERN
int Tcl_GetChannelHandle (Tcl_Channel chan
,
972 int direction
, ClientData
* handlePtr
);
974 #ifndef Tcl_GetChannelInstanceData_TCL_DECLARED
975 #define Tcl_GetChannelInstanceData_TCL_DECLARED
977 EXTERN ClientData
Tcl_GetChannelInstanceData (Tcl_Channel chan
);
979 #ifndef Tcl_GetChannelMode_TCL_DECLARED
980 #define Tcl_GetChannelMode_TCL_DECLARED
982 EXTERN
int Tcl_GetChannelMode (Tcl_Channel chan
);
984 #ifndef Tcl_GetChannelName_TCL_DECLARED
985 #define Tcl_GetChannelName_TCL_DECLARED
987 EXTERN CONST84_RETURN
char * Tcl_GetChannelName (Tcl_Channel chan
);
989 #ifndef Tcl_GetChannelOption_TCL_DECLARED
990 #define Tcl_GetChannelOption_TCL_DECLARED
992 EXTERN
int Tcl_GetChannelOption (Tcl_Interp
* interp
,
993 Tcl_Channel chan
, CONST
char * optionName
,
994 Tcl_DString
* dsPtr
);
996 #ifndef Tcl_GetChannelType_TCL_DECLARED
997 #define Tcl_GetChannelType_TCL_DECLARED
999 EXTERN Tcl_ChannelType
* Tcl_GetChannelType (Tcl_Channel chan
);
1001 #ifndef Tcl_GetCommandInfo_TCL_DECLARED
1002 #define Tcl_GetCommandInfo_TCL_DECLARED
1004 EXTERN
int Tcl_GetCommandInfo (Tcl_Interp
* interp
,
1005 CONST
char * cmdName
, Tcl_CmdInfo
* infoPtr
);
1007 #ifndef Tcl_GetCommandName_TCL_DECLARED
1008 #define Tcl_GetCommandName_TCL_DECLARED
1010 EXTERN CONST84_RETURN
char * Tcl_GetCommandName (Tcl_Interp
* interp
,
1011 Tcl_Command command
);
1013 #ifndef Tcl_GetErrno_TCL_DECLARED
1014 #define Tcl_GetErrno_TCL_DECLARED
1016 EXTERN
int Tcl_GetErrno (void);
1018 #ifndef Tcl_GetHostName_TCL_DECLARED
1019 #define Tcl_GetHostName_TCL_DECLARED
1021 EXTERN CONST84_RETURN
char * Tcl_GetHostName (void);
1023 #ifndef Tcl_GetInterpPath_TCL_DECLARED
1024 #define Tcl_GetInterpPath_TCL_DECLARED
1026 EXTERN
int Tcl_GetInterpPath (Tcl_Interp
* askInterp
,
1027 Tcl_Interp
* slaveInterp
);
1029 #ifndef Tcl_GetMaster_TCL_DECLARED
1030 #define Tcl_GetMaster_TCL_DECLARED
1032 EXTERN Tcl_Interp
* Tcl_GetMaster (Tcl_Interp
* interp
);
1034 #ifndef Tcl_GetNameOfExecutable_TCL_DECLARED
1035 #define Tcl_GetNameOfExecutable_TCL_DECLARED
1037 EXTERN CONST
char * Tcl_GetNameOfExecutable (void);
1039 #ifndef Tcl_GetObjResult_TCL_DECLARED
1040 #define Tcl_GetObjResult_TCL_DECLARED
1042 EXTERN Tcl_Obj
* Tcl_GetObjResult (Tcl_Interp
* interp
);
1044 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1045 #ifndef Tcl_GetOpenFile_TCL_DECLARED
1046 #define Tcl_GetOpenFile_TCL_DECLARED
1048 EXTERN
int Tcl_GetOpenFile (Tcl_Interp
* interp
,
1049 CONST
char * chanID
, int forWriting
,
1050 int checkUsage
, ClientData
* filePtr
);
1053 #ifdef MAC_OSX_TCL /* MACOSX */
1054 #ifndef Tcl_GetOpenFile_TCL_DECLARED
1055 #define Tcl_GetOpenFile_TCL_DECLARED
1057 EXTERN
int Tcl_GetOpenFile (Tcl_Interp
* interp
,
1058 CONST
char * chanID
, int forWriting
,
1059 int checkUsage
, ClientData
* filePtr
);
1062 #ifndef Tcl_GetPathType_TCL_DECLARED
1063 #define Tcl_GetPathType_TCL_DECLARED
1065 EXTERN Tcl_PathType
Tcl_GetPathType (CONST
char * path
);
1067 #ifndef Tcl_Gets_TCL_DECLARED
1068 #define Tcl_Gets_TCL_DECLARED
1070 EXTERN
int Tcl_Gets (Tcl_Channel chan
, Tcl_DString
* dsPtr
);
1072 #ifndef Tcl_GetsObj_TCL_DECLARED
1073 #define Tcl_GetsObj_TCL_DECLARED
1075 EXTERN
int Tcl_GetsObj (Tcl_Channel chan
, Tcl_Obj
* objPtr
);
1077 #ifndef Tcl_GetServiceMode_TCL_DECLARED
1078 #define Tcl_GetServiceMode_TCL_DECLARED
1080 EXTERN
int Tcl_GetServiceMode (void);
1082 #ifndef Tcl_GetSlave_TCL_DECLARED
1083 #define Tcl_GetSlave_TCL_DECLARED
1085 EXTERN Tcl_Interp
* Tcl_GetSlave (Tcl_Interp
* interp
,
1086 CONST
char * slaveName
);
1088 #ifndef Tcl_GetStdChannel_TCL_DECLARED
1089 #define Tcl_GetStdChannel_TCL_DECLARED
1091 EXTERN Tcl_Channel
Tcl_GetStdChannel (int type
);
1093 #ifndef Tcl_GetStringResult_TCL_DECLARED
1094 #define Tcl_GetStringResult_TCL_DECLARED
1096 EXTERN CONST84_RETURN
char * Tcl_GetStringResult (Tcl_Interp
* interp
);
1098 #ifndef Tcl_GetVar_TCL_DECLARED
1099 #define Tcl_GetVar_TCL_DECLARED
1101 EXTERN CONST84_RETURN
char * Tcl_GetVar (Tcl_Interp
* interp
,
1102 CONST
char * varName
, int flags
);
1104 #ifndef Tcl_GetVar2_TCL_DECLARED
1105 #define Tcl_GetVar2_TCL_DECLARED
1107 EXTERN CONST84_RETURN
char * Tcl_GetVar2 (Tcl_Interp
* interp
,
1108 CONST
char * part1
, CONST
char * part2
,
1111 #ifndef Tcl_GlobalEval_TCL_DECLARED
1112 #define Tcl_GlobalEval_TCL_DECLARED
1114 EXTERN
int Tcl_GlobalEval (Tcl_Interp
* interp
,
1115 CONST
char * command
);
1117 #ifndef Tcl_GlobalEvalObj_TCL_DECLARED
1118 #define Tcl_GlobalEvalObj_TCL_DECLARED
1120 EXTERN
int Tcl_GlobalEvalObj (Tcl_Interp
* interp
,
1123 #ifndef Tcl_HideCommand_TCL_DECLARED
1124 #define Tcl_HideCommand_TCL_DECLARED
1126 EXTERN
int Tcl_HideCommand (Tcl_Interp
* interp
,
1127 CONST
char * cmdName
,
1128 CONST
char * hiddenCmdToken
);
1130 #ifndef Tcl_Init_TCL_DECLARED
1131 #define Tcl_Init_TCL_DECLARED
1133 EXTERN
int Tcl_Init (Tcl_Interp
* interp
);
1135 #ifndef Tcl_InitHashTable_TCL_DECLARED
1136 #define Tcl_InitHashTable_TCL_DECLARED
1138 EXTERN
void Tcl_InitHashTable (Tcl_HashTable
* tablePtr
,
1141 #ifndef Tcl_InputBlocked_TCL_DECLARED
1142 #define Tcl_InputBlocked_TCL_DECLARED
1144 EXTERN
int Tcl_InputBlocked (Tcl_Channel chan
);
1146 #ifndef Tcl_InputBuffered_TCL_DECLARED
1147 #define Tcl_InputBuffered_TCL_DECLARED
1149 EXTERN
int Tcl_InputBuffered (Tcl_Channel chan
);
1151 #ifndef Tcl_InterpDeleted_TCL_DECLARED
1152 #define Tcl_InterpDeleted_TCL_DECLARED
1154 EXTERN
int Tcl_InterpDeleted (Tcl_Interp
* interp
);
1156 #ifndef Tcl_IsSafe_TCL_DECLARED
1157 #define Tcl_IsSafe_TCL_DECLARED
1159 EXTERN
int Tcl_IsSafe (Tcl_Interp
* interp
);
1161 #ifndef Tcl_JoinPath_TCL_DECLARED
1162 #define Tcl_JoinPath_TCL_DECLARED
1164 EXTERN
char * Tcl_JoinPath (int argc
, CONST84
char * CONST
* argv
,
1165 Tcl_DString
* resultPtr
);
1167 #ifndef Tcl_LinkVar_TCL_DECLARED
1168 #define Tcl_LinkVar_TCL_DECLARED
1170 EXTERN
int Tcl_LinkVar (Tcl_Interp
* interp
,
1171 CONST
char * varName
, char * addr
, int type
);
1173 /* Slot 188 is reserved */
1174 #ifndef Tcl_MakeFileChannel_TCL_DECLARED
1175 #define Tcl_MakeFileChannel_TCL_DECLARED
1177 EXTERN Tcl_Channel
Tcl_MakeFileChannel (ClientData handle
, int mode
);
1179 #ifndef Tcl_MakeSafe_TCL_DECLARED
1180 #define Tcl_MakeSafe_TCL_DECLARED
1182 EXTERN
int Tcl_MakeSafe (Tcl_Interp
* interp
);
1184 #ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED
1185 #define Tcl_MakeTcpClientChannel_TCL_DECLARED
1187 EXTERN Tcl_Channel
Tcl_MakeTcpClientChannel (ClientData tcpSocket
);
1189 #ifndef Tcl_Merge_TCL_DECLARED
1190 #define Tcl_Merge_TCL_DECLARED
1192 EXTERN
char * Tcl_Merge (int argc
, CONST84
char * CONST
* argv
);
1194 #ifndef Tcl_NextHashEntry_TCL_DECLARED
1195 #define Tcl_NextHashEntry_TCL_DECLARED
1197 EXTERN Tcl_HashEntry
* Tcl_NextHashEntry (Tcl_HashSearch
* searchPtr
);
1199 #ifndef Tcl_NotifyChannel_TCL_DECLARED
1200 #define Tcl_NotifyChannel_TCL_DECLARED
1202 EXTERN
void Tcl_NotifyChannel (Tcl_Channel channel
, int mask
);
1204 #ifndef Tcl_ObjGetVar2_TCL_DECLARED
1205 #define Tcl_ObjGetVar2_TCL_DECLARED
1207 EXTERN Tcl_Obj
* Tcl_ObjGetVar2 (Tcl_Interp
* interp
,
1208 Tcl_Obj
* part1Ptr
, Tcl_Obj
* part2Ptr
,
1211 #ifndef Tcl_ObjSetVar2_TCL_DECLARED
1212 #define Tcl_ObjSetVar2_TCL_DECLARED
1214 EXTERN Tcl_Obj
* Tcl_ObjSetVar2 (Tcl_Interp
* interp
,
1215 Tcl_Obj
* part1Ptr
, Tcl_Obj
* part2Ptr
,
1216 Tcl_Obj
* newValuePtr
, int flags
);
1218 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1219 #ifndef Tcl_OpenCommandChannel_TCL_DECLARED
1220 #define Tcl_OpenCommandChannel_TCL_DECLARED
1222 EXTERN Tcl_Channel
Tcl_OpenCommandChannel (Tcl_Interp
* interp
,
1223 int argc
, CONST84
char ** argv
, int flags
);
1226 #ifdef __WIN32__ /* WIN */
1227 #ifndef Tcl_OpenCommandChannel_TCL_DECLARED
1228 #define Tcl_OpenCommandChannel_TCL_DECLARED
1230 EXTERN Tcl_Channel
Tcl_OpenCommandChannel (Tcl_Interp
* interp
,
1231 int argc
, CONST84
char ** argv
, int flags
);
1234 #ifdef MAC_OSX_TCL /* MACOSX */
1235 #ifndef Tcl_OpenCommandChannel_TCL_DECLARED
1236 #define Tcl_OpenCommandChannel_TCL_DECLARED
1238 EXTERN Tcl_Channel
Tcl_OpenCommandChannel (Tcl_Interp
* interp
,
1239 int argc
, CONST84
char ** argv
, int flags
);
1242 #ifndef Tcl_OpenFileChannel_TCL_DECLARED
1243 #define Tcl_OpenFileChannel_TCL_DECLARED
1245 EXTERN Tcl_Channel
Tcl_OpenFileChannel (Tcl_Interp
* interp
,
1246 CONST
char * fileName
,
1247 CONST
char * modeString
, int permissions
);
1249 #ifndef Tcl_OpenTcpClient_TCL_DECLARED
1250 #define Tcl_OpenTcpClient_TCL_DECLARED
1252 EXTERN Tcl_Channel
Tcl_OpenTcpClient (Tcl_Interp
* interp
, int port
,
1253 CONST
char * address
, CONST
char * myaddr
,
1254 int myport
, int async
);
1256 #ifndef Tcl_OpenTcpServer_TCL_DECLARED
1257 #define Tcl_OpenTcpServer_TCL_DECLARED
1259 EXTERN Tcl_Channel
Tcl_OpenTcpServer (Tcl_Interp
* interp
, int port
,
1261 Tcl_TcpAcceptProc
* acceptProc
,
1262 ClientData callbackData
);
1264 #ifndef Tcl_Preserve_TCL_DECLARED
1265 #define Tcl_Preserve_TCL_DECLARED
1267 EXTERN
void Tcl_Preserve (ClientData data
);
1269 #ifndef Tcl_PrintDouble_TCL_DECLARED
1270 #define Tcl_PrintDouble_TCL_DECLARED
1272 EXTERN
void Tcl_PrintDouble (Tcl_Interp
* interp
, double value
,
1275 #ifndef Tcl_PutEnv_TCL_DECLARED
1276 #define Tcl_PutEnv_TCL_DECLARED
1278 EXTERN
int Tcl_PutEnv (CONST
char * assignment
);
1280 #ifndef Tcl_PosixError_TCL_DECLARED
1281 #define Tcl_PosixError_TCL_DECLARED
1283 EXTERN CONST84_RETURN
char * Tcl_PosixError (Tcl_Interp
* interp
);
1285 #ifndef Tcl_QueueEvent_TCL_DECLARED
1286 #define Tcl_QueueEvent_TCL_DECLARED
1288 EXTERN
void Tcl_QueueEvent (Tcl_Event
* evPtr
,
1289 Tcl_QueuePosition position
);
1291 #ifndef Tcl_Read_TCL_DECLARED
1292 #define Tcl_Read_TCL_DECLARED
1294 EXTERN
int Tcl_Read (Tcl_Channel chan
, char * bufPtr
,
1297 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1298 #ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
1299 #define Tcl_ReapDetachedProcs_TCL_DECLARED
1301 EXTERN
void Tcl_ReapDetachedProcs (void);
1304 #ifdef __WIN32__ /* WIN */
1305 #ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
1306 #define Tcl_ReapDetachedProcs_TCL_DECLARED
1308 EXTERN
void Tcl_ReapDetachedProcs (void);
1311 #ifdef MAC_OSX_TCL /* MACOSX */
1312 #ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
1313 #define Tcl_ReapDetachedProcs_TCL_DECLARED
1315 EXTERN
void Tcl_ReapDetachedProcs (void);
1318 #ifndef Tcl_RecordAndEval_TCL_DECLARED
1319 #define Tcl_RecordAndEval_TCL_DECLARED
1321 EXTERN
int Tcl_RecordAndEval (Tcl_Interp
* interp
,
1322 CONST
char * cmd
, int flags
);
1324 #ifndef Tcl_RecordAndEvalObj_TCL_DECLARED
1325 #define Tcl_RecordAndEvalObj_TCL_DECLARED
1327 EXTERN
int Tcl_RecordAndEvalObj (Tcl_Interp
* interp
,
1328 Tcl_Obj
* cmdPtr
, int flags
);
1330 #ifndef Tcl_RegisterChannel_TCL_DECLARED
1331 #define Tcl_RegisterChannel_TCL_DECLARED
1333 EXTERN
void Tcl_RegisterChannel (Tcl_Interp
* interp
,
1336 #ifndef Tcl_RegisterObjType_TCL_DECLARED
1337 #define Tcl_RegisterObjType_TCL_DECLARED
1339 EXTERN
void Tcl_RegisterObjType (Tcl_ObjType
* typePtr
);
1341 #ifndef Tcl_RegExpCompile_TCL_DECLARED
1342 #define Tcl_RegExpCompile_TCL_DECLARED
1344 EXTERN Tcl_RegExp
Tcl_RegExpCompile (Tcl_Interp
* interp
,
1345 CONST
char * pattern
);
1347 #ifndef Tcl_RegExpExec_TCL_DECLARED
1348 #define Tcl_RegExpExec_TCL_DECLARED
1350 EXTERN
int Tcl_RegExpExec (Tcl_Interp
* interp
,
1351 Tcl_RegExp regexp
, CONST
char * text
,
1352 CONST
char * start
);
1354 #ifndef Tcl_RegExpMatch_TCL_DECLARED
1355 #define Tcl_RegExpMatch_TCL_DECLARED
1357 EXTERN
int Tcl_RegExpMatch (Tcl_Interp
* interp
,
1358 CONST
char * text
, CONST
char * pattern
);
1360 #ifndef Tcl_RegExpRange_TCL_DECLARED
1361 #define Tcl_RegExpRange_TCL_DECLARED
1363 EXTERN
void Tcl_RegExpRange (Tcl_RegExp regexp
, int index
,
1364 CONST84
char ** startPtr
,
1365 CONST84
char ** endPtr
);
1367 #ifndef Tcl_Release_TCL_DECLARED
1368 #define Tcl_Release_TCL_DECLARED
1370 EXTERN
void Tcl_Release (ClientData clientData
);
1372 #ifndef Tcl_ResetResult_TCL_DECLARED
1373 #define Tcl_ResetResult_TCL_DECLARED
1375 EXTERN
void Tcl_ResetResult (Tcl_Interp
* interp
);
1377 #ifndef Tcl_ScanElement_TCL_DECLARED
1378 #define Tcl_ScanElement_TCL_DECLARED
1380 EXTERN
int Tcl_ScanElement (CONST
char * str
, int * flagPtr
);
1382 #ifndef Tcl_ScanCountedElement_TCL_DECLARED
1383 #define Tcl_ScanCountedElement_TCL_DECLARED
1385 EXTERN
int Tcl_ScanCountedElement (CONST
char * str
, int length
,
1388 #ifndef Tcl_SeekOld_TCL_DECLARED
1389 #define Tcl_SeekOld_TCL_DECLARED
1391 EXTERN
int Tcl_SeekOld (Tcl_Channel chan
, int offset
, int mode
);
1393 #ifndef Tcl_ServiceAll_TCL_DECLARED
1394 #define Tcl_ServiceAll_TCL_DECLARED
1396 EXTERN
int Tcl_ServiceAll (void);
1398 #ifndef Tcl_ServiceEvent_TCL_DECLARED
1399 #define Tcl_ServiceEvent_TCL_DECLARED
1401 EXTERN
int Tcl_ServiceEvent (int flags
);
1403 #ifndef Tcl_SetAssocData_TCL_DECLARED
1404 #define Tcl_SetAssocData_TCL_DECLARED
1406 EXTERN
void Tcl_SetAssocData (Tcl_Interp
* interp
,
1408 Tcl_InterpDeleteProc
* proc
,
1409 ClientData clientData
);
1411 #ifndef Tcl_SetChannelBufferSize_TCL_DECLARED
1412 #define Tcl_SetChannelBufferSize_TCL_DECLARED
1414 EXTERN
void Tcl_SetChannelBufferSize (Tcl_Channel chan
, int sz
);
1416 #ifndef Tcl_SetChannelOption_TCL_DECLARED
1417 #define Tcl_SetChannelOption_TCL_DECLARED
1419 EXTERN
int Tcl_SetChannelOption (Tcl_Interp
* interp
,
1420 Tcl_Channel chan
, CONST
char * optionName
,
1421 CONST
char * newValue
);
1423 #ifndef Tcl_SetCommandInfo_TCL_DECLARED
1424 #define Tcl_SetCommandInfo_TCL_DECLARED
1426 EXTERN
int Tcl_SetCommandInfo (Tcl_Interp
* interp
,
1427 CONST
char * cmdName
,
1428 CONST Tcl_CmdInfo
* infoPtr
);
1430 #ifndef Tcl_SetErrno_TCL_DECLARED
1431 #define Tcl_SetErrno_TCL_DECLARED
1433 EXTERN
void Tcl_SetErrno (int err
);
1435 #ifndef Tcl_SetErrorCode_TCL_DECLARED
1436 #define Tcl_SetErrorCode_TCL_DECLARED
1438 EXTERN
void Tcl_SetErrorCode (Tcl_Interp
* interp
, ...);
1440 #ifndef Tcl_SetMaxBlockTime_TCL_DECLARED
1441 #define Tcl_SetMaxBlockTime_TCL_DECLARED
1443 EXTERN
void Tcl_SetMaxBlockTime (Tcl_Time
* timePtr
);
1445 #ifndef Tcl_SetPanicProc_TCL_DECLARED
1446 #define Tcl_SetPanicProc_TCL_DECLARED
1448 EXTERN
void Tcl_SetPanicProc (Tcl_PanicProc
* panicProc
);
1450 #ifndef Tcl_SetRecursionLimit_TCL_DECLARED
1451 #define Tcl_SetRecursionLimit_TCL_DECLARED
1453 EXTERN
int Tcl_SetRecursionLimit (Tcl_Interp
* interp
,
1456 #ifndef Tcl_SetResult_TCL_DECLARED
1457 #define Tcl_SetResult_TCL_DECLARED
1459 EXTERN
void Tcl_SetResult (Tcl_Interp
* interp
, char * result
,
1460 Tcl_FreeProc
* freeProc
);
1462 #ifndef Tcl_SetServiceMode_TCL_DECLARED
1463 #define Tcl_SetServiceMode_TCL_DECLARED
1465 EXTERN
int Tcl_SetServiceMode (int mode
);
1467 #ifndef Tcl_SetObjErrorCode_TCL_DECLARED
1468 #define Tcl_SetObjErrorCode_TCL_DECLARED
1470 EXTERN
void Tcl_SetObjErrorCode (Tcl_Interp
* interp
,
1471 Tcl_Obj
* errorObjPtr
);
1473 #ifndef Tcl_SetObjResult_TCL_DECLARED
1474 #define Tcl_SetObjResult_TCL_DECLARED
1476 EXTERN
void Tcl_SetObjResult (Tcl_Interp
* interp
,
1477 Tcl_Obj
* resultObjPtr
);
1479 #ifndef Tcl_SetStdChannel_TCL_DECLARED
1480 #define Tcl_SetStdChannel_TCL_DECLARED
1482 EXTERN
void Tcl_SetStdChannel (Tcl_Channel channel
, int type
);
1484 #ifndef Tcl_SetVar_TCL_DECLARED
1485 #define Tcl_SetVar_TCL_DECLARED
1487 EXTERN CONST84_RETURN
char * Tcl_SetVar (Tcl_Interp
* interp
,
1488 CONST
char * varName
, CONST
char * newValue
,
1491 #ifndef Tcl_SetVar2_TCL_DECLARED
1492 #define Tcl_SetVar2_TCL_DECLARED
1494 EXTERN CONST84_RETURN
char * Tcl_SetVar2 (Tcl_Interp
* interp
,
1495 CONST
char * part1
, CONST
char * part2
,
1496 CONST
char * newValue
, int flags
);
1498 #ifndef Tcl_SignalId_TCL_DECLARED
1499 #define Tcl_SignalId_TCL_DECLARED
1501 EXTERN CONST84_RETURN
char * Tcl_SignalId (int sig
);
1503 #ifndef Tcl_SignalMsg_TCL_DECLARED
1504 #define Tcl_SignalMsg_TCL_DECLARED
1506 EXTERN CONST84_RETURN
char * Tcl_SignalMsg (int sig
);
1508 #ifndef Tcl_SourceRCFile_TCL_DECLARED
1509 #define Tcl_SourceRCFile_TCL_DECLARED
1511 EXTERN
void Tcl_SourceRCFile (Tcl_Interp
* interp
);
1513 #ifndef Tcl_SplitList_TCL_DECLARED
1514 #define Tcl_SplitList_TCL_DECLARED
1516 EXTERN
int Tcl_SplitList (Tcl_Interp
* interp
,
1517 CONST
char * listStr
, int * argcPtr
,
1518 CONST84
char *** argvPtr
);
1520 #ifndef Tcl_SplitPath_TCL_DECLARED
1521 #define Tcl_SplitPath_TCL_DECLARED
1523 EXTERN
void Tcl_SplitPath (CONST
char * path
, int * argcPtr
,
1524 CONST84
char *** argvPtr
);
1526 #ifndef Tcl_StaticPackage_TCL_DECLARED
1527 #define Tcl_StaticPackage_TCL_DECLARED
1529 EXTERN
void Tcl_StaticPackage (Tcl_Interp
* interp
,
1530 CONST
char * pkgName
,
1531 Tcl_PackageInitProc
* initProc
,
1532 Tcl_PackageInitProc
* safeInitProc
);
1534 #ifndef Tcl_StringMatch_TCL_DECLARED
1535 #define Tcl_StringMatch_TCL_DECLARED
1537 EXTERN
int Tcl_StringMatch (CONST
char * str
,
1538 CONST
char * pattern
);
1540 #ifndef Tcl_TellOld_TCL_DECLARED
1541 #define Tcl_TellOld_TCL_DECLARED
1543 EXTERN
int Tcl_TellOld (Tcl_Channel chan
);
1545 #ifndef Tcl_TraceVar_TCL_DECLARED
1546 #define Tcl_TraceVar_TCL_DECLARED
1548 EXTERN
int Tcl_TraceVar (Tcl_Interp
* interp
,
1549 CONST
char * varName
, int flags
,
1550 Tcl_VarTraceProc
* proc
,
1551 ClientData clientData
);
1553 #ifndef Tcl_TraceVar2_TCL_DECLARED
1554 #define Tcl_TraceVar2_TCL_DECLARED
1556 EXTERN
int Tcl_TraceVar2 (Tcl_Interp
* interp
,
1557 CONST
char * part1
, CONST
char * part2
,
1558 int flags
, Tcl_VarTraceProc
* proc
,
1559 ClientData clientData
);
1561 #ifndef Tcl_TranslateFileName_TCL_DECLARED
1562 #define Tcl_TranslateFileName_TCL_DECLARED
1564 EXTERN
char * Tcl_TranslateFileName (Tcl_Interp
* interp
,
1565 CONST
char * name
, Tcl_DString
* bufferPtr
);
1567 #ifndef Tcl_Ungets_TCL_DECLARED
1568 #define Tcl_Ungets_TCL_DECLARED
1570 EXTERN
int Tcl_Ungets (Tcl_Channel chan
, CONST
char * str
,
1571 int len
, int atHead
);
1573 #ifndef Tcl_UnlinkVar_TCL_DECLARED
1574 #define Tcl_UnlinkVar_TCL_DECLARED
1576 EXTERN
void Tcl_UnlinkVar (Tcl_Interp
* interp
,
1577 CONST
char * varName
);
1579 #ifndef Tcl_UnregisterChannel_TCL_DECLARED
1580 #define Tcl_UnregisterChannel_TCL_DECLARED
1582 EXTERN
int Tcl_UnregisterChannel (Tcl_Interp
* interp
,
1585 #ifndef Tcl_UnsetVar_TCL_DECLARED
1586 #define Tcl_UnsetVar_TCL_DECLARED
1588 EXTERN
int Tcl_UnsetVar (Tcl_Interp
* interp
,
1589 CONST
char * varName
, int flags
);
1591 #ifndef Tcl_UnsetVar2_TCL_DECLARED
1592 #define Tcl_UnsetVar2_TCL_DECLARED
1594 EXTERN
int Tcl_UnsetVar2 (Tcl_Interp
* interp
,
1595 CONST
char * part1
, CONST
char * part2
,
1598 #ifndef Tcl_UntraceVar_TCL_DECLARED
1599 #define Tcl_UntraceVar_TCL_DECLARED
1601 EXTERN
void Tcl_UntraceVar (Tcl_Interp
* interp
,
1602 CONST
char * varName
, int flags
,
1603 Tcl_VarTraceProc
* proc
,
1604 ClientData clientData
);
1606 #ifndef Tcl_UntraceVar2_TCL_DECLARED
1607 #define Tcl_UntraceVar2_TCL_DECLARED
1609 EXTERN
void Tcl_UntraceVar2 (Tcl_Interp
* interp
,
1610 CONST
char * part1
, CONST
char * part2
,
1611 int flags
, Tcl_VarTraceProc
* proc
,
1612 ClientData clientData
);
1614 #ifndef Tcl_UpdateLinkedVar_TCL_DECLARED
1615 #define Tcl_UpdateLinkedVar_TCL_DECLARED
1617 EXTERN
void Tcl_UpdateLinkedVar (Tcl_Interp
* interp
,
1618 CONST
char * varName
);
1620 #ifndef Tcl_UpVar_TCL_DECLARED
1621 #define Tcl_UpVar_TCL_DECLARED
1623 EXTERN
int Tcl_UpVar (Tcl_Interp
* interp
,
1624 CONST
char * frameName
, CONST
char * varName
,
1625 CONST
char * localName
, int flags
);
1627 #ifndef Tcl_UpVar2_TCL_DECLARED
1628 #define Tcl_UpVar2_TCL_DECLARED
1630 EXTERN
int Tcl_UpVar2 (Tcl_Interp
* interp
,
1631 CONST
char * frameName
, CONST
char * part1
,
1632 CONST
char * part2
, CONST
char * localName
,
1635 #ifndef Tcl_VarEval_TCL_DECLARED
1636 #define Tcl_VarEval_TCL_DECLARED
1638 EXTERN
int Tcl_VarEval (Tcl_Interp
* interp
, ...);
1640 #ifndef Tcl_VarTraceInfo_TCL_DECLARED
1641 #define Tcl_VarTraceInfo_TCL_DECLARED
1643 EXTERN ClientData
Tcl_VarTraceInfo (Tcl_Interp
* interp
,
1644 CONST
char * varName
, int flags
,
1645 Tcl_VarTraceProc
* procPtr
,
1646 ClientData prevClientData
);
1648 #ifndef Tcl_VarTraceInfo2_TCL_DECLARED
1649 #define Tcl_VarTraceInfo2_TCL_DECLARED
1651 EXTERN ClientData
Tcl_VarTraceInfo2 (Tcl_Interp
* interp
,
1652 CONST
char * part1
, CONST
char * part2
,
1653 int flags
, Tcl_VarTraceProc
* procPtr
,
1654 ClientData prevClientData
);
1656 #ifndef Tcl_Write_TCL_DECLARED
1657 #define Tcl_Write_TCL_DECLARED
1659 EXTERN
int Tcl_Write (Tcl_Channel chan
, CONST
char * s
,
1662 #ifndef Tcl_WrongNumArgs_TCL_DECLARED
1663 #define Tcl_WrongNumArgs_TCL_DECLARED
1665 EXTERN
void Tcl_WrongNumArgs (Tcl_Interp
* interp
, int objc
,
1666 Tcl_Obj
*CONST objv
[], CONST
char * message
);
1668 #ifndef Tcl_DumpActiveMemory_TCL_DECLARED
1669 #define Tcl_DumpActiveMemory_TCL_DECLARED
1671 EXTERN
int Tcl_DumpActiveMemory (CONST
char * fileName
);
1673 #ifndef Tcl_ValidateAllMemory_TCL_DECLARED
1674 #define Tcl_ValidateAllMemory_TCL_DECLARED
1676 EXTERN
void Tcl_ValidateAllMemory (CONST
char * file
, int line
);
1678 #ifndef Tcl_AppendResultVA_TCL_DECLARED
1679 #define Tcl_AppendResultVA_TCL_DECLARED
1681 EXTERN
void Tcl_AppendResultVA (Tcl_Interp
* interp
,
1684 #ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED
1685 #define Tcl_AppendStringsToObjVA_TCL_DECLARED
1687 EXTERN
void Tcl_AppendStringsToObjVA (Tcl_Obj
* objPtr
,
1690 #ifndef Tcl_HashStats_TCL_DECLARED
1691 #define Tcl_HashStats_TCL_DECLARED
1693 EXTERN CONST84_RETURN
char * Tcl_HashStats (Tcl_HashTable
* tablePtr
);
1695 #ifndef Tcl_ParseVar_TCL_DECLARED
1696 #define Tcl_ParseVar_TCL_DECLARED
1698 EXTERN CONST84_RETURN
char * Tcl_ParseVar (Tcl_Interp
* interp
,
1699 CONST
char * start
, CONST84
char ** termPtr
);
1701 #ifndef Tcl_PkgPresent_TCL_DECLARED
1702 #define Tcl_PkgPresent_TCL_DECLARED
1704 EXTERN CONST84_RETURN
char * Tcl_PkgPresent (Tcl_Interp
* interp
,
1705 CONST
char * name
, CONST
char * version
,
1708 #ifndef Tcl_PkgPresentEx_TCL_DECLARED
1709 #define Tcl_PkgPresentEx_TCL_DECLARED
1711 EXTERN CONST84_RETURN
char * Tcl_PkgPresentEx (Tcl_Interp
* interp
,
1712 CONST
char * name
, CONST
char * version
,
1713 int exact
, ClientData
* clientDataPtr
);
1715 #ifndef Tcl_PkgProvide_TCL_DECLARED
1716 #define Tcl_PkgProvide_TCL_DECLARED
1718 EXTERN
int Tcl_PkgProvide (Tcl_Interp
* interp
,
1719 CONST
char * name
, CONST
char * version
);
1721 #ifndef Tcl_PkgRequire_TCL_DECLARED
1722 #define Tcl_PkgRequire_TCL_DECLARED
1724 EXTERN CONST84_RETURN
char * Tcl_PkgRequire (Tcl_Interp
* interp
,
1725 CONST
char * name
, CONST
char * version
,
1728 #ifndef Tcl_SetErrorCodeVA_TCL_DECLARED
1729 #define Tcl_SetErrorCodeVA_TCL_DECLARED
1731 EXTERN
void Tcl_SetErrorCodeVA (Tcl_Interp
* interp
,
1734 #ifndef Tcl_VarEvalVA_TCL_DECLARED
1735 #define Tcl_VarEvalVA_TCL_DECLARED
1737 EXTERN
int Tcl_VarEvalVA (Tcl_Interp
* interp
, va_list argList
);
1739 #ifndef Tcl_WaitPid_TCL_DECLARED
1740 #define Tcl_WaitPid_TCL_DECLARED
1742 EXTERN Tcl_Pid
Tcl_WaitPid (Tcl_Pid pid
, int * statPtr
, int options
);
1744 #ifndef Tcl_PanicVA_TCL_DECLARED
1745 #define Tcl_PanicVA_TCL_DECLARED
1747 EXTERN
void Tcl_PanicVA (CONST
char * format
, va_list argList
);
1749 #ifndef Tcl_GetVersion_TCL_DECLARED
1750 #define Tcl_GetVersion_TCL_DECLARED
1752 EXTERN
void Tcl_GetVersion (int * major
, int * minor
,
1753 int * patchLevel
, int * type
);
1755 #ifndef Tcl_InitMemory_TCL_DECLARED
1756 #define Tcl_InitMemory_TCL_DECLARED
1758 EXTERN
void Tcl_InitMemory (Tcl_Interp
* interp
);
1760 #ifndef Tcl_StackChannel_TCL_DECLARED
1761 #define Tcl_StackChannel_TCL_DECLARED
1763 EXTERN Tcl_Channel
Tcl_StackChannel (Tcl_Interp
* interp
,
1764 Tcl_ChannelType
* typePtr
,
1765 ClientData instanceData
, int mask
,
1766 Tcl_Channel prevChan
);
1768 #ifndef Tcl_UnstackChannel_TCL_DECLARED
1769 #define Tcl_UnstackChannel_TCL_DECLARED
1771 EXTERN
int Tcl_UnstackChannel (Tcl_Interp
* interp
,
1774 #ifndef Tcl_GetStackedChannel_TCL_DECLARED
1775 #define Tcl_GetStackedChannel_TCL_DECLARED
1777 EXTERN Tcl_Channel
Tcl_GetStackedChannel (Tcl_Channel chan
);
1779 #ifndef Tcl_SetMainLoop_TCL_DECLARED
1780 #define Tcl_SetMainLoop_TCL_DECLARED
1782 EXTERN
void Tcl_SetMainLoop (Tcl_MainLoopProc
* proc
);
1784 /* Slot 285 is reserved */
1785 #ifndef Tcl_AppendObjToObj_TCL_DECLARED
1786 #define Tcl_AppendObjToObj_TCL_DECLARED
1788 EXTERN
void Tcl_AppendObjToObj (Tcl_Obj
* objPtr
,
1789 Tcl_Obj
* appendObjPtr
);
1791 #ifndef Tcl_CreateEncoding_TCL_DECLARED
1792 #define Tcl_CreateEncoding_TCL_DECLARED
1794 EXTERN Tcl_Encoding
Tcl_CreateEncoding (const Tcl_EncodingType
* typePtr
);
1796 #ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED
1797 #define Tcl_CreateThreadExitHandler_TCL_DECLARED
1799 EXTERN
void Tcl_CreateThreadExitHandler (Tcl_ExitProc
* proc
,
1800 ClientData clientData
);
1802 #ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED
1803 #define Tcl_DeleteThreadExitHandler_TCL_DECLARED
1805 EXTERN
void Tcl_DeleteThreadExitHandler (Tcl_ExitProc
* proc
,
1806 ClientData clientData
);
1808 #ifndef Tcl_DiscardResult_TCL_DECLARED
1809 #define Tcl_DiscardResult_TCL_DECLARED
1811 EXTERN
void Tcl_DiscardResult (Tcl_SavedResult
* statePtr
);
1813 #ifndef Tcl_EvalEx_TCL_DECLARED
1814 #define Tcl_EvalEx_TCL_DECLARED
1816 EXTERN
int Tcl_EvalEx (Tcl_Interp
* interp
, CONST
char * script
,
1817 int numBytes
, int flags
);
1819 #ifndef Tcl_EvalObjv_TCL_DECLARED
1820 #define Tcl_EvalObjv_TCL_DECLARED
1822 EXTERN
int Tcl_EvalObjv (Tcl_Interp
* interp
, int objc
,
1823 Tcl_Obj
*CONST objv
[], int flags
);
1825 #ifndef Tcl_EvalObjEx_TCL_DECLARED
1826 #define Tcl_EvalObjEx_TCL_DECLARED
1828 EXTERN
int Tcl_EvalObjEx (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
,
1831 #ifndef Tcl_ExitThread_TCL_DECLARED
1832 #define Tcl_ExitThread_TCL_DECLARED
1834 EXTERN
void Tcl_ExitThread (int status
);
1836 #ifndef Tcl_ExternalToUtf_TCL_DECLARED
1837 #define Tcl_ExternalToUtf_TCL_DECLARED
1839 EXTERN
int Tcl_ExternalToUtf (Tcl_Interp
* interp
,
1840 Tcl_Encoding encoding
, CONST
char * src
,
1841 int srcLen
, int flags
,
1842 Tcl_EncodingState
* statePtr
, char * dst
,
1843 int dstLen
, int * srcReadPtr
,
1844 int * dstWrotePtr
, int * dstCharsPtr
);
1846 #ifndef Tcl_ExternalToUtfDString_TCL_DECLARED
1847 #define Tcl_ExternalToUtfDString_TCL_DECLARED
1849 EXTERN
char * Tcl_ExternalToUtfDString (Tcl_Encoding encoding
,
1850 CONST
char * src
, int srcLen
,
1851 Tcl_DString
* dsPtr
);
1853 #ifndef Tcl_FinalizeThread_TCL_DECLARED
1854 #define Tcl_FinalizeThread_TCL_DECLARED
1856 EXTERN
void Tcl_FinalizeThread (void);
1858 #ifndef Tcl_FinalizeNotifier_TCL_DECLARED
1859 #define Tcl_FinalizeNotifier_TCL_DECLARED
1861 EXTERN
void Tcl_FinalizeNotifier (ClientData clientData
);
1863 #ifndef Tcl_FreeEncoding_TCL_DECLARED
1864 #define Tcl_FreeEncoding_TCL_DECLARED
1866 EXTERN
void Tcl_FreeEncoding (Tcl_Encoding encoding
);
1868 #ifndef Tcl_GetCurrentThread_TCL_DECLARED
1869 #define Tcl_GetCurrentThread_TCL_DECLARED
1871 EXTERN Tcl_ThreadId
Tcl_GetCurrentThread (void);
1873 #ifndef Tcl_GetEncoding_TCL_DECLARED
1874 #define Tcl_GetEncoding_TCL_DECLARED
1876 EXTERN Tcl_Encoding
Tcl_GetEncoding (Tcl_Interp
* interp
,
1879 #ifndef Tcl_GetEncodingName_TCL_DECLARED
1880 #define Tcl_GetEncodingName_TCL_DECLARED
1882 EXTERN CONST84_RETURN
char * Tcl_GetEncodingName (Tcl_Encoding encoding
);
1884 #ifndef Tcl_GetEncodingNames_TCL_DECLARED
1885 #define Tcl_GetEncodingNames_TCL_DECLARED
1887 EXTERN
void Tcl_GetEncodingNames (Tcl_Interp
* interp
);
1889 #ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED
1890 #define Tcl_GetIndexFromObjStruct_TCL_DECLARED
1892 EXTERN
int Tcl_GetIndexFromObjStruct (Tcl_Interp
* interp
,
1893 Tcl_Obj
* objPtr
, CONST VOID
* tablePtr
,
1894 int offset
, CONST
char * msg
, int flags
,
1897 #ifndef Tcl_GetThreadData_TCL_DECLARED
1898 #define Tcl_GetThreadData_TCL_DECLARED
1900 EXTERN VOID
* Tcl_GetThreadData (Tcl_ThreadDataKey
* keyPtr
,
1903 #ifndef Tcl_GetVar2Ex_TCL_DECLARED
1904 #define Tcl_GetVar2Ex_TCL_DECLARED
1906 EXTERN Tcl_Obj
* Tcl_GetVar2Ex (Tcl_Interp
* interp
,
1907 CONST
char * part1
, CONST
char * part2
,
1910 #ifndef Tcl_InitNotifier_TCL_DECLARED
1911 #define Tcl_InitNotifier_TCL_DECLARED
1913 EXTERN ClientData
Tcl_InitNotifier (void);
1915 #ifndef Tcl_MutexLock_TCL_DECLARED
1916 #define Tcl_MutexLock_TCL_DECLARED
1918 EXTERN
void Tcl_MutexLock (Tcl_Mutex
* mutexPtr
);
1920 #ifndef Tcl_MutexUnlock_TCL_DECLARED
1921 #define Tcl_MutexUnlock_TCL_DECLARED
1923 EXTERN
void Tcl_MutexUnlock (Tcl_Mutex
* mutexPtr
);
1925 #ifndef Tcl_ConditionNotify_TCL_DECLARED
1926 #define Tcl_ConditionNotify_TCL_DECLARED
1928 EXTERN
void Tcl_ConditionNotify (Tcl_Condition
* condPtr
);
1930 #ifndef Tcl_ConditionWait_TCL_DECLARED
1931 #define Tcl_ConditionWait_TCL_DECLARED
1933 EXTERN
void Tcl_ConditionWait (Tcl_Condition
* condPtr
,
1934 Tcl_Mutex
* mutexPtr
, Tcl_Time
* timePtr
);
1936 #ifndef Tcl_NumUtfChars_TCL_DECLARED
1937 #define Tcl_NumUtfChars_TCL_DECLARED
1939 EXTERN
int Tcl_NumUtfChars (CONST
char * src
, int length
);
1941 #ifndef Tcl_ReadChars_TCL_DECLARED
1942 #define Tcl_ReadChars_TCL_DECLARED
1944 EXTERN
int Tcl_ReadChars (Tcl_Channel channel
, Tcl_Obj
* objPtr
,
1945 int charsToRead
, int appendFlag
);
1947 #ifndef Tcl_RestoreResult_TCL_DECLARED
1948 #define Tcl_RestoreResult_TCL_DECLARED
1950 EXTERN
void Tcl_RestoreResult (Tcl_Interp
* interp
,
1951 Tcl_SavedResult
* statePtr
);
1953 #ifndef Tcl_SaveResult_TCL_DECLARED
1954 #define Tcl_SaveResult_TCL_DECLARED
1956 EXTERN
void Tcl_SaveResult (Tcl_Interp
* interp
,
1957 Tcl_SavedResult
* statePtr
);
1959 #ifndef Tcl_SetSystemEncoding_TCL_DECLARED
1960 #define Tcl_SetSystemEncoding_TCL_DECLARED
1962 EXTERN
int Tcl_SetSystemEncoding (Tcl_Interp
* interp
,
1965 #ifndef Tcl_SetVar2Ex_TCL_DECLARED
1966 #define Tcl_SetVar2Ex_TCL_DECLARED
1968 EXTERN Tcl_Obj
* Tcl_SetVar2Ex (Tcl_Interp
* interp
,
1969 CONST
char * part1
, CONST
char * part2
,
1970 Tcl_Obj
* newValuePtr
, int flags
);
1972 #ifndef Tcl_ThreadAlert_TCL_DECLARED
1973 #define Tcl_ThreadAlert_TCL_DECLARED
1975 EXTERN
void Tcl_ThreadAlert (Tcl_ThreadId threadId
);
1977 #ifndef Tcl_ThreadQueueEvent_TCL_DECLARED
1978 #define Tcl_ThreadQueueEvent_TCL_DECLARED
1980 EXTERN
void Tcl_ThreadQueueEvent (Tcl_ThreadId threadId
,
1981 Tcl_Event
* evPtr
, Tcl_QueuePosition position
);
1983 #ifndef Tcl_UniCharAtIndex_TCL_DECLARED
1984 #define Tcl_UniCharAtIndex_TCL_DECLARED
1986 EXTERN Tcl_UniChar
Tcl_UniCharAtIndex (CONST
char * src
, int index
);
1988 #ifndef Tcl_UniCharToLower_TCL_DECLARED
1989 #define Tcl_UniCharToLower_TCL_DECLARED
1991 EXTERN Tcl_UniChar
Tcl_UniCharToLower (int ch
);
1993 #ifndef Tcl_UniCharToTitle_TCL_DECLARED
1994 #define Tcl_UniCharToTitle_TCL_DECLARED
1996 EXTERN Tcl_UniChar
Tcl_UniCharToTitle (int ch
);
1998 #ifndef Tcl_UniCharToUpper_TCL_DECLARED
1999 #define Tcl_UniCharToUpper_TCL_DECLARED
2001 EXTERN Tcl_UniChar
Tcl_UniCharToUpper (int ch
);
2003 #ifndef Tcl_UniCharToUtf_TCL_DECLARED
2004 #define Tcl_UniCharToUtf_TCL_DECLARED
2006 EXTERN
int Tcl_UniCharToUtf (int ch
, char * buf
);
2008 #ifndef Tcl_UtfAtIndex_TCL_DECLARED
2009 #define Tcl_UtfAtIndex_TCL_DECLARED
2011 EXTERN CONST84_RETURN
char * Tcl_UtfAtIndex (CONST
char * src
, int index
);
2013 #ifndef Tcl_UtfCharComplete_TCL_DECLARED
2014 #define Tcl_UtfCharComplete_TCL_DECLARED
2016 EXTERN
int Tcl_UtfCharComplete (CONST
char * src
, int length
);
2018 #ifndef Tcl_UtfBackslash_TCL_DECLARED
2019 #define Tcl_UtfBackslash_TCL_DECLARED
2021 EXTERN
int Tcl_UtfBackslash (CONST
char * src
, int * readPtr
,
2024 #ifndef Tcl_UtfFindFirst_TCL_DECLARED
2025 #define Tcl_UtfFindFirst_TCL_DECLARED
2027 EXTERN CONST84_RETURN
char * Tcl_UtfFindFirst (CONST
char * src
, int ch
);
2029 #ifndef Tcl_UtfFindLast_TCL_DECLARED
2030 #define Tcl_UtfFindLast_TCL_DECLARED
2032 EXTERN CONST84_RETURN
char * Tcl_UtfFindLast (CONST
char * src
, int ch
);
2034 #ifndef Tcl_UtfNext_TCL_DECLARED
2035 #define Tcl_UtfNext_TCL_DECLARED
2037 EXTERN CONST84_RETURN
char * Tcl_UtfNext (CONST
char * src
);
2039 #ifndef Tcl_UtfPrev_TCL_DECLARED
2040 #define Tcl_UtfPrev_TCL_DECLARED
2042 EXTERN CONST84_RETURN
char * Tcl_UtfPrev (CONST
char * src
,
2043 CONST
char * start
);
2045 #ifndef Tcl_UtfToExternal_TCL_DECLARED
2046 #define Tcl_UtfToExternal_TCL_DECLARED
2048 EXTERN
int Tcl_UtfToExternal (Tcl_Interp
* interp
,
2049 Tcl_Encoding encoding
, CONST
char * src
,
2050 int srcLen
, int flags
,
2051 Tcl_EncodingState
* statePtr
, char * dst
,
2052 int dstLen
, int * srcReadPtr
,
2053 int * dstWrotePtr
, int * dstCharsPtr
);
2055 #ifndef Tcl_UtfToExternalDString_TCL_DECLARED
2056 #define Tcl_UtfToExternalDString_TCL_DECLARED
2058 EXTERN
char * Tcl_UtfToExternalDString (Tcl_Encoding encoding
,
2059 CONST
char * src
, int srcLen
,
2060 Tcl_DString
* dsPtr
);
2062 #ifndef Tcl_UtfToLower_TCL_DECLARED
2063 #define Tcl_UtfToLower_TCL_DECLARED
2065 EXTERN
int Tcl_UtfToLower (char * src
);
2067 #ifndef Tcl_UtfToTitle_TCL_DECLARED
2068 #define Tcl_UtfToTitle_TCL_DECLARED
2070 EXTERN
int Tcl_UtfToTitle (char * src
);
2072 #ifndef Tcl_UtfToUniChar_TCL_DECLARED
2073 #define Tcl_UtfToUniChar_TCL_DECLARED
2075 EXTERN
int Tcl_UtfToUniChar (CONST
char * src
,
2076 Tcl_UniChar
* chPtr
);
2078 #ifndef Tcl_UtfToUpper_TCL_DECLARED
2079 #define Tcl_UtfToUpper_TCL_DECLARED
2081 EXTERN
int Tcl_UtfToUpper (char * src
);
2083 #ifndef Tcl_WriteChars_TCL_DECLARED
2084 #define Tcl_WriteChars_TCL_DECLARED
2086 EXTERN
int Tcl_WriteChars (Tcl_Channel chan
, CONST
char * src
,
2089 #ifndef Tcl_WriteObj_TCL_DECLARED
2090 #define Tcl_WriteObj_TCL_DECLARED
2092 EXTERN
int Tcl_WriteObj (Tcl_Channel chan
, Tcl_Obj
* objPtr
);
2094 #ifndef Tcl_GetString_TCL_DECLARED
2095 #define Tcl_GetString_TCL_DECLARED
2097 EXTERN
char * Tcl_GetString (Tcl_Obj
* objPtr
);
2099 #ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED
2100 #define Tcl_GetDefaultEncodingDir_TCL_DECLARED
2102 EXTERN CONST84_RETURN
char * Tcl_GetDefaultEncodingDir (void);
2104 #ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED
2105 #define Tcl_SetDefaultEncodingDir_TCL_DECLARED
2107 EXTERN
void Tcl_SetDefaultEncodingDir (CONST
char * path
);
2109 #ifndef Tcl_AlertNotifier_TCL_DECLARED
2110 #define Tcl_AlertNotifier_TCL_DECLARED
2112 EXTERN
void Tcl_AlertNotifier (ClientData clientData
);
2114 #ifndef Tcl_ServiceModeHook_TCL_DECLARED
2115 #define Tcl_ServiceModeHook_TCL_DECLARED
2117 EXTERN
void Tcl_ServiceModeHook (int mode
);
2119 #ifndef Tcl_UniCharIsAlnum_TCL_DECLARED
2120 #define Tcl_UniCharIsAlnum_TCL_DECLARED
2122 EXTERN
int Tcl_UniCharIsAlnum (int ch
);
2124 #ifndef Tcl_UniCharIsAlpha_TCL_DECLARED
2125 #define Tcl_UniCharIsAlpha_TCL_DECLARED
2127 EXTERN
int Tcl_UniCharIsAlpha (int ch
);
2129 #ifndef Tcl_UniCharIsDigit_TCL_DECLARED
2130 #define Tcl_UniCharIsDigit_TCL_DECLARED
2132 EXTERN
int Tcl_UniCharIsDigit (int ch
);
2134 #ifndef Tcl_UniCharIsLower_TCL_DECLARED
2135 #define Tcl_UniCharIsLower_TCL_DECLARED
2137 EXTERN
int Tcl_UniCharIsLower (int ch
);
2139 #ifndef Tcl_UniCharIsSpace_TCL_DECLARED
2140 #define Tcl_UniCharIsSpace_TCL_DECLARED
2142 EXTERN
int Tcl_UniCharIsSpace (int ch
);
2144 #ifndef Tcl_UniCharIsUpper_TCL_DECLARED
2145 #define Tcl_UniCharIsUpper_TCL_DECLARED
2147 EXTERN
int Tcl_UniCharIsUpper (int ch
);
2149 #ifndef Tcl_UniCharIsWordChar_TCL_DECLARED
2150 #define Tcl_UniCharIsWordChar_TCL_DECLARED
2152 EXTERN
int Tcl_UniCharIsWordChar (int ch
);
2154 #ifndef Tcl_UniCharLen_TCL_DECLARED
2155 #define Tcl_UniCharLen_TCL_DECLARED
2157 EXTERN
int Tcl_UniCharLen (CONST Tcl_UniChar
* uniStr
);
2159 #ifndef Tcl_UniCharNcmp_TCL_DECLARED
2160 #define Tcl_UniCharNcmp_TCL_DECLARED
2162 EXTERN
int Tcl_UniCharNcmp (CONST Tcl_UniChar
* ucs
,
2163 CONST Tcl_UniChar
* uct
,
2164 unsigned long numChars
);
2166 #ifndef Tcl_UniCharToUtfDString_TCL_DECLARED
2167 #define Tcl_UniCharToUtfDString_TCL_DECLARED
2169 EXTERN
char * Tcl_UniCharToUtfDString (CONST Tcl_UniChar
* uniStr
,
2170 int uniLength
, Tcl_DString
* dsPtr
);
2172 #ifndef Tcl_UtfToUniCharDString_TCL_DECLARED
2173 #define Tcl_UtfToUniCharDString_TCL_DECLARED
2175 EXTERN Tcl_UniChar
* Tcl_UtfToUniCharDString (CONST
char * src
,
2176 int length
, Tcl_DString
* dsPtr
);
2178 #ifndef Tcl_GetRegExpFromObj_TCL_DECLARED
2179 #define Tcl_GetRegExpFromObj_TCL_DECLARED
2181 EXTERN Tcl_RegExp
Tcl_GetRegExpFromObj (Tcl_Interp
* interp
,
2182 Tcl_Obj
* patObj
, int flags
);
2184 #ifndef Tcl_EvalTokens_TCL_DECLARED
2185 #define Tcl_EvalTokens_TCL_DECLARED
2187 EXTERN Tcl_Obj
* Tcl_EvalTokens (Tcl_Interp
* interp
,
2188 Tcl_Token
* tokenPtr
, int count
);
2190 #ifndef Tcl_FreeParse_TCL_DECLARED
2191 #define Tcl_FreeParse_TCL_DECLARED
2193 EXTERN
void Tcl_FreeParse (Tcl_Parse
* parsePtr
);
2195 #ifndef Tcl_LogCommandInfo_TCL_DECLARED
2196 #define Tcl_LogCommandInfo_TCL_DECLARED
2198 EXTERN
void Tcl_LogCommandInfo (Tcl_Interp
* interp
,
2199 CONST
char * script
, CONST
char * command
,
2202 #ifndef Tcl_ParseBraces_TCL_DECLARED
2203 #define Tcl_ParseBraces_TCL_DECLARED
2205 EXTERN
int Tcl_ParseBraces (Tcl_Interp
* interp
,
2206 CONST
char * start
, int numBytes
,
2207 Tcl_Parse
* parsePtr
, int append
,
2208 CONST84
char ** termPtr
);
2210 #ifndef Tcl_ParseCommand_TCL_DECLARED
2211 #define Tcl_ParseCommand_TCL_DECLARED
2213 EXTERN
int Tcl_ParseCommand (Tcl_Interp
* interp
,
2214 CONST
char * start
, int numBytes
, int nested
,
2215 Tcl_Parse
* parsePtr
);
2217 #ifndef Tcl_ParseExpr_TCL_DECLARED
2218 #define Tcl_ParseExpr_TCL_DECLARED
2220 EXTERN
int Tcl_ParseExpr (Tcl_Interp
* interp
,
2221 CONST
char * start
, int numBytes
,
2222 Tcl_Parse
* parsePtr
);
2224 #ifndef Tcl_ParseQuotedString_TCL_DECLARED
2225 #define Tcl_ParseQuotedString_TCL_DECLARED
2227 EXTERN
int Tcl_ParseQuotedString (Tcl_Interp
* interp
,
2228 CONST
char * start
, int numBytes
,
2229 Tcl_Parse
* parsePtr
, int append
,
2230 CONST84
char ** termPtr
);
2232 #ifndef Tcl_ParseVarName_TCL_DECLARED
2233 #define Tcl_ParseVarName_TCL_DECLARED
2235 EXTERN
int Tcl_ParseVarName (Tcl_Interp
* interp
,
2236 CONST
char * start
, int numBytes
,
2237 Tcl_Parse
* parsePtr
, int append
);
2239 #ifndef Tcl_GetCwd_TCL_DECLARED
2240 #define Tcl_GetCwd_TCL_DECLARED
2242 EXTERN
char * Tcl_GetCwd (Tcl_Interp
* interp
,
2243 Tcl_DString
* cwdPtr
);
2245 #ifndef Tcl_Chdir_TCL_DECLARED
2246 #define Tcl_Chdir_TCL_DECLARED
2248 EXTERN
int Tcl_Chdir (CONST
char * dirName
);
2250 #ifndef Tcl_Access_TCL_DECLARED
2251 #define Tcl_Access_TCL_DECLARED
2253 EXTERN
int Tcl_Access (CONST
char * path
, int mode
);
2255 #ifndef Tcl_Stat_TCL_DECLARED
2256 #define Tcl_Stat_TCL_DECLARED
2258 EXTERN
int Tcl_Stat (CONST
char * path
, struct stat
* bufPtr
);
2260 #ifndef Tcl_UtfNcmp_TCL_DECLARED
2261 #define Tcl_UtfNcmp_TCL_DECLARED
2263 EXTERN
int Tcl_UtfNcmp (CONST
char * s1
, CONST
char * s2
,
2266 #ifndef Tcl_UtfNcasecmp_TCL_DECLARED
2267 #define Tcl_UtfNcasecmp_TCL_DECLARED
2269 EXTERN
int Tcl_UtfNcasecmp (CONST
char * s1
, CONST
char * s2
,
2272 #ifndef Tcl_StringCaseMatch_TCL_DECLARED
2273 #define Tcl_StringCaseMatch_TCL_DECLARED
2275 EXTERN
int Tcl_StringCaseMatch (CONST
char * str
,
2276 CONST
char * pattern
, int nocase
);
2278 #ifndef Tcl_UniCharIsControl_TCL_DECLARED
2279 #define Tcl_UniCharIsControl_TCL_DECLARED
2281 EXTERN
int Tcl_UniCharIsControl (int ch
);
2283 #ifndef Tcl_UniCharIsGraph_TCL_DECLARED
2284 #define Tcl_UniCharIsGraph_TCL_DECLARED
2286 EXTERN
int Tcl_UniCharIsGraph (int ch
);
2288 #ifndef Tcl_UniCharIsPrint_TCL_DECLARED
2289 #define Tcl_UniCharIsPrint_TCL_DECLARED
2291 EXTERN
int Tcl_UniCharIsPrint (int ch
);
2293 #ifndef Tcl_UniCharIsPunct_TCL_DECLARED
2294 #define Tcl_UniCharIsPunct_TCL_DECLARED
2296 EXTERN
int Tcl_UniCharIsPunct (int ch
);
2298 #ifndef Tcl_RegExpExecObj_TCL_DECLARED
2299 #define Tcl_RegExpExecObj_TCL_DECLARED
2301 EXTERN
int Tcl_RegExpExecObj (Tcl_Interp
* interp
,
2302 Tcl_RegExp regexp
, Tcl_Obj
* textObj
,
2303 int offset
, int nmatches
, int flags
);
2305 #ifndef Tcl_RegExpGetInfo_TCL_DECLARED
2306 #define Tcl_RegExpGetInfo_TCL_DECLARED
2308 EXTERN
void Tcl_RegExpGetInfo (Tcl_RegExp regexp
,
2309 Tcl_RegExpInfo
* infoPtr
);
2311 #ifndef Tcl_NewUnicodeObj_TCL_DECLARED
2312 #define Tcl_NewUnicodeObj_TCL_DECLARED
2314 EXTERN Tcl_Obj
* Tcl_NewUnicodeObj (CONST Tcl_UniChar
* unicode
,
2317 #ifndef Tcl_SetUnicodeObj_TCL_DECLARED
2318 #define Tcl_SetUnicodeObj_TCL_DECLARED
2320 EXTERN
void Tcl_SetUnicodeObj (Tcl_Obj
* objPtr
,
2321 CONST Tcl_UniChar
* unicode
, int numChars
);
2323 #ifndef Tcl_GetCharLength_TCL_DECLARED
2324 #define Tcl_GetCharLength_TCL_DECLARED
2326 EXTERN
int Tcl_GetCharLength (Tcl_Obj
* objPtr
);
2328 #ifndef Tcl_GetUniChar_TCL_DECLARED
2329 #define Tcl_GetUniChar_TCL_DECLARED
2331 EXTERN Tcl_UniChar
Tcl_GetUniChar (Tcl_Obj
* objPtr
, int index
);
2333 #ifndef Tcl_GetUnicode_TCL_DECLARED
2334 #define Tcl_GetUnicode_TCL_DECLARED
2336 EXTERN Tcl_UniChar
* Tcl_GetUnicode (Tcl_Obj
* objPtr
);
2338 #ifndef Tcl_GetRange_TCL_DECLARED
2339 #define Tcl_GetRange_TCL_DECLARED
2341 EXTERN Tcl_Obj
* Tcl_GetRange (Tcl_Obj
* objPtr
, int first
, int last
);
2343 #ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED
2344 #define Tcl_AppendUnicodeToObj_TCL_DECLARED
2346 EXTERN
void Tcl_AppendUnicodeToObj (Tcl_Obj
* objPtr
,
2347 CONST Tcl_UniChar
* unicode
, int length
);
2349 #ifndef Tcl_RegExpMatchObj_TCL_DECLARED
2350 #define Tcl_RegExpMatchObj_TCL_DECLARED
2352 EXTERN
int Tcl_RegExpMatchObj (Tcl_Interp
* interp
,
2353 Tcl_Obj
* textObj
, Tcl_Obj
* patternObj
);
2355 #ifndef Tcl_SetNotifier_TCL_DECLARED
2356 #define Tcl_SetNotifier_TCL_DECLARED
2358 EXTERN
void Tcl_SetNotifier (Tcl_NotifierProcs
* notifierProcPtr
);
2360 #ifndef Tcl_GetAllocMutex_TCL_DECLARED
2361 #define Tcl_GetAllocMutex_TCL_DECLARED
2363 EXTERN Tcl_Mutex
* Tcl_GetAllocMutex (void);
2365 #ifndef Tcl_GetChannelNames_TCL_DECLARED
2366 #define Tcl_GetChannelNames_TCL_DECLARED
2368 EXTERN
int Tcl_GetChannelNames (Tcl_Interp
* interp
);
2370 #ifndef Tcl_GetChannelNamesEx_TCL_DECLARED
2371 #define Tcl_GetChannelNamesEx_TCL_DECLARED
2373 EXTERN
int Tcl_GetChannelNamesEx (Tcl_Interp
* interp
,
2374 CONST
char * pattern
);
2376 #ifndef Tcl_ProcObjCmd_TCL_DECLARED
2377 #define Tcl_ProcObjCmd_TCL_DECLARED
2379 EXTERN
int Tcl_ProcObjCmd (ClientData clientData
,
2380 Tcl_Interp
* interp
, int objc
,
2381 Tcl_Obj
*CONST objv
[]);
2383 #ifndef Tcl_ConditionFinalize_TCL_DECLARED
2384 #define Tcl_ConditionFinalize_TCL_DECLARED
2386 EXTERN
void Tcl_ConditionFinalize (Tcl_Condition
* condPtr
);
2388 #ifndef Tcl_MutexFinalize_TCL_DECLARED
2389 #define Tcl_MutexFinalize_TCL_DECLARED
2391 EXTERN
void Tcl_MutexFinalize (Tcl_Mutex
* mutex
);
2393 #ifndef Tcl_CreateThread_TCL_DECLARED
2394 #define Tcl_CreateThread_TCL_DECLARED
2396 EXTERN
int Tcl_CreateThread (Tcl_ThreadId
* idPtr
,
2397 Tcl_ThreadCreateProc proc
,
2398 ClientData clientData
, int stackSize
,
2401 #ifndef Tcl_ReadRaw_TCL_DECLARED
2402 #define Tcl_ReadRaw_TCL_DECLARED
2404 EXTERN
int Tcl_ReadRaw (Tcl_Channel chan
, char * dst
,
2407 #ifndef Tcl_WriteRaw_TCL_DECLARED
2408 #define Tcl_WriteRaw_TCL_DECLARED
2410 EXTERN
int Tcl_WriteRaw (Tcl_Channel chan
, CONST
char * src
,
2413 #ifndef Tcl_GetTopChannel_TCL_DECLARED
2414 #define Tcl_GetTopChannel_TCL_DECLARED
2416 EXTERN Tcl_Channel
Tcl_GetTopChannel (Tcl_Channel chan
);
2418 #ifndef Tcl_ChannelBuffered_TCL_DECLARED
2419 #define Tcl_ChannelBuffered_TCL_DECLARED
2421 EXTERN
int Tcl_ChannelBuffered (Tcl_Channel chan
);
2423 #ifndef Tcl_ChannelName_TCL_DECLARED
2424 #define Tcl_ChannelName_TCL_DECLARED
2426 EXTERN CONST84_RETURN
char * Tcl_ChannelName (
2427 CONST Tcl_ChannelType
* chanTypePtr
);
2429 #ifndef Tcl_ChannelVersion_TCL_DECLARED
2430 #define Tcl_ChannelVersion_TCL_DECLARED
2432 EXTERN Tcl_ChannelTypeVersion
Tcl_ChannelVersion (
2433 CONST Tcl_ChannelType
* chanTypePtr
);
2435 #ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED
2436 #define Tcl_ChannelBlockModeProc_TCL_DECLARED
2438 EXTERN Tcl_DriverBlockModeProc
* Tcl_ChannelBlockModeProc (
2439 CONST Tcl_ChannelType
* chanTypePtr
);
2441 #ifndef Tcl_ChannelCloseProc_TCL_DECLARED
2442 #define Tcl_ChannelCloseProc_TCL_DECLARED
2444 EXTERN Tcl_DriverCloseProc
* Tcl_ChannelCloseProc (
2445 CONST Tcl_ChannelType
* chanTypePtr
);
2447 #ifndef Tcl_ChannelClose2Proc_TCL_DECLARED
2448 #define Tcl_ChannelClose2Proc_TCL_DECLARED
2450 EXTERN Tcl_DriverClose2Proc
* Tcl_ChannelClose2Proc (
2451 CONST Tcl_ChannelType
* chanTypePtr
);
2453 #ifndef Tcl_ChannelInputProc_TCL_DECLARED
2454 #define Tcl_ChannelInputProc_TCL_DECLARED
2456 EXTERN Tcl_DriverInputProc
* Tcl_ChannelInputProc (
2457 CONST Tcl_ChannelType
* chanTypePtr
);
2459 #ifndef Tcl_ChannelOutputProc_TCL_DECLARED
2460 #define Tcl_ChannelOutputProc_TCL_DECLARED
2462 EXTERN Tcl_DriverOutputProc
* Tcl_ChannelOutputProc (
2463 CONST Tcl_ChannelType
* chanTypePtr
);
2465 #ifndef Tcl_ChannelSeekProc_TCL_DECLARED
2466 #define Tcl_ChannelSeekProc_TCL_DECLARED
2468 EXTERN Tcl_DriverSeekProc
* Tcl_ChannelSeekProc (
2469 CONST Tcl_ChannelType
* chanTypePtr
);
2471 #ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED
2472 #define Tcl_ChannelSetOptionProc_TCL_DECLARED
2474 EXTERN Tcl_DriverSetOptionProc
* Tcl_ChannelSetOptionProc (
2475 CONST Tcl_ChannelType
* chanTypePtr
);
2477 #ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED
2478 #define Tcl_ChannelGetOptionProc_TCL_DECLARED
2480 EXTERN Tcl_DriverGetOptionProc
* Tcl_ChannelGetOptionProc (
2481 CONST Tcl_ChannelType
* chanTypePtr
);
2483 #ifndef Tcl_ChannelWatchProc_TCL_DECLARED
2484 #define Tcl_ChannelWatchProc_TCL_DECLARED
2486 EXTERN Tcl_DriverWatchProc
* Tcl_ChannelWatchProc (
2487 CONST Tcl_ChannelType
* chanTypePtr
);
2489 #ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED
2490 #define Tcl_ChannelGetHandleProc_TCL_DECLARED
2492 EXTERN Tcl_DriverGetHandleProc
* Tcl_ChannelGetHandleProc (
2493 CONST Tcl_ChannelType
* chanTypePtr
);
2495 #ifndef Tcl_ChannelFlushProc_TCL_DECLARED
2496 #define Tcl_ChannelFlushProc_TCL_DECLARED
2498 EXTERN Tcl_DriverFlushProc
* Tcl_ChannelFlushProc (
2499 CONST Tcl_ChannelType
* chanTypePtr
);
2501 #ifndef Tcl_ChannelHandlerProc_TCL_DECLARED
2502 #define Tcl_ChannelHandlerProc_TCL_DECLARED
2504 EXTERN Tcl_DriverHandlerProc
* Tcl_ChannelHandlerProc (
2505 CONST Tcl_ChannelType
* chanTypePtr
);
2507 #ifndef Tcl_JoinThread_TCL_DECLARED
2508 #define Tcl_JoinThread_TCL_DECLARED
2510 EXTERN
int Tcl_JoinThread (Tcl_ThreadId threadId
, int* result
);
2512 #ifndef Tcl_IsChannelShared_TCL_DECLARED
2513 #define Tcl_IsChannelShared_TCL_DECLARED
2515 EXTERN
int Tcl_IsChannelShared (Tcl_Channel channel
);
2517 #ifndef Tcl_IsChannelRegistered_TCL_DECLARED
2518 #define Tcl_IsChannelRegistered_TCL_DECLARED
2520 EXTERN
int Tcl_IsChannelRegistered (Tcl_Interp
* interp
,
2521 Tcl_Channel channel
);
2523 #ifndef Tcl_CutChannel_TCL_DECLARED
2524 #define Tcl_CutChannel_TCL_DECLARED
2526 EXTERN
void Tcl_CutChannel (Tcl_Channel channel
);
2528 #ifndef Tcl_SpliceChannel_TCL_DECLARED
2529 #define Tcl_SpliceChannel_TCL_DECLARED
2531 EXTERN
void Tcl_SpliceChannel (Tcl_Channel channel
);
2533 #ifndef Tcl_ClearChannelHandlers_TCL_DECLARED
2534 #define Tcl_ClearChannelHandlers_TCL_DECLARED
2536 EXTERN
void Tcl_ClearChannelHandlers (Tcl_Channel channel
);
2538 #ifndef Tcl_IsChannelExisting_TCL_DECLARED
2539 #define Tcl_IsChannelExisting_TCL_DECLARED
2541 EXTERN
int Tcl_IsChannelExisting (CONST
char* channelName
);
2543 #ifndef Tcl_UniCharNcasecmp_TCL_DECLARED
2544 #define Tcl_UniCharNcasecmp_TCL_DECLARED
2546 EXTERN
int Tcl_UniCharNcasecmp (CONST Tcl_UniChar
* ucs
,
2547 CONST Tcl_UniChar
* uct
,
2548 unsigned long numChars
);
2550 #ifndef Tcl_UniCharCaseMatch_TCL_DECLARED
2551 #define Tcl_UniCharCaseMatch_TCL_DECLARED
2553 EXTERN
int Tcl_UniCharCaseMatch (CONST Tcl_UniChar
* uniStr
,
2554 CONST Tcl_UniChar
* uniPattern
, int nocase
);
2556 #ifndef Tcl_FindHashEntry_TCL_DECLARED
2557 #define Tcl_FindHashEntry_TCL_DECLARED
2559 EXTERN Tcl_HashEntry
* Tcl_FindHashEntry (Tcl_HashTable
* tablePtr
,
2562 #ifndef Tcl_CreateHashEntry_TCL_DECLARED
2563 #define Tcl_CreateHashEntry_TCL_DECLARED
2565 EXTERN Tcl_HashEntry
* Tcl_CreateHashEntry (Tcl_HashTable
* tablePtr
,
2566 CONST
char * key
, int * newPtr
);
2568 #ifndef Tcl_InitCustomHashTable_TCL_DECLARED
2569 #define Tcl_InitCustomHashTable_TCL_DECLARED
2571 EXTERN
void Tcl_InitCustomHashTable (Tcl_HashTable
* tablePtr
,
2572 int keyType
, Tcl_HashKeyType
* typePtr
);
2574 #ifndef Tcl_InitObjHashTable_TCL_DECLARED
2575 #define Tcl_InitObjHashTable_TCL_DECLARED
2577 EXTERN
void Tcl_InitObjHashTable (Tcl_HashTable
* tablePtr
);
2579 #ifndef Tcl_CommandTraceInfo_TCL_DECLARED
2580 #define Tcl_CommandTraceInfo_TCL_DECLARED
2582 EXTERN ClientData
Tcl_CommandTraceInfo (Tcl_Interp
* interp
,
2583 CONST
char * varName
, int flags
,
2584 Tcl_CommandTraceProc
* procPtr
,
2585 ClientData prevClientData
);
2587 #ifndef Tcl_TraceCommand_TCL_DECLARED
2588 #define Tcl_TraceCommand_TCL_DECLARED
2590 EXTERN
int Tcl_TraceCommand (Tcl_Interp
* interp
,
2591 CONST
char * varName
, int flags
,
2592 Tcl_CommandTraceProc
* proc
,
2593 ClientData clientData
);
2595 #ifndef Tcl_UntraceCommand_TCL_DECLARED
2596 #define Tcl_UntraceCommand_TCL_DECLARED
2598 EXTERN
void Tcl_UntraceCommand (Tcl_Interp
* interp
,
2599 CONST
char * varName
, int flags
,
2600 Tcl_CommandTraceProc
* proc
,
2601 ClientData clientData
);
2603 #ifndef Tcl_AttemptAlloc_TCL_DECLARED
2604 #define Tcl_AttemptAlloc_TCL_DECLARED
2606 EXTERN
char * Tcl_AttemptAlloc (unsigned int size
);
2608 #ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED
2609 #define Tcl_AttemptDbCkalloc_TCL_DECLARED
2611 EXTERN
char * Tcl_AttemptDbCkalloc (unsigned int size
,
2612 CONST
char * file
, int line
);
2614 #ifndef Tcl_AttemptRealloc_TCL_DECLARED
2615 #define Tcl_AttemptRealloc_TCL_DECLARED
2617 EXTERN
char * Tcl_AttemptRealloc (char * ptr
, unsigned int size
);
2619 #ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED
2620 #define Tcl_AttemptDbCkrealloc_TCL_DECLARED
2622 EXTERN
char * Tcl_AttemptDbCkrealloc (char * ptr
,
2623 unsigned int size
, CONST
char * file
,
2626 #ifndef Tcl_AttemptSetObjLength_TCL_DECLARED
2627 #define Tcl_AttemptSetObjLength_TCL_DECLARED
2629 EXTERN
int Tcl_AttemptSetObjLength (Tcl_Obj
* objPtr
,
2632 #ifndef Tcl_GetChannelThread_TCL_DECLARED
2633 #define Tcl_GetChannelThread_TCL_DECLARED
2635 EXTERN Tcl_ThreadId
Tcl_GetChannelThread (Tcl_Channel channel
);
2637 #ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED
2638 #define Tcl_GetUnicodeFromObj_TCL_DECLARED
2640 EXTERN Tcl_UniChar
* Tcl_GetUnicodeFromObj (Tcl_Obj
* objPtr
,
2643 #ifndef Tcl_GetMathFuncInfo_TCL_DECLARED
2644 #define Tcl_GetMathFuncInfo_TCL_DECLARED
2646 EXTERN
int Tcl_GetMathFuncInfo (Tcl_Interp
* interp
,
2647 CONST
char * name
, int * numArgsPtr
,
2648 Tcl_ValueType
** argTypesPtr
,
2649 Tcl_MathProc
** procPtr
,
2650 ClientData
* clientDataPtr
);
2652 #ifndef Tcl_ListMathFuncs_TCL_DECLARED
2653 #define Tcl_ListMathFuncs_TCL_DECLARED
2655 EXTERN Tcl_Obj
* Tcl_ListMathFuncs (Tcl_Interp
* interp
,
2656 CONST
char * pattern
);
2658 #ifndef Tcl_SubstObj_TCL_DECLARED
2659 #define Tcl_SubstObj_TCL_DECLARED
2661 EXTERN Tcl_Obj
* Tcl_SubstObj (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
,
2664 #ifndef Tcl_DetachChannel_TCL_DECLARED
2665 #define Tcl_DetachChannel_TCL_DECLARED
2667 EXTERN
int Tcl_DetachChannel (Tcl_Interp
* interp
,
2668 Tcl_Channel channel
);
2670 #ifndef Tcl_IsStandardChannel_TCL_DECLARED
2671 #define Tcl_IsStandardChannel_TCL_DECLARED
2673 EXTERN
int Tcl_IsStandardChannel (Tcl_Channel channel
);
2675 #ifndef Tcl_FSCopyFile_TCL_DECLARED
2676 #define Tcl_FSCopyFile_TCL_DECLARED
2678 EXTERN
int Tcl_FSCopyFile (Tcl_Obj
* srcPathPtr
,
2679 Tcl_Obj
* destPathPtr
);
2681 #ifndef Tcl_FSCopyDirectory_TCL_DECLARED
2682 #define Tcl_FSCopyDirectory_TCL_DECLARED
2684 EXTERN
int Tcl_FSCopyDirectory (Tcl_Obj
* srcPathPtr
,
2685 Tcl_Obj
* destPathPtr
, Tcl_Obj
** errorPtr
);
2687 #ifndef Tcl_FSCreateDirectory_TCL_DECLARED
2688 #define Tcl_FSCreateDirectory_TCL_DECLARED
2690 EXTERN
int Tcl_FSCreateDirectory (Tcl_Obj
* pathPtr
);
2692 #ifndef Tcl_FSDeleteFile_TCL_DECLARED
2693 #define Tcl_FSDeleteFile_TCL_DECLARED
2695 EXTERN
int Tcl_FSDeleteFile (Tcl_Obj
* pathPtr
);
2697 #ifndef Tcl_FSLoadFile_TCL_DECLARED
2698 #define Tcl_FSLoadFile_TCL_DECLARED
2700 EXTERN
int Tcl_FSLoadFile (Tcl_Interp
* interp
,
2701 Tcl_Obj
* pathPtr
, CONST
char * sym1
,
2703 Tcl_PackageInitProc
** proc1Ptr
,
2704 Tcl_PackageInitProc
** proc2Ptr
,
2705 Tcl_LoadHandle
* handlePtr
,
2706 Tcl_FSUnloadFileProc
** unloadProcPtr
);
2708 #ifndef Tcl_FSMatchInDirectory_TCL_DECLARED
2709 #define Tcl_FSMatchInDirectory_TCL_DECLARED
2711 EXTERN
int Tcl_FSMatchInDirectory (Tcl_Interp
* interp
,
2712 Tcl_Obj
* result
, Tcl_Obj
* pathPtr
,
2713 CONST
char * pattern
,
2714 Tcl_GlobTypeData
* types
);
2716 #ifndef Tcl_FSLink_TCL_DECLARED
2717 #define Tcl_FSLink_TCL_DECLARED
2719 EXTERN Tcl_Obj
* Tcl_FSLink (Tcl_Obj
* pathPtr
, Tcl_Obj
* toPtr
,
2722 #ifndef Tcl_FSRemoveDirectory_TCL_DECLARED
2723 #define Tcl_FSRemoveDirectory_TCL_DECLARED
2725 EXTERN
int Tcl_FSRemoveDirectory (Tcl_Obj
* pathPtr
,
2726 int recursive
, Tcl_Obj
** errorPtr
);
2728 #ifndef Tcl_FSRenameFile_TCL_DECLARED
2729 #define Tcl_FSRenameFile_TCL_DECLARED
2731 EXTERN
int Tcl_FSRenameFile (Tcl_Obj
* srcPathPtr
,
2732 Tcl_Obj
* destPathPtr
);
2734 #ifndef Tcl_FSLstat_TCL_DECLARED
2735 #define Tcl_FSLstat_TCL_DECLARED
2737 EXTERN
int Tcl_FSLstat (Tcl_Obj
* pathPtr
, Tcl_StatBuf
* buf
);
2739 #ifndef Tcl_FSUtime_TCL_DECLARED
2740 #define Tcl_FSUtime_TCL_DECLARED
2742 EXTERN
int Tcl_FSUtime (Tcl_Obj
* pathPtr
,
2743 struct utimbuf
* tval
);
2745 #ifndef Tcl_FSFileAttrsGet_TCL_DECLARED
2746 #define Tcl_FSFileAttrsGet_TCL_DECLARED
2748 EXTERN
int Tcl_FSFileAttrsGet (Tcl_Interp
* interp
, int index
,
2749 Tcl_Obj
* pathPtr
, Tcl_Obj
** objPtrRef
);
2751 #ifndef Tcl_FSFileAttrsSet_TCL_DECLARED
2752 #define Tcl_FSFileAttrsSet_TCL_DECLARED
2754 EXTERN
int Tcl_FSFileAttrsSet (Tcl_Interp
* interp
, int index
,
2755 Tcl_Obj
* pathPtr
, Tcl_Obj
* objPtr
);
2757 #ifndef Tcl_FSFileAttrStrings_TCL_DECLARED
2758 #define Tcl_FSFileAttrStrings_TCL_DECLARED
2760 EXTERN CONST
char ** Tcl_FSFileAttrStrings (Tcl_Obj
* pathPtr
,
2761 Tcl_Obj
** objPtrRef
);
2763 #ifndef Tcl_FSStat_TCL_DECLARED
2764 #define Tcl_FSStat_TCL_DECLARED
2766 EXTERN
int Tcl_FSStat (Tcl_Obj
* pathPtr
, Tcl_StatBuf
* buf
);
2768 #ifndef Tcl_FSAccess_TCL_DECLARED
2769 #define Tcl_FSAccess_TCL_DECLARED
2771 EXTERN
int Tcl_FSAccess (Tcl_Obj
* pathPtr
, int mode
);
2773 #ifndef Tcl_FSOpenFileChannel_TCL_DECLARED
2774 #define Tcl_FSOpenFileChannel_TCL_DECLARED
2776 EXTERN Tcl_Channel
Tcl_FSOpenFileChannel (Tcl_Interp
* interp
,
2777 Tcl_Obj
* pathPtr
, CONST
char * modeString
,
2780 #ifndef Tcl_FSGetCwd_TCL_DECLARED
2781 #define Tcl_FSGetCwd_TCL_DECLARED
2783 EXTERN Tcl_Obj
* Tcl_FSGetCwd (Tcl_Interp
* interp
);
2785 #ifndef Tcl_FSChdir_TCL_DECLARED
2786 #define Tcl_FSChdir_TCL_DECLARED
2788 EXTERN
int Tcl_FSChdir (Tcl_Obj
* pathPtr
);
2790 #ifndef Tcl_FSConvertToPathType_TCL_DECLARED
2791 #define Tcl_FSConvertToPathType_TCL_DECLARED
2793 EXTERN
int Tcl_FSConvertToPathType (Tcl_Interp
* interp
,
2796 #ifndef Tcl_FSJoinPath_TCL_DECLARED
2797 #define Tcl_FSJoinPath_TCL_DECLARED
2799 EXTERN Tcl_Obj
* Tcl_FSJoinPath (Tcl_Obj
* listObj
, int elements
);
2801 #ifndef Tcl_FSSplitPath_TCL_DECLARED
2802 #define Tcl_FSSplitPath_TCL_DECLARED
2804 EXTERN Tcl_Obj
* Tcl_FSSplitPath (Tcl_Obj
* pathPtr
, int * lenPtr
);
2806 #ifndef Tcl_FSEqualPaths_TCL_DECLARED
2807 #define Tcl_FSEqualPaths_TCL_DECLARED
2809 EXTERN
int Tcl_FSEqualPaths (Tcl_Obj
* firstPtr
,
2810 Tcl_Obj
* secondPtr
);
2812 #ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED
2813 #define Tcl_FSGetNormalizedPath_TCL_DECLARED
2815 EXTERN Tcl_Obj
* Tcl_FSGetNormalizedPath (Tcl_Interp
* interp
,
2818 #ifndef Tcl_FSJoinToPath_TCL_DECLARED
2819 #define Tcl_FSJoinToPath_TCL_DECLARED
2821 EXTERN Tcl_Obj
* Tcl_FSJoinToPath (Tcl_Obj
* pathPtr
, int objc
,
2822 Tcl_Obj
*CONST objv
[]);
2824 #ifndef Tcl_FSGetInternalRep_TCL_DECLARED
2825 #define Tcl_FSGetInternalRep_TCL_DECLARED
2827 EXTERN ClientData
Tcl_FSGetInternalRep (Tcl_Obj
* pathPtr
,
2828 Tcl_Filesystem
* fsPtr
);
2830 #ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED
2831 #define Tcl_FSGetTranslatedPath_TCL_DECLARED
2833 EXTERN Tcl_Obj
* Tcl_FSGetTranslatedPath (Tcl_Interp
* interp
,
2836 #ifndef Tcl_FSEvalFile_TCL_DECLARED
2837 #define Tcl_FSEvalFile_TCL_DECLARED
2839 EXTERN
int Tcl_FSEvalFile (Tcl_Interp
* interp
,
2840 Tcl_Obj
* fileName
);
2842 #ifndef Tcl_FSNewNativePath_TCL_DECLARED
2843 #define Tcl_FSNewNativePath_TCL_DECLARED
2845 EXTERN Tcl_Obj
* Tcl_FSNewNativePath (Tcl_Filesystem
* fromFilesystem
,
2846 ClientData clientData
);
2848 #ifndef Tcl_FSGetNativePath_TCL_DECLARED
2849 #define Tcl_FSGetNativePath_TCL_DECLARED
2851 EXTERN CONST
char* Tcl_FSGetNativePath (Tcl_Obj
* pathPtr
);
2853 #ifndef Tcl_FSFileSystemInfo_TCL_DECLARED
2854 #define Tcl_FSFileSystemInfo_TCL_DECLARED
2856 EXTERN Tcl_Obj
* Tcl_FSFileSystemInfo (Tcl_Obj
* pathPtr
);
2858 #ifndef Tcl_FSPathSeparator_TCL_DECLARED
2859 #define Tcl_FSPathSeparator_TCL_DECLARED
2861 EXTERN Tcl_Obj
* Tcl_FSPathSeparator (Tcl_Obj
* pathPtr
);
2863 #ifndef Tcl_FSListVolumes_TCL_DECLARED
2864 #define Tcl_FSListVolumes_TCL_DECLARED
2866 EXTERN Tcl_Obj
* Tcl_FSListVolumes (void);
2868 #ifndef Tcl_FSRegister_TCL_DECLARED
2869 #define Tcl_FSRegister_TCL_DECLARED
2871 EXTERN
int Tcl_FSRegister (ClientData clientData
,
2872 Tcl_Filesystem
* fsPtr
);
2874 #ifndef Tcl_FSUnregister_TCL_DECLARED
2875 #define Tcl_FSUnregister_TCL_DECLARED
2877 EXTERN
int Tcl_FSUnregister (Tcl_Filesystem
* fsPtr
);
2879 #ifndef Tcl_FSData_TCL_DECLARED
2880 #define Tcl_FSData_TCL_DECLARED
2882 EXTERN ClientData
Tcl_FSData (Tcl_Filesystem
* fsPtr
);
2884 #ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED
2885 #define Tcl_FSGetTranslatedStringPath_TCL_DECLARED
2887 EXTERN CONST
char* Tcl_FSGetTranslatedStringPath (Tcl_Interp
* interp
,
2890 #ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED
2891 #define Tcl_FSGetFileSystemForPath_TCL_DECLARED
2893 EXTERN Tcl_Filesystem
* Tcl_FSGetFileSystemForPath (Tcl_Obj
* pathPtr
);
2895 #ifndef Tcl_FSGetPathType_TCL_DECLARED
2896 #define Tcl_FSGetPathType_TCL_DECLARED
2898 EXTERN Tcl_PathType
Tcl_FSGetPathType (Tcl_Obj
* pathPtr
);
2900 #ifndef Tcl_OutputBuffered_TCL_DECLARED
2901 #define Tcl_OutputBuffered_TCL_DECLARED
2903 EXTERN
int Tcl_OutputBuffered (Tcl_Channel chan
);
2905 #ifndef Tcl_FSMountsChanged_TCL_DECLARED
2906 #define Tcl_FSMountsChanged_TCL_DECLARED
2908 EXTERN
void Tcl_FSMountsChanged (Tcl_Filesystem
* fsPtr
);
2910 #ifndef Tcl_EvalTokensStandard_TCL_DECLARED
2911 #define Tcl_EvalTokensStandard_TCL_DECLARED
2913 EXTERN
int Tcl_EvalTokensStandard (Tcl_Interp
* interp
,
2914 Tcl_Token
* tokenPtr
, int count
);
2916 #ifndef Tcl_GetTime_TCL_DECLARED
2917 #define Tcl_GetTime_TCL_DECLARED
2919 EXTERN
void Tcl_GetTime (Tcl_Time
* timeBuf
);
2921 #ifndef Tcl_CreateObjTrace_TCL_DECLARED
2922 #define Tcl_CreateObjTrace_TCL_DECLARED
2924 EXTERN Tcl_Trace
Tcl_CreateObjTrace (Tcl_Interp
* interp
, int level
,
2925 int flags
, Tcl_CmdObjTraceProc
* objProc
,
2926 ClientData clientData
,
2927 Tcl_CmdObjTraceDeleteProc
* delProc
);
2929 #ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED
2930 #define Tcl_GetCommandInfoFromToken_TCL_DECLARED
2932 EXTERN
int Tcl_GetCommandInfoFromToken (Tcl_Command token
,
2933 Tcl_CmdInfo
* infoPtr
);
2935 #ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED
2936 #define Tcl_SetCommandInfoFromToken_TCL_DECLARED
2938 EXTERN
int Tcl_SetCommandInfoFromToken (Tcl_Command token
,
2939 CONST Tcl_CmdInfo
* infoPtr
);
2941 #ifndef Tcl_DbNewWideIntObj_TCL_DECLARED
2942 #define Tcl_DbNewWideIntObj_TCL_DECLARED
2944 EXTERN Tcl_Obj
* Tcl_DbNewWideIntObj (Tcl_WideInt wideValue
,
2945 CONST
char * file
, int line
);
2947 #ifndef Tcl_GetWideIntFromObj_TCL_DECLARED
2948 #define Tcl_GetWideIntFromObj_TCL_DECLARED
2950 EXTERN
int Tcl_GetWideIntFromObj (Tcl_Interp
* interp
,
2951 Tcl_Obj
* objPtr
, Tcl_WideInt
* widePtr
);
2953 #ifndef Tcl_NewWideIntObj_TCL_DECLARED
2954 #define Tcl_NewWideIntObj_TCL_DECLARED
2956 EXTERN Tcl_Obj
* Tcl_NewWideIntObj (Tcl_WideInt wideValue
);
2958 #ifndef Tcl_SetWideIntObj_TCL_DECLARED
2959 #define Tcl_SetWideIntObj_TCL_DECLARED
2961 EXTERN
void Tcl_SetWideIntObj (Tcl_Obj
* objPtr
,
2962 Tcl_WideInt wideValue
);
2964 #ifndef Tcl_AllocStatBuf_TCL_DECLARED
2965 #define Tcl_AllocStatBuf_TCL_DECLARED
2967 EXTERN Tcl_StatBuf
* Tcl_AllocStatBuf (void);
2969 #ifndef Tcl_Seek_TCL_DECLARED
2970 #define Tcl_Seek_TCL_DECLARED
2972 EXTERN Tcl_WideInt
Tcl_Seek (Tcl_Channel chan
, Tcl_WideInt offset
,
2975 #ifndef Tcl_Tell_TCL_DECLARED
2976 #define Tcl_Tell_TCL_DECLARED
2978 EXTERN Tcl_WideInt
Tcl_Tell (Tcl_Channel chan
);
2980 #ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED
2981 #define Tcl_ChannelWideSeekProc_TCL_DECLARED
2983 EXTERN Tcl_DriverWideSeekProc
* Tcl_ChannelWideSeekProc (
2984 CONST Tcl_ChannelType
* chanTypePtr
);
2986 #ifndef Tcl_DictObjPut_TCL_DECLARED
2987 #define Tcl_DictObjPut_TCL_DECLARED
2989 EXTERN
int Tcl_DictObjPut (Tcl_Interp
* interp
,
2990 Tcl_Obj
* dictPtr
, Tcl_Obj
* keyPtr
,
2991 Tcl_Obj
* valuePtr
);
2993 #ifndef Tcl_DictObjGet_TCL_DECLARED
2994 #define Tcl_DictObjGet_TCL_DECLARED
2996 EXTERN
int Tcl_DictObjGet (Tcl_Interp
* interp
,
2997 Tcl_Obj
* dictPtr
, Tcl_Obj
* keyPtr
,
2998 Tcl_Obj
** valuePtrPtr
);
3000 #ifndef Tcl_DictObjRemove_TCL_DECLARED
3001 #define Tcl_DictObjRemove_TCL_DECLARED
3003 EXTERN
int Tcl_DictObjRemove (Tcl_Interp
* interp
,
3004 Tcl_Obj
* dictPtr
, Tcl_Obj
* keyPtr
);
3006 #ifndef Tcl_DictObjSize_TCL_DECLARED
3007 #define Tcl_DictObjSize_TCL_DECLARED
3009 EXTERN
int Tcl_DictObjSize (Tcl_Interp
* interp
,
3010 Tcl_Obj
* dictPtr
, int * sizePtr
);
3012 #ifndef Tcl_DictObjFirst_TCL_DECLARED
3013 #define Tcl_DictObjFirst_TCL_DECLARED
3015 EXTERN
int Tcl_DictObjFirst (Tcl_Interp
* interp
,
3017 Tcl_DictSearch
* searchPtr
,
3018 Tcl_Obj
** keyPtrPtr
, Tcl_Obj
** valuePtrPtr
,
3021 #ifndef Tcl_DictObjNext_TCL_DECLARED
3022 #define Tcl_DictObjNext_TCL_DECLARED
3024 EXTERN
void Tcl_DictObjNext (Tcl_DictSearch
* searchPtr
,
3025 Tcl_Obj
** keyPtrPtr
, Tcl_Obj
** valuePtrPtr
,
3028 #ifndef Tcl_DictObjDone_TCL_DECLARED
3029 #define Tcl_DictObjDone_TCL_DECLARED
3031 EXTERN
void Tcl_DictObjDone (Tcl_DictSearch
* searchPtr
);
3033 #ifndef Tcl_DictObjPutKeyList_TCL_DECLARED
3034 #define Tcl_DictObjPutKeyList_TCL_DECLARED
3036 EXTERN
int Tcl_DictObjPutKeyList (Tcl_Interp
* interp
,
3037 Tcl_Obj
* dictPtr
, int keyc
,
3038 Tcl_Obj
*CONST
* keyv
, Tcl_Obj
* valuePtr
);
3040 #ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED
3041 #define Tcl_DictObjRemoveKeyList_TCL_DECLARED
3043 EXTERN
int Tcl_DictObjRemoveKeyList (Tcl_Interp
* interp
,
3044 Tcl_Obj
* dictPtr
, int keyc
,
3045 Tcl_Obj
*CONST
* keyv
);
3047 #ifndef Tcl_NewDictObj_TCL_DECLARED
3048 #define Tcl_NewDictObj_TCL_DECLARED
3050 EXTERN Tcl_Obj
* Tcl_NewDictObj (void);
3052 #ifndef Tcl_DbNewDictObj_TCL_DECLARED
3053 #define Tcl_DbNewDictObj_TCL_DECLARED
3055 EXTERN Tcl_Obj
* Tcl_DbNewDictObj (CONST
char * file
, int line
);
3057 #ifndef Tcl_RegisterConfig_TCL_DECLARED
3058 #define Tcl_RegisterConfig_TCL_DECLARED
3060 EXTERN
void Tcl_RegisterConfig (Tcl_Interp
* interp
,
3061 CONST
char* pkgName
,
3062 Tcl_Config
* configuration
,
3063 CONST
char* valEncoding
);
3065 #ifndef Tcl_CreateNamespace_TCL_DECLARED
3066 #define Tcl_CreateNamespace_TCL_DECLARED
3068 EXTERN Tcl_Namespace
* Tcl_CreateNamespace (Tcl_Interp
* interp
,
3069 CONST
char * name
, ClientData clientData
,
3070 Tcl_NamespaceDeleteProc
* deleteProc
);
3072 #ifndef Tcl_DeleteNamespace_TCL_DECLARED
3073 #define Tcl_DeleteNamespace_TCL_DECLARED
3075 EXTERN
void Tcl_DeleteNamespace (Tcl_Namespace
* nsPtr
);
3077 #ifndef Tcl_AppendExportList_TCL_DECLARED
3078 #define Tcl_AppendExportList_TCL_DECLARED
3080 EXTERN
int Tcl_AppendExportList (Tcl_Interp
* interp
,
3081 Tcl_Namespace
* nsPtr
, Tcl_Obj
* objPtr
);
3083 #ifndef Tcl_Export_TCL_DECLARED
3084 #define Tcl_Export_TCL_DECLARED
3086 EXTERN
int Tcl_Export (Tcl_Interp
* interp
,
3087 Tcl_Namespace
* nsPtr
, CONST
char * pattern
,
3088 int resetListFirst
);
3090 #ifndef Tcl_Import_TCL_DECLARED
3091 #define Tcl_Import_TCL_DECLARED
3093 EXTERN
int Tcl_Import (Tcl_Interp
* interp
,
3094 Tcl_Namespace
* nsPtr
, CONST
char * pattern
,
3095 int allowOverwrite
);
3097 #ifndef Tcl_ForgetImport_TCL_DECLARED
3098 #define Tcl_ForgetImport_TCL_DECLARED
3100 EXTERN
int Tcl_ForgetImport (Tcl_Interp
* interp
,
3101 Tcl_Namespace
* nsPtr
, CONST
char * pattern
);
3103 #ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
3104 #define Tcl_GetCurrentNamespace_TCL_DECLARED
3106 EXTERN Tcl_Namespace
* Tcl_GetCurrentNamespace (Tcl_Interp
* interp
);
3108 #ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
3109 #define Tcl_GetGlobalNamespace_TCL_DECLARED
3111 EXTERN Tcl_Namespace
* Tcl_GetGlobalNamespace (Tcl_Interp
* interp
);
3113 #ifndef Tcl_FindNamespace_TCL_DECLARED
3114 #define Tcl_FindNamespace_TCL_DECLARED
3116 EXTERN Tcl_Namespace
* Tcl_FindNamespace (Tcl_Interp
* interp
,
3118 Tcl_Namespace
* contextNsPtr
, int flags
);
3120 #ifndef Tcl_FindCommand_TCL_DECLARED
3121 #define Tcl_FindCommand_TCL_DECLARED
3123 EXTERN Tcl_Command
Tcl_FindCommand (Tcl_Interp
* interp
,
3125 Tcl_Namespace
* contextNsPtr
, int flags
);
3127 #ifndef Tcl_GetCommandFromObj_TCL_DECLARED
3128 #define Tcl_GetCommandFromObj_TCL_DECLARED
3130 EXTERN Tcl_Command
Tcl_GetCommandFromObj (Tcl_Interp
* interp
,
3133 #ifndef Tcl_GetCommandFullName_TCL_DECLARED
3134 #define Tcl_GetCommandFullName_TCL_DECLARED
3136 EXTERN
void Tcl_GetCommandFullName (Tcl_Interp
* interp
,
3137 Tcl_Command command
, Tcl_Obj
* objPtr
);
3139 #ifndef Tcl_FSEvalFileEx_TCL_DECLARED
3140 #define Tcl_FSEvalFileEx_TCL_DECLARED
3142 EXTERN
int Tcl_FSEvalFileEx (Tcl_Interp
* interp
,
3144 CONST
char * encodingName
);
3146 #ifndef Tcl_SetExitProc_TCL_DECLARED
3147 #define Tcl_SetExitProc_TCL_DECLARED
3149 EXTERN Tcl_ExitProc
* Tcl_SetExitProc (Tcl_ExitProc
* proc
);
3151 #ifndef Tcl_LimitAddHandler_TCL_DECLARED
3152 #define Tcl_LimitAddHandler_TCL_DECLARED
3154 EXTERN
void Tcl_LimitAddHandler (Tcl_Interp
* interp
, int type
,
3155 Tcl_LimitHandlerProc
* handlerProc
,
3156 ClientData clientData
,
3157 Tcl_LimitHandlerDeleteProc
* deleteProc
);
3159 #ifndef Tcl_LimitRemoveHandler_TCL_DECLARED
3160 #define Tcl_LimitRemoveHandler_TCL_DECLARED
3162 EXTERN
void Tcl_LimitRemoveHandler (Tcl_Interp
* interp
,
3163 int type
, Tcl_LimitHandlerProc
* handlerProc
,
3164 ClientData clientData
);
3166 #ifndef Tcl_LimitReady_TCL_DECLARED
3167 #define Tcl_LimitReady_TCL_DECLARED
3169 EXTERN
int Tcl_LimitReady (Tcl_Interp
* interp
);
3171 #ifndef Tcl_LimitCheck_TCL_DECLARED
3172 #define Tcl_LimitCheck_TCL_DECLARED
3174 EXTERN
int Tcl_LimitCheck (Tcl_Interp
* interp
);
3176 #ifndef Tcl_LimitExceeded_TCL_DECLARED
3177 #define Tcl_LimitExceeded_TCL_DECLARED
3179 EXTERN
int Tcl_LimitExceeded (Tcl_Interp
* interp
);
3181 #ifndef Tcl_LimitSetCommands_TCL_DECLARED
3182 #define Tcl_LimitSetCommands_TCL_DECLARED
3184 EXTERN
void Tcl_LimitSetCommands (Tcl_Interp
* interp
,
3187 #ifndef Tcl_LimitSetTime_TCL_DECLARED
3188 #define Tcl_LimitSetTime_TCL_DECLARED
3190 EXTERN
void Tcl_LimitSetTime (Tcl_Interp
* interp
,
3191 Tcl_Time
* timeLimitPtr
);
3193 #ifndef Tcl_LimitSetGranularity_TCL_DECLARED
3194 #define Tcl_LimitSetGranularity_TCL_DECLARED
3196 EXTERN
void Tcl_LimitSetGranularity (Tcl_Interp
* interp
,
3197 int type
, int granularity
);
3199 #ifndef Tcl_LimitTypeEnabled_TCL_DECLARED
3200 #define Tcl_LimitTypeEnabled_TCL_DECLARED
3202 EXTERN
int Tcl_LimitTypeEnabled (Tcl_Interp
* interp
, int type
);
3204 #ifndef Tcl_LimitTypeExceeded_TCL_DECLARED
3205 #define Tcl_LimitTypeExceeded_TCL_DECLARED
3207 EXTERN
int Tcl_LimitTypeExceeded (Tcl_Interp
* interp
, int type
);
3209 #ifndef Tcl_LimitTypeSet_TCL_DECLARED
3210 #define Tcl_LimitTypeSet_TCL_DECLARED
3212 EXTERN
void Tcl_LimitTypeSet (Tcl_Interp
* interp
, int type
);
3214 #ifndef Tcl_LimitTypeReset_TCL_DECLARED
3215 #define Tcl_LimitTypeReset_TCL_DECLARED
3217 EXTERN
void Tcl_LimitTypeReset (Tcl_Interp
* interp
, int type
);
3219 #ifndef Tcl_LimitGetCommands_TCL_DECLARED
3220 #define Tcl_LimitGetCommands_TCL_DECLARED
3222 EXTERN
int Tcl_LimitGetCommands (Tcl_Interp
* interp
);
3224 #ifndef Tcl_LimitGetTime_TCL_DECLARED
3225 #define Tcl_LimitGetTime_TCL_DECLARED
3227 EXTERN
void Tcl_LimitGetTime (Tcl_Interp
* interp
,
3228 Tcl_Time
* timeLimitPtr
);
3230 #ifndef Tcl_LimitGetGranularity_TCL_DECLARED
3231 #define Tcl_LimitGetGranularity_TCL_DECLARED
3233 EXTERN
int Tcl_LimitGetGranularity (Tcl_Interp
* interp
,
3236 #ifndef Tcl_SaveInterpState_TCL_DECLARED
3237 #define Tcl_SaveInterpState_TCL_DECLARED
3239 EXTERN Tcl_InterpState
Tcl_SaveInterpState (Tcl_Interp
* interp
, int status
);
3241 #ifndef Tcl_RestoreInterpState_TCL_DECLARED
3242 #define Tcl_RestoreInterpState_TCL_DECLARED
3244 EXTERN
int Tcl_RestoreInterpState (Tcl_Interp
* interp
,
3245 Tcl_InterpState state
);
3247 #ifndef Tcl_DiscardInterpState_TCL_DECLARED
3248 #define Tcl_DiscardInterpState_TCL_DECLARED
3250 EXTERN
void Tcl_DiscardInterpState (Tcl_InterpState state
);
3252 #ifndef Tcl_SetReturnOptions_TCL_DECLARED
3253 #define Tcl_SetReturnOptions_TCL_DECLARED
3255 EXTERN
int Tcl_SetReturnOptions (Tcl_Interp
* interp
,
3258 #ifndef Tcl_GetReturnOptions_TCL_DECLARED
3259 #define Tcl_GetReturnOptions_TCL_DECLARED
3261 EXTERN Tcl_Obj
* Tcl_GetReturnOptions (Tcl_Interp
* interp
,
3264 #ifndef Tcl_IsEnsemble_TCL_DECLARED
3265 #define Tcl_IsEnsemble_TCL_DECLARED
3267 EXTERN
int Tcl_IsEnsemble (Tcl_Command token
);
3269 #ifndef Tcl_CreateEnsemble_TCL_DECLARED
3270 #define Tcl_CreateEnsemble_TCL_DECLARED
3272 EXTERN Tcl_Command
Tcl_CreateEnsemble (Tcl_Interp
* interp
,
3274 Tcl_Namespace
* namespacePtr
, int flags
);
3276 #ifndef Tcl_FindEnsemble_TCL_DECLARED
3277 #define Tcl_FindEnsemble_TCL_DECLARED
3279 EXTERN Tcl_Command
Tcl_FindEnsemble (Tcl_Interp
* interp
,
3280 Tcl_Obj
* cmdNameObj
, int flags
);
3282 #ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED
3283 #define Tcl_SetEnsembleSubcommandList_TCL_DECLARED
3285 EXTERN
int Tcl_SetEnsembleSubcommandList (Tcl_Interp
* interp
,
3286 Tcl_Command token
, Tcl_Obj
* subcmdList
);
3288 #ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED
3289 #define Tcl_SetEnsembleMappingDict_TCL_DECLARED
3291 EXTERN
int Tcl_SetEnsembleMappingDict (Tcl_Interp
* interp
,
3292 Tcl_Command token
, Tcl_Obj
* mapDict
);
3294 #ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
3295 #define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
3297 EXTERN
int Tcl_SetEnsembleUnknownHandler (Tcl_Interp
* interp
,
3298 Tcl_Command token
, Tcl_Obj
* unknownList
);
3300 #ifndef Tcl_SetEnsembleFlags_TCL_DECLARED
3301 #define Tcl_SetEnsembleFlags_TCL_DECLARED
3303 EXTERN
int Tcl_SetEnsembleFlags (Tcl_Interp
* interp
,
3304 Tcl_Command token
, int flags
);
3306 #ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED
3307 #define Tcl_GetEnsembleSubcommandList_TCL_DECLARED
3309 EXTERN
int Tcl_GetEnsembleSubcommandList (Tcl_Interp
* interp
,
3310 Tcl_Command token
, Tcl_Obj
** subcmdListPtr
);
3312 #ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED
3313 #define Tcl_GetEnsembleMappingDict_TCL_DECLARED
3315 EXTERN
int Tcl_GetEnsembleMappingDict (Tcl_Interp
* interp
,
3316 Tcl_Command token
, Tcl_Obj
** mapDictPtr
);
3318 #ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
3319 #define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
3321 EXTERN
int Tcl_GetEnsembleUnknownHandler (Tcl_Interp
* interp
,
3322 Tcl_Command token
, Tcl_Obj
** unknownListPtr
);
3324 #ifndef Tcl_GetEnsembleFlags_TCL_DECLARED
3325 #define Tcl_GetEnsembleFlags_TCL_DECLARED
3327 EXTERN
int Tcl_GetEnsembleFlags (Tcl_Interp
* interp
,
3328 Tcl_Command token
, int * flagsPtr
);
3330 #ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED
3331 #define Tcl_GetEnsembleNamespace_TCL_DECLARED
3333 EXTERN
int Tcl_GetEnsembleNamespace (Tcl_Interp
* interp
,
3335 Tcl_Namespace
** namespacePtrPtr
);
3337 #ifndef Tcl_SetTimeProc_TCL_DECLARED
3338 #define Tcl_SetTimeProc_TCL_DECLARED
3340 EXTERN
void Tcl_SetTimeProc (Tcl_GetTimeProc
* getProc
,
3341 Tcl_ScaleTimeProc
* scaleProc
,
3342 ClientData clientData
);
3344 #ifndef Tcl_QueryTimeProc_TCL_DECLARED
3345 #define Tcl_QueryTimeProc_TCL_DECLARED
3347 EXTERN
void Tcl_QueryTimeProc (Tcl_GetTimeProc
** getProc
,
3348 Tcl_ScaleTimeProc
** scaleProc
,
3349 ClientData
* clientData
);
3351 #ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED
3352 #define Tcl_ChannelThreadActionProc_TCL_DECLARED
3354 EXTERN Tcl_DriverThreadActionProc
* Tcl_ChannelThreadActionProc (
3355 CONST Tcl_ChannelType
* chanTypePtr
);
3357 #ifndef Tcl_NewBignumObj_TCL_DECLARED
3358 #define Tcl_NewBignumObj_TCL_DECLARED
3360 EXTERN Tcl_Obj
* Tcl_NewBignumObj (mp_int
* value
);
3362 #ifndef Tcl_DbNewBignumObj_TCL_DECLARED
3363 #define Tcl_DbNewBignumObj_TCL_DECLARED
3365 EXTERN Tcl_Obj
* Tcl_DbNewBignumObj (mp_int
* value
, CONST
char* file
,
3368 #ifndef Tcl_SetBignumObj_TCL_DECLARED
3369 #define Tcl_SetBignumObj_TCL_DECLARED
3371 EXTERN
void Tcl_SetBignumObj (Tcl_Obj
* obj
, mp_int
* value
);
3373 #ifndef Tcl_GetBignumFromObj_TCL_DECLARED
3374 #define Tcl_GetBignumFromObj_TCL_DECLARED
3376 EXTERN
int Tcl_GetBignumFromObj (Tcl_Interp
* interp
,
3377 Tcl_Obj
* obj
, mp_int
* value
);
3379 #ifndef Tcl_TakeBignumFromObj_TCL_DECLARED
3380 #define Tcl_TakeBignumFromObj_TCL_DECLARED
3382 EXTERN
int Tcl_TakeBignumFromObj (Tcl_Interp
* interp
,
3383 Tcl_Obj
* obj
, mp_int
* value
);
3385 #ifndef Tcl_TruncateChannel_TCL_DECLARED
3386 #define Tcl_TruncateChannel_TCL_DECLARED
3388 EXTERN
int Tcl_TruncateChannel (Tcl_Channel chan
,
3389 Tcl_WideInt length
);
3391 #ifndef Tcl_ChannelTruncateProc_TCL_DECLARED
3392 #define Tcl_ChannelTruncateProc_TCL_DECLARED
3394 EXTERN Tcl_DriverTruncateProc
* Tcl_ChannelTruncateProc (
3395 CONST Tcl_ChannelType
* chanTypePtr
);
3397 #ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED
3398 #define Tcl_SetChannelErrorInterp_TCL_DECLARED
3400 EXTERN
void Tcl_SetChannelErrorInterp (Tcl_Interp
* interp
,
3403 #ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED
3404 #define Tcl_GetChannelErrorInterp_TCL_DECLARED
3406 EXTERN
void Tcl_GetChannelErrorInterp (Tcl_Interp
* interp
,
3409 #ifndef Tcl_SetChannelError_TCL_DECLARED
3410 #define Tcl_SetChannelError_TCL_DECLARED
3412 EXTERN
void Tcl_SetChannelError (Tcl_Channel chan
, Tcl_Obj
* msg
);
3414 #ifndef Tcl_GetChannelError_TCL_DECLARED
3415 #define Tcl_GetChannelError_TCL_DECLARED
3417 EXTERN
void Tcl_GetChannelError (Tcl_Channel chan
, Tcl_Obj
** msg
);
3419 #ifndef Tcl_InitBignumFromDouble_TCL_DECLARED
3420 #define Tcl_InitBignumFromDouble_TCL_DECLARED
3422 EXTERN
int Tcl_InitBignumFromDouble (Tcl_Interp
* interp
,
3423 double initval
, mp_int
* toInit
);
3425 #ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
3426 #define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
3428 EXTERN Tcl_Obj
* Tcl_GetNamespaceUnknownHandler (Tcl_Interp
* interp
,
3429 Tcl_Namespace
* nsPtr
);
3431 #ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
3432 #define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
3434 EXTERN
int Tcl_SetNamespaceUnknownHandler (Tcl_Interp
* interp
,
3435 Tcl_Namespace
* nsPtr
, Tcl_Obj
* handlerPtr
);
3437 #ifndef Tcl_GetEncodingFromObj_TCL_DECLARED
3438 #define Tcl_GetEncodingFromObj_TCL_DECLARED
3440 EXTERN
int Tcl_GetEncodingFromObj (Tcl_Interp
* interp
,
3441 Tcl_Obj
* objPtr
, Tcl_Encoding
* encodingPtr
);
3443 #ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED
3444 #define Tcl_GetEncodingSearchPath_TCL_DECLARED
3446 EXTERN Tcl_Obj
* Tcl_GetEncodingSearchPath (void);
3448 #ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED
3449 #define Tcl_SetEncodingSearchPath_TCL_DECLARED
3451 EXTERN
int Tcl_SetEncodingSearchPath (Tcl_Obj
* searchPath
);
3453 #ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
3454 #define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
3456 EXTERN CONST
char * Tcl_GetEncodingNameFromEnvironment (
3457 Tcl_DString
* bufPtr
);
3459 #ifndef Tcl_PkgRequireProc_TCL_DECLARED
3460 #define Tcl_PkgRequireProc_TCL_DECLARED
3462 EXTERN
int Tcl_PkgRequireProc (Tcl_Interp
* interp
,
3463 CONST
char * name
, int objc
,
3464 Tcl_Obj
*CONST objv
[],
3465 ClientData
* clientDataPtr
);
3467 #ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED
3468 #define Tcl_AppendObjToErrorInfo_TCL_DECLARED
3470 EXTERN
void Tcl_AppendObjToErrorInfo (Tcl_Interp
* interp
,
3473 #ifndef Tcl_AppendLimitedToObj_TCL_DECLARED
3474 #define Tcl_AppendLimitedToObj_TCL_DECLARED
3476 EXTERN
void Tcl_AppendLimitedToObj (Tcl_Obj
* objPtr
,
3477 CONST
char * bytes
, int length
, int limit
,
3478 CONST
char * ellipsis
);
3480 #ifndef Tcl_Format_TCL_DECLARED
3481 #define Tcl_Format_TCL_DECLARED
3483 EXTERN Tcl_Obj
* Tcl_Format (Tcl_Interp
* interp
, CONST
char * format
,
3484 int objc
, Tcl_Obj
* CONST objv
[]);
3486 #ifndef Tcl_AppendFormatToObj_TCL_DECLARED
3487 #define Tcl_AppendFormatToObj_TCL_DECLARED
3489 EXTERN
int Tcl_AppendFormatToObj (Tcl_Interp
* interp
,
3490 Tcl_Obj
* objPtr
, CONST
char * format
,
3491 int objc
, Tcl_Obj
* CONST objv
[]);
3493 #ifndef Tcl_ObjPrintf_TCL_DECLARED
3494 #define Tcl_ObjPrintf_TCL_DECLARED
3496 EXTERN Tcl_Obj
* Tcl_ObjPrintf (CONST
char * format
, ...);
3498 #ifndef Tcl_AppendPrintfToObj_TCL_DECLARED
3499 #define Tcl_AppendPrintfToObj_TCL_DECLARED
3501 EXTERN
void Tcl_AppendPrintfToObj (Tcl_Obj
* objPtr
,
3502 CONST
char * format
, ...);
3505 typedef struct TclStubHooks
{
3506 struct TclPlatStubs
*tclPlatStubs
;
3507 struct TclIntStubs
*tclIntStubs
;
3508 struct TclIntPlatStubs
*tclIntPlatStubs
;
3511 typedef struct TclStubs
{
3513 struct TclStubHooks
*hooks
;
3515 int (*tcl_PkgProvideEx
) (Tcl_Interp
* interp
, CONST
char* name
, CONST
char* version
, ClientData clientData
); /* 0 */
3516 CONST84_RETURN
char * (*tcl_PkgRequireEx
) (Tcl_Interp
* interp
, CONST
char * name
, CONST
char * version
, int exact
, ClientData
* clientDataPtr
); /* 1 */
3517 void (*tcl_Panic
) (CONST
char * format
, ...); /* 2 */
3518 char * (*tcl_Alloc
) (unsigned int size
); /* 3 */
3519 void (*tcl_Free
) (char * ptr
); /* 4 */
3520 char * (*tcl_Realloc
) (char * ptr
, unsigned int size
); /* 5 */
3521 char * (*tcl_DbCkalloc
) (unsigned int size
, CONST
char * file
, int line
); /* 6 */
3522 int (*tcl_DbCkfree
) (char * ptr
, CONST
char * file
, int line
); /* 7 */
3523 char * (*tcl_DbCkrealloc
) (char * ptr
, unsigned int size
, CONST
char * file
, int line
); /* 8 */
3524 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
3525 void (*tcl_CreateFileHandler
) (int fd
, int mask
, Tcl_FileProc
* proc
, ClientData clientData
); /* 9 */
3527 #ifdef __WIN32__ /* WIN */
3530 #ifdef MAC_OSX_TCL /* MACOSX */
3531 void (*tcl_CreateFileHandler
) (int fd
, int mask
, Tcl_FileProc
* proc
, ClientData clientData
); /* 9 */
3533 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
3534 void (*tcl_DeleteFileHandler
) (int fd
); /* 10 */
3536 #ifdef __WIN32__ /* WIN */
3539 #ifdef MAC_OSX_TCL /* MACOSX */
3540 void (*tcl_DeleteFileHandler
) (int fd
); /* 10 */
3542 void (*tcl_SetTimer
) (Tcl_Time
* timePtr
); /* 11 */
3543 void (*tcl_Sleep
) (int ms
); /* 12 */
3544 int (*tcl_WaitForEvent
) (Tcl_Time
* timePtr
); /* 13 */
3545 int (*tcl_AppendAllObjTypes
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
); /* 14 */
3546 void (*tcl_AppendStringsToObj
) (Tcl_Obj
* objPtr
, ...); /* 15 */
3547 void (*tcl_AppendToObj
) (Tcl_Obj
* objPtr
, CONST
char* bytes
, int length
); /* 16 */
3548 Tcl_Obj
* (*tcl_ConcatObj
) (int objc
, Tcl_Obj
*CONST objv
[]); /* 17 */
3549 int (*tcl_ConvertToType
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, Tcl_ObjType
* typePtr
); /* 18 */
3550 void (*tcl_DbDecrRefCount
) (Tcl_Obj
* objPtr
, CONST
char * file
, int line
); /* 19 */
3551 void (*tcl_DbIncrRefCount
) (Tcl_Obj
* objPtr
, CONST
char * file
, int line
); /* 20 */
3552 int (*tcl_DbIsShared
) (Tcl_Obj
* objPtr
, CONST
char * file
, int line
); /* 21 */
3553 Tcl_Obj
* (*tcl_DbNewBooleanObj
) (int boolValue
, CONST
char * file
, int line
); /* 22 */
3554 Tcl_Obj
* (*tcl_DbNewByteArrayObj
) (CONST
unsigned char * bytes
, int length
, CONST
char * file
, int line
); /* 23 */
3555 Tcl_Obj
* (*tcl_DbNewDoubleObj
) (double doubleValue
, CONST
char * file
, int line
); /* 24 */
3556 Tcl_Obj
* (*tcl_DbNewListObj
) (int objc
, Tcl_Obj
*CONST
* objv
, CONST
char * file
, int line
); /* 25 */
3557 Tcl_Obj
* (*tcl_DbNewLongObj
) (long longValue
, CONST
char * file
, int line
); /* 26 */
3558 Tcl_Obj
* (*tcl_DbNewObj
) (CONST
char * file
, int line
); /* 27 */
3559 Tcl_Obj
* (*tcl_DbNewStringObj
) (CONST
char * bytes
, int length
, CONST
char * file
, int line
); /* 28 */
3560 Tcl_Obj
* (*tcl_DuplicateObj
) (Tcl_Obj
* objPtr
); /* 29 */
3561 void (*tclFreeObj
) (Tcl_Obj
* objPtr
); /* 30 */
3562 int (*tcl_GetBoolean
) (Tcl_Interp
* interp
, CONST
char * src
, int * boolPtr
); /* 31 */
3563 int (*tcl_GetBooleanFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, int * boolPtr
); /* 32 */
3564 unsigned char * (*tcl_GetByteArrayFromObj
) (Tcl_Obj
* objPtr
, int * lengthPtr
); /* 33 */
3565 int (*tcl_GetDouble
) (Tcl_Interp
* interp
, CONST
char * src
, double * doublePtr
); /* 34 */
3566 int (*tcl_GetDoubleFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, double * doublePtr
); /* 35 */
3567 int (*tcl_GetIndexFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, CONST84
char ** tablePtr
, CONST
char * msg
, int flags
, int * indexPtr
); /* 36 */
3568 int (*tcl_GetInt
) (Tcl_Interp
* interp
, CONST
char * src
, int * intPtr
); /* 37 */
3569 int (*tcl_GetIntFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, int * intPtr
); /* 38 */
3570 int (*tcl_GetLongFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, long * longPtr
); /* 39 */
3571 Tcl_ObjType
* (*tcl_GetObjType
) (CONST
char * typeName
); /* 40 */
3572 char * (*tcl_GetStringFromObj
) (Tcl_Obj
* objPtr
, int * lengthPtr
); /* 41 */
3573 void (*tcl_InvalidateStringRep
) (Tcl_Obj
* objPtr
); /* 42 */
3574 int (*tcl_ListObjAppendList
) (Tcl_Interp
* interp
, Tcl_Obj
* listPtr
, Tcl_Obj
* elemListPtr
); /* 43 */
3575 int (*tcl_ListObjAppendElement
) (Tcl_Interp
* interp
, Tcl_Obj
* listPtr
, Tcl_Obj
* objPtr
); /* 44 */
3576 int (*tcl_ListObjGetElements
) (Tcl_Interp
* interp
, Tcl_Obj
* listPtr
, int * objcPtr
, Tcl_Obj
*** objvPtr
); /* 45 */
3577 int (*tcl_ListObjIndex
) (Tcl_Interp
* interp
, Tcl_Obj
* listPtr
, int index
, Tcl_Obj
** objPtrPtr
); /* 46 */
3578 int (*tcl_ListObjLength
) (Tcl_Interp
* interp
, Tcl_Obj
* listPtr
, int * lengthPtr
); /* 47 */
3579 int (*tcl_ListObjReplace
) (Tcl_Interp
* interp
, Tcl_Obj
* listPtr
, int first
, int count
, int objc
, Tcl_Obj
*CONST objv
[]); /* 48 */
3580 Tcl_Obj
* (*tcl_NewBooleanObj
) (int boolValue
); /* 49 */
3581 Tcl_Obj
* (*tcl_NewByteArrayObj
) (CONST
unsigned char* bytes
, int length
); /* 50 */
3582 Tcl_Obj
* (*tcl_NewDoubleObj
) (double doubleValue
); /* 51 */
3583 Tcl_Obj
* (*tcl_NewIntObj
) (int intValue
); /* 52 */
3584 Tcl_Obj
* (*tcl_NewListObj
) (int objc
, Tcl_Obj
*CONST objv
[]); /* 53 */
3585 Tcl_Obj
* (*tcl_NewLongObj
) (long longValue
); /* 54 */
3586 Tcl_Obj
* (*tcl_NewObj
) (void); /* 55 */
3587 Tcl_Obj
* (*tcl_NewStringObj
) (CONST
char * bytes
, int length
); /* 56 */
3588 void (*tcl_SetBooleanObj
) (Tcl_Obj
* objPtr
, int boolValue
); /* 57 */
3589 unsigned char * (*tcl_SetByteArrayLength
) (Tcl_Obj
* objPtr
, int length
); /* 58 */
3590 void (*tcl_SetByteArrayObj
) (Tcl_Obj
* objPtr
, CONST
unsigned char * bytes
, int length
); /* 59 */
3591 void (*tcl_SetDoubleObj
) (Tcl_Obj
* objPtr
, double doubleValue
); /* 60 */
3592 void (*tcl_SetIntObj
) (Tcl_Obj
* objPtr
, int intValue
); /* 61 */
3593 void (*tcl_SetListObj
) (Tcl_Obj
* objPtr
, int objc
, Tcl_Obj
*CONST objv
[]); /* 62 */
3594 void (*tcl_SetLongObj
) (Tcl_Obj
* objPtr
, long longValue
); /* 63 */
3595 void (*tcl_SetObjLength
) (Tcl_Obj
* objPtr
, int length
); /* 64 */
3596 void (*tcl_SetStringObj
) (Tcl_Obj
* objPtr
, CONST
char* bytes
, int length
); /* 65 */
3597 void (*tcl_AddErrorInfo
) (Tcl_Interp
* interp
, CONST
char * message
); /* 66 */
3598 void (*tcl_AddObjErrorInfo
) (Tcl_Interp
* interp
, CONST
char * message
, int length
); /* 67 */
3599 void (*tcl_AllowExceptions
) (Tcl_Interp
* interp
); /* 68 */
3600 void (*tcl_AppendElement
) (Tcl_Interp
* interp
, CONST
char * element
); /* 69 */
3601 void (*tcl_AppendResult
) (Tcl_Interp
* interp
, ...); /* 70 */
3602 Tcl_AsyncHandler (*tcl_AsyncCreate
) (Tcl_AsyncProc
* proc
, ClientData clientData
); /* 71 */
3603 void (*tcl_AsyncDelete
) (Tcl_AsyncHandler async
); /* 72 */
3604 int (*tcl_AsyncInvoke
) (Tcl_Interp
* interp
, int code
); /* 73 */
3605 void (*tcl_AsyncMark
) (Tcl_AsyncHandler async
); /* 74 */
3606 int (*tcl_AsyncReady
) (void); /* 75 */
3607 void (*tcl_BackgroundError
) (Tcl_Interp
* interp
); /* 76 */
3608 char (*tcl_Backslash
) (CONST
char * src
, int * readPtr
); /* 77 */
3609 int (*tcl_BadChannelOption
) (Tcl_Interp
* interp
, CONST
char * optionName
, CONST
char * optionList
); /* 78 */
3610 void (*tcl_CallWhenDeleted
) (Tcl_Interp
* interp
, Tcl_InterpDeleteProc
* proc
, ClientData clientData
); /* 79 */
3611 void (*tcl_CancelIdleCall
) (Tcl_IdleProc
* idleProc
, ClientData clientData
); /* 80 */
3612 int (*tcl_Close
) (Tcl_Interp
* interp
, Tcl_Channel chan
); /* 81 */
3613 int (*tcl_CommandComplete
) (CONST
char * cmd
); /* 82 */
3614 char * (*tcl_Concat
) (int argc
, CONST84
char * CONST
* argv
); /* 83 */
3615 int (*tcl_ConvertElement
) (CONST
char * src
, char * dst
, int flags
); /* 84 */
3616 int (*tcl_ConvertCountedElement
) (CONST
char * src
, int length
, char * dst
, int flags
); /* 85 */
3617 int (*tcl_CreateAlias
) (Tcl_Interp
* slave
, CONST
char * slaveCmd
, Tcl_Interp
* target
, CONST
char * targetCmd
, int argc
, CONST84
char * CONST
* argv
); /* 86 */
3618 int (*tcl_CreateAliasObj
) (Tcl_Interp
* slave
, CONST
char * slaveCmd
, Tcl_Interp
* target
, CONST
char * targetCmd
, int objc
, Tcl_Obj
*CONST objv
[]); /* 87 */
3619 Tcl_Channel (*tcl_CreateChannel
) (Tcl_ChannelType
* typePtr
, CONST
char * chanName
, ClientData instanceData
, int mask
); /* 88 */
3620 void (*tcl_CreateChannelHandler
) (Tcl_Channel chan
, int mask
, Tcl_ChannelProc
* proc
, ClientData clientData
); /* 89 */
3621 void (*tcl_CreateCloseHandler
) (Tcl_Channel chan
, Tcl_CloseProc
* proc
, ClientData clientData
); /* 90 */
3622 Tcl_Command (*tcl_CreateCommand
) (Tcl_Interp
* interp
, CONST
char * cmdName
, Tcl_CmdProc
* proc
, ClientData clientData
, Tcl_CmdDeleteProc
* deleteProc
); /* 91 */
3623 void (*tcl_CreateEventSource
) (Tcl_EventSetupProc
* setupProc
, Tcl_EventCheckProc
* checkProc
, ClientData clientData
); /* 92 */
3624 void (*tcl_CreateExitHandler
) (Tcl_ExitProc
* proc
, ClientData clientData
); /* 93 */
3625 Tcl_Interp
* (*tcl_CreateInterp
) (void); /* 94 */
3626 void (*tcl_CreateMathFunc
) (Tcl_Interp
* interp
, CONST
char * name
, int numArgs
, Tcl_ValueType
* argTypes
, Tcl_MathProc
* proc
, ClientData clientData
); /* 95 */
3627 Tcl_Command (*tcl_CreateObjCommand
) (Tcl_Interp
* interp
, CONST
char * cmdName
, Tcl_ObjCmdProc
* proc
, ClientData clientData
, Tcl_CmdDeleteProc
* deleteProc
); /* 96 */
3628 Tcl_Interp
* (*tcl_CreateSlave
) (Tcl_Interp
* interp
, CONST
char * slaveName
, int isSafe
); /* 97 */
3629 Tcl_TimerToken (*tcl_CreateTimerHandler
) (int milliseconds
, Tcl_TimerProc
* proc
, ClientData clientData
); /* 98 */
3630 Tcl_Trace (*tcl_CreateTrace
) (Tcl_Interp
* interp
, int level
, Tcl_CmdTraceProc
* proc
, ClientData clientData
); /* 99 */
3631 void (*tcl_DeleteAssocData
) (Tcl_Interp
* interp
, CONST
char * name
); /* 100 */
3632 void (*tcl_DeleteChannelHandler
) (Tcl_Channel chan
, Tcl_ChannelProc
* proc
, ClientData clientData
); /* 101 */
3633 void (*tcl_DeleteCloseHandler
) (Tcl_Channel chan
, Tcl_CloseProc
* proc
, ClientData clientData
); /* 102 */
3634 int (*tcl_DeleteCommand
) (Tcl_Interp
* interp
, CONST
char * cmdName
); /* 103 */
3635 int (*tcl_DeleteCommandFromToken
) (Tcl_Interp
* interp
, Tcl_Command command
); /* 104 */
3636 void (*tcl_DeleteEvents
) (Tcl_EventDeleteProc
* proc
, ClientData clientData
); /* 105 */
3637 void (*tcl_DeleteEventSource
) (Tcl_EventSetupProc
* setupProc
, Tcl_EventCheckProc
* checkProc
, ClientData clientData
); /* 106 */
3638 void (*tcl_DeleteExitHandler
) (Tcl_ExitProc
* proc
, ClientData clientData
); /* 107 */
3639 void (*tcl_DeleteHashEntry
) (Tcl_HashEntry
* entryPtr
); /* 108 */
3640 void (*tcl_DeleteHashTable
) (Tcl_HashTable
* tablePtr
); /* 109 */
3641 void (*tcl_DeleteInterp
) (Tcl_Interp
* interp
); /* 110 */
3642 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
3643 void (*tcl_DetachPids
) (int numPids
, Tcl_Pid
* pidPtr
); /* 111 */
3645 #ifdef __WIN32__ /* WIN */
3646 void (*tcl_DetachPids
) (int numPids
, Tcl_Pid
* pidPtr
); /* 111 */
3648 #ifdef MAC_OSX_TCL /* MACOSX */
3649 void (*tcl_DetachPids
) (int numPids
, Tcl_Pid
* pidPtr
); /* 111 */
3651 void (*tcl_DeleteTimerHandler
) (Tcl_TimerToken token
); /* 112 */
3652 void (*tcl_DeleteTrace
) (Tcl_Interp
* interp
, Tcl_Trace trace
); /* 113 */
3653 void (*tcl_DontCallWhenDeleted
) (Tcl_Interp
* interp
, Tcl_InterpDeleteProc
* proc
, ClientData clientData
); /* 114 */
3654 int (*tcl_DoOneEvent
) (int flags
); /* 115 */
3655 void (*tcl_DoWhenIdle
) (Tcl_IdleProc
* proc
, ClientData clientData
); /* 116 */
3656 char * (*tcl_DStringAppend
) (Tcl_DString
* dsPtr
, CONST
char * bytes
, int length
); /* 117 */
3657 char * (*tcl_DStringAppendElement
) (Tcl_DString
* dsPtr
, CONST
char * element
); /* 118 */
3658 void (*tcl_DStringEndSublist
) (Tcl_DString
* dsPtr
); /* 119 */
3659 void (*tcl_DStringFree
) (Tcl_DString
* dsPtr
); /* 120 */
3660 void (*tcl_DStringGetResult
) (Tcl_Interp
* interp
, Tcl_DString
* dsPtr
); /* 121 */
3661 void (*tcl_DStringInit
) (Tcl_DString
* dsPtr
); /* 122 */
3662 void (*tcl_DStringResult
) (Tcl_Interp
* interp
, Tcl_DString
* dsPtr
); /* 123 */
3663 void (*tcl_DStringSetLength
) (Tcl_DString
* dsPtr
, int length
); /* 124 */
3664 void (*tcl_DStringStartSublist
) (Tcl_DString
* dsPtr
); /* 125 */
3665 int (*tcl_Eof
) (Tcl_Channel chan
); /* 126 */
3666 CONST84_RETURN
char * (*tcl_ErrnoId
) (void); /* 127 */
3667 CONST84_RETURN
char * (*tcl_ErrnoMsg
) (int err
); /* 128 */
3668 int (*tcl_Eval
) (Tcl_Interp
* interp
, CONST
char * script
); /* 129 */
3669 int (*tcl_EvalFile
) (Tcl_Interp
* interp
, CONST
char * fileName
); /* 130 */
3670 int (*tcl_EvalObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
); /* 131 */
3671 void (*tcl_EventuallyFree
) (ClientData clientData
, Tcl_FreeProc
* freeProc
); /* 132 */
3672 void (*tcl_Exit
) (int status
); /* 133 */
3673 int (*tcl_ExposeCommand
) (Tcl_Interp
* interp
, CONST
char * hiddenCmdToken
, CONST
char * cmdName
); /* 134 */
3674 int (*tcl_ExprBoolean
) (Tcl_Interp
* interp
, CONST
char * expr
, int * ptr
); /* 135 */
3675 int (*tcl_ExprBooleanObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, int * ptr
); /* 136 */
3676 int (*tcl_ExprDouble
) (Tcl_Interp
* interp
, CONST
char * expr
, double * ptr
); /* 137 */
3677 int (*tcl_ExprDoubleObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, double * ptr
); /* 138 */
3678 int (*tcl_ExprLong
) (Tcl_Interp
* interp
, CONST
char * expr
, long * ptr
); /* 139 */
3679 int (*tcl_ExprLongObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, long * ptr
); /* 140 */
3680 int (*tcl_ExprObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, Tcl_Obj
** resultPtrPtr
); /* 141 */
3681 int (*tcl_ExprString
) (Tcl_Interp
* interp
, CONST
char * expr
); /* 142 */
3682 void (*tcl_Finalize
) (void); /* 143 */
3683 void (*tcl_FindExecutable
) (CONST
char * argv0
); /* 144 */
3684 Tcl_HashEntry
* (*tcl_FirstHashEntry
) (Tcl_HashTable
* tablePtr
, Tcl_HashSearch
* searchPtr
); /* 145 */
3685 int (*tcl_Flush
) (Tcl_Channel chan
); /* 146 */
3686 void (*tcl_FreeResult
) (Tcl_Interp
* interp
); /* 147 */
3687 int (*tcl_GetAlias
) (Tcl_Interp
* interp
, CONST
char * slaveCmd
, Tcl_Interp
** targetInterpPtr
, CONST84
char ** targetCmdPtr
, int * argcPtr
, CONST84
char *** argvPtr
); /* 148 */
3688 int (*tcl_GetAliasObj
) (Tcl_Interp
* interp
, CONST
char * slaveCmd
, Tcl_Interp
** targetInterpPtr
, CONST84
char ** targetCmdPtr
, int * objcPtr
, Tcl_Obj
*** objv
); /* 149 */
3689 ClientData (*tcl_GetAssocData
) (Tcl_Interp
* interp
, CONST
char * name
, Tcl_InterpDeleteProc
** procPtr
); /* 150 */
3690 Tcl_Channel (*tcl_GetChannel
) (Tcl_Interp
* interp
, CONST
char * chanName
, int * modePtr
); /* 151 */
3691 int (*tcl_GetChannelBufferSize
) (Tcl_Channel chan
); /* 152 */
3692 int (*tcl_GetChannelHandle
) (Tcl_Channel chan
, int direction
, ClientData
* handlePtr
); /* 153 */
3693 ClientData (*tcl_GetChannelInstanceData
) (Tcl_Channel chan
); /* 154 */
3694 int (*tcl_GetChannelMode
) (Tcl_Channel chan
); /* 155 */
3695 CONST84_RETURN
char * (*tcl_GetChannelName
) (Tcl_Channel chan
); /* 156 */
3696 int (*tcl_GetChannelOption
) (Tcl_Interp
* interp
, Tcl_Channel chan
, CONST
char * optionName
, Tcl_DString
* dsPtr
); /* 157 */
3697 Tcl_ChannelType
* (*tcl_GetChannelType
) (Tcl_Channel chan
); /* 158 */
3698 int (*tcl_GetCommandInfo
) (Tcl_Interp
* interp
, CONST
char * cmdName
, Tcl_CmdInfo
* infoPtr
); /* 159 */
3699 CONST84_RETURN
char * (*tcl_GetCommandName
) (Tcl_Interp
* interp
, Tcl_Command command
); /* 160 */
3700 int (*tcl_GetErrno
) (void); /* 161 */
3701 CONST84_RETURN
char * (*tcl_GetHostName
) (void); /* 162 */
3702 int (*tcl_GetInterpPath
) (Tcl_Interp
* askInterp
, Tcl_Interp
* slaveInterp
); /* 163 */
3703 Tcl_Interp
* (*tcl_GetMaster
) (Tcl_Interp
* interp
); /* 164 */
3704 CONST
char * (*tcl_GetNameOfExecutable
) (void); /* 165 */
3705 Tcl_Obj
* (*tcl_GetObjResult
) (Tcl_Interp
* interp
); /* 166 */
3706 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
3707 int (*tcl_GetOpenFile
) (Tcl_Interp
* interp
, CONST
char * chanID
, int forWriting
, int checkUsage
, ClientData
* filePtr
); /* 167 */
3709 #ifdef __WIN32__ /* WIN */
3712 #ifdef MAC_OSX_TCL /* MACOSX */
3713 int (*tcl_GetOpenFile
) (Tcl_Interp
* interp
, CONST
char * chanID
, int forWriting
, int checkUsage
, ClientData
* filePtr
); /* 167 */
3715 Tcl_PathType (*tcl_GetPathType
) (CONST
char * path
); /* 168 */
3716 int (*tcl_Gets
) (Tcl_Channel chan
, Tcl_DString
* dsPtr
); /* 169 */
3717 int (*tcl_GetsObj
) (Tcl_Channel chan
, Tcl_Obj
* objPtr
); /* 170 */
3718 int (*tcl_GetServiceMode
) (void); /* 171 */
3719 Tcl_Interp
* (*tcl_GetSlave
) (Tcl_Interp
* interp
, CONST
char * slaveName
); /* 172 */
3720 Tcl_Channel (*tcl_GetStdChannel
) (int type
); /* 173 */
3721 CONST84_RETURN
char * (*tcl_GetStringResult
) (Tcl_Interp
* interp
); /* 174 */
3722 CONST84_RETURN
char * (*tcl_GetVar
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
); /* 175 */
3723 CONST84_RETURN
char * (*tcl_GetVar2
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, int flags
); /* 176 */
3724 int (*tcl_GlobalEval
) (Tcl_Interp
* interp
, CONST
char * command
); /* 177 */
3725 int (*tcl_GlobalEvalObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
); /* 178 */
3726 int (*tcl_HideCommand
) (Tcl_Interp
* interp
, CONST
char * cmdName
, CONST
char * hiddenCmdToken
); /* 179 */
3727 int (*tcl_Init
) (Tcl_Interp
* interp
); /* 180 */
3728 void (*tcl_InitHashTable
) (Tcl_HashTable
* tablePtr
, int keyType
); /* 181 */
3729 int (*tcl_InputBlocked
) (Tcl_Channel chan
); /* 182 */
3730 int (*tcl_InputBuffered
) (Tcl_Channel chan
); /* 183 */
3731 int (*tcl_InterpDeleted
) (Tcl_Interp
* interp
); /* 184 */
3732 int (*tcl_IsSafe
) (Tcl_Interp
* interp
); /* 185 */
3733 char * (*tcl_JoinPath
) (int argc
, CONST84
char * CONST
* argv
, Tcl_DString
* resultPtr
); /* 186 */
3734 int (*tcl_LinkVar
) (Tcl_Interp
* interp
, CONST
char * varName
, char * addr
, int type
); /* 187 */
3736 Tcl_Channel (*tcl_MakeFileChannel
) (ClientData handle
, int mode
); /* 189 */
3737 int (*tcl_MakeSafe
) (Tcl_Interp
* interp
); /* 190 */
3738 Tcl_Channel (*tcl_MakeTcpClientChannel
) (ClientData tcpSocket
); /* 191 */
3739 char * (*tcl_Merge
) (int argc
, CONST84
char * CONST
* argv
); /* 192 */
3740 Tcl_HashEntry
* (*tcl_NextHashEntry
) (Tcl_HashSearch
* searchPtr
); /* 193 */
3741 void (*tcl_NotifyChannel
) (Tcl_Channel channel
, int mask
); /* 194 */
3742 Tcl_Obj
* (*tcl_ObjGetVar2
) (Tcl_Interp
* interp
, Tcl_Obj
* part1Ptr
, Tcl_Obj
* part2Ptr
, int flags
); /* 195 */
3743 Tcl_Obj
* (*tcl_ObjSetVar2
) (Tcl_Interp
* interp
, Tcl_Obj
* part1Ptr
, Tcl_Obj
* part2Ptr
, Tcl_Obj
* newValuePtr
, int flags
); /* 196 */
3744 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
3745 Tcl_Channel (*tcl_OpenCommandChannel
) (Tcl_Interp
* interp
, int argc
, CONST84
char ** argv
, int flags
); /* 197 */
3747 #ifdef __WIN32__ /* WIN */
3748 Tcl_Channel (*tcl_OpenCommandChannel
) (Tcl_Interp
* interp
, int argc
, CONST84
char ** argv
, int flags
); /* 197 */
3750 #ifdef MAC_OSX_TCL /* MACOSX */
3751 Tcl_Channel (*tcl_OpenCommandChannel
) (Tcl_Interp
* interp
, int argc
, CONST84
char ** argv
, int flags
); /* 197 */
3753 Tcl_Channel (*tcl_OpenFileChannel
) (Tcl_Interp
* interp
, CONST
char * fileName
, CONST
char * modeString
, int permissions
); /* 198 */
3754 Tcl_Channel (*tcl_OpenTcpClient
) (Tcl_Interp
* interp
, int port
, CONST
char * address
, CONST
char * myaddr
, int myport
, int async
); /* 199 */
3755 Tcl_Channel (*tcl_OpenTcpServer
) (Tcl_Interp
* interp
, int port
, CONST
char * host
, Tcl_TcpAcceptProc
* acceptProc
, ClientData callbackData
); /* 200 */
3756 void (*tcl_Preserve
) (ClientData data
); /* 201 */
3757 void (*tcl_PrintDouble
) (Tcl_Interp
* interp
, double value
, char * dst
); /* 202 */
3758 int (*tcl_PutEnv
) (CONST
char * assignment
); /* 203 */
3759 CONST84_RETURN
char * (*tcl_PosixError
) (Tcl_Interp
* interp
); /* 204 */
3760 void (*tcl_QueueEvent
) (Tcl_Event
* evPtr
, Tcl_QueuePosition position
); /* 205 */
3761 int (*tcl_Read
) (Tcl_Channel chan
, char * bufPtr
, int toRead
); /* 206 */
3762 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
3763 void (*tcl_ReapDetachedProcs
) (void); /* 207 */
3765 #ifdef __WIN32__ /* WIN */
3766 void (*tcl_ReapDetachedProcs
) (void); /* 207 */
3768 #ifdef MAC_OSX_TCL /* MACOSX */
3769 void (*tcl_ReapDetachedProcs
) (void); /* 207 */
3771 int (*tcl_RecordAndEval
) (Tcl_Interp
* interp
, CONST
char * cmd
, int flags
); /* 208 */
3772 int (*tcl_RecordAndEvalObj
) (Tcl_Interp
* interp
, Tcl_Obj
* cmdPtr
, int flags
); /* 209 */
3773 void (*tcl_RegisterChannel
) (Tcl_Interp
* interp
, Tcl_Channel chan
); /* 210 */
3774 void (*tcl_RegisterObjType
) (Tcl_ObjType
* typePtr
); /* 211 */
3775 Tcl_RegExp (*tcl_RegExpCompile
) (Tcl_Interp
* interp
, CONST
char * pattern
); /* 212 */
3776 int (*tcl_RegExpExec
) (Tcl_Interp
* interp
, Tcl_RegExp regexp
, CONST
char * text
, CONST
char * start
); /* 213 */
3777 int (*tcl_RegExpMatch
) (Tcl_Interp
* interp
, CONST
char * text
, CONST
char * pattern
); /* 214 */
3778 void (*tcl_RegExpRange
) (Tcl_RegExp regexp
, int index
, CONST84
char ** startPtr
, CONST84
char ** endPtr
); /* 215 */
3779 void (*tcl_Release
) (ClientData clientData
); /* 216 */
3780 void (*tcl_ResetResult
) (Tcl_Interp
* interp
); /* 217 */
3781 int (*tcl_ScanElement
) (CONST
char * str
, int * flagPtr
); /* 218 */
3782 int (*tcl_ScanCountedElement
) (CONST
char * str
, int length
, int * flagPtr
); /* 219 */
3783 int (*tcl_SeekOld
) (Tcl_Channel chan
, int offset
, int mode
); /* 220 */
3784 int (*tcl_ServiceAll
) (void); /* 221 */
3785 int (*tcl_ServiceEvent
) (int flags
); /* 222 */
3786 void (*tcl_SetAssocData
) (Tcl_Interp
* interp
, CONST
char * name
, Tcl_InterpDeleteProc
* proc
, ClientData clientData
); /* 223 */
3787 void (*tcl_SetChannelBufferSize
) (Tcl_Channel chan
, int sz
); /* 224 */
3788 int (*tcl_SetChannelOption
) (Tcl_Interp
* interp
, Tcl_Channel chan
, CONST
char * optionName
, CONST
char * newValue
); /* 225 */
3789 int (*tcl_SetCommandInfo
) (Tcl_Interp
* interp
, CONST
char * cmdName
, CONST Tcl_CmdInfo
* infoPtr
); /* 226 */
3790 void (*tcl_SetErrno
) (int err
); /* 227 */
3791 void (*tcl_SetErrorCode
) (Tcl_Interp
* interp
, ...); /* 228 */
3792 void (*tcl_SetMaxBlockTime
) (Tcl_Time
* timePtr
); /* 229 */
3793 void (*tcl_SetPanicProc
) (Tcl_PanicProc
* panicProc
); /* 230 */
3794 int (*tcl_SetRecursionLimit
) (Tcl_Interp
* interp
, int depth
); /* 231 */
3795 void (*tcl_SetResult
) (Tcl_Interp
* interp
, char * result
, Tcl_FreeProc
* freeProc
); /* 232 */
3796 int (*tcl_SetServiceMode
) (int mode
); /* 233 */
3797 void (*tcl_SetObjErrorCode
) (Tcl_Interp
* interp
, Tcl_Obj
* errorObjPtr
); /* 234 */
3798 void (*tcl_SetObjResult
) (Tcl_Interp
* interp
, Tcl_Obj
* resultObjPtr
); /* 235 */
3799 void (*tcl_SetStdChannel
) (Tcl_Channel channel
, int type
); /* 236 */
3800 CONST84_RETURN
char * (*tcl_SetVar
) (Tcl_Interp
* interp
, CONST
char * varName
, CONST
char * newValue
, int flags
); /* 237 */
3801 CONST84_RETURN
char * (*tcl_SetVar2
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, CONST
char * newValue
, int flags
); /* 238 */
3802 CONST84_RETURN
char * (*tcl_SignalId
) (int sig
); /* 239 */
3803 CONST84_RETURN
char * (*tcl_SignalMsg
) (int sig
); /* 240 */
3804 void (*tcl_SourceRCFile
) (Tcl_Interp
* interp
); /* 241 */
3805 int (*tcl_SplitList
) (Tcl_Interp
* interp
, CONST
char * listStr
, int * argcPtr
, CONST84
char *** argvPtr
); /* 242 */
3806 void (*tcl_SplitPath
) (CONST
char * path
, int * argcPtr
, CONST84
char *** argvPtr
); /* 243 */
3807 void (*tcl_StaticPackage
) (Tcl_Interp
* interp
, CONST
char * pkgName
, Tcl_PackageInitProc
* initProc
, Tcl_PackageInitProc
* safeInitProc
); /* 244 */
3808 int (*tcl_StringMatch
) (CONST
char * str
, CONST
char * pattern
); /* 245 */
3809 int (*tcl_TellOld
) (Tcl_Channel chan
); /* 246 */
3810 int (*tcl_TraceVar
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
, Tcl_VarTraceProc
* proc
, ClientData clientData
); /* 247 */
3811 int (*tcl_TraceVar2
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, int flags
, Tcl_VarTraceProc
* proc
, ClientData clientData
); /* 248 */
3812 char * (*tcl_TranslateFileName
) (Tcl_Interp
* interp
, CONST
char * name
, Tcl_DString
* bufferPtr
); /* 249 */
3813 int (*tcl_Ungets
) (Tcl_Channel chan
, CONST
char * str
, int len
, int atHead
); /* 250 */
3814 void (*tcl_UnlinkVar
) (Tcl_Interp
* interp
, CONST
char * varName
); /* 251 */
3815 int (*tcl_UnregisterChannel
) (Tcl_Interp
* interp
, Tcl_Channel chan
); /* 252 */
3816 int (*tcl_UnsetVar
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
); /* 253 */
3817 int (*tcl_UnsetVar2
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, int flags
); /* 254 */
3818 void (*tcl_UntraceVar
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
, Tcl_VarTraceProc
* proc
, ClientData clientData
); /* 255 */
3819 void (*tcl_UntraceVar2
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, int flags
, Tcl_VarTraceProc
* proc
, ClientData clientData
); /* 256 */
3820 void (*tcl_UpdateLinkedVar
) (Tcl_Interp
* interp
, CONST
char * varName
); /* 257 */
3821 int (*tcl_UpVar
) (Tcl_Interp
* interp
, CONST
char * frameName
, CONST
char * varName
, CONST
char * localName
, int flags
); /* 258 */
3822 int (*tcl_UpVar2
) (Tcl_Interp
* interp
, CONST
char * frameName
, CONST
char * part1
, CONST
char * part2
, CONST
char * localName
, int flags
); /* 259 */
3823 int (*tcl_VarEval
) (Tcl_Interp
* interp
, ...); /* 260 */
3824 ClientData (*tcl_VarTraceInfo
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
, Tcl_VarTraceProc
* procPtr
, ClientData prevClientData
); /* 261 */
3825 ClientData (*tcl_VarTraceInfo2
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, int flags
, Tcl_VarTraceProc
* procPtr
, ClientData prevClientData
); /* 262 */
3826 int (*tcl_Write
) (Tcl_Channel chan
, CONST
char * s
, int slen
); /* 263 */
3827 void (*tcl_WrongNumArgs
) (Tcl_Interp
* interp
, int objc
, Tcl_Obj
*CONST objv
[], CONST
char * message
); /* 264 */
3828 int (*tcl_DumpActiveMemory
) (CONST
char * fileName
); /* 265 */
3829 void (*tcl_ValidateAllMemory
) (CONST
char * file
, int line
); /* 266 */
3830 void (*tcl_AppendResultVA
) (Tcl_Interp
* interp
, va_list argList
); /* 267 */
3831 void (*tcl_AppendStringsToObjVA
) (Tcl_Obj
* objPtr
, va_list argList
); /* 268 */
3832 CONST84_RETURN
char * (*tcl_HashStats
) (Tcl_HashTable
* tablePtr
); /* 269 */
3833 CONST84_RETURN
char * (*tcl_ParseVar
) (Tcl_Interp
* interp
, CONST
char * start
, CONST84
char ** termPtr
); /* 270 */
3834 CONST84_RETURN
char * (*tcl_PkgPresent
) (Tcl_Interp
* interp
, CONST
char * name
, CONST
char * version
, int exact
); /* 271 */
3835 CONST84_RETURN
char * (*tcl_PkgPresentEx
) (Tcl_Interp
* interp
, CONST
char * name
, CONST
char * version
, int exact
, ClientData
* clientDataPtr
); /* 272 */
3836 int (*tcl_PkgProvide
) (Tcl_Interp
* interp
, CONST
char * name
, CONST
char * version
); /* 273 */
3837 CONST84_RETURN
char * (*tcl_PkgRequire
) (Tcl_Interp
* interp
, CONST
char * name
, CONST
char * version
, int exact
); /* 274 */
3838 void (*tcl_SetErrorCodeVA
) (Tcl_Interp
* interp
, va_list argList
); /* 275 */
3839 int (*tcl_VarEvalVA
) (Tcl_Interp
* interp
, va_list argList
); /* 276 */
3840 Tcl_Pid (*tcl_WaitPid
) (Tcl_Pid pid
, int * statPtr
, int options
); /* 277 */
3841 void (*tcl_PanicVA
) (CONST
char * format
, va_list argList
); /* 278 */
3842 void (*tcl_GetVersion
) (int * major
, int * minor
, int * patchLevel
, int * type
); /* 279 */
3843 void (*tcl_InitMemory
) (Tcl_Interp
* interp
); /* 280 */
3844 Tcl_Channel (*tcl_StackChannel
) (Tcl_Interp
* interp
, Tcl_ChannelType
* typePtr
, ClientData instanceData
, int mask
, Tcl_Channel prevChan
); /* 281 */
3845 int (*tcl_UnstackChannel
) (Tcl_Interp
* interp
, Tcl_Channel chan
); /* 282 */
3846 Tcl_Channel (*tcl_GetStackedChannel
) (Tcl_Channel chan
); /* 283 */
3847 void (*tcl_SetMainLoop
) (Tcl_MainLoopProc
* proc
); /* 284 */
3849 void (*tcl_AppendObjToObj
) (Tcl_Obj
* objPtr
, Tcl_Obj
* appendObjPtr
); /* 286 */
3850 Tcl_Encoding (*tcl_CreateEncoding
) (const Tcl_EncodingType
* typePtr
); /* 287 */
3851 void (*tcl_CreateThreadExitHandler
) (Tcl_ExitProc
* proc
, ClientData clientData
); /* 288 */
3852 void (*tcl_DeleteThreadExitHandler
) (Tcl_ExitProc
* proc
, ClientData clientData
); /* 289 */
3853 void (*tcl_DiscardResult
) (Tcl_SavedResult
* statePtr
); /* 290 */
3854 int (*tcl_EvalEx
) (Tcl_Interp
* interp
, CONST
char * script
, int numBytes
, int flags
); /* 291 */
3855 int (*tcl_EvalObjv
) (Tcl_Interp
* interp
, int objc
, Tcl_Obj
*CONST objv
[], int flags
); /* 292 */
3856 int (*tcl_EvalObjEx
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, int flags
); /* 293 */
3857 void (*tcl_ExitThread
) (int status
); /* 294 */
3858 int (*tcl_ExternalToUtf
) (Tcl_Interp
* interp
, Tcl_Encoding encoding
, CONST
char * src
, int srcLen
, int flags
, Tcl_EncodingState
* statePtr
, char * dst
, int dstLen
, int * srcReadPtr
, int * dstWrotePtr
, int * dstCharsPtr
); /* 295 */
3859 char * (*tcl_ExternalToUtfDString
) (Tcl_Encoding encoding
, CONST
char * src
, int srcLen
, Tcl_DString
* dsPtr
); /* 296 */
3860 void (*tcl_FinalizeThread
) (void); /* 297 */
3861 void (*tcl_FinalizeNotifier
) (ClientData clientData
); /* 298 */
3862 void (*tcl_FreeEncoding
) (Tcl_Encoding encoding
); /* 299 */
3863 Tcl_ThreadId (*tcl_GetCurrentThread
) (void); /* 300 */
3864 Tcl_Encoding (*tcl_GetEncoding
) (Tcl_Interp
* interp
, CONST
char * name
); /* 301 */
3865 CONST84_RETURN
char * (*tcl_GetEncodingName
) (Tcl_Encoding encoding
); /* 302 */
3866 void (*tcl_GetEncodingNames
) (Tcl_Interp
* interp
); /* 303 */
3867 int (*tcl_GetIndexFromObjStruct
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, CONST VOID
* tablePtr
, int offset
, CONST
char * msg
, int flags
, int * indexPtr
); /* 304 */
3868 VOID
* (*tcl_GetThreadData
) (Tcl_ThreadDataKey
* keyPtr
, int size
); /* 305 */
3869 Tcl_Obj
* (*tcl_GetVar2Ex
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, int flags
); /* 306 */
3870 ClientData (*tcl_InitNotifier
) (void); /* 307 */
3871 void (*tcl_MutexLock
) (Tcl_Mutex
* mutexPtr
); /* 308 */
3872 void (*tcl_MutexUnlock
) (Tcl_Mutex
* mutexPtr
); /* 309 */
3873 void (*tcl_ConditionNotify
) (Tcl_Condition
* condPtr
); /* 310 */
3874 void (*tcl_ConditionWait
) (Tcl_Condition
* condPtr
, Tcl_Mutex
* mutexPtr
, Tcl_Time
* timePtr
); /* 311 */
3875 int (*tcl_NumUtfChars
) (CONST
char * src
, int length
); /* 312 */
3876 int (*tcl_ReadChars
) (Tcl_Channel channel
, Tcl_Obj
* objPtr
, int charsToRead
, int appendFlag
); /* 313 */
3877 void (*tcl_RestoreResult
) (Tcl_Interp
* interp
, Tcl_SavedResult
* statePtr
); /* 314 */
3878 void (*tcl_SaveResult
) (Tcl_Interp
* interp
, Tcl_SavedResult
* statePtr
); /* 315 */
3879 int (*tcl_SetSystemEncoding
) (Tcl_Interp
* interp
, CONST
char * name
); /* 316 */
3880 Tcl_Obj
* (*tcl_SetVar2Ex
) (Tcl_Interp
* interp
, CONST
char * part1
, CONST
char * part2
, Tcl_Obj
* newValuePtr
, int flags
); /* 317 */
3881 void (*tcl_ThreadAlert
) (Tcl_ThreadId threadId
); /* 318 */
3882 void (*tcl_ThreadQueueEvent
) (Tcl_ThreadId threadId
, Tcl_Event
* evPtr
, Tcl_QueuePosition position
); /* 319 */
3883 Tcl_UniChar (*tcl_UniCharAtIndex
) (CONST
char * src
, int index
); /* 320 */
3884 Tcl_UniChar (*tcl_UniCharToLower
) (int ch
); /* 321 */
3885 Tcl_UniChar (*tcl_UniCharToTitle
) (int ch
); /* 322 */
3886 Tcl_UniChar (*tcl_UniCharToUpper
) (int ch
); /* 323 */
3887 int (*tcl_UniCharToUtf
) (int ch
, char * buf
); /* 324 */
3888 CONST84_RETURN
char * (*tcl_UtfAtIndex
) (CONST
char * src
, int index
); /* 325 */
3889 int (*tcl_UtfCharComplete
) (CONST
char * src
, int length
); /* 326 */
3890 int (*tcl_UtfBackslash
) (CONST
char * src
, int * readPtr
, char * dst
); /* 327 */
3891 CONST84_RETURN
char * (*tcl_UtfFindFirst
) (CONST
char * src
, int ch
); /* 328 */
3892 CONST84_RETURN
char * (*tcl_UtfFindLast
) (CONST
char * src
, int ch
); /* 329 */
3893 CONST84_RETURN
char * (*tcl_UtfNext
) (CONST
char * src
); /* 330 */
3894 CONST84_RETURN
char * (*tcl_UtfPrev
) (CONST
char * src
, CONST
char * start
); /* 331 */
3895 int (*tcl_UtfToExternal
) (Tcl_Interp
* interp
, Tcl_Encoding encoding
, CONST
char * src
, int srcLen
, int flags
, Tcl_EncodingState
* statePtr
, char * dst
, int dstLen
, int * srcReadPtr
, int * dstWrotePtr
, int * dstCharsPtr
); /* 332 */
3896 char * (*tcl_UtfToExternalDString
) (Tcl_Encoding encoding
, CONST
char * src
, int srcLen
, Tcl_DString
* dsPtr
); /* 333 */
3897 int (*tcl_UtfToLower
) (char * src
); /* 334 */
3898 int (*tcl_UtfToTitle
) (char * src
); /* 335 */
3899 int (*tcl_UtfToUniChar
) (CONST
char * src
, Tcl_UniChar
* chPtr
); /* 336 */
3900 int (*tcl_UtfToUpper
) (char * src
); /* 337 */
3901 int (*tcl_WriteChars
) (Tcl_Channel chan
, CONST
char * src
, int srcLen
); /* 338 */
3902 int (*tcl_WriteObj
) (Tcl_Channel chan
, Tcl_Obj
* objPtr
); /* 339 */
3903 char * (*tcl_GetString
) (Tcl_Obj
* objPtr
); /* 340 */
3904 CONST84_RETURN
char * (*tcl_GetDefaultEncodingDir
) (void); /* 341 */
3905 void (*tcl_SetDefaultEncodingDir
) (CONST
char * path
); /* 342 */
3906 void (*tcl_AlertNotifier
) (ClientData clientData
); /* 343 */
3907 void (*tcl_ServiceModeHook
) (int mode
); /* 344 */
3908 int (*tcl_UniCharIsAlnum
) (int ch
); /* 345 */
3909 int (*tcl_UniCharIsAlpha
) (int ch
); /* 346 */
3910 int (*tcl_UniCharIsDigit
) (int ch
); /* 347 */
3911 int (*tcl_UniCharIsLower
) (int ch
); /* 348 */
3912 int (*tcl_UniCharIsSpace
) (int ch
); /* 349 */
3913 int (*tcl_UniCharIsUpper
) (int ch
); /* 350 */
3914 int (*tcl_UniCharIsWordChar
) (int ch
); /* 351 */
3915 int (*tcl_UniCharLen
) (CONST Tcl_UniChar
* uniStr
); /* 352 */
3916 int (*tcl_UniCharNcmp
) (CONST Tcl_UniChar
* ucs
, CONST Tcl_UniChar
* uct
, unsigned long numChars
); /* 353 */
3917 char * (*tcl_UniCharToUtfDString
) (CONST Tcl_UniChar
* uniStr
, int uniLength
, Tcl_DString
* dsPtr
); /* 354 */
3918 Tcl_UniChar
* (*tcl_UtfToUniCharDString
) (CONST
char * src
, int length
, Tcl_DString
* dsPtr
); /* 355 */
3919 Tcl_RegExp (*tcl_GetRegExpFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* patObj
, int flags
); /* 356 */
3920 Tcl_Obj
* (*tcl_EvalTokens
) (Tcl_Interp
* interp
, Tcl_Token
* tokenPtr
, int count
); /* 357 */
3921 void (*tcl_FreeParse
) (Tcl_Parse
* parsePtr
); /* 358 */
3922 void (*tcl_LogCommandInfo
) (Tcl_Interp
* interp
, CONST
char * script
, CONST
char * command
, int length
); /* 359 */
3923 int (*tcl_ParseBraces
) (Tcl_Interp
* interp
, CONST
char * start
, int numBytes
, Tcl_Parse
* parsePtr
, int append
, CONST84
char ** termPtr
); /* 360 */
3924 int (*tcl_ParseCommand
) (Tcl_Interp
* interp
, CONST
char * start
, int numBytes
, int nested
, Tcl_Parse
* parsePtr
); /* 361 */
3925 int (*tcl_ParseExpr
) (Tcl_Interp
* interp
, CONST
char * start
, int numBytes
, Tcl_Parse
* parsePtr
); /* 362 */
3926 int (*tcl_ParseQuotedString
) (Tcl_Interp
* interp
, CONST
char * start
, int numBytes
, Tcl_Parse
* parsePtr
, int append
, CONST84
char ** termPtr
); /* 363 */
3927 int (*tcl_ParseVarName
) (Tcl_Interp
* interp
, CONST
char * start
, int numBytes
, Tcl_Parse
* parsePtr
, int append
); /* 364 */
3928 char * (*tcl_GetCwd
) (Tcl_Interp
* interp
, Tcl_DString
* cwdPtr
); /* 365 */
3929 int (*tcl_Chdir
) (CONST
char * dirName
); /* 366 */
3930 int (*tcl_Access
) (CONST
char * path
, int mode
); /* 367 */
3931 int (*tcl_Stat
) (CONST
char * path
, struct stat
* bufPtr
); /* 368 */
3932 int (*tcl_UtfNcmp
) (CONST
char * s1
, CONST
char * s2
, unsigned long n
); /* 369 */
3933 int (*tcl_UtfNcasecmp
) (CONST
char * s1
, CONST
char * s2
, unsigned long n
); /* 370 */
3934 int (*tcl_StringCaseMatch
) (CONST
char * str
, CONST
char * pattern
, int nocase
); /* 371 */
3935 int (*tcl_UniCharIsControl
) (int ch
); /* 372 */
3936 int (*tcl_UniCharIsGraph
) (int ch
); /* 373 */
3937 int (*tcl_UniCharIsPrint
) (int ch
); /* 374 */
3938 int (*tcl_UniCharIsPunct
) (int ch
); /* 375 */
3939 int (*tcl_RegExpExecObj
) (Tcl_Interp
* interp
, Tcl_RegExp regexp
, Tcl_Obj
* textObj
, int offset
, int nmatches
, int flags
); /* 376 */
3940 void (*tcl_RegExpGetInfo
) (Tcl_RegExp regexp
, Tcl_RegExpInfo
* infoPtr
); /* 377 */
3941 Tcl_Obj
* (*tcl_NewUnicodeObj
) (CONST Tcl_UniChar
* unicode
, int numChars
); /* 378 */
3942 void (*tcl_SetUnicodeObj
) (Tcl_Obj
* objPtr
, CONST Tcl_UniChar
* unicode
, int numChars
); /* 379 */
3943 int (*tcl_GetCharLength
) (Tcl_Obj
* objPtr
); /* 380 */
3944 Tcl_UniChar (*tcl_GetUniChar
) (Tcl_Obj
* objPtr
, int index
); /* 381 */
3945 Tcl_UniChar
* (*tcl_GetUnicode
) (Tcl_Obj
* objPtr
); /* 382 */
3946 Tcl_Obj
* (*tcl_GetRange
) (Tcl_Obj
* objPtr
, int first
, int last
); /* 383 */
3947 void (*tcl_AppendUnicodeToObj
) (Tcl_Obj
* objPtr
, CONST Tcl_UniChar
* unicode
, int length
); /* 384 */
3948 int (*tcl_RegExpMatchObj
) (Tcl_Interp
* interp
, Tcl_Obj
* textObj
, Tcl_Obj
* patternObj
); /* 385 */
3949 void (*tcl_SetNotifier
) (Tcl_NotifierProcs
* notifierProcPtr
); /* 386 */
3950 Tcl_Mutex
* (*tcl_GetAllocMutex
) (void); /* 387 */
3951 int (*tcl_GetChannelNames
) (Tcl_Interp
* interp
); /* 388 */
3952 int (*tcl_GetChannelNamesEx
) (Tcl_Interp
* interp
, CONST
char * pattern
); /* 389 */
3953 int (*tcl_ProcObjCmd
) (ClientData clientData
, Tcl_Interp
* interp
, int objc
, Tcl_Obj
*CONST objv
[]); /* 390 */
3954 void (*tcl_ConditionFinalize
) (Tcl_Condition
* condPtr
); /* 391 */
3955 void (*tcl_MutexFinalize
) (Tcl_Mutex
* mutex
); /* 392 */
3956 int (*tcl_CreateThread
) (Tcl_ThreadId
* idPtr
, Tcl_ThreadCreateProc proc
, ClientData clientData
, int stackSize
, int flags
); /* 393 */
3957 int (*tcl_ReadRaw
) (Tcl_Channel chan
, char * dst
, int bytesToRead
); /* 394 */
3958 int (*tcl_WriteRaw
) (Tcl_Channel chan
, CONST
char * src
, int srcLen
); /* 395 */
3959 Tcl_Channel (*tcl_GetTopChannel
) (Tcl_Channel chan
); /* 396 */
3960 int (*tcl_ChannelBuffered
) (Tcl_Channel chan
); /* 397 */
3961 CONST84_RETURN
char * (*tcl_ChannelName
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 398 */
3962 Tcl_ChannelTypeVersion (*tcl_ChannelVersion
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 399 */
3963 Tcl_DriverBlockModeProc
* (*tcl_ChannelBlockModeProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 400 */
3964 Tcl_DriverCloseProc
* (*tcl_ChannelCloseProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 401 */
3965 Tcl_DriverClose2Proc
* (*tcl_ChannelClose2Proc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 402 */
3966 Tcl_DriverInputProc
* (*tcl_ChannelInputProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 403 */
3967 Tcl_DriverOutputProc
* (*tcl_ChannelOutputProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 404 */
3968 Tcl_DriverSeekProc
* (*tcl_ChannelSeekProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 405 */
3969 Tcl_DriverSetOptionProc
* (*tcl_ChannelSetOptionProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 406 */
3970 Tcl_DriverGetOptionProc
* (*tcl_ChannelGetOptionProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 407 */
3971 Tcl_DriverWatchProc
* (*tcl_ChannelWatchProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 408 */
3972 Tcl_DriverGetHandleProc
* (*tcl_ChannelGetHandleProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 409 */
3973 Tcl_DriverFlushProc
* (*tcl_ChannelFlushProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 410 */
3974 Tcl_DriverHandlerProc
* (*tcl_ChannelHandlerProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 411 */
3975 int (*tcl_JoinThread
) (Tcl_ThreadId threadId
, int* result
); /* 412 */
3976 int (*tcl_IsChannelShared
) (Tcl_Channel channel
); /* 413 */
3977 int (*tcl_IsChannelRegistered
) (Tcl_Interp
* interp
, Tcl_Channel channel
); /* 414 */
3978 void (*tcl_CutChannel
) (Tcl_Channel channel
); /* 415 */
3979 void (*tcl_SpliceChannel
) (Tcl_Channel channel
); /* 416 */
3980 void (*tcl_ClearChannelHandlers
) (Tcl_Channel channel
); /* 417 */
3981 int (*tcl_IsChannelExisting
) (CONST
char* channelName
); /* 418 */
3982 int (*tcl_UniCharNcasecmp
) (CONST Tcl_UniChar
* ucs
, CONST Tcl_UniChar
* uct
, unsigned long numChars
); /* 419 */
3983 int (*tcl_UniCharCaseMatch
) (CONST Tcl_UniChar
* uniStr
, CONST Tcl_UniChar
* uniPattern
, int nocase
); /* 420 */
3984 Tcl_HashEntry
* (*tcl_FindHashEntry
) (Tcl_HashTable
* tablePtr
, CONST
char * key
); /* 421 */
3985 Tcl_HashEntry
* (*tcl_CreateHashEntry
) (Tcl_HashTable
* tablePtr
, CONST
char * key
, int * newPtr
); /* 422 */
3986 void (*tcl_InitCustomHashTable
) (Tcl_HashTable
* tablePtr
, int keyType
, Tcl_HashKeyType
* typePtr
); /* 423 */
3987 void (*tcl_InitObjHashTable
) (Tcl_HashTable
* tablePtr
); /* 424 */
3988 ClientData (*tcl_CommandTraceInfo
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
, Tcl_CommandTraceProc
* procPtr
, ClientData prevClientData
); /* 425 */
3989 int (*tcl_TraceCommand
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
, Tcl_CommandTraceProc
* proc
, ClientData clientData
); /* 426 */
3990 void (*tcl_UntraceCommand
) (Tcl_Interp
* interp
, CONST
char * varName
, int flags
, Tcl_CommandTraceProc
* proc
, ClientData clientData
); /* 427 */
3991 char * (*tcl_AttemptAlloc
) (unsigned int size
); /* 428 */
3992 char * (*tcl_AttemptDbCkalloc
) (unsigned int size
, CONST
char * file
, int line
); /* 429 */
3993 char * (*tcl_AttemptRealloc
) (char * ptr
, unsigned int size
); /* 430 */
3994 char * (*tcl_AttemptDbCkrealloc
) (char * ptr
, unsigned int size
, CONST
char * file
, int line
); /* 431 */
3995 int (*tcl_AttemptSetObjLength
) (Tcl_Obj
* objPtr
, int length
); /* 432 */
3996 Tcl_ThreadId (*tcl_GetChannelThread
) (Tcl_Channel channel
); /* 433 */
3997 Tcl_UniChar
* (*tcl_GetUnicodeFromObj
) (Tcl_Obj
* objPtr
, int * lengthPtr
); /* 434 */
3998 int (*tcl_GetMathFuncInfo
) (Tcl_Interp
* interp
, CONST
char * name
, int * numArgsPtr
, Tcl_ValueType
** argTypesPtr
, Tcl_MathProc
** procPtr
, ClientData
* clientDataPtr
); /* 435 */
3999 Tcl_Obj
* (*tcl_ListMathFuncs
) (Tcl_Interp
* interp
, CONST
char * pattern
); /* 436 */
4000 Tcl_Obj
* (*tcl_SubstObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, int flags
); /* 437 */
4001 int (*tcl_DetachChannel
) (Tcl_Interp
* interp
, Tcl_Channel channel
); /* 438 */
4002 int (*tcl_IsStandardChannel
) (Tcl_Channel channel
); /* 439 */
4003 int (*tcl_FSCopyFile
) (Tcl_Obj
* srcPathPtr
, Tcl_Obj
* destPathPtr
); /* 440 */
4004 int (*tcl_FSCopyDirectory
) (Tcl_Obj
* srcPathPtr
, Tcl_Obj
* destPathPtr
, Tcl_Obj
** errorPtr
); /* 441 */
4005 int (*tcl_FSCreateDirectory
) (Tcl_Obj
* pathPtr
); /* 442 */
4006 int (*tcl_FSDeleteFile
) (Tcl_Obj
* pathPtr
); /* 443 */
4007 int (*tcl_FSLoadFile
) (Tcl_Interp
* interp
, Tcl_Obj
* pathPtr
, CONST
char * sym1
, CONST
char * sym2
, Tcl_PackageInitProc
** proc1Ptr
, Tcl_PackageInitProc
** proc2Ptr
, Tcl_LoadHandle
* handlePtr
, Tcl_FSUnloadFileProc
** unloadProcPtr
); /* 444 */
4008 int (*tcl_FSMatchInDirectory
) (Tcl_Interp
* interp
, Tcl_Obj
* result
, Tcl_Obj
* pathPtr
, CONST
char * pattern
, Tcl_GlobTypeData
* types
); /* 445 */
4009 Tcl_Obj
* (*tcl_FSLink
) (Tcl_Obj
* pathPtr
, Tcl_Obj
* toPtr
, int linkAction
); /* 446 */
4010 int (*tcl_FSRemoveDirectory
) (Tcl_Obj
* pathPtr
, int recursive
, Tcl_Obj
** errorPtr
); /* 447 */
4011 int (*tcl_FSRenameFile
) (Tcl_Obj
* srcPathPtr
, Tcl_Obj
* destPathPtr
); /* 448 */
4012 int (*tcl_FSLstat
) (Tcl_Obj
* pathPtr
, Tcl_StatBuf
* buf
); /* 449 */
4013 int (*tcl_FSUtime
) (Tcl_Obj
* pathPtr
, struct utimbuf
* tval
); /* 450 */
4014 int (*tcl_FSFileAttrsGet
) (Tcl_Interp
* interp
, int index
, Tcl_Obj
* pathPtr
, Tcl_Obj
** objPtrRef
); /* 451 */
4015 int (*tcl_FSFileAttrsSet
) (Tcl_Interp
* interp
, int index
, Tcl_Obj
* pathPtr
, Tcl_Obj
* objPtr
); /* 452 */
4016 CONST
char ** (*tcl_FSFileAttrStrings
) (Tcl_Obj
* pathPtr
, Tcl_Obj
** objPtrRef
); /* 453 */
4017 int (*tcl_FSStat
) (Tcl_Obj
* pathPtr
, Tcl_StatBuf
* buf
); /* 454 */
4018 int (*tcl_FSAccess
) (Tcl_Obj
* pathPtr
, int mode
); /* 455 */
4019 Tcl_Channel (*tcl_FSOpenFileChannel
) (Tcl_Interp
* interp
, Tcl_Obj
* pathPtr
, CONST
char * modeString
, int permissions
); /* 456 */
4020 Tcl_Obj
* (*tcl_FSGetCwd
) (Tcl_Interp
* interp
); /* 457 */
4021 int (*tcl_FSChdir
) (Tcl_Obj
* pathPtr
); /* 458 */
4022 int (*tcl_FSConvertToPathType
) (Tcl_Interp
* interp
, Tcl_Obj
* pathPtr
); /* 459 */
4023 Tcl_Obj
* (*tcl_FSJoinPath
) (Tcl_Obj
* listObj
, int elements
); /* 460 */
4024 Tcl_Obj
* (*tcl_FSSplitPath
) (Tcl_Obj
* pathPtr
, int * lenPtr
); /* 461 */
4025 int (*tcl_FSEqualPaths
) (Tcl_Obj
* firstPtr
, Tcl_Obj
* secondPtr
); /* 462 */
4026 Tcl_Obj
* (*tcl_FSGetNormalizedPath
) (Tcl_Interp
* interp
, Tcl_Obj
* pathPtr
); /* 463 */
4027 Tcl_Obj
* (*tcl_FSJoinToPath
) (Tcl_Obj
* pathPtr
, int objc
, Tcl_Obj
*CONST objv
[]); /* 464 */
4028 ClientData (*tcl_FSGetInternalRep
) (Tcl_Obj
* pathPtr
, Tcl_Filesystem
* fsPtr
); /* 465 */
4029 Tcl_Obj
* (*tcl_FSGetTranslatedPath
) (Tcl_Interp
* interp
, Tcl_Obj
* pathPtr
); /* 466 */
4030 int (*tcl_FSEvalFile
) (Tcl_Interp
* interp
, Tcl_Obj
* fileName
); /* 467 */
4031 Tcl_Obj
* (*tcl_FSNewNativePath
) (Tcl_Filesystem
* fromFilesystem
, ClientData clientData
); /* 468 */
4032 CONST
char* (*tcl_FSGetNativePath
) (Tcl_Obj
* pathPtr
); /* 469 */
4033 Tcl_Obj
* (*tcl_FSFileSystemInfo
) (Tcl_Obj
* pathPtr
); /* 470 */
4034 Tcl_Obj
* (*tcl_FSPathSeparator
) (Tcl_Obj
* pathPtr
); /* 471 */
4035 Tcl_Obj
* (*tcl_FSListVolumes
) (void); /* 472 */
4036 int (*tcl_FSRegister
) (ClientData clientData
, Tcl_Filesystem
* fsPtr
); /* 473 */
4037 int (*tcl_FSUnregister
) (Tcl_Filesystem
* fsPtr
); /* 474 */
4038 ClientData (*tcl_FSData
) (Tcl_Filesystem
* fsPtr
); /* 475 */
4039 CONST
char* (*tcl_FSGetTranslatedStringPath
) (Tcl_Interp
* interp
, Tcl_Obj
* pathPtr
); /* 476 */
4040 Tcl_Filesystem
* (*tcl_FSGetFileSystemForPath
) (Tcl_Obj
* pathPtr
); /* 477 */
4041 Tcl_PathType (*tcl_FSGetPathType
) (Tcl_Obj
* pathPtr
); /* 478 */
4042 int (*tcl_OutputBuffered
) (Tcl_Channel chan
); /* 479 */
4043 void (*tcl_FSMountsChanged
) (Tcl_Filesystem
* fsPtr
); /* 480 */
4044 int (*tcl_EvalTokensStandard
) (Tcl_Interp
* interp
, Tcl_Token
* tokenPtr
, int count
); /* 481 */
4045 void (*tcl_GetTime
) (Tcl_Time
* timeBuf
); /* 482 */
4046 Tcl_Trace (*tcl_CreateObjTrace
) (Tcl_Interp
* interp
, int level
, int flags
, Tcl_CmdObjTraceProc
* objProc
, ClientData clientData
, Tcl_CmdObjTraceDeleteProc
* delProc
); /* 483 */
4047 int (*tcl_GetCommandInfoFromToken
) (Tcl_Command token
, Tcl_CmdInfo
* infoPtr
); /* 484 */
4048 int (*tcl_SetCommandInfoFromToken
) (Tcl_Command token
, CONST Tcl_CmdInfo
* infoPtr
); /* 485 */
4049 Tcl_Obj
* (*tcl_DbNewWideIntObj
) (Tcl_WideInt wideValue
, CONST
char * file
, int line
); /* 486 */
4050 int (*tcl_GetWideIntFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, Tcl_WideInt
* widePtr
); /* 487 */
4051 Tcl_Obj
* (*tcl_NewWideIntObj
) (Tcl_WideInt wideValue
); /* 488 */
4052 void (*tcl_SetWideIntObj
) (Tcl_Obj
* objPtr
, Tcl_WideInt wideValue
); /* 489 */
4053 Tcl_StatBuf
* (*tcl_AllocStatBuf
) (void); /* 490 */
4054 Tcl_WideInt (*tcl_Seek
) (Tcl_Channel chan
, Tcl_WideInt offset
, int mode
); /* 491 */
4055 Tcl_WideInt (*tcl_Tell
) (Tcl_Channel chan
); /* 492 */
4056 Tcl_DriverWideSeekProc
* (*tcl_ChannelWideSeekProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 493 */
4057 int (*tcl_DictObjPut
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, Tcl_Obj
* keyPtr
, Tcl_Obj
* valuePtr
); /* 494 */
4058 int (*tcl_DictObjGet
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, Tcl_Obj
* keyPtr
, Tcl_Obj
** valuePtrPtr
); /* 495 */
4059 int (*tcl_DictObjRemove
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, Tcl_Obj
* keyPtr
); /* 496 */
4060 int (*tcl_DictObjSize
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, int * sizePtr
); /* 497 */
4061 int (*tcl_DictObjFirst
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, Tcl_DictSearch
* searchPtr
, Tcl_Obj
** keyPtrPtr
, Tcl_Obj
** valuePtrPtr
, int * donePtr
); /* 498 */
4062 void (*tcl_DictObjNext
) (Tcl_DictSearch
* searchPtr
, Tcl_Obj
** keyPtrPtr
, Tcl_Obj
** valuePtrPtr
, int * donePtr
); /* 499 */
4063 void (*tcl_DictObjDone
) (Tcl_DictSearch
* searchPtr
); /* 500 */
4064 int (*tcl_DictObjPutKeyList
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, int keyc
, Tcl_Obj
*CONST
* keyv
, Tcl_Obj
* valuePtr
); /* 501 */
4065 int (*tcl_DictObjRemoveKeyList
) (Tcl_Interp
* interp
, Tcl_Obj
* dictPtr
, int keyc
, Tcl_Obj
*CONST
* keyv
); /* 502 */
4066 Tcl_Obj
* (*tcl_NewDictObj
) (void); /* 503 */
4067 Tcl_Obj
* (*tcl_DbNewDictObj
) (CONST
char * file
, int line
); /* 504 */
4068 void (*tcl_RegisterConfig
) (Tcl_Interp
* interp
, CONST
char* pkgName
, Tcl_Config
* configuration
, CONST
char* valEncoding
); /* 505 */
4069 Tcl_Namespace
* (*tcl_CreateNamespace
) (Tcl_Interp
* interp
, CONST
char * name
, ClientData clientData
, Tcl_NamespaceDeleteProc
* deleteProc
); /* 506 */
4070 void (*tcl_DeleteNamespace
) (Tcl_Namespace
* nsPtr
); /* 507 */
4071 int (*tcl_AppendExportList
) (Tcl_Interp
* interp
, Tcl_Namespace
* nsPtr
, Tcl_Obj
* objPtr
); /* 508 */
4072 int (*tcl_Export
) (Tcl_Interp
* interp
, Tcl_Namespace
* nsPtr
, CONST
char * pattern
, int resetListFirst
); /* 509 */
4073 int (*tcl_Import
) (Tcl_Interp
* interp
, Tcl_Namespace
* nsPtr
, CONST
char * pattern
, int allowOverwrite
); /* 510 */
4074 int (*tcl_ForgetImport
) (Tcl_Interp
* interp
, Tcl_Namespace
* nsPtr
, CONST
char * pattern
); /* 511 */
4075 Tcl_Namespace
* (*tcl_GetCurrentNamespace
) (Tcl_Interp
* interp
); /* 512 */
4076 Tcl_Namespace
* (*tcl_GetGlobalNamespace
) (Tcl_Interp
* interp
); /* 513 */
4077 Tcl_Namespace
* (*tcl_FindNamespace
) (Tcl_Interp
* interp
, CONST
char * name
, Tcl_Namespace
* contextNsPtr
, int flags
); /* 514 */
4078 Tcl_Command (*tcl_FindCommand
) (Tcl_Interp
* interp
, CONST
char * name
, Tcl_Namespace
* contextNsPtr
, int flags
); /* 515 */
4079 Tcl_Command (*tcl_GetCommandFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
); /* 516 */
4080 void (*tcl_GetCommandFullName
) (Tcl_Interp
* interp
, Tcl_Command command
, Tcl_Obj
* objPtr
); /* 517 */
4081 int (*tcl_FSEvalFileEx
) (Tcl_Interp
* interp
, Tcl_Obj
* fileName
, CONST
char * encodingName
); /* 518 */
4082 Tcl_ExitProc
* (*tcl_SetExitProc
) (Tcl_ExitProc
* proc
); /* 519 */
4083 void (*tcl_LimitAddHandler
) (Tcl_Interp
* interp
, int type
, Tcl_LimitHandlerProc
* handlerProc
, ClientData clientData
, Tcl_LimitHandlerDeleteProc
* deleteProc
); /* 520 */
4084 void (*tcl_LimitRemoveHandler
) (Tcl_Interp
* interp
, int type
, Tcl_LimitHandlerProc
* handlerProc
, ClientData clientData
); /* 521 */
4085 int (*tcl_LimitReady
) (Tcl_Interp
* interp
); /* 522 */
4086 int (*tcl_LimitCheck
) (Tcl_Interp
* interp
); /* 523 */
4087 int (*tcl_LimitExceeded
) (Tcl_Interp
* interp
); /* 524 */
4088 void (*tcl_LimitSetCommands
) (Tcl_Interp
* interp
, int commandLimit
); /* 525 */
4089 void (*tcl_LimitSetTime
) (Tcl_Interp
* interp
, Tcl_Time
* timeLimitPtr
); /* 526 */
4090 void (*tcl_LimitSetGranularity
) (Tcl_Interp
* interp
, int type
, int granularity
); /* 527 */
4091 int (*tcl_LimitTypeEnabled
) (Tcl_Interp
* interp
, int type
); /* 528 */
4092 int (*tcl_LimitTypeExceeded
) (Tcl_Interp
* interp
, int type
); /* 529 */
4093 void (*tcl_LimitTypeSet
) (Tcl_Interp
* interp
, int type
); /* 530 */
4094 void (*tcl_LimitTypeReset
) (Tcl_Interp
* interp
, int type
); /* 531 */
4095 int (*tcl_LimitGetCommands
) (Tcl_Interp
* interp
); /* 532 */
4096 void (*tcl_LimitGetTime
) (Tcl_Interp
* interp
, Tcl_Time
* timeLimitPtr
); /* 533 */
4097 int (*tcl_LimitGetGranularity
) (Tcl_Interp
* interp
, int type
); /* 534 */
4098 Tcl_InterpState (*tcl_SaveInterpState
) (Tcl_Interp
* interp
, int status
); /* 535 */
4099 int (*tcl_RestoreInterpState
) (Tcl_Interp
* interp
, Tcl_InterpState state
); /* 536 */
4100 void (*tcl_DiscardInterpState
) (Tcl_InterpState state
); /* 537 */
4101 int (*tcl_SetReturnOptions
) (Tcl_Interp
* interp
, Tcl_Obj
* options
); /* 538 */
4102 Tcl_Obj
* (*tcl_GetReturnOptions
) (Tcl_Interp
* interp
, int result
); /* 539 */
4103 int (*tcl_IsEnsemble
) (Tcl_Command token
); /* 540 */
4104 Tcl_Command (*tcl_CreateEnsemble
) (Tcl_Interp
* interp
, CONST
char * name
, Tcl_Namespace
* namespacePtr
, int flags
); /* 541 */
4105 Tcl_Command (*tcl_FindEnsemble
) (Tcl_Interp
* interp
, Tcl_Obj
* cmdNameObj
, int flags
); /* 542 */
4106 int (*tcl_SetEnsembleSubcommandList
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Obj
* subcmdList
); /* 543 */
4107 int (*tcl_SetEnsembleMappingDict
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Obj
* mapDict
); /* 544 */
4108 int (*tcl_SetEnsembleUnknownHandler
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Obj
* unknownList
); /* 545 */
4109 int (*tcl_SetEnsembleFlags
) (Tcl_Interp
* interp
, Tcl_Command token
, int flags
); /* 546 */
4110 int (*tcl_GetEnsembleSubcommandList
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Obj
** subcmdListPtr
); /* 547 */
4111 int (*tcl_GetEnsembleMappingDict
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Obj
** mapDictPtr
); /* 548 */
4112 int (*tcl_GetEnsembleUnknownHandler
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Obj
** unknownListPtr
); /* 549 */
4113 int (*tcl_GetEnsembleFlags
) (Tcl_Interp
* interp
, Tcl_Command token
, int * flagsPtr
); /* 550 */
4114 int (*tcl_GetEnsembleNamespace
) (Tcl_Interp
* interp
, Tcl_Command token
, Tcl_Namespace
** namespacePtrPtr
); /* 551 */
4115 void (*tcl_SetTimeProc
) (Tcl_GetTimeProc
* getProc
, Tcl_ScaleTimeProc
* scaleProc
, ClientData clientData
); /* 552 */
4116 void (*tcl_QueryTimeProc
) (Tcl_GetTimeProc
** getProc
, Tcl_ScaleTimeProc
** scaleProc
, ClientData
* clientData
); /* 553 */
4117 Tcl_DriverThreadActionProc
* (*tcl_ChannelThreadActionProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 554 */
4118 Tcl_Obj
* (*tcl_NewBignumObj
) (mp_int
* value
); /* 555 */
4119 Tcl_Obj
* (*tcl_DbNewBignumObj
) (mp_int
* value
, CONST
char* file
, int line
); /* 556 */
4120 void (*tcl_SetBignumObj
) (Tcl_Obj
* obj
, mp_int
* value
); /* 557 */
4121 int (*tcl_GetBignumFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* obj
, mp_int
* value
); /* 558 */
4122 int (*tcl_TakeBignumFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* obj
, mp_int
* value
); /* 559 */
4123 int (*tcl_TruncateChannel
) (Tcl_Channel chan
, Tcl_WideInt length
); /* 560 */
4124 Tcl_DriverTruncateProc
* (*tcl_ChannelTruncateProc
) (CONST Tcl_ChannelType
* chanTypePtr
); /* 561 */
4125 void (*tcl_SetChannelErrorInterp
) (Tcl_Interp
* interp
, Tcl_Obj
* msg
); /* 562 */
4126 void (*tcl_GetChannelErrorInterp
) (Tcl_Interp
* interp
, Tcl_Obj
** msg
); /* 563 */
4127 void (*tcl_SetChannelError
) (Tcl_Channel chan
, Tcl_Obj
* msg
); /* 564 */
4128 void (*tcl_GetChannelError
) (Tcl_Channel chan
, Tcl_Obj
** msg
); /* 565 */
4129 int (*tcl_InitBignumFromDouble
) (Tcl_Interp
* interp
, double initval
, mp_int
* toInit
); /* 566 */
4130 Tcl_Obj
* (*tcl_GetNamespaceUnknownHandler
) (Tcl_Interp
* interp
, Tcl_Namespace
* nsPtr
); /* 567 */
4131 int (*tcl_SetNamespaceUnknownHandler
) (Tcl_Interp
* interp
, Tcl_Namespace
* nsPtr
, Tcl_Obj
* handlerPtr
); /* 568 */
4132 int (*tcl_GetEncodingFromObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, Tcl_Encoding
* encodingPtr
); /* 569 */
4133 Tcl_Obj
* (*tcl_GetEncodingSearchPath
) (void); /* 570 */
4134 int (*tcl_SetEncodingSearchPath
) (Tcl_Obj
* searchPath
); /* 571 */
4135 CONST
char * (*tcl_GetEncodingNameFromEnvironment
) (Tcl_DString
* bufPtr
); /* 572 */
4136 int (*tcl_PkgRequireProc
) (Tcl_Interp
* interp
, CONST
char * name
, int objc
, Tcl_Obj
*CONST objv
[], ClientData
* clientDataPtr
); /* 573 */
4137 void (*tcl_AppendObjToErrorInfo
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
); /* 574 */
4138 void (*tcl_AppendLimitedToObj
) (Tcl_Obj
* objPtr
, CONST
char * bytes
, int length
, int limit
, CONST
char * ellipsis
); /* 575 */
4139 Tcl_Obj
* (*tcl_Format
) (Tcl_Interp
* interp
, CONST
char * format
, int objc
, Tcl_Obj
* CONST objv
[]); /* 576 */
4140 int (*tcl_AppendFormatToObj
) (Tcl_Interp
* interp
, Tcl_Obj
* objPtr
, CONST
char * format
, int objc
, Tcl_Obj
* CONST objv
[]); /* 577 */
4141 Tcl_Obj
* (*tcl_ObjPrintf
) (CONST
char * format
, ...); /* 578 */
4142 void (*tcl_AppendPrintfToObj
) (Tcl_Obj
* objPtr
, CONST
char * format
, ...); /* 579 */
4148 extern TclStubs
*tclStubsPtr
;
4153 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
4156 * Inline function declarations:
4159 #ifndef Tcl_PkgProvideEx
4160 #define Tcl_PkgProvideEx \
4161 (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
4163 #ifndef Tcl_PkgRequireEx
4164 #define Tcl_PkgRequireEx \
4165 (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
4169 (tclStubsPtr->tcl_Panic) /* 2 */
4173 (tclStubsPtr->tcl_Alloc) /* 3 */
4177 (tclStubsPtr->tcl_Free) /* 4 */
4180 #define Tcl_Realloc \
4181 (tclStubsPtr->tcl_Realloc) /* 5 */
4183 #ifndef Tcl_DbCkalloc
4184 #define Tcl_DbCkalloc \
4185 (tclStubsPtr->tcl_DbCkalloc) /* 6 */
4187 #ifndef Tcl_DbCkfree
4188 #define Tcl_DbCkfree \
4189 (tclStubsPtr->tcl_DbCkfree) /* 7 */
4191 #ifndef Tcl_DbCkrealloc
4192 #define Tcl_DbCkrealloc \
4193 (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
4195 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
4196 #ifndef Tcl_CreateFileHandler
4197 #define Tcl_CreateFileHandler \
4198 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
4201 #ifdef MAC_OSX_TCL /* MACOSX */
4202 #ifndef Tcl_CreateFileHandler
4203 #define Tcl_CreateFileHandler \
4204 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
4207 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
4208 #ifndef Tcl_DeleteFileHandler
4209 #define Tcl_DeleteFileHandler \
4210 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
4213 #ifdef MAC_OSX_TCL /* MACOSX */
4214 #ifndef Tcl_DeleteFileHandler
4215 #define Tcl_DeleteFileHandler \
4216 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
4219 #ifndef Tcl_SetTimer
4220 #define Tcl_SetTimer \
4221 (tclStubsPtr->tcl_SetTimer) /* 11 */
4225 (tclStubsPtr->tcl_Sleep) /* 12 */
4227 #ifndef Tcl_WaitForEvent
4228 #define Tcl_WaitForEvent \
4229 (tclStubsPtr->tcl_WaitForEvent) /* 13 */
4231 #ifndef Tcl_AppendAllObjTypes
4232 #define Tcl_AppendAllObjTypes \
4233 (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
4235 #ifndef Tcl_AppendStringsToObj
4236 #define Tcl_AppendStringsToObj \
4237 (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
4239 #ifndef Tcl_AppendToObj
4240 #define Tcl_AppendToObj \
4241 (tclStubsPtr->tcl_AppendToObj) /* 16 */
4243 #ifndef Tcl_ConcatObj
4244 #define Tcl_ConcatObj \
4245 (tclStubsPtr->tcl_ConcatObj) /* 17 */
4247 #ifndef Tcl_ConvertToType
4248 #define Tcl_ConvertToType \
4249 (tclStubsPtr->tcl_ConvertToType) /* 18 */
4251 #ifndef Tcl_DbDecrRefCount
4252 #define Tcl_DbDecrRefCount \
4253 (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
4255 #ifndef Tcl_DbIncrRefCount
4256 #define Tcl_DbIncrRefCount \
4257 (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
4259 #ifndef Tcl_DbIsShared
4260 #define Tcl_DbIsShared \
4261 (tclStubsPtr->tcl_DbIsShared) /* 21 */
4263 #ifndef Tcl_DbNewBooleanObj
4264 #define Tcl_DbNewBooleanObj \
4265 (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
4267 #ifndef Tcl_DbNewByteArrayObj
4268 #define Tcl_DbNewByteArrayObj \
4269 (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
4271 #ifndef Tcl_DbNewDoubleObj
4272 #define Tcl_DbNewDoubleObj \
4273 (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
4275 #ifndef Tcl_DbNewListObj
4276 #define Tcl_DbNewListObj \
4277 (tclStubsPtr->tcl_DbNewListObj) /* 25 */
4279 #ifndef Tcl_DbNewLongObj
4280 #define Tcl_DbNewLongObj \
4281 (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
4283 #ifndef Tcl_DbNewObj
4284 #define Tcl_DbNewObj \
4285 (tclStubsPtr->tcl_DbNewObj) /* 27 */
4287 #ifndef Tcl_DbNewStringObj
4288 #define Tcl_DbNewStringObj \
4289 (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
4291 #ifndef Tcl_DuplicateObj
4292 #define Tcl_DuplicateObj \
4293 (tclStubsPtr->tcl_DuplicateObj) /* 29 */
4296 #define TclFreeObj \
4297 (tclStubsPtr->tclFreeObj) /* 30 */
4299 #ifndef Tcl_GetBoolean
4300 #define Tcl_GetBoolean \
4301 (tclStubsPtr->tcl_GetBoolean) /* 31 */
4303 #ifndef Tcl_GetBooleanFromObj
4304 #define Tcl_GetBooleanFromObj \
4305 (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
4307 #ifndef Tcl_GetByteArrayFromObj
4308 #define Tcl_GetByteArrayFromObj \
4309 (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
4311 #ifndef Tcl_GetDouble
4312 #define Tcl_GetDouble \
4313 (tclStubsPtr->tcl_GetDouble) /* 34 */
4315 #ifndef Tcl_GetDoubleFromObj
4316 #define Tcl_GetDoubleFromObj \
4317 (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
4319 #ifndef Tcl_GetIndexFromObj
4320 #define Tcl_GetIndexFromObj \
4321 (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
4324 #define Tcl_GetInt \
4325 (tclStubsPtr->tcl_GetInt) /* 37 */
4327 #ifndef Tcl_GetIntFromObj
4328 #define Tcl_GetIntFromObj \
4329 (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
4331 #ifndef Tcl_GetLongFromObj
4332 #define Tcl_GetLongFromObj \
4333 (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
4335 #ifndef Tcl_GetObjType
4336 #define Tcl_GetObjType \
4337 (tclStubsPtr->tcl_GetObjType) /* 40 */
4339 #ifndef Tcl_GetStringFromObj
4340 #define Tcl_GetStringFromObj \
4341 (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
4343 #ifndef Tcl_InvalidateStringRep
4344 #define Tcl_InvalidateStringRep \
4345 (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
4347 #ifndef Tcl_ListObjAppendList
4348 #define Tcl_ListObjAppendList \
4349 (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
4351 #ifndef Tcl_ListObjAppendElement
4352 #define Tcl_ListObjAppendElement \
4353 (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
4355 #ifndef Tcl_ListObjGetElements
4356 #define Tcl_ListObjGetElements \
4357 (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
4359 #ifndef Tcl_ListObjIndex
4360 #define Tcl_ListObjIndex \
4361 (tclStubsPtr->tcl_ListObjIndex) /* 46 */
4363 #ifndef Tcl_ListObjLength
4364 #define Tcl_ListObjLength \
4365 (tclStubsPtr->tcl_ListObjLength) /* 47 */
4367 #ifndef Tcl_ListObjReplace
4368 #define Tcl_ListObjReplace \
4369 (tclStubsPtr->tcl_ListObjReplace) /* 48 */
4371 #ifndef Tcl_NewBooleanObj
4372 #define Tcl_NewBooleanObj \
4373 (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
4375 #ifndef Tcl_NewByteArrayObj
4376 #define Tcl_NewByteArrayObj \
4377 (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
4379 #ifndef Tcl_NewDoubleObj
4380 #define Tcl_NewDoubleObj \
4381 (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
4383 #ifndef Tcl_NewIntObj
4384 #define Tcl_NewIntObj \
4385 (tclStubsPtr->tcl_NewIntObj) /* 52 */
4387 #ifndef Tcl_NewListObj
4388 #define Tcl_NewListObj \
4389 (tclStubsPtr->tcl_NewListObj) /* 53 */
4391 #ifndef Tcl_NewLongObj
4392 #define Tcl_NewLongObj \
4393 (tclStubsPtr->tcl_NewLongObj) /* 54 */
4396 #define Tcl_NewObj \
4397 (tclStubsPtr->tcl_NewObj) /* 55 */
4399 #ifndef Tcl_NewStringObj
4400 #define Tcl_NewStringObj \
4401 (tclStubsPtr->tcl_NewStringObj) /* 56 */
4403 #ifndef Tcl_SetBooleanObj
4404 #define Tcl_SetBooleanObj \
4405 (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
4407 #ifndef Tcl_SetByteArrayLength
4408 #define Tcl_SetByteArrayLength \
4409 (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
4411 #ifndef Tcl_SetByteArrayObj
4412 #define Tcl_SetByteArrayObj \
4413 (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
4415 #ifndef Tcl_SetDoubleObj
4416 #define Tcl_SetDoubleObj \
4417 (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
4419 #ifndef Tcl_SetIntObj
4420 #define Tcl_SetIntObj \
4421 (tclStubsPtr->tcl_SetIntObj) /* 61 */
4423 #ifndef Tcl_SetListObj
4424 #define Tcl_SetListObj \
4425 (tclStubsPtr->tcl_SetListObj) /* 62 */
4427 #ifndef Tcl_SetLongObj
4428 #define Tcl_SetLongObj \
4429 (tclStubsPtr->tcl_SetLongObj) /* 63 */
4431 #ifndef Tcl_SetObjLength
4432 #define Tcl_SetObjLength \
4433 (tclStubsPtr->tcl_SetObjLength) /* 64 */
4435 #ifndef Tcl_SetStringObj
4436 #define Tcl_SetStringObj \
4437 (tclStubsPtr->tcl_SetStringObj) /* 65 */
4439 #ifndef Tcl_AddErrorInfo
4440 #define Tcl_AddErrorInfo \
4441 (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
4443 #ifndef Tcl_AddObjErrorInfo
4444 #define Tcl_AddObjErrorInfo \
4445 (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
4447 #ifndef Tcl_AllowExceptions
4448 #define Tcl_AllowExceptions \
4449 (tclStubsPtr->tcl_AllowExceptions) /* 68 */
4451 #ifndef Tcl_AppendElement
4452 #define Tcl_AppendElement \
4453 (tclStubsPtr->tcl_AppendElement) /* 69 */
4455 #ifndef Tcl_AppendResult
4456 #define Tcl_AppendResult \
4457 (tclStubsPtr->tcl_AppendResult) /* 70 */
4459 #ifndef Tcl_AsyncCreate
4460 #define Tcl_AsyncCreate \
4461 (tclStubsPtr->tcl_AsyncCreate) /* 71 */
4463 #ifndef Tcl_AsyncDelete
4464 #define Tcl_AsyncDelete \
4465 (tclStubsPtr->tcl_AsyncDelete) /* 72 */
4467 #ifndef Tcl_AsyncInvoke
4468 #define Tcl_AsyncInvoke \
4469 (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
4471 #ifndef Tcl_AsyncMark
4472 #define Tcl_AsyncMark \
4473 (tclStubsPtr->tcl_AsyncMark) /* 74 */
4475 #ifndef Tcl_AsyncReady
4476 #define Tcl_AsyncReady \
4477 (tclStubsPtr->tcl_AsyncReady) /* 75 */
4479 #ifndef Tcl_BackgroundError
4480 #define Tcl_BackgroundError \
4481 (tclStubsPtr->tcl_BackgroundError) /* 76 */
4483 #ifndef Tcl_Backslash
4484 #define Tcl_Backslash \
4485 (tclStubsPtr->tcl_Backslash) /* 77 */
4487 #ifndef Tcl_BadChannelOption
4488 #define Tcl_BadChannelOption \
4489 (tclStubsPtr->tcl_BadChannelOption) /* 78 */
4491 #ifndef Tcl_CallWhenDeleted
4492 #define Tcl_CallWhenDeleted \
4493 (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
4495 #ifndef Tcl_CancelIdleCall
4496 #define Tcl_CancelIdleCall \
4497 (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
4501 (tclStubsPtr->tcl_Close) /* 81 */
4503 #ifndef Tcl_CommandComplete
4504 #define Tcl_CommandComplete \
4505 (tclStubsPtr->tcl_CommandComplete) /* 82 */
4508 #define Tcl_Concat \
4509 (tclStubsPtr->tcl_Concat) /* 83 */
4511 #ifndef Tcl_ConvertElement
4512 #define Tcl_ConvertElement \
4513 (tclStubsPtr->tcl_ConvertElement) /* 84 */
4515 #ifndef Tcl_ConvertCountedElement
4516 #define Tcl_ConvertCountedElement \
4517 (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
4519 #ifndef Tcl_CreateAlias
4520 #define Tcl_CreateAlias \
4521 (tclStubsPtr->tcl_CreateAlias) /* 86 */
4523 #ifndef Tcl_CreateAliasObj
4524 #define Tcl_CreateAliasObj \
4525 (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
4527 #ifndef Tcl_CreateChannel
4528 #define Tcl_CreateChannel \
4529 (tclStubsPtr->tcl_CreateChannel) /* 88 */
4531 #ifndef Tcl_CreateChannelHandler
4532 #define Tcl_CreateChannelHandler \
4533 (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
4535 #ifndef Tcl_CreateCloseHandler
4536 #define Tcl_CreateCloseHandler \
4537 (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
4539 #ifndef Tcl_CreateCommand
4540 #define Tcl_CreateCommand \
4541 (tclStubsPtr->tcl_CreateCommand) /* 91 */
4543 #ifndef Tcl_CreateEventSource
4544 #define Tcl_CreateEventSource \
4545 (tclStubsPtr->tcl_CreateEventSource) /* 92 */
4547 #ifndef Tcl_CreateExitHandler
4548 #define Tcl_CreateExitHandler \
4549 (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
4551 #ifndef Tcl_CreateInterp
4552 #define Tcl_CreateInterp \
4553 (tclStubsPtr->tcl_CreateInterp) /* 94 */
4555 #ifndef Tcl_CreateMathFunc
4556 #define Tcl_CreateMathFunc \
4557 (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
4559 #ifndef Tcl_CreateObjCommand
4560 #define Tcl_CreateObjCommand \
4561 (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
4563 #ifndef Tcl_CreateSlave
4564 #define Tcl_CreateSlave \
4565 (tclStubsPtr->tcl_CreateSlave) /* 97 */
4567 #ifndef Tcl_CreateTimerHandler
4568 #define Tcl_CreateTimerHandler \
4569 (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
4571 #ifndef Tcl_CreateTrace
4572 #define Tcl_CreateTrace \
4573 (tclStubsPtr->tcl_CreateTrace) /* 99 */
4575 #ifndef Tcl_DeleteAssocData
4576 #define Tcl_DeleteAssocData \
4577 (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
4579 #ifndef Tcl_DeleteChannelHandler
4580 #define Tcl_DeleteChannelHandler \
4581 (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
4583 #ifndef Tcl_DeleteCloseHandler
4584 #define Tcl_DeleteCloseHandler \
4585 (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
4587 #ifndef Tcl_DeleteCommand
4588 #define Tcl_DeleteCommand \
4589 (tclStubsPtr->tcl_DeleteCommand) /* 103 */
4591 #ifndef Tcl_DeleteCommandFromToken
4592 #define Tcl_DeleteCommandFromToken \
4593 (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
4595 #ifndef Tcl_DeleteEvents
4596 #define Tcl_DeleteEvents \
4597 (tclStubsPtr->tcl_DeleteEvents) /* 105 */
4599 #ifndef Tcl_DeleteEventSource
4600 #define Tcl_DeleteEventSource \
4601 (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
4603 #ifndef Tcl_DeleteExitHandler
4604 #define Tcl_DeleteExitHandler \
4605 (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
4607 #ifndef Tcl_DeleteHashEntry
4608 #define Tcl_DeleteHashEntry \
4609 (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
4611 #ifndef Tcl_DeleteHashTable
4612 #define Tcl_DeleteHashTable \
4613 (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
4615 #ifndef Tcl_DeleteInterp
4616 #define Tcl_DeleteInterp \
4617 (tclStubsPtr->tcl_DeleteInterp) /* 110 */
4619 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
4620 #ifndef Tcl_DetachPids
4621 #define Tcl_DetachPids \
4622 (tclStubsPtr->tcl_DetachPids) /* 111 */
4625 #ifdef __WIN32__ /* WIN */
4626 #ifndef Tcl_DetachPids
4627 #define Tcl_DetachPids \
4628 (tclStubsPtr->tcl_DetachPids) /* 111 */
4631 #ifdef MAC_OSX_TCL /* MACOSX */
4632 #ifndef Tcl_DetachPids
4633 #define Tcl_DetachPids \
4634 (tclStubsPtr->tcl_DetachPids) /* 111 */
4637 #ifndef Tcl_DeleteTimerHandler
4638 #define Tcl_DeleteTimerHandler \
4639 (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
4641 #ifndef Tcl_DeleteTrace
4642 #define Tcl_DeleteTrace \
4643 (tclStubsPtr->tcl_DeleteTrace) /* 113 */
4645 #ifndef Tcl_DontCallWhenDeleted
4646 #define Tcl_DontCallWhenDeleted \
4647 (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
4649 #ifndef Tcl_DoOneEvent
4650 #define Tcl_DoOneEvent \
4651 (tclStubsPtr->tcl_DoOneEvent) /* 115 */
4653 #ifndef Tcl_DoWhenIdle
4654 #define Tcl_DoWhenIdle \
4655 (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
4657 #ifndef Tcl_DStringAppend
4658 #define Tcl_DStringAppend \
4659 (tclStubsPtr->tcl_DStringAppend) /* 117 */
4661 #ifndef Tcl_DStringAppendElement
4662 #define Tcl_DStringAppendElement \
4663 (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
4665 #ifndef Tcl_DStringEndSublist
4666 #define Tcl_DStringEndSublist \
4667 (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
4669 #ifndef Tcl_DStringFree
4670 #define Tcl_DStringFree \
4671 (tclStubsPtr->tcl_DStringFree) /* 120 */
4673 #ifndef Tcl_DStringGetResult
4674 #define Tcl_DStringGetResult \
4675 (tclStubsPtr->tcl_DStringGetResult) /* 121 */
4677 #ifndef Tcl_DStringInit
4678 #define Tcl_DStringInit \
4679 (tclStubsPtr->tcl_DStringInit) /* 122 */
4681 #ifndef Tcl_DStringResult
4682 #define Tcl_DStringResult \
4683 (tclStubsPtr->tcl_DStringResult) /* 123 */
4685 #ifndef Tcl_DStringSetLength
4686 #define Tcl_DStringSetLength \
4687 (tclStubsPtr->tcl_DStringSetLength) /* 124 */
4689 #ifndef Tcl_DStringStartSublist
4690 #define Tcl_DStringStartSublist \
4691 (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
4695 (tclStubsPtr->tcl_Eof) /* 126 */
4698 #define Tcl_ErrnoId \
4699 (tclStubsPtr->tcl_ErrnoId) /* 127 */
4701 #ifndef Tcl_ErrnoMsg
4702 #define Tcl_ErrnoMsg \
4703 (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
4707 (tclStubsPtr->tcl_Eval) /* 129 */
4709 #ifndef Tcl_EvalFile
4710 #define Tcl_EvalFile \
4711 (tclStubsPtr->tcl_EvalFile) /* 130 */
4714 #define Tcl_EvalObj \
4715 (tclStubsPtr->tcl_EvalObj) /* 131 */
4717 #ifndef Tcl_EventuallyFree
4718 #define Tcl_EventuallyFree \
4719 (tclStubsPtr->tcl_EventuallyFree) /* 132 */
4723 (tclStubsPtr->tcl_Exit) /* 133 */
4725 #ifndef Tcl_ExposeCommand
4726 #define Tcl_ExposeCommand \
4727 (tclStubsPtr->tcl_ExposeCommand) /* 134 */
4729 #ifndef Tcl_ExprBoolean
4730 #define Tcl_ExprBoolean \
4731 (tclStubsPtr->tcl_ExprBoolean) /* 135 */
4733 #ifndef Tcl_ExprBooleanObj
4734 #define Tcl_ExprBooleanObj \
4735 (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
4737 #ifndef Tcl_ExprDouble
4738 #define Tcl_ExprDouble \
4739 (tclStubsPtr->tcl_ExprDouble) /* 137 */
4741 #ifndef Tcl_ExprDoubleObj
4742 #define Tcl_ExprDoubleObj \
4743 (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
4745 #ifndef Tcl_ExprLong
4746 #define Tcl_ExprLong \
4747 (tclStubsPtr->tcl_ExprLong) /* 139 */
4749 #ifndef Tcl_ExprLongObj
4750 #define Tcl_ExprLongObj \
4751 (tclStubsPtr->tcl_ExprLongObj) /* 140 */
4754 #define Tcl_ExprObj \
4755 (tclStubsPtr->tcl_ExprObj) /* 141 */
4757 #ifndef Tcl_ExprString
4758 #define Tcl_ExprString \
4759 (tclStubsPtr->tcl_ExprString) /* 142 */
4761 #ifndef Tcl_Finalize
4762 #define Tcl_Finalize \
4763 (tclStubsPtr->tcl_Finalize) /* 143 */
4765 #ifndef Tcl_FindExecutable
4766 #define Tcl_FindExecutable \
4767 (tclStubsPtr->tcl_FindExecutable) /* 144 */
4769 #ifndef Tcl_FirstHashEntry
4770 #define Tcl_FirstHashEntry \
4771 (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
4775 (tclStubsPtr->tcl_Flush) /* 146 */
4777 #ifndef Tcl_FreeResult
4778 #define Tcl_FreeResult \
4779 (tclStubsPtr->tcl_FreeResult) /* 147 */
4781 #ifndef Tcl_GetAlias
4782 #define Tcl_GetAlias \
4783 (tclStubsPtr->tcl_GetAlias) /* 148 */
4785 #ifndef Tcl_GetAliasObj
4786 #define Tcl_GetAliasObj \
4787 (tclStubsPtr->tcl_GetAliasObj) /* 149 */
4789 #ifndef Tcl_GetAssocData
4790 #define Tcl_GetAssocData \
4791 (tclStubsPtr->tcl_GetAssocData) /* 150 */
4793 #ifndef Tcl_GetChannel
4794 #define Tcl_GetChannel \
4795 (tclStubsPtr->tcl_GetChannel) /* 151 */
4797 #ifndef Tcl_GetChannelBufferSize
4798 #define Tcl_GetChannelBufferSize \
4799 (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
4801 #ifndef Tcl_GetChannelHandle
4802 #define Tcl_GetChannelHandle \
4803 (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
4805 #ifndef Tcl_GetChannelInstanceData
4806 #define Tcl_GetChannelInstanceData \
4807 (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
4809 #ifndef Tcl_GetChannelMode
4810 #define Tcl_GetChannelMode \
4811 (tclStubsPtr->tcl_GetChannelMode) /* 155 */
4813 #ifndef Tcl_GetChannelName
4814 #define Tcl_GetChannelName \
4815 (tclStubsPtr->tcl_GetChannelName) /* 156 */
4817 #ifndef Tcl_GetChannelOption
4818 #define Tcl_GetChannelOption \
4819 (tclStubsPtr->tcl_GetChannelOption) /* 157 */
4821 #ifndef Tcl_GetChannelType
4822 #define Tcl_GetChannelType \
4823 (tclStubsPtr->tcl_GetChannelType) /* 158 */
4825 #ifndef Tcl_GetCommandInfo
4826 #define Tcl_GetCommandInfo \
4827 (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
4829 #ifndef Tcl_GetCommandName
4830 #define Tcl_GetCommandName \
4831 (tclStubsPtr->tcl_GetCommandName) /* 160 */
4833 #ifndef Tcl_GetErrno
4834 #define Tcl_GetErrno \
4835 (tclStubsPtr->tcl_GetErrno) /* 161 */
4837 #ifndef Tcl_GetHostName
4838 #define Tcl_GetHostName \
4839 (tclStubsPtr->tcl_GetHostName) /* 162 */
4841 #ifndef Tcl_GetInterpPath
4842 #define Tcl_GetInterpPath \
4843 (tclStubsPtr->tcl_GetInterpPath) /* 163 */
4845 #ifndef Tcl_GetMaster
4846 #define Tcl_GetMaster \
4847 (tclStubsPtr->tcl_GetMaster) /* 164 */
4849 #ifndef Tcl_GetNameOfExecutable
4850 #define Tcl_GetNameOfExecutable \
4851 (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
4853 #ifndef Tcl_GetObjResult
4854 #define Tcl_GetObjResult \
4855 (tclStubsPtr->tcl_GetObjResult) /* 166 */
4857 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
4858 #ifndef Tcl_GetOpenFile
4859 #define Tcl_GetOpenFile \
4860 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
4863 #ifdef MAC_OSX_TCL /* MACOSX */
4864 #ifndef Tcl_GetOpenFile
4865 #define Tcl_GetOpenFile \
4866 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
4869 #ifndef Tcl_GetPathType
4870 #define Tcl_GetPathType \
4871 (tclStubsPtr->tcl_GetPathType) /* 168 */
4875 (tclStubsPtr->tcl_Gets) /* 169 */
4878 #define Tcl_GetsObj \
4879 (tclStubsPtr->tcl_GetsObj) /* 170 */
4881 #ifndef Tcl_GetServiceMode
4882 #define Tcl_GetServiceMode \
4883 (tclStubsPtr->tcl_GetServiceMode) /* 171 */
4885 #ifndef Tcl_GetSlave
4886 #define Tcl_GetSlave \
4887 (tclStubsPtr->tcl_GetSlave) /* 172 */
4889 #ifndef Tcl_GetStdChannel
4890 #define Tcl_GetStdChannel \
4891 (tclStubsPtr->tcl_GetStdChannel) /* 173 */
4893 #ifndef Tcl_GetStringResult
4894 #define Tcl_GetStringResult \
4895 (tclStubsPtr->tcl_GetStringResult) /* 174 */
4898 #define Tcl_GetVar \
4899 (tclStubsPtr->tcl_GetVar) /* 175 */
4902 #define Tcl_GetVar2 \
4903 (tclStubsPtr->tcl_GetVar2) /* 176 */
4905 #ifndef Tcl_GlobalEval
4906 #define Tcl_GlobalEval \
4907 (tclStubsPtr->tcl_GlobalEval) /* 177 */
4909 #ifndef Tcl_GlobalEvalObj
4910 #define Tcl_GlobalEvalObj \
4911 (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
4913 #ifndef Tcl_HideCommand
4914 #define Tcl_HideCommand \
4915 (tclStubsPtr->tcl_HideCommand) /* 179 */
4919 (tclStubsPtr->tcl_Init) /* 180 */
4921 #ifndef Tcl_InitHashTable
4922 #define Tcl_InitHashTable \
4923 (tclStubsPtr->tcl_InitHashTable) /* 181 */
4925 #ifndef Tcl_InputBlocked
4926 #define Tcl_InputBlocked \
4927 (tclStubsPtr->tcl_InputBlocked) /* 182 */
4929 #ifndef Tcl_InputBuffered
4930 #define Tcl_InputBuffered \
4931 (tclStubsPtr->tcl_InputBuffered) /* 183 */
4933 #ifndef Tcl_InterpDeleted
4934 #define Tcl_InterpDeleted \
4935 (tclStubsPtr->tcl_InterpDeleted) /* 184 */
4938 #define Tcl_IsSafe \
4939 (tclStubsPtr->tcl_IsSafe) /* 185 */
4941 #ifndef Tcl_JoinPath
4942 #define Tcl_JoinPath \
4943 (tclStubsPtr->tcl_JoinPath) /* 186 */
4946 #define Tcl_LinkVar \
4947 (tclStubsPtr->tcl_LinkVar) /* 187 */
4949 /* Slot 188 is reserved */
4950 #ifndef Tcl_MakeFileChannel
4951 #define Tcl_MakeFileChannel \
4952 (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
4954 #ifndef Tcl_MakeSafe
4955 #define Tcl_MakeSafe \
4956 (tclStubsPtr->tcl_MakeSafe) /* 190 */
4958 #ifndef Tcl_MakeTcpClientChannel
4959 #define Tcl_MakeTcpClientChannel \
4960 (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
4964 (tclStubsPtr->tcl_Merge) /* 192 */
4966 #ifndef Tcl_NextHashEntry
4967 #define Tcl_NextHashEntry \
4968 (tclStubsPtr->tcl_NextHashEntry) /* 193 */
4970 #ifndef Tcl_NotifyChannel
4971 #define Tcl_NotifyChannel \
4972 (tclStubsPtr->tcl_NotifyChannel) /* 194 */
4974 #ifndef Tcl_ObjGetVar2
4975 #define Tcl_ObjGetVar2 \
4976 (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
4978 #ifndef Tcl_ObjSetVar2
4979 #define Tcl_ObjSetVar2 \
4980 (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
4982 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
4983 #ifndef Tcl_OpenCommandChannel
4984 #define Tcl_OpenCommandChannel \
4985 (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
4988 #ifdef __WIN32__ /* WIN */
4989 #ifndef Tcl_OpenCommandChannel
4990 #define Tcl_OpenCommandChannel \
4991 (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
4994 #ifdef MAC_OSX_TCL /* MACOSX */
4995 #ifndef Tcl_OpenCommandChannel
4996 #define Tcl_OpenCommandChannel \
4997 (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
5000 #ifndef Tcl_OpenFileChannel
5001 #define Tcl_OpenFileChannel \
5002 (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
5004 #ifndef Tcl_OpenTcpClient
5005 #define Tcl_OpenTcpClient \
5006 (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
5008 #ifndef Tcl_OpenTcpServer
5009 #define Tcl_OpenTcpServer \
5010 (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
5012 #ifndef Tcl_Preserve
5013 #define Tcl_Preserve \
5014 (tclStubsPtr->tcl_Preserve) /* 201 */
5016 #ifndef Tcl_PrintDouble
5017 #define Tcl_PrintDouble \
5018 (tclStubsPtr->tcl_PrintDouble) /* 202 */
5021 #define Tcl_PutEnv \
5022 (tclStubsPtr->tcl_PutEnv) /* 203 */
5024 #ifndef Tcl_PosixError
5025 #define Tcl_PosixError \
5026 (tclStubsPtr->tcl_PosixError) /* 204 */
5028 #ifndef Tcl_QueueEvent
5029 #define Tcl_QueueEvent \
5030 (tclStubsPtr->tcl_QueueEvent) /* 205 */
5034 (tclStubsPtr->tcl_Read) /* 206 */
5036 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
5037 #ifndef Tcl_ReapDetachedProcs
5038 #define Tcl_ReapDetachedProcs \
5039 (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
5042 #ifdef __WIN32__ /* WIN */
5043 #ifndef Tcl_ReapDetachedProcs
5044 #define Tcl_ReapDetachedProcs \
5045 (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
5048 #ifdef MAC_OSX_TCL /* MACOSX */
5049 #ifndef Tcl_ReapDetachedProcs
5050 #define Tcl_ReapDetachedProcs \
5051 (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
5054 #ifndef Tcl_RecordAndEval
5055 #define Tcl_RecordAndEval \
5056 (tclStubsPtr->tcl_RecordAndEval) /* 208 */
5058 #ifndef Tcl_RecordAndEvalObj
5059 #define Tcl_RecordAndEvalObj \
5060 (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
5062 #ifndef Tcl_RegisterChannel
5063 #define Tcl_RegisterChannel \
5064 (tclStubsPtr->tcl_RegisterChannel) /* 210 */
5066 #ifndef Tcl_RegisterObjType
5067 #define Tcl_RegisterObjType \
5068 (tclStubsPtr->tcl_RegisterObjType) /* 211 */
5070 #ifndef Tcl_RegExpCompile
5071 #define Tcl_RegExpCompile \
5072 (tclStubsPtr->tcl_RegExpCompile) /* 212 */
5074 #ifndef Tcl_RegExpExec
5075 #define Tcl_RegExpExec \
5076 (tclStubsPtr->tcl_RegExpExec) /* 213 */
5078 #ifndef Tcl_RegExpMatch
5079 #define Tcl_RegExpMatch \
5080 (tclStubsPtr->tcl_RegExpMatch) /* 214 */
5082 #ifndef Tcl_RegExpRange
5083 #define Tcl_RegExpRange \
5084 (tclStubsPtr->tcl_RegExpRange) /* 215 */
5087 #define Tcl_Release \
5088 (tclStubsPtr->tcl_Release) /* 216 */
5090 #ifndef Tcl_ResetResult
5091 #define Tcl_ResetResult \
5092 (tclStubsPtr->tcl_ResetResult) /* 217 */
5094 #ifndef Tcl_ScanElement
5095 #define Tcl_ScanElement \
5096 (tclStubsPtr->tcl_ScanElement) /* 218 */
5098 #ifndef Tcl_ScanCountedElement
5099 #define Tcl_ScanCountedElement \
5100 (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
5103 #define Tcl_SeekOld \
5104 (tclStubsPtr->tcl_SeekOld) /* 220 */
5106 #ifndef Tcl_ServiceAll
5107 #define Tcl_ServiceAll \
5108 (tclStubsPtr->tcl_ServiceAll) /* 221 */
5110 #ifndef Tcl_ServiceEvent
5111 #define Tcl_ServiceEvent \
5112 (tclStubsPtr->tcl_ServiceEvent) /* 222 */
5114 #ifndef Tcl_SetAssocData
5115 #define Tcl_SetAssocData \
5116 (tclStubsPtr->tcl_SetAssocData) /* 223 */
5118 #ifndef Tcl_SetChannelBufferSize
5119 #define Tcl_SetChannelBufferSize \
5120 (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
5122 #ifndef Tcl_SetChannelOption
5123 #define Tcl_SetChannelOption \
5124 (tclStubsPtr->tcl_SetChannelOption) /* 225 */
5126 #ifndef Tcl_SetCommandInfo
5127 #define Tcl_SetCommandInfo \
5128 (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
5130 #ifndef Tcl_SetErrno
5131 #define Tcl_SetErrno \
5132 (tclStubsPtr->tcl_SetErrno) /* 227 */
5134 #ifndef Tcl_SetErrorCode
5135 #define Tcl_SetErrorCode \
5136 (tclStubsPtr->tcl_SetErrorCode) /* 228 */
5138 #ifndef Tcl_SetMaxBlockTime
5139 #define Tcl_SetMaxBlockTime \
5140 (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
5142 #ifndef Tcl_SetPanicProc
5143 #define Tcl_SetPanicProc \
5144 (tclStubsPtr->tcl_SetPanicProc) /* 230 */
5146 #ifndef Tcl_SetRecursionLimit
5147 #define Tcl_SetRecursionLimit \
5148 (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
5150 #ifndef Tcl_SetResult
5151 #define Tcl_SetResult \
5152 (tclStubsPtr->tcl_SetResult) /* 232 */
5154 #ifndef Tcl_SetServiceMode
5155 #define Tcl_SetServiceMode \
5156 (tclStubsPtr->tcl_SetServiceMode) /* 233 */
5158 #ifndef Tcl_SetObjErrorCode
5159 #define Tcl_SetObjErrorCode \
5160 (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
5162 #ifndef Tcl_SetObjResult
5163 #define Tcl_SetObjResult \
5164 (tclStubsPtr->tcl_SetObjResult) /* 235 */
5166 #ifndef Tcl_SetStdChannel
5167 #define Tcl_SetStdChannel \
5168 (tclStubsPtr->tcl_SetStdChannel) /* 236 */
5171 #define Tcl_SetVar \
5172 (tclStubsPtr->tcl_SetVar) /* 237 */
5175 #define Tcl_SetVar2 \
5176 (tclStubsPtr->tcl_SetVar2) /* 238 */
5178 #ifndef Tcl_SignalId
5179 #define Tcl_SignalId \
5180 (tclStubsPtr->tcl_SignalId) /* 239 */
5182 #ifndef Tcl_SignalMsg
5183 #define Tcl_SignalMsg \
5184 (tclStubsPtr->tcl_SignalMsg) /* 240 */
5186 #ifndef Tcl_SourceRCFile
5187 #define Tcl_SourceRCFile \
5188 (tclStubsPtr->tcl_SourceRCFile) /* 241 */
5190 #ifndef Tcl_SplitList
5191 #define Tcl_SplitList \
5192 (tclStubsPtr->tcl_SplitList) /* 242 */
5194 #ifndef Tcl_SplitPath
5195 #define Tcl_SplitPath \
5196 (tclStubsPtr->tcl_SplitPath) /* 243 */
5198 #ifndef Tcl_StaticPackage
5199 #define Tcl_StaticPackage \
5200 (tclStubsPtr->tcl_StaticPackage) /* 244 */
5202 #ifndef Tcl_StringMatch
5203 #define Tcl_StringMatch \
5204 (tclStubsPtr->tcl_StringMatch) /* 245 */
5207 #define Tcl_TellOld \
5208 (tclStubsPtr->tcl_TellOld) /* 246 */
5210 #ifndef Tcl_TraceVar
5211 #define Tcl_TraceVar \
5212 (tclStubsPtr->tcl_TraceVar) /* 247 */
5214 #ifndef Tcl_TraceVar2
5215 #define Tcl_TraceVar2 \
5216 (tclStubsPtr->tcl_TraceVar2) /* 248 */
5218 #ifndef Tcl_TranslateFileName
5219 #define Tcl_TranslateFileName \
5220 (tclStubsPtr->tcl_TranslateFileName) /* 249 */
5223 #define Tcl_Ungets \
5224 (tclStubsPtr->tcl_Ungets) /* 250 */
5226 #ifndef Tcl_UnlinkVar
5227 #define Tcl_UnlinkVar \
5228 (tclStubsPtr->tcl_UnlinkVar) /* 251 */
5230 #ifndef Tcl_UnregisterChannel
5231 #define Tcl_UnregisterChannel \
5232 (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
5234 #ifndef Tcl_UnsetVar
5235 #define Tcl_UnsetVar \
5236 (tclStubsPtr->tcl_UnsetVar) /* 253 */
5238 #ifndef Tcl_UnsetVar2
5239 #define Tcl_UnsetVar2 \
5240 (tclStubsPtr->tcl_UnsetVar2) /* 254 */
5242 #ifndef Tcl_UntraceVar
5243 #define Tcl_UntraceVar \
5244 (tclStubsPtr->tcl_UntraceVar) /* 255 */
5246 #ifndef Tcl_UntraceVar2
5247 #define Tcl_UntraceVar2 \
5248 (tclStubsPtr->tcl_UntraceVar2) /* 256 */
5250 #ifndef Tcl_UpdateLinkedVar
5251 #define Tcl_UpdateLinkedVar \
5252 (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
5256 (tclStubsPtr->tcl_UpVar) /* 258 */
5259 #define Tcl_UpVar2 \
5260 (tclStubsPtr->tcl_UpVar2) /* 259 */
5263 #define Tcl_VarEval \
5264 (tclStubsPtr->tcl_VarEval) /* 260 */
5266 #ifndef Tcl_VarTraceInfo
5267 #define Tcl_VarTraceInfo \
5268 (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
5270 #ifndef Tcl_VarTraceInfo2
5271 #define Tcl_VarTraceInfo2 \
5272 (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
5276 (tclStubsPtr->tcl_Write) /* 263 */
5278 #ifndef Tcl_WrongNumArgs
5279 #define Tcl_WrongNumArgs \
5280 (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
5282 #ifndef Tcl_DumpActiveMemory
5283 #define Tcl_DumpActiveMemory \
5284 (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
5286 #ifndef Tcl_ValidateAllMemory
5287 #define Tcl_ValidateAllMemory \
5288 (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
5290 #ifndef Tcl_AppendResultVA
5291 #define Tcl_AppendResultVA \
5292 (tclStubsPtr->tcl_AppendResultVA) /* 267 */
5294 #ifndef Tcl_AppendStringsToObjVA
5295 #define Tcl_AppendStringsToObjVA \
5296 (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
5298 #ifndef Tcl_HashStats
5299 #define Tcl_HashStats \
5300 (tclStubsPtr->tcl_HashStats) /* 269 */
5302 #ifndef Tcl_ParseVar
5303 #define Tcl_ParseVar \
5304 (tclStubsPtr->tcl_ParseVar) /* 270 */
5306 #ifndef Tcl_PkgPresent
5307 #define Tcl_PkgPresent \
5308 (tclStubsPtr->tcl_PkgPresent) /* 271 */
5310 #ifndef Tcl_PkgPresentEx
5311 #define Tcl_PkgPresentEx \
5312 (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
5314 #ifndef Tcl_PkgProvide
5315 #define Tcl_PkgProvide \
5316 (tclStubsPtr->tcl_PkgProvide) /* 273 */
5318 #ifndef Tcl_PkgRequire
5319 #define Tcl_PkgRequire \
5320 (tclStubsPtr->tcl_PkgRequire) /* 274 */
5322 #ifndef Tcl_SetErrorCodeVA
5323 #define Tcl_SetErrorCodeVA \
5324 (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
5326 #ifndef Tcl_VarEvalVA
5327 #define Tcl_VarEvalVA \
5328 (tclStubsPtr->tcl_VarEvalVA) /* 276 */
5331 #define Tcl_WaitPid \
5332 (tclStubsPtr->tcl_WaitPid) /* 277 */
5335 #define Tcl_PanicVA \
5336 (tclStubsPtr->tcl_PanicVA) /* 278 */
5338 #ifndef Tcl_GetVersion
5339 #define Tcl_GetVersion \
5340 (tclStubsPtr->tcl_GetVersion) /* 279 */
5342 #ifndef Tcl_InitMemory
5343 #define Tcl_InitMemory \
5344 (tclStubsPtr->tcl_InitMemory) /* 280 */
5346 #ifndef Tcl_StackChannel
5347 #define Tcl_StackChannel \
5348 (tclStubsPtr->tcl_StackChannel) /* 281 */
5350 #ifndef Tcl_UnstackChannel
5351 #define Tcl_UnstackChannel \
5352 (tclStubsPtr->tcl_UnstackChannel) /* 282 */
5354 #ifndef Tcl_GetStackedChannel
5355 #define Tcl_GetStackedChannel \
5356 (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
5358 #ifndef Tcl_SetMainLoop
5359 #define Tcl_SetMainLoop \
5360 (tclStubsPtr->tcl_SetMainLoop) /* 284 */
5362 /* Slot 285 is reserved */
5363 #ifndef Tcl_AppendObjToObj
5364 #define Tcl_AppendObjToObj \
5365 (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
5367 #ifndef Tcl_CreateEncoding
5368 #define Tcl_CreateEncoding \
5369 (tclStubsPtr->tcl_CreateEncoding) /* 287 */
5371 #ifndef Tcl_CreateThreadExitHandler
5372 #define Tcl_CreateThreadExitHandler \
5373 (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
5375 #ifndef Tcl_DeleteThreadExitHandler
5376 #define Tcl_DeleteThreadExitHandler \
5377 (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
5379 #ifndef Tcl_DiscardResult
5380 #define Tcl_DiscardResult \
5381 (tclStubsPtr->tcl_DiscardResult) /* 290 */
5384 #define Tcl_EvalEx \
5385 (tclStubsPtr->tcl_EvalEx) /* 291 */
5387 #ifndef Tcl_EvalObjv
5388 #define Tcl_EvalObjv \
5389 (tclStubsPtr->tcl_EvalObjv) /* 292 */
5391 #ifndef Tcl_EvalObjEx
5392 #define Tcl_EvalObjEx \
5393 (tclStubsPtr->tcl_EvalObjEx) /* 293 */
5395 #ifndef Tcl_ExitThread
5396 #define Tcl_ExitThread \
5397 (tclStubsPtr->tcl_ExitThread) /* 294 */
5399 #ifndef Tcl_ExternalToUtf
5400 #define Tcl_ExternalToUtf \
5401 (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
5403 #ifndef Tcl_ExternalToUtfDString
5404 #define Tcl_ExternalToUtfDString \
5405 (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
5407 #ifndef Tcl_FinalizeThread
5408 #define Tcl_FinalizeThread \
5409 (tclStubsPtr->tcl_FinalizeThread) /* 297 */
5411 #ifndef Tcl_FinalizeNotifier
5412 #define Tcl_FinalizeNotifier \
5413 (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
5415 #ifndef Tcl_FreeEncoding
5416 #define Tcl_FreeEncoding \
5417 (tclStubsPtr->tcl_FreeEncoding) /* 299 */
5419 #ifndef Tcl_GetCurrentThread
5420 #define Tcl_GetCurrentThread \
5421 (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
5423 #ifndef Tcl_GetEncoding
5424 #define Tcl_GetEncoding \
5425 (tclStubsPtr->tcl_GetEncoding) /* 301 */
5427 #ifndef Tcl_GetEncodingName
5428 #define Tcl_GetEncodingName \
5429 (tclStubsPtr->tcl_GetEncodingName) /* 302 */
5431 #ifndef Tcl_GetEncodingNames
5432 #define Tcl_GetEncodingNames \
5433 (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
5435 #ifndef Tcl_GetIndexFromObjStruct
5436 #define Tcl_GetIndexFromObjStruct \
5437 (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
5439 #ifndef Tcl_GetThreadData
5440 #define Tcl_GetThreadData \
5441 (tclStubsPtr->tcl_GetThreadData) /* 305 */
5443 #ifndef Tcl_GetVar2Ex
5444 #define Tcl_GetVar2Ex \
5445 (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
5447 #ifndef Tcl_InitNotifier
5448 #define Tcl_InitNotifier \
5449 (tclStubsPtr->tcl_InitNotifier) /* 307 */
5451 #ifndef Tcl_MutexLock
5452 #define Tcl_MutexLock \
5453 (tclStubsPtr->tcl_MutexLock) /* 308 */
5455 #ifndef Tcl_MutexUnlock
5456 #define Tcl_MutexUnlock \
5457 (tclStubsPtr->tcl_MutexUnlock) /* 309 */
5459 #ifndef Tcl_ConditionNotify
5460 #define Tcl_ConditionNotify \
5461 (tclStubsPtr->tcl_ConditionNotify) /* 310 */
5463 #ifndef Tcl_ConditionWait
5464 #define Tcl_ConditionWait \
5465 (tclStubsPtr->tcl_ConditionWait) /* 311 */
5467 #ifndef Tcl_NumUtfChars
5468 #define Tcl_NumUtfChars \
5469 (tclStubsPtr->tcl_NumUtfChars) /* 312 */
5471 #ifndef Tcl_ReadChars
5472 #define Tcl_ReadChars \
5473 (tclStubsPtr->tcl_ReadChars) /* 313 */
5475 #ifndef Tcl_RestoreResult
5476 #define Tcl_RestoreResult \
5477 (tclStubsPtr->tcl_RestoreResult) /* 314 */
5479 #ifndef Tcl_SaveResult
5480 #define Tcl_SaveResult \
5481 (tclStubsPtr->tcl_SaveResult) /* 315 */
5483 #ifndef Tcl_SetSystemEncoding
5484 #define Tcl_SetSystemEncoding \
5485 (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
5487 #ifndef Tcl_SetVar2Ex
5488 #define Tcl_SetVar2Ex \
5489 (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
5491 #ifndef Tcl_ThreadAlert
5492 #define Tcl_ThreadAlert \
5493 (tclStubsPtr->tcl_ThreadAlert) /* 318 */
5495 #ifndef Tcl_ThreadQueueEvent
5496 #define Tcl_ThreadQueueEvent \
5497 (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
5499 #ifndef Tcl_UniCharAtIndex
5500 #define Tcl_UniCharAtIndex \
5501 (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
5503 #ifndef Tcl_UniCharToLower
5504 #define Tcl_UniCharToLower \
5505 (tclStubsPtr->tcl_UniCharToLower) /* 321 */
5507 #ifndef Tcl_UniCharToTitle
5508 #define Tcl_UniCharToTitle \
5509 (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
5511 #ifndef Tcl_UniCharToUpper
5512 #define Tcl_UniCharToUpper \
5513 (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
5515 #ifndef Tcl_UniCharToUtf
5516 #define Tcl_UniCharToUtf \
5517 (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
5519 #ifndef Tcl_UtfAtIndex
5520 #define Tcl_UtfAtIndex \
5521 (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
5523 #ifndef Tcl_UtfCharComplete
5524 #define Tcl_UtfCharComplete \
5525 (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
5527 #ifndef Tcl_UtfBackslash
5528 #define Tcl_UtfBackslash \
5529 (tclStubsPtr->tcl_UtfBackslash) /* 327 */
5531 #ifndef Tcl_UtfFindFirst
5532 #define Tcl_UtfFindFirst \
5533 (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
5535 #ifndef Tcl_UtfFindLast
5536 #define Tcl_UtfFindLast \
5537 (tclStubsPtr->tcl_UtfFindLast) /* 329 */
5540 #define Tcl_UtfNext \
5541 (tclStubsPtr->tcl_UtfNext) /* 330 */
5544 #define Tcl_UtfPrev \
5545 (tclStubsPtr->tcl_UtfPrev) /* 331 */
5547 #ifndef Tcl_UtfToExternal
5548 #define Tcl_UtfToExternal \
5549 (tclStubsPtr->tcl_UtfToExternal) /* 332 */
5551 #ifndef Tcl_UtfToExternalDString
5552 #define Tcl_UtfToExternalDString \
5553 (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
5555 #ifndef Tcl_UtfToLower
5556 #define Tcl_UtfToLower \
5557 (tclStubsPtr->tcl_UtfToLower) /* 334 */
5559 #ifndef Tcl_UtfToTitle
5560 #define Tcl_UtfToTitle \
5561 (tclStubsPtr->tcl_UtfToTitle) /* 335 */
5563 #ifndef Tcl_UtfToUniChar
5564 #define Tcl_UtfToUniChar \
5565 (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
5567 #ifndef Tcl_UtfToUpper
5568 #define Tcl_UtfToUpper \
5569 (tclStubsPtr->tcl_UtfToUpper) /* 337 */
5571 #ifndef Tcl_WriteChars
5572 #define Tcl_WriteChars \
5573 (tclStubsPtr->tcl_WriteChars) /* 338 */
5575 #ifndef Tcl_WriteObj
5576 #define Tcl_WriteObj \
5577 (tclStubsPtr->tcl_WriteObj) /* 339 */
5579 #ifndef Tcl_GetString
5580 #define Tcl_GetString \
5581 (tclStubsPtr->tcl_GetString) /* 340 */
5583 #ifndef Tcl_GetDefaultEncodingDir
5584 #define Tcl_GetDefaultEncodingDir \
5585 (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
5587 #ifndef Tcl_SetDefaultEncodingDir
5588 #define Tcl_SetDefaultEncodingDir \
5589 (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
5591 #ifndef Tcl_AlertNotifier
5592 #define Tcl_AlertNotifier \
5593 (tclStubsPtr->tcl_AlertNotifier) /* 343 */
5595 #ifndef Tcl_ServiceModeHook
5596 #define Tcl_ServiceModeHook \
5597 (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
5599 #ifndef Tcl_UniCharIsAlnum
5600 #define Tcl_UniCharIsAlnum \
5601 (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
5603 #ifndef Tcl_UniCharIsAlpha
5604 #define Tcl_UniCharIsAlpha \
5605 (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
5607 #ifndef Tcl_UniCharIsDigit
5608 #define Tcl_UniCharIsDigit \
5609 (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
5611 #ifndef Tcl_UniCharIsLower
5612 #define Tcl_UniCharIsLower \
5613 (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
5615 #ifndef Tcl_UniCharIsSpace
5616 #define Tcl_UniCharIsSpace \
5617 (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
5619 #ifndef Tcl_UniCharIsUpper
5620 #define Tcl_UniCharIsUpper \
5621 (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
5623 #ifndef Tcl_UniCharIsWordChar
5624 #define Tcl_UniCharIsWordChar \
5625 (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
5627 #ifndef Tcl_UniCharLen
5628 #define Tcl_UniCharLen \
5629 (tclStubsPtr->tcl_UniCharLen) /* 352 */
5631 #ifndef Tcl_UniCharNcmp
5632 #define Tcl_UniCharNcmp \
5633 (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
5635 #ifndef Tcl_UniCharToUtfDString
5636 #define Tcl_UniCharToUtfDString \
5637 (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
5639 #ifndef Tcl_UtfToUniCharDString
5640 #define Tcl_UtfToUniCharDString \
5641 (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
5643 #ifndef Tcl_GetRegExpFromObj
5644 #define Tcl_GetRegExpFromObj \
5645 (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
5647 #ifndef Tcl_EvalTokens
5648 #define Tcl_EvalTokens \
5649 (tclStubsPtr->tcl_EvalTokens) /* 357 */
5651 #ifndef Tcl_FreeParse
5652 #define Tcl_FreeParse \
5653 (tclStubsPtr->tcl_FreeParse) /* 358 */
5655 #ifndef Tcl_LogCommandInfo
5656 #define Tcl_LogCommandInfo \
5657 (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
5659 #ifndef Tcl_ParseBraces
5660 #define Tcl_ParseBraces \
5661 (tclStubsPtr->tcl_ParseBraces) /* 360 */
5663 #ifndef Tcl_ParseCommand
5664 #define Tcl_ParseCommand \
5665 (tclStubsPtr->tcl_ParseCommand) /* 361 */
5667 #ifndef Tcl_ParseExpr
5668 #define Tcl_ParseExpr \
5669 (tclStubsPtr->tcl_ParseExpr) /* 362 */
5671 #ifndef Tcl_ParseQuotedString
5672 #define Tcl_ParseQuotedString \
5673 (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
5675 #ifndef Tcl_ParseVarName
5676 #define Tcl_ParseVarName \
5677 (tclStubsPtr->tcl_ParseVarName) /* 364 */
5680 #define Tcl_GetCwd \
5681 (tclStubsPtr->tcl_GetCwd) /* 365 */
5685 (tclStubsPtr->tcl_Chdir) /* 366 */
5688 #define Tcl_Access \
5689 (tclStubsPtr->tcl_Access) /* 367 */
5693 (tclStubsPtr->tcl_Stat) /* 368 */
5696 #define Tcl_UtfNcmp \
5697 (tclStubsPtr->tcl_UtfNcmp) /* 369 */
5699 #ifndef Tcl_UtfNcasecmp
5700 #define Tcl_UtfNcasecmp \
5701 (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
5703 #ifndef Tcl_StringCaseMatch
5704 #define Tcl_StringCaseMatch \
5705 (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
5707 #ifndef Tcl_UniCharIsControl
5708 #define Tcl_UniCharIsControl \
5709 (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
5711 #ifndef Tcl_UniCharIsGraph
5712 #define Tcl_UniCharIsGraph \
5713 (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
5715 #ifndef Tcl_UniCharIsPrint
5716 #define Tcl_UniCharIsPrint \
5717 (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
5719 #ifndef Tcl_UniCharIsPunct
5720 #define Tcl_UniCharIsPunct \
5721 (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
5723 #ifndef Tcl_RegExpExecObj
5724 #define Tcl_RegExpExecObj \
5725 (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
5727 #ifndef Tcl_RegExpGetInfo
5728 #define Tcl_RegExpGetInfo \
5729 (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
5731 #ifndef Tcl_NewUnicodeObj
5732 #define Tcl_NewUnicodeObj \
5733 (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
5735 #ifndef Tcl_SetUnicodeObj
5736 #define Tcl_SetUnicodeObj \
5737 (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
5739 #ifndef Tcl_GetCharLength
5740 #define Tcl_GetCharLength \
5741 (tclStubsPtr->tcl_GetCharLength) /* 380 */
5743 #ifndef Tcl_GetUniChar
5744 #define Tcl_GetUniChar \
5745 (tclStubsPtr->tcl_GetUniChar) /* 381 */
5747 #ifndef Tcl_GetUnicode
5748 #define Tcl_GetUnicode \
5749 (tclStubsPtr->tcl_GetUnicode) /* 382 */
5751 #ifndef Tcl_GetRange
5752 #define Tcl_GetRange \
5753 (tclStubsPtr->tcl_GetRange) /* 383 */
5755 #ifndef Tcl_AppendUnicodeToObj
5756 #define Tcl_AppendUnicodeToObj \
5757 (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
5759 #ifndef Tcl_RegExpMatchObj
5760 #define Tcl_RegExpMatchObj \
5761 (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
5763 #ifndef Tcl_SetNotifier
5764 #define Tcl_SetNotifier \
5765 (tclStubsPtr->tcl_SetNotifier) /* 386 */
5767 #ifndef Tcl_GetAllocMutex
5768 #define Tcl_GetAllocMutex \
5769 (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
5771 #ifndef Tcl_GetChannelNames
5772 #define Tcl_GetChannelNames \
5773 (tclStubsPtr->tcl_GetChannelNames) /* 388 */
5775 #ifndef Tcl_GetChannelNamesEx
5776 #define Tcl_GetChannelNamesEx \
5777 (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
5779 #ifndef Tcl_ProcObjCmd
5780 #define Tcl_ProcObjCmd \
5781 (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
5783 #ifndef Tcl_ConditionFinalize
5784 #define Tcl_ConditionFinalize \
5785 (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
5787 #ifndef Tcl_MutexFinalize
5788 #define Tcl_MutexFinalize \
5789 (tclStubsPtr->tcl_MutexFinalize) /* 392 */
5791 #ifndef Tcl_CreateThread
5792 #define Tcl_CreateThread \
5793 (tclStubsPtr->tcl_CreateThread) /* 393 */
5796 #define Tcl_ReadRaw \
5797 (tclStubsPtr->tcl_ReadRaw) /* 394 */
5799 #ifndef Tcl_WriteRaw
5800 #define Tcl_WriteRaw \
5801 (tclStubsPtr->tcl_WriteRaw) /* 395 */
5803 #ifndef Tcl_GetTopChannel
5804 #define Tcl_GetTopChannel \
5805 (tclStubsPtr->tcl_GetTopChannel) /* 396 */
5807 #ifndef Tcl_ChannelBuffered
5808 #define Tcl_ChannelBuffered \
5809 (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
5811 #ifndef Tcl_ChannelName
5812 #define Tcl_ChannelName \
5813 (tclStubsPtr->tcl_ChannelName) /* 398 */
5815 #ifndef Tcl_ChannelVersion
5816 #define Tcl_ChannelVersion \
5817 (tclStubsPtr->tcl_ChannelVersion) /* 399 */
5819 #ifndef Tcl_ChannelBlockModeProc
5820 #define Tcl_ChannelBlockModeProc \
5821 (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
5823 #ifndef Tcl_ChannelCloseProc
5824 #define Tcl_ChannelCloseProc \
5825 (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
5827 #ifndef Tcl_ChannelClose2Proc
5828 #define Tcl_ChannelClose2Proc \
5829 (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
5831 #ifndef Tcl_ChannelInputProc
5832 #define Tcl_ChannelInputProc \
5833 (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
5835 #ifndef Tcl_ChannelOutputProc
5836 #define Tcl_ChannelOutputProc \
5837 (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
5839 #ifndef Tcl_ChannelSeekProc
5840 #define Tcl_ChannelSeekProc \
5841 (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
5843 #ifndef Tcl_ChannelSetOptionProc
5844 #define Tcl_ChannelSetOptionProc \
5845 (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
5847 #ifndef Tcl_ChannelGetOptionProc
5848 #define Tcl_ChannelGetOptionProc \
5849 (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
5851 #ifndef Tcl_ChannelWatchProc
5852 #define Tcl_ChannelWatchProc \
5853 (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
5855 #ifndef Tcl_ChannelGetHandleProc
5856 #define Tcl_ChannelGetHandleProc \
5857 (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
5859 #ifndef Tcl_ChannelFlushProc
5860 #define Tcl_ChannelFlushProc \
5861 (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
5863 #ifndef Tcl_ChannelHandlerProc
5864 #define Tcl_ChannelHandlerProc \
5865 (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
5867 #ifndef Tcl_JoinThread
5868 #define Tcl_JoinThread \
5869 (tclStubsPtr->tcl_JoinThread) /* 412 */
5871 #ifndef Tcl_IsChannelShared
5872 #define Tcl_IsChannelShared \
5873 (tclStubsPtr->tcl_IsChannelShared) /* 413 */
5875 #ifndef Tcl_IsChannelRegistered
5876 #define Tcl_IsChannelRegistered \
5877 (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
5879 #ifndef Tcl_CutChannel
5880 #define Tcl_CutChannel \
5881 (tclStubsPtr->tcl_CutChannel) /* 415 */
5883 #ifndef Tcl_SpliceChannel
5884 #define Tcl_SpliceChannel \
5885 (tclStubsPtr->tcl_SpliceChannel) /* 416 */
5887 #ifndef Tcl_ClearChannelHandlers
5888 #define Tcl_ClearChannelHandlers \
5889 (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
5891 #ifndef Tcl_IsChannelExisting
5892 #define Tcl_IsChannelExisting \
5893 (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
5895 #ifndef Tcl_UniCharNcasecmp
5896 #define Tcl_UniCharNcasecmp \
5897 (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
5899 #ifndef Tcl_UniCharCaseMatch
5900 #define Tcl_UniCharCaseMatch \
5901 (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
5903 #ifndef Tcl_FindHashEntry
5904 #define Tcl_FindHashEntry \
5905 (tclStubsPtr->tcl_FindHashEntry) /* 421 */
5907 #ifndef Tcl_CreateHashEntry
5908 #define Tcl_CreateHashEntry \
5909 (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
5911 #ifndef Tcl_InitCustomHashTable
5912 #define Tcl_InitCustomHashTable \
5913 (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
5915 #ifndef Tcl_InitObjHashTable
5916 #define Tcl_InitObjHashTable \
5917 (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
5919 #ifndef Tcl_CommandTraceInfo
5920 #define Tcl_CommandTraceInfo \
5921 (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
5923 #ifndef Tcl_TraceCommand
5924 #define Tcl_TraceCommand \
5925 (tclStubsPtr->tcl_TraceCommand) /* 426 */
5927 #ifndef Tcl_UntraceCommand
5928 #define Tcl_UntraceCommand \
5929 (tclStubsPtr->tcl_UntraceCommand) /* 427 */
5931 #ifndef Tcl_AttemptAlloc
5932 #define Tcl_AttemptAlloc \
5933 (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
5935 #ifndef Tcl_AttemptDbCkalloc
5936 #define Tcl_AttemptDbCkalloc \
5937 (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
5939 #ifndef Tcl_AttemptRealloc
5940 #define Tcl_AttemptRealloc \
5941 (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
5943 #ifndef Tcl_AttemptDbCkrealloc
5944 #define Tcl_AttemptDbCkrealloc \
5945 (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
5947 #ifndef Tcl_AttemptSetObjLength
5948 #define Tcl_AttemptSetObjLength \
5949 (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
5951 #ifndef Tcl_GetChannelThread
5952 #define Tcl_GetChannelThread \
5953 (tclStubsPtr->tcl_GetChannelThread) /* 433 */
5955 #ifndef Tcl_GetUnicodeFromObj
5956 #define Tcl_GetUnicodeFromObj \
5957 (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
5959 #ifndef Tcl_GetMathFuncInfo
5960 #define Tcl_GetMathFuncInfo \
5961 (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
5963 #ifndef Tcl_ListMathFuncs
5964 #define Tcl_ListMathFuncs \
5965 (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
5967 #ifndef Tcl_SubstObj
5968 #define Tcl_SubstObj \
5969 (tclStubsPtr->tcl_SubstObj) /* 437 */
5971 #ifndef Tcl_DetachChannel
5972 #define Tcl_DetachChannel \
5973 (tclStubsPtr->tcl_DetachChannel) /* 438 */
5975 #ifndef Tcl_IsStandardChannel
5976 #define Tcl_IsStandardChannel \
5977 (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
5979 #ifndef Tcl_FSCopyFile
5980 #define Tcl_FSCopyFile \
5981 (tclStubsPtr->tcl_FSCopyFile) /* 440 */
5983 #ifndef Tcl_FSCopyDirectory
5984 #define Tcl_FSCopyDirectory \
5985 (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
5987 #ifndef Tcl_FSCreateDirectory
5988 #define Tcl_FSCreateDirectory \
5989 (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
5991 #ifndef Tcl_FSDeleteFile
5992 #define Tcl_FSDeleteFile \
5993 (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
5995 #ifndef Tcl_FSLoadFile
5996 #define Tcl_FSLoadFile \
5997 (tclStubsPtr->tcl_FSLoadFile) /* 444 */
5999 #ifndef Tcl_FSMatchInDirectory
6000 #define Tcl_FSMatchInDirectory \
6001 (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
6004 #define Tcl_FSLink \
6005 (tclStubsPtr->tcl_FSLink) /* 446 */
6007 #ifndef Tcl_FSRemoveDirectory
6008 #define Tcl_FSRemoveDirectory \
6009 (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
6011 #ifndef Tcl_FSRenameFile
6012 #define Tcl_FSRenameFile \
6013 (tclStubsPtr->tcl_FSRenameFile) /* 448 */
6016 #define Tcl_FSLstat \
6017 (tclStubsPtr->tcl_FSLstat) /* 449 */
6020 #define Tcl_FSUtime \
6021 (tclStubsPtr->tcl_FSUtime) /* 450 */
6023 #ifndef Tcl_FSFileAttrsGet
6024 #define Tcl_FSFileAttrsGet \
6025 (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
6027 #ifndef Tcl_FSFileAttrsSet
6028 #define Tcl_FSFileAttrsSet \
6029 (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
6031 #ifndef Tcl_FSFileAttrStrings
6032 #define Tcl_FSFileAttrStrings \
6033 (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
6036 #define Tcl_FSStat \
6037 (tclStubsPtr->tcl_FSStat) /* 454 */
6039 #ifndef Tcl_FSAccess
6040 #define Tcl_FSAccess \
6041 (tclStubsPtr->tcl_FSAccess) /* 455 */
6043 #ifndef Tcl_FSOpenFileChannel
6044 #define Tcl_FSOpenFileChannel \
6045 (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
6047 #ifndef Tcl_FSGetCwd
6048 #define Tcl_FSGetCwd \
6049 (tclStubsPtr->tcl_FSGetCwd) /* 457 */
6052 #define Tcl_FSChdir \
6053 (tclStubsPtr->tcl_FSChdir) /* 458 */
6055 #ifndef Tcl_FSConvertToPathType
6056 #define Tcl_FSConvertToPathType \
6057 (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
6059 #ifndef Tcl_FSJoinPath
6060 #define Tcl_FSJoinPath \
6061 (tclStubsPtr->tcl_FSJoinPath) /* 460 */
6063 #ifndef Tcl_FSSplitPath
6064 #define Tcl_FSSplitPath \
6065 (tclStubsPtr->tcl_FSSplitPath) /* 461 */
6067 #ifndef Tcl_FSEqualPaths
6068 #define Tcl_FSEqualPaths \
6069 (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
6071 #ifndef Tcl_FSGetNormalizedPath
6072 #define Tcl_FSGetNormalizedPath \
6073 (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
6075 #ifndef Tcl_FSJoinToPath
6076 #define Tcl_FSJoinToPath \
6077 (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
6079 #ifndef Tcl_FSGetInternalRep
6080 #define Tcl_FSGetInternalRep \
6081 (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
6083 #ifndef Tcl_FSGetTranslatedPath
6084 #define Tcl_FSGetTranslatedPath \
6085 (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
6087 #ifndef Tcl_FSEvalFile
6088 #define Tcl_FSEvalFile \
6089 (tclStubsPtr->tcl_FSEvalFile) /* 467 */
6091 #ifndef Tcl_FSNewNativePath
6092 #define Tcl_FSNewNativePath \
6093 (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
6095 #ifndef Tcl_FSGetNativePath
6096 #define Tcl_FSGetNativePath \
6097 (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
6099 #ifndef Tcl_FSFileSystemInfo
6100 #define Tcl_FSFileSystemInfo \
6101 (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
6103 #ifndef Tcl_FSPathSeparator
6104 #define Tcl_FSPathSeparator \
6105 (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
6107 #ifndef Tcl_FSListVolumes
6108 #define Tcl_FSListVolumes \
6109 (tclStubsPtr->tcl_FSListVolumes) /* 472 */
6111 #ifndef Tcl_FSRegister
6112 #define Tcl_FSRegister \
6113 (tclStubsPtr->tcl_FSRegister) /* 473 */
6115 #ifndef Tcl_FSUnregister
6116 #define Tcl_FSUnregister \
6117 (tclStubsPtr->tcl_FSUnregister) /* 474 */
6120 #define Tcl_FSData \
6121 (tclStubsPtr->tcl_FSData) /* 475 */
6123 #ifndef Tcl_FSGetTranslatedStringPath
6124 #define Tcl_FSGetTranslatedStringPath \
6125 (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
6127 #ifndef Tcl_FSGetFileSystemForPath
6128 #define Tcl_FSGetFileSystemForPath \
6129 (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
6131 #ifndef Tcl_FSGetPathType
6132 #define Tcl_FSGetPathType \
6133 (tclStubsPtr->tcl_FSGetPathType) /* 478 */
6135 #ifndef Tcl_OutputBuffered
6136 #define Tcl_OutputBuffered \
6137 (tclStubsPtr->tcl_OutputBuffered) /* 479 */
6139 #ifndef Tcl_FSMountsChanged
6140 #define Tcl_FSMountsChanged \
6141 (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
6143 #ifndef Tcl_EvalTokensStandard
6144 #define Tcl_EvalTokensStandard \
6145 (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
6148 #define Tcl_GetTime \
6149 (tclStubsPtr->tcl_GetTime) /* 482 */
6151 #ifndef Tcl_CreateObjTrace
6152 #define Tcl_CreateObjTrace \
6153 (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
6155 #ifndef Tcl_GetCommandInfoFromToken
6156 #define Tcl_GetCommandInfoFromToken \
6157 (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
6159 #ifndef Tcl_SetCommandInfoFromToken
6160 #define Tcl_SetCommandInfoFromToken \
6161 (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
6163 #ifndef Tcl_DbNewWideIntObj
6164 #define Tcl_DbNewWideIntObj \
6165 (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
6167 #ifndef Tcl_GetWideIntFromObj
6168 #define Tcl_GetWideIntFromObj \
6169 (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
6171 #ifndef Tcl_NewWideIntObj
6172 #define Tcl_NewWideIntObj \
6173 (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
6175 #ifndef Tcl_SetWideIntObj
6176 #define Tcl_SetWideIntObj \
6177 (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
6179 #ifndef Tcl_AllocStatBuf
6180 #define Tcl_AllocStatBuf \
6181 (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
6185 (tclStubsPtr->tcl_Seek) /* 491 */
6189 (tclStubsPtr->tcl_Tell) /* 492 */
6191 #ifndef Tcl_ChannelWideSeekProc
6192 #define Tcl_ChannelWideSeekProc \
6193 (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
6195 #ifndef Tcl_DictObjPut
6196 #define Tcl_DictObjPut \
6197 (tclStubsPtr->tcl_DictObjPut) /* 494 */
6199 #ifndef Tcl_DictObjGet
6200 #define Tcl_DictObjGet \
6201 (tclStubsPtr->tcl_DictObjGet) /* 495 */
6203 #ifndef Tcl_DictObjRemove
6204 #define Tcl_DictObjRemove \
6205 (tclStubsPtr->tcl_DictObjRemove) /* 496 */
6207 #ifndef Tcl_DictObjSize
6208 #define Tcl_DictObjSize \
6209 (tclStubsPtr->tcl_DictObjSize) /* 497 */
6211 #ifndef Tcl_DictObjFirst
6212 #define Tcl_DictObjFirst \
6213 (tclStubsPtr->tcl_DictObjFirst) /* 498 */
6215 #ifndef Tcl_DictObjNext
6216 #define Tcl_DictObjNext \
6217 (tclStubsPtr->tcl_DictObjNext) /* 499 */
6219 #ifndef Tcl_DictObjDone
6220 #define Tcl_DictObjDone \
6221 (tclStubsPtr->tcl_DictObjDone) /* 500 */
6223 #ifndef Tcl_DictObjPutKeyList
6224 #define Tcl_DictObjPutKeyList \
6225 (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
6227 #ifndef Tcl_DictObjRemoveKeyList
6228 #define Tcl_DictObjRemoveKeyList \
6229 (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
6231 #ifndef Tcl_NewDictObj
6232 #define Tcl_NewDictObj \
6233 (tclStubsPtr->tcl_NewDictObj) /* 503 */
6235 #ifndef Tcl_DbNewDictObj
6236 #define Tcl_DbNewDictObj \
6237 (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
6239 #ifndef Tcl_RegisterConfig
6240 #define Tcl_RegisterConfig \
6241 (tclStubsPtr->tcl_RegisterConfig) /* 505 */
6243 #ifndef Tcl_CreateNamespace
6244 #define Tcl_CreateNamespace \
6245 (tclStubsPtr->tcl_CreateNamespace) /* 506 */
6247 #ifndef Tcl_DeleteNamespace
6248 #define Tcl_DeleteNamespace \
6249 (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
6251 #ifndef Tcl_AppendExportList
6252 #define Tcl_AppendExportList \
6253 (tclStubsPtr->tcl_AppendExportList) /* 508 */
6256 #define Tcl_Export \
6257 (tclStubsPtr->tcl_Export) /* 509 */
6260 #define Tcl_Import \
6261 (tclStubsPtr->tcl_Import) /* 510 */
6263 #ifndef Tcl_ForgetImport
6264 #define Tcl_ForgetImport \
6265 (tclStubsPtr->tcl_ForgetImport) /* 511 */
6267 #ifndef Tcl_GetCurrentNamespace
6268 #define Tcl_GetCurrentNamespace \
6269 (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
6271 #ifndef Tcl_GetGlobalNamespace
6272 #define Tcl_GetGlobalNamespace \
6273 (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
6275 #ifndef Tcl_FindNamespace
6276 #define Tcl_FindNamespace \
6277 (tclStubsPtr->tcl_FindNamespace) /* 514 */
6279 #ifndef Tcl_FindCommand
6280 #define Tcl_FindCommand \
6281 (tclStubsPtr->tcl_FindCommand) /* 515 */
6283 #ifndef Tcl_GetCommandFromObj
6284 #define Tcl_GetCommandFromObj \
6285 (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
6287 #ifndef Tcl_GetCommandFullName
6288 #define Tcl_GetCommandFullName \
6289 (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
6291 #ifndef Tcl_FSEvalFileEx
6292 #define Tcl_FSEvalFileEx \
6293 (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
6295 #ifndef Tcl_SetExitProc
6296 #define Tcl_SetExitProc \
6297 (tclStubsPtr->tcl_SetExitProc) /* 519 */
6299 #ifndef Tcl_LimitAddHandler
6300 #define Tcl_LimitAddHandler \
6301 (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
6303 #ifndef Tcl_LimitRemoveHandler
6304 #define Tcl_LimitRemoveHandler \
6305 (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
6307 #ifndef Tcl_LimitReady
6308 #define Tcl_LimitReady \
6309 (tclStubsPtr->tcl_LimitReady) /* 522 */
6311 #ifndef Tcl_LimitCheck
6312 #define Tcl_LimitCheck \
6313 (tclStubsPtr->tcl_LimitCheck) /* 523 */
6315 #ifndef Tcl_LimitExceeded
6316 #define Tcl_LimitExceeded \
6317 (tclStubsPtr->tcl_LimitExceeded) /* 524 */
6319 #ifndef Tcl_LimitSetCommands
6320 #define Tcl_LimitSetCommands \
6321 (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
6323 #ifndef Tcl_LimitSetTime
6324 #define Tcl_LimitSetTime \
6325 (tclStubsPtr->tcl_LimitSetTime) /* 526 */
6327 #ifndef Tcl_LimitSetGranularity
6328 #define Tcl_LimitSetGranularity \
6329 (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
6331 #ifndef Tcl_LimitTypeEnabled
6332 #define Tcl_LimitTypeEnabled \
6333 (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
6335 #ifndef Tcl_LimitTypeExceeded
6336 #define Tcl_LimitTypeExceeded \
6337 (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
6339 #ifndef Tcl_LimitTypeSet
6340 #define Tcl_LimitTypeSet \
6341 (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
6343 #ifndef Tcl_LimitTypeReset
6344 #define Tcl_LimitTypeReset \
6345 (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
6347 #ifndef Tcl_LimitGetCommands
6348 #define Tcl_LimitGetCommands \
6349 (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
6351 #ifndef Tcl_LimitGetTime
6352 #define Tcl_LimitGetTime \
6353 (tclStubsPtr->tcl_LimitGetTime) /* 533 */
6355 #ifndef Tcl_LimitGetGranularity
6356 #define Tcl_LimitGetGranularity \
6357 (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
6359 #ifndef Tcl_SaveInterpState
6360 #define Tcl_SaveInterpState \
6361 (tclStubsPtr->tcl_SaveInterpState) /* 535 */
6363 #ifndef Tcl_RestoreInterpState
6364 #define Tcl_RestoreInterpState \
6365 (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
6367 #ifndef Tcl_DiscardInterpState
6368 #define Tcl_DiscardInterpState \
6369 (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
6371 #ifndef Tcl_SetReturnOptions
6372 #define Tcl_SetReturnOptions \
6373 (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
6375 #ifndef Tcl_GetReturnOptions
6376 #define Tcl_GetReturnOptions \
6377 (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
6379 #ifndef Tcl_IsEnsemble
6380 #define Tcl_IsEnsemble \
6381 (tclStubsPtr->tcl_IsEnsemble) /* 540 */
6383 #ifndef Tcl_CreateEnsemble
6384 #define Tcl_CreateEnsemble \
6385 (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
6387 #ifndef Tcl_FindEnsemble
6388 #define Tcl_FindEnsemble \
6389 (tclStubsPtr->tcl_FindEnsemble) /* 542 */
6391 #ifndef Tcl_SetEnsembleSubcommandList
6392 #define Tcl_SetEnsembleSubcommandList \
6393 (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
6395 #ifndef Tcl_SetEnsembleMappingDict
6396 #define Tcl_SetEnsembleMappingDict \
6397 (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
6399 #ifndef Tcl_SetEnsembleUnknownHandler
6400 #define Tcl_SetEnsembleUnknownHandler \
6401 (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
6403 #ifndef Tcl_SetEnsembleFlags
6404 #define Tcl_SetEnsembleFlags \
6405 (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
6407 #ifndef Tcl_GetEnsembleSubcommandList
6408 #define Tcl_GetEnsembleSubcommandList \
6409 (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
6411 #ifndef Tcl_GetEnsembleMappingDict
6412 #define Tcl_GetEnsembleMappingDict \
6413 (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
6415 #ifndef Tcl_GetEnsembleUnknownHandler
6416 #define Tcl_GetEnsembleUnknownHandler \
6417 (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
6419 #ifndef Tcl_GetEnsembleFlags
6420 #define Tcl_GetEnsembleFlags \
6421 (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
6423 #ifndef Tcl_GetEnsembleNamespace
6424 #define Tcl_GetEnsembleNamespace \
6425 (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
6427 #ifndef Tcl_SetTimeProc
6428 #define Tcl_SetTimeProc \
6429 (tclStubsPtr->tcl_SetTimeProc) /* 552 */
6431 #ifndef Tcl_QueryTimeProc
6432 #define Tcl_QueryTimeProc \
6433 (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
6435 #ifndef Tcl_ChannelThreadActionProc
6436 #define Tcl_ChannelThreadActionProc \
6437 (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
6439 #ifndef Tcl_NewBignumObj
6440 #define Tcl_NewBignumObj \
6441 (tclStubsPtr->tcl_NewBignumObj) /* 555 */
6443 #ifndef Tcl_DbNewBignumObj
6444 #define Tcl_DbNewBignumObj \
6445 (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
6447 #ifndef Tcl_SetBignumObj
6448 #define Tcl_SetBignumObj \
6449 (tclStubsPtr->tcl_SetBignumObj) /* 557 */
6451 #ifndef Tcl_GetBignumFromObj
6452 #define Tcl_GetBignumFromObj \
6453 (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
6455 #ifndef Tcl_TakeBignumFromObj
6456 #define Tcl_TakeBignumFromObj \
6457 (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
6459 #ifndef Tcl_TruncateChannel
6460 #define Tcl_TruncateChannel \
6461 (tclStubsPtr->tcl_TruncateChannel) /* 560 */
6463 #ifndef Tcl_ChannelTruncateProc
6464 #define Tcl_ChannelTruncateProc \
6465 (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
6467 #ifndef Tcl_SetChannelErrorInterp
6468 #define Tcl_SetChannelErrorInterp \
6469 (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
6471 #ifndef Tcl_GetChannelErrorInterp
6472 #define Tcl_GetChannelErrorInterp \
6473 (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
6475 #ifndef Tcl_SetChannelError
6476 #define Tcl_SetChannelError \
6477 (tclStubsPtr->tcl_SetChannelError) /* 564 */
6479 #ifndef Tcl_GetChannelError
6480 #define Tcl_GetChannelError \
6481 (tclStubsPtr->tcl_GetChannelError) /* 565 */
6483 #ifndef Tcl_InitBignumFromDouble
6484 #define Tcl_InitBignumFromDouble \
6485 (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
6487 #ifndef Tcl_GetNamespaceUnknownHandler
6488 #define Tcl_GetNamespaceUnknownHandler \
6489 (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
6491 #ifndef Tcl_SetNamespaceUnknownHandler
6492 #define Tcl_SetNamespaceUnknownHandler \
6493 (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
6495 #ifndef Tcl_GetEncodingFromObj
6496 #define Tcl_GetEncodingFromObj \
6497 (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
6499 #ifndef Tcl_GetEncodingSearchPath
6500 #define Tcl_GetEncodingSearchPath \
6501 (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
6503 #ifndef Tcl_SetEncodingSearchPath
6504 #define Tcl_SetEncodingSearchPath \
6505 (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
6507 #ifndef Tcl_GetEncodingNameFromEnvironment
6508 #define Tcl_GetEncodingNameFromEnvironment \
6509 (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
6511 #ifndef Tcl_PkgRequireProc
6512 #define Tcl_PkgRequireProc \
6513 (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
6515 #ifndef Tcl_AppendObjToErrorInfo
6516 #define Tcl_AppendObjToErrorInfo \
6517 (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
6519 #ifndef Tcl_AppendLimitedToObj
6520 #define Tcl_AppendLimitedToObj \
6521 (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
6524 #define Tcl_Format \
6525 (tclStubsPtr->tcl_Format) /* 576 */
6527 #ifndef Tcl_AppendFormatToObj
6528 #define Tcl_AppendFormatToObj \
6529 (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
6531 #ifndef Tcl_ObjPrintf
6532 #define Tcl_ObjPrintf \
6533 (tclStubsPtr->tcl_ObjPrintf) /* 578 */
6535 #ifndef Tcl_AppendPrintfToObj
6536 #define Tcl_AppendPrintfToObj \
6537 (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
6540 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
6542 /* !END!: Do not edit above this line. */
6544 #undef TCL_STORAGE_CLASS
6545 #define TCL_STORAGE_CLASS DLLIMPORT
6547 #endif /* _TCLDECLS */