tcl.h   tcl.h 
skipping to change at line 54 skipping to change at line 54
* win/makefile.bc (not patchlevel) 2 LOC * win/makefile.bc (not patchlevel) 2 LOC
* README (sections 0 and 2, with and without separator) * README (sections 0 and 2, with and without separator)
* macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC
* macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC
* macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC
* macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC * macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC
* macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC
* win/README (not patchlevel) (sections 0 and 2) * win/README (not patchlevel) (sections 0 and 2)
* unix/tcl.spec (1 LOC patch) * unix/tcl.spec (1 LOC patch)
* tools/tcl.hpj.in (not patchlevel, for windows installer) * tools/tcl.hpj.in (not patchlevel, for windows installer)
* tools/tcl.wse.in (for windows installer)
* tools/tclSplash.bmp (not patchlevel)
*/ */
#define TCL_MAJOR_VERSION 8 #define TCL_MAJOR_VERSION 8
#define TCL_MINOR_VERSION 5 #define TCL_MINOR_VERSION 6
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 18 #define TCL_RELEASE_SERIAL 0
#define TCL_VERSION "8.5"
#define TCL_PATCH_LEVEL "8.5.18"
#define TCL_VERSION "8.6"
#define TCL_PATCH_LEVEL "8.6.0"
/* /*
*------------------------------------------------------------------------- ---
* The following definitions set up the proper options for Windows compiler s. * The following definitions set up the proper options for Windows compiler s.
* We use this method because there is no autoconf equivalent. * We use this method because there is no autoconf equivalent.
*/ */
#ifndef __WIN32__ #ifndef __WIN32__
# if defined(_WIN32) || defined(WIN32) || defined(__MSVCRT__) || defined( __BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) # if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__))
# define __WIN32__ # define __WIN32__
# ifndef WIN32 # ifndef WIN32
# define WIN32 # define WIN32
# endif # endif
# ifndef _WIN32 # ifndef _WIN32
# define _WIN32 # define _WIN32
# endif # endif
# endif # endif
#endif #endif
skipping to change at line 142 skipping to change at line 140
* *
* Also, many extensions need stdio.h, and they've grown accustomed to tcl. h * Also, many extensions need stdio.h, and they've grown accustomed to tcl. h
* providing it for them rather than #include-ing it themselves as they * providing it for them rather than #include-ing it themselves as they
* should, so also for their sake, we keep the #include to be consistent wi th * should, so also for their sake, we keep the #include to be consistent wi th
* prior Tcl releases. * prior Tcl releases.
*/ */
#include <stdio.h> #include <stdio.h>
/* /*
*------------------------------------------------------------------------- ---
* Support for functions with a variable number of arguments. * Support for functions with a variable number of arguments.
* *
* The following TCL_VARARGS* macros are to support old extensions * The following TCL_VARARGS* macros are to support old extensions
* written for older versions of Tcl where the macros permitted * written for older versions of Tcl where the macros permitted
* support for the varargs.h system as well as stdarg.h . * support for the varargs.h system as well as stdarg.h .
* *
* New code should just directly be written to use stdarg.h conventions. * New code should just directly be written to use stdarg.h conventions.
*/ */
#include <stdarg.h> #include <stdarg.h>
#ifndef TCL_NO_DEPRECATED #ifndef TCL_NO_DEPRECATED
# define TCL_VARARGS(type, name) (type name, ...) # define TCL_VARARGS(type, name) (type name, ...)
# define TCL_VARARGS_DEF(type, name) (type name, ...) # define TCL_VARARGS_DEF(type, name) (type name, ...)
# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name ) # define TCL_VARARGS_START(type, name, list) (va_start(list, name), name )
#endif #endif
#if defined(__GNUC__) && (__GNUC__ > 2)
# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a
, b)))
#else
# define TCL_FORMAT_PRINTF(a,b)
#endif
/* /*
* Allow a part of Tcl's API to be explicitly marked as deprecated.
*
* Used to make TIP 330/336 generate moans even if people use the
* compatibility macros. Change your code, guys! We won't support you forev
er.
*/
#if defined(__GNUC__) && ((__GNUC__ >= 4) || ((__GNUC__ == 3) && (__GNUC_MI
NOR__ >= 1)))
# if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC__MINOR__ >= 5))
# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg)
))
# else
# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__))
# endif
#else
# define TCL_DEPRECATED_API(msg) /* nothing portable */
#endif
/*
*-------------------------------------------------------------------------
---
* Macros used to declare a function to be exported by a DLL. Used by Windo ws, * Macros used to declare a function to be exported by a DLL. Used by Windo ws,
* maps to no-op declarations on non-Windows systems. The default build on * maps to no-op declarations on non-Windows systems. The default build on
* windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be
* nonempty. To build a static library, the macro STATIC_BUILD should be * nonempty. To build a static library, the macro STATIC_BUILD should be
* defined. * defined.
* *
* Note: when building static but linking dynamically to MSVCRT we must sti ll * Note: when building static but linking dynamically to MSVCRT we must sti ll
* correctly decorate the C library imported function. Use CRTIMPORT * correctly decorate the C library imported function. Use CRTIMPORT
* for this purpose. _DLL is defined by the compiler when linking to * for this purpose. _DLL is defined by the compiler when linking to
* MSVCRT. * MSVCRT.
*/ */
#if (defined(__WIN32__) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (d efined(__GNUC__) && defined(__declspec)))) #if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) | | defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined (__declspec))))
# define HAVE_DECLSPEC 1 # define HAVE_DECLSPEC 1
# ifdef STATIC_BUILD # ifdef STATIC_BUILD
# define DLLIMPORT # define DLLIMPORT
# define DLLEXPORT # define DLLEXPORT
# ifdef _DLL # ifdef _DLL
# define CRTIMPORT __declspec(dllimport) # define CRTIMPORT __declspec(dllimport)
# else # else
# define CRTIMPORT # define CRTIMPORT
# endif # endif
# else # else
skipping to change at line 224 skipping to change at line 246
# define TCL_STORAGE_CLASS DLLEXPORT # define TCL_STORAGE_CLASS DLLEXPORT
#else #else
# ifdef USE_TCL_STUBS # ifdef USE_TCL_STUBS
# define TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS
# else # else
# define TCL_STORAGE_CLASS DLLIMPORT # define TCL_STORAGE_CLASS DLLIMPORT
# endif # endif
#endif #endif
/* /*
* The following _ANSI_ARGS_ macro is to support old extensions
* written for older versions of Tcl where it permitted support
* for compilers written in the pre-prototype era of C.
*
* New code should use prototypes.
*/
#ifndef TCL_NO_DEPRECATED
# undef _ANSI_ARGS_
# define _ANSI_ARGS_(x) x
#endif
/*
* Definitions that allow this header file to be used either with or withou t * Definitions that allow this header file to be used either with or withou t
* ANSI C features like function prototypes. * ANSI C features.
*/ */
#undef _ANSI_ARGS_
#undef CONST
#ifndef INLINE #ifndef INLINE
# define INLINE # define INLINE
#endif #endif
#ifndef NO_CONST #ifdef NO_CONST
# define CONST const # ifndef const
#else # define const
# define CONST # endif
#endif #endif
#ifndef CONST
#ifndef NO_PROTOTYPES # define CONST const
# define _ANSI_ARGS_(x) x
#else
# define _ANSI_ARGS_(x) ()
#endif #endif
#ifdef USE_NON_CONST #ifdef USE_NON_CONST
# ifdef USE_COMPAT_CONST # ifdef USE_COMPAT_CONST
# error define at most one of USE_NON_CONST and USE_COMPAT_CONST # error define at most one of USE_NON_CONST and USE_COMPAT_CONST
# endif # endif
# define CONST84 # define CONST84
# define CONST84_RETURN # define CONST84_RETURN
#else #else
# ifdef USE_COMPAT_CONST # ifdef USE_COMPAT_CONST
# define CONST84 # define CONST84
# define CONST84_RETURN CONST # define CONST84_RETURN const
# else # else
# define CONST84 CONST # define CONST84 const
# define CONST84_RETURN CONST # define CONST84_RETURN const
# endif # endif
#endif #endif
#ifndef CONST86
# define CONST86 CONST84
#endif
/* /*
* Make sure EXTERN isn't defined elsewhere. * Make sure EXTERN isn't defined elsewhere.
*/ */
#ifdef EXTERN #ifdef EXTERN
# undef EXTERN # undef EXTERN
#endif /* EXTERN */ #endif /* EXTERN */
#ifdef __cplusplus #ifdef __cplusplus
# define EXTERN extern "C" TCL_STORAGE_CLASS # define EXTERN extern "C" TCL_STORAGE_CLASS
#else #else
# define EXTERN extern TCL_STORAGE_CLASS # define EXTERN extern TCL_STORAGE_CLASS
#endif #endif
/* /*
*------------------------------------------------------------------------- ---
* The following code is copied from winnt.h. If we don't replicate it here , * The following code is copied from winnt.h. If we don't replicate it here ,
* then <windows.h> can't be included after tcl.h, since tcl.h also defines * then <windows.h> can't be included after tcl.h, since tcl.h also defines
* VOID. This block is skipped under Cygwin and Mingw. * VOID. This block is skipped under Cygwin and Mingw.
*/ */
#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) #if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID)
#ifndef VOID #ifndef VOID
#define VOID void #define VOID void
typedef char CHAR; typedef char CHAR;
typedef short SHORT; typedef short SHORT;
typedef long LONG; typedef long LONG;
#endif #endif
#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ #endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */
/* /*
* Macro to use instead of "void" for arguments that must have type "void * " * Macro to use instead of "void" for arguments that must have type "void * "
* in ANSI C; maps them to type "char *" in non-ANSI systems. * in ANSI C; maps them to type "char *" in non-ANSI systems.
*/ */
#ifndef __VXWORKS__ #ifndef NO_VOID
# ifndef NO_VOID # define VOID void
# define VOID void #else
# else # define VOID char
# define VOID char
# endif
#endif #endif
/* /*
* Miscellaneous declarations. * Miscellaneous declarations.
*/ */
#ifndef _CLIENTDATA #ifndef _CLIENTDATA
# ifndef NO_VOID # ifndef NO_VOID
typedef void *ClientData; typedef void *ClientData;
# else # else
skipping to change at line 425 skipping to change at line 458
# ifdef __BORLANDC__ # ifdef __BORLANDC__
typedef struct stati64 Tcl_StatBuf; typedef struct stati64 Tcl_StatBuf;
# elif defined(_WIN64) # elif defined(_WIN64)
typedef struct __stat64 Tcl_StatBuf; typedef struct __stat64 Tcl_StatBuf;
# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIM E_T) # elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIM E_T)
typedef struct _stati64 Tcl_StatBuf; typedef struct _stati64 Tcl_StatBuf;
# else # else
typedef struct _stat32i64 Tcl_StatBuf; typedef struct _stat32i64 Tcl_StatBuf;
# endif /* _MSC_VER < 1400 */ # endif /* _MSC_VER < 1400 */
#elif defined(__CYGWIN__) #elif defined(__CYGWIN__)
typedef struct { typedef struct _stat32i64 {
dev_t st_dev; dev_t st_dev;
unsigned short st_ino; unsigned short st_ino;
unsigned short st_mode; unsigned short st_mode;
short st_nlink; short st_nlink;
short st_uid; short st_uid;
short st_gid; short st_gid;
/* Here is a 2-byte gap */ /* Here is a 2-byte gap */
dev_t st_rdev; dev_t st_rdev;
/* Here is a 4-byte gap */ /* Here is a 4-byte gap */
long long st_size; long long st_size;
struct {long tv_sec;} st_atim; struct {long tv_sec;} st_atim;
struct {long tv_sec;} st_mtim; struct {long tv_sec;} st_mtim;
struct {long tv_sec;} st_ctim; struct {long tv_sec;} st_ctim;
/* Here is a 4-byte gap */ /* Here is a 4-byte gap */
} Tcl_StatBuf; } Tcl_StatBuf;
#elif defined(HAVE_STRUCT_STAT64) && !defined(__APPLE__) #elif defined(HAVE_STRUCT_STAT64)
typedef struct stat64 Tcl_StatBuf; typedef struct stat64 Tcl_StatBuf;
#else #else
typedef struct stat Tcl_StatBuf; typedef struct stat Tcl_StatBuf;
#endif #endif
/* /*
*------------------------------------------------------------------------- ---
* Data structures defined opaquely in this module. The definitions below j ust * Data structures defined opaquely in this module. The definitions below j ust
* provide dummy types. A few fields are made visible in Tcl_Interp * provide dummy types. A few fields are made visible in Tcl_Interp
* structures, namely those used for returning a string result from command s. * structures, namely those used for returning a string result from command s.
* Direct access to the result field is discouraged in Tcl 8.0. The * Direct access to the result field is discouraged in Tcl 8.0. The
* interpreter result is either an object or a string, and the two values a re * interpreter result is either an object or a string, and the two values a re
* kept consistent unless some C code sets interp->result directly. * kept consistent unless some C code sets interp->result directly.
* Programmers should use either the function Tcl_GetObjResult() or * Programmers should use either the function Tcl_GetObjResult() or
* Tcl_GetStringResult() to read the interpreter's result. See the SetResul t * Tcl_GetStringResult() to read the interpreter's result. See the SetResul t
* man page for details. * man page for details.
* *
* Note: any change to the Tcl_Interp definition below must be mirrored in the * Note: any change to the Tcl_Interp definition below must be mirrored in the
* "real" definition in tclInt.h. * "real" definition in tclInt.h.
* *
* Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc.
* Instead, they set a Tcl_Obj member in the "real" structure that can be * Instead, they set a Tcl_Obj member in the "real" structure that can be
* accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). * accessed with Tcl_GetObjResult() and Tcl_SetObjResult().
*/ */
typedef struct Tcl_Interp { typedef struct Tcl_Interp
char *result; /* If the last command returned a string #ifndef TCL_NO_DEPRECATED
{
/* TIP #330: Strongly discourage extensions from using the string
* result. */
#ifdef USE_INTERP_RESULT
char *result TCL_DEPRECATED_API("use Tcl_GetResult/Tcl_SetResult");
/* If the last command returned a string
* result, this points to it. */ * result, this points to it. */
void (*freeProc) _ANSI_ARGS_((char *blockPtr)); void (*freeProc) (char *blockPtr)
TCL_DEPRECATED_API("use Tcl_GetResult/Tcl_SetResult");
/* Zero means the string result is staticall y /* Zero means the string result is staticall y
* allocated. TCL_DYNAMIC means it was * allocated. TCL_DYNAMIC means it was
* allocated with ckalloc and should be free d * allocated with ckalloc and should be free d
* with ckfree. Other values give the addres s * with ckfree. Other values give the addres s
* of function to invoke to free the result. * of function to invoke to free the result.
* Tcl_Eval must free it before executing ne xt * Tcl_Eval must free it before executing ne xt
* command. */ * command. */
int errorLine; /* When TCL_ERROR is returned, this gives th #else
e char *resultDontUse; /* Don't use in extensions! */
void (*freeProcDontUse) (char *); /* Don't use in extensions! */
#endif
#ifdef USE_INTERP_ERRORLINE
int errorLine TCL_DEPRECATED_API("use Tcl_GetErrorLine/Tcl_SetErrorLine
");
/* When TCL_ERROR is returned, this gives th
e
* line number within the command where the * line number within the command where the
* error occurred (1 if first line). */ * error occurred (1 if first line). */
} Tcl_Interp; #else
int errorLineDontUse; /* Don't use in extensions! */
#endif
}
#endif /* TCL_NO_DEPRECATED */
Tcl_Interp;
typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
typedef struct Tcl_Channel_ *Tcl_Channel; typedef struct Tcl_Channel_ *Tcl_Channel;
typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
typedef struct Tcl_Command_ *Tcl_Command; typedef struct Tcl_Command_ *Tcl_Command;
typedef struct Tcl_Condition_ *Tcl_Condition; typedef struct Tcl_Condition_ *Tcl_Condition;
typedef struct Tcl_Dict_ *Tcl_Dict; typedef struct Tcl_Dict_ *Tcl_Dict;
typedef struct Tcl_EncodingState_ *Tcl_EncodingState; typedef struct Tcl_EncodingState_ *Tcl_EncodingState;
typedef struct Tcl_Encoding_ *Tcl_Encoding; typedef struct Tcl_Encoding_ *Tcl_Encoding;
typedef struct Tcl_Event Tcl_Event; typedef struct Tcl_Event Tcl_Event;
typedef struct Tcl_InterpState_ *Tcl_InterpState; typedef struct Tcl_InterpState_ *Tcl_InterpState;
typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
typedef struct Tcl_Mutex_ *Tcl_Mutex; typedef struct Tcl_Mutex_ *Tcl_Mutex;
typedef struct Tcl_Pid_ *Tcl_Pid; typedef struct Tcl_Pid_ *Tcl_Pid;
typedef struct Tcl_RegExp_ *Tcl_RegExp; typedef struct Tcl_RegExp_ *Tcl_RegExp;
typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey;
typedef struct Tcl_ThreadId_ *Tcl_ThreadId; typedef struct Tcl_ThreadId_ *Tcl_ThreadId;
typedef struct Tcl_TimerToken_ *Tcl_TimerToken; typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
typedef struct Tcl_Trace_ *Tcl_Trace; typedef struct Tcl_Trace_ *Tcl_Trace;
typedef struct Tcl_Var_ *Tcl_Var; typedef struct Tcl_Var_ *Tcl_Var;
typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream;
/* /*
*------------------------------------------------------------------------- ---
* Definition of the interface to functions implementing threads. A functio n * Definition of the interface to functions implementing threads. A functio n
* following this definition is given to each call of 'Tcl_CreateThread' an d * following this definition is given to each call of 'Tcl_CreateThread' an d
* will be called as the main fuction of the new thread created by that cal l. * will be called as the main fuction of the new thread created by that cal l.
*/ */
#if defined __WIN32__ #if defined __WIN32__
typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData c lientData)); typedef unsigned (__stdcall Tcl_ThreadCreateProc) (ClientData clientData);
#else #else
typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_ThreadCreateProc) (ClientData clientData);
#endif #endif
/* /*
* Threading function return types used for abstracting away platform * Threading function return types used for abstracting away platform
* differences when writing a Tcl_ThreadCreateProc. See the NewThread funct ion * differences when writing a Tcl_ThreadCreateProc. See the NewThread funct ion
* in generic/tclThreadTest.c for it's usage. * in generic/tclThreadTest.c for it's usage.
*/ */
#if defined __WIN32__ #if defined __WIN32__
# define Tcl_ThreadCreateType unsigned __stdcall # define Tcl_ThreadCreateType unsigned __stdcall
skipping to change at line 600 skipping to change at line 654
/* /*
* Picky compilers complain if this typdef doesn't appear before the struct 's * Picky compilers complain if this typdef doesn't appear before the struct 's
* reference in tclDecls.h. * reference in tclDecls.h.
*/ */
typedef Tcl_StatBuf *Tcl_Stat_; typedef Tcl_StatBuf *Tcl_Stat_;
typedef struct stat *Tcl_OldStat_; typedef struct stat *Tcl_OldStat_;
/* /*
*------------------------------------------------------------------------- ---
* When a TCL command returns, the interpreter contains a result from the * When a TCL command returns, the interpreter contains a result from the
* command. Programmers are strongly encouraged to use one of the functions * command. Programmers are strongly encouraged to use one of the functions
* Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's
* result. See the SetResult man page for details. Besides this result, the * result. See the SetResult man page for details. Besides this result, the
* command function returns an integer code, which is one of the following: * command function returns an integer code, which is one of the following:
* *
* TCL_OK Command completed normally; the interpreter's result * TCL_OK Command completed normally; the interpreter's result
* contains the command's result. * contains the command's result.
* TCL_ERROR The command couldn't be completed successfully; the * TCL_ERROR The command couldn't be completed successfully; the
* interpreter's result describes what went wrong. * interpreter's result describes what went wrong.
skipping to change at line 628 skipping to change at line 683
#define TCL_OK 0 #define TCL_OK 0
#define TCL_ERROR 1 #define TCL_ERROR 1
#define TCL_RETURN 2 #define TCL_RETURN 2
#define TCL_BREAK 3 #define TCL_BREAK 3
#define TCL_CONTINUE 4 #define TCL_CONTINUE 4
#define TCL_RESULT_SIZE 200 #define TCL_RESULT_SIZE 200
/* /*
*------------------------------------------------------------------------- ---
* Flags to control what substitutions are performed by Tcl_SubstObj(): * Flags to control what substitutions are performed by Tcl_SubstObj():
*/ */
#define TCL_SUBST_COMMANDS 001 #define TCL_SUBST_COMMANDS 001
#define TCL_SUBST_VARIABLES 002 #define TCL_SUBST_VARIABLES 002
#define TCL_SUBST_BACKSLASHES 004 #define TCL_SUBST_BACKSLASHES 004
#define TCL_SUBST_ALL 007 #define TCL_SUBST_ALL 007
/* /*
* Argument descriptors for math function callbacks in expressions: * Argument descriptors for math function callbacks in expressions:
skipping to change at line 660 skipping to change at line 716
} Tcl_Value; } Tcl_Value;
/* /*
* Forward declaration of Tcl_Obj to prevent an error when the forward * Forward declaration of Tcl_Obj to prevent an error when the forward
* reference to Tcl_Obj is encountered in the function types declared below . * reference to Tcl_Obj is encountered in the function types declared below .
*/ */
struct Tcl_Obj; struct Tcl_Obj;
/* /*
*------------------------------------------------------------------------- ---
* Function types defined by Tcl: * Function types defined by Tcl:
*/ */
typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); typedef int (Tcl_AppInitProc) (Tcl_Interp *interp);
typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_AsyncProc) (ClientData clientData, Tcl_Interp *interp,
Tcl_Interp *interp, int code)); int code);
typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask typedef void (Tcl_ChannelProc) (ClientData clientData, int mask);
)); typedef void (Tcl_CloseProc) (ClientData data);
typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); typedef void (Tcl_CmdDeleteProc) (ClientData clientData);
typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); typedef int (Tcl_CmdProc) (ClientData clientData, Tcl_Interp *interp,
typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, int argc, CONST84 char *argv[]);
Tcl_Interp *interp, int argc, CONST84 char *argv[])); typedef void (Tcl_CmdTraceProc) (ClientData clientData, Tcl_Interp *interp,
typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, int level, char *command, Tcl_CmdProc *proc,
Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, ClientData cmdClientData, int argc, CONST84 char *argv[]);
ClientData cmdClientData, int argc, CONST84 char *argv[])); typedef int (Tcl_CmdObjTraceProc) (ClientData clientData, Tcl_Interp *inter
typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, p,
Tcl_Interp *interp, int level, CONST char *command, int level, const char *command, Tcl_Command commandInfo, int objc,
Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); struct Tcl_Obj *const *objv);
typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData typedef void (Tcl_CmdObjTraceDeleteProc) (ClientData clientData);
)); typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr,
typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, struct Tcl_Obj *dupPtr);
struct Tcl_Obj *dupPtr)); typedef int (Tcl_EncodingConvertProc) (ClientData clientData, const char *s
typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, rc,
CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst,
char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr);
int *dstCharsPtr)); typedef void (Tcl_EncodingFreeProc) (ClientData clientData);
typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); typedef int (Tcl_EventProc) (Tcl_Event *evPtr, int flags);
typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); typedef void (Tcl_EventCheckProc) (ClientData clientData, int flags);
typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_EventDeleteProc) (Tcl_Event *evPtr, ClientData clientData)
int flags)); ;
typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, typedef void (Tcl_EventSetupProc) (ClientData clientData, int flags);
ClientData clientData)); typedef void (Tcl_ExitProc) (ClientData clientData);
typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_FileProc) (ClientData clientData, int mask);
int flags)); typedef void (Tcl_FileFreeProc) (ClientData clientData);
typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_FreeInternalRepProc) (struct Tcl_Obj *objPtr);
typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); typedef void (Tcl_FreeProc) (char *blockPtr);
typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_IdleProc) (ClientData clientData);
typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr) typedef void (Tcl_InterpDeleteProc) (ClientData clientData,
); Tcl_Interp *interp);
typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); typedef int (Tcl_MathProc) (ClientData clientData, Tcl_Interp *interp,
typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); Tcl_Value *args, Tcl_Value *resultPtr);
typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_NamespaceDeleteProc) (ClientData clientData);
Tcl_Interp *interp)); typedef int (Tcl_ObjCmdProc) (ClientData clientData, Tcl_Interp *interp,
typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, int objc, struct Tcl_Obj *const *objv);
Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); typedef int (Tcl_PackageInitProc) (Tcl_Interp *interp);
typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)) typedef int (Tcl_PackageUnloadProc) (Tcl_Interp *interp, int flags);
; typedef void (Tcl_PanicProc) (const char *format, ...);
typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_TcpAcceptProc) (ClientData callbackData, Tcl_Channel chan
Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); ,
typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); char *address, int port);
typedef int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef void (Tcl_TimerProc) (ClientData clientData);
int flags)); typedef int (Tcl_SetFromAnyProc) (Tcl_Interp *interp, struct Tcl_Obj *objPt
typedef void (Tcl_PanicProc) _ANSI_ARGS_((CONST char *format, ...)); r);
typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, typedef void (Tcl_UpdateStringProc) (struct Tcl_Obj *objPtr);
Tcl_Channel chan, char *address, int port)); typedef char * (Tcl_VarTraceProc) (ClientData clientData, Tcl_Interp *inter
typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); p,
typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, int flags);
struct Tcl_Obj *objPtr)); typedef void (Tcl_CommandTraceProc) (ClientData clientData, Tcl_Interp *int
typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); erp,
typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, const char *oldName, const char *newName, int flags);
Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, typedef void (Tcl_CreateFileHandlerProc) (int fd, int mask, Tcl_FileProc *p
int flags)); roc,
typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, ClientData clientData);
Tcl_Interp *interp, CONST char *oldName, CONST char *newName, typedef void (Tcl_DeleteFileHandlerProc) (int fd);
int flags)); typedef void (Tcl_AlertNotifierProc) (ClientData clientData);
typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, typedef void (Tcl_ServiceModeHookProc) (int mode);
Tcl_FileProc *proc, ClientData clientData)); typedef ClientData (Tcl_InitNotifierProc) (void);
typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); typedef void (Tcl_FinalizeNotifierProc) (ClientData clientData);
typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_MainLoopProc) (void);
typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode));
typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID));
typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)
);
typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void));
/* /*
*------------------------------------------------------------------------- ---
* The following structure represents a type of object, which is a particul ar * The following structure represents a type of object, which is a particul ar
* internal representation for an object plus a set of functions that provi de * internal representation for an object plus a set of functions that provi de
* standard operations on objects of that type. * standard operations on objects of that type.
*/ */
typedef struct Tcl_ObjType { typedef struct Tcl_ObjType {
char *name; /* Name of the type, e.g. "int". */ const char *name; /* Name of the type, e.g. "int". */
Tcl_FreeInternalRepProc *freeIntRepProc; Tcl_FreeInternalRepProc *freeIntRepProc;
/* Called to free any storage for the type's /* Called to free any storage for the type's
* internal rep. NULL if the internal rep do es * internal rep. NULL if the internal rep do es
* not need freeing. */ * not need freeing. */
Tcl_DupInternalRepProc *dupIntRepProc; Tcl_DupInternalRepProc *dupIntRepProc;
/* Called to create a new object as a copy o f /* Called to create a new object as a copy o f
* an existing object. */ * an existing object. */
Tcl_UpdateStringProc *updateStringProc; Tcl_UpdateStringProc *updateStringProc;
/* Called to update the string rep from the /* Called to update the string rep from the
* type's internal representation. */ * type's internal representation. */
skipping to change at line 775 skipping to change at line 824
* offset length) but may also contain * offset length) but may also contain
* embedded null characters. The array's * embedded null characters. The array's
* storage is allocated by ckalloc. NULL mea ns * storage is allocated by ckalloc. NULL mea ns
* the string rep is invalid and must be * the string rep is invalid and must be
* regenerated from the internal rep. Clien ts * regenerated from the internal rep. Clien ts
* should use Tcl_GetStringFromObj or * should use Tcl_GetStringFromObj or
* Tcl_GetString to get a pointer to the byt e * Tcl_GetString to get a pointer to the byt e
* array as a readonly value. */ * array as a readonly value. */
int length; /* The number of bytes at *bytes, no t int length; /* The number of bytes at *bytes, no t
* including the terminating null. */ * including the terminating null. */
Tcl_ObjType *typePtr; /* Denotes the object's type. Always const Tcl_ObjType *typePtr; /* Denotes the object's type. Always
* corresponds to the type of the object's * corresponds to the type of the object's
* internal rep. NULL indicates the object h as * internal rep. NULL indicates the object h as
* no internal rep (has no type). */ * no internal rep (has no type). */
union { /* The internal representation: */ union { /* The internal representation: */
long longValue; /* - an long integer value. */ long longValue; /* - an long integer value. */
double doubleValue; /* - a double-precision floating value. */ double doubleValue; /* - a double-precision floating value. */
VOID *otherValuePtr; /* - another, type-specific value. */ void *otherValuePtr; /* - another, type-specific value. */
Tcl_WideInt wideValue; /* - a long long value. */ Tcl_WideInt wideValue; /* - a long long value. */
struct { /* - internal rep as two pointers. */ struct { /* - internal rep as two pointers. */
VOID *ptr1; void *ptr1;
VOID *ptr2; void *ptr2;
} twoPtrValue; } twoPtrValue;
struct { /* - internal rep as a wide int, tightly struct { /* - internal rep as a pointer and a long,
* packed fields. */ * the main use of which is a bignum's
VOID *ptr; /* Pointer to digits. */ * tightly packed fields, where the allo
unsigned long value;/* Alloc, used, and signum packed into a c,
* single word. */ * used and signum flags are packed into
a
* single word with everything else hung
* off the pointer. */
void *ptr;
unsigned long value;
} ptrAndLongRep; } ptrAndLongRep;
} internalRep; } internalRep;
} Tcl_Obj; } Tcl_Obj;
/* /*
* Macros to increment and decrement a Tcl_Obj's reference count, and to te st * Macros to increment and decrement a Tcl_Obj's reference count, and to te st
* whether an object is shared (i.e. has reference count > 1). Note: client s * whether an object is shared (i.e. has reference count > 1). Note: client s
* should use Tcl_DecrRefCount() when they are finished using an object, an d * should use Tcl_DecrRefCount() when they are finished using an object, an d
* should never call TclFreeObj() directly. TclFreeObj() is only defined an d * should never call TclFreeObj() directly. TclFreeObj() is only defined an d
* made public in tcl.h to support Tcl_DecrRefCount's macro definition. * made public in tcl.h to support Tcl_DecrRefCount's macro definition.
*/ */
void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); void Tcl_IncrRefCount(Tcl_Obj *objPtr);
void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); void Tcl_DecrRefCount(Tcl_Obj *objPtr);
int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); int Tcl_IsShared(Tcl_Obj *objPtr);
/* /*
*------------------------------------------------------------------------- ---
* The following structure contains the state needed by Tcl_SaveResult. No- one * The following structure contains the state needed by Tcl_SaveResult. No- one
* outside of Tcl should access any of these fields. This structure is * outside of Tcl should access any of these fields. This structure is
* typically allocated on the stack. * typically allocated on the stack.
*/ */
typedef struct Tcl_SavedResult { typedef struct Tcl_SavedResult {
char *result; char *result;
Tcl_FreeProc *freeProc; Tcl_FreeProc *freeProc;
Tcl_Obj *objResultPtr; Tcl_Obj *objResultPtr;
char *appendResult; char *appendResult;
int appendAvl; int appendAvl;
int appendUsed; int appendUsed;
char resultSpace[TCL_RESULT_SIZE+1]; char resultSpace[TCL_RESULT_SIZE+1];
} Tcl_SavedResult; } Tcl_SavedResult;
/* /*
*------------------------------------------------------------------------- ---
* The following definitions support Tcl's namespace facility. Note: the fi rst * The following definitions support Tcl's namespace facility. Note: the fi rst
* five fields must match exactly the fields in a Namespace structure (see * five fields must match exactly the fields in a Namespace structure (see
* tclInt.h). * tclInt.h).
*/ */
typedef struct Tcl_Namespace { typedef struct Tcl_Namespace {
char *name; /* The namespace's name within its p arent char *name; /* The namespace's name within its p arent
* namespace. This contains no ::'s. The nam e * namespace. This contains no ::'s. The nam e
* of the global namespace is "" although ": :" * of the global namespace is "" although ": :"
* is an synonym. */ * is an synonym. */
skipping to change at line 850 skipping to change at line 903
Tcl_NamespaceDeleteProc *deleteProc; Tcl_NamespaceDeleteProc *deleteProc;
/* Function invoked when deleting the /* Function invoked when deleting the
* namespace to, e.g., free clientData. */ * namespace to, e.g., free clientData. */
struct Tcl_Namespace *parentPtr; struct Tcl_Namespace *parentPtr;
/* Points to the namespace that contains thi s /* Points to the namespace that contains thi s
* one. NULL if this is the global * one. NULL if this is the global
* namespace. */ * namespace. */
} Tcl_Namespace; } Tcl_Namespace;
/* /*
*------------------------------------------------------------------------- ---
* The following structure represents a call frame, or activation record. A * The following structure represents a call frame, or activation record. A
* call frame defines a naming context for a procedure call: its local scop e * call frame defines a naming context for a procedure call: its local scop e
* (for local variables) and its namespace scope (used for non-local * (for local variables) and its namespace scope (used for non-local
* variables; often the global :: namespace). A call frame can also define the * variables; often the global :: namespace). A call frame can also define the
* naming context for a namespace eval or namespace inscope command: the * naming context for a namespace eval or namespace inscope command: the
* namespace in which the command's code should execute. The Tcl_CallFrame * namespace in which the command's code should execute. The Tcl_CallFrame
* structures exist only while procedures or namespace eval/inscope's are * structures exist only while procedures or namespace eval/inscope's are
* being executed, and provide a Tcl call stack. * being executed, and provide a Tcl call stack.
* *
* A call frame is initialized and pushed using Tcl_PushCallFrame and poppe d * A call frame is initialized and pushed using Tcl_PushCallFrame and poppe d
skipping to change at line 875 skipping to change at line 929
* declared as "dummyX". * declared as "dummyX".
* *
* WARNING!! The structure definition must be kept consistent with the * WARNING!! The structure definition must be kept consistent with the
* CallFrame structure in tclInt.h. If you change one, change the other. * CallFrame structure in tclInt.h. If you change one, change the other.
*/ */
typedef struct Tcl_CallFrame { typedef struct Tcl_CallFrame {
Tcl_Namespace *nsPtr; Tcl_Namespace *nsPtr;
int dummy1; int dummy1;
int dummy2; int dummy2;
VOID *dummy3; void *dummy3;
VOID *dummy4; void *dummy4;
VOID *dummy5; void *dummy5;
int dummy6; int dummy6;
VOID *dummy7; void *dummy7;
VOID *dummy8; void *dummy8;
int dummy9; int dummy9;
VOID *dummy10; void *dummy10;
VOID *dummy11; void *dummy11;
VOID *dummy12; void *dummy12;
VOID *dummy13; void *dummy13;
} Tcl_CallFrame; } Tcl_CallFrame;
/* /*
*------------------------------------------------------------------------- ---
* Information about commands that is returned by Tcl_GetCommandInfo and * Information about commands that is returned by Tcl_GetCommandInfo and
* passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based comma nd * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based comma nd
* function while proc is a traditional Tcl argc/argv string-based function . * function while proc is a traditional Tcl argc/argv string-based function .
* Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and
* proc are non-NULL and can be called to execute the command. However, it may * proc are non-NULL and can be called to execute the command. However, it may
* be faster to call one instead of the other. The member isNativeObjectPro c * be faster to call one instead of the other. The member isNativeObjectPro c
* is set to 1 if an object-based function was registered by * is set to 1 if an object-based function was registered by
* Tcl_CreateObjCommand, and to 0 if a string-based function was registered by * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by
* Tcl_CreateCommand. The other function is typically set to a compatibilit y * Tcl_CreateCommand. The other function is typically set to a compatibilit y
* wrapper that does string-to-object or object-to-string argument conversi ons * wrapper that does string-to-object or object-to-string argument conversi ons
skipping to change at line 924 skipping to change at line 979
ClientData deleteData; /* Value to pass to deleteProc (usually the ClientData deleteData; /* Value to pass to deleteProc (usually the
* same as clientData). */ * same as clientData). */
Tcl_Namespace *namespacePtr;/* Points to the namespace that contains th is Tcl_Namespace *namespacePtr;/* Points to the namespace that contains th is
* command. Note that Tcl_SetCmdInfo will no t * command. Note that Tcl_SetCmdInfo will no t
* change a command's namespace; use * change a command's namespace; use
* TclRenameCommand or Tcl_Eval (of 'rename' ) * TclRenameCommand or Tcl_Eval (of 'rename' )
* to do that. */ * to do that. */
} Tcl_CmdInfo; } Tcl_CmdInfo;
/* /*
*------------------------------------------------------------------------- ---
* The structure defined below is used to hold dynamic strings. The only * The structure defined below is used to hold dynamic strings. The only
* fields that clients should use are string and length, accessible via the * fields that clients should use are string and length, accessible via the
* macros Tcl_DStringValue and Tcl_DStringLength. * macros Tcl_DStringValue and Tcl_DStringLength.
*/ */
#define TCL_DSTRING_STATIC_SIZE 200 #define TCL_DSTRING_STATIC_SIZE 200
typedef struct Tcl_DString { typedef struct Tcl_DString {
char *string; /* Points to beginning of string: either char *string; /* Points to beginning of string: either
* staticSpace below or a malloced array. */ * staticSpace below or a malloced array. */
int length; /* Number of non-NULL characters in the int length; /* Number of non-NULL characters in the
skipping to change at line 984 skipping to change at line 1040
#define TCL_DONT_QUOTE_HASH 8 #define TCL_DONT_QUOTE_HASH 8
/* /*
* Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow
* abbreviated strings. * abbreviated strings.
*/ */
#define TCL_EXACT 1 #define TCL_EXACT 1
/* /*
*------------------------------------------------------------------------- ---
* Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv.
* WARNING: these bit choices must not conflict with the bit choices for * WARNING: these bit choices must not conflict with the bit choices for
* evalFlag bits in tclInt.h! * evalFlag bits in tclInt.h!
* *
* Meanings: * Meanings:
* TCL_NO_EVAL: Just record this command * TCL_NO_EVAL: Just record this command
* TCL_EVAL_GLOBAL: Execute script in global namespace * TCL_EVAL_GLOBAL: Execute script in global namespace
* TCL_EVAL_DIRECT: Do not compile this script * TCL_EVAL_DIRECT: Do not compile this script
* TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensemb les * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensemb les
* o Run in iPtr->lookupNsPtr or global namespa ce * o Run in iPtr->lookupNsPtr or global namespa ce
* o Cut out of error traces * o Cut out of error traces
* o Don't reset the flags controlling ensemble * o Don't reset the flags controlling ensemble
* error message rewriting. * error message rewriting.
* TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the
* stack for the script in progress to be
* completely unwound.
* TCL_EVAL_NOERR: Do no exception reporting at all, just return
* as the caller will report.
*/ */
#define TCL_NO_EVAL 0x10000
#define TCL_EVAL_GLOBAL 0x20000 #define TCL_NO_EVAL 0x010000
#define TCL_EVAL_DIRECT 0x40000 #define TCL_EVAL_GLOBAL 0x020000
#define TCL_EVAL_INVOKE 0x80000 #define TCL_EVAL_DIRECT 0x040000
#define TCL_EVAL_INVOKE 0x080000
#define TCL_CANCEL_UNWIND 0x100000
#define TCL_EVAL_NOERR 0x200000
/* /*
* Special freeProc values that may be passed to Tcl_SetResult (see the man * Special freeProc values that may be passed to Tcl_SetResult (see the man
* page for details): * page for details):
*/ */
#define TCL_VOLATILE ((Tcl_FreeProc *) 1) #define TCL_VOLATILE ((Tcl_FreeProc *) 1)
#define TCL_STATIC ((Tcl_FreeProc *) 0) #define TCL_STATIC ((Tcl_FreeProc *) 0)
#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) #define TCL_DYNAMIC ((Tcl_FreeProc *) 3)
/* /*
* Flag values passed to variable-related functions. * Flag values passed to variable-related functions.
* WARNING: these bit choices must not conflict with the bit choice for
* TCL_CANCEL_UNWIND, above.
*/ */
#define TCL_GLOBAL_ONLY 1 #define TCL_GLOBAL_ONLY 1
#define TCL_NAMESPACE_ONLY 2 #define TCL_NAMESPACE_ONLY 2
#define TCL_APPEND_VALUE 4 #define TCL_APPEND_VALUE 4
#define TCL_LIST_ELEMENT 8 #define TCL_LIST_ELEMENT 8
#define TCL_TRACE_READS 0x10 #define TCL_TRACE_READS 0x10
#define TCL_TRACE_WRITES 0x20 #define TCL_TRACE_WRITES 0x20
#define TCL_TRACE_UNSETS 0x40 #define TCL_TRACE_UNSETS 0x40
#define TCL_TRACE_DESTROYED 0x80 #define TCL_TRACE_DESTROYED 0x80
#define TCL_INTERP_DESTROYED 0x100 #define TCL_INTERP_DESTROYED 0x100
#define TCL_LEAVE_ERR_MSG 0x200 #define TCL_LEAVE_ERR_MSG 0x200
#define TCL_TRACE_ARRAY 0x800 #define TCL_TRACE_ARRAY 0x800
#ifndef TCL_REMOVE_OBSOLETE_TRACES #ifndef TCL_REMOVE_OBSOLETE_TRACES
/* Required to support old variable/vdelete/vinfo traces */ /* Required to support old variable/vdelete/vinfo traces. */
#define TCL_TRACE_OLD_STYLE 0x1000 #define TCL_TRACE_OLD_STYLE 0x1000
#endif #endif
/* Indicate the semantics of the result of a trace */ /* Indicate the semantics of the result of a trace. */
#define TCL_TRACE_RESULT_DYNAMIC 0x8000 #define TCL_TRACE_RESULT_DYNAMIC 0x8000
#define TCL_TRACE_RESULT_OBJECT 0x10000 #define TCL_TRACE_RESULT_OBJECT 0x10000
/* /*
* Flag values for ensemble commands. * Flag values for ensemble commands.
*/ */
#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow #define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow
* unambiguous prefixes of commands or to * unambiguous prefixes of commands or to
* require exact matches for command names. */ * require exact matches for command names. */
/* /*
* Flag values passed to command-related functions. * Flag values passed to command-related functions.
*/ */
#define TCL_TRACE_RENAME 0x2000 #define TCL_TRACE_RENAME 0x2000
#define TCL_TRACE_DELETE 0x4000 #define TCL_TRACE_DELETE 0x4000
#define TCL_ALLOW_INLINE_COMPILATION 0x20000 #define TCL_ALLOW_INLINE_COMPILATION 0x20000
/* /*
* The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is n ow * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is n ow
* always parsed whenever the part2 is NULL. (This is to avoid a common err or * always parsed whenever the part2 is NULL. (This is to avoid a common err or
* when converting code to use the new object based APIs and forgetting to * when converting code to use the new object based APIs and forgetting to
* give the flag) * give the flag)
*/ */
skipping to change at line 1082 skipping to change at line 1149
#define TCL_LINK_CHAR 6 #define TCL_LINK_CHAR 6
#define TCL_LINK_UCHAR 7 #define TCL_LINK_UCHAR 7
#define TCL_LINK_SHORT 8 #define TCL_LINK_SHORT 8
#define TCL_LINK_USHORT 9 #define TCL_LINK_USHORT 9
#define TCL_LINK_UINT 10 #define TCL_LINK_UINT 10
#define TCL_LINK_LONG 11 #define TCL_LINK_LONG 11
#define TCL_LINK_ULONG 12 #define TCL_LINK_ULONG 12
#define TCL_LINK_FLOAT 13 #define TCL_LINK_FLOAT 13
#define TCL_LINK_WIDE_UINT 14 #define TCL_LINK_WIDE_UINT 14
#define TCL_LINK_READ_ONLY 0x80 #define TCL_LINK_READ_ONLY 0x80
/* /*
*------------------------------------------------------------------------- ---
* Forward declarations of Tcl_HashTable and related types. * Forward declarations of Tcl_HashTable and related types.
*/ */
typedef struct Tcl_HashKeyType Tcl_HashKeyType; typedef struct Tcl_HashKeyType Tcl_HashKeyType;
typedef struct Tcl_HashTable Tcl_HashTable; typedef struct Tcl_HashTable Tcl_HashTable;
typedef struct Tcl_HashEntry Tcl_HashEntry; typedef struct Tcl_HashEntry Tcl_HashEntry;
typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr typedef unsigned (Tcl_HashKeyProc) (Tcl_HashTable *tablePtr, void *keyPtr);
, typedef int (Tcl_CompareHashKeysProc) (void *keyPtr, Tcl_HashEntry *hPtr);
VOID *keyPtr)); typedef Tcl_HashEntry * (Tcl_AllocHashEntryProc) (Tcl_HashTable *tablePtr,
typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, void *keyPtr);
Tcl_HashEntry *hPtr)); typedef void (Tcl_FreeHashEntryProc) (Tcl_HashEntry *hPtr);
typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_((
Tcl_HashTable *tablePtr, VOID *keyPtr));
typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr));
/* /*
* This flag controls whether the hash table stores the hash of a key, or * This flag controls whether the hash table stores the hash of a key, or
* recalculates it. There should be no reason for turning this flag off as it * recalculates it. There should be no reason for turning this flag off as it
* is completely binary and source compatible unless you directly access th e * is completely binary and source compatible unless you directly access th e
* bucketPtr member of the Tcl_HashTableEntry structure. This member has be en * bucketPtr member of the Tcl_HashTableEntry structure. This member has be en
* removed and the space used to store the hash value. * removed and the space used to store the hash value.
*/ */
#ifndef TCL_HASH_KEY_STORE_HASH #ifndef TCL_HASH_KEY_STORE_HASH
skipping to change at line 1121 skipping to change at line 1186
/* /*
* Structure definition for an entry in a hash table. No-one outside Tcl * Structure definition for an entry in a hash table. No-one outside Tcl
* should access any of these fields directly; use the macros defined below . * should access any of these fields directly; use the macros defined below .
*/ */
struct Tcl_HashEntry { struct Tcl_HashEntry {
Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket , Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket ,
* or NULL for end of chain. */ * or NULL for end of chain. */
Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */
#if TCL_HASH_KEY_STORE_HASH #if TCL_HASH_KEY_STORE_HASH
VOID *hash; /* Hash value, stored as pointer to ensure void *hash; /* Hash value, stored as pointer to ensure
* that the offsets of the fields in this * that the offsets of the fields in this
* structure are not changed. */ * structure are not changed. */
#else #else
Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first
* entry in this entry's chain: used for * entry in this entry's chain: used for
* deleting the entry. */ * deleting the entry. */
#endif #endif
ClientData clientData; /* Application stores something here with ClientData clientData; /* Application stores something here with
* Tcl_SetHashValue. */ * Tcl_SetHashValue. */
union { /* Key has one of these forms: */ union { /* Key has one of these forms: */
char *oneWordValue; /* One-word value for key. */ char *oneWordValue; /* One-word value for key. */
Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ Tcl_Obj *objPtr; /* Tcl_Obj * key value. */
int words[1]; /* Multiple integer words for key. The actua l int words[1]; /* Multiple integer words for key. The actua l
* size will be as large as necessary for th is * size will be as large as necessary for th is
* table's keys. */ * table's keys. */
char string[4]; /* String for key. The actual size will be a s char string[1]; /* String for key. The actual size will be a s
* large as needed to hold the key. */ * large as needed to hold the key. */
} key; /* MUST BE LAST FIELD IN RECORD!! */ } key; /* MUST BE LAST FIELD IN RECORD!! */
}; };
/* /*
* Flags used in Tcl_HashKeyType. * Flags used in Tcl_HashKeyType.
* *
* TCL_HASH_KEY_RANDOMIZE_HASH - * TCL_HASH_KEY_RANDOMIZE_HASH -
* There are some things, pointers for example * There are some things, pointers for example
* which don't hash well because they do not us e * which don't hash well because they do not us e
skipping to change at line 1232 skipping to change at line 1297
* this large. */ * this large. */
int downShift; /* Shift count used in hashing function. int downShift; /* Shift count used in hashing function.
* Designed to use high-order bits of * Designed to use high-order bits of
* randomized keys. */ * randomized keys. */
int mask; /* Mask value used in hashing function. */ int mask; /* Mask value used in hashing function. */
int keyType; /* Type of keys used in this table. It's int keyType; /* Type of keys used in this table. It's
* either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS,
* TCL_ONE_WORD_KEYS, or an integer giving t he * TCL_ONE_WORD_KEYS, or an integer giving t he
* number of ints that is the size of the * number of ints that is the size of the
* key. */ * key. */
Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key);
CONST char *key)); Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key,
Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, int *newPtr);
CONST char *key, int *newPtr)); const Tcl_HashKeyType *typePtr;
Tcl_HashKeyType *typePtr; /* Type of the keys used in the /* Type of the keys used in the
* Tcl_HashTable. */ * Tcl_HashTable. */
}; };
/* /*
* Structure definition for information used to keep track of searches thro ugh * Structure definition for information used to keep track of searches thro ugh
* hash tables: * hash tables:
*/ */
typedef struct Tcl_HashSearch { typedef struct Tcl_HashSearch {
Tcl_HashTable *tablePtr; /* Table being searched. */ Tcl_HashTable *tablePtr; /* Table being searched. */
skipping to change at line 1274 skipping to change at line 1339
* *
* While maintaining binary compatability the above have to be distinct val ues * While maintaining binary compatability the above have to be distinct val ues
* as they are used to differentiate between old versions of the hash table * as they are used to differentiate between old versions of the hash table
* which don't have a typePtr and new ones which do. Once binary compatabil ity * which don't have a typePtr and new ones which do. Once binary compatabil ity
* is discarded in favour of making more wide spread changes TCL_STRING_KEY S * is discarded in favour of making more wide spread changes TCL_STRING_KEY S
* can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be th e * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be th e
* same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is
* accessed from the entry and not the behaviour. * accessed from the entry and not the behaviour.
*/ */
#define TCL_STRING_KEYS 0 #define TCL_STRING_KEYS (0)
#define TCL_ONE_WORD_KEYS 1 #define TCL_ONE_WORD_KEYS (1)
#define TCL_CUSTOM_TYPE_KEYS -2 #define TCL_CUSTOM_TYPE_KEYS (-2)
#define TCL_CUSTOM_PTR_KEYS -1 #define TCL_CUSTOM_PTR_KEYS (-1)
/* /*
* Structure definition for information used to keep track of searches thro ugh * Structure definition for information used to keep track of searches thro ugh
* dictionaries. These fields should not be accessed by code outside * dictionaries. These fields should not be accessed by code outside
* tclDictObj.c * tclDictObj.c
*/ */
typedef struct { typedef struct {
void *next; /* Search position for underlying ha sh void *next; /* Search position for underlying ha sh
* table. */ * table. */
int epoch; /* Epoch marker for dictionary being searche d, int epoch; /* Epoch marker for dictionary being searche d,
* or -1 if search has terminated. */ * or -1 if search has terminated. */
Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. * / Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. * /
} Tcl_DictSearch; } Tcl_DictSearch;
/* /*
*------------------------------------------------------------------------- ---
* Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of
* events: * events:
*/ */
#define TCL_DONT_WAIT (1<<1) #define TCL_DONT_WAIT (1<<1)
#define TCL_WINDOW_EVENTS (1<<2) #define TCL_WINDOW_EVENTS (1<<2)
#define TCL_FILE_EVENTS (1<<3) #define TCL_FILE_EVENTS (1<<3)
#define TCL_TIMER_EVENTS (1<<4) #define TCL_TIMER_EVENTS (1<<4)
#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ #define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */
#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) #define TCL_ALL_EVENTS (~TCL_DONT_WAIT)
skipping to change at line 1346 skipping to change at line 1411
* The following structure keeps is used to hold a time value, either as an * The following structure keeps is used to hold a time value, either as an
* absolute time (the number of seconds from the epoch) or as an elapsed ti me. * absolute time (the number of seconds from the epoch) or as an elapsed ti me.
* On Unix systems the epoch is Midnight Jan 1, 1970 GMT. * On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
*/ */
typedef struct Tcl_Time { typedef struct Tcl_Time {
long sec; /* Seconds. */ long sec; /* Seconds. */
long usec; /* Microseconds. */ long usec; /* Microseconds. */
} Tcl_Time; } Tcl_Time;
typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); typedef void (Tcl_SetTimerProc) (CONST86 Tcl_Time *timePtr);
typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); typedef int (Tcl_WaitForEventProc) (CONST86 Tcl_Time *timePtr);
/* /*
* TIP #233 (Virtualized Time) * TIP #233 (Virtualized Time)
*/ */
typedef void (Tcl_GetTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, typedef void (Tcl_GetTimeProc) (Tcl_Time *timebuf, ClientData clientData)
ClientData clientData)); ;
typedef void (Tcl_ScaleTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, ClientData clientData)
ClientData clientData)); ;
/* /*
*------------------------------------------------------------------------- ---
* Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to
* indicate what sorts of events are of interest: * indicate what sorts of events are of interest:
*/ */
#define TCL_READABLE (1<<1) #define TCL_READABLE (1<<1)
#define TCL_WRITABLE (1<<2) #define TCL_WRITABLE (1<<2)
#define TCL_EXCEPTION (1<<3) #define TCL_EXCEPTION (1<<3)
/* /*
* Flag values to pass to Tcl_OpenCommandChannel to indicate the dispositio n * Flag values to pass to Tcl_OpenCommandChannel to indicate the dispositio n
skipping to change at line 1414 skipping to change at line 1478
* TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc. * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc.
*/ */
#define TCL_CHANNEL_THREAD_INSERT (0) #define TCL_CHANNEL_THREAD_INSERT (0)
#define TCL_CHANNEL_THREAD_REMOVE (1) #define TCL_CHANNEL_THREAD_REMOVE (1)
/* /*
* Typedefs for the various operations in a channel type: * Typedefs for the various operations in a channel type:
*/ */
typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( typedef int (Tcl_DriverBlockModeProc) (ClientData instanceData, int mode
ClientData instanceData, int mode)); );
typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverCloseProc) (ClientData instanceData,
Tcl_Interp *interp)); Tcl_Interp *interp);
typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverClose2Proc) (ClientData instanceData,
Tcl_Interp *interp, int flags)); Tcl_Interp *interp, int flags);
typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverInputProc) (ClientData instanceData, char *buf,
char *buf, int toRead, int *errorCodePtr)); int toRead, int *errorCodePtr);
typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverOutputProc) (ClientData instanceData,
CONST84 char *buf, int toWrite, int *errorCodePtr)); CONST84 char *buf, int toWrite, int *errorCodePtr);
typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverSeekProc) (ClientData instanceData, long offset,
long offset, int mode, int *errorCodePtr)); int mode, int *errorCodePtr);
typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( typedef int (Tcl_DriverSetOptionProc) (ClientData instanceData,
ClientData instanceData, Tcl_Interp *interp, Tcl_Interp *interp, const char *optionName,
CONST char *optionName, CONST char *value)); const char *value);
typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( typedef int (Tcl_DriverGetOptionProc) (ClientData instanceData,
ClientData instanceData, Tcl_Interp *interp, Tcl_Interp *interp, CONST84 char *optionName,
CONST84 char *optionName, Tcl_DString *dsPtr)); Tcl_DString *dsPtr);
typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( typedef void (Tcl_DriverWatchProc) (ClientData instanceData, int mask);
ClientData instanceData, int mask)); typedef int (Tcl_DriverGetHandleProc) (ClientData instanceData,
typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( int direction, ClientData *handlePtr);
ClientData instanceData, int direction, typedef int (Tcl_DriverFlushProc) (ClientData instanceData);
ClientData *handlePtr)); typedef int (Tcl_DriverHandlerProc) (ClientData instanceData,
typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_((ClientData instanceData)) int interestMask);
; typedef Tcl_WideInt (Tcl_DriverWideSeekProc) (ClientData instanceData,
typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( Tcl_WideInt offset, int mode, int *errorCodePtr);
ClientData instanceData, int interestMask));
typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_((
ClientData instanceData, Tcl_WideInt offset,
int mode, int *errorCodePtr));
/* /*
* TIP #218, Channel Thread Actions * TIP #218, Channel Thread Actions
*/ */
typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( typedef void (Tcl_DriverThreadActionProc) (ClientData instanceData,
ClientData instanceData, int action)); int action);
/* /*
* TIP #208, File Truncation (etc.) * TIP #208, File Truncation (etc.)
*/ */
typedef int (Tcl_DriverTruncateProc) _ANSI_ARGS_(( typedef int (Tcl_DriverTruncateProc) (ClientData instanceData,
ClientData instanceData, Tcl_WideInt length)); Tcl_WideInt length);
/* /*
* struct Tcl_ChannelType: * struct Tcl_ChannelType:
* *
* One such structure exists for each type (kind) of channel. It collects * One such structure exists for each type (kind) of channel. It collects
* together in one place all the functions that are part of the specific * together in one place all the functions that are part of the specific
* channel type. * channel type.
* *
* It is recommend that the Tcl_Channel* functions are used to access eleme nts * It is recommend that the Tcl_Channel* functions are used to access eleme nts
* of this structure, instead of direct accessing. * of this structure, instead of direct accessing.
*/ */
typedef struct Tcl_ChannelType { typedef struct Tcl_ChannelType {
char *typeName; /* The name of the channel type in Tcl const char *typeName; /* The name of the channel type in Tcl
* commands. This storage is owned by channe l * commands. This storage is owned by channe l
* type. */ * type. */
Tcl_ChannelTypeVersion version; Tcl_ChannelTypeVersion version;
/* Version of the channel type. */ /* Version of the channel type. */
Tcl_DriverCloseProc *closeProc; Tcl_DriverCloseProc *closeProc;
/* Function to call to close the channel, or /* Function to call to close the channel, or
* TCL_CLOSE2PROC if the close2Proc should b e * TCL_CLOSE2PROC if the close2Proc should b e
* used instead. */ * used instead. */
Tcl_DriverInputProc *inputProc; Tcl_DriverInputProc *inputProc;
/* Function to call for input on channel. */ /* Function to call for input on channel. */
skipping to change at line 1525 skipping to change at line 1585
* NULL, and must be NULL if seekProc is * NULL, and must be NULL if seekProc is
* NULL. */ * NULL. */
/* /*
* Only valid in TCL_CHANNEL_VERSION_4 channels or later. * Only valid in TCL_CHANNEL_VERSION_4 channels or later.
* TIP #218, Channel Thread Actions. * TIP #218, Channel Thread Actions.
*/ */
Tcl_DriverThreadActionProc *threadActionProc; Tcl_DriverThreadActionProc *threadActionProc;
/* Function to call to notify the driver of /* Function to call to notify the driver of
* thread specific activity for a channel. M ay * thread specific activity for a channel. M ay
* be NULL. */ * be NULL. */
/* /*
* Only valid in TCL_CHANNEL_VERSION_5 channels or later. * Only valid in TCL_CHANNEL_VERSION_5 channels or later.
* TIP #208, File Truncation. * TIP #208, File Truncation.
*/ */
Tcl_DriverTruncateProc *truncateProc; Tcl_DriverTruncateProc *truncateProc;
/* Function to call to truncate the underlyi ng /* Function to call to truncate the underlyi ng
* file to a particular length. May be NULL if * file to a particular length. May be NULL if
* the channel does not support truncation. */ * the channel does not support truncation. */
} Tcl_ChannelType; } Tcl_ChannelType;
skipping to change at line 1547 skipping to change at line 1606
* The following flags determine whether the blockModeProc above should set * The following flags determine whether the blockModeProc above should set
* the channel into blocking or nonblocking mode. They are passed as argume nts * the channel into blocking or nonblocking mode. They are passed as argume nts
* to the blockModeProc function in the above structure. * to the blockModeProc function in the above structure.
*/ */
#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. * / #define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. * /
#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking #define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking
* mode. */ * mode. */
/* /*
*------------------------------------------------------------------------- ---
* Enum for different types of file paths. * Enum for different types of file paths.
*/ */
typedef enum Tcl_PathType { typedef enum Tcl_PathType {
TCL_PATH_ABSOLUTE, TCL_PATH_ABSOLUTE,
TCL_PATH_RELATIVE, TCL_PATH_RELATIVE,
TCL_PATH_VOLUME_RELATIVE TCL_PATH_VOLUME_RELATIVE
} Tcl_PathType; } Tcl_PathType;
/* /*
skipping to change at line 1598 skipping to change at line 1658
* Flags for the unload callback function. * Flags for the unload callback function.
*/ */
#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) #define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0)
#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) #define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1)
/* /*
* Typedefs for the various filesystem operations: * Typedefs for the various filesystem operations:
*/ */
typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *bu typedef int (Tcl_FSStatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
f)); typedef int (Tcl_FSAccessProc) (Tcl_Obj *pathPtr, int mode);
typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) (Tcl_Interp *interp,
typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) _ANSI_ARGS_(( Tcl_Obj *pathPtr, int mode, int permissions);
Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions)); typedef int (Tcl_FSMatchInDirectoryProc) (Tcl_Interp *interp, Tcl_Obj *resu
typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp *interp, lt,
Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types);
Tcl_GlobTypeData * types)); typedef Tcl_Obj * (Tcl_FSGetCwdProc) (Tcl_Interp *interp);
typedef Tcl_Obj * (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); typedef int (Tcl_FSChdirProc) (Tcl_Obj *pathPtr);
typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); typedef int (Tcl_FSLstatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSCreateDirectoryProc) (Tcl_Obj *pathPtr);
Tcl_StatBuf *buf)); typedef int (Tcl_FSDeleteFileProc) (Tcl_Obj *pathPtr);
typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); typedef int (Tcl_FSCopyDirectoryProc) (Tcl_Obj *srcPathPtr,
typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, typedef int (Tcl_FSCopyFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr
Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); );
typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, typedef int (Tcl_FSRemoveDirectoryProc) (Tcl_Obj *pathPtr, int recursive,
Tcl_Obj *destPathPtr)); Tcl_Obj **errorPtr);
typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSRenameFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathP
int recursive, Tcl_Obj **errorPtr)); tr);
typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, typedef void (Tcl_FSUnloadFileProc) (Tcl_LoadHandle loadHandle);
Tcl_Obj *destPathPtr)); typedef Tcl_Obj * (Tcl_FSListVolumesProc) (void);
typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)
);
typedef Tcl_Obj * (Tcl_FSListVolumesProc) _ANSI_ARGS_((void));
/* We have to declare the utime structure here. */ /* We have to declare the utime structure here. */
struct utimbuf; struct utimbuf;
typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSUtimeProc) (Tcl_Obj *pathPtr, struct utimbuf *tval);
struct utimbuf *tval)); typedef int (Tcl_FSNormalizePathProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr
typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, ,
Tcl_Obj *pathPtr, int nextCheckpoint)); int nextCheckpoint);
typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_FSFileAttrsGetProc) (Tcl_Interp *interp, int index,
int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
typedef CONST char ** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_(( typedef const char *CONST86 * (Tcl_FSFileAttrStringsProc) (Tcl_Obj *pathPtr
Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); ,
typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj **objPtrRef);
int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); typedef int (Tcl_FSFileAttrsSetProc) (Tcl_Interp *interp, int index,
typedef Tcl_Obj * (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
Tcl_Obj *toPtr, int linkType)); typedef Tcl_Obj * (Tcl_FSLinkProc) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, int linkType);
Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr, typedef int (Tcl_FSLoadFileProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr,
Tcl_FSUnloadFileProc **unloadProcPtr)); Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr);
typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSPathInFilesystemProc) (Tcl_Obj *pathPtr,
ClientData *clientDataPtr)); ClientData *clientDataPtr);
typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) _ANSI_ARGS_(( typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) (Tcl_Obj *pathPtr);
Tcl_Obj *pathPtr)); typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) (Tcl_Obj *pathPtr);
typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) _ANSI_ARGS_(( typedef void (Tcl_FSFreeInternalRepProc) (ClientData clientData);
Tcl_Obj *pathPtr)); typedef ClientData (Tcl_FSDupInternalRepProc) (ClientData clientData);
typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) (ClientData clientData);
)); typedef ClientData (Tcl_FSCreateInternalRepProc) (Tcl_Obj *pathPtr);
typedef ClientData (Tcl_FSDupInternalRepProc) _ANSI_ARGS_((
ClientData clientData));
typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) _ANSI_ARGS_((
ClientData clientData));
typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_((
Tcl_Obj *pathPtr));
typedef struct Tcl_FSVersion_ *Tcl_FSVersion; typedef struct Tcl_FSVersion_ *Tcl_FSVersion;
/* /*
*---------------------------------------------------------------- *------------------------------------------------------------------------- ---
* Data structures related to hooking into the filesystem * Data structures related to hooking into the filesystem
*----------------------------------------------------------------
*/ */
/* /*
* Filesystem version tag. This was introduced in 8.4. * Filesystem version tag. This was introduced in 8.4.
*/ */
#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) #define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1)
/* /*
* struct Tcl_Filesystem: * struct Tcl_Filesystem:
* *
* One such structure exists for each type (kind) of filesystem. It collect s * One such structure exists for each type (kind) of filesystem. It collect s
* together in one place all the functions that are part of the specific * together in one place all the functions that are part of the specific
* filesystem. Tcl always accesses the filesystem through one of these * filesystem. Tcl always accesses the filesystem through one of these
* structures. * structures.
* *
* Not all entries need be non-NULL; any which are NULL are simply ignored. * Not all entries need be non-NULL; any which are NULL are simply ignored.
* However, a complete filesystem should provide all of these functions. Th e * However, a complete filesystem should provide all of these functions. Th e
* explanations in the structure show the importance of each function. * explanations in the structure show the importance of each function.
*/ */
typedef struct Tcl_Filesystem { typedef struct Tcl_Filesystem {
CONST char *typeName; /* The name of the filesystem. */ const char *typeName; /* The name of the filesystem. */
int structureLength; /* Length of this structure, so future binar y int structureLength; /* Length of this structure, so future binar y
* compatibility can be assured. */ * compatibility can be assured. */
Tcl_FSVersion version; /* Version of the filesystem type. */ Tcl_FSVersion version; /* Version of the filesystem type. */
Tcl_FSPathInFilesystemProc *pathInFilesystemProc; Tcl_FSPathInFilesystemProc *pathInFilesystemProc;
/* Function to check whether a path is in th is /* Function to check whether a path is in th is
* filesystem. This is the most important * filesystem. This is the most important
* filesystem function. */ * filesystem function. */
Tcl_FSDupInternalRepProc *dupInternalRepProc; Tcl_FSDupInternalRepProc *dupInternalRepProc;
/* Function to duplicate internal fs rep. Ma y /* Function to duplicate internal fs rep. Ma y
* be NULL (but then fs is less efficient). */ * be NULL (but then fs is less efficient). */
skipping to change at line 1841 skipping to change at line 1890
* matches any of the types given. * matches any of the types given.
* *
* TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link.
* TCL_CREATE_HARD_LINK - Create a hard link. * TCL_CREATE_HARD_LINK - Create a hard link.
*/ */
#define TCL_CREATE_SYMBOLIC_LINK 0x01 #define TCL_CREATE_SYMBOLIC_LINK 0x01
#define TCL_CREATE_HARD_LINK 0x02 #define TCL_CREATE_HARD_LINK 0x02
/* /*
*------------------------------------------------------------------------- ---
* The following structure represents the Notifier functions that you can * The following structure represents the Notifier functions that you can
* override with the Tcl_SetNotifier call. * override with the Tcl_SetNotifier call.
*/ */
typedef struct Tcl_NotifierProcs { typedef struct Tcl_NotifierProcs {
Tcl_SetTimerProc *setTimerProc; Tcl_SetTimerProc *setTimerProc;
Tcl_WaitForEventProc *waitForEventProc; Tcl_WaitForEventProc *waitForEventProc;
Tcl_CreateFileHandlerProc *createFileHandlerProc; Tcl_CreateFileHandlerProc *createFileHandlerProc;
Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; Tcl_DeleteFileHandlerProc *deleteFileHandlerProc;
Tcl_InitNotifierProc *initNotifierProc; Tcl_InitNotifierProc *initNotifierProc;
Tcl_FinalizeNotifierProc *finalizeNotifierProc; Tcl_FinalizeNotifierProc *finalizeNotifierProc;
Tcl_AlertNotifierProc *alertNotifierProc; Tcl_AlertNotifierProc *alertNotifierProc;
Tcl_ServiceModeHookProc *serviceModeHookProc; Tcl_ServiceModeHookProc *serviceModeHookProc;
} Tcl_NotifierProcs; } Tcl_NotifierProcs;
/*
* The following structure represents a user-defined encoding. It collects
* together all the functions that are used by the specific encoding.
*/
typedef struct Tcl_EncodingType {
CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp".
* This name is the unique key for this
* encoding type. */
Tcl_EncodingConvertProc *toUtfProc;
/* Function to convert from external encodin
g
* into UTF-8. */
Tcl_EncodingConvertProc *fromUtfProc;
/* Function to convert from UTF-8 into
* external encoding. */
Tcl_EncodingFreeProc *freeProc;
/* If non-NULL, function to call when this
* encoding is deleted. */
ClientData clientData; /* Arbitrary value associated with encoding
* type. Passed to conversion functions. */
int nullSize; /* Number of zero bytes that signify
* end-of-string in this encoding. This numb
er
* is used to determine the source string
* length when the srcLen argument is
* negative. Must be 1 or 2. */
} Tcl_EncodingType;
/*
* The following definitions are used as values for the conversion control
* flags argument when converting text from one character set to another:
*
* TCL_ENCODING_START - Signifies that the source buffer is
the first
* block in a (potentially multi-block) input
* stream. Tells the conversion function to res
et
* to an initial state and perform any
* initialization that needs to occur before th
e
* first byte is converted. If the source buffe
r
* contains the entire input stream to be
* converted, this flag should be set.
* TCL_ENCODING_END - Signifies that the source buffer is the last
* block in a (potentially multi-block) input
* stream. Tells the conversion routine to
* perform any finalization that needs to occur
* after the last byte is converted and then to
* reset to an initial state. If the source
* buffer contains the entire input stream to b
e
* converted, this flag should be set.
* TCL_ENCODING_STOPONERROR - If set, then the converter will return
* immediately upon encountering an invalid byt
e
* sequence or a source character that has no
* mapping in the target encoding. If clear, th
en
* the converter will skip the problem,
* substituting one or more "close" characters
in
* the destination buffer and then continue to
* convert the source.
*/
#define TCL_ENCODING_START 0x01
#define TCL_ENCODING_END 0x02
#define TCL_ENCODING_STOPONERROR 0x04
/* /*
*------------------------------------------------------------------------- ---
* The following data structures and declarations are for the new Tcl parse r. * The following data structures and declarations are for the new Tcl parse r.
*/ *
/*
* For each word of a command, and for each piece of a word such as a varia ble * For each word of a command, and for each piece of a word such as a varia ble
* reference, one of the following structures is created to describe the * reference, one of the following structures is created to describe the
* token. * token.
*/ */
typedef struct Tcl_Token { typedef struct Tcl_Token {
int type; /* Type of token, such as TCL_TOKEN_WORD; se e int type; /* Type of token, such as TCL_TOKEN_WORD; se e
* below for valid types. */ * below for valid types. */
CONST char *start; /* First character in token. */ const char *start; /* First character in token. */
int size; /* Number of bytes in token. */ int size; /* Number of bytes in token. */
int numComponents; /* If this token is composed of other tokens , int numComponents; /* If this token is composed of other tokens ,
* this field tells how many of them there a re * this field tells how many of them there a re
* (including components of components, etc. ). * (including components of components, etc. ).
* The component tokens immediately follow * The component tokens immediately follow
* this one. */ * this one. */
} Tcl_Token; } Tcl_Token;
/* /*
* Type values defined for Tcl_Token structures. These values are defined a s * Type values defined for Tcl_Token structures. These values are defined a s
skipping to change at line 2044 skipping to change at line 2031
#define TCL_PARSE_BAD_NUMBER 9 #define TCL_PARSE_BAD_NUMBER 9
/* /*
* A structure of the following type is filled in by Tcl_ParseCommand. It * A structure of the following type is filled in by Tcl_ParseCommand. It
* describes a single command parsed from an input string. * describes a single command parsed from an input string.
*/ */
#define NUM_STATIC_TOKENS 20 #define NUM_STATIC_TOKENS 20
typedef struct Tcl_Parse { typedef struct Tcl_Parse {
CONST char *commentStart; /* Pointer to # that begins the first of one const char *commentStart; /* Pointer to # that begins the first of one
* or more comments preceding the command. * / * or more comments preceding the command. * /
int commentSize; /* Number of bytes in comments (up through int commentSize; /* Number of bytes in comments (up through
* newline character that terminates the las t * newline character that terminates the las t
* comment). If there were no comments, this * comment). If there were no comments, this
* field is 0. */ * field is 0. */
CONST char *commandStart; /* First character in first word of const char *commandStart; /* First character in first word of
* command. */ * command. */
int commandSize; /* Number of bytes in command, including fir st int commandSize; /* Number of bytes in command, including fir st
* character of first word, up through the * character of first word, up through the
* terminating newline, close bracket, or * terminating newline, close bracket, or
* semicolon. */ * semicolon. */
int numWords; /* Total number of words in command. May be int numWords; /* Total number of words in command. May be
* 0. */ * 0. */
Tcl_Token *tokenPtr; /* Pointer to first token representing the Tcl_Token *tokenPtr; /* Pointer to first token representing the
* words of the command. Initially points to * words of the command. Initially points to
* staticTokens, but may change to point to * staticTokens, but may change to point to
skipping to change at line 2074 skipping to change at line 2061
int tokensAvailable; /* Total number of tokens available at int tokensAvailable; /* Total number of tokens available at
* *tokenPtr. */ * *tokenPtr. */
int errorType; /* One of the parsing error types defined int errorType; /* One of the parsing error types defined
* above. */ * above. */
/* /*
* The fields below are intended only for the private use of the parser . * The fields below are intended only for the private use of the parser .
* They should not be used by functions that invoke Tcl_ParseCommand. * They should not be used by functions that invoke Tcl_ParseCommand.
*/ */
CONST char *string; /* The original command string passe d to const char *string; /* The original command string passe d to
* Tcl_ParseCommand. */ * Tcl_ParseCommand. */
CONST char *end; /* Points to the character just after the la st const char *end; /* Points to the character just after the la st
* one in the command string. */ * one in the command string. */
Tcl_Interp *interp; /* Interpreter to use for error repo rting, or Tcl_Interp *interp; /* Interpreter to use for error repo rting, or
* NULL. */ * NULL. */
CONST char *term; /* Points to character in string that const char *term; /* Points to character in string that
* terminated most recent token. Filled in b y * terminated most recent token. Filled in b y
* ParseTokens. If an error occurs, points t o * ParseTokens. If an error occurs, points t o
* beginning of region where the error * beginning of region where the error
* occurred (e.g. the open brace if the clos e * occurred (e.g. the open brace if the clos e
* brace is missing). */ * brace is missing). */
int incomplete; /* This field is set to 1 by Tcl_ParseComman d int incomplete; /* This field is set to 1 by Tcl_ParseComman d
* if the command appears to be incomplete. * if the command appears to be incomplete.
* This information is used by * This information is used by
* Tcl_CommandComplete. */ * Tcl_CommandComplete. */
Tcl_Token staticTokens[NUM_STATIC_TOKENS]; Tcl_Token staticTokens[NUM_STATIC_TOKENS];
/* Initial space for tokens for command. Thi s /* Initial space for tokens for command. Thi s
* space should be large enough to accommoda te * space should be large enough to accommoda te
* most commands; dynamic space is allocated * most commands; dynamic space is allocated
* for very large commands that don't fit * for very large commands that don't fit
* here. */ * here. */
} Tcl_Parse; } Tcl_Parse;
/*
*-------------------------------------------------------------------------
---
* The following structure represents a user-defined encoding. It collects
* together all the functions that are used by the specific encoding.
*/
typedef struct Tcl_EncodingType {
const char *encodingName; /* The name of the encoding, e.g. "euc-jp".
* This name is the unique key for this
* encoding type. */
Tcl_EncodingConvertProc *toUtfProc;
/* Function to convert from external encodin
g
* into UTF-8. */
Tcl_EncodingConvertProc *fromUtfProc;
/* Function to convert from UTF-8 into
* external encoding. */
Tcl_EncodingFreeProc *freeProc;
/* If non-NULL, function to call when this
* encoding is deleted. */
ClientData clientData; /* Arbitrary value associated with encoding
* type. Passed to conversion functions. */
int nullSize; /* Number of zero bytes that signify
* end-of-string in this encoding. This numb
er
* is used to determine the source string
* length when the srcLen argument is
* negative. Must be 1 or 2. */
} Tcl_EncodingType;
/*
* The following definitions are used as values for the conversion control
* flags argument when converting text from one character set to another:
*
* TCL_ENCODING_START - Signifies that the source buffer is
the first
* block in a (potentially multi-block) input
* stream. Tells the conversion function to res
et
* to an initial state and perform any
* initialization that needs to occur before th
e
* first byte is converted. If the source buffe
r
* contains the entire input stream to be
* converted, this flag should be set.
* TCL_ENCODING_END - Signifies that the source buffer is the last
* block in a (potentially multi-block) input
* stream. Tells the conversion routine to
* perform any finalization that needs to occur
* after the last byte is converted and then to
* reset to an initial state. If the source
* buffer contains the entire input stream to b
e
* converted, this flag should be set.
* TCL_ENCODING_STOPONERROR - If set, then the converter will return
* immediately upon encountering an invalid byt
e
* sequence or a source character that has no
* mapping in the target encoding. If clear, th
en
* the converter will skip the problem,
* substituting one or more "close" characters
in
* the destination buffer and then continue to
* convert the source.
*/
#define TCL_ENCODING_START 0x01
#define TCL_ENCODING_END 0x02
#define TCL_ENCODING_STOPONERROR 0x04
/* /*
* The following definitions are the error codes returned by the conversion * The following definitions are the error codes returned by the conversion
* routines: * routines:
* *
* TCL_OK - All characters were converted. * TCL_OK - All characters were converted.
* TCL_CONVERT_NOSPACE - The output buffer would not have been large * TCL_CONVERT_NOSPACE - The output buffer would not have been large
* enough for all of the converted data; as man y * enough for all of the converted data; as man y
* characters as could fit were converted thoug h. * characters as could fit were converted thoug h.
* TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were
skipping to change at line 2126 skipping to change at line 2174
* input stream has been damaged or if the inpu t * input stream has been damaged or if the inpu t
* encoding method was misidentified. This erro r * encoding method was misidentified. This erro r
* is reported only if TCL_ENCODING_STOPONERROR * is reported only if TCL_ENCODING_STOPONERROR
* was specified. * was specified.
* TCL_CONVERT_UNKNOWN - The source string contained a character that * TCL_CONVERT_UNKNOWN - The source string contained a character that
* could not be represented in the target * could not be represented in the target
* encoding. This error is reported only if * encoding. This error is reported only if
* TCL_ENCODING_STOPONERROR was specified. * TCL_ENCODING_STOPONERROR was specified.
*/ */
#define TCL_CONVERT_MULTIBYTE -1 #define TCL_CONVERT_MULTIBYTE (-1)
#define TCL_CONVERT_SYNTAX -2 #define TCL_CONVERT_SYNTAX (-2)
#define TCL_CONVERT_UNKNOWN -3 #define TCL_CONVERT_UNKNOWN (-3)
#define TCL_CONVERT_NOSPACE -4 #define TCL_CONVERT_NOSPACE (-4)
/* /*
* The maximum number of bytes that are necessary to represent a single * The maximum number of bytes that are necessary to represent a single
* Unicode character in UTF-8. The valid values should be 3 or 6 (or perhap * Unicode character in UTF-8. The valid values should be 3, 4 or 6
s 1 * (or perhaps 1 if we want to support a non-unicode enabled core). If 3 or
* if we want to support a non-unicode enabled core). If 3, then Tcl_UniCha * 4, then Tcl_UniChar must be 2-bytes in size (UCS-2) (the default). If 6,
r * then Tcl_UniChar must be 4-bytes in size (UCS-4). At this time UCS-2 mod
* must be 2-bytes in size (UCS-2) (the default). If 6, then Tcl_UniChar mu e
st * is the default and recommended mode. UCS-4 is experimental and not
* be 4-bytes in size (UCS-4). At this time UCS-2 mode is the default and * recommended. It works for the core, but most extensions expect UCS-2.
* recommended mode. UCS-4 is experimental and not recommended. It works fo
r
* the core, but most extensions expect UCS-2.
*/ */
#ifndef TCL_UTF_MAX #ifndef TCL_UTF_MAX
#define TCL_UTF_MAX 3 #define TCL_UTF_MAX 3
#endif #endif
/* /*
* This represents a Unicode character. Any changes to this should also be * This represents a Unicode character. Any changes to this should also be
* reflected in regcustom.h. * reflected in regcustom.h.
*/ */
skipping to change at line 2164 skipping to change at line 2212
* value must be reflected correctly in regcustom.h and * value must be reflected correctly in regcustom.h and
* in tclEncoding.c. * in tclEncoding.c.
* XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode
* XXX: string rep that Tcl_UniChar represents. Changing the size * XXX: string rep that Tcl_UniChar represents. Changing the size
* XXX: of Tcl_UniChar is /not/ supported. * XXX: of Tcl_UniChar is /not/ supported.
*/ */
typedef unsigned int Tcl_UniChar; typedef unsigned int Tcl_UniChar;
#else #else
typedef unsigned short Tcl_UniChar; typedef unsigned short Tcl_UniChar;
#endif #endif
/* /*
*------------------------------------------------------------------------- ---
* TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' t o * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' t o
* provide the system with the embedded configuration data. * provide the system with the embedded configuration data.
*/ */
typedef struct Tcl_Config { typedef struct Tcl_Config {
CONST char *key; /* Configuration key to register. ASCII const char *key; /* Configuration key to register. ASCII
* encoded, thus UTF-8. */ * encoded, thus UTF-8. */
CONST char *value; /* The value associated with the key. System const char *value; /* The value associated with the key. System
* encoding. */ * encoding. */
} Tcl_Config; } Tcl_Config;
/* /*
*------------------------------------------------------------------------- ---
* Flags for TIP#143 limits, detailing which limits are active in an * Flags for TIP#143 limits, detailing which limits are active in an
* interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument.
*/ */
#define TCL_LIMIT_COMMANDS 0x01 #define TCL_LIMIT_COMMANDS 0x01
#define TCL_LIMIT_TIME 0x02 #define TCL_LIMIT_TIME 0x02
/* /*
* Structure containing information about a limit handler to be called when a * Structure containing information about a limit handler to be called when a
* command- or time-limit is exceeded by an interpreter. * command- or time-limit is exceeded by an interpreter.
*/ */
typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_LimitHandlerProc) (ClientData clientData, Tcl_Interp *int
Tcl_Interp *interp)); erp);
typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientDat typedef void (Tcl_LimitHandlerDeleteProc) (ClientData clientData);
a));
/*
*-------------------------------------------------------------------------
---
* Override definitions for libtommath.
*/
typedef struct mp_int mp_int; typedef struct mp_int mp_int;
#define MP_INT_DECLARED #define MP_INT_DECLARED
typedef unsigned int mp_digit; typedef unsigned int mp_digit;
#define MP_DIGIT_DECLARED #define MP_DIGIT_DECLARED
/* /*
*-------------------------------------------------------------------------
---
* Definitions needed for Tcl_ParseArgvObj routines.
* Based on tkArgv.c.
* Modifications from the original are copyright (c) Sam Bromley 2006
*/
typedef struct {
int type; /* Indicates the option type; see below. */
const char *keyStr; /* The key string that flags the opt
ion in the
* argv array. */
void *srcPtr; /* Value to be used in setting dst; usage
* depends on type.*/
void *dstPtr; /* Address of value to be modified; usage
* depends on type.*/
const char *helpStr; /* Documentation message describing this
* option. */
ClientData clientData; /* Word to pass to function callbacks. */
} Tcl_ArgvInfo;
/*
* Legal values for the type field of a Tcl_ArgInfo: see the user
* documentation for details.
*/
#define TCL_ARGV_CONSTANT 15
#define TCL_ARGV_INT 16
#define TCL_ARGV_STRING 17
#define TCL_ARGV_REST 18
#define TCL_ARGV_FLOAT 19
#define TCL_ARGV_FUNC 20
#define TCL_ARGV_GENFUNC 21
#define TCL_ARGV_HELP 22
#define TCL_ARGV_END 23
/*
* Types of callback functions for the TCL_ARGV_FUNC and TCL_ARGV_GENFUNC
* argument types:
*/
typedef int (Tcl_ArgvFuncProc)(ClientData clientData, Tcl_Obj *objPtr,
void *dstPtr);
typedef int (Tcl_ArgvGenFuncProc)(ClientData clientData, Tcl_Interp *interp
,
int objc, Tcl_Obj *const *objv, void *dstPtr);
/*
* Shorthand for commonly used argTable entries.
*/
#define TCL_ARGV_AUTO_HELP \
{TCL_ARGV_HELP, "-help", NULL, NULL, \
"Print summary of command-line options and abort", NULL}
#define TCL_ARGV_AUTO_REST \
{TCL_ARGV_REST, "--", NULL, NULL, \
"Marks the end of the options", NULL}
#define TCL_ARGV_TABLE_END \
{TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL}
/*
*-------------------------------------------------------------------------
---
* Definitions needed for Tcl_Zlib routines. [TIP #234]
*
* Constants for the format flags describing what sort of data format is
* desired/expected for the Tcl_ZlibDeflate, Tcl_ZlibInflate and
* Tcl_ZlibStreamInit functions.
*/
#define TCL_ZLIB_FORMAT_RAW 1
#define TCL_ZLIB_FORMAT_ZLIB 2
#define TCL_ZLIB_FORMAT_GZIP 4
#define TCL_ZLIB_FORMAT_AUTO 8
/*
* Constants that describe whether the stream is to operate in compressing
or
* decompressing mode.
*/
#define TCL_ZLIB_STREAM_DEFLATE 16
#define TCL_ZLIB_STREAM_INFLATE 32
/*
* Constants giving compression levels. Use of TCL_ZLIB_COMPRESS_DEFAULT is
* recommended.
*/
#define TCL_ZLIB_COMPRESS_NONE 0
#define TCL_ZLIB_COMPRESS_FAST 1
#define TCL_ZLIB_COMPRESS_BEST 9
#define TCL_ZLIB_COMPRESS_DEFAULT (-1)
/*
* Constants for types of flushing, used with Tcl_ZlibFlush.
*/
#define TCL_ZLIB_NO_FLUSH 0
#define TCL_ZLIB_FLUSH 2
#define TCL_ZLIB_FULLFLUSH 3
#define TCL_ZLIB_FINALIZE 4
/*
*-------------------------------------------------------------------------
---
* Definitions needed for the Tcl_LoadFile function. [TIP #416]
*/
#define TCL_LOAD_GLOBAL 1
#define TCL_LOAD_LAZY 2
/*
*-------------------------------------------------------------------------
---
* Single public declaration for NRE.
*/
typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp,
int result);
/*
*-------------------------------------------------------------------------
---
* The following constant is used to test for older versions of Tcl in the * The following constant is used to test for older versions of Tcl in the
* stubs tables. * stubs tables.
* *
* Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different
* value since the stubs tables don't match. * value since the stubs tables don't match.
*/ */
#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) #define TCL_STUB_MAGIC ((int) 0xFCA3BACF)
/* /*
* The following function is required to be defined in all stubs aware * The following function is required to be defined in all stubs aware
* extensions. The function is actually implemented in the stub library, no t * extensions. The function is actually implemented in the stub library, no t
* the main Tcl library, although there is a trivial implementation in the * the main Tcl library, although there is a trivial implementation in the
* main library in case an extension is statically linked into an applicati on. * main library in case an extension is statically linked into an applicati on.
*/ */
EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, const char * Tcl_InitStubs(Tcl_Interp *interp, const char *versio
CONST char *version, int exact)); n,
EXTERN CONST char * TclTomMathInitializeStubs _ANSI_ARGS_(( int exact);
Tcl_Interp *interp, CONST char *version, const char * TclTomMathInitializeStubs(Tcl_Interp *interp,
int epoch, int revision)); const char *version, int epoch, int revision);
#ifndef USE_TCL_STUBS
/* /*
* When not using stubs, make it a macro. * When not using stubs, make it a macro.
*/ */
#ifndef USE_TCL_STUBS
#define Tcl_InitStubs(interp, version, exact) \ #define Tcl_InitStubs(interp, version, exact) \
Tcl_PkgInitStubsCheck(interp, version, exact) Tcl_PkgInitStubsCheck(interp, version, exact)
#endif #endif
/* /*
* TODO - tommath stubs export goes here! * TODO - tommath stubs export goes here!
*/ */
/* /*
* Public functions that are not accessible via the stubs table. * Public functions that are not accessible via the stubs table.
* Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171]
*/ */
EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \
Tcl_AppInitProc *appInitProc)); (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)()))
EXTERN CONST char * Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *inter EXTERN void Tcl_MainEx(int argc, char **argv,
p, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp
CONST char *version, int exact)); );
EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp,
const char *version, int exact);
#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) #if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC)
EXTERN void Tcl_GetMemoryInfo _ANSI_ARGS_((Tcl_DString *dsPtr)); EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr);
#endif #endif
/* /*
*------------------------------------------------------------------------- ---
* Include the public function declarations that are accessible via the stu bs * Include the public function declarations that are accessible via the stu bs
* table. * table.
*/ */
#include "tclDecls.h" #include "tclDecls.h"
/* /*
* Include platform specific public function declarations that are accessib le * Include platform specific public function declarations that are accessib le
* via the stubs table. * via the stubs table.
*/ */
#include "tclPlatDecls.h" #include "tclPlatDecls.h"
/* /*
*------------------------------------------------------------------------- ---
* The following declarations either map ckalloc and ckfree to malloc and * The following declarations either map ckalloc and ckfree to malloc and
* free, or they map them to functions with all sorts of debugging hooks * free, or they map them to functions with all sorts of debugging hooks
* defined in tclCkalloc.c. * defined in tclCkalloc.c.
*/ */
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) # define ckalloc(x) \
# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) ((VOID *) Tcl_DbCkalloc((unsigned)(x), __FILE__, __LINE__))
# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) # define ckfree(x) \
# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) Tcl_DbCkfree((char *)(x), __FILE__, __LINE__)
# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, # define ckrealloc(x,y) \
__LINE__) ((VOID *) Tcl_DbCkrealloc((char *)(x), (unsigned)(y), __FILE__, __LINE_
_))
# define attemptckalloc(x) \
((VOID *) Tcl_AttemptDbCkalloc((unsigned)(x), __FILE__, __LINE__))
# define attemptckrealloc(x,y) \
((VOID *) Tcl_AttemptDbCkrealloc((char *)(x), (unsigned)(y), __FILE__,
__LINE__))
#else /* !TCL_MEM_DEBUG */ #else /* !TCL_MEM_DEBUG */
/* /*
* If we are not using the debugging allocator, we should call the Tcl_Allo c, * If we are not using the debugging allocator, we should call the Tcl_Allo c,
* et al. routines in order to guarantee that every module is using the sam e * et al. routines in order to guarantee that every module is using the sam e
* memory allocator both inside and outside of the Tcl library. * memory allocator both inside and outside of the Tcl library.
*/ */
# define ckalloc(x) Tcl_Alloc(x) # define ckalloc(x) \
# define ckfree(x) Tcl_Free(x) ((VOID *) Tcl_Alloc((unsigned)(x)))
# define ckrealloc(x,y) Tcl_Realloc(x,y) # define ckfree(x) \
# define attemptckalloc(x) Tcl_AttemptAlloc(x) Tcl_Free((char *)(x))
# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) # define ckrealloc(x,y) \
((VOID *) Tcl_Realloc((char *)(x), (unsigned)(y)))
# define attemptckalloc(x) \
((VOID *) Tcl_AttemptAlloc((unsigned)(x)))
# define attemptckrealloc(x,y) \
((VOID *) Tcl_AttemptRealloc((char *)(x), (unsigned)(y)))
# undef Tcl_InitMemory # undef Tcl_InitMemory
# define Tcl_InitMemory(x) # define Tcl_InitMemory(x)
# undef Tcl_DumpActiveMemory # undef Tcl_DumpActiveMemory
# define Tcl_DumpActiveMemory(x) # define Tcl_DumpActiveMemory(x)
# undef Tcl_ValidateAllMemory # undef Tcl_ValidateAllMemory
# define Tcl_ValidateAllMemory(x,y) # define Tcl_ValidateAllMemory(x,y)
#endif /* !TCL_MEM_DEBUG */ #endif /* !TCL_MEM_DEBUG */
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
skipping to change at line 2365 skipping to change at line 2544
Tcl_DbNewObj(__FILE__, __LINE__) Tcl_DbNewObj(__FILE__, __LINE__)
# undef Tcl_NewStringObj # undef Tcl_NewStringObj
# define Tcl_NewStringObj(bytes, len) \ # define Tcl_NewStringObj(bytes, len) \
Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
# undef Tcl_NewWideIntObj # undef Tcl_NewWideIntObj
# define Tcl_NewWideIntObj(val) \ # define Tcl_NewWideIntObj(val) \
Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) Tcl_DbNewWideIntObj(val, __FILE__, __LINE__)
#endif /* TCL_MEM_DEBUG */ #endif /* TCL_MEM_DEBUG */
/* /*
*------------------------------------------------------------------------- ---
* Macros for clients to use to access fields of hash entries: * Macros for clients to use to access fields of hash entries:
*/ */
#define Tcl_GetHashValue(h) ((h)->clientData) #define Tcl_GetHashValue(h) ((h)->clientData)
#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
#define Tcl_GetHashKey(tablePtr, h) \ #define Tcl_GetHashKey(tablePtr, h) \
((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \
(tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \
? (h)->key.oneWordValue \ ? (h)->key.oneWordValue \
: (h)->key.string)) : (h)->key.string))
/* /*
* Macros to use for clients to use to invoke find and create functions for * Macros to use for clients to use to invoke find and create functions for
* hash tables: * hash tables:
*/ */
#undef Tcl_FindHashEntry #undef Tcl_FindHashEntry
#define Tcl_FindHashEntry(tablePtr, key) \ #define Tcl_FindHashEntry(tablePtr, key) \
(*((tablePtr)->findProc))(tablePtr, key) (*((tablePtr)->findProc))(tablePtr, (const char *)(key))
#undef Tcl_CreateHashEntry #undef Tcl_CreateHashEntry
#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ #define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
(*((tablePtr)->createProc))(tablePtr, key, newPtr) (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr)
/* /*
*------------------------------------------------------------------------- ---
* Macros that eliminate the overhead of the thread synchronization functio ns * Macros that eliminate the overhead of the thread synchronization functio ns
* when compiling without thread support. * when compiling without thread support.
*/ */
#ifndef TCL_THREADS #ifndef TCL_THREADS
#undef Tcl_MutexLock #undef Tcl_MutexLock
#define Tcl_MutexLock(mutexPtr) #define Tcl_MutexLock(mutexPtr)
#undef Tcl_MutexUnlock #undef Tcl_MutexUnlock
#define Tcl_MutexUnlock(mutexPtr) #define Tcl_MutexUnlock(mutexPtr)
#undef Tcl_MutexFinalize #undef Tcl_MutexFinalize
#define Tcl_MutexFinalize(mutexPtr) #define Tcl_MutexFinalize(mutexPtr)
#undef Tcl_ConditionNotify #undef Tcl_ConditionNotify
#define Tcl_ConditionNotify(condPtr) #define Tcl_ConditionNotify(condPtr)
#undef Tcl_ConditionWait #undef Tcl_ConditionWait
#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) #define Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
#undef Tcl_ConditionFinalize #undef Tcl_ConditionFinalize
#define Tcl_ConditionFinalize(condPtr) #define Tcl_ConditionFinalize(condPtr)
#endif /* TCL_THREADS */ #endif /* TCL_THREADS */
/*
*-------------------------------------------------------------------------
---
* Deprecated Tcl functions:
*/
#ifndef TCL_NO_DEPRECATED #ifndef TCL_NO_DEPRECATED
/* # undef Tcl_EvalObj
* These function have been renamed. The old names are deprecated, but # define Tcl_EvalObj(interp,objPtr) \
we Tcl_EvalObjEx((interp),(objPtr),0)
* define these macros for backwards compatibilty. # undef Tcl_GlobalEvalObj
*/ # define Tcl_GlobalEvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
/*
* These function have been renamed. The old names are deprecated, but we
* define these macros for backwards compatibilty.
*/
# define Tcl_Ckalloc Tcl_Alloc # define Tcl_Ckalloc Tcl_Alloc
# define Tcl_Ckfree Tcl_Free # define Tcl_Ckfree Tcl_Free
# define Tcl_Ckrealloc Tcl_Realloc # define Tcl_Ckrealloc Tcl_Realloc
# define Tcl_Return Tcl_SetResult # define Tcl_Return Tcl_SetResult
# define Tcl_TildeSubst Tcl_TranslateFileName # define Tcl_TildeSubst Tcl_TranslateFileName
# define panic Tcl_Panic # define panic Tcl_Panic
# define panicVA Tcl_PanicVA # define panicVA Tcl_PanicVA
#endif #endif /* !TCL_NO_DEPRECATED */
/* /*
*------------------------------------------------------------------------- ---
* Convenience declaration of Tcl_AppInit for backwards compatibility. This * Convenience declaration of Tcl_AppInit for backwards compatibility. This
* function is not *implemented* by the tcl library, so the storage class i s * function is not *implemented* by the tcl library, so the storage class i s
* neither DLLEXPORT nor DLLIMPORT. * neither DLLEXPORT nor DLLIMPORT.
*/ */
#undef TCL_STORAGE_CLASS extern Tcl_AppInitProc Tcl_AppInit;
#define TCL_STORAGE_CLASS
EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#endif /* RC_INVOKED */ #endif /* RC_INVOKED */
/* /*
* end block for C++ * end block for C++
*/ */
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
 End of changes. 122 change blocks. 
410 lines changed or deleted 621 lines changed or added


 tclDecls.h   tclDecls.h 
skipping to change at line 34 skipping to change at line 34
#endif #endif
/* /*
* WARNING: This file is automatically generated by the tools/genStubs.tcl * WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be made * script. Any modifications to the function declarations below should be made
* in the generic/tcl.decls script. * in the generic/tcl.decls script.
*/ */
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
#ifdef __cplusplus
extern "C" {
#endif
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
#ifndef Tcl_PkgProvideEx_TCL_DECLARED
#define Tcl_PkgProvideEx_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
CONST char *name, CONST char *version, const char *name, const char *version,
ClientData clientData); const void *clientData);
#endif
#ifndef Tcl_PkgRequireEx_TCL_DECLARED
#define Tcl_PkgRequireEx_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
CONST char *name, CONST char *version, const char *name, const char *version,
int exact, ClientData *clientDataPtr); int exact, void *clientDataPtr);
#endif
#ifndef Tcl_Panic_TCL_DECLARED
#define Tcl_Panic_TCL_DECLARED
/* 2 */ /* 2 */
EXTERN void Tcl_Panic(CONST char *format, ...); EXTERN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF
#endif (1, 2);
#ifndef Tcl_Alloc_TCL_DECLARED
#define Tcl_Alloc_TCL_DECLARED
/* 3 */ /* 3 */
EXTERN char * Tcl_Alloc(unsigned int size); EXTERN char * Tcl_Alloc(unsigned int size);
#endif
#ifndef Tcl_Free_TCL_DECLARED
#define Tcl_Free_TCL_DECLARED
/* 4 */ /* 4 */
EXTERN void Tcl_Free(char *ptr); EXTERN void Tcl_Free(char *ptr);
#endif
#ifndef Tcl_Realloc_TCL_DECLARED
#define Tcl_Realloc_TCL_DECLARED
/* 5 */ /* 5 */
EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);
#endif
#ifndef Tcl_DbCkalloc_TCL_DECLARED
#define Tcl_DbCkalloc_TCL_DECLARED
/* 6 */ /* 6 */
EXTERN char * Tcl_DbCkalloc(unsigned int size, CONST char *file, EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,
int line); int line);
#endif
#ifndef Tcl_DbCkfree_TCL_DECLARED
#define Tcl_DbCkfree_TCL_DECLARED
/* 7 */ /* 7 */
EXTERN void Tcl_DbCkfree(char *ptr, CONST char *file, int line); EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line);
#endif
#ifndef Tcl_DbCkrealloc_TCL_DECLARED
#define Tcl_DbCkrealloc_TCL_DECLARED
/* 8 */ /* 8 */
EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
CONST char *file, int line); const char *file, int line);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_CreateFileHandler_TCL_DECLARED
#define Tcl_CreateFileHandler_TCL_DECLARED
/* 9 */ /* 9 */
EXTERN void Tcl_CreateFileHandler(int fd, int mask, EXTERN void Tcl_CreateFileHandler(int fd, int mask,
Tcl_FileProc *proc, ClientData clientData); Tcl_FileProc *proc, ClientData clientData);
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_CreateFileHandler_TCL_DECLARED
#define Tcl_CreateFileHandler_TCL_DECLARED
/* 9 */ /* 9 */
EXTERN void Tcl_CreateFileHandler(int fd, int mask, EXTERN void Tcl_CreateFileHandler(int fd, int mask,
Tcl_FileProc *proc, ClientData clientData); Tcl_FileProc *proc, ClientData clientData);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_DeleteFileHandler_TCL_DECLARED
#define Tcl_DeleteFileHandler_TCL_DECLARED
/* 10 */ /* 10 */
EXTERN void Tcl_DeleteFileHandler(int fd); EXTERN void Tcl_DeleteFileHandler(int fd);
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_DeleteFileHandler_TCL_DECLARED
#define Tcl_DeleteFileHandler_TCL_DECLARED
/* 10 */ /* 10 */
EXTERN void Tcl_DeleteFileHandler(int fd); EXTERN void Tcl_DeleteFileHandler(int fd);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#ifndef Tcl_SetTimer_TCL_DECLARED
#define Tcl_SetTimer_TCL_DECLARED
/* 11 */ /* 11 */
EXTERN void Tcl_SetTimer(Tcl_Time *timePtr); EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
#endif
#ifndef Tcl_Sleep_TCL_DECLARED
#define Tcl_Sleep_TCL_DECLARED
/* 12 */ /* 12 */
EXTERN void Tcl_Sleep(int ms); EXTERN void Tcl_Sleep(int ms);
#endif
#ifndef Tcl_WaitForEvent_TCL_DECLARED
#define Tcl_WaitForEvent_TCL_DECLARED
/* 13 */ /* 13 */
EXTERN int Tcl_WaitForEvent(Tcl_Time *timePtr); EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
#endif
#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED
#define Tcl_AppendAllObjTypes_TCL_DECLARED
/* 14 */ /* 14 */
EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
Tcl_Obj *objPtr); Tcl_Obj *objPtr);
#endif
#ifndef Tcl_AppendStringsToObj_TCL_DECLARED
#define Tcl_AppendStringsToObj_TCL_DECLARED
/* 15 */ /* 15 */
EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
#endif
#ifndef Tcl_AppendToObj_TCL_DECLARED
#define Tcl_AppendToObj_TCL_DECLARED
/* 16 */ /* 16 */
EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, CONST char *bytes, EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
int length); int length);
#endif
#ifndef Tcl_ConcatObj_TCL_DECLARED
#define Tcl_ConcatObj_TCL_DECLARED
/* 17 */ /* 17 */
EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]); EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_ConvertToType_TCL_DECLARED
#define Tcl_ConvertToType_TCL_DECLARED
/* 18 */ /* 18 */
EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
Tcl_Obj *objPtr, Tcl_ObjType *typePtr); Tcl_Obj *objPtr, const Tcl_ObjType *typePtr)
#endif ;
#ifndef Tcl_DbDecrRefCount_TCL_DECLARED
#define Tcl_DbDecrRefCount_TCL_DECLARED
/* 19 */ /* 19 */
EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file , EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file ,
int line); int line);
#endif
#ifndef Tcl_DbIncrRefCount_TCL_DECLARED
#define Tcl_DbIncrRefCount_TCL_DECLARED
/* 20 */ /* 20 */
EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file , EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file ,
int line); int line);
#endif
#ifndef Tcl_DbIsShared_TCL_DECLARED
#define Tcl_DbIsShared_TCL_DECLARED
/* 21 */ /* 21 */
EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
int line); int line);
#endif
#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED
#define Tcl_DbNewBooleanObj_TCL_DECLARED
/* 22 */ /* 22 */
EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file,
int line); int line);
#endif
#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED
#define Tcl_DbNewByteArrayObj_TCL_DECLARED
/* 23 */ /* 23 */
EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
int length, CONST char *file, int line); int length, const char *file, int line);
#endif
#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED
#define Tcl_DbNewDoubleObj_TCL_DECLARED
/* 24 */ /* 24 */
EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
CONST char *file, int line); const char *file, int line);
#endif
#ifndef Tcl_DbNewListObj_TCL_DECLARED
#define Tcl_DbNewListObj_TCL_DECLARED
/* 25 */ /* 25 */
EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
CONST char *file, int line); const char *file, int line);
#endif
#ifndef Tcl_DbNewLongObj_TCL_DECLARED
#define Tcl_DbNewLongObj_TCL_DECLARED
/* 26 */ /* 26 */
EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file,
int line); int line);
#endif
#ifndef Tcl_DbNewObj_TCL_DECLARED
#define Tcl_DbNewObj_TCL_DECLARED
/* 27 */ /* 27 */
EXTERN Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line); EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
#endif
#ifndef Tcl_DbNewStringObj_TCL_DECLARED
#define Tcl_DbNewStringObj_TCL_DECLARED
/* 28 */ /* 28 */
EXTERN Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length,
CONST char *file, int line); const char *file, int line);
#endif
#ifndef Tcl_DuplicateObj_TCL_DECLARED
#define Tcl_DuplicateObj_TCL_DECLARED
/* 29 */ /* 29 */
EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
#endif
#ifndef TclFreeObj_TCL_DECLARED
#define TclFreeObj_TCL_DECLARED
/* 30 */ /* 30 */
EXTERN void TclFreeObj(Tcl_Obj *objPtr); EXTERN void TclFreeObj(Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetBoolean_TCL_DECLARED
#define Tcl_GetBoolean_TCL_DECLARED
/* 31 */ /* 31 */
EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *src, EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
int *boolPtr); int *boolPtr);
#endif
#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED
#define Tcl_GetBooleanFromObj_TCL_DECLARED
/* 32 */ /* 32 */
EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, int *boolPtr); Tcl_Obj *objPtr, int *boolPtr);
#endif
#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED
#define Tcl_GetByteArrayFromObj_TCL_DECLARED
/* 33 */ /* 33 */
EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
int *lengthPtr); int *lengthPtr);
#endif
#ifndef Tcl_GetDouble_TCL_DECLARED
#define Tcl_GetDouble_TCL_DECLARED
/* 34 */ /* 34 */
EXTERN int Tcl_GetDouble(Tcl_Interp *interp, CONST char *src, EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
double *doublePtr); double *doublePtr);
#endif
#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED
#define Tcl_GetDoubleFromObj_TCL_DECLARED
/* 35 */ /* 35 */
EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, double *doublePtr); Tcl_Obj *objPtr, double *doublePtr);
#endif
#ifndef Tcl_GetIndexFromObj_TCL_DECLARED
#define Tcl_GetIndexFromObj_TCL_DECLARED
/* 36 */ /* 36 */
EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, CONST84 char **tablePtr, Tcl_Obj *objPtr,
CONST char *msg, int flags, int *indexPtr); CONST84 char *const *tablePtr,
#endif const char *msg, int flags, int *indexPtr);
#ifndef Tcl_GetInt_TCL_DECLARED
#define Tcl_GetInt_TCL_DECLARED
/* 37 */ /* 37 */
EXTERN int Tcl_GetInt(Tcl_Interp *interp, CONST char *src, EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
int *intPtr); int *intPtr);
#endif
#ifndef Tcl_GetIntFromObj_TCL_DECLARED
#define Tcl_GetIntFromObj_TCL_DECLARED
/* 38 */ /* 38 */
EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, int *intPtr); Tcl_Obj *objPtr, int *intPtr);
#endif
#ifndef Tcl_GetLongFromObj_TCL_DECLARED
#define Tcl_GetLongFromObj_TCL_DECLARED
/* 39 */ /* 39 */
EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, long *longPtr); Tcl_Obj *objPtr, long *longPtr);
#endif
#ifndef Tcl_GetObjType_TCL_DECLARED
#define Tcl_GetObjType_TCL_DECLARED
/* 40 */ /* 40 */
EXTERN Tcl_ObjType * Tcl_GetObjType(CONST char *typeName); EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
#endif
#ifndef Tcl_GetStringFromObj_TCL_DECLARED
#define Tcl_GetStringFromObj_TCL_DECLARED
/* 41 */ /* 41 */
EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr ); EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr );
#endif
#ifndef Tcl_InvalidateStringRep_TCL_DECLARED
#define Tcl_InvalidateStringRep_TCL_DECLARED
/* 42 */ /* 42 */
EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
#endif
#ifndef Tcl_ListObjAppendList_TCL_DECLARED
#define Tcl_ListObjAppendList_TCL_DECLARED
/* 43 */ /* 43 */
EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
#endif
#ifndef Tcl_ListObjAppendElement_TCL_DECLARED
#define Tcl_ListObjAppendElement_TCL_DECLARED
/* 44 */ /* 44 */
EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
Tcl_Obj *listPtr, Tcl_Obj *objPtr); Tcl_Obj *listPtr, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_ListObjGetElements_TCL_DECLARED
#define Tcl_ListObjGetElements_TCL_DECLARED
/* 45 */ /* 45 */
EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj *listPtr, int *objcPtr,
Tcl_Obj ***objvPtr); Tcl_Obj ***objvPtr);
#endif
#ifndef Tcl_ListObjIndex_TCL_DECLARED
#define Tcl_ListObjIndex_TCL_DECLARED
/* 46 */ /* 46 */
EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
Tcl_Obj *listPtr, int index, Tcl_Obj *listPtr, int index,
Tcl_Obj **objPtrPtr); Tcl_Obj **objPtrPtr);
#endif
#ifndef Tcl_ListObjLength_TCL_DECLARED
#define Tcl_ListObjLength_TCL_DECLARED
/* 47 */ /* 47 */
EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
Tcl_Obj *listPtr, int *lengthPtr); Tcl_Obj *listPtr, int *lengthPtr);
#endif
#ifndef Tcl_ListObjReplace_TCL_DECLARED
#define Tcl_ListObjReplace_TCL_DECLARED
/* 48 */ /* 48 */
EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
Tcl_Obj *listPtr, int first, int count, Tcl_Obj *listPtr, int first, int count,
int objc, Tcl_Obj *CONST objv[]); int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_NewBooleanObj_TCL_DECLARED
#define Tcl_NewBooleanObj_TCL_DECLARED
/* 49 */ /* 49 */
EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue); EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue);
#endif
#ifndef Tcl_NewByteArrayObj_TCL_DECLARED
#define Tcl_NewByteArrayObj_TCL_DECLARED
/* 50 */ /* 50 */
EXTERN Tcl_Obj * Tcl_NewByteArrayObj(CONST unsigned char *bytes, EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
int length); int length);
#endif
#ifndef Tcl_NewDoubleObj_TCL_DECLARED
#define Tcl_NewDoubleObj_TCL_DECLARED
/* 51 */ /* 51 */
EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
#endif
#ifndef Tcl_NewIntObj_TCL_DECLARED
#define Tcl_NewIntObj_TCL_DECLARED
/* 52 */ /* 52 */
EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue);
#endif
#ifndef Tcl_NewListObj_TCL_DECLARED
#define Tcl_NewListObj_TCL_DECLARED
/* 53 */ /* 53 */
EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]); EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_NewLongObj_TCL_DECLARED
#define Tcl_NewLongObj_TCL_DECLARED
/* 54 */ /* 54 */
EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue);
#endif
#ifndef Tcl_NewObj_TCL_DECLARED
#define Tcl_NewObj_TCL_DECLARED
/* 55 */ /* 55 */
EXTERN Tcl_Obj * Tcl_NewObj(void); EXTERN Tcl_Obj * Tcl_NewObj(void);
#endif
#ifndef Tcl_NewStringObj_TCL_DECLARED
#define Tcl_NewStringObj_TCL_DECLARED
/* 56 */ /* 56 */
EXTERN Tcl_Obj * Tcl_NewStringObj(CONST char *bytes, int length); EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length);
#endif
#ifndef Tcl_SetBooleanObj_TCL_DECLARED
#define Tcl_SetBooleanObj_TCL_DECLARED
/* 57 */ /* 57 */
EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue); EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue);
#endif
#ifndef Tcl_SetByteArrayLength_TCL_DECLARED
#define Tcl_SetByteArrayLength_TCL_DECLARED
/* 58 */ /* 58 */
EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length); EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length);
#endif
#ifndef Tcl_SetByteArrayObj_TCL_DECLARED
#define Tcl_SetByteArrayObj_TCL_DECLARED
/* 59 */ /* 59 */
EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
CONST unsigned char *bytes, int length); const unsigned char *bytes, int length);
#endif
#ifndef Tcl_SetDoubleObj_TCL_DECLARED
#define Tcl_SetDoubleObj_TCL_DECLARED
/* 60 */ /* 60 */
EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue ); EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue );
#endif
#ifndef Tcl_SetIntObj_TCL_DECLARED
#define Tcl_SetIntObj_TCL_DECLARED
/* 61 */ /* 61 */
EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
#endif
#ifndef Tcl_SetListObj_TCL_DECLARED
#define Tcl_SetListObj_TCL_DECLARED
/* 62 */ /* 62 */
EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
Tcl_Obj *CONST objv[]); Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_SetLongObj_TCL_DECLARED
#define Tcl_SetLongObj_TCL_DECLARED
/* 63 */ /* 63 */
EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
#endif
#ifndef Tcl_SetObjLength_TCL_DECLARED
#define Tcl_SetObjLength_TCL_DECLARED
/* 64 */ /* 64 */
EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
#endif
#ifndef Tcl_SetStringObj_TCL_DECLARED
#define Tcl_SetStringObj_TCL_DECLARED
/* 65 */ /* 65 */
EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, CONST char *bytes, EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
int length); int length);
#endif
#ifndef Tcl_AddErrorInfo_TCL_DECLARED
#define Tcl_AddErrorInfo_TCL_DECLARED
/* 66 */ /* 66 */
EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp,
CONST char *message); const char *message);
#endif
#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED
#define Tcl_AddObjErrorInfo_TCL_DECLARED
/* 67 */ /* 67 */
EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp,
CONST char *message, int length); const char *message, int length);
#endif
#ifndef Tcl_AllowExceptions_TCL_DECLARED
#define Tcl_AllowExceptions_TCL_DECLARED
/* 68 */ /* 68 */
EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
#endif
#ifndef Tcl_AppendElement_TCL_DECLARED
#define Tcl_AppendElement_TCL_DECLARED
/* 69 */ /* 69 */
EXTERN void Tcl_AppendElement(Tcl_Interp *interp, EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
CONST char *element); const char *element);
#endif
#ifndef Tcl_AppendResult_TCL_DECLARED
#define Tcl_AppendResult_TCL_DECLARED
/* 70 */ /* 70 */
EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
#endif
#ifndef Tcl_AsyncCreate_TCL_DECLARED
#define Tcl_AsyncCreate_TCL_DECLARED
/* 71 */ /* 71 */
EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_AsyncDelete_TCL_DECLARED
#define Tcl_AsyncDelete_TCL_DECLARED
/* 72 */ /* 72 */
EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
#endif
#ifndef Tcl_AsyncInvoke_TCL_DECLARED
#define Tcl_AsyncInvoke_TCL_DECLARED
/* 73 */ /* 73 */
EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
#endif
#ifndef Tcl_AsyncMark_TCL_DECLARED
#define Tcl_AsyncMark_TCL_DECLARED
/* 74 */ /* 74 */
EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
#endif
#ifndef Tcl_AsyncReady_TCL_DECLARED
#define Tcl_AsyncReady_TCL_DECLARED
/* 75 */ /* 75 */
EXTERN int Tcl_AsyncReady(void); EXTERN int Tcl_AsyncReady(void);
#endif
#ifndef Tcl_BackgroundError_TCL_DECLARED
#define Tcl_BackgroundError_TCL_DECLARED
/* 76 */ /* 76 */
EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); EXTERN void Tcl_BackgroundError(Tcl_Interp *interp);
#endif
#ifndef Tcl_Backslash_TCL_DECLARED
#define Tcl_Backslash_TCL_DECLARED
/* 77 */ /* 77 */
EXTERN char Tcl_Backslash(CONST char *src, int *readPtr); EXTERN char Tcl_Backslash(const char *src, int *readPtr);
#endif
#ifndef Tcl_BadChannelOption_TCL_DECLARED
#define Tcl_BadChannelOption_TCL_DECLARED
/* 78 */ /* 78 */
EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
CONST char *optionName, const char *optionName,
CONST char *optionList); const char *optionList);
#endif
#ifndef Tcl_CallWhenDeleted_TCL_DECLARED
#define Tcl_CallWhenDeleted_TCL_DECLARED
/* 79 */ /* 79 */
EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
Tcl_InterpDeleteProc *proc, Tcl_InterpDeleteProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_CancelIdleCall_TCL_DECLARED
#define Tcl_CancelIdleCall_TCL_DECLARED
/* 80 */ /* 80 */
EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_Close_TCL_DECLARED
#define Tcl_Close_TCL_DECLARED
/* 81 */ /* 81 */
EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
#endif
#ifndef Tcl_CommandComplete_TCL_DECLARED
#define Tcl_CommandComplete_TCL_DECLARED
/* 82 */ /* 82 */
EXTERN int Tcl_CommandComplete(CONST char *cmd); EXTERN int Tcl_CommandComplete(const char *cmd);
#endif
#ifndef Tcl_Concat_TCL_DECLARED
#define Tcl_Concat_TCL_DECLARED
/* 83 */ /* 83 */
EXTERN char * Tcl_Concat(int argc, CONST84 char *CONST *argv); EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv);
#endif
#ifndef Tcl_ConvertElement_TCL_DECLARED
#define Tcl_ConvertElement_TCL_DECLARED
/* 84 */ /* 84 */
EXTERN int Tcl_ConvertElement(CONST char *src, char *dst, EXTERN int Tcl_ConvertElement(const char *src, char *dst,
int flags); int flags);
#endif
#ifndef Tcl_ConvertCountedElement_TCL_DECLARED
#define Tcl_ConvertCountedElement_TCL_DECLARED
/* 85 */ /* 85 */
EXTERN int Tcl_ConvertCountedElement(CONST char *src, EXTERN int Tcl_ConvertCountedElement(const char *src,
int length, char *dst, int flags); int length, char *dst, int flags);
#endif
#ifndef Tcl_CreateAlias_TCL_DECLARED
#define Tcl_CreateAlias_TCL_DECLARED
/* 86 */ /* 86 */
EXTERN int Tcl_CreateAlias(Tcl_Interp *slave, EXTERN int Tcl_CreateAlias(Tcl_Interp *slave,
CONST char *slaveCmd, Tcl_Interp *target, const char *slaveCmd, Tcl_Interp *target,
CONST char *targetCmd, int argc, const char *targetCmd, int argc,
CONST84 char *CONST *argv); CONST84 char *const *argv);
#endif
#ifndef Tcl_CreateAliasObj_TCL_DECLARED
#define Tcl_CreateAliasObj_TCL_DECLARED
/* 87 */ /* 87 */
EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave, EXTERN int Tcl_CreateAliasObj(Tcl_Interp *slave,
CONST char *slaveCmd, Tcl_Interp *target, const char *slaveCmd, Tcl_Interp *target,
CONST char *targetCmd, int objc, const char *targetCmd, int objc,
Tcl_Obj *CONST objv[]); Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_CreateChannel_TCL_DECLARED
#define Tcl_CreateChannel_TCL_DECLARED
/* 88 */ /* 88 */
EXTERN Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
CONST char *chanName, const char *chanName,
ClientData instanceData, int mask); ClientData instanceData, int mask);
#endif
#ifndef Tcl_CreateChannelHandler_TCL_DECLARED
#define Tcl_CreateChannelHandler_TCL_DECLARED
/* 89 */ /* 89 */
EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
Tcl_ChannelProc *proc, ClientData clientData ); Tcl_ChannelProc *proc, ClientData clientData );
#endif
#ifndef Tcl_CreateCloseHandler_TCL_DECLARED
#define Tcl_CreateCloseHandler_TCL_DECLARED
/* 90 */ /* 90 */
EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
Tcl_CloseProc *proc, ClientData clientData); Tcl_CloseProc *proc, ClientData clientData);
#endif
#ifndef Tcl_CreateCommand_TCL_DECLARED
#define Tcl_CreateCommand_TCL_DECLARED
/* 91 */ /* 91 */
EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
CONST char *cmdName, Tcl_CmdProc *proc, const char *cmdName, Tcl_CmdProc *proc,
ClientData clientData, ClientData clientData,
Tcl_CmdDeleteProc *deleteProc); Tcl_CmdDeleteProc *deleteProc);
#endif
#ifndef Tcl_CreateEventSource_TCL_DECLARED
#define Tcl_CreateEventSource_TCL_DECLARED
/* 92 */ /* 92 */
EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc *checkProc, Tcl_EventCheckProc *checkProc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_CreateExitHandler_TCL_DECLARED
#define Tcl_CreateExitHandler_TCL_DECLARED
/* 93 */ /* 93 */
EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_CreateInterp_TCL_DECLARED
#define Tcl_CreateInterp_TCL_DECLARED
/* 94 */ /* 94 */
EXTERN Tcl_Interp * Tcl_CreateInterp(void); EXTERN Tcl_Interp * Tcl_CreateInterp(void);
#endif
#ifndef Tcl_CreateMathFunc_TCL_DECLARED
#define Tcl_CreateMathFunc_TCL_DECLARED
/* 95 */ /* 95 */
EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp,
CONST char *name, int numArgs, const char *name, int numArgs,
Tcl_ValueType *argTypes, Tcl_MathProc *proc, Tcl_ValueType *argTypes, Tcl_MathProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_CreateObjCommand_TCL_DECLARED
#define Tcl_CreateObjCommand_TCL_DECLARED
/* 96 */ /* 96 */
EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
CONST char *cmdName, Tcl_ObjCmdProc *proc, const char *cmdName, Tcl_ObjCmdProc *proc,
ClientData clientData, ClientData clientData,
Tcl_CmdDeleteProc *deleteProc); Tcl_CmdDeleteProc *deleteProc);
#endif
#ifndef Tcl_CreateSlave_TCL_DECLARED
#define Tcl_CreateSlave_TCL_DECLARED
/* 97 */ /* 97 */
EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp,
CONST char *slaveName, int isSafe); const char *slaveName, int isSafe);
#endif
#ifndef Tcl_CreateTimerHandler_TCL_DECLARED
#define Tcl_CreateTimerHandler_TCL_DECLARED
/* 98 */ /* 98 */
EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
Tcl_TimerProc *proc, ClientData clientData); Tcl_TimerProc *proc, ClientData clientData);
#endif
#ifndef Tcl_CreateTrace_TCL_DECLARED
#define Tcl_CreateTrace_TCL_DECLARED
/* 99 */ /* 99 */
EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
Tcl_CmdTraceProc *proc, Tcl_CmdTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DeleteAssocData_TCL_DECLARED
#define Tcl_DeleteAssocData_TCL_DECLARED
/* 100 */ /* 100 */
EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
CONST char *name); const char *name);
#endif
#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED
#define Tcl_DeleteChannelHandler_TCL_DECLARED
/* 101 */ /* 101 */
EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
Tcl_ChannelProc *proc, ClientData clientData ); Tcl_ChannelProc *proc, ClientData clientData );
#endif
#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED
#define Tcl_DeleteCloseHandler_TCL_DECLARED
/* 102 */ /* 102 */
EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
Tcl_CloseProc *proc, ClientData clientData); Tcl_CloseProc *proc, ClientData clientData);
#endif
#ifndef Tcl_DeleteCommand_TCL_DECLARED
#define Tcl_DeleteCommand_TCL_DECLARED
/* 103 */ /* 103 */
EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
CONST char *cmdName); const char *cmdName);
#endif
#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED
#define Tcl_DeleteCommandFromToken_TCL_DECLARED
/* 104 */ /* 104 */
EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
Tcl_Command command); Tcl_Command command);
#endif
#ifndef Tcl_DeleteEvents_TCL_DECLARED
#define Tcl_DeleteEvents_TCL_DECLARED
/* 105 */ /* 105 */
EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DeleteEventSource_TCL_DECLARED
#define Tcl_DeleteEventSource_TCL_DECLARED
/* 106 */ /* 106 */
EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc *checkProc, Tcl_EventCheckProc *checkProc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DeleteExitHandler_TCL_DECLARED
#define Tcl_DeleteExitHandler_TCL_DECLARED
/* 107 */ /* 107 */
EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DeleteHashEntry_TCL_DECLARED
#define Tcl_DeleteHashEntry_TCL_DECLARED
/* 108 */ /* 108 */
EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
#endif
#ifndef Tcl_DeleteHashTable_TCL_DECLARED
#define Tcl_DeleteHashTable_TCL_DECLARED
/* 109 */ /* 109 */
EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
#endif
#ifndef Tcl_DeleteInterp_TCL_DECLARED
#define Tcl_DeleteInterp_TCL_DECLARED
/* 110 */ /* 110 */
EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
#endif
#ifndef Tcl_DetachPids_TCL_DECLARED
#define Tcl_DetachPids_TCL_DECLARED
/* 111 */ /* 111 */
EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
#endif
#ifndef Tcl_DeleteTimerHandler_TCL_DECLARED
#define Tcl_DeleteTimerHandler_TCL_DECLARED
/* 112 */ /* 112 */
EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
#endif
#ifndef Tcl_DeleteTrace_TCL_DECLARED
#define Tcl_DeleteTrace_TCL_DECLARED
/* 113 */ /* 113 */
EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace) ; EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace) ;
#endif
#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED
#define Tcl_DontCallWhenDeleted_TCL_DECLARED
/* 114 */ /* 114 */
EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
Tcl_InterpDeleteProc *proc, Tcl_InterpDeleteProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DoOneEvent_TCL_DECLARED
#define Tcl_DoOneEvent_TCL_DECLARED
/* 115 */ /* 115 */
EXTERN int Tcl_DoOneEvent(int flags); EXTERN int Tcl_DoOneEvent(int flags);
#endif
#ifndef Tcl_DoWhenIdle_TCL_DECLARED
#define Tcl_DoWhenIdle_TCL_DECLARED
/* 116 */ /* 116 */
EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DStringAppend_TCL_DECLARED
#define Tcl_DStringAppend_TCL_DECLARED
/* 117 */ /* 117 */
EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
CONST char *bytes, int length); const char *bytes, int length);
#endif
#ifndef Tcl_DStringAppendElement_TCL_DECLARED
#define Tcl_DStringAppendElement_TCL_DECLARED
/* 118 */ /* 118 */
EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
CONST char *element); const char *element);
#endif
#ifndef Tcl_DStringEndSublist_TCL_DECLARED
#define Tcl_DStringEndSublist_TCL_DECLARED
/* 119 */ /* 119 */
EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
#endif
#ifndef Tcl_DStringFree_TCL_DECLARED
#define Tcl_DStringFree_TCL_DECLARED
/* 120 */ /* 120 */
EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
#endif
#ifndef Tcl_DStringGetResult_TCL_DECLARED
#define Tcl_DStringGetResult_TCL_DECLARED
/* 121 */ /* 121 */
EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_DStringInit_TCL_DECLARED
#define Tcl_DStringInit_TCL_DECLARED
/* 122 */ /* 122 */
EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
#endif
#ifndef Tcl_DStringResult_TCL_DECLARED
#define Tcl_DStringResult_TCL_DECLARED
/* 123 */ /* 123 */
EXTERN void Tcl_DStringResult(Tcl_Interp *interp, EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_DStringSetLength_TCL_DECLARED
#define Tcl_DStringSetLength_TCL_DECLARED
/* 124 */ /* 124 */
EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length) ; EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length) ;
#endif
#ifndef Tcl_DStringStartSublist_TCL_DECLARED
#define Tcl_DStringStartSublist_TCL_DECLARED
/* 125 */ /* 125 */
EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
#endif
#ifndef Tcl_Eof_TCL_DECLARED
#define Tcl_Eof_TCL_DECLARED
/* 126 */ /* 126 */
EXTERN int Tcl_Eof(Tcl_Channel chan); EXTERN int Tcl_Eof(Tcl_Channel chan);
#endif
#ifndef Tcl_ErrnoId_TCL_DECLARED
#define Tcl_ErrnoId_TCL_DECLARED
/* 127 */ /* 127 */
EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
#endif
#ifndef Tcl_ErrnoMsg_TCL_DECLARED
#define Tcl_ErrnoMsg_TCL_DECLARED
/* 128 */ /* 128 */
EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
#endif
#ifndef Tcl_Eval_TCL_DECLARED
#define Tcl_Eval_TCL_DECLARED
/* 129 */ /* 129 */
EXTERN int Tcl_Eval(Tcl_Interp *interp, CONST char *script); EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script);
#endif
#ifndef Tcl_EvalFile_TCL_DECLARED
#define Tcl_EvalFile_TCL_DECLARED
/* 130 */ /* 130 */
EXTERN int Tcl_EvalFile(Tcl_Interp *interp, EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
CONST char *fileName); const char *fileName);
#endif
#ifndef Tcl_EvalObj_TCL_DECLARED
#define Tcl_EvalObj_TCL_DECLARED
/* 131 */ /* 131 */
EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_EventuallyFree_TCL_DECLARED
#define Tcl_EventuallyFree_TCL_DECLARED
/* 132 */ /* 132 */
EXTERN void Tcl_EventuallyFree(ClientData clientData, EXTERN void Tcl_EventuallyFree(ClientData clientData,
Tcl_FreeProc *freeProc); Tcl_FreeProc *freeProc);
#endif
#ifndef Tcl_Exit_TCL_DECLARED
#define Tcl_Exit_TCL_DECLARED
/* 133 */ /* 133 */
EXTERN void Tcl_Exit(int status); EXTERN void Tcl_Exit(int status);
#endif
#ifndef Tcl_ExposeCommand_TCL_DECLARED
#define Tcl_ExposeCommand_TCL_DECLARED
/* 134 */ /* 134 */
EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
CONST char *hiddenCmdToken, const char *hiddenCmdToken,
CONST char *cmdName); const char *cmdName);
#endif
#ifndef Tcl_ExprBoolean_TCL_DECLARED
#define Tcl_ExprBoolean_TCL_DECLARED
/* 135 */ /* 135 */
EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *expr , EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr ,
int *ptr); int *ptr);
#endif
#ifndef Tcl_ExprBooleanObj_TCL_DECLARED
#define Tcl_ExprBooleanObj_TCL_DECLARED
/* 136 */ /* 136 */
EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, int *ptr); Tcl_Obj *objPtr, int *ptr);
#endif
#ifndef Tcl_ExprDouble_TCL_DECLARED
#define Tcl_ExprDouble_TCL_DECLARED
/* 137 */ /* 137 */
EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *expr, EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
double *ptr); double *ptr);
#endif
#ifndef Tcl_ExprDoubleObj_TCL_DECLARED
#define Tcl_ExprDoubleObj_TCL_DECLARED
/* 138 */ /* 138 */
EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, double *ptr); Tcl_Obj *objPtr, double *ptr);
#endif
#ifndef Tcl_ExprLong_TCL_DECLARED
#define Tcl_ExprLong_TCL_DECLARED
/* 139 */ /* 139 */
EXTERN int Tcl_ExprLong(Tcl_Interp *interp, CONST char *expr, EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
long *ptr); long *ptr);
#endif
#ifndef Tcl_ExprLongObj_TCL_DECLARED
#define Tcl_ExprLongObj_TCL_DECLARED
/* 140 */ /* 140 */
EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
long *ptr); long *ptr);
#endif
#ifndef Tcl_ExprObj_TCL_DECLARED
#define Tcl_ExprObj_TCL_DECLARED
/* 141 */ /* 141 */
EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
Tcl_Obj **resultPtrPtr); Tcl_Obj **resultPtrPtr);
#endif
#ifndef Tcl_ExprString_TCL_DECLARED
#define Tcl_ExprString_TCL_DECLARED
/* 142 */ /* 142 */
EXTERN int Tcl_ExprString(Tcl_Interp *interp, CONST char *expr) EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr)
; ;
#endif
#ifndef Tcl_Finalize_TCL_DECLARED
#define Tcl_Finalize_TCL_DECLARED
/* 143 */ /* 143 */
EXTERN void Tcl_Finalize(void); EXTERN void Tcl_Finalize(void);
#endif
#ifndef Tcl_FindExecutable_TCL_DECLARED
#define Tcl_FindExecutable_TCL_DECLARED
/* 144 */ /* 144 */
EXTERN void Tcl_FindExecutable(CONST char *argv0); EXTERN void Tcl_FindExecutable(const char *argv0);
#endif
#ifndef Tcl_FirstHashEntry_TCL_DECLARED
#define Tcl_FirstHashEntry_TCL_DECLARED
/* 145 */ /* 145 */
EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
Tcl_HashSearch *searchPtr); Tcl_HashSearch *searchPtr);
#endif
#ifndef Tcl_Flush_TCL_DECLARED
#define Tcl_Flush_TCL_DECLARED
/* 146 */ /* 146 */
EXTERN int Tcl_Flush(Tcl_Channel chan); EXTERN int Tcl_Flush(Tcl_Channel chan);
#endif
#ifndef Tcl_FreeResult_TCL_DECLARED
#define Tcl_FreeResult_TCL_DECLARED
/* 147 */ /* 147 */
EXTERN void Tcl_FreeResult(Tcl_Interp *interp); EXTERN void Tcl_FreeResult(Tcl_Interp *interp);
#endif
#ifndef Tcl_GetAlias_TCL_DECLARED
#define Tcl_GetAlias_TCL_DECLARED
/* 148 */ /* 148 */
EXTERN int Tcl_GetAlias(Tcl_Interp *interp, EXTERN int Tcl_GetAlias(Tcl_Interp *interp,
CONST char *slaveCmd, const char *slaveCmd,
Tcl_Interp **targetInterpPtr, Tcl_Interp **targetInterpPtr,
CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char **targetCmdPtr, int *argcPtr,
CONST84 char ***argvPtr); CONST84 char ***argvPtr);
#endif
#ifndef Tcl_GetAliasObj_TCL_DECLARED
#define Tcl_GetAliasObj_TCL_DECLARED
/* 149 */ /* 149 */
EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
CONST char *slaveCmd, const char *slaveCmd,
Tcl_Interp **targetInterpPtr, Tcl_Interp **targetInterpPtr,
CONST84 char **targetCmdPtr, int *objcPtr, CONST84 char **targetCmdPtr, int *objcPtr,
Tcl_Obj ***objv); Tcl_Obj ***objv);
#endif
#ifndef Tcl_GetAssocData_TCL_DECLARED
#define Tcl_GetAssocData_TCL_DECLARED
/* 150 */ /* 150 */
EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp,
CONST char *name, const char *name,
Tcl_InterpDeleteProc **procPtr); Tcl_InterpDeleteProc **procPtr);
#endif
#ifndef Tcl_GetChannel_TCL_DECLARED
#define Tcl_GetChannel_TCL_DECLARED
/* 151 */ /* 151 */
EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
CONST char *chanName, int *modePtr); const char *chanName, int *modePtr);
#endif
#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED
#define Tcl_GetChannelBufferSize_TCL_DECLARED
/* 152 */ /* 152 */
EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan);
#endif
#ifndef Tcl_GetChannelHandle_TCL_DECLARED
#define Tcl_GetChannelHandle_TCL_DECLARED
/* 153 */ /* 153 */
EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction , EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction ,
ClientData *handlePtr); ClientData *handlePtr);
#endif
#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED
#define Tcl_GetChannelInstanceData_TCL_DECLARED
/* 154 */ /* 154 */
EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan);
#endif
#ifndef Tcl_GetChannelMode_TCL_DECLARED
#define Tcl_GetChannelMode_TCL_DECLARED
/* 155 */ /* 155 */
EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
#endif
#ifndef Tcl_GetChannelName_TCL_DECLARED
#define Tcl_GetChannelName_TCL_DECLARED
/* 156 */ /* 156 */
EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
#endif
#ifndef Tcl_GetChannelOption_TCL_DECLARED
#define Tcl_GetChannelOption_TCL_DECLARED
/* 157 */ /* 157 */
EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
Tcl_Channel chan, CONST char *optionName, Tcl_Channel chan, const char *optionName,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_GetChannelType_TCL_DECLARED
#define Tcl_GetChannelType_TCL_DECLARED
/* 158 */ /* 158 */
EXTERN Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
#endif
#ifndef Tcl_GetCommandInfo_TCL_DECLARED
#define Tcl_GetCommandInfo_TCL_DECLARED
/* 159 */ /* 159 */
EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
CONST char *cmdName, Tcl_CmdInfo *infoPtr); const char *cmdName, Tcl_CmdInfo *infoPtr);
#endif
#ifndef Tcl_GetCommandName_TCL_DECLARED
#define Tcl_GetCommandName_TCL_DECLARED
/* 160 */ /* 160 */
EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
Tcl_Command command); Tcl_Command command);
#endif
#ifndef Tcl_GetErrno_TCL_DECLARED
#define Tcl_GetErrno_TCL_DECLARED
/* 161 */ /* 161 */
EXTERN int Tcl_GetErrno(void); EXTERN int Tcl_GetErrno(void);
#endif
#ifndef Tcl_GetHostName_TCL_DECLARED
#define Tcl_GetHostName_TCL_DECLARED
/* 162 */ /* 162 */
EXTERN CONST84_RETURN char * Tcl_GetHostName(void); EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
#endif
#ifndef Tcl_GetInterpPath_TCL_DECLARED
#define Tcl_GetInterpPath_TCL_DECLARED
/* 163 */ /* 163 */
EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp, EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp,
Tcl_Interp *slaveInterp); Tcl_Interp *slaveInterp);
#endif
#ifndef Tcl_GetMaster_TCL_DECLARED
#define Tcl_GetMaster_TCL_DECLARED
/* 164 */ /* 164 */
EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
#endif
#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED
#define Tcl_GetNameOfExecutable_TCL_DECLARED
/* 165 */ /* 165 */
EXTERN CONST char * Tcl_GetNameOfExecutable(void); EXTERN const char * Tcl_GetNameOfExecutable(void);
#endif
#ifndef Tcl_GetObjResult_TCL_DECLARED
#define Tcl_GetObjResult_TCL_DECLARED
/* 166 */ /* 166 */
EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_GetOpenFile_TCL_DECLARED
#define Tcl_GetOpenFile_TCL_DECLARED
/* 167 */ /* 167 */
EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
CONST char *chanID, int forWriting, const char *chanID, int forWriting,
int checkUsage, ClientData *filePtr); int checkUsage, ClientData *filePtr);
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_GetOpenFile_TCL_DECLARED
#define Tcl_GetOpenFile_TCL_DECLARED
/* 167 */ /* 167 */
EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
CONST char *chanID, int forWriting, const char *chanID, int forWriting,
int checkUsage, ClientData *filePtr); int checkUsage, ClientData *filePtr);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#ifndef Tcl_GetPathType_TCL_DECLARED
#define Tcl_GetPathType_TCL_DECLARED
/* 168 */ /* 168 */
EXTERN Tcl_PathType Tcl_GetPathType(CONST char *path); EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
#endif
#ifndef Tcl_Gets_TCL_DECLARED
#define Tcl_Gets_TCL_DECLARED
/* 169 */ /* 169 */
EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
#endif
#ifndef Tcl_GetsObj_TCL_DECLARED
#define Tcl_GetsObj_TCL_DECLARED
/* 170 */ /* 170 */
EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetServiceMode_TCL_DECLARED
#define Tcl_GetServiceMode_TCL_DECLARED
/* 171 */ /* 171 */
EXTERN int Tcl_GetServiceMode(void); EXTERN int Tcl_GetServiceMode(void);
#endif
#ifndef Tcl_GetSlave_TCL_DECLARED
#define Tcl_GetSlave_TCL_DECLARED
/* 172 */ /* 172 */
EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp,
CONST char *slaveName); const char *slaveName);
#endif
#ifndef Tcl_GetStdChannel_TCL_DECLARED
#define Tcl_GetStdChannel_TCL_DECLARED
/* 173 */ /* 173 */
EXTERN Tcl_Channel Tcl_GetStdChannel(int type); EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
#endif
#ifndef Tcl_GetStringResult_TCL_DECLARED
#define Tcl_GetStringResult_TCL_DECLARED
/* 174 */ /* 174 */
EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
#endif
#ifndef Tcl_GetVar_TCL_DECLARED
#define Tcl_GetVar_TCL_DECLARED
/* 175 */ /* 175 */
EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
CONST char *varName, int flags); const char *varName, int flags);
#endif
#ifndef Tcl_GetVar2_TCL_DECLARED
#define Tcl_GetVar2_TCL_DECLARED
/* 176 */ /* 176 */
EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
CONST char *part1, CONST char *part2, const char *part1, const char *part2,
int flags); int flags);
#endif
#ifndef Tcl_GlobalEval_TCL_DECLARED
#define Tcl_GlobalEval_TCL_DECLARED
/* 177 */ /* 177 */
EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, EXTERN int Tcl_GlobalEval(Tcl_Interp *interp,
CONST char *command); const char *command);
#endif
#ifndef Tcl_GlobalEvalObj_TCL_DECLARED
#define Tcl_GlobalEvalObj_TCL_DECLARED
/* 178 */ /* 178 */
EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp,
Tcl_Obj *objPtr); Tcl_Obj *objPtr);
#endif
#ifndef Tcl_HideCommand_TCL_DECLARED
#define Tcl_HideCommand_TCL_DECLARED
/* 179 */ /* 179 */
EXTERN int Tcl_HideCommand(Tcl_Interp *interp, EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
CONST char *cmdName, const char *cmdName,
CONST char *hiddenCmdToken); const char *hiddenCmdToken);
#endif
#ifndef Tcl_Init_TCL_DECLARED
#define Tcl_Init_TCL_DECLARED
/* 180 */ /* 180 */
EXTERN int Tcl_Init(Tcl_Interp *interp); EXTERN int Tcl_Init(Tcl_Interp *interp);
#endif
#ifndef Tcl_InitHashTable_TCL_DECLARED
#define Tcl_InitHashTable_TCL_DECLARED
/* 181 */ /* 181 */
EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
int keyType); int keyType);
#endif
#ifndef Tcl_InputBlocked_TCL_DECLARED
#define Tcl_InputBlocked_TCL_DECLARED
/* 182 */ /* 182 */
EXTERN int Tcl_InputBlocked(Tcl_Channel chan); EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
#endif
#ifndef Tcl_InputBuffered_TCL_DECLARED
#define Tcl_InputBuffered_TCL_DECLARED
/* 183 */ /* 183 */
EXTERN int Tcl_InputBuffered(Tcl_Channel chan); EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
#endif
#ifndef Tcl_InterpDeleted_TCL_DECLARED
#define Tcl_InterpDeleted_TCL_DECLARED
/* 184 */ /* 184 */
EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
#endif
#ifndef Tcl_IsSafe_TCL_DECLARED
#define Tcl_IsSafe_TCL_DECLARED
/* 185 */ /* 185 */
EXTERN int Tcl_IsSafe(Tcl_Interp *interp); EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
#endif
#ifndef Tcl_JoinPath_TCL_DECLARED
#define Tcl_JoinPath_TCL_DECLARED
/* 186 */ /* 186 */
EXTERN char * Tcl_JoinPath(int argc, CONST84 char *CONST *argv, EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv,
Tcl_DString *resultPtr); Tcl_DString *resultPtr);
#endif
#ifndef Tcl_LinkVar_TCL_DECLARED
#define Tcl_LinkVar_TCL_DECLARED
/* 187 */ /* 187 */
EXTERN int Tcl_LinkVar(Tcl_Interp *interp, CONST char *varName, EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
char *addr, int type); char *addr, int type);
#endif
/* Slot 188 is reserved */ /* Slot 188 is reserved */
#ifndef Tcl_MakeFileChannel_TCL_DECLARED
#define Tcl_MakeFileChannel_TCL_DECLARED
/* 189 */ /* 189 */
EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode);
#endif
#ifndef Tcl_MakeSafe_TCL_DECLARED
#define Tcl_MakeSafe_TCL_DECLARED
/* 190 */ /* 190 */
EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); EXTERN int Tcl_MakeSafe(Tcl_Interp *interp);
#endif
#ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED
#define Tcl_MakeTcpClientChannel_TCL_DECLARED
/* 191 */ /* 191 */
EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket);
#endif
#ifndef Tcl_Merge_TCL_DECLARED
#define Tcl_Merge_TCL_DECLARED
/* 192 */ /* 192 */
EXTERN char * Tcl_Merge(int argc, CONST84 char *CONST *argv); EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv);
#endif
#ifndef Tcl_NextHashEntry_TCL_DECLARED
#define Tcl_NextHashEntry_TCL_DECLARED
/* 193 */ /* 193 */
EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
#endif
#ifndef Tcl_NotifyChannel_TCL_DECLARED
#define Tcl_NotifyChannel_TCL_DECLARED
/* 194 */ /* 194 */
EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
#endif
#ifndef Tcl_ObjGetVar2_TCL_DECLARED
#define Tcl_ObjGetVar2_TCL_DECLARED
/* 195 */ /* 195 */
EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr , EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr ,
Tcl_Obj *part2Ptr, int flags); Tcl_Obj *part2Ptr, int flags);
#endif
#ifndef Tcl_ObjSetVar2_TCL_DECLARED
#define Tcl_ObjSetVar2_TCL_DECLARED
/* 196 */ /* 196 */
EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr , EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr ,
Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
int flags); int flags);
#endif
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */ /* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
CONST84 char **argv, int flags); CONST84 char **argv, int flags);
#endif
#ifndef Tcl_OpenFileChannel_TCL_DECLARED
#define Tcl_OpenFileChannel_TCL_DECLARED
/* 198 */ /* 198 */
EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
CONST char *fileName, CONST char *modeString , const char *fileName, const char *modeString ,
int permissions); int permissions);
#endif
#ifndef Tcl_OpenTcpClient_TCL_DECLARED
#define Tcl_OpenTcpClient_TCL_DECLARED
/* 199 */ /* 199 */
EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
CONST char *address, CONST char *myaddr, const char *address, const char *myaddr,
int myport, int async); int myport, int async);
#endif
#ifndef Tcl_OpenTcpServer_TCL_DECLARED
#define Tcl_OpenTcpServer_TCL_DECLARED
/* 200 */ /* 200 */
EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
CONST char *host, const char *host,
Tcl_TcpAcceptProc *acceptProc, Tcl_TcpAcceptProc *acceptProc,
ClientData callbackData); ClientData callbackData);
#endif
#ifndef Tcl_Preserve_TCL_DECLARED
#define Tcl_Preserve_TCL_DECLARED
/* 201 */ /* 201 */
EXTERN void Tcl_Preserve(ClientData data); EXTERN void Tcl_Preserve(ClientData data);
#endif
#ifndef Tcl_PrintDouble_TCL_DECLARED
#define Tcl_PrintDouble_TCL_DECLARED
/* 202 */ /* 202 */
EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
char *dst); char *dst);
#endif
#ifndef Tcl_PutEnv_TCL_DECLARED
#define Tcl_PutEnv_TCL_DECLARED
/* 203 */ /* 203 */
EXTERN int Tcl_PutEnv(CONST char *assignment); EXTERN int Tcl_PutEnv(const char *assignment);
#endif
#ifndef Tcl_PosixError_TCL_DECLARED
#define Tcl_PosixError_TCL_DECLARED
/* 204 */ /* 204 */
EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
#endif
#ifndef Tcl_QueueEvent_TCL_DECLARED
#define Tcl_QueueEvent_TCL_DECLARED
/* 205 */ /* 205 */
EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr,
Tcl_QueuePosition position); Tcl_QueuePosition position);
#endif
#ifndef Tcl_Read_TCL_DECLARED
#define Tcl_Read_TCL_DECLARED
/* 206 */ /* 206 */
EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead) ; EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead) ;
#endif
#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
#define Tcl_ReapDetachedProcs_TCL_DECLARED
/* 207 */ /* 207 */
EXTERN void Tcl_ReapDetachedProcs(void); EXTERN void Tcl_ReapDetachedProcs(void);
#endif
#ifndef Tcl_RecordAndEval_TCL_DECLARED
#define Tcl_RecordAndEval_TCL_DECLARED
/* 208 */ /* 208 */
EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
CONST char *cmd, int flags); const char *cmd, int flags);
#endif
#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED
#define Tcl_RecordAndEvalObj_TCL_DECLARED
/* 209 */ /* 209 */
EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
Tcl_Obj *cmdPtr, int flags); Tcl_Obj *cmdPtr, int flags);
#endif
#ifndef Tcl_RegisterChannel_TCL_DECLARED
#define Tcl_RegisterChannel_TCL_DECLARED
/* 210 */ /* 210 */
EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
Tcl_Channel chan); Tcl_Channel chan);
#endif
#ifndef Tcl_RegisterObjType_TCL_DECLARED
#define Tcl_RegisterObjType_TCL_DECLARED
/* 211 */ /* 211 */
EXTERN void Tcl_RegisterObjType(Tcl_ObjType *typePtr); EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
#endif
#ifndef Tcl_RegExpCompile_TCL_DECLARED
#define Tcl_RegExpCompile_TCL_DECLARED
/* 212 */ /* 212 */
EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
CONST char *pattern); const char *pattern);
#endif
#ifndef Tcl_RegExpExec_TCL_DECLARED
#define Tcl_RegExpExec_TCL_DECLARED
/* 213 */ /* 213 */
EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp , EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp ,
CONST char *text, CONST char *start); const char *text, const char *start);
#endif
#ifndef Tcl_RegExpMatch_TCL_DECLARED
#define Tcl_RegExpMatch_TCL_DECLARED
/* 214 */ /* 214 */
EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, CONST char *text EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text
, ,
CONST char *pattern); const char *pattern);
#endif
#ifndef Tcl_RegExpRange_TCL_DECLARED
#define Tcl_RegExpRange_TCL_DECLARED
/* 215 */ /* 215 */
EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
CONST84 char **startPtr, CONST84 char **startPtr,
CONST84 char **endPtr); CONST84 char **endPtr);
#endif
#ifndef Tcl_Release_TCL_DECLARED
#define Tcl_Release_TCL_DECLARED
/* 216 */ /* 216 */
EXTERN void Tcl_Release(ClientData clientData); EXTERN void Tcl_Release(ClientData clientData);
#endif
#ifndef Tcl_ResetResult_TCL_DECLARED
#define Tcl_ResetResult_TCL_DECLARED
/* 217 */ /* 217 */
EXTERN void Tcl_ResetResult(Tcl_Interp *interp); EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
#endif
#ifndef Tcl_ScanElement_TCL_DECLARED
#define Tcl_ScanElement_TCL_DECLARED
/* 218 */ /* 218 */
EXTERN int Tcl_ScanElement(CONST char *src, int *flagPtr); EXTERN int Tcl_ScanElement(const char *src, int *flagPtr);
#endif
#ifndef Tcl_ScanCountedElement_TCL_DECLARED
#define Tcl_ScanCountedElement_TCL_DECLARED
/* 219 */ /* 219 */
EXTERN int Tcl_ScanCountedElement(CONST char *src, int length, EXTERN int Tcl_ScanCountedElement(const char *src, int length,
int *flagPtr); int *flagPtr);
#endif
#ifndef Tcl_SeekOld_TCL_DECLARED
#define Tcl_SeekOld_TCL_DECLARED
/* 220 */ /* 220 */
EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
#endif
#ifndef Tcl_ServiceAll_TCL_DECLARED
#define Tcl_ServiceAll_TCL_DECLARED
/* 221 */ /* 221 */
EXTERN int Tcl_ServiceAll(void); EXTERN int Tcl_ServiceAll(void);
#endif
#ifndef Tcl_ServiceEvent_TCL_DECLARED
#define Tcl_ServiceEvent_TCL_DECLARED
/* 222 */ /* 222 */
EXTERN int Tcl_ServiceEvent(int flags); EXTERN int Tcl_ServiceEvent(int flags);
#endif
#ifndef Tcl_SetAssocData_TCL_DECLARED
#define Tcl_SetAssocData_TCL_DECLARED
/* 223 */ /* 223 */
EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
CONST char *name, Tcl_InterpDeleteProc *proc , const char *name, Tcl_InterpDeleteProc *proc ,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED
#define Tcl_SetChannelBufferSize_TCL_DECLARED
/* 224 */ /* 224 */
EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
#endif
#ifndef Tcl_SetChannelOption_TCL_DECLARED
#define Tcl_SetChannelOption_TCL_DECLARED
/* 225 */ /* 225 */
EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
Tcl_Channel chan, CONST char *optionName, Tcl_Channel chan, const char *optionName,
CONST char *newValue); const char *newValue);
#endif
#ifndef Tcl_SetCommandInfo_TCL_DECLARED
#define Tcl_SetCommandInfo_TCL_DECLARED
/* 226 */ /* 226 */
EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
CONST char *cmdName, const char *cmdName,
CONST Tcl_CmdInfo *infoPtr); const Tcl_CmdInfo *infoPtr);
#endif
#ifndef Tcl_SetErrno_TCL_DECLARED
#define Tcl_SetErrno_TCL_DECLARED
/* 227 */ /* 227 */
EXTERN void Tcl_SetErrno(int err); EXTERN void Tcl_SetErrno(int err);
#endif
#ifndef Tcl_SetErrorCode_TCL_DECLARED
#define Tcl_SetErrorCode_TCL_DECLARED
/* 228 */ /* 228 */
EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
#endif
#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED
#define Tcl_SetMaxBlockTime_TCL_DECLARED
/* 229 */ /* 229 */
EXTERN void Tcl_SetMaxBlockTime(Tcl_Time *timePtr); EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
#endif
#ifndef Tcl_SetPanicProc_TCL_DECLARED
#define Tcl_SetPanicProc_TCL_DECLARED
/* 230 */ /* 230 */
EXTERN void Tcl_SetPanicProc(Tcl_PanicProc *panicProc); EXTERN void Tcl_SetPanicProc(Tcl_PanicProc *panicProc);
#endif
#ifndef Tcl_SetRecursionLimit_TCL_DECLARED
#define Tcl_SetRecursionLimit_TCL_DECLARED
/* 231 */ /* 231 */
EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) ; EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) ;
#endif
#ifndef Tcl_SetResult_TCL_DECLARED
#define Tcl_SetResult_TCL_DECLARED
/* 232 */ /* 232 */
EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result,
Tcl_FreeProc *freeProc); Tcl_FreeProc *freeProc);
#endif
#ifndef Tcl_SetServiceMode_TCL_DECLARED
#define Tcl_SetServiceMode_TCL_DECLARED
/* 233 */ /* 233 */
EXTERN int Tcl_SetServiceMode(int mode); EXTERN int Tcl_SetServiceMode(int mode);
#endif
#ifndef Tcl_SetObjErrorCode_TCL_DECLARED
#define Tcl_SetObjErrorCode_TCL_DECLARED
/* 234 */ /* 234 */
EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
Tcl_Obj *errorObjPtr); Tcl_Obj *errorObjPtr);
#endif
#ifndef Tcl_SetObjResult_TCL_DECLARED
#define Tcl_SetObjResult_TCL_DECLARED
/* 235 */ /* 235 */
EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
Tcl_Obj *resultObjPtr); Tcl_Obj *resultObjPtr);
#endif
#ifndef Tcl_SetStdChannel_TCL_DECLARED
#define Tcl_SetStdChannel_TCL_DECLARED
/* 236 */ /* 236 */
EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
#endif
#ifndef Tcl_SetVar_TCL_DECLARED
#define Tcl_SetVar_TCL_DECLARED
/* 237 */ /* 237 */
EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
CONST char *varName, CONST char *newValue, const char *varName, const char *newValue,
int flags); int flags);
#endif
#ifndef Tcl_SetVar2_TCL_DECLARED
#define Tcl_SetVar2_TCL_DECLARED
/* 238 */ /* 238 */
EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
CONST char *part1, CONST char *part2, const char *part1, const char *part2,
CONST char *newValue, int flags); const char *newValue, int flags);
#endif
#ifndef Tcl_SignalId_TCL_DECLARED
#define Tcl_SignalId_TCL_DECLARED
/* 239 */ /* 239 */
EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
#endif
#ifndef Tcl_SignalMsg_TCL_DECLARED
#define Tcl_SignalMsg_TCL_DECLARED
/* 240 */ /* 240 */
EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
#endif
#ifndef Tcl_SourceRCFile_TCL_DECLARED
#define Tcl_SourceRCFile_TCL_DECLARED
/* 241 */ /* 241 */
EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
#endif
#ifndef Tcl_SplitList_TCL_DECLARED
#define Tcl_SplitList_TCL_DECLARED
/* 242 */ /* 242 */
EXTERN int Tcl_SplitList(Tcl_Interp *interp, EXTERN int Tcl_SplitList(Tcl_Interp *interp,
CONST char *listStr, int *argcPtr, const char *listStr, int *argcPtr,
CONST84 char ***argvPtr); CONST84 char ***argvPtr);
#endif
#ifndef Tcl_SplitPath_TCL_DECLARED
#define Tcl_SplitPath_TCL_DECLARED
/* 243 */ /* 243 */
EXTERN void Tcl_SplitPath(CONST char *path, int *argcPtr, EXTERN void Tcl_SplitPath(const char *path, int *argcPtr,
CONST84 char ***argvPtr); CONST84 char ***argvPtr);
#endif
#ifndef Tcl_StaticPackage_TCL_DECLARED
#define Tcl_StaticPackage_TCL_DECLARED
/* 244 */ /* 244 */
EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, EXTERN void Tcl_StaticPackage(Tcl_Interp *interp,
CONST char *pkgName, const char *pkgName,
Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *initProc,
Tcl_PackageInitProc *safeInitProc); Tcl_PackageInitProc *safeInitProc);
#endif
#ifndef Tcl_StringMatch_TCL_DECLARED
#define Tcl_StringMatch_TCL_DECLARED
/* 245 */ /* 245 */
EXTERN int Tcl_StringMatch(CONST char *str, CONST char *pattern EXTERN int Tcl_StringMatch(const char *str, const char *pattern
); );
#endif
#ifndef Tcl_TellOld_TCL_DECLARED
#define Tcl_TellOld_TCL_DECLARED
/* 246 */ /* 246 */
EXTERN int Tcl_TellOld(Tcl_Channel chan); EXTERN int Tcl_TellOld(Tcl_Channel chan);
#endif
#ifndef Tcl_TraceVar_TCL_DECLARED
#define Tcl_TraceVar_TCL_DECLARED
/* 247 */ /* 247 */
EXTERN int Tcl_TraceVar(Tcl_Interp *interp, CONST char *varName , EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName ,
int flags, Tcl_VarTraceProc *proc, int flags, Tcl_VarTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_TraceVar2_TCL_DECLARED
#define Tcl_TraceVar2_TCL_DECLARED
/* 248 */ /* 248 */
EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, CONST char *part1, EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
CONST char *part2, int flags, const char *part2, int flags,
Tcl_VarTraceProc *proc, Tcl_VarTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_TranslateFileName_TCL_DECLARED
#define Tcl_TranslateFileName_TCL_DECLARED
/* 249 */ /* 249 */
EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
CONST char *name, Tcl_DString *bufferPtr); const char *name, Tcl_DString *bufferPtr);
#endif
#ifndef Tcl_Ungets_TCL_DECLARED
#define Tcl_Ungets_TCL_DECLARED
/* 250 */ /* 250 */
EXTERN int Tcl_Ungets(Tcl_Channel chan, CONST char *str, EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str,
int len, int atHead); int len, int atHead);
#endif
#ifndef Tcl_UnlinkVar_TCL_DECLARED
#define Tcl_UnlinkVar_TCL_DECLARED
/* 251 */ /* 251 */
EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
CONST char *varName); const char *varName);
#endif
#ifndef Tcl_UnregisterChannel_TCL_DECLARED
#define Tcl_UnregisterChannel_TCL_DECLARED
/* 252 */ /* 252 */
EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
Tcl_Channel chan); Tcl_Channel chan);
#endif
#ifndef Tcl_UnsetVar_TCL_DECLARED
#define Tcl_UnsetVar_TCL_DECLARED
/* 253 */ /* 253 */
EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, CONST char *varName , EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName ,
int flags); int flags);
#endif
#ifndef Tcl_UnsetVar2_TCL_DECLARED
#define Tcl_UnsetVar2_TCL_DECLARED
/* 254 */ /* 254 */
EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, CONST char *part1, EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
CONST char *part2, int flags); const char *part2, int flags);
#endif
#ifndef Tcl_UntraceVar_TCL_DECLARED
#define Tcl_UntraceVar_TCL_DECLARED
/* 255 */ /* 255 */
EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, EXTERN void Tcl_UntraceVar(Tcl_Interp *interp,
CONST char *varName, int flags, const char *varName, int flags,
Tcl_VarTraceProc *proc, Tcl_VarTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_UntraceVar2_TCL_DECLARED
#define Tcl_UntraceVar2_TCL_DECLARED
/* 256 */ /* 256 */
EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
CONST char *part1, CONST char *part2, const char *part1, const char *part2,
int flags, Tcl_VarTraceProc *proc, int flags, Tcl_VarTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED
#define Tcl_UpdateLinkedVar_TCL_DECLARED
/* 257 */ /* 257 */
EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
CONST char *varName); const char *varName);
#endif
#ifndef Tcl_UpVar_TCL_DECLARED
#define Tcl_UpVar_TCL_DECLARED
/* 258 */ /* 258 */
EXTERN int Tcl_UpVar(Tcl_Interp *interp, CONST char *frameName, EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
CONST char *varName, CONST char *localName, const char *varName, const char *localName,
int flags); int flags);
#endif
#ifndef Tcl_UpVar2_TCL_DECLARED
#define Tcl_UpVar2_TCL_DECLARED
/* 259 */ /* 259 */
EXTERN int Tcl_UpVar2(Tcl_Interp *interp, CONST char *frameName EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName
, ,
CONST char *part1, CONST char *part2, const char *part1, const char *part2,
CONST char *localName, int flags); const char *localName, int flags);
#endif
#ifndef Tcl_VarEval_TCL_DECLARED
#define Tcl_VarEval_TCL_DECLARED
/* 260 */ /* 260 */
EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
#endif
#ifndef Tcl_VarTraceInfo_TCL_DECLARED
#define Tcl_VarTraceInfo_TCL_DECLARED
/* 261 */ /* 261 */
EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp,
CONST char *varName, int flags, const char *varName, int flags,
Tcl_VarTraceProc *procPtr, Tcl_VarTraceProc *procPtr,
ClientData prevClientData); ClientData prevClientData);
#endif
#ifndef Tcl_VarTraceInfo2_TCL_DECLARED
#define Tcl_VarTraceInfo2_TCL_DECLARED
/* 262 */ /* 262 */
EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp,
CONST char *part1, CONST char *part2, const char *part1, const char *part2,
int flags, Tcl_VarTraceProc *procPtr, int flags, Tcl_VarTraceProc *procPtr,
ClientData prevClientData); ClientData prevClientData);
#endif
#ifndef Tcl_Write_TCL_DECLARED
#define Tcl_Write_TCL_DECLARED
/* 263 */ /* 263 */
EXTERN int Tcl_Write(Tcl_Channel chan, CONST char *s, int slen) EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen)
; ;
#endif
#ifndef Tcl_WrongNumArgs_TCL_DECLARED
#define Tcl_WrongNumArgs_TCL_DECLARED
/* 264 */ /* 264 */
EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
Tcl_Obj *CONST objv[], CONST char *message); Tcl_Obj *const objv[], const char *message);
#endif
#ifndef Tcl_DumpActiveMemory_TCL_DECLARED
#define Tcl_DumpActiveMemory_TCL_DECLARED
/* 265 */ /* 265 */
EXTERN int Tcl_DumpActiveMemory(CONST char *fileName); EXTERN int Tcl_DumpActiveMemory(const char *fileName);
#endif
#ifndef Tcl_ValidateAllMemory_TCL_DECLARED
#define Tcl_ValidateAllMemory_TCL_DECLARED
/* 266 */ /* 266 */
EXTERN void Tcl_ValidateAllMemory(CONST char *file, int line); EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
#endif
#ifndef Tcl_AppendResultVA_TCL_DECLARED
#define Tcl_AppendResultVA_TCL_DECLARED
/* 267 */ /* 267 */
EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp,
va_list argList); va_list argList);
#endif
#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED
#define Tcl_AppendStringsToObjVA_TCL_DECLARED
/* 268 */ /* 268 */
EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
va_list argList); va_list argList);
#endif
#ifndef Tcl_HashStats_TCL_DECLARED
#define Tcl_HashStats_TCL_DECLARED
/* 269 */ /* 269 */
EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
#endif
#ifndef Tcl_ParseVar_TCL_DECLARED
#define Tcl_ParseVar_TCL_DECLARED
/* 270 */ /* 270 */
EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
CONST char *start, CONST84 char **termPtr); const char *start, CONST84 char **termPtr);
#endif
#ifndef Tcl_PkgPresent_TCL_DECLARED
#define Tcl_PkgPresent_TCL_DECLARED
/* 271 */ /* 271 */
EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
CONST char *name, CONST char *version, const char *name, const char *version,
int exact); int exact);
#endif
#ifndef Tcl_PkgPresentEx_TCL_DECLARED
#define Tcl_PkgPresentEx_TCL_DECLARED
/* 272 */ /* 272 */
EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
CONST char *name, CONST char *version, const char *name, const char *version,
int exact, ClientData *clientDataPtr); int exact, void *clientDataPtr);
#endif
#ifndef Tcl_PkgProvide_TCL_DECLARED
#define Tcl_PkgProvide_TCL_DECLARED
/* 273 */ /* 273 */
EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
CONST char *version); const char *version);
#endif
#ifndef Tcl_PkgRequire_TCL_DECLARED
#define Tcl_PkgRequire_TCL_DECLARED
/* 274 */ /* 274 */
EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
CONST char *name, CONST char *version, const char *name, const char *version,
int exact); int exact);
#endif
#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED
#define Tcl_SetErrorCodeVA_TCL_DECLARED
/* 275 */ /* 275 */
EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp,
va_list argList); va_list argList);
#endif
#ifndef Tcl_VarEvalVA_TCL_DECLARED
#define Tcl_VarEvalVA_TCL_DECLARED
/* 276 */ /* 276 */
EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
#endif
#ifndef Tcl_WaitPid_TCL_DECLARED
#define Tcl_WaitPid_TCL_DECLARED
/* 277 */ /* 277 */
EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
#endif
#ifndef Tcl_PanicVA_TCL_DECLARED
#define Tcl_PanicVA_TCL_DECLARED
/* 278 */ /* 278 */
EXTERN void Tcl_PanicVA(CONST char *format, va_list argList); EXTERN void Tcl_PanicVA(const char *format, va_list argList);
#endif
#ifndef Tcl_GetVersion_TCL_DECLARED
#define Tcl_GetVersion_TCL_DECLARED
/* 279 */ /* 279 */
EXTERN void Tcl_GetVersion(int *major, int *minor, EXTERN void Tcl_GetVersion(int *major, int *minor,
int *patchLevel, int *type); int *patchLevel, int *type);
#endif
#ifndef Tcl_InitMemory_TCL_DECLARED
#define Tcl_InitMemory_TCL_DECLARED
/* 280 */ /* 280 */
EXTERN void Tcl_InitMemory(Tcl_Interp *interp); EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
#endif
#ifndef Tcl_StackChannel_TCL_DECLARED
#define Tcl_StackChannel_TCL_DECLARED
/* 281 */ /* 281 */
EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
Tcl_ChannelType *typePtr, const Tcl_ChannelType *typePtr,
ClientData instanceData, int mask, ClientData instanceData, int mask,
Tcl_Channel prevChan); Tcl_Channel prevChan);
#endif
#ifndef Tcl_UnstackChannel_TCL_DECLARED
#define Tcl_UnstackChannel_TCL_DECLARED
/* 282 */ /* 282 */
EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
Tcl_Channel chan); Tcl_Channel chan);
#endif
#ifndef Tcl_GetStackedChannel_TCL_DECLARED
#define Tcl_GetStackedChannel_TCL_DECLARED
/* 283 */ /* 283 */
EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
#endif
#ifndef Tcl_SetMainLoop_TCL_DECLARED
#define Tcl_SetMainLoop_TCL_DECLARED
/* 284 */ /* 284 */
EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
#endif
/* Slot 285 is reserved */ /* Slot 285 is reserved */
#ifndef Tcl_AppendObjToObj_TCL_DECLARED
#define Tcl_AppendObjToObj_TCL_DECLARED
/* 286 */ /* 286 */
EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
Tcl_Obj *appendObjPtr); Tcl_Obj *appendObjPtr);
#endif
#ifndef Tcl_CreateEncoding_TCL_DECLARED
#define Tcl_CreateEncoding_TCL_DECLARED
/* 287 */ /* 287 */
EXTERN Tcl_Encoding Tcl_CreateEncoding(CONST Tcl_EncodingType *typePtr); EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
#endif
#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED
#define Tcl_CreateThreadExitHandler_TCL_DECLARED
/* 288 */ /* 288 */
EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED
#define Tcl_DeleteThreadExitHandler_TCL_DECLARED
/* 289 */ /* 289 */
EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_DiscardResult_TCL_DECLARED
#define Tcl_DiscardResult_TCL_DECLARED
/* 290 */ /* 290 */
EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr);
#endif
#ifndef Tcl_EvalEx_TCL_DECLARED
#define Tcl_EvalEx_TCL_DECLARED
/* 291 */ /* 291 */
EXTERN int Tcl_EvalEx(Tcl_Interp *interp, CONST char *script, EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
int numBytes, int flags); int numBytes, int flags);
#endif
#ifndef Tcl_EvalObjv_TCL_DECLARED
#define Tcl_EvalObjv_TCL_DECLARED
/* 292 */ /* 292 */
EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc,
Tcl_Obj *CONST objv[], int flags); Tcl_Obj *const objv[], int flags);
#endif
#ifndef Tcl_EvalObjEx_TCL_DECLARED
#define Tcl_EvalObjEx_TCL_DECLARED
/* 293 */ /* 293 */
EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
int flags); int flags);
#endif
#ifndef Tcl_ExitThread_TCL_DECLARED
#define Tcl_ExitThread_TCL_DECLARED
/* 294 */ /* 294 */
EXTERN void Tcl_ExitThread(int status); EXTERN void Tcl_ExitThread(int status);
#endif
#ifndef Tcl_ExternalToUtf_TCL_DECLARED
#define Tcl_ExternalToUtf_TCL_DECLARED
/* 295 */ /* 295 */
EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp, EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
Tcl_Encoding encoding, CONST char *src, Tcl_Encoding encoding, const char *src,
int srcLen, int flags, int srcLen, int flags,
Tcl_EncodingState *statePtr, char *dst, Tcl_EncodingState *statePtr, char *dst,
int dstLen, int *srcReadPtr, int dstLen, int *srcReadPtr,
int *dstWrotePtr, int *dstCharsPtr); int *dstWrotePtr, int *dstCharsPtr);
#endif
#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED
#define Tcl_ExternalToUtfDString_TCL_DECLARED
/* 296 */ /* 296 */
EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
CONST char *src, int srcLen, const char *src, int srcLen,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_FinalizeThread_TCL_DECLARED
#define Tcl_FinalizeThread_TCL_DECLARED
/* 297 */ /* 297 */
EXTERN void Tcl_FinalizeThread(void); EXTERN void Tcl_FinalizeThread(void);
#endif
#ifndef Tcl_FinalizeNotifier_TCL_DECLARED
#define Tcl_FinalizeNotifier_TCL_DECLARED
/* 298 */ /* 298 */
EXTERN void Tcl_FinalizeNotifier(ClientData clientData); EXTERN void Tcl_FinalizeNotifier(ClientData clientData);
#endif
#ifndef Tcl_FreeEncoding_TCL_DECLARED
#define Tcl_FreeEncoding_TCL_DECLARED
/* 299 */ /* 299 */
EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
#endif
#ifndef Tcl_GetCurrentThread_TCL_DECLARED
#define Tcl_GetCurrentThread_TCL_DECLARED
/* 300 */ /* 300 */
EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
#endif
#ifndef Tcl_GetEncoding_TCL_DECLARED
#define Tcl_GetEncoding_TCL_DECLARED
/* 301 */ /* 301 */
EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name
); );
#endif
#ifndef Tcl_GetEncodingName_TCL_DECLARED
#define Tcl_GetEncodingName_TCL_DECLARED
/* 302 */ /* 302 */
EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
#endif
#ifndef Tcl_GetEncodingNames_TCL_DECLARED
#define Tcl_GetEncodingNames_TCL_DECLARED
/* 303 */ /* 303 */
EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
#endif
#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED
#define Tcl_GetIndexFromObjStruct_TCL_DECLARED
/* 304 */ /* 304 */
EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
Tcl_Obj *objPtr, CONST VOID *tablePtr, Tcl_Obj *objPtr, const void *tablePtr,
int offset, CONST char *msg, int flags, int offset, const char *msg, int flags,
int *indexPtr); int *indexPtr);
#endif
#ifndef Tcl_GetThreadData_TCL_DECLARED
#define Tcl_GetThreadData_TCL_DECLARED
/* 305 */ /* 305 */
EXTERN VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
int size); int size);
#endif
#ifndef Tcl_GetVar2Ex_TCL_DECLARED
#define Tcl_GetVar2Ex_TCL_DECLARED
/* 306 */ /* 306 */
EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, CONST char *part1, EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
CONST char *part2, int flags); const char *part2, int flags);
#endif
#ifndef Tcl_InitNotifier_TCL_DECLARED
#define Tcl_InitNotifier_TCL_DECLARED
/* 307 */ /* 307 */
EXTERN ClientData Tcl_InitNotifier(void); EXTERN ClientData Tcl_InitNotifier(void);
#endif
#ifndef Tcl_MutexLock_TCL_DECLARED
#define Tcl_MutexLock_TCL_DECLARED
/* 308 */ /* 308 */
EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
#endif
#ifndef Tcl_MutexUnlock_TCL_DECLARED
#define Tcl_MutexUnlock_TCL_DECLARED
/* 309 */ /* 309 */
EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
#endif
#ifndef Tcl_ConditionNotify_TCL_DECLARED
#define Tcl_ConditionNotify_TCL_DECLARED
/* 310 */ /* 310 */
EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
#endif
#ifndef Tcl_ConditionWait_TCL_DECLARED
#define Tcl_ConditionWait_TCL_DECLARED
/* 311 */ /* 311 */
EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
Tcl_Mutex *mutexPtr, Tcl_Time *timePtr); Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr
#endif );
#ifndef Tcl_NumUtfChars_TCL_DECLARED
#define Tcl_NumUtfChars_TCL_DECLARED
/* 312 */ /* 312 */
EXTERN int Tcl_NumUtfChars(CONST char *src, int length); EXTERN int Tcl_NumUtfChars(const char *src, int length);
#endif
#ifndef Tcl_ReadChars_TCL_DECLARED
#define Tcl_ReadChars_TCL_DECLARED
/* 313 */ /* 313 */
EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
int charsToRead, int appendFlag); int charsToRead, int appendFlag);
#endif
#ifndef Tcl_RestoreResult_TCL_DECLARED
#define Tcl_RestoreResult_TCL_DECLARED
/* 314 */ /* 314 */
EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, EXTERN void Tcl_RestoreResult(Tcl_Interp *interp,
Tcl_SavedResult *statePtr); Tcl_SavedResult *statePtr);
#endif
#ifndef Tcl_SaveResult_TCL_DECLARED
#define Tcl_SaveResult_TCL_DECLARED
/* 315 */ /* 315 */
EXTERN void Tcl_SaveResult(Tcl_Interp *interp, EXTERN void Tcl_SaveResult(Tcl_Interp *interp,
Tcl_SavedResult *statePtr); Tcl_SavedResult *statePtr);
#endif
#ifndef Tcl_SetSystemEncoding_TCL_DECLARED
#define Tcl_SetSystemEncoding_TCL_DECLARED
/* 316 */ /* 316 */
EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
CONST char *name); const char *name);
#endif
#ifndef Tcl_SetVar2Ex_TCL_DECLARED
#define Tcl_SetVar2Ex_TCL_DECLARED
/* 317 */ /* 317 */
EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
CONST char *part2, Tcl_Obj *newValuePtr, const char *part2, Tcl_Obj *newValuePtr,
int flags); int flags);
#endif
#ifndef Tcl_ThreadAlert_TCL_DECLARED
#define Tcl_ThreadAlert_TCL_DECLARED
/* 318 */ /* 318 */
EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
#endif
#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED
#define Tcl_ThreadQueueEvent_TCL_DECLARED
/* 319 */ /* 319 */
EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
Tcl_Event *evPtr, Tcl_QueuePosition position ); Tcl_Event *evPtr, Tcl_QueuePosition position );
#endif
#ifndef Tcl_UniCharAtIndex_TCL_DECLARED
#define Tcl_UniCharAtIndex_TCL_DECLARED
/* 320 */ /* 320 */
EXTERN Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index); EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index);
#endif
#ifndef Tcl_UniCharToLower_TCL_DECLARED
#define Tcl_UniCharToLower_TCL_DECLARED
/* 321 */ /* 321 */
EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch);
#endif
#ifndef Tcl_UniCharToTitle_TCL_DECLARED
#define Tcl_UniCharToTitle_TCL_DECLARED
/* 322 */ /* 322 */
EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch);
#endif
#ifndef Tcl_UniCharToUpper_TCL_DECLARED
#define Tcl_UniCharToUpper_TCL_DECLARED
/* 323 */ /* 323 */
EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch);
#endif
#ifndef Tcl_UniCharToUtf_TCL_DECLARED
#define Tcl_UniCharToUtf_TCL_DECLARED
/* 324 */ /* 324 */
EXTERN int Tcl_UniCharToUtf(int ch, char *buf); EXTERN int Tcl_UniCharToUtf(int ch, char *buf);
#endif
#ifndef Tcl_UtfAtIndex_TCL_DECLARED
#define Tcl_UtfAtIndex_TCL_DECLARED
/* 325 */ /* 325 */
EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(CONST char *src, int index); EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
#endif
#ifndef Tcl_UtfCharComplete_TCL_DECLARED
#define Tcl_UtfCharComplete_TCL_DECLARED
/* 326 */ /* 326 */
EXTERN int Tcl_UtfCharComplete(CONST char *src, int length); EXTERN int Tcl_UtfCharComplete(const char *src, int length);
#endif
#ifndef Tcl_UtfBackslash_TCL_DECLARED
#define Tcl_UtfBackslash_TCL_DECLARED
/* 327 */ /* 327 */
EXTERN int Tcl_UtfBackslash(CONST char *src, int *readPtr, EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr,
char *dst); char *dst);
#endif
#ifndef Tcl_UtfFindFirst_TCL_DECLARED
#define Tcl_UtfFindFirst_TCL_DECLARED
/* 328 */ /* 328 */
EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(CONST char *src, int ch); EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
#endif
#ifndef Tcl_UtfFindLast_TCL_DECLARED
#define Tcl_UtfFindLast_TCL_DECLARED
/* 329 */ /* 329 */
EXTERN CONST84_RETURN char * Tcl_UtfFindLast(CONST char *src, int ch); EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
#endif
#ifndef Tcl_UtfNext_TCL_DECLARED
#define Tcl_UtfNext_TCL_DECLARED
/* 330 */ /* 330 */
EXTERN CONST84_RETURN char * Tcl_UtfNext(CONST char *src); EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
#endif
#ifndef Tcl_UtfPrev_TCL_DECLARED
#define Tcl_UtfPrev_TCL_DECLARED
/* 331 */ /* 331 */
EXTERN CONST84_RETURN char * Tcl_UtfPrev(CONST char *src, CONST char *start EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start
); );
#endif
#ifndef Tcl_UtfToExternal_TCL_DECLARED
#define Tcl_UtfToExternal_TCL_DECLARED
/* 332 */ /* 332 */
EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp, EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
Tcl_Encoding encoding, CONST char *src, Tcl_Encoding encoding, const char *src,
int srcLen, int flags, int srcLen, int flags,
Tcl_EncodingState *statePtr, char *dst, Tcl_EncodingState *statePtr, char *dst,
int dstLen, int *srcReadPtr, int dstLen, int *srcReadPtr,
int *dstWrotePtr, int *dstCharsPtr); int *dstWrotePtr, int *dstCharsPtr);
#endif
#ifndef Tcl_UtfToExternalDString_TCL_DECLARED
#define Tcl_UtfToExternalDString_TCL_DECLARED
/* 333 */ /* 333 */
EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
CONST char *src, int srcLen, const char *src, int srcLen,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_UtfToLower_TCL_DECLARED
#define Tcl_UtfToLower_TCL_DECLARED
/* 334 */ /* 334 */
EXTERN int Tcl_UtfToLower(char *src); EXTERN int Tcl_UtfToLower(char *src);
#endif
#ifndef Tcl_UtfToTitle_TCL_DECLARED
#define Tcl_UtfToTitle_TCL_DECLARED
/* 335 */ /* 335 */
EXTERN int Tcl_UtfToTitle(char *src); EXTERN int Tcl_UtfToTitle(char *src);
#endif
#ifndef Tcl_UtfToUniChar_TCL_DECLARED
#define Tcl_UtfToUniChar_TCL_DECLARED
/* 336 */ /* 336 */
EXTERN int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr
); );
#endif
#ifndef Tcl_UtfToUpper_TCL_DECLARED
#define Tcl_UtfToUpper_TCL_DECLARED
/* 337 */ /* 337 */
EXTERN int Tcl_UtfToUpper(char *src); EXTERN int Tcl_UtfToUpper(char *src);
#endif
#ifndef Tcl_WriteChars_TCL_DECLARED
#define Tcl_WriteChars_TCL_DECLARED
/* 338 */ /* 338 */
EXTERN int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src,
int srcLen); int srcLen);
#endif
#ifndef Tcl_WriteObj_TCL_DECLARED
#define Tcl_WriteObj_TCL_DECLARED
/* 339 */ /* 339 */
EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetString_TCL_DECLARED
#define Tcl_GetString_TCL_DECLARED
/* 340 */ /* 340 */
EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED
#define Tcl_GetDefaultEncodingDir_TCL_DECLARED
/* 341 */ /* 341 */
EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void);
#endif
#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED
#define Tcl_SetDefaultEncodingDir_TCL_DECLARED
/* 342 */ /* 342 */
EXTERN void Tcl_SetDefaultEncodingDir(CONST char *path); EXTERN void Tcl_SetDefaultEncodingDir(const char *path);
#endif
#ifndef Tcl_AlertNotifier_TCL_DECLARED
#define Tcl_AlertNotifier_TCL_DECLARED
/* 343 */ /* 343 */
EXTERN void Tcl_AlertNotifier(ClientData clientData); EXTERN void Tcl_AlertNotifier(ClientData clientData);
#endif
#ifndef Tcl_ServiceModeHook_TCL_DECLARED
#define Tcl_ServiceModeHook_TCL_DECLARED
/* 344 */ /* 344 */
EXTERN void Tcl_ServiceModeHook(int mode); EXTERN void Tcl_ServiceModeHook(int mode);
#endif
#ifndef Tcl_UniCharIsAlnum_TCL_DECLARED
#define Tcl_UniCharIsAlnum_TCL_DECLARED
/* 345 */ /* 345 */
EXTERN int Tcl_UniCharIsAlnum(int ch); EXTERN int Tcl_UniCharIsAlnum(int ch);
#endif
#ifndef Tcl_UniCharIsAlpha_TCL_DECLARED
#define Tcl_UniCharIsAlpha_TCL_DECLARED
/* 346 */ /* 346 */
EXTERN int Tcl_UniCharIsAlpha(int ch); EXTERN int Tcl_UniCharIsAlpha(int ch);
#endif
#ifndef Tcl_UniCharIsDigit_TCL_DECLARED
#define Tcl_UniCharIsDigit_TCL_DECLARED
/* 347 */ /* 347 */
EXTERN int Tcl_UniCharIsDigit(int ch); EXTERN int Tcl_UniCharIsDigit(int ch);
#endif
#ifndef Tcl_UniCharIsLower_TCL_DECLARED
#define Tcl_UniCharIsLower_TCL_DECLARED
/* 348 */ /* 348 */
EXTERN int Tcl_UniCharIsLower(int ch); EXTERN int Tcl_UniCharIsLower(int ch);
#endif
#ifndef Tcl_UniCharIsSpace_TCL_DECLARED
#define Tcl_UniCharIsSpace_TCL_DECLARED
/* 349 */ /* 349 */
EXTERN int Tcl_UniCharIsSpace(int ch); EXTERN int Tcl_UniCharIsSpace(int ch);
#endif
#ifndef Tcl_UniCharIsUpper_TCL_DECLARED
#define Tcl_UniCharIsUpper_TCL_DECLARED
/* 350 */ /* 350 */
EXTERN int Tcl_UniCharIsUpper(int ch); EXTERN int Tcl_UniCharIsUpper(int ch);
#endif
#ifndef Tcl_UniCharIsWordChar_TCL_DECLARED
#define Tcl_UniCharIsWordChar_TCL_DECLARED
/* 351 */ /* 351 */
EXTERN int Tcl_UniCharIsWordChar(int ch); EXTERN int Tcl_UniCharIsWordChar(int ch);
#endif
#ifndef Tcl_UniCharLen_TCL_DECLARED
#define Tcl_UniCharLen_TCL_DECLARED
/* 352 */ /* 352 */
EXTERN int Tcl_UniCharLen(CONST Tcl_UniChar *uniStr); EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr);
#endif
#ifndef Tcl_UniCharNcmp_TCL_DECLARED
#define Tcl_UniCharNcmp_TCL_DECLARED
/* 353 */ /* 353 */
EXTERN int Tcl_UniCharNcmp(CONST Tcl_UniChar *ucs, EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs,
CONST Tcl_UniChar *uct, const Tcl_UniChar *uct,
unsigned long numChars); unsigned long numChars);
#endif
#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED
#define Tcl_UniCharToUtfDString_TCL_DECLARED
/* 354 */ /* 354 */
EXTERN char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *uniStr, EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr,
int uniLength, Tcl_DString *dsPtr); int uniLength, Tcl_DString *dsPtr);
#endif
#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED
#define Tcl_UtfToUniCharDString_TCL_DECLARED
/* 355 */ /* 355 */
EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *src, int length, EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED
#define Tcl_GetRegExpFromObj_TCL_DECLARED
/* 356 */ /* 356 */
EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
Tcl_Obj *patObj, int flags); Tcl_Obj *patObj, int flags);
#endif
#ifndef Tcl_EvalTokens_TCL_DECLARED
#define Tcl_EvalTokens_TCL_DECLARED
/* 357 */ /* 357 */
EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp,
Tcl_Token *tokenPtr, int count); Tcl_Token *tokenPtr, int count);
#endif
#ifndef Tcl_FreeParse_TCL_DECLARED
#define Tcl_FreeParse_TCL_DECLARED
/* 358 */ /* 358 */
EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
#endif
#ifndef Tcl_LogCommandInfo_TCL_DECLARED
#define Tcl_LogCommandInfo_TCL_DECLARED
/* 359 */ /* 359 */
EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
CONST char *script, CONST char *command, const char *script, const char *command,
int length); int length);
#endif
#ifndef Tcl_ParseBraces_TCL_DECLARED
#define Tcl_ParseBraces_TCL_DECLARED
/* 360 */ /* 360 */
EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
CONST char *start, int numBytes, const char *start, int numBytes,
Tcl_Parse *parsePtr, int append, Tcl_Parse *parsePtr, int append,
CONST84 char **termPtr); CONST84 char **termPtr);
#endif
#ifndef Tcl_ParseCommand_TCL_DECLARED
#define Tcl_ParseCommand_TCL_DECLARED
/* 361 */ /* 361 */
EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
CONST char *start, int numBytes, int nested, const char *start, int numBytes, int nested,
Tcl_Parse *parsePtr); Tcl_Parse *parsePtr);
#endif
#ifndef Tcl_ParseExpr_TCL_DECLARED
#define Tcl_ParseExpr_TCL_DECLARED
/* 362 */ /* 362 */
EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *start, EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
int numBytes, Tcl_Parse *parsePtr); int numBytes, Tcl_Parse *parsePtr);
#endif
#ifndef Tcl_ParseQuotedString_TCL_DECLARED
#define Tcl_ParseQuotedString_TCL_DECLARED
/* 363 */ /* 363 */
EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
CONST char *start, int numBytes, const char *start, int numBytes,
Tcl_Parse *parsePtr, int append, Tcl_Parse *parsePtr, int append,
CONST84 char **termPtr); CONST84 char **termPtr);
#endif
#ifndef Tcl_ParseVarName_TCL_DECLARED
#define Tcl_ParseVarName_TCL_DECLARED
/* 364 */ /* 364 */
EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
CONST char *start, int numBytes, const char *start, int numBytes,
Tcl_Parse *parsePtr, int append); Tcl_Parse *parsePtr, int append);
#endif
#ifndef Tcl_GetCwd_TCL_DECLARED
#define Tcl_GetCwd_TCL_DECLARED
/* 365 */ /* 365 */
EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
#endif
#ifndef Tcl_Chdir_TCL_DECLARED
#define Tcl_Chdir_TCL_DECLARED
/* 366 */ /* 366 */
EXTERN int Tcl_Chdir(CONST char *dirName); EXTERN int Tcl_Chdir(const char *dirName);
#endif
#ifndef Tcl_Access_TCL_DECLARED
#define Tcl_Access_TCL_DECLARED
/* 367 */ /* 367 */
EXTERN int Tcl_Access(CONST char *path, int mode); EXTERN int Tcl_Access(const char *path, int mode);
#endif
#ifndef Tcl_Stat_TCL_DECLARED
#define Tcl_Stat_TCL_DECLARED
/* 368 */ /* 368 */
EXTERN int Tcl_Stat(CONST char *path, struct stat *bufPtr); EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
#endif
#ifndef Tcl_UtfNcmp_TCL_DECLARED
#define Tcl_UtfNcmp_TCL_DECLARED
/* 369 */ /* 369 */
EXTERN int Tcl_UtfNcmp(CONST char *s1, CONST char *s2, EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2,
unsigned long n); unsigned long n);
#endif
#ifndef Tcl_UtfNcasecmp_TCL_DECLARED
#define Tcl_UtfNcasecmp_TCL_DECLARED
/* 370 */ /* 370 */
EXTERN int Tcl_UtfNcasecmp(CONST char *s1, CONST char *s2, EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
unsigned long n); unsigned long n);
#endif
#ifndef Tcl_StringCaseMatch_TCL_DECLARED
#define Tcl_StringCaseMatch_TCL_DECLARED
/* 371 */ /* 371 */
EXTERN int Tcl_StringCaseMatch(CONST char *str, EXTERN int Tcl_StringCaseMatch(const char *str,
CONST char *pattern, int nocase); const char *pattern, int nocase);
#endif
#ifndef Tcl_UniCharIsControl_TCL_DECLARED
#define Tcl_UniCharIsControl_TCL_DECLARED
/* 372 */ /* 372 */
EXTERN int Tcl_UniCharIsControl(int ch); EXTERN int Tcl_UniCharIsControl(int ch);
#endif
#ifndef Tcl_UniCharIsGraph_TCL_DECLARED
#define Tcl_UniCharIsGraph_TCL_DECLARED
/* 373 */ /* 373 */
EXTERN int Tcl_UniCharIsGraph(int ch); EXTERN int Tcl_UniCharIsGraph(int ch);
#endif
#ifndef Tcl_UniCharIsPrint_TCL_DECLARED
#define Tcl_UniCharIsPrint_TCL_DECLARED
/* 374 */ /* 374 */
EXTERN int Tcl_UniCharIsPrint(int ch); EXTERN int Tcl_UniCharIsPrint(int ch);
#endif
#ifndef Tcl_UniCharIsPunct_TCL_DECLARED
#define Tcl_UniCharIsPunct_TCL_DECLARED
/* 375 */ /* 375 */
EXTERN int Tcl_UniCharIsPunct(int ch); EXTERN int Tcl_UniCharIsPunct(int ch);
#endif
#ifndef Tcl_RegExpExecObj_TCL_DECLARED
#define Tcl_RegExpExecObj_TCL_DECLARED
/* 376 */ /* 376 */
EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
Tcl_RegExp regexp, Tcl_Obj *textObj, Tcl_RegExp regexp, Tcl_Obj *textObj,
int offset, int nmatches, int flags); int offset, int nmatches, int flags);
#endif
#ifndef Tcl_RegExpGetInfo_TCL_DECLARED
#define Tcl_RegExpGetInfo_TCL_DECLARED
/* 377 */ /* 377 */
EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
Tcl_RegExpInfo *infoPtr); Tcl_RegExpInfo *infoPtr);
#endif
#ifndef Tcl_NewUnicodeObj_TCL_DECLARED
#define Tcl_NewUnicodeObj_TCL_DECLARED
/* 378 */ /* 378 */
EXTERN Tcl_Obj * Tcl_NewUnicodeObj(CONST Tcl_UniChar *unicode, EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
int numChars); int numChars);
#endif
#ifndef Tcl_SetUnicodeObj_TCL_DECLARED
#define Tcl_SetUnicodeObj_TCL_DECLARED
/* 379 */ /* 379 */
EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
CONST Tcl_UniChar *unicode, int numChars); const Tcl_UniChar *unicode, int numChars);
#endif
#ifndef Tcl_GetCharLength_TCL_DECLARED
#define Tcl_GetCharLength_TCL_DECLARED
/* 380 */ /* 380 */
EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetUniChar_TCL_DECLARED
#define Tcl_GetUniChar_TCL_DECLARED
/* 381 */ /* 381 */
EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index);
#endif
#ifndef Tcl_GetUnicode_TCL_DECLARED
#define Tcl_GetUnicode_TCL_DECLARED
/* 382 */ /* 382 */
EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetRange_TCL_DECLARED
#define Tcl_GetRange_TCL_DECLARED
/* 383 */ /* 383 */
EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last);
#endif
#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED
#define Tcl_AppendUnicodeToObj_TCL_DECLARED
/* 384 */ /* 384 */
EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
CONST Tcl_UniChar *unicode, int length); const Tcl_UniChar *unicode, int length);
#endif
#ifndef Tcl_RegExpMatchObj_TCL_DECLARED
#define Tcl_RegExpMatchObj_TCL_DECLARED
/* 385 */ /* 385 */
EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
Tcl_Obj *textObj, Tcl_Obj *patternObj); Tcl_Obj *textObj, Tcl_Obj *patternObj);
#endif
#ifndef Tcl_SetNotifier_TCL_DECLARED
#define Tcl_SetNotifier_TCL_DECLARED
/* 386 */ /* 386 */
EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr);
#endif
#ifndef Tcl_GetAllocMutex_TCL_DECLARED
#define Tcl_GetAllocMutex_TCL_DECLARED
/* 387 */ /* 387 */
EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
#endif
#ifndef Tcl_GetChannelNames_TCL_DECLARED
#define Tcl_GetChannelNames_TCL_DECLARED
/* 388 */ /* 388 */
EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
#endif
#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED
#define Tcl_GetChannelNamesEx_TCL_DECLARED
/* 389 */ /* 389 */
EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
CONST char *pattern); const char *pattern);
#endif
#ifndef Tcl_ProcObjCmd_TCL_DECLARED
#define Tcl_ProcObjCmd_TCL_DECLARED
/* 390 */ /* 390 */
EXTERN int Tcl_ProcObjCmd(ClientData clientData, EXTERN int Tcl_ProcObjCmd(ClientData clientData,
Tcl_Interp *interp, int objc, Tcl_Interp *interp, int objc,
Tcl_Obj *CONST objv[]); Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_ConditionFinalize_TCL_DECLARED
#define Tcl_ConditionFinalize_TCL_DECLARED
/* 391 */ /* 391 */
EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
#endif
#ifndef Tcl_MutexFinalize_TCL_DECLARED
#define Tcl_MutexFinalize_TCL_DECLARED
/* 392 */ /* 392 */
EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
#endif
#ifndef Tcl_CreateThread_TCL_DECLARED
#define Tcl_CreateThread_TCL_DECLARED
/* 393 */ /* 393 */
EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
Tcl_ThreadCreateProc proc, Tcl_ThreadCreateProc *proc,
ClientData clientData, int stackSize, ClientData clientData, int stackSize,
int flags); int flags);
#endif
#ifndef Tcl_ReadRaw_TCL_DECLARED
#define Tcl_ReadRaw_TCL_DECLARED
/* 394 */ /* 394 */
EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst,
int bytesToRead); int bytesToRead);
#endif
#ifndef Tcl_WriteRaw_TCL_DECLARED
#define Tcl_WriteRaw_TCL_DECLARED
/* 395 */ /* 395 */
EXTERN int Tcl_WriteRaw(Tcl_Channel chan, CONST char *src, EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src,
int srcLen); int srcLen);
#endif
#ifndef Tcl_GetTopChannel_TCL_DECLARED
#define Tcl_GetTopChannel_TCL_DECLARED
/* 396 */ /* 396 */
EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
#endif
#ifndef Tcl_ChannelBuffered_TCL_DECLARED
#define Tcl_ChannelBuffered_TCL_DECLARED
/* 397 */ /* 397 */
EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
#endif
#ifndef Tcl_ChannelName_TCL_DECLARED
#define Tcl_ChannelName_TCL_DECLARED
/* 398 */ /* 398 */
EXTERN CONST84_RETURN char * Tcl_ChannelName( EXTERN CONST84_RETURN char * Tcl_ChannelName(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelVersion_TCL_DECLARED
#define Tcl_ChannelVersion_TCL_DECLARED
/* 399 */ /* 399 */
EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED
#define Tcl_ChannelBlockModeProc_TCL_DECLARED
/* 400 */ /* 400 */
EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelCloseProc_TCL_DECLARED
#define Tcl_ChannelCloseProc_TCL_DECLARED
/* 401 */ /* 401 */
EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED
#define Tcl_ChannelClose2Proc_TCL_DECLARED
/* 402 */ /* 402 */
EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelInputProc_TCL_DECLARED
#define Tcl_ChannelInputProc_TCL_DECLARED
/* 403 */ /* 403 */
EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelOutputProc_TCL_DECLARED
#define Tcl_ChannelOutputProc_TCL_DECLARED
/* 404 */ /* 404 */
EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelSeekProc_TCL_DECLARED
#define Tcl_ChannelSeekProc_TCL_DECLARED
/* 405 */ /* 405 */
EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED
#define Tcl_ChannelSetOptionProc_TCL_DECLARED
/* 406 */ /* 406 */
EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED
#define Tcl_ChannelGetOptionProc_TCL_DECLARED
/* 407 */ /* 407 */
EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelWatchProc_TCL_DECLARED
#define Tcl_ChannelWatchProc_TCL_DECLARED
/* 408 */ /* 408 */
EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED
#define Tcl_ChannelGetHandleProc_TCL_DECLARED
/* 409 */ /* 409 */
EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelFlushProc_TCL_DECLARED
#define Tcl_ChannelFlushProc_TCL_DECLARED
/* 410 */ /* 410 */
EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED
#define Tcl_ChannelHandlerProc_TCL_DECLARED
/* 411 */ /* 411 */
EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_JoinThread_TCL_DECLARED
#define Tcl_JoinThread_TCL_DECLARED
/* 412 */ /* 412 */
EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
#endif
#ifndef Tcl_IsChannelShared_TCL_DECLARED
#define Tcl_IsChannelShared_TCL_DECLARED
/* 413 */ /* 413 */
EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
#endif
#ifndef Tcl_IsChannelRegistered_TCL_DECLARED
#define Tcl_IsChannelRegistered_TCL_DECLARED
/* 414 */ /* 414 */
EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
Tcl_Channel channel); Tcl_Channel channel);
#endif
#ifndef Tcl_CutChannel_TCL_DECLARED
#define Tcl_CutChannel_TCL_DECLARED
/* 415 */ /* 415 */
EXTERN void Tcl_CutChannel(Tcl_Channel channel); EXTERN void Tcl_CutChannel(Tcl_Channel channel);
#endif
#ifndef Tcl_SpliceChannel_TCL_DECLARED
#define Tcl_SpliceChannel_TCL_DECLARED
/* 416 */ /* 416 */
EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
#endif
#ifndef Tcl_ClearChannelHandlers_TCL_DECLARED
#define Tcl_ClearChannelHandlers_TCL_DECLARED
/* 417 */ /* 417 */
EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
#endif
#ifndef Tcl_IsChannelExisting_TCL_DECLARED
#define Tcl_IsChannelExisting_TCL_DECLARED
/* 418 */ /* 418 */
EXTERN int Tcl_IsChannelExisting(CONST char *channelName); EXTERN int Tcl_IsChannelExisting(const char *channelName);
#endif
#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED
#define Tcl_UniCharNcasecmp_TCL_DECLARED
/* 419 */ /* 419 */
EXTERN int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *ucs, EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs,
CONST Tcl_UniChar *uct, const Tcl_UniChar *uct,
unsigned long numChars); unsigned long numChars);
#endif
#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED
#define Tcl_UniCharCaseMatch_TCL_DECLARED
/* 420 */ /* 420 */
EXTERN int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *uniStr, EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr,
CONST Tcl_UniChar *uniPattern, int nocase); const Tcl_UniChar *uniPattern, int nocase);
#endif
#ifndef Tcl_FindHashEntry_TCL_DECLARED
#define Tcl_FindHashEntry_TCL_DECLARED
/* 421 */ /* 421 */
EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr,
CONST char *key); const void *key);
#endif
#ifndef Tcl_CreateHashEntry_TCL_DECLARED
#define Tcl_CreateHashEntry_TCL_DECLARED
/* 422 */ /* 422 */
EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
CONST char *key, int *newPtr); const void *key, int *newPtr);
#endif
#ifndef Tcl_InitCustomHashTable_TCL_DECLARED
#define Tcl_InitCustomHashTable_TCL_DECLARED
/* 423 */ /* 423 */
EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
int keyType, Tcl_HashKeyType *typePtr); int keyType, const Tcl_HashKeyType *typePtr)
#endif ;
#ifndef Tcl_InitObjHashTable_TCL_DECLARED
#define Tcl_InitObjHashTable_TCL_DECLARED
/* 424 */ /* 424 */
EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
#endif
#ifndef Tcl_CommandTraceInfo_TCL_DECLARED
#define Tcl_CommandTraceInfo_TCL_DECLARED
/* 425 */ /* 425 */
EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp,
CONST char *varName, int flags, const char *varName, int flags,
Tcl_CommandTraceProc *procPtr, Tcl_CommandTraceProc *procPtr,
ClientData prevClientData); ClientData prevClientData);
#endif
#ifndef Tcl_TraceCommand_TCL_DECLARED
#define Tcl_TraceCommand_TCL_DECLARED
/* 426 */ /* 426 */
EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
CONST char *varName, int flags, const char *varName, int flags,
Tcl_CommandTraceProc *proc, Tcl_CommandTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_UntraceCommand_TCL_DECLARED
#define Tcl_UntraceCommand_TCL_DECLARED
/* 427 */ /* 427 */
EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
CONST char *varName, int flags, const char *varName, int flags,
Tcl_CommandTraceProc *proc, Tcl_CommandTraceProc *proc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_AttemptAlloc_TCL_DECLARED
#define Tcl_AttemptAlloc_TCL_DECLARED
/* 428 */ /* 428 */
EXTERN char * Tcl_AttemptAlloc(unsigned int size); EXTERN char * Tcl_AttemptAlloc(unsigned int size);
#endif
#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED
#define Tcl_AttemptDbCkalloc_TCL_DECLARED
/* 429 */ /* 429 */
EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size,
CONST char *file, int line); const char *file, int line);
#endif
#ifndef Tcl_AttemptRealloc_TCL_DECLARED
#define Tcl_AttemptRealloc_TCL_DECLARED
/* 430 */ /* 430 */
EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size);
#endif
#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED
#define Tcl_AttemptDbCkrealloc_TCL_DECLARED
/* 431 */ /* 431 */
EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
CONST char *file, int line); const char *file, int line);
#endif
#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED
#define Tcl_AttemptSetObjLength_TCL_DECLARED
/* 432 */ /* 432 */
EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length) ; EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length) ;
#endif
#ifndef Tcl_GetChannelThread_TCL_DECLARED
#define Tcl_GetChannelThread_TCL_DECLARED
/* 433 */ /* 433 */
EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
#endif
#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED
#define Tcl_GetUnicodeFromObj_TCL_DECLARED
/* 434 */ /* 434 */
EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
int *lengthPtr); int *lengthPtr);
#endif
#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED
#define Tcl_GetMathFuncInfo_TCL_DECLARED
/* 435 */ /* 435 */
EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp,
CONST char *name, int *numArgsPtr, const char *name, int *numArgsPtr,
Tcl_ValueType **argTypesPtr, Tcl_ValueType **argTypesPtr,
Tcl_MathProc **procPtr, Tcl_MathProc **procPtr,
ClientData *clientDataPtr); ClientData *clientDataPtr);
#endif
#ifndef Tcl_ListMathFuncs_TCL_DECLARED
#define Tcl_ListMathFuncs_TCL_DECLARED
/* 436 */ /* 436 */
EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp,
CONST char *pattern); const char *pattern);
#endif
#ifndef Tcl_SubstObj_TCL_DECLARED
#define Tcl_SubstObj_TCL_DECLARED
/* 437 */ /* 437 */
EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
int flags); int flags);
#endif
#ifndef Tcl_DetachChannel_TCL_DECLARED
#define Tcl_DetachChannel_TCL_DECLARED
/* 438 */ /* 438 */
EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
Tcl_Channel channel); Tcl_Channel channel);
#endif
#ifndef Tcl_IsStandardChannel_TCL_DECLARED
#define Tcl_IsStandardChannel_TCL_DECLARED
/* 439 */ /* 439 */
EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
#endif
#ifndef Tcl_FSCopyFile_TCL_DECLARED
#define Tcl_FSCopyFile_TCL_DECLARED
/* 440 */ /* 440 */
EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr); Tcl_Obj *destPathPtr);
#endif
#ifndef Tcl_FSCopyDirectory_TCL_DECLARED
#define Tcl_FSCopyDirectory_TCL_DECLARED
/* 441 */ /* 441 */
EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
#endif
#ifndef Tcl_FSCreateDirectory_TCL_DECLARED
#define Tcl_FSCreateDirectory_TCL_DECLARED
/* 442 */ /* 442 */
EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSDeleteFile_TCL_DECLARED
#define Tcl_FSDeleteFile_TCL_DECLARED
/* 443 */ /* 443 */
EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSLoadFile_TCL_DECLARED
#define Tcl_FSLoadFile_TCL_DECLARED
/* 444 */ /* 444 */
EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
CONST char *sym1, CONST char *sym2, const char *sym1, const char *sym2,
Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc1Ptr,
Tcl_PackageInitProc **proc2Ptr, Tcl_PackageInitProc **proc2Ptr,
Tcl_LoadHandle *handlePtr, Tcl_LoadHandle *handlePtr,
Tcl_FSUnloadFileProc **unloadProcPtr); Tcl_FSUnloadFileProc **unloadProcPtr);
#endif
#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED
#define Tcl_FSMatchInDirectory_TCL_DECLARED
/* 445 */ /* 445 */
EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
Tcl_Obj *result, Tcl_Obj *pathPtr, Tcl_Obj *result, Tcl_Obj *pathPtr,
CONST char *pattern, Tcl_GlobTypeData *types const char *pattern, Tcl_GlobTypeData *types
); );
#endif
#ifndef Tcl_FSLink_TCL_DECLARED
#define Tcl_FSLink_TCL_DECLARED
/* 446 */ /* 446 */
EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
int linkAction); int linkAction);
#endif
#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED
#define Tcl_FSRemoveDirectory_TCL_DECLARED
/* 447 */ /* 447 */
EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
int recursive, Tcl_Obj **errorPtr); int recursive, Tcl_Obj **errorPtr);
#endif
#ifndef Tcl_FSRenameFile_TCL_DECLARED
#define Tcl_FSRenameFile_TCL_DECLARED
/* 448 */ /* 448 */
EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr); Tcl_Obj *destPathPtr);
#endif
#ifndef Tcl_FSLstat_TCL_DECLARED
#define Tcl_FSLstat_TCL_DECLARED
/* 449 */ /* 449 */
EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
#endif
#ifndef Tcl_FSUtime_TCL_DECLARED
#define Tcl_FSUtime_TCL_DECLARED
/* 450 */ /* 450 */
EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
#endif
#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED
#define Tcl_FSFileAttrsGet_TCL_DECLARED
/* 451 */ /* 451 */
EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
#endif
#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED
#define Tcl_FSFileAttrsSet_TCL_DECLARED
/* 452 */ /* 452 */
EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
Tcl_Obj *pathPtr, Tcl_Obj *objPtr); Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED
#define Tcl_FSFileAttrStrings_TCL_DECLARED
/* 453 */ /* 453 */
EXTERN CONST char ** Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
Tcl_Obj **objPtrRef); Tcl_Obj **objPtrRef);
#endif
#ifndef Tcl_FSStat_TCL_DECLARED
#define Tcl_FSStat_TCL_DECLARED
/* 454 */ /* 454 */
EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
#endif
#ifndef Tcl_FSAccess_TCL_DECLARED
#define Tcl_FSAccess_TCL_DECLARED
/* 455 */ /* 455 */
EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
#endif
#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED
#define Tcl_FSOpenFileChannel_TCL_DECLARED
/* 456 */ /* 456 */
EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
Tcl_Obj *pathPtr, CONST char *modeString, Tcl_Obj *pathPtr, const char *modeString,
int permissions); int permissions);
#endif
#ifndef Tcl_FSGetCwd_TCL_DECLARED
#define Tcl_FSGetCwd_TCL_DECLARED
/* 457 */ /* 457 */
EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
#endif
#ifndef Tcl_FSChdir_TCL_DECLARED
#define Tcl_FSChdir_TCL_DECLARED
/* 458 */ /* 458 */
EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSConvertToPathType_TCL_DECLARED
#define Tcl_FSConvertToPathType_TCL_DECLARED
/* 459 */ /* 459 */
EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
Tcl_Obj *pathPtr); Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSJoinPath_TCL_DECLARED
#define Tcl_FSJoinPath_TCL_DECLARED
/* 460 */ /* 460 */
EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements);
#endif
#ifndef Tcl_FSSplitPath_TCL_DECLARED
#define Tcl_FSSplitPath_TCL_DECLARED
/* 461 */ /* 461 */
EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr);
#endif
#ifndef Tcl_FSEqualPaths_TCL_DECLARED
#define Tcl_FSEqualPaths_TCL_DECLARED
/* 462 */ /* 462 */
EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
Tcl_Obj *secondPtr); Tcl_Obj *secondPtr);
#endif
#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED
#define Tcl_FSGetNormalizedPath_TCL_DECLARED
/* 463 */ /* 463 */
EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
Tcl_Obj *pathPtr); Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSJoinToPath_TCL_DECLARED
#define Tcl_FSJoinToPath_TCL_DECLARED
/* 464 */ /* 464 */
EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc,
Tcl_Obj *CONST objv[]); Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_FSGetInternalRep_TCL_DECLARED
#define Tcl_FSGetInternalRep_TCL_DECLARED
/* 465 */ /* 465 */
EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
Tcl_Filesystem *fsPtr); const Tcl_Filesystem *fsPtr);
#endif
#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED
#define Tcl_FSGetTranslatedPath_TCL_DECLARED
/* 466 */ /* 466 */
EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
Tcl_Obj *pathPtr); Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSEvalFile_TCL_DECLARED
#define Tcl_FSEvalFile_TCL_DECLARED
/* 467 */ /* 467 */
EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName ); EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName );
#endif
#ifndef Tcl_FSNewNativePath_TCL_DECLARED
#define Tcl_FSNewNativePath_TCL_DECLARED
/* 468 */ /* 468 */
EXTERN Tcl_Obj * Tcl_FSNewNativePath(Tcl_Filesystem *fromFilesystem, EXTERN Tcl_Obj * Tcl_FSNewNativePath(
const Tcl_Filesystem *fromFilesystem,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_FSGetNativePath_TCL_DECLARED
#define Tcl_FSGetNativePath_TCL_DECLARED
/* 469 */ /* 469 */
EXTERN CONST char * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED
#define Tcl_FSFileSystemInfo_TCL_DECLARED
/* 470 */ /* 470 */
EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSPathSeparator_TCL_DECLARED
#define Tcl_FSPathSeparator_TCL_DECLARED
/* 471 */ /* 471 */
EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSListVolumes_TCL_DECLARED
#define Tcl_FSListVolumes_TCL_DECLARED
/* 472 */ /* 472 */
EXTERN Tcl_Obj * Tcl_FSListVolumes(void); EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
#endif
#ifndef Tcl_FSRegister_TCL_DECLARED
#define Tcl_FSRegister_TCL_DECLARED
/* 473 */ /* 473 */
EXTERN int Tcl_FSRegister(ClientData clientData, EXTERN int Tcl_FSRegister(ClientData clientData,
Tcl_Filesystem *fsPtr); const Tcl_Filesystem *fsPtr);
#endif
#ifndef Tcl_FSUnregister_TCL_DECLARED
#define Tcl_FSUnregister_TCL_DECLARED
/* 474 */ /* 474 */
EXTERN int Tcl_FSUnregister(Tcl_Filesystem *fsPtr); EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
#endif
#ifndef Tcl_FSData_TCL_DECLARED
#define Tcl_FSData_TCL_DECLARED
/* 475 */ /* 475 */
EXTERN ClientData Tcl_FSData(Tcl_Filesystem *fsPtr); EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr);
#endif
#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED
#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED
/* 476 */ /* 476 */
EXTERN CONST char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
Tcl_Obj *pathPtr); Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED
#define Tcl_FSGetFileSystemForPath_TCL_DECLARED
/* 477 */ /* 477 */
EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr
); );
#endif
#ifndef Tcl_FSGetPathType_TCL_DECLARED
#define Tcl_FSGetPathType_TCL_DECLARED
/* 478 */ /* 478 */
EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
#endif
#ifndef Tcl_OutputBuffered_TCL_DECLARED
#define Tcl_OutputBuffered_TCL_DECLARED
/* 479 */ /* 479 */
EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
#endif
#ifndef Tcl_FSMountsChanged_TCL_DECLARED
#define Tcl_FSMountsChanged_TCL_DECLARED
/* 480 */ /* 480 */
EXTERN void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr); EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
#endif
#ifndef Tcl_EvalTokensStandard_TCL_DECLARED
#define Tcl_EvalTokensStandard_TCL_DECLARED
/* 481 */ /* 481 */
EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
Tcl_Token *tokenPtr, int count); Tcl_Token *tokenPtr, int count);
#endif
#ifndef Tcl_GetTime_TCL_DECLARED
#define Tcl_GetTime_TCL_DECLARED
/* 482 */ /* 482 */
EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
#endif
#ifndef Tcl_CreateObjTrace_TCL_DECLARED
#define Tcl_CreateObjTrace_TCL_DECLARED
/* 483 */ /* 483 */
EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level,
int flags, Tcl_CmdObjTraceProc *objProc, int flags, Tcl_CmdObjTraceProc *objProc,
ClientData clientData, ClientData clientData,
Tcl_CmdObjTraceDeleteProc *delProc); Tcl_CmdObjTraceDeleteProc *delProc);
#endif
#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED
#define Tcl_GetCommandInfoFromToken_TCL_DECLARED
/* 484 */ /* 484 */
EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
Tcl_CmdInfo *infoPtr); Tcl_CmdInfo *infoPtr);
#endif
#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED
#define Tcl_SetCommandInfoFromToken_TCL_DECLARED
/* 485 */ /* 485 */
EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
CONST Tcl_CmdInfo *infoPtr); const Tcl_CmdInfo *infoPtr);
#endif
#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED
#define Tcl_DbNewWideIntObj_TCL_DECLARED
/* 486 */ /* 486 */
EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
CONST char *file, int line); const char *file, int line);
#endif
#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED
#define Tcl_GetWideIntFromObj_TCL_DECLARED
/* 487 */ /* 487 */
EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, Tcl_WideInt *widePtr); Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
#endif
#ifndef Tcl_NewWideIntObj_TCL_DECLARED
#define Tcl_NewWideIntObj_TCL_DECLARED
/* 488 */ /* 488 */
EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
#endif
#ifndef Tcl_SetWideIntObj_TCL_DECLARED
#define Tcl_SetWideIntObj_TCL_DECLARED
/* 489 */ /* 489 */
EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
Tcl_WideInt wideValue); Tcl_WideInt wideValue);
#endif
#ifndef Tcl_AllocStatBuf_TCL_DECLARED
#define Tcl_AllocStatBuf_TCL_DECLARED
/* 490 */ /* 490 */
EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
#endif
#ifndef Tcl_Seek_TCL_DECLARED
#define Tcl_Seek_TCL_DECLARED
/* 491 */ /* 491 */
EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
int mode); int mode);
#endif
#ifndef Tcl_Tell_TCL_DECLARED
#define Tcl_Tell_TCL_DECLARED
/* 492 */ /* 492 */
EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan);
#endif
#ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED
#define Tcl_ChannelWideSeekProc_TCL_DECLARED
/* 493 */ /* 493 */
EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_DictObjPut_TCL_DECLARED
#define Tcl_DictObjPut_TCL_DECLARED
/* 494 */ /* 494 */
EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
#endif
#ifndef Tcl_DictObjGet_TCL_DECLARED
#define Tcl_DictObjGet_TCL_DECLARED
/* 495 */ /* 495 */
EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
#endif
#ifndef Tcl_DictObjRemove_TCL_DECLARED
#define Tcl_DictObjRemove_TCL_DECLARED
/* 496 */ /* 496 */
EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
#endif
#ifndef Tcl_DictObjSize_TCL_DECLARED
#define Tcl_DictObjSize_TCL_DECLARED
/* 497 */ /* 497 */
EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr , EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr ,
int *sizePtr); int *sizePtr);
#endif
#ifndef Tcl_DictObjFirst_TCL_DECLARED
#define Tcl_DictObjFirst_TCL_DECLARED
/* 498 */ /* 498 */
EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
int *donePtr); int *donePtr);
#endif
#ifndef Tcl_DictObjNext_TCL_DECLARED
#define Tcl_DictObjNext_TCL_DECLARED
/* 499 */ /* 499 */
EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
int *donePtr); int *donePtr);
#endif
#ifndef Tcl_DictObjDone_TCL_DECLARED
#define Tcl_DictObjDone_TCL_DECLARED
/* 500 */ /* 500 */
EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
#endif
#ifndef Tcl_DictObjPutKeyList_TCL_DECLARED
#define Tcl_DictObjPutKeyList_TCL_DECLARED
/* 501 */ /* 501 */
EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
Tcl_Obj *dictPtr, int keyc, Tcl_Obj *dictPtr, int keyc,
Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
#endif
#ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED
#define Tcl_DictObjRemoveKeyList_TCL_DECLARED
/* 502 */ /* 502 */
EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
Tcl_Obj *dictPtr, int keyc, Tcl_Obj *dictPtr, int keyc,
Tcl_Obj *CONST *keyv); Tcl_Obj *const *keyv);
#endif
#ifndef Tcl_NewDictObj_TCL_DECLARED
#define Tcl_NewDictObj_TCL_DECLARED
/* 503 */ /* 503 */
EXTERN Tcl_Obj * Tcl_NewDictObj(void); EXTERN Tcl_Obj * Tcl_NewDictObj(void);
#endif
#ifndef Tcl_DbNewDictObj_TCL_DECLARED
#define Tcl_DbNewDictObj_TCL_DECLARED
/* 504 */ /* 504 */
EXTERN Tcl_Obj * Tcl_DbNewDictObj(CONST char *file, int line); EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
#endif
#ifndef Tcl_RegisterConfig_TCL_DECLARED
#define Tcl_RegisterConfig_TCL_DECLARED
/* 505 */ /* 505 */
EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
CONST char *pkgName, const char *pkgName,
Tcl_Config *configuration, const Tcl_Config *configuration,
CONST char *valEncoding); const char *valEncoding);
#endif
#ifndef Tcl_CreateNamespace_TCL_DECLARED
#define Tcl_CreateNamespace_TCL_DECLARED
/* 506 */ /* 506 */
EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
CONST char *name, ClientData clientData, const char *name, ClientData clientData,
Tcl_NamespaceDeleteProc *deleteProc); Tcl_NamespaceDeleteProc *deleteProc);
#endif
#ifndef Tcl_DeleteNamespace_TCL_DECLARED
#define Tcl_DeleteNamespace_TCL_DECLARED
/* 507 */ /* 507 */
EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
#endif
#ifndef Tcl_AppendExportList_TCL_DECLARED
#define Tcl_AppendExportList_TCL_DECLARED
/* 508 */ /* 508 */
EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_Export_TCL_DECLARED
#define Tcl_Export_TCL_DECLARED
/* 509 */ /* 509 */
EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
CONST char *pattern, int resetListFirst); const char *pattern, int resetListFirst);
#endif
#ifndef Tcl_Import_TCL_DECLARED
#define Tcl_Import_TCL_DECLARED
/* 510 */ /* 510 */
EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
CONST char *pattern, int allowOverwrite); const char *pattern, int allowOverwrite);
#endif
#ifndef Tcl_ForgetImport_TCL_DECLARED
#define Tcl_ForgetImport_TCL_DECLARED
/* 511 */ /* 511 */
EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
Tcl_Namespace *nsPtr, CONST char *pattern); Tcl_Namespace *nsPtr, const char *pattern);
#endif
#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
#define Tcl_GetCurrentNamespace_TCL_DECLARED
/* 512 */ /* 512 */
EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
#endif
#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
#define Tcl_GetGlobalNamespace_TCL_DECLARED
/* 513 */ /* 513 */
EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
#endif
#ifndef Tcl_FindNamespace_TCL_DECLARED
#define Tcl_FindNamespace_TCL_DECLARED
/* 514 */ /* 514 */
EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
CONST char *name, const char *name,
Tcl_Namespace *contextNsPtr, int flags); Tcl_Namespace *contextNsPtr, int flags);
#endif
#ifndef Tcl_FindCommand_TCL_DECLARED
#define Tcl_FindCommand_TCL_DECLARED
/* 515 */ /* 515 */
EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name , EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name ,
Tcl_Namespace *contextNsPtr, int flags); Tcl_Namespace *contextNsPtr, int flags);
#endif
#ifndef Tcl_GetCommandFromObj_TCL_DECLARED
#define Tcl_GetCommandFromObj_TCL_DECLARED
/* 516 */ /* 516 */
EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr); Tcl_Obj *objPtr);
#endif
#ifndef Tcl_GetCommandFullName_TCL_DECLARED
#define Tcl_GetCommandFullName_TCL_DECLARED
/* 517 */ /* 517 */
EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
Tcl_Command command, Tcl_Obj *objPtr); Tcl_Command command, Tcl_Obj *objPtr);
#endif
#ifndef Tcl_FSEvalFileEx_TCL_DECLARED
#define Tcl_FSEvalFileEx_TCL_DECLARED
/* 518 */ /* 518 */
EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
Tcl_Obj *fileName, CONST char *encodingName) Tcl_Obj *fileName, const char *encodingName)
; ;
#endif
#ifndef Tcl_SetExitProc_TCL_DECLARED
#define Tcl_SetExitProc_TCL_DECLARED
/* 519 */ /* 519 */
EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc); EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc);
#endif
#ifndef Tcl_LimitAddHandler_TCL_DECLARED
#define Tcl_LimitAddHandler_TCL_DECLARED
/* 520 */ /* 520 */
EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
Tcl_LimitHandlerProc *handlerProc, Tcl_LimitHandlerProc *handlerProc,
ClientData clientData, ClientData clientData,
Tcl_LimitHandlerDeleteProc *deleteProc); Tcl_LimitHandlerDeleteProc *deleteProc);
#endif
#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED
#define Tcl_LimitRemoveHandler_TCL_DECLARED
/* 521 */ /* 521 */
EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
Tcl_LimitHandlerProc *handlerProc, Tcl_LimitHandlerProc *handlerProc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_LimitReady_TCL_DECLARED
#define Tcl_LimitReady_TCL_DECLARED
/* 522 */ /* 522 */
EXTERN int Tcl_LimitReady(Tcl_Interp *interp); EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
#endif
#ifndef Tcl_LimitCheck_TCL_DECLARED
#define Tcl_LimitCheck_TCL_DECLARED
/* 523 */ /* 523 */
EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
#endif
#ifndef Tcl_LimitExceeded_TCL_DECLARED
#define Tcl_LimitExceeded_TCL_DECLARED
/* 524 */ /* 524 */
EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
#endif
#ifndef Tcl_LimitSetCommands_TCL_DECLARED
#define Tcl_LimitSetCommands_TCL_DECLARED
/* 525 */ /* 525 */
EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
int commandLimit); int commandLimit);
#endif
#ifndef Tcl_LimitSetTime_TCL_DECLARED
#define Tcl_LimitSetTime_TCL_DECLARED
/* 526 */ /* 526 */
EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
Tcl_Time *timeLimitPtr); Tcl_Time *timeLimitPtr);
#endif
#ifndef Tcl_LimitSetGranularity_TCL_DECLARED
#define Tcl_LimitSetGranularity_TCL_DECLARED
/* 527 */ /* 527 */
EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type , EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type ,
int granularity); int granularity);
#endif
#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED
#define Tcl_LimitTypeEnabled_TCL_DECLARED
/* 528 */ /* 528 */
EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
#endif
#ifndef Tcl_LimitTypeExceeded_TCL_DECLARED
#define Tcl_LimitTypeExceeded_TCL_DECLARED
/* 529 */ /* 529 */
EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
#endif
#ifndef Tcl_LimitTypeSet_TCL_DECLARED
#define Tcl_LimitTypeSet_TCL_DECLARED
/* 530 */ /* 530 */
EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
#endif
#ifndef Tcl_LimitTypeReset_TCL_DECLARED
#define Tcl_LimitTypeReset_TCL_DECLARED
/* 531 */ /* 531 */
EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
#endif
#ifndef Tcl_LimitGetCommands_TCL_DECLARED
#define Tcl_LimitGetCommands_TCL_DECLARED
/* 532 */ /* 532 */
EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp);
#endif
#ifndef Tcl_LimitGetTime_TCL_DECLARED
#define Tcl_LimitGetTime_TCL_DECLARED
/* 533 */ /* 533 */
EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
Tcl_Time *timeLimitPtr); Tcl_Time *timeLimitPtr);
#endif
#ifndef Tcl_LimitGetGranularity_TCL_DECLARED
#define Tcl_LimitGetGranularity_TCL_DECLARED
/* 534 */ /* 534 */
EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type ); EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type );
#endif
#ifndef Tcl_SaveInterpState_TCL_DECLARED
#define Tcl_SaveInterpState_TCL_DECLARED
/* 535 */ /* 535 */
EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
#endif
#ifndef Tcl_RestoreInterpState_TCL_DECLARED
#define Tcl_RestoreInterpState_TCL_DECLARED
/* 536 */ /* 536 */
EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
Tcl_InterpState state); Tcl_InterpState state);
#endif
#ifndef Tcl_DiscardInterpState_TCL_DECLARED
#define Tcl_DiscardInterpState_TCL_DECLARED
/* 537 */ /* 537 */
EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
#endif
#ifndef Tcl_SetReturnOptions_TCL_DECLARED
#define Tcl_SetReturnOptions_TCL_DECLARED
/* 538 */ /* 538 */
EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
Tcl_Obj *options); Tcl_Obj *options);
#endif
#ifndef Tcl_GetReturnOptions_TCL_DECLARED
#define Tcl_GetReturnOptions_TCL_DECLARED
/* 539 */ /* 539 */
EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result) ; EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result) ;
#endif
#ifndef Tcl_IsEnsemble_TCL_DECLARED
#define Tcl_IsEnsemble_TCL_DECLARED
/* 540 */ /* 540 */
EXTERN int Tcl_IsEnsemble(Tcl_Command token); EXTERN int Tcl_IsEnsemble(Tcl_Command token);
#endif
#ifndef Tcl_CreateEnsemble_TCL_DECLARED
#define Tcl_CreateEnsemble_TCL_DECLARED
/* 541 */ /* 541 */
EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
CONST char *name, const char *name,
Tcl_Namespace *namespacePtr, int flags); Tcl_Namespace *namespacePtr, int flags);
#endif
#ifndef Tcl_FindEnsemble_TCL_DECLARED
#define Tcl_FindEnsemble_TCL_DECLARED
/* 542 */ /* 542 */
EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
Tcl_Obj *cmdNameObj, int flags); Tcl_Obj *cmdNameObj, int flags);
#endif
#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED
#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED
/* 543 */ /* 543 */
EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj *subcmdList); Tcl_Command token, Tcl_Obj *subcmdList);
#endif
#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED
#define Tcl_SetEnsembleMappingDict_TCL_DECLARED
/* 544 */ /* 544 */
EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj *mapDict); Tcl_Command token, Tcl_Obj *mapDict);
#endif
#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
/* 545 */ /* 545 */
EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj *unknownList); Tcl_Command token, Tcl_Obj *unknownList);
#endif
#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED
#define Tcl_SetEnsembleFlags_TCL_DECLARED
/* 546 */ /* 546 */
EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
Tcl_Command token, int flags); Tcl_Command token, int flags);
#endif
#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED
#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED
/* 547 */ /* 547 */
EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj **subcmdListPtr); Tcl_Command token, Tcl_Obj **subcmdListPtr);
#endif
#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED
#define Tcl_GetEnsembleMappingDict_TCL_DECLARED
/* 548 */ /* 548 */
EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj **mapDictPtr); Tcl_Command token, Tcl_Obj **mapDictPtr);
#endif
#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
/* 549 */ /* 549 */
EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj **unknownListPtr) ; Tcl_Command token, Tcl_Obj **unknownListPtr) ;
#endif
#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED
#define Tcl_GetEnsembleFlags_TCL_DECLARED
/* 550 */ /* 550 */
EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
Tcl_Command token, int *flagsPtr); Tcl_Command token, int *flagsPtr);
#endif
#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED
#define Tcl_GetEnsembleNamespace_TCL_DECLARED
/* 551 */ /* 551 */
EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
Tcl_Command token, Tcl_Command token,
Tcl_Namespace **namespacePtrPtr); Tcl_Namespace **namespacePtrPtr);
#endif
#ifndef Tcl_SetTimeProc_TCL_DECLARED
#define Tcl_SetTimeProc_TCL_DECLARED
/* 552 */ /* 552 */
EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
Tcl_ScaleTimeProc *scaleProc, Tcl_ScaleTimeProc *scaleProc,
ClientData clientData); ClientData clientData);
#endif
#ifndef Tcl_QueryTimeProc_TCL_DECLARED
#define Tcl_QueryTimeProc_TCL_DECLARED
/* 553 */ /* 553 */
EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
Tcl_ScaleTimeProc **scaleProc, Tcl_ScaleTimeProc **scaleProc,
ClientData *clientData); ClientData *clientData);
#endif
#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED
#define Tcl_ChannelThreadActionProc_TCL_DECLARED
/* 554 */ /* 554 */
EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_NewBignumObj_TCL_DECLARED
#define Tcl_NewBignumObj_TCL_DECLARED
/* 555 */ /* 555 */
EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value);
#endif
#ifndef Tcl_DbNewBignumObj_TCL_DECLARED
#define Tcl_DbNewBignumObj_TCL_DECLARED
/* 556 */ /* 556 */
EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, CONST char *file, EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file,
int line); int line);
#endif
#ifndef Tcl_SetBignumObj_TCL_DECLARED
#define Tcl_SetBignumObj_TCL_DECLARED
/* 557 */ /* 557 */
EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value);
#endif
#ifndef Tcl_GetBignumFromObj_TCL_DECLARED
#define Tcl_GetBignumFromObj_TCL_DECLARED
/* 558 */ /* 558 */
EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
Tcl_Obj *obj, mp_int *value); Tcl_Obj *obj, mp_int *value);
#endif
#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED
#define Tcl_TakeBignumFromObj_TCL_DECLARED
/* 559 */ /* 559 */
EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
Tcl_Obj *obj, mp_int *value); Tcl_Obj *obj, mp_int *value);
#endif
#ifndef Tcl_TruncateChannel_TCL_DECLARED
#define Tcl_TruncateChannel_TCL_DECLARED
/* 560 */ /* 560 */
EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
Tcl_WideInt length); Tcl_WideInt length);
#endif
#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED
#define Tcl_ChannelTruncateProc_TCL_DECLARED
/* 561 */ /* 561 */
EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
CONST Tcl_ChannelType *chanTypePtr); const Tcl_ChannelType *chanTypePtr);
#endif
#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED
#define Tcl_SetChannelErrorInterp_TCL_DECLARED
/* 562 */ /* 562 */
EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
Tcl_Obj *msg); Tcl_Obj *msg);
#endif
#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED
#define Tcl_GetChannelErrorInterp_TCL_DECLARED
/* 563 */ /* 563 */
EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
Tcl_Obj **msg); Tcl_Obj **msg);
#endif
#ifndef Tcl_SetChannelError_TCL_DECLARED
#define Tcl_SetChannelError_TCL_DECLARED
/* 564 */ /* 564 */
EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
#endif
#ifndef Tcl_GetChannelError_TCL_DECLARED
#define Tcl_GetChannelError_TCL_DECLARED
/* 565 */ /* 565 */
EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg) ; EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg) ;
#endif
#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED
#define Tcl_InitBignumFromDouble_TCL_DECLARED
/* 566 */ /* 566 */
EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
double initval, mp_int *toInit); double initval, mp_int *toInit);
#endif
#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
/* 567 */ /* 567 */
EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
Tcl_Namespace *nsPtr); Tcl_Namespace *nsPtr);
#endif
#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
/* 568 */ /* 568 */
EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
#endif
#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED
#define Tcl_GetEncodingFromObj_TCL_DECLARED
/* 569 */ /* 569 */
EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
#endif
#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED
#define Tcl_GetEncodingSearchPath_TCL_DECLARED
/* 570 */ /* 570 */
EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
#endif
#ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED
#define Tcl_SetEncodingSearchPath_TCL_DECLARED
/* 571 */ /* 571 */
EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
#endif
#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
/* 572 */ /* 572 */
EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment( EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
Tcl_DString *bufPtr); Tcl_DString *bufPtr);
#endif
#ifndef Tcl_PkgRequireProc_TCL_DECLARED
#define Tcl_PkgRequireProc_TCL_DECLARED
/* 573 */ /* 573 */
EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
CONST char *name, int objc, const char *name, int objc,
Tcl_Obj *CONST objv[], Tcl_Obj *const objv[], void *clientDataPtr);
ClientData *clientDataPtr);
#endif
#ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED
#define Tcl_AppendObjToErrorInfo_TCL_DECLARED
/* 574 */ /* 574 */
EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
Tcl_Obj *objPtr); Tcl_Obj *objPtr);
#endif
#ifndef Tcl_AppendLimitedToObj_TCL_DECLARED
#define Tcl_AppendLimitedToObj_TCL_DECLARED
/* 575 */ /* 575 */
EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
CONST char *bytes, int length, int limit, const char *bytes, int length, int limit,
CONST char *ellipsis); const char *ellipsis);
#endif
#ifndef Tcl_Format_TCL_DECLARED
#define Tcl_Format_TCL_DECLARED
/* 576 */ /* 576 */
EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, CONST char *format, EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
int objc, Tcl_Obj *CONST objv[]); int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_AppendFormatToObj_TCL_DECLARED
#define Tcl_AppendFormatToObj_TCL_DECLARED
/* 577 */ /* 577 */
EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
Tcl_Obj *objPtr, CONST char *format, Tcl_Obj *objPtr, const char *format,
int objc, Tcl_Obj *CONST objv[]); int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_ObjPrintf_TCL_DECLARED
#define Tcl_ObjPrintf_TCL_DECLARED
/* 578 */ /* 578 */
EXTERN Tcl_Obj * Tcl_ObjPrintf(CONST char *format, ...); EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PR
#endif INTF(1, 2);
#ifndef Tcl_AppendPrintfToObj_TCL_DECLARED
#define Tcl_AppendPrintfToObj_TCL_DECLARED
/* 579 */ /* 579 */
EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
CONST char *format, ...); const char *format, ...) TCL_FORMAT_PRINTF(2
#endif , 3);
/* Slot 580 is reserved */ /* 580 */
/* Slot 581 is reserved */ EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
/* Slot 582 is reserved */ Tcl_Obj *resultObjPtr, ClientData clientData
/* Slot 583 is reserved */ ,
/* Slot 584 is reserved */ int flags);
/* Slot 585 is reserved */ /* 581 */
/* Slot 586 is reserved */ EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
/* Slot 587 is reserved */ /* 582 */
/* Slot 588 is reserved */ EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
/* Slot 589 is reserved */ Tcl_Channel *rchan, Tcl_Channel *wchan,
/* Slot 590 is reserved */ int flags);
/* Slot 591 is reserved */ /* 583 */
/* Slot 592 is reserved */ EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
/* Slot 593 is reserved */ const char *cmdName, Tcl_ObjCmdProc *proc,
/* Slot 594 is reserved */ Tcl_ObjCmdProc *nreProc,
/* Slot 595 is reserved */ ClientData clientData,
/* Slot 596 is reserved */ Tcl_CmdDeleteProc *deleteProc);
/* Slot 597 is reserved */ /* 584 */
/* Slot 598 is reserved */ EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
/* Slot 599 is reserved */ int flags);
/* Slot 600 is reserved */ /* 585 */
/* Slot 601 is reserved */ EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc,
/* Slot 602 is reserved */ Tcl_Obj *const objv[], int flags);
/* Slot 603 is reserved */ /* 586 */
/* Slot 604 is reserved */ EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
/* Slot 605 is reserved */ int objc, Tcl_Obj *const objv[], int flags);
/* Slot 606 is reserved */ /* 587 */
/* Slot 607 is reserved */ EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
/* Slot 608 is reserved */ Tcl_NRPostProc *postProcPtr,
/* Slot 609 is reserved */ ClientData data0, ClientData data1,
/* Slot 610 is reserved */ ClientData data2, ClientData data3);
/* Slot 611 is reserved */ /* 588 */
/* Slot 612 is reserved */ EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
/* Slot 613 is reserved */ Tcl_ObjCmdProc *objProc,
/* Slot 614 is reserved */ ClientData clientData, int objc,
/* Slot 615 is reserved */ Tcl_Obj *const objv[]);
/* Slot 616 is reserved */ /* 589 */
/* Slot 617 is reserved */ EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *s
/* Slot 618 is reserved */ tatPtr);
/* Slot 619 is reserved */ /* 590 */
/* Slot 620 is reserved */ EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *st
/* Slot 621 is reserved */ atPtr);
/* Slot 622 is reserved */ /* 591 */
/* Slot 623 is reserved */ EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statP
/* Slot 624 is reserved */ tr);
/* Slot 625 is reserved */ /* 592 */
/* Slot 626 is reserved */ EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr)
/* Slot 627 is reserved */ ;
/* Slot 628 is reserved */ /* 593 */
/* Slot 629 is reserved */ EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
#ifndef TclUnusedStubEntry_TCL_DECLARED /* 594 */
#define TclUnusedStubEntry_TCL_DECLARED EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
/* 595 */
EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr
);
/* 596 */
EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr
);
/* 597 */
EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat(
const Tcl_StatBuf *statPtr);
/* 598 */
EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr
);
/* 599 */
EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
/* 600 */
EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
/* 601 */
EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *
statPtr);
/* 602 */
EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj *paramList);
/* 603 */
EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
Tcl_Command token, Tcl_Obj **paramListPtr);
/* 604 */
EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
const Tcl_ArgvInfo *argTable, int *objcPtr,
Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
/* 605 */
EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
/* 606 */
EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
/* 607 */
EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
int result, Tcl_Interp *targetInterp);
/* 608 */
EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
/* 609 */
EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code
);
/* 610 */
EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
Tcl_Obj *data, int level,
Tcl_Obj *gzipHeaderDictObj);
/* 611 */
EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
Tcl_Obj *data, int buffersize,
Tcl_Obj *gzipHeaderDictObj);
/* 612 */
EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
const unsigned char *buf, int len);
/* 613 */
EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
const unsigned char *buf, int len);
/* 614 */
EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
int format, int level, Tcl_Obj *dictObj,
Tcl_ZlibStream *zshandle);
/* 615 */
EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle
);
/* 616 */
EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
/* 617 */
EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
/* 618 */
EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
Tcl_Obj *data, int flush);
/* 619 */
EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
Tcl_Obj *data, int count);
/* 620 */
EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
/* 621 */
EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
/* 622 */
EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
const char *encoding);
/* 623 */
EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
/* 624 */
EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
int flags);
/* 625 */
EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
Tcl_Obj *resultPtr);
/* 626 */
EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
int flags);
/* 627 */
EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
const char *const symv[], int flags,
void *procPtrs, Tcl_LoadHandle *handlePtr);
/* 628 */
EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
Tcl_LoadHandle handle, const char *symbol);
/* 629 */
EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
Tcl_LoadHandle handlePtr);
/* 630 */ /* 630 */
EXTERN void TclUnusedStubEntry(void); EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
#endif Tcl_ZlibStream zhandle,
Tcl_Obj *compressionDictionaryObj);
typedef struct TclStubHooks {
struct TclPlatStubs *tclPlatStubs; typedef struct {
struct TclIntStubs *tclIntStubs; const struct TclPlatStubs *tclPlatStubs;
struct TclIntPlatStubs *tclIntPlatStubs; const struct TclIntStubs *tclIntStubs;
const struct TclIntPlatStubs *tclIntPlatStubs;
} TclStubHooks; } TclStubHooks;
typedef struct TclStubs { typedef struct TclStubs {
int magic; int magic;
struct TclStubHooks *hooks; const TclStubHooks *hooks;
int (*tcl_PkgProvideEx) (Tcl_Interp *interp, CONST char *name, CONST ch int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const ch
ar *version, ClientData clientData); /* 0 */ ar *version, const void *clientData); /* 0 */
CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, CONST ch CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const ch
ar *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 1 ar *name, const char *version, int exact, void *clientDataPtr); /* 1 */
*/ void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /*
void (*tcl_Panic) (CONST char *format, ...); /* 2 */ 2 */
char * (*tcl_Alloc) (unsigned int size); /* 3 */ char * (*tcl_Alloc) (unsigned int size); /* 3 */
void (*tcl_Free) (char *ptr); /* 4 */ void (*tcl_Free) (char *ptr); /* 4 */
char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
char * (*tcl_DbCkalloc) (unsigned int size, CONST char *file, int line) char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line)
; /* 6 */ ; /* 6 */
void (*tcl_DbCkfree) (char *ptr, CONST char *file, int line); /* 7 */ void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, CONST char *fi char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *fi
le, int line); /* 8 */ le, int line); /* 8 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */ void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */
#endif /* UNIX */ #endif /* UNIX */
#if defined(__WIN32__) /* WIN */ #if defined(__WIN32__) /* WIN */
VOID *reserved9; void (*reserved9)(void);
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */ void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */
#endif /* MACOSX */ #endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */ void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* UNIX */ #endif /* UNIX */
#if defined(__WIN32__) /* WIN */ #if defined(__WIN32__) /* WIN */
VOID *reserved10; void (*reserved10)(void);
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */ void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* MACOSX */ #endif /* MACOSX */
void (*tcl_SetTimer) (Tcl_Time *timePtr); /* 11 */ void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
void (*tcl_Sleep) (int ms); /* 12 */ void (*tcl_Sleep) (int ms); /* 12 */
int (*tcl_WaitForEvent) (Tcl_Time *timePtr); /* 13 */ int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
void (*tcl_AppendToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length
); /* 16 */ ); /* 16 */
Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */ Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjT int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tc
ype *typePtr); /* 18 */ l_ObjType *typePtr); /* 18 */
void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line
); /* 19 */ ); /* 19 */
void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, CONST char *file, int line void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line
); /* 20 */ ); /* 20 */
int (*tcl_DbIsShared) (Tcl_Obj *objPtr, CONST char *file, int line); /* int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /*
21 */ 21 */
Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char *file, int Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int
line); /* 22 */ line); /* 22 */
Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char *bytes, int len Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int len
gth, CONST char *file, int line); /* 23 */ gth, const char *file, int line); /* 23 */
Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char *file, Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file,
int line); /* 24 */ int line); /* 24 */
Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST *objv, CONST ch Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const ch
ar *file, int line); /* 25 */ ar *file, int line); /* 25 */
Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char *file, int li Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int li
ne); /* 26 */ ne); /* 26 */
Tcl_Obj * (*tcl_DbNewObj) (CONST char *file, int line); /* 27 */ Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
Tcl_Obj * (*tcl_DbNewStringObj) (CONST char *bytes, int length, CONST c Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const c
har *file, int line); /* 28 */ har *file, int line); /* 28 */
Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */ Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */ void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
int (*tcl_GetBoolean) (Tcl_Interp *interp, CONST char *src, int *boolPt r); /* 31 */ int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPt r); /* 31 */
int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */ int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */
unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengt hPtr); /* 33 */ unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengt hPtr); /* 33 */
int (*tcl_GetDouble) (Tcl_Interp *interp, CONST char *src, double *doub lePtr); /* 34 */ int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doub lePtr); /* 34 */
int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, doubl e *doublePtr); /* 35 */ int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, doubl e *doublePtr); /* 35 */
int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST8 int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST8
4 char **tablePtr, CONST char *msg, int flags, int *indexPtr); /* 36 */ 4 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36
int (*tcl_GetInt) (Tcl_Interp *interp, CONST char *src, int *intPtr); / */
* 37 */ int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /
* 37 */
int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *int Ptr); /* 38 */ int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *int Ptr); /* 38 */
int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *l ongPtr); /* 39 */ int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *l ongPtr); /* 39 */
Tcl_ObjType * (*tcl_GetObjType) (CONST char *typeName); /* 40 */ CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 * /
char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */ char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */ void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl _Obj *elemListPtr); /* 43 */ int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl _Obj *elemListPtr); /* 43 */
int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */ int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, in t *objcPtr, Tcl_Obj ***objvPtr); /* 45 */ int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, in t *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int inde x, Tcl_Obj **objPtrPtr); /* 46 */ int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int inde x, Tcl_Obj **objPtrPtr); /* 46 */
int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *le ngthPtr); /* 47 */ int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *le ngthPtr); /* 47 */
int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int fi rst, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */ int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int fi rst, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char *bytes, int lengt h); /* 50 */ Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int lengt h); /* 50 */
Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */ Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
Tcl_Obj * (*tcl_NewStringObj) (CONST char *bytes, int length); /* 56 */ Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */ void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */
unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length) ; /* 58 */ unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length) ; /* 58 */
void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, CONST unsigned char *byte s, int length); /* 59 */ void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *byte s, int length); /* 59 */
void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 * / void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 * /
void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */ void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[ ]); /* 62 */ void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[ ]); /* 62 */
void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */ void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */ void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
void (*tcl_SetStringObj) (Tcl_Obj *objPtr, CONST char *bytes, int lengt void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int lengt
h); /* 65 */ h); /* 65 */
void (*tcl_AddErrorInfo) (Tcl_Interp *interp, CONST char *message); /* void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /*
66 */ 66 */
void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, CONST char *message, i void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, i
nt length); /* 67 */ nt length); /* 67 */
void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */ void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
void (*tcl_AppendElement) (Tcl_Interp *interp, CONST char *element); /* 69 */ void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */ void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData cl ientData); /* 71 */ Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData cl ientData); /* 71 */
void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
int (*tcl_AsyncReady) (void); /* 75 */ int (*tcl_AsyncReady) (void); /* 75 */
void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
char (*tcl_Backslash) (CONST char *src, int *readPtr); /* 77 */ char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
int (*tcl_BadChannelOption) (Tcl_Interp *interp, CONST char *optionName int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName
, CONST char *optionList); /* 78 */ , const char *optionList); /* 78 */
void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 79 */ void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 79 */
void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientDa ta); /* 80 */ void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientDa ta); /* 80 */
int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */ int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
int (*tcl_CommandComplete) (CONST char *cmd); /* 82 */ int (*tcl_CommandComplete) (const char *cmd); /* 82 */
char * (*tcl_Concat) (int argc, CONST84 char *CONST *argv); /* 83 */ char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
int (*tcl_ConvertElement) (CONST char *src, char *dst, int flags); /* 8 int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 8
4 */ 4 */
int (*tcl_ConvertCountedElement) (CONST char *src, int length, char *ds int (*tcl_ConvertCountedElement) (const char *src, int length, char *ds
t, int flags); /* 85 */ t, int flags); /* 85 */
int (*tcl_CreateAlias) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl_In int (*tcl_CreateAlias) (Tcl_Interp *slave, const char *slaveCmd, Tcl_In
terp *target, CONST char *targetCmd, int argc, CONST84 char *CONST *argv); terp *target, const char *targetCmd, int argc, CONST84 char *const *argv);
/* 86 */ /* 86 */
int (*tcl_CreateAliasObj) (Tcl_Interp *slave, CONST char *slaveCmd, Tcl int (*tcl_CreateAliasObj) (Tcl_Interp *slave, const char *slaveCmd, Tcl
_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONST objv[]); / _Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /
* 87 */ * 87 */
Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType *typePtr, CONST char Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const
*chanName, ClientData instanceData, int mask); /* 88 */ char *chanName, ClientData instanceData, int mask); /* 88 */
void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_Chann elProc *proc, ClientData clientData); /* 89 */ void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_Chann elProc *proc, ClientData clientData); /* 89 */
void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */ void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, CONST char *cmdNa me, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc ); /* 91 */ Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdNa me, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc ); /* 91 */
void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_Event CheckProc *checkProc, ClientData clientData); /* 92 */ void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_Event CheckProc *checkProc, ClientData clientData); /* 92 */
void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientDat a); /* 93 */ void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientDat a); /* 93 */
Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
void (*tcl_CreateMathFunc) (Tcl_Interp *interp, CONST char *name, int n void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int n
umArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData) umArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData)
; /* 95 */ ; /* 95 */
Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, CONST char *cm Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cm
dName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dele dName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dele
teProc); /* 96 */ teProc); /* 96 */
Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, CONST char *slaveN Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *slaveN
ame, int isSafe); /* 97 */ ame, int isSafe); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerPr oc *proc, ClientData clientData); /* 98 */ Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerPr oc *proc, ClientData clientData); /* 98 */
Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTra ceProc *proc, ClientData clientData); /* 99 */ Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTra ceProc *proc, ClientData clientData); /* 99 */
void (*tcl_DeleteAssocData) (Tcl_Interp *interp, CONST char *name); /* 100 */ void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *pr oc, ClientData clientData); /* 101 */ void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *pr oc, ClientData clientData); /* 101 */
void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */ void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
int (*tcl_DeleteCommand) (Tcl_Interp *interp, CONST char *cmdName); /* 103 */ int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command comm and); /* 104 */ int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command comm and); /* 104 */
void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientD ata); /* 105 */ void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientD ata); /* 105 */
void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_Event CheckProc *checkProc, ClientData clientData); /* 106 */ void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_Event CheckProc *checkProc, ClientData clientData); /* 106 */
void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientDat a); /* 107 */ void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientDat a); /* 107 */
void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */ void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */ void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */ void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */ void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 * / void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 * /
void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeletePr oc *proc, ClientData clientData); /* 114 */ void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeletePr oc *proc, ClientData clientData); /* 114 */
int (*tcl_DoOneEvent) (int flags); /* 115 */ int (*tcl_DoOneEvent) (int flags); /* 115 */
void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */ void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, CONST char *bytes, int char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int
length); /* 117 */ length); /* 117 */
char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, CONST char *ele char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *ele
ment); /* 118 */ ment); /* 118 */
void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */ void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */ void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */ void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */ void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */ void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 * / void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 * /
void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */ void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
int (*tcl_Eval) (Tcl_Interp *interp, CONST char *script); /* 129 */ int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
int (*tcl_EvalFile) (Tcl_Interp *interp, CONST char *fileName); /* 130 int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130
*/ */
int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */ int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freePr oc); /* 132 */ void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freePr oc); /* 132 */
void (*tcl_Exit) (int status); /* 133 */ void (*tcl_Exit) (int status); /* 133 */
int (*tcl_ExposeCommand) (Tcl_Interp *interp, CONST char *hiddenCmdToke int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToke
n, CONST char *cmdName); /* 134 */ n, const char *cmdName); /* 134 */
int (*tcl_ExprBoolean) (Tcl_Interp *interp, CONST char *expr, int *ptr) int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr)
; /* 135 */ ; /* 135 */
int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *pt r); /* 136 */ int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *pt r); /* 136 */
int (*tcl_ExprDouble) (Tcl_Interp *interp, CONST char *expr, double *pt r); /* 137 */ int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *pt r); /* 137 */
int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double * ptr); /* 138 */ int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double * ptr); /* 138 */
int (*tcl_ExprLong) (Tcl_Interp *interp, CONST char *expr, long *ptr); /* 139 */ int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr) ; /* 140 */ int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr) ; /* 140 */
int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resu ltPtrPtr); /* 141 */ int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resu ltPtrPtr); /* 141 */
int (*tcl_ExprString) (Tcl_Interp *interp, CONST char *expr); /* 142 */ int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
void (*tcl_Finalize) (void); /* 143 */ void (*tcl_Finalize) (void); /* 143 */
void (*tcl_FindExecutable) (CONST char *argv0); /* 144 */ void (*tcl_FindExecutable) (const char *argv0); /* 144 */
Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_Has hSearch *searchPtr); /* 145 */ Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_Has hSearch *searchPtr); /* 145 */
int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */ void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
int (*tcl_GetAlias) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_Inte int (*tcl_GetAlias) (Tcl_Interp *interp, const char *slaveCmd, Tcl_Inte
rp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 ch rp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 ch
ar ***argvPtr); /* 148 */ ar ***argvPtr); /* 148 */
int (*tcl_GetAliasObj) (Tcl_Interp *interp, CONST char *slaveCmd, Tcl_I int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *slaveCmd, Tcl_I
nterp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj nterp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj
***objv); /* 149 */ ***objv); /* 149 */
ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, CONST char *name, T ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, T
cl_InterpDeleteProc **procPtr); /* 150 */ cl_InterpDeleteProc **procPtr); /* 150 */
Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, CONST char *chanName Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName
, int *modePtr); /* 151 */ , int *modePtr); /* 151 */
int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientDat a *handlePtr); /* 153 */ int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientDat a *handlePtr); /* 153 */
ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONS int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, cons
T char *optionName, Tcl_DString *dsPtr); /* 157 */ t char *optionName, Tcl_DString *dsPtr); /* 157 */
Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /*
int (*tcl_GetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, Tcl 158 */
_CmdInfo *infoPtr); /* 159 */ int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl
_CmdInfo *infoPtr); /* 159 */
CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Co mmand command); /* 160 */ CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Co mmand command); /* 160 */
int (*tcl_GetErrno) (void); /* 161 */ int (*tcl_GetErrno) (void); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInter p); /* 163 */ int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInter p); /* 163 */
Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */ const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */ int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */
#endif /* UNIX */ #endif /* UNIX */
#if defined(__WIN32__) /* WIN */ #if defined(__WIN32__) /* WIN */
VOID *reserved167; void (*reserved167)(void);
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */ int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */
#endif /* MACOSX */ #endif /* MACOSX */
Tcl_PathType (*tcl_GetPathType) (CONST char *path); /* 168 */ Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
int (*tcl_GetServiceMode) (void); /* 171 */ int (*tcl_GetServiceMode) (void); /* 171 */
Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, CONST char *slaveName ); /* 172 */ Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *slaveName ); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 1 74 */ CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 1 74 */
CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, CONST char *va CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *va
rName, int flags); /* 175 */ rName, int flags); /* 175 */
CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, CONST char *p CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *p
art1, CONST char *part2, int flags); /* 176 */ art1, const char *part2, int flags); /* 176 */
int (*tcl_GlobalEval) (Tcl_Interp *interp, CONST char *command); /* 177 int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177
*/ */
int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
int (*tcl_HideCommand) (Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken); /* 179 */ int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 18 1 */ void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 18 1 */
int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
char * (*tcl_JoinPath) (int argc, CONST84 char *CONST *argv, Tcl_DStrin char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DStrin
g *resultPtr); /* 186 */ g *resultPtr); /* 186 */
int (*tcl_LinkVar) (Tcl_Interp *interp, CONST char *varName, char *addr int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr
, int type); /* 187 */ , int type); /* 187 */
VOID *reserved188; void (*reserved188)(void);
Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 18 9 */ Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 18 9 */
int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
char * (*tcl_Merge) (int argc, CONST84 char *CONST *argv); /* 192 */ char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 19 3 */ Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 19 3 */
void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, int flags); /* 195 */ Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, int flags); /* 195 */
Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CO NST84 char **argv, int flags); /* 197 */ Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CO NST84 char **argv, int flags); /* 197 */
Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, CONST char *fil Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fil
eName, CONST char *modeString, int permissions); /* 198 */ eName, const char *modeString, int permissions); /* 198 */
Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, CONST c Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const c
har *address, CONST char *myaddr, int myport, int async); /* 199 */ har *address, const char *myaddr, int myport, int async); /* 199 */
Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, CONST c Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const c
har *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 har *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200
*/ */
void (*tcl_Preserve) (ClientData data); /* 201 */ void (*tcl_Preserve) (ClientData data); /* 201 */
void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */ void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
int (*tcl_PutEnv) (CONST char *assignment); /* 203 */ int (*tcl_PutEnv) (const char *assignment); /* 203 */
CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */ CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */ void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */ int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
void (*tcl_ReapDetachedProcs) (void); /* 207 */ void (*tcl_ReapDetachedProcs) (void); /* 207 */
int (*tcl_RecordAndEval) (Tcl_Interp *interp, CONST char *cmd, int flag s); /* 208 */ int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flag s); /* 208 */
int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int f lags); /* 209 */ int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int f lags); /* 209 */
void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
void (*tcl_RegisterObjType) (Tcl_ObjType *typePtr); /* 211 */ void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, CONST char *patter Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *patter
n); /* 212 */ n); /* 212 */
int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, CONST cha int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const cha
r *text, CONST char *start); /* 213 */ r *text, const char *start); /* 213 */
int (*tcl_RegExpMatch) (Tcl_Interp *interp, CONST char *text, CONST cha int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const cha
r *pattern); /* 214 */ r *pattern); /* 214 */
void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **s tartPtr, CONST84 char **endPtr); /* 215 */ void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **s tartPtr, CONST84 char **endPtr); /* 215 */
void (*tcl_Release) (ClientData clientData); /* 216 */ void (*tcl_Release) (ClientData clientData); /* 216 */
void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
int (*tcl_ScanElement) (CONST char *src, int *flagPtr); /* 218 */ int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
int (*tcl_ScanCountedElement) (CONST char *src, int length, int *flagPt int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPt
r); /* 219 */ r); /* 219 */
int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
int (*tcl_ServiceAll) (void); /* 221 */ int (*tcl_ServiceAll) (void); /* 221 */
int (*tcl_ServiceEvent) (int flags); /* 222 */ int (*tcl_ServiceEvent) (int flags); /* 222 */
void (*tcl_SetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_Int erpDeleteProc *proc, ClientData clientData); /* 223 */ void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_Int erpDeleteProc *proc, ClientData clientData); /* 223 */
void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONS int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, cons
T char *optionName, CONST char *newValue); /* 225 */ t char *optionName, const char *newValue); /* 225 */
int (*tcl_SetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, CON int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, con
ST Tcl_CmdInfo *infoPtr); /* 226 */ st Tcl_CmdInfo *infoPtr); /* 226 */
void (*tcl_SetErrno) (int err); /* 227 */ void (*tcl_SetErrno) (int err); /* 227 */
void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
void (*tcl_SetMaxBlockTime) (Tcl_Time *timePtr); /* 229 */ void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */ void (*tcl_SetPanicProc) (Tcl_PanicProc *panicProc); /* 230 */
int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */ int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc * freeProc); /* 232 */ void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc * freeProc); /* 232 */
int (*tcl_SetServiceMode) (int mode); /* 233 */ int (*tcl_SetServiceMode) (int mode); /* 233 */
void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */ void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); / * 235 */ void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); / * 235 */
void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, CONST char *va CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *va
rName, CONST char *newValue, int flags); /* 237 */ rName, const char *newValue, int flags); /* 237 */
CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, CONST char *p CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *p
art1, CONST char *part2, CONST char *newValue, int flags); /* 238 */ art1, const char *part2, const char *newValue, int flags); /* 238 */
CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */ void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
int (*tcl_SplitList) (Tcl_Interp *interp, CONST char *listStr, int *arg int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *arg
cPtr, CONST84 char ***argvPtr); /* 242 */ cPtr, CONST84 char ***argvPtr); /* 242 */
void (*tcl_SplitPath) (CONST char *path, int *argcPtr, CONST84 char *** void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***
argvPtr); /* 243 */ argvPtr); /* 243 */
void (*tcl_StaticPackage) (Tcl_Interp *interp, CONST char *pkgName, Tcl void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl
_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */ _PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
int (*tcl_StringMatch) (CONST char *str, CONST char *pattern); /* 245 * int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 *
/ /
int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
int (*tcl_TraceVar) (Tcl_Interp *interp, CONST char *varName, int flags int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags
, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */ , Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
int (*tcl_TraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST char int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char
*part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248
*/ */
char * (*tcl_TranslateFileName) (Tcl_Interp *interp, CONST char *name, char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name,
Tcl_DString *bufferPtr); /* 249 */ Tcl_DString *bufferPtr); /* 249 */
int (*tcl_Ungets) (Tcl_Channel chan, CONST char *str, int len, int atHe int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHe
ad); /* 250 */ ad); /* 250 */
void (*tcl_UnlinkVar) (Tcl_Interp *interp, CONST char *varName); /* 251 void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251
*/ */
int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */ int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
int (*tcl_UnsetVar) (Tcl_Interp *interp, CONST char *varName, int flags int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags
); /* 253 */ ); /* 253 */
int (*tcl_UnsetVar2) (Tcl_Interp *interp, CONST char *part1, CONST char int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char
*part2, int flags); /* 254 */ *part2, int flags); /* 254 */
void (*tcl_UntraceVar) (Tcl_Interp *interp, CONST char *varName, int fl void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int fl
ags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */ ags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
void (*tcl_UntraceVar2) (Tcl_Interp *interp, CONST char *part1, CONST c void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const c
har *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 2 har *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 2
56 */ 56 */
void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, CONST char *varName); void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName);
/* 257 */ /* 257 */
int (*tcl_UpVar) (Tcl_Interp *interp, CONST char *frameName, CONST char int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char
*varName, CONST char *localName, int flags); /* 258 */ *varName, const char *localName, int flags); /* 258 */
int (*tcl_UpVar2) (Tcl_Interp *interp, CONST char *frameName, CONST cha int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const cha
r *part1, CONST char *part2, CONST char *localName, int flags); /* 259 */ r *part1, const char *part2, const char *localName, int flags); /* 259 */
int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */ int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, CONST char *varName ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName
, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 , int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261
*/ */
ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, CONST char *part1, ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1,
CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevCl const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevCl
ientData); /* 262 */ ientData); /* 262 */
int (*tcl_Write) (Tcl_Channel chan, CONST char *s, int slen); /* 263 */ int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const
objv[], CONST char *message); /* 264 */ objv[], const char *message); /* 264 */
int (*tcl_DumpActiveMemory) (CONST char *fileName); /* 265 */ int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
void (*tcl_ValidateAllMemory) (CONST char *file, int line); /* 266 */ void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 26 7 */ void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 26 7 */
void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */ void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */ char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, CONST char * CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *
start, CONST84 char **termPtr); /* 270 */ start, CONST84 char **termPtr); /* 270 */
CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, CONST char CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char
*name, CONST char *version, int exact); /* 271 */ *name, const char *version, int exact); /* 271 */
CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, CONST ch CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const ch
ar *name, CONST char *version, int exact, ClientData *clientDataPtr); /* 27 ar *name, const char *version, int exact, void *clientDataPtr); /* 272 */
2 */ int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char
int (*tcl_PkgProvide) (Tcl_Interp *interp, CONST char *name, CONST char *version); /* 273 */
*version); /* 273 */ CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char
CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, CONST char *name, const char *version, int exact); /* 274 */
*name, CONST char *version, int exact); /* 274 */
void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 27 5 */ void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 27 5 */
int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
void (*tcl_PanicVA) (CONST char *format, va_list argList); /* 278 */ void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *t ype); /* 279 */ void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *t ype); /* 279 */
void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, Tcl_ChannelType *t ypePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelT ype *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 28 2 */ int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 28 2 */
Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
VOID *reserved285; void (*reserved285)(void);
void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType *typePtr); / * 287 */ Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); / * 287 */
void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 288 */ void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 288 */
void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 289 */ void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 289 */
void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
int (*tcl_EvalEx) (Tcl_Interp *interp, CONST char *script, int numBytes int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes
, int flags); /* 291 */ , int flags); /* 291 */
int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[ int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[
], int flags); /* 292 */ ], int flags); /* 292 */
int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
void (*tcl_ExitThread) (int status); /* 294 */ void (*tcl_ExitThread) (int status); /* 294 */
int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, CO int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, co
NST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *ds nst char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *ds
t, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 t, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295
*/ */
char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char * char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *
src, int srcLen, Tcl_DString *dsPtr); /* 296 */ src, int srcLen, Tcl_DString *dsPtr); /* 296 */
void (*tcl_FinalizeThread) (void); /* 297 */ void (*tcl_FinalizeThread) (void); /* 297 */
void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, CONST char *name); /* 301 */ Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); / * 302 */ CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); / * 302 */
void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */ void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr,
CONST VOID *tablePtr, int offset, CONST char *msg, int flags, int *indexPtr const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr
); /* 304 */ ); /* 304 */
VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 3 void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 3
05 */ 05 */
Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONS Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, cons
T char *part2, int flags); /* 306 */ t char *part2, int flags); /* 306 */
ClientData (*tcl_InitNotifier) (void); /* 307 */ ClientData (*tcl_InitNotifier) (void); /* 307 */
void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */ void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */ void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */ void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr,
Tcl_Time *timePtr); /* 311 */ const Tcl_Time *timePtr); /* 311 */
int (*tcl_NumUtfChars) (CONST char *src, int length); /* 312 */ int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsTo Read, int appendFlag); /* 313 */ int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsTo Read, int appendFlag); /* 313 */
void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePt r); /* 314 */ void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePt r); /* 314 */
void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */ void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, CONST char *name); /* int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /*
316 */ 316 */
Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, CONST char *part1, CONS Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, cons
T char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */ t char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */ void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char *src, int index); /* 320 */ Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */ int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char *src, int index); / CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /
* 325 */ * 325 */
int (*tcl_UtfCharComplete) (CONST char *src, int length); /* 326 */ int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
int (*tcl_UtfBackslash) (CONST char *src, int *readPtr, char *dst); /* int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /*
327 */ 327 */
CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char *src, int ch); /* CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /*
328 */ 328 */
CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char *src, int ch); /* CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /*
329 */ 329 */
CONST84_RETURN char * (*tcl_UtfNext) (CONST char *src); /* 330 */ CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
CONST84_RETURN char * (*tcl_UtfPrev) (CONST char *src, CONST char *star CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *star
t); /* 331 */ t); /* 331 */
int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, CO int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, co
NST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *ds nst char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *ds
t, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 t, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332
*/ */
char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char * char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *
src, int srcLen, Tcl_DString *dsPtr); /* 333 */ src, int srcLen, Tcl_DString *dsPtr); /* 333 */
int (*tcl_UtfToLower) (char *src); /* 334 */ int (*tcl_UtfToLower) (char *src); /* 334 */
int (*tcl_UtfToTitle) (char *src); /* 335 */ int (*tcl_UtfToTitle) (char *src); /* 335 */
int (*tcl_UtfToUniChar) (CONST char *src, Tcl_UniChar *chPtr); /* 336 * / int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 * /
int (*tcl_UtfToUpper) (char *src); /* 337 */ int (*tcl_UtfToUpper) (char *src); /* 337 */
int (*tcl_WriteChars) (Tcl_Channel chan, CONST char *src, int srcLen); /* 338 */ int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */ int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */ char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
void (*tcl_SetDefaultEncodingDir) (CONST char *path); /* 342 */ void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
void (*tcl_ServiceModeHook) (int mode); /* 344 */ void (*tcl_ServiceModeHook) (int mode); /* 344 */
int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
int (*tcl_UniCharIsDigit) (int ch); /* 347 */ int (*tcl_UniCharIsDigit) (int ch); /* 347 */
int (*tcl_UniCharIsLower) (int ch); /* 348 */ int (*tcl_UniCharIsLower) (int ch); /* 348 */
int (*tcl_UniCharIsSpace) (int ch); /* 349 */ int (*tcl_UniCharIsSpace) (int ch); /* 349 */
int (*tcl_UniCharIsUpper) (int ch); /* 350 */ int (*tcl_UniCharIsUpper) (int ch); /* 350 */
int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
int (*tcl_UniCharLen) (CONST Tcl_UniChar *uniStr); /* 352 */ int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
int (*tcl_UniCharNcmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct,
unsigned long numChars); /* 353 */ unsigned long numChars); /* 353 */
char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar *uniStr, int uniLe char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLe
ngth, Tcl_DString *dsPtr); /* 354 */ ngth, Tcl_DString *dsPtr); /* 354 */
Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char *src, int length, Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length,
Tcl_DString *dsPtr); /* 355 */ Tcl_DString *dsPtr); /* 355 */
Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj , int flags); /* 356 */ Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj , int flags); /* 356 */
Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, i nt count); /* 357 */ Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, i nt count); /* 357 */
void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */ void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
void (*tcl_LogCommandInfo) (Tcl_Interp *interp, CONST char *script, CON void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, con
ST char *command, int length); /* 359 */ st char *command, int length); /* 359 */
int (*tcl_ParseBraces) (Tcl_Interp *interp, CONST char *start, int numB int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numB
ytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */ ytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
int (*tcl_ParseCommand) (Tcl_Interp *interp, CONST char *start, int num int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int num
Bytes, int nested, Tcl_Parse *parsePtr); /* 361 */ Bytes, int nested, Tcl_Parse *parsePtr); /* 361 */
int (*tcl_ParseExpr) (Tcl_Interp *interp, CONST char *start, int numByt int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numByt
es, Tcl_Parse *parsePtr); /* 362 */ es, Tcl_Parse *parsePtr); /* 362 */
int (*tcl_ParseQuotedString) (Tcl_Interp *interp, CONST char *start, in int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, in
t numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 36 t numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 36
3 */ 3 */
int (*tcl_ParseVarName) (Tcl_Interp *interp, CONST char *start, int num int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int num
Bytes, Tcl_Parse *parsePtr, int append); /* 364 */ Bytes, Tcl_Parse *parsePtr, int append); /* 364 */
char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */ char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
int (*tcl_Chdir) (CONST char *dirName); /* 366 */ int (*tcl_Chdir) (const char *dirName); /* 366 */
int (*tcl_Access) (CONST char *path, int mode); /* 367 */ int (*tcl_Access) (const char *path, int mode); /* 367 */
int (*tcl_Stat) (CONST char *path, struct stat *bufPtr); /* 368 */ int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
int (*tcl_UtfNcmp) (CONST char *s1, CONST char *s2, unsigned long n); / int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /
* 369 */ * 369 */
int (*tcl_UtfNcasecmp) (CONST char *s1, CONST char *s2, unsigned long n int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n
); /* 370 */ ); /* 370 */
int (*tcl_StringCaseMatch) (CONST char *str, CONST char *pattern, int n int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int n
ocase); /* 371 */ ocase); /* 371 */
int (*tcl_UniCharIsControl) (int ch); /* 372 */ int (*tcl_UniCharIsControl) (int ch); /* 372 */
int (*tcl_UniCharIsGraph) (int ch); /* 373 */ int (*tcl_UniCharIsGraph) (int ch); /* 373 */
int (*tcl_UniCharIsPrint) (int ch); /* 374 */ int (*tcl_UniCharIsPrint) (int ch); /* 374 */
int (*tcl_UniCharIsPunct) (int ch); /* 375 */ int (*tcl_UniCharIsPunct) (int ch); /* 375 */
int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Ob j *textObj, int offset, int nmatches, int flags); /* 376 */ int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Ob j *textObj, int offset, int nmatches, int flags); /* 376 */
void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */ void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar *unicode, int numChar Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChar
s); /* 378 */ s); /* 378 */
void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode,
int numChars); /* 379 */ int numChars); /* 379 */
int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */ int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */ Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */ Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 38 3 */ Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 38 3 */
void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, CONST Tcl_UniChar *uni code, int length); /* 384 */ void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *uni code, int length); /* 384 */
int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Ob j *patternObj); /* 385 */ int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Ob j *patternObj); /* 385 */
void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */ void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */ int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, CONST char *pattern); int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern);
/* 389 */ /* 389 */
int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int o int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int o
bjc, Tcl_Obj *CONST objv[]); /* 390 */ bjc, Tcl_Obj *const objv[]); /* 390 */
void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */ void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */ void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc , ClientData clientData, int stackSize, int flags); /* 393 */ int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *pro c, ClientData clientData, int stackSize, int flags); /* 393 */
int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 3 94 */ int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 3 94 */
int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char *src, int srcLen); /* 395 */ int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType *chanTy CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTy
pePtr); /* 398 */ pePtr); /* 398 */
Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType *ch Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *ch
anTypePtr); /* 399 */ anTypePtr); /* 399 */
Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_Channe Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_Channe
lType *chanTypePtr); /* 400 */ lType *chanTypePtr); /* 400 */
Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType *c Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *c
hanTypePtr); /* 401 */ hanTypePtr); /* 401 */
Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType
*chanTypePtr); /* 402 */ *chanTypePtr); /* 402 */
Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType *c Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *c
hanTypePtr); /* 403 */ hanTypePtr); /* 403 */
Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType
*chanTypePtr); /* 404 */ *chanTypePtr); /* 404 */
Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType *cha Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *cha
nTypePtr); /* 405 */ nTypePtr); /* 405 */
Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_Channe Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_Channe
lType *chanTypePtr); /* 406 */ lType *chanTypePtr); /* 406 */
Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_Channe Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_Channe
lType *chanTypePtr); /* 407 */ lType *chanTypePtr); /* 407 */
Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType *c Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *c
hanTypePtr); /* 408 */ hanTypePtr); /* 408 */
Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_Channe Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_Channe
lType *chanTypePtr); /* 409 */ lType *chanTypePtr); /* 409 */
Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType *c Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *c
hanTypePtr); /* 410 */ hanTypePtr); /* 410 */
Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelTyp Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelTyp
e *chanTypePtr); /* 411 */ e *chanTypePtr); /* 411 */
int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */ int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel ); /* 414 */ int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel ); /* 414 */
void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
int (*tcl_IsChannelExisting) (CONST char *channelName); /* 418 */ int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar *ucs, CONST Tcl_UniChar * int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *
uct, unsigned long numChars); /* 419 */ uct, unsigned long numChars); /* 419 */
int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar *uniStr, CONST Tcl_UniCh int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniCh
ar *uniPattern, int nocase); /* 420 */ ar *uniPattern, int nocase); /* 420 */
Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, CONST ch Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const vo
ar *key); /* 421 */ id *key); /* 421 */
Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, CONST Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const
char *key, int *newPtr); /* 422 */ void *key, int *newPtr); /* 422 */
void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType,
Tcl_HashKeyType *typePtr); /* 423 */ const Tcl_HashKeyType *typePtr); /* 423 */
void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */ void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, CONST char *var ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *var
Name, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); Name, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData);
/* 425 */ /* 425 */
int (*tcl_TraceCommand) (Tcl_Interp *interp, CONST char *varName, int f int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int f
lags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */ lags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
void (*tcl_UntraceCommand) (Tcl_Interp *interp, CONST char *varName, in void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, in
t flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */ t flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char *file, in t line); /* 429 */ char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, in t line); /* 429 */
char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */ char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, CONST c har *file, int line); /* 431 */ char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const c har *file, int line); /* 431 */
int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */ int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr ); /* 434 */ Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr ); /* 434 */
int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, CONST char *name, int * int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *
numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData
*clientDataPtr); /* 435 */ *clientDataPtr); /* 435 */
Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, CONST char *pattern Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern
); /* 436 */ ); /* 436 */
Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int fla gs); /* 437 */ Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int fla gs); /* 437 */
int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */ int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 4 40 */ int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 4 40 */
int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */ int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */ int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */ int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, CONST char int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char
*sym1, CONST char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitPr *sym1, const char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitPr
oc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProc oc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProc
Ptr); /* 444 */ Ptr); /* 444 */
int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl
_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types); /* 445 */ _Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkActi on); /* 446 */ Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkActi on); /* 446 */
int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */ int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */ int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */ int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */ int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *path Ptr, Tcl_Obj **objPtrRef); /* 451 */ int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *path Ptr, Tcl_Obj **objPtrRef); /* 451 */
int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *path Ptr, Tcl_Obj *objPtr); /* 452 */ int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *path Ptr, Tcl_Obj *objPtr); /* 452 */
CONST char ** (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **obj PtrRef); /* 453 */ const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_O bj **objPtrRef); /* 453 */
int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */ int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */ int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *path Ptr, CONST char *modeString, int permissions); /* 456 */ Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *path Ptr, const char *modeString, int permissions); /* 456 */
Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */ Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */ int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */ int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */ Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */ Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */ int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *path Ptr); /* 463 */ Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *path Ptr); /* 463 */
Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *CON Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *con
ST objv[]); /* 464 */ st objv[]); /* 464 */
ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, Tcl_Filesystem *f ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesys
sPtr); /* 465 */ tem *fsPtr); /* 465 */
Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *path Ptr); /* 466 */ Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *path Ptr); /* 466 */
int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 * / int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 * /
Tcl_Obj * (*tcl_FSNewNativePath) (Tcl_Filesystem *fromFilesystem, Clien Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem,
tData clientData); /* 468 */ ClientData clientData); /* 468 */
CONST char * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem *fsPtr); / int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsP
* 473 */ tr); /* 473 */
int (*tcl_FSUnregister) (Tcl_Filesystem *fsPtr); /* 474 */ int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
ClientData (*tcl_FSData) (Tcl_Filesystem *fsPtr); /* 475 */ ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
CONST char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_ const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_
Obj *pathPtr); /* 476 */ Obj *pathPtr); /* 476 */
Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 4 CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPt
77 */ r); /* 477 */
Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */ Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
void (*tcl_FSMountsChanged) (Tcl_Filesystem *fsPtr); /* 480 */ void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */ int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */ void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int fla gs, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDel eteProc *delProc); /* 483 */ Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int fla gs, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDel eteProc *delProc); /* 483 */
int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *inf oPtr); /* 484 */ int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *inf oPtr); /* 484 */
int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInf int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInf
o *infoPtr); /* 485 */ o *infoPtr); /* 485 */
Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char *fi Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *fi
le, int line); /* 486 */ le, int line); /* 486 */
int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ WideInt *widePtr); /* 487 */ int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ WideInt *widePtr); /* 487 */
Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */ void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode ); /* 491 */ Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode ); /* 491 */
Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelT ype *chanTypePtr); /* 493 */ Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelT ype *chanTypePtr); /* 493 */
int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *k eyPtr, Tcl_Obj *valuePtr); /* 494 */ int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *k eyPtr, Tcl_Obj *valuePtr); /* 494 */
int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *k eyPtr, Tcl_Obj **valuePtrPtr); /* 495 */ int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *k eyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */ int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *size Ptr); /* 497 */ int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *size Ptr); /* 497 */
int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Dict Search *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr ); /* 498 */ int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Dict Search *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr ); /* 498 */
void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr , Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */ void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr , Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */ void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int
keyc, Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr); /* 501 */ keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr,
int keyc, Tcl_Obj *CONST *keyv); /* 502 */ int keyc, Tcl_Obj *const *keyv); /* 502 */
Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
Tcl_Obj * (*tcl_DbNewDictObj) (CONST char *file, int line); /* 504 */ Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
void (*tcl_RegisterConfig) (Tcl_Interp *interp, CONST char *pkgName, Tc void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, co
l_Config *configuration, CONST char *valEncoding); /* 505 */ nst Tcl_Config *configuration, const char *valEncoding); /* 505 */
Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char
*name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506
*/ */
void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */ void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */ int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char
*pattern, int resetListFirst); /* 509 */ *pattern, int resetListFirst); /* 509 */
int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char
*pattern, int allowOverwrite); /* 510 */ *pattern, int allowOverwrite); /* 510 */
int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONS int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, cons
T char *pattern); /* 511 */ t char *pattern); /* 511 */
Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */ Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */ Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *n Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *n
ame, Tcl_Namespace *contextNsPtr, int flags); /* 514 */ ame, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, T Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, T
cl_Namespace *contextNsPtr, int flags); /* 515 */ cl_Namespace *contextNsPtr, int flags); /* 515 */
Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objP tr); /* 516 */ Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objP tr); /* 516 */
void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command , Tcl_Obj *objPtr); /* 517 */ void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command , Tcl_Obj *objPtr); /* 517 */
int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, CONST c har *encodingName); /* 518 */ int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const c har *encodingName); /* 518 */
Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */ Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc *proc); /* 519 */
void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHan dlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *d eleteProc); /* 520 */ void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHan dlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *d eleteProc); /* 520 */
void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_Limit HandlerProc *handlerProc, ClientData clientData); /* 521 */ void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_Limit HandlerProc *handlerProc, ClientData clientData); /* 521 */
int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */ int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */ int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */ int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */ void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */ void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int gran ularity); /* 527 */ void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int gran ularity); /* 527 */
int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */ int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
skipping to change at line 4046 skipping to change at line 2390
void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */ void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */ int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */ void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 * / int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 * /
Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status) ; /* 535 */ Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status) ; /* 535 */
int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState stat e); /* 536 */ int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState stat e); /* 536 */
void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */ int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */ Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, CONST char *name , Tcl_Namespace *namespacePtr, int flags); /* 541 */ Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name , Tcl_Namespace *namespacePtr, int flags); /* 541 */
Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameOb j, int flags); /* 542 */ Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameOb j, int flags); /* 542 */
int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj *subcmdList); /* 543 */ int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj *subcmdList); /* 543 */
int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command toke n, Tcl_Obj *mapDict); /* 544 */ int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command toke n, Tcl_Obj *mapDict); /* 544 */
int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj *unknownList); /* 545 */ int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj *unknownList); /* 545 */
int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */ int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj **subcmdListPtr); /* 547 */ int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj **subcmdListPtr); /* 547 */
int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command toke n, Tcl_Obj **mapDictPtr); /* 548 */ int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command toke n, Tcl_Obj **mapDictPtr); /* 548 */
int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj **unknownListPtr); /* 549 */ int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command t oken, Tcl_Obj **unknownListPtr); /* 549 */
int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */ int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */ int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *s caleProc, ClientData clientData); /* 552 */ void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *s caleProc, ClientData clientData); /* 552 */
void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */ void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_ ChannelType *chanTypePtr); /* 554 */ Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ ChannelType *chanTypePtr); /* 554 */
Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */ Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, CONST char *file, int l ine); /* 556 */ Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int l ine); /* 556 */
void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */ void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int * value); /* 558 */ int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int * value); /* 558 */
int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */ int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 5 60 */ int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 5 60 */
Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelT ype *chanTypePtr); /* 561 */ Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelT ype *chanTypePtr); /* 561 */
void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); / * 562 */ void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); / * 562 */
void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */ void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */ void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 * / void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 * /
int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp _int *toInit); /* 566 */ int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp _int *toInit); /* 566 */
Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Na mespace *nsPtr); /* 567 */ Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Na mespace *nsPtr); /* 567 */
int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespac e *nsPtr, Tcl_Obj *handlerPtr); /* 568 */ int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespac e *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl _Encoding *encodingPtr); /* 569 */ int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl _Encoding *encodingPtr); /* 569 */
Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */ Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */ int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr
); /* 572 */ ); /* 572 */
int (*tcl_PkgRequireProc) (Tcl_Interp *interp, CONST char *name, int ob int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int ob
jc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr); /* 573 */ jc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */ void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, CONST char *bytes, int void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int
length, int limit, CONST char *ellipsis); /* 575 */ length, int limit, const char *ellipsis); /* 575 */
Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, CONST char *format, int ob Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int ob
jc, Tcl_Obj *CONST objv[]); /* 576 */ jc, Tcl_Obj *const objv[]); /* 576 */
int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONS int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, cons
T char *format, int objc, Tcl_Obj *CONST objv[]); /* 577 */ t char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
Tcl_Obj * (*tcl_ObjPrintf) (CONST char *format, ...); /* 578 */ Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(
void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, CONST char *format, ... 1, 2); /* 578 */
); /* 579 */ void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...
VOID *reserved580; ) TCL_FORMAT_PRINTF(2, 3); /* 579 */
VOID *reserved581; int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, Clien
VOID *reserved582; tData clientData, int flags); /* 580 */
VOID *reserved583; int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
VOID *reserved584; int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Chan
VOID *reserved585; nel *wchan, int flags); /* 582 */
VOID *reserved586; Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmd
VOID *reserved587; Name, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData,
VOID *reserved588; Tcl_CmdDeleteProc *deleteProc); /* 583 */
VOID *reserved589; int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags);
VOID *reserved590; /* 584 */
VOID *reserved591; int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const obj
VOID *reserved592; v[], int flags); /* 585 */
VOID *reserved593; int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tc
VOID *reserved594; l_Obj *const objv[], int flags); /* 586 */
VOID *reserved595; void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProc
VOID *reserved596; Ptr, ClientData data0, ClientData data1, ClientData data2, ClientData data3
VOID *reserved597; ); /* 587 */
VOID *reserved598; int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc,
VOID *reserved599; ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
VOID *reserved600; unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 58
VOID *reserved601; 9 */
VOID *reserved602; unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590
VOID *reserved603; */
VOID *reserved604; unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
VOID *reserved605; int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
VOID *reserved606; int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
VOID *reserved607; int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
VOID *reserved608; int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 *
VOID *reserved609; /
VOID *reserved610; Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr);
VOID *reserved611; /* 596 */
VOID *reserved612; Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *stat
VOID *reserved613; Ptr); /* 597 */
VOID *reserved614; Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr);
VOID *reserved615; /* 598 */
VOID *reserved616; Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 59
VOID *reserved617; 9 */
VOID *reserved618; Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /*
VOID *reserved619; 600 */
VOID *reserved620; unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 6
VOID *reserved621; 01 */
VOID *reserved622; int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command to
VOID *reserved623; ken, Tcl_Obj *paramList); /* 602 */
VOID *reserved624; int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command to
VOID *reserved625; ken, Tcl_Obj **paramListPtr); /* 603 */
VOID *reserved626; int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTa
VOID *reserved627; ble, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
VOID *reserved628; int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
VOID *reserved629; void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
void (*tclUnusedStubEntry) (void); /* 630 */ void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int result, Tcl_I
nterp *targetInterp); /* 607 */
int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609
*/
int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data,
int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data,
int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *b
uf, int len); /* 612 */
unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned cha
r *buf, int len); /* 613 */
int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, in
t level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /*
615 */
int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int f
lush); /* 618 */
int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int c
ount); /* 619 */
int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /*
622 */
Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /
* 624 */
int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *res
ultPtr); /* 625 */
int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags);
/* 626 */
int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *
const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627
*/
void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, co
nst char *symbol); /* 628 */
int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr);
/* 629 */
void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle,
Tcl_Obj *compressionDictionaryObj); /* 630 */
} TclStubs; } TclStubs;
extern TclStubs *tclStubsPtr; #ifdef __cplusplus
extern "C" {
#endif
extern const TclStubs *tclStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) #if defined(USE_TCL_STUBS)
/* /*
* Inline function declarations: * Inline function declarations:
*/ */
#ifndef Tcl_PkgProvideEx
#define Tcl_PkgProvideEx \ #define Tcl_PkgProvideEx \
(tclStubsPtr->tcl_PkgProvideEx) /* 0 */ (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
#endif
#ifndef Tcl_PkgRequireEx
#define Tcl_PkgRequireEx \ #define Tcl_PkgRequireEx \
(tclStubsPtr->tcl_PkgRequireEx) /* 1 */ (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
#endif
#ifndef Tcl_Panic
#define Tcl_Panic \ #define Tcl_Panic \
(tclStubsPtr->tcl_Panic) /* 2 */ (tclStubsPtr->tcl_Panic) /* 2 */
#endif
#ifndef Tcl_Alloc
#define Tcl_Alloc \ #define Tcl_Alloc \
(tclStubsPtr->tcl_Alloc) /* 3 */ (tclStubsPtr->tcl_Alloc) /* 3 */
#endif
#ifndef Tcl_Free
#define Tcl_Free \ #define Tcl_Free \
(tclStubsPtr->tcl_Free) /* 4 */ (tclStubsPtr->tcl_Free) /* 4 */
#endif
#ifndef Tcl_Realloc
#define Tcl_Realloc \ #define Tcl_Realloc \
(tclStubsPtr->tcl_Realloc) /* 5 */ (tclStubsPtr->tcl_Realloc) /* 5 */
#endif
#ifndef Tcl_DbCkalloc
#define Tcl_DbCkalloc \ #define Tcl_DbCkalloc \
(tclStubsPtr->tcl_DbCkalloc) /* 6 */ (tclStubsPtr->tcl_DbCkalloc) /* 6 */
#endif
#ifndef Tcl_DbCkfree
#define Tcl_DbCkfree \ #define Tcl_DbCkfree \
(tclStubsPtr->tcl_DbCkfree) /* 7 */ (tclStubsPtr->tcl_DbCkfree) /* 7 */
#endif
#ifndef Tcl_DbCkrealloc
#define Tcl_DbCkrealloc \ #define Tcl_DbCkrealloc \
(tclStubsPtr->tcl_DbCkrealloc) /* 8 */ (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_CreateFileHandler
#define Tcl_CreateFileHandler \ #define Tcl_CreateFileHandler \
(tclStubsPtr->tcl_CreateFileHandler) /* 9 */ (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_CreateFileHandler
#define Tcl_CreateFileHandler \ #define Tcl_CreateFileHandler \
(tclStubsPtr->tcl_CreateFileHandler) /* 9 */ (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_DeleteFileHandler
#define Tcl_DeleteFileHandler \ #define Tcl_DeleteFileHandler \
(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_DeleteFileHandler
#define Tcl_DeleteFileHandler \ #define Tcl_DeleteFileHandler \
(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#ifndef Tcl_SetTimer
#define Tcl_SetTimer \ #define Tcl_SetTimer \
(tclStubsPtr->tcl_SetTimer) /* 11 */ (tclStubsPtr->tcl_SetTimer) /* 11 */
#endif
#ifndef Tcl_Sleep
#define Tcl_Sleep \ #define Tcl_Sleep \
(tclStubsPtr->tcl_Sleep) /* 12 */ (tclStubsPtr->tcl_Sleep) /* 12 */
#endif
#ifndef Tcl_WaitForEvent
#define Tcl_WaitForEvent \ #define Tcl_WaitForEvent \
(tclStubsPtr->tcl_WaitForEvent) /* 13 */ (tclStubsPtr->tcl_WaitForEvent) /* 13 */
#endif
#ifndef Tcl_AppendAllObjTypes
#define Tcl_AppendAllObjTypes \ #define Tcl_AppendAllObjTypes \
(tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
#endif
#ifndef Tcl_AppendStringsToObj
#define Tcl_AppendStringsToObj \ #define Tcl_AppendStringsToObj \
(tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
#endif
#ifndef Tcl_AppendToObj
#define Tcl_AppendToObj \ #define Tcl_AppendToObj \
(tclStubsPtr->tcl_AppendToObj) /* 16 */ (tclStubsPtr->tcl_AppendToObj) /* 16 */
#endif
#ifndef Tcl_ConcatObj
#define Tcl_ConcatObj \ #define Tcl_ConcatObj \
(tclStubsPtr->tcl_ConcatObj) /* 17 */ (tclStubsPtr->tcl_ConcatObj) /* 17 */
#endif
#ifndef Tcl_ConvertToType
#define Tcl_ConvertToType \ #define Tcl_ConvertToType \
(tclStubsPtr->tcl_ConvertToType) /* 18 */ (tclStubsPtr->tcl_ConvertToType) /* 18 */
#endif
#ifndef Tcl_DbDecrRefCount
#define Tcl_DbDecrRefCount \ #define Tcl_DbDecrRefCount \
(tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
#endif
#ifndef Tcl_DbIncrRefCount
#define Tcl_DbIncrRefCount \ #define Tcl_DbIncrRefCount \
(tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
#endif
#ifndef Tcl_DbIsShared
#define Tcl_DbIsShared \ #define Tcl_DbIsShared \
(tclStubsPtr->tcl_DbIsShared) /* 21 */ (tclStubsPtr->tcl_DbIsShared) /* 21 */
#endif
#ifndef Tcl_DbNewBooleanObj
#define Tcl_DbNewBooleanObj \ #define Tcl_DbNewBooleanObj \
(tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
#endif
#ifndef Tcl_DbNewByteArrayObj
#define Tcl_DbNewByteArrayObj \ #define Tcl_DbNewByteArrayObj \
(tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
#endif
#ifndef Tcl_DbNewDoubleObj
#define Tcl_DbNewDoubleObj \ #define Tcl_DbNewDoubleObj \
(tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
#endif
#ifndef Tcl_DbNewListObj
#define Tcl_DbNewListObj \ #define Tcl_DbNewListObj \
(tclStubsPtr->tcl_DbNewListObj) /* 25 */ (tclStubsPtr->tcl_DbNewListObj) /* 25 */
#endif
#ifndef Tcl_DbNewLongObj
#define Tcl_DbNewLongObj \ #define Tcl_DbNewLongObj \
(tclStubsPtr->tcl_DbNewLongObj) /* 26 */ (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
#endif
#ifndef Tcl_DbNewObj
#define Tcl_DbNewObj \ #define Tcl_DbNewObj \
(tclStubsPtr->tcl_DbNewObj) /* 27 */ (tclStubsPtr->tcl_DbNewObj) /* 27 */
#endif
#ifndef Tcl_DbNewStringObj
#define Tcl_DbNewStringObj \ #define Tcl_DbNewStringObj \
(tclStubsPtr->tcl_DbNewStringObj) /* 28 */ (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
#endif
#ifndef Tcl_DuplicateObj
#define Tcl_DuplicateObj \ #define Tcl_DuplicateObj \
(tclStubsPtr->tcl_DuplicateObj) /* 29 */ (tclStubsPtr->tcl_DuplicateObj) /* 29 */
#endif
#ifndef TclFreeObj
#define TclFreeObj \ #define TclFreeObj \
(tclStubsPtr->tclFreeObj) /* 30 */ (tclStubsPtr->tclFreeObj) /* 30 */
#endif
#ifndef Tcl_GetBoolean
#define Tcl_GetBoolean \ #define Tcl_GetBoolean \
(tclStubsPtr->tcl_GetBoolean) /* 31 */ (tclStubsPtr->tcl_GetBoolean) /* 31 */
#endif
#ifndef Tcl_GetBooleanFromObj
#define Tcl_GetBooleanFromObj \ #define Tcl_GetBooleanFromObj \
(tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
#endif
#ifndef Tcl_GetByteArrayFromObj
#define Tcl_GetByteArrayFromObj \ #define Tcl_GetByteArrayFromObj \
(tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
#endif
#ifndef Tcl_GetDouble
#define Tcl_GetDouble \ #define Tcl_GetDouble \
(tclStubsPtr->tcl_GetDouble) /* 34 */ (tclStubsPtr->tcl_GetDouble) /* 34 */
#endif
#ifndef Tcl_GetDoubleFromObj
#define Tcl_GetDoubleFromObj \ #define Tcl_GetDoubleFromObj \
(tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
#endif
#ifndef Tcl_GetIndexFromObj
#define Tcl_GetIndexFromObj \ #define Tcl_GetIndexFromObj \
(tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
#endif
#ifndef Tcl_GetInt
#define Tcl_GetInt \ #define Tcl_GetInt \
(tclStubsPtr->tcl_GetInt) /* 37 */ (tclStubsPtr->tcl_GetInt) /* 37 */
#endif
#ifndef Tcl_GetIntFromObj
#define Tcl_GetIntFromObj \ #define Tcl_GetIntFromObj \
(tclStubsPtr->tcl_GetIntFromObj) /* 38 */ (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
#endif
#ifndef Tcl_GetLongFromObj
#define Tcl_GetLongFromObj \ #define Tcl_GetLongFromObj \
(tclStubsPtr->tcl_GetLongFromObj) /* 39 */ (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
#endif
#ifndef Tcl_GetObjType
#define Tcl_GetObjType \ #define Tcl_GetObjType \
(tclStubsPtr->tcl_GetObjType) /* 40 */ (tclStubsPtr->tcl_GetObjType) /* 40 */
#endif
#ifndef Tcl_GetStringFromObj
#define Tcl_GetStringFromObj \ #define Tcl_GetStringFromObj \
(tclStubsPtr->tcl_GetStringFromObj) /* 41 */ (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
#endif
#ifndef Tcl_InvalidateStringRep
#define Tcl_InvalidateStringRep \ #define Tcl_InvalidateStringRep \
(tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
#endif
#ifndef Tcl_ListObjAppendList
#define Tcl_ListObjAppendList \ #define Tcl_ListObjAppendList \
(tclStubsPtr->tcl_ListObjAppendList) /* 43 */ (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
#endif
#ifndef Tcl_ListObjAppendElement
#define Tcl_ListObjAppendElement \ #define Tcl_ListObjAppendElement \
(tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
#endif
#ifndef Tcl_ListObjGetElements
#define Tcl_ListObjGetElements \ #define Tcl_ListObjGetElements \
(tclStubsPtr->tcl_ListObjGetElements) /* 45 */ (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
#endif
#ifndef Tcl_ListObjIndex
#define Tcl_ListObjIndex \ #define Tcl_ListObjIndex \
(tclStubsPtr->tcl_ListObjIndex) /* 46 */ (tclStubsPtr->tcl_ListObjIndex) /* 46 */
#endif
#ifndef Tcl_ListObjLength
#define Tcl_ListObjLength \ #define Tcl_ListObjLength \
(tclStubsPtr->tcl_ListObjLength) /* 47 */ (tclStubsPtr->tcl_ListObjLength) /* 47 */
#endif
#ifndef Tcl_ListObjReplace
#define Tcl_ListObjReplace \ #define Tcl_ListObjReplace \
(tclStubsPtr->tcl_ListObjReplace) /* 48 */ (tclStubsPtr->tcl_ListObjReplace) /* 48 */
#endif
#ifndef Tcl_NewBooleanObj
#define Tcl_NewBooleanObj \ #define Tcl_NewBooleanObj \
(tclStubsPtr->tcl_NewBooleanObj) /* 49 */ (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
#endif
#ifndef Tcl_NewByteArrayObj
#define Tcl_NewByteArrayObj \ #define Tcl_NewByteArrayObj \
(tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
#endif
#ifndef Tcl_NewDoubleObj
#define Tcl_NewDoubleObj \ #define Tcl_NewDoubleObj \
(tclStubsPtr->tcl_NewDoubleObj) /* 51 */ (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
#endif
#ifndef Tcl_NewIntObj
#define Tcl_NewIntObj \ #define Tcl_NewIntObj \
(tclStubsPtr->tcl_NewIntObj) /* 52 */ (tclStubsPtr->tcl_NewIntObj) /* 52 */
#endif
#ifndef Tcl_NewListObj
#define Tcl_NewListObj \ #define Tcl_NewListObj \
(tclStubsPtr->tcl_NewListObj) /* 53 */ (tclStubsPtr->tcl_NewListObj) /* 53 */
#endif
#ifndef Tcl_NewLongObj
#define Tcl_NewLongObj \ #define Tcl_NewLongObj \
(tclStubsPtr->tcl_NewLongObj) /* 54 */ (tclStubsPtr->tcl_NewLongObj) /* 54 */
#endif
#ifndef Tcl_NewObj
#define Tcl_NewObj \ #define Tcl_NewObj \
(tclStubsPtr->tcl_NewObj) /* 55 */ (tclStubsPtr->tcl_NewObj) /* 55 */
#endif
#ifndef Tcl_NewStringObj
#define Tcl_NewStringObj \ #define Tcl_NewStringObj \
(tclStubsPtr->tcl_NewStringObj) /* 56 */ (tclStubsPtr->tcl_NewStringObj) /* 56 */
#endif
#ifndef Tcl_SetBooleanObj
#define Tcl_SetBooleanObj \ #define Tcl_SetBooleanObj \
(tclStubsPtr->tcl_SetBooleanObj) /* 57 */ (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
#endif
#ifndef Tcl_SetByteArrayLength
#define Tcl_SetByteArrayLength \ #define Tcl_SetByteArrayLength \
(tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
#endif
#ifndef Tcl_SetByteArrayObj
#define Tcl_SetByteArrayObj \ #define Tcl_SetByteArrayObj \
(tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
#endif
#ifndef Tcl_SetDoubleObj
#define Tcl_SetDoubleObj \ #define Tcl_SetDoubleObj \
(tclStubsPtr->tcl_SetDoubleObj) /* 60 */ (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
#endif
#ifndef Tcl_SetIntObj
#define Tcl_SetIntObj \ #define Tcl_SetIntObj \
(tclStubsPtr->tcl_SetIntObj) /* 61 */ (tclStubsPtr->tcl_SetIntObj) /* 61 */
#endif
#ifndef Tcl_SetListObj
#define Tcl_SetListObj \ #define Tcl_SetListObj \
(tclStubsPtr->tcl_SetListObj) /* 62 */ (tclStubsPtr->tcl_SetListObj) /* 62 */
#endif
#ifndef Tcl_SetLongObj
#define Tcl_SetLongObj \ #define Tcl_SetLongObj \
(tclStubsPtr->tcl_SetLongObj) /* 63 */ (tclStubsPtr->tcl_SetLongObj) /* 63 */
#endif
#ifndef Tcl_SetObjLength
#define Tcl_SetObjLength \ #define Tcl_SetObjLength \
(tclStubsPtr->tcl_SetObjLength) /* 64 */ (tclStubsPtr->tcl_SetObjLength) /* 64 */
#endif
#ifndef Tcl_SetStringObj
#define Tcl_SetStringObj \ #define Tcl_SetStringObj \
(tclStubsPtr->tcl_SetStringObj) /* 65 */ (tclStubsPtr->tcl_SetStringObj) /* 65 */
#endif
#ifndef Tcl_AddErrorInfo
#define Tcl_AddErrorInfo \ #define Tcl_AddErrorInfo \
(tclStubsPtr->tcl_AddErrorInfo) /* 66 */ (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
#endif
#ifndef Tcl_AddObjErrorInfo
#define Tcl_AddObjErrorInfo \ #define Tcl_AddObjErrorInfo \
(tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
#endif
#ifndef Tcl_AllowExceptions
#define Tcl_AllowExceptions \ #define Tcl_AllowExceptions \
(tclStubsPtr->tcl_AllowExceptions) /* 68 */ (tclStubsPtr->tcl_AllowExceptions) /* 68 */
#endif
#ifndef Tcl_AppendElement
#define Tcl_AppendElement \ #define Tcl_AppendElement \
(tclStubsPtr->tcl_AppendElement) /* 69 */ (tclStubsPtr->tcl_AppendElement) /* 69 */
#endif
#ifndef Tcl_AppendResult
#define Tcl_AppendResult \ #define Tcl_AppendResult \
(tclStubsPtr->tcl_AppendResult) /* 70 */ (tclStubsPtr->tcl_AppendResult) /* 70 */
#endif
#ifndef Tcl_AsyncCreate
#define Tcl_AsyncCreate \ #define Tcl_AsyncCreate \
(tclStubsPtr->tcl_AsyncCreate) /* 71 */ (tclStubsPtr->tcl_AsyncCreate) /* 71 */
#endif
#ifndef Tcl_AsyncDelete
#define Tcl_AsyncDelete \ #define Tcl_AsyncDelete \
(tclStubsPtr->tcl_AsyncDelete) /* 72 */ (tclStubsPtr->tcl_AsyncDelete) /* 72 */
#endif
#ifndef Tcl_AsyncInvoke
#define Tcl_AsyncInvoke \ #define Tcl_AsyncInvoke \
(tclStubsPtr->tcl_AsyncInvoke) /* 73 */ (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
#endif
#ifndef Tcl_AsyncMark
#define Tcl_AsyncMark \ #define Tcl_AsyncMark \
(tclStubsPtr->tcl_AsyncMark) /* 74 */ (tclStubsPtr->tcl_AsyncMark) /* 74 */
#endif
#ifndef Tcl_AsyncReady
#define Tcl_AsyncReady \ #define Tcl_AsyncReady \
(tclStubsPtr->tcl_AsyncReady) /* 75 */ (tclStubsPtr->tcl_AsyncReady) /* 75 */
#endif
#ifndef Tcl_BackgroundError
#define Tcl_BackgroundError \ #define Tcl_BackgroundError \
(tclStubsPtr->tcl_BackgroundError) /* 76 */ (tclStubsPtr->tcl_BackgroundError) /* 76 */
#endif
#ifndef Tcl_Backslash
#define Tcl_Backslash \ #define Tcl_Backslash \
(tclStubsPtr->tcl_Backslash) /* 77 */ (tclStubsPtr->tcl_Backslash) /* 77 */
#endif
#ifndef Tcl_BadChannelOption
#define Tcl_BadChannelOption \ #define Tcl_BadChannelOption \
(tclStubsPtr->tcl_BadChannelOption) /* 78 */ (tclStubsPtr->tcl_BadChannelOption) /* 78 */
#endif
#ifndef Tcl_CallWhenDeleted
#define Tcl_CallWhenDeleted \ #define Tcl_CallWhenDeleted \
(tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
#endif
#ifndef Tcl_CancelIdleCall
#define Tcl_CancelIdleCall \ #define Tcl_CancelIdleCall \
(tclStubsPtr->tcl_CancelIdleCall) /* 80 */ (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
#endif
#ifndef Tcl_Close
#define Tcl_Close \ #define Tcl_Close \
(tclStubsPtr->tcl_Close) /* 81 */ (tclStubsPtr->tcl_Close) /* 81 */
#endif
#ifndef Tcl_CommandComplete
#define Tcl_CommandComplete \ #define Tcl_CommandComplete \
(tclStubsPtr->tcl_CommandComplete) /* 82 */ (tclStubsPtr->tcl_CommandComplete) /* 82 */
#endif
#ifndef Tcl_Concat
#define Tcl_Concat \ #define Tcl_Concat \
(tclStubsPtr->tcl_Concat) /* 83 */ (tclStubsPtr->tcl_Concat) /* 83 */
#endif
#ifndef Tcl_ConvertElement
#define Tcl_ConvertElement \ #define Tcl_ConvertElement \
(tclStubsPtr->tcl_ConvertElement) /* 84 */ (tclStubsPtr->tcl_ConvertElement) /* 84 */
#endif
#ifndef Tcl_ConvertCountedElement
#define Tcl_ConvertCountedElement \ #define Tcl_ConvertCountedElement \
(tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
#endif
#ifndef Tcl_CreateAlias
#define Tcl_CreateAlias \ #define Tcl_CreateAlias \
(tclStubsPtr->tcl_CreateAlias) /* 86 */ (tclStubsPtr->tcl_CreateAlias) /* 86 */
#endif
#ifndef Tcl_CreateAliasObj
#define Tcl_CreateAliasObj \ #define Tcl_CreateAliasObj \
(tclStubsPtr->tcl_CreateAliasObj) /* 87 */ (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
#endif
#ifndef Tcl_CreateChannel
#define Tcl_CreateChannel \ #define Tcl_CreateChannel \
(tclStubsPtr->tcl_CreateChannel) /* 88 */ (tclStubsPtr->tcl_CreateChannel) /* 88 */
#endif
#ifndef Tcl_CreateChannelHandler
#define Tcl_CreateChannelHandler \ #define Tcl_CreateChannelHandler \
(tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
#endif
#ifndef Tcl_CreateCloseHandler
#define Tcl_CreateCloseHandler \ #define Tcl_CreateCloseHandler \
(tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
#endif
#ifndef Tcl_CreateCommand
#define Tcl_CreateCommand \ #define Tcl_CreateCommand \
(tclStubsPtr->tcl_CreateCommand) /* 91 */ (tclStubsPtr->tcl_CreateCommand) /* 91 */
#endif
#ifndef Tcl_CreateEventSource
#define Tcl_CreateEventSource \ #define Tcl_CreateEventSource \
(tclStubsPtr->tcl_CreateEventSource) /* 92 */ (tclStubsPtr->tcl_CreateEventSource) /* 92 */
#endif
#ifndef Tcl_CreateExitHandler
#define Tcl_CreateExitHandler \ #define Tcl_CreateExitHandler \
(tclStubsPtr->tcl_CreateExitHandler) /* 93 */ (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
#endif
#ifndef Tcl_CreateInterp
#define Tcl_CreateInterp \ #define Tcl_CreateInterp \
(tclStubsPtr->tcl_CreateInterp) /* 94 */ (tclStubsPtr->tcl_CreateInterp) /* 94 */
#endif
#ifndef Tcl_CreateMathFunc
#define Tcl_CreateMathFunc \ #define Tcl_CreateMathFunc \
(tclStubsPtr->tcl_CreateMathFunc) /* 95 */ (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
#endif
#ifndef Tcl_CreateObjCommand
#define Tcl_CreateObjCommand \ #define Tcl_CreateObjCommand \
(tclStubsPtr->tcl_CreateObjCommand) /* 96 */ (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
#endif
#ifndef Tcl_CreateSlave
#define Tcl_CreateSlave \ #define Tcl_CreateSlave \
(tclStubsPtr->tcl_CreateSlave) /* 97 */ (tclStubsPtr->tcl_CreateSlave) /* 97 */
#endif
#ifndef Tcl_CreateTimerHandler
#define Tcl_CreateTimerHandler \ #define Tcl_CreateTimerHandler \
(tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
#endif
#ifndef Tcl_CreateTrace
#define Tcl_CreateTrace \ #define Tcl_CreateTrace \
(tclStubsPtr->tcl_CreateTrace) /* 99 */ (tclStubsPtr->tcl_CreateTrace) /* 99 */
#endif
#ifndef Tcl_DeleteAssocData
#define Tcl_DeleteAssocData \ #define Tcl_DeleteAssocData \
(tclStubsPtr->tcl_DeleteAssocData) /* 100 */ (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
#endif
#ifndef Tcl_DeleteChannelHandler
#define Tcl_DeleteChannelHandler \ #define Tcl_DeleteChannelHandler \
(tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
#endif
#ifndef Tcl_DeleteCloseHandler
#define Tcl_DeleteCloseHandler \ #define Tcl_DeleteCloseHandler \
(tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
#endif
#ifndef Tcl_DeleteCommand
#define Tcl_DeleteCommand \ #define Tcl_DeleteCommand \
(tclStubsPtr->tcl_DeleteCommand) /* 103 */ (tclStubsPtr->tcl_DeleteCommand) /* 103 */
#endif
#ifndef Tcl_DeleteCommandFromToken
#define Tcl_DeleteCommandFromToken \ #define Tcl_DeleteCommandFromToken \
(tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
#endif
#ifndef Tcl_DeleteEvents
#define Tcl_DeleteEvents \ #define Tcl_DeleteEvents \
(tclStubsPtr->tcl_DeleteEvents) /* 105 */ (tclStubsPtr->tcl_DeleteEvents) /* 105 */
#endif
#ifndef Tcl_DeleteEventSource
#define Tcl_DeleteEventSource \ #define Tcl_DeleteEventSource \
(tclStubsPtr->tcl_DeleteEventSource) /* 106 */ (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
#endif
#ifndef Tcl_DeleteExitHandler
#define Tcl_DeleteExitHandler \ #define Tcl_DeleteExitHandler \
(tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
#endif
#ifndef Tcl_DeleteHashEntry
#define Tcl_DeleteHashEntry \ #define Tcl_DeleteHashEntry \
(tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
#endif
#ifndef Tcl_DeleteHashTable
#define Tcl_DeleteHashTable \ #define Tcl_DeleteHashTable \
(tclStubsPtr->tcl_DeleteHashTable) /* 109 */ (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
#endif
#ifndef Tcl_DeleteInterp
#define Tcl_DeleteInterp \ #define Tcl_DeleteInterp \
(tclStubsPtr->tcl_DeleteInterp) /* 110 */ (tclStubsPtr->tcl_DeleteInterp) /* 110 */
#endif
#ifndef Tcl_DetachPids
#define Tcl_DetachPids \ #define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */ (tclStubsPtr->tcl_DetachPids) /* 111 */
#endif
#ifndef Tcl_DeleteTimerHandler
#define Tcl_DeleteTimerHandler \ #define Tcl_DeleteTimerHandler \
(tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
#endif
#ifndef Tcl_DeleteTrace
#define Tcl_DeleteTrace \ #define Tcl_DeleteTrace \
(tclStubsPtr->tcl_DeleteTrace) /* 113 */ (tclStubsPtr->tcl_DeleteTrace) /* 113 */
#endif
#ifndef Tcl_DontCallWhenDeleted
#define Tcl_DontCallWhenDeleted \ #define Tcl_DontCallWhenDeleted \
(tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
#endif
#ifndef Tcl_DoOneEvent
#define Tcl_DoOneEvent \ #define Tcl_DoOneEvent \
(tclStubsPtr->tcl_DoOneEvent) /* 115 */ (tclStubsPtr->tcl_DoOneEvent) /* 115 */
#endif
#ifndef Tcl_DoWhenIdle
#define Tcl_DoWhenIdle \ #define Tcl_DoWhenIdle \
(tclStubsPtr->tcl_DoWhenIdle) /* 116 */ (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
#endif
#ifndef Tcl_DStringAppend
#define Tcl_DStringAppend \ #define Tcl_DStringAppend \
(tclStubsPtr->tcl_DStringAppend) /* 117 */ (tclStubsPtr->tcl_DStringAppend) /* 117 */
#endif
#ifndef Tcl_DStringAppendElement
#define Tcl_DStringAppendElement \ #define Tcl_DStringAppendElement \
(tclStubsPtr->tcl_DStringAppendElement) /* 118 */ (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
#endif
#ifndef Tcl_DStringEndSublist
#define Tcl_DStringEndSublist \ #define Tcl_DStringEndSublist \
(tclStubsPtr->tcl_DStringEndSublist) /* 119 */ (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
#endif
#ifndef Tcl_DStringFree
#define Tcl_DStringFree \ #define Tcl_DStringFree \
(tclStubsPtr->tcl_DStringFree) /* 120 */ (tclStubsPtr->tcl_DStringFree) /* 120 */
#endif
#ifndef Tcl_DStringGetResult
#define Tcl_DStringGetResult \ #define Tcl_DStringGetResult \
(tclStubsPtr->tcl_DStringGetResult) /* 121 */ (tclStubsPtr->tcl_DStringGetResult) /* 121 */
#endif
#ifndef Tcl_DStringInit
#define Tcl_DStringInit \ #define Tcl_DStringInit \
(tclStubsPtr->tcl_DStringInit) /* 122 */ (tclStubsPtr->tcl_DStringInit) /* 122 */
#endif
#ifndef Tcl_DStringResult
#define Tcl_DStringResult \ #define Tcl_DStringResult \
(tclStubsPtr->tcl_DStringResult) /* 123 */ (tclStubsPtr->tcl_DStringResult) /* 123 */
#endif
#ifndef Tcl_DStringSetLength
#define Tcl_DStringSetLength \ #define Tcl_DStringSetLength \
(tclStubsPtr->tcl_DStringSetLength) /* 124 */ (tclStubsPtr->tcl_DStringSetLength) /* 124 */
#endif
#ifndef Tcl_DStringStartSublist
#define Tcl_DStringStartSublist \ #define Tcl_DStringStartSublist \
(tclStubsPtr->tcl_DStringStartSublist) /* 125 */ (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
#endif
#ifndef Tcl_Eof
#define Tcl_Eof \ #define Tcl_Eof \
(tclStubsPtr->tcl_Eof) /* 126 */ (tclStubsPtr->tcl_Eof) /* 126 */
#endif
#ifndef Tcl_ErrnoId
#define Tcl_ErrnoId \ #define Tcl_ErrnoId \
(tclStubsPtr->tcl_ErrnoId) /* 127 */ (tclStubsPtr->tcl_ErrnoId) /* 127 */
#endif
#ifndef Tcl_ErrnoMsg
#define Tcl_ErrnoMsg \ #define Tcl_ErrnoMsg \
(tclStubsPtr->tcl_ErrnoMsg) /* 128 */ (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
#endif
#ifndef Tcl_Eval
#define Tcl_Eval \ #define Tcl_Eval \
(tclStubsPtr->tcl_Eval) /* 129 */ (tclStubsPtr->tcl_Eval) /* 129 */
#endif
#ifndef Tcl_EvalFile
#define Tcl_EvalFile \ #define Tcl_EvalFile \
(tclStubsPtr->tcl_EvalFile) /* 130 */ (tclStubsPtr->tcl_EvalFile) /* 130 */
#endif
#ifndef Tcl_EvalObj
#define Tcl_EvalObj \ #define Tcl_EvalObj \
(tclStubsPtr->tcl_EvalObj) /* 131 */ (tclStubsPtr->tcl_EvalObj) /* 131 */
#endif
#ifndef Tcl_EventuallyFree
#define Tcl_EventuallyFree \ #define Tcl_EventuallyFree \
(tclStubsPtr->tcl_EventuallyFree) /* 132 */ (tclStubsPtr->tcl_EventuallyFree) /* 132 */
#endif
#ifndef Tcl_Exit
#define Tcl_Exit \ #define Tcl_Exit \
(tclStubsPtr->tcl_Exit) /* 133 */ (tclStubsPtr->tcl_Exit) /* 133 */
#endif
#ifndef Tcl_ExposeCommand
#define Tcl_ExposeCommand \ #define Tcl_ExposeCommand \
(tclStubsPtr->tcl_ExposeCommand) /* 134 */ (tclStubsPtr->tcl_ExposeCommand) /* 134 */
#endif
#ifndef Tcl_ExprBoolean
#define Tcl_ExprBoolean \ #define Tcl_ExprBoolean \
(tclStubsPtr->tcl_ExprBoolean) /* 135 */ (tclStubsPtr->tcl_ExprBoolean) /* 135 */
#endif
#ifndef Tcl_ExprBooleanObj
#define Tcl_ExprBooleanObj \ #define Tcl_ExprBooleanObj \
(tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
#endif
#ifndef Tcl_ExprDouble
#define Tcl_ExprDouble \ #define Tcl_ExprDouble \
(tclStubsPtr->tcl_ExprDouble) /* 137 */ (tclStubsPtr->tcl_ExprDouble) /* 137 */
#endif
#ifndef Tcl_ExprDoubleObj
#define Tcl_ExprDoubleObj \ #define Tcl_ExprDoubleObj \
(tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
#endif
#ifndef Tcl_ExprLong
#define Tcl_ExprLong \ #define Tcl_ExprLong \
(tclStubsPtr->tcl_ExprLong) /* 139 */ (tclStubsPtr->tcl_ExprLong) /* 139 */
#endif
#ifndef Tcl_ExprLongObj
#define Tcl_ExprLongObj \ #define Tcl_ExprLongObj \
(tclStubsPtr->tcl_ExprLongObj) /* 140 */ (tclStubsPtr->tcl_ExprLongObj) /* 140 */
#endif
#ifndef Tcl_ExprObj
#define Tcl_ExprObj \ #define Tcl_ExprObj \
(tclStubsPtr->tcl_ExprObj) /* 141 */ (tclStubsPtr->tcl_ExprObj) /* 141 */
#endif
#ifndef Tcl_ExprString
#define Tcl_ExprString \ #define Tcl_ExprString \
(tclStubsPtr->tcl_ExprString) /* 142 */ (tclStubsPtr->tcl_ExprString) /* 142 */
#endif
#ifndef Tcl_Finalize
#define Tcl_Finalize \ #define Tcl_Finalize \
(tclStubsPtr->tcl_Finalize) /* 143 */ (tclStubsPtr->tcl_Finalize) /* 143 */
#endif
#ifndef Tcl_FindExecutable
#define Tcl_FindExecutable \ #define Tcl_FindExecutable \
(tclStubsPtr->tcl_FindExecutable) /* 144 */ (tclStubsPtr->tcl_FindExecutable) /* 144 */
#endif
#ifndef Tcl_FirstHashEntry
#define Tcl_FirstHashEntry \ #define Tcl_FirstHashEntry \
(tclStubsPtr->tcl_FirstHashEntry) /* 145 */ (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
#endif
#ifndef Tcl_Flush
#define Tcl_Flush \ #define Tcl_Flush \
(tclStubsPtr->tcl_Flush) /* 146 */ (tclStubsPtr->tcl_Flush) /* 146 */
#endif
#ifndef Tcl_FreeResult
#define Tcl_FreeResult \ #define Tcl_FreeResult \
(tclStubsPtr->tcl_FreeResult) /* 147 */ (tclStubsPtr->tcl_FreeResult) /* 147 */
#endif
#ifndef Tcl_GetAlias
#define Tcl_GetAlias \ #define Tcl_GetAlias \
(tclStubsPtr->tcl_GetAlias) /* 148 */ (tclStubsPtr->tcl_GetAlias) /* 148 */
#endif
#ifndef Tcl_GetAliasObj
#define Tcl_GetAliasObj \ #define Tcl_GetAliasObj \
(tclStubsPtr->tcl_GetAliasObj) /* 149 */ (tclStubsPtr->tcl_GetAliasObj) /* 149 */
#endif
#ifndef Tcl_GetAssocData
#define Tcl_GetAssocData \ #define Tcl_GetAssocData \
(tclStubsPtr->tcl_GetAssocData) /* 150 */ (tclStubsPtr->tcl_GetAssocData) /* 150 */
#endif
#ifndef Tcl_GetChannel
#define Tcl_GetChannel \ #define Tcl_GetChannel \
(tclStubsPtr->tcl_GetChannel) /* 151 */ (tclStubsPtr->tcl_GetChannel) /* 151 */
#endif
#ifndef Tcl_GetChannelBufferSize
#define Tcl_GetChannelBufferSize \ #define Tcl_GetChannelBufferSize \
(tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
#endif
#ifndef Tcl_GetChannelHandle
#define Tcl_GetChannelHandle \ #define Tcl_GetChannelHandle \
(tclStubsPtr->tcl_GetChannelHandle) /* 153 */ (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
#endif
#ifndef Tcl_GetChannelInstanceData
#define Tcl_GetChannelInstanceData \ #define Tcl_GetChannelInstanceData \
(tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
#endif
#ifndef Tcl_GetChannelMode
#define Tcl_GetChannelMode \ #define Tcl_GetChannelMode \
(tclStubsPtr->tcl_GetChannelMode) /* 155 */ (tclStubsPtr->tcl_GetChannelMode) /* 155 */
#endif
#ifndef Tcl_GetChannelName
#define Tcl_GetChannelName \ #define Tcl_GetChannelName \
(tclStubsPtr->tcl_GetChannelName) /* 156 */ (tclStubsPtr->tcl_GetChannelName) /* 156 */
#endif
#ifndef Tcl_GetChannelOption
#define Tcl_GetChannelOption \ #define Tcl_GetChannelOption \
(tclStubsPtr->tcl_GetChannelOption) /* 157 */ (tclStubsPtr->tcl_GetChannelOption) /* 157 */
#endif
#ifndef Tcl_GetChannelType
#define Tcl_GetChannelType \ #define Tcl_GetChannelType \
(tclStubsPtr->tcl_GetChannelType) /* 158 */ (tclStubsPtr->tcl_GetChannelType) /* 158 */
#endif
#ifndef Tcl_GetCommandInfo
#define Tcl_GetCommandInfo \ #define Tcl_GetCommandInfo \
(tclStubsPtr->tcl_GetCommandInfo) /* 159 */ (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
#endif
#ifndef Tcl_GetCommandName
#define Tcl_GetCommandName \ #define Tcl_GetCommandName \
(tclStubsPtr->tcl_GetCommandName) /* 160 */ (tclStubsPtr->tcl_GetCommandName) /* 160 */
#endif
#ifndef Tcl_GetErrno
#define Tcl_GetErrno \ #define Tcl_GetErrno \
(tclStubsPtr->tcl_GetErrno) /* 161 */ (tclStubsPtr->tcl_GetErrno) /* 161 */
#endif
#ifndef Tcl_GetHostName
#define Tcl_GetHostName \ #define Tcl_GetHostName \
(tclStubsPtr->tcl_GetHostName) /* 162 */ (tclStubsPtr->tcl_GetHostName) /* 162 */
#endif
#ifndef Tcl_GetInterpPath
#define Tcl_GetInterpPath \ #define Tcl_GetInterpPath \
(tclStubsPtr->tcl_GetInterpPath) /* 163 */ (tclStubsPtr->tcl_GetInterpPath) /* 163 */
#endif
#ifndef Tcl_GetMaster
#define Tcl_GetMaster \ #define Tcl_GetMaster \
(tclStubsPtr->tcl_GetMaster) /* 164 */ (tclStubsPtr->tcl_GetMaster) /* 164 */
#endif
#ifndef Tcl_GetNameOfExecutable
#define Tcl_GetNameOfExecutable \ #define Tcl_GetNameOfExecutable \
(tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
#endif
#ifndef Tcl_GetObjResult
#define Tcl_GetObjResult \ #define Tcl_GetObjResult \
(tclStubsPtr->tcl_GetObjResult) /* 166 */ (tclStubsPtr->tcl_GetObjResult) /* 166 */
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_GetOpenFile
#define Tcl_GetOpenFile \ #define Tcl_GetOpenFile \
(tclStubsPtr->tcl_GetOpenFile) /* 167 */ (tclStubsPtr->tcl_GetOpenFile) /* 167 */
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_GetOpenFile
#define Tcl_GetOpenFile \ #define Tcl_GetOpenFile \
(tclStubsPtr->tcl_GetOpenFile) /* 167 */ (tclStubsPtr->tcl_GetOpenFile) /* 167 */
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#ifndef Tcl_GetPathType
#define Tcl_GetPathType \ #define Tcl_GetPathType \
(tclStubsPtr->tcl_GetPathType) /* 168 */ (tclStubsPtr->tcl_GetPathType) /* 168 */
#endif
#ifndef Tcl_Gets
#define Tcl_Gets \ #define Tcl_Gets \
(tclStubsPtr->tcl_Gets) /* 169 */ (tclStubsPtr->tcl_Gets) /* 169 */
#endif
#ifndef Tcl_GetsObj
#define Tcl_GetsObj \ #define Tcl_GetsObj \
(tclStubsPtr->tcl_GetsObj) /* 170 */ (tclStubsPtr->tcl_GetsObj) /* 170 */
#endif
#ifndef Tcl_GetServiceMode
#define Tcl_GetServiceMode \ #define Tcl_GetServiceMode \
(tclStubsPtr->tcl_GetServiceMode) /* 171 */ (tclStubsPtr->tcl_GetServiceMode) /* 171 */
#endif
#ifndef Tcl_GetSlave
#define Tcl_GetSlave \ #define Tcl_GetSlave \
(tclStubsPtr->tcl_GetSlave) /* 172 */ (tclStubsPtr->tcl_GetSlave) /* 172 */
#endif
#ifndef Tcl_GetStdChannel
#define Tcl_GetStdChannel \ #define Tcl_GetStdChannel \
(tclStubsPtr->tcl_GetStdChannel) /* 173 */ (tclStubsPtr->tcl_GetStdChannel) /* 173 */
#endif
#ifndef Tcl_GetStringResult
#define Tcl_GetStringResult \ #define Tcl_GetStringResult \
(tclStubsPtr->tcl_GetStringResult) /* 174 */ (tclStubsPtr->tcl_GetStringResult) /* 174 */
#endif
#ifndef Tcl_GetVar
#define Tcl_GetVar \ #define Tcl_GetVar \
(tclStubsPtr->tcl_GetVar) /* 175 */ (tclStubsPtr->tcl_GetVar) /* 175 */
#endif
#ifndef Tcl_GetVar2
#define Tcl_GetVar2 \ #define Tcl_GetVar2 \
(tclStubsPtr->tcl_GetVar2) /* 176 */ (tclStubsPtr->tcl_GetVar2) /* 176 */
#endif
#ifndef Tcl_GlobalEval
#define Tcl_GlobalEval \ #define Tcl_GlobalEval \
(tclStubsPtr->tcl_GlobalEval) /* 177 */ (tclStubsPtr->tcl_GlobalEval) /* 177 */
#endif
#ifndef Tcl_GlobalEvalObj
#define Tcl_GlobalEvalObj \ #define Tcl_GlobalEvalObj \
(tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
#endif
#ifndef Tcl_HideCommand
#define Tcl_HideCommand \ #define Tcl_HideCommand \
(tclStubsPtr->tcl_HideCommand) /* 179 */ (tclStubsPtr->tcl_HideCommand) /* 179 */
#endif
#ifndef Tcl_Init
#define Tcl_Init \ #define Tcl_Init \
(tclStubsPtr->tcl_Init) /* 180 */ (tclStubsPtr->tcl_Init) /* 180 */
#endif
#ifndef Tcl_InitHashTable
#define Tcl_InitHashTable \ #define Tcl_InitHashTable \
(tclStubsPtr->tcl_InitHashTable) /* 181 */ (tclStubsPtr->tcl_InitHashTable) /* 181 */
#endif
#ifndef Tcl_InputBlocked
#define Tcl_InputBlocked \ #define Tcl_InputBlocked \
(tclStubsPtr->tcl_InputBlocked) /* 182 */ (tclStubsPtr->tcl_InputBlocked) /* 182 */
#endif
#ifndef Tcl_InputBuffered
#define Tcl_InputBuffered \ #define Tcl_InputBuffered \
(tclStubsPtr->tcl_InputBuffered) /* 183 */ (tclStubsPtr->tcl_InputBuffered) /* 183 */
#endif
#ifndef Tcl_InterpDeleted
#define Tcl_InterpDeleted \ #define Tcl_InterpDeleted \
(tclStubsPtr->tcl_InterpDeleted) /* 184 */ (tclStubsPtr->tcl_InterpDeleted) /* 184 */
#endif
#ifndef Tcl_IsSafe
#define Tcl_IsSafe \ #define Tcl_IsSafe \
(tclStubsPtr->tcl_IsSafe) /* 185 */ (tclStubsPtr->tcl_IsSafe) /* 185 */
#endif
#ifndef Tcl_JoinPath
#define Tcl_JoinPath \ #define Tcl_JoinPath \
(tclStubsPtr->tcl_JoinPath) /* 186 */ (tclStubsPtr->tcl_JoinPath) /* 186 */
#endif
#ifndef Tcl_LinkVar
#define Tcl_LinkVar \ #define Tcl_LinkVar \
(tclStubsPtr->tcl_LinkVar) /* 187 */ (tclStubsPtr->tcl_LinkVar) /* 187 */
#endif
/* Slot 188 is reserved */ /* Slot 188 is reserved */
#ifndef Tcl_MakeFileChannel
#define Tcl_MakeFileChannel \ #define Tcl_MakeFileChannel \
(tclStubsPtr->tcl_MakeFileChannel) /* 189 */ (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
#endif
#ifndef Tcl_MakeSafe
#define Tcl_MakeSafe \ #define Tcl_MakeSafe \
(tclStubsPtr->tcl_MakeSafe) /* 190 */ (tclStubsPtr->tcl_MakeSafe) /* 190 */
#endif
#ifndef Tcl_MakeTcpClientChannel
#define Tcl_MakeTcpClientChannel \ #define Tcl_MakeTcpClientChannel \
(tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
#endif
#ifndef Tcl_Merge
#define Tcl_Merge \ #define Tcl_Merge \
(tclStubsPtr->tcl_Merge) /* 192 */ (tclStubsPtr->tcl_Merge) /* 192 */
#endif
#ifndef Tcl_NextHashEntry
#define Tcl_NextHashEntry \ #define Tcl_NextHashEntry \
(tclStubsPtr->tcl_NextHashEntry) /* 193 */ (tclStubsPtr->tcl_NextHashEntry) /* 193 */
#endif
#ifndef Tcl_NotifyChannel
#define Tcl_NotifyChannel \ #define Tcl_NotifyChannel \
(tclStubsPtr->tcl_NotifyChannel) /* 194 */ (tclStubsPtr->tcl_NotifyChannel) /* 194 */
#endif
#ifndef Tcl_ObjGetVar2
#define Tcl_ObjGetVar2 \ #define Tcl_ObjGetVar2 \
(tclStubsPtr->tcl_ObjGetVar2) /* 195 */ (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
#endif
#ifndef Tcl_ObjSetVar2
#define Tcl_ObjSetVar2 \ #define Tcl_ObjSetVar2 \
(tclStubsPtr->tcl_ObjSetVar2) /* 196 */ (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
#endif
#ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \ #define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif
#ifndef Tcl_OpenFileChannel
#define Tcl_OpenFileChannel \ #define Tcl_OpenFileChannel \
(tclStubsPtr->tcl_OpenFileChannel) /* 198 */ (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
#endif
#ifndef Tcl_OpenTcpClient
#define Tcl_OpenTcpClient \ #define Tcl_OpenTcpClient \
(tclStubsPtr->tcl_OpenTcpClient) /* 199 */ (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
#endif
#ifndef Tcl_OpenTcpServer
#define Tcl_OpenTcpServer \ #define Tcl_OpenTcpServer \
(tclStubsPtr->tcl_OpenTcpServer) /* 200 */ (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
#endif
#ifndef Tcl_Preserve
#define Tcl_Preserve \ #define Tcl_Preserve \
(tclStubsPtr->tcl_Preserve) /* 201 */ (tclStubsPtr->tcl_Preserve) /* 201 */
#endif
#ifndef Tcl_PrintDouble
#define Tcl_PrintDouble \ #define Tcl_PrintDouble \
(tclStubsPtr->tcl_PrintDouble) /* 202 */ (tclStubsPtr->tcl_PrintDouble) /* 202 */
#endif
#ifndef Tcl_PutEnv
#define Tcl_PutEnv \ #define Tcl_PutEnv \
(tclStubsPtr->tcl_PutEnv) /* 203 */ (tclStubsPtr->tcl_PutEnv) /* 203 */
#endif
#ifndef Tcl_PosixError
#define Tcl_PosixError \ #define Tcl_PosixError \
(tclStubsPtr->tcl_PosixError) /* 204 */ (tclStubsPtr->tcl_PosixError) /* 204 */
#endif
#ifndef Tcl_QueueEvent
#define Tcl_QueueEvent \ #define Tcl_QueueEvent \
(tclStubsPtr->tcl_QueueEvent) /* 205 */ (tclStubsPtr->tcl_QueueEvent) /* 205 */
#endif
#ifndef Tcl_Read
#define Tcl_Read \ #define Tcl_Read \
(tclStubsPtr->tcl_Read) /* 206 */ (tclStubsPtr->tcl_Read) /* 206 */
#endif
#ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \ #define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif
#ifndef Tcl_RecordAndEval
#define Tcl_RecordAndEval \ #define Tcl_RecordAndEval \
(tclStubsPtr->tcl_RecordAndEval) /* 208 */ (tclStubsPtr->tcl_RecordAndEval) /* 208 */
#endif
#ifndef Tcl_RecordAndEvalObj
#define Tcl_RecordAndEvalObj \ #define Tcl_RecordAndEvalObj \
(tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
#endif
#ifndef Tcl_RegisterChannel
#define Tcl_RegisterChannel \ #define Tcl_RegisterChannel \
(tclStubsPtr->tcl_RegisterChannel) /* 210 */ (tclStubsPtr->tcl_RegisterChannel) /* 210 */
#endif
#ifndef Tcl_RegisterObjType
#define Tcl_RegisterObjType \ #define Tcl_RegisterObjType \
(tclStubsPtr->tcl_RegisterObjType) /* 211 */ (tclStubsPtr->tcl_RegisterObjType) /* 211 */
#endif
#ifndef Tcl_RegExpCompile
#define Tcl_RegExpCompile \ #define Tcl_RegExpCompile \
(tclStubsPtr->tcl_RegExpCompile) /* 212 */ (tclStubsPtr->tcl_RegExpCompile) /* 212 */
#endif
#ifndef Tcl_RegExpExec
#define Tcl_RegExpExec \ #define Tcl_RegExpExec \
(tclStubsPtr->tcl_RegExpExec) /* 213 */ (tclStubsPtr->tcl_RegExpExec) /* 213 */
#endif
#ifndef Tcl_RegExpMatch
#define Tcl_RegExpMatch \ #define Tcl_RegExpMatch \
(tclStubsPtr->tcl_RegExpMatch) /* 214 */ (tclStubsPtr->tcl_RegExpMatch) /* 214 */
#endif
#ifndef Tcl_RegExpRange
#define Tcl_RegExpRange \ #define Tcl_RegExpRange \
(tclStubsPtr->tcl_RegExpRange) /* 215 */ (tclStubsPtr->tcl_RegExpRange) /* 215 */
#endif
#ifndef Tcl_Release
#define Tcl_Release \ #define Tcl_Release \
(tclStubsPtr->tcl_Release) /* 216 */ (tclStubsPtr->tcl_Release) /* 216 */
#endif
#ifndef Tcl_ResetResult
#define Tcl_ResetResult \ #define Tcl_ResetResult \
(tclStubsPtr->tcl_ResetResult) /* 217 */ (tclStubsPtr->tcl_ResetResult) /* 217 */
#endif
#ifndef Tcl_ScanElement
#define Tcl_ScanElement \ #define Tcl_ScanElement \
(tclStubsPtr->tcl_ScanElement) /* 218 */ (tclStubsPtr->tcl_ScanElement) /* 218 */
#endif
#ifndef Tcl_ScanCountedElement
#define Tcl_ScanCountedElement \ #define Tcl_ScanCountedElement \
(tclStubsPtr->tcl_ScanCountedElement) /* 219 */ (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
#endif
#ifndef Tcl_SeekOld
#define Tcl_SeekOld \ #define Tcl_SeekOld \
(tclStubsPtr->tcl_SeekOld) /* 220 */ (tclStubsPtr->tcl_SeekOld) /* 220 */
#endif
#ifndef Tcl_ServiceAll
#define Tcl_ServiceAll \ #define Tcl_ServiceAll \
(tclStubsPtr->tcl_ServiceAll) /* 221 */ (tclStubsPtr->tcl_ServiceAll) /* 221 */
#endif
#ifndef Tcl_ServiceEvent
#define Tcl_ServiceEvent \ #define Tcl_ServiceEvent \
(tclStubsPtr->tcl_ServiceEvent) /* 222 */ (tclStubsPtr->tcl_ServiceEvent) /* 222 */
#endif
#ifndef Tcl_SetAssocData
#define Tcl_SetAssocData \ #define Tcl_SetAssocData \
(tclStubsPtr->tcl_SetAssocData) /* 223 */ (tclStubsPtr->tcl_SetAssocData) /* 223 */
#endif
#ifndef Tcl_SetChannelBufferSize
#define Tcl_SetChannelBufferSize \ #define Tcl_SetChannelBufferSize \
(tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
#endif
#ifndef Tcl_SetChannelOption
#define Tcl_SetChannelOption \ #define Tcl_SetChannelOption \
(tclStubsPtr->tcl_SetChannelOption) /* 225 */ (tclStubsPtr->tcl_SetChannelOption) /* 225 */
#endif
#ifndef Tcl_SetCommandInfo
#define Tcl_SetCommandInfo \ #define Tcl_SetCommandInfo \
(tclStubsPtr->tcl_SetCommandInfo) /* 226 */ (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
#endif
#ifndef Tcl_SetErrno
#define Tcl_SetErrno \ #define Tcl_SetErrno \
(tclStubsPtr->tcl_SetErrno) /* 227 */ (tclStubsPtr->tcl_SetErrno) /* 227 */
#endif
#ifndef Tcl_SetErrorCode
#define Tcl_SetErrorCode \ #define Tcl_SetErrorCode \
(tclStubsPtr->tcl_SetErrorCode) /* 228 */ (tclStubsPtr->tcl_SetErrorCode) /* 228 */
#endif
#ifndef Tcl_SetMaxBlockTime
#define Tcl_SetMaxBlockTime \ #define Tcl_SetMaxBlockTime \
(tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
#endif
#ifndef Tcl_SetPanicProc
#define Tcl_SetPanicProc \ #define Tcl_SetPanicProc \
(tclStubsPtr->tcl_SetPanicProc) /* 230 */ (tclStubsPtr->tcl_SetPanicProc) /* 230 */
#endif
#ifndef Tcl_SetRecursionLimit
#define Tcl_SetRecursionLimit \ #define Tcl_SetRecursionLimit \
(tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
#endif
#ifndef Tcl_SetResult
#define Tcl_SetResult \ #define Tcl_SetResult \
(tclStubsPtr->tcl_SetResult) /* 232 */ (tclStubsPtr->tcl_SetResult) /* 232 */
#endif
#ifndef Tcl_SetServiceMode
#define Tcl_SetServiceMode \ #define Tcl_SetServiceMode \
(tclStubsPtr->tcl_SetServiceMode) /* 233 */ (tclStubsPtr->tcl_SetServiceMode) /* 233 */
#endif
#ifndef Tcl_SetObjErrorCode
#define Tcl_SetObjErrorCode \ #define Tcl_SetObjErrorCode \
(tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
#endif
#ifndef Tcl_SetObjResult
#define Tcl_SetObjResult \ #define Tcl_SetObjResult \
(tclStubsPtr->tcl_SetObjResult) /* 235 */ (tclStubsPtr->tcl_SetObjResult) /* 235 */
#endif
#ifndef Tcl_SetStdChannel
#define Tcl_SetStdChannel \ #define Tcl_SetStdChannel \
(tclStubsPtr->tcl_SetStdChannel) /* 236 */ (tclStubsPtr->tcl_SetStdChannel) /* 236 */
#endif
#ifndef Tcl_SetVar
#define Tcl_SetVar \ #define Tcl_SetVar \
(tclStubsPtr->tcl_SetVar) /* 237 */ (tclStubsPtr->tcl_SetVar) /* 237 */
#endif
#ifndef Tcl_SetVar2
#define Tcl_SetVar2 \ #define Tcl_SetVar2 \
(tclStubsPtr->tcl_SetVar2) /* 238 */ (tclStubsPtr->tcl_SetVar2) /* 238 */
#endif
#ifndef Tcl_SignalId
#define Tcl_SignalId \ #define Tcl_SignalId \
(tclStubsPtr->tcl_SignalId) /* 239 */ (tclStubsPtr->tcl_SignalId) /* 239 */
#endif
#ifndef Tcl_SignalMsg
#define Tcl_SignalMsg \ #define Tcl_SignalMsg \
(tclStubsPtr->tcl_SignalMsg) /* 240 */ (tclStubsPtr->tcl_SignalMsg) /* 240 */
#endif
#ifndef Tcl_SourceRCFile
#define Tcl_SourceRCFile \ #define Tcl_SourceRCFile \
(tclStubsPtr->tcl_SourceRCFile) /* 241 */ (tclStubsPtr->tcl_SourceRCFile) /* 241 */
#endif
#ifndef Tcl_SplitList
#define Tcl_SplitList \ #define Tcl_SplitList \
(tclStubsPtr->tcl_SplitList) /* 242 */ (tclStubsPtr->tcl_SplitList) /* 242 */
#endif
#ifndef Tcl_SplitPath
#define Tcl_SplitPath \ #define Tcl_SplitPath \
(tclStubsPtr->tcl_SplitPath) /* 243 */ (tclStubsPtr->tcl_SplitPath) /* 243 */
#endif
#ifndef Tcl_StaticPackage
#define Tcl_StaticPackage \ #define Tcl_StaticPackage \
(tclStubsPtr->tcl_StaticPackage) /* 244 */ (tclStubsPtr->tcl_StaticPackage) /* 244 */
#endif
#ifndef Tcl_StringMatch
#define Tcl_StringMatch \ #define Tcl_StringMatch \
(tclStubsPtr->tcl_StringMatch) /* 245 */ (tclStubsPtr->tcl_StringMatch) /* 245 */
#endif
#ifndef Tcl_TellOld
#define Tcl_TellOld \ #define Tcl_TellOld \
(tclStubsPtr->tcl_TellOld) /* 246 */ (tclStubsPtr->tcl_TellOld) /* 246 */
#endif
#ifndef Tcl_TraceVar
#define Tcl_TraceVar \ #define Tcl_TraceVar \
(tclStubsPtr->tcl_TraceVar) /* 247 */ (tclStubsPtr->tcl_TraceVar) /* 247 */
#endif
#ifndef Tcl_TraceVar2
#define Tcl_TraceVar2 \ #define Tcl_TraceVar2 \
(tclStubsPtr->tcl_TraceVar2) /* 248 */ (tclStubsPtr->tcl_TraceVar2) /* 248 */
#endif
#ifndef Tcl_TranslateFileName
#define Tcl_TranslateFileName \ #define Tcl_TranslateFileName \
(tclStubsPtr->tcl_TranslateFileName) /* 249 */ (tclStubsPtr->tcl_TranslateFileName) /* 249 */
#endif
#ifndef Tcl_Ungets
#define Tcl_Ungets \ #define Tcl_Ungets \
(tclStubsPtr->tcl_Ungets) /* 250 */ (tclStubsPtr->tcl_Ungets) /* 250 */
#endif
#ifndef Tcl_UnlinkVar
#define Tcl_UnlinkVar \ #define Tcl_UnlinkVar \
(tclStubsPtr->tcl_UnlinkVar) /* 251 */ (tclStubsPtr->tcl_UnlinkVar) /* 251 */
#endif
#ifndef Tcl_UnregisterChannel
#define Tcl_UnregisterChannel \ #define Tcl_UnregisterChannel \
(tclStubsPtr->tcl_UnregisterChannel) /* 252 */ (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
#endif
#ifndef Tcl_UnsetVar
#define Tcl_UnsetVar \ #define Tcl_UnsetVar \
(tclStubsPtr->tcl_UnsetVar) /* 253 */ (tclStubsPtr->tcl_UnsetVar) /* 253 */
#endif
#ifndef Tcl_UnsetVar2
#define Tcl_UnsetVar2 \ #define Tcl_UnsetVar2 \
(tclStubsPtr->tcl_UnsetVar2) /* 254 */ (tclStubsPtr->tcl_UnsetVar2) /* 254 */
#endif
#ifndef Tcl_UntraceVar
#define Tcl_UntraceVar \ #define Tcl_UntraceVar \
(tclStubsPtr->tcl_UntraceVar) /* 255 */ (tclStubsPtr->tcl_UntraceVar) /* 255 */
#endif
#ifndef Tcl_UntraceVar2
#define Tcl_UntraceVar2 \ #define Tcl_UntraceVar2 \
(tclStubsPtr->tcl_UntraceVar2) /* 256 */ (tclStubsPtr->tcl_UntraceVar2) /* 256 */
#endif
#ifndef Tcl_UpdateLinkedVar
#define Tcl_UpdateLinkedVar \ #define Tcl_UpdateLinkedVar \
(tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
#endif
#ifndef Tcl_UpVar
#define Tcl_UpVar \ #define Tcl_UpVar \
(tclStubsPtr->tcl_UpVar) /* 258 */ (tclStubsPtr->tcl_UpVar) /* 258 */
#endif
#ifndef Tcl_UpVar2
#define Tcl_UpVar2 \ #define Tcl_UpVar2 \
(tclStubsPtr->tcl_UpVar2) /* 259 */ (tclStubsPtr->tcl_UpVar2) /* 259 */
#endif
#ifndef Tcl_VarEval
#define Tcl_VarEval \ #define Tcl_VarEval \
(tclStubsPtr->tcl_VarEval) /* 260 */ (tclStubsPtr->tcl_VarEval) /* 260 */
#endif
#ifndef Tcl_VarTraceInfo
#define Tcl_VarTraceInfo \ #define Tcl_VarTraceInfo \
(tclStubsPtr->tcl_VarTraceInfo) /* 261 */ (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
#endif
#ifndef Tcl_VarTraceInfo2
#define Tcl_VarTraceInfo2 \ #define Tcl_VarTraceInfo2 \
(tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
#endif
#ifndef Tcl_Write
#define Tcl_Write \ #define Tcl_Write \
(tclStubsPtr->tcl_Write) /* 263 */ (tclStubsPtr->tcl_Write) /* 263 */
#endif
#ifndef Tcl_WrongNumArgs
#define Tcl_WrongNumArgs \ #define Tcl_WrongNumArgs \
(tclStubsPtr->tcl_WrongNumArgs) /* 264 */ (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
#endif
#ifndef Tcl_DumpActiveMemory
#define Tcl_DumpActiveMemory \ #define Tcl_DumpActiveMemory \
(tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
#endif
#ifndef Tcl_ValidateAllMemory
#define Tcl_ValidateAllMemory \ #define Tcl_ValidateAllMemory \
(tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
#endif
#ifndef Tcl_AppendResultVA
#define Tcl_AppendResultVA \ #define Tcl_AppendResultVA \
(tclStubsPtr->tcl_AppendResultVA) /* 267 */ (tclStubsPtr->tcl_AppendResultVA) /* 267 */
#endif
#ifndef Tcl_AppendStringsToObjVA
#define Tcl_AppendStringsToObjVA \ #define Tcl_AppendStringsToObjVA \
(tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
#endif
#ifndef Tcl_HashStats
#define Tcl_HashStats \ #define Tcl_HashStats \
(tclStubsPtr->tcl_HashStats) /* 269 */ (tclStubsPtr->tcl_HashStats) /* 269 */
#endif
#ifndef Tcl_ParseVar
#define Tcl_ParseVar \ #define Tcl_ParseVar \
(tclStubsPtr->tcl_ParseVar) /* 270 */ (tclStubsPtr->tcl_ParseVar) /* 270 */
#endif
#ifndef Tcl_PkgPresent
#define Tcl_PkgPresent \ #define Tcl_PkgPresent \
(tclStubsPtr->tcl_PkgPresent) /* 271 */ (tclStubsPtr->tcl_PkgPresent) /* 271 */
#endif
#ifndef Tcl_PkgPresentEx
#define Tcl_PkgPresentEx \ #define Tcl_PkgPresentEx \
(tclStubsPtr->tcl_PkgPresentEx) /* 272 */ (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
#endif
#ifndef Tcl_PkgProvide
#define Tcl_PkgProvide \ #define Tcl_PkgProvide \
(tclStubsPtr->tcl_PkgProvide) /* 273 */ (tclStubsPtr->tcl_PkgProvide) /* 273 */
#endif
#ifndef Tcl_PkgRequire
#define Tcl_PkgRequire \ #define Tcl_PkgRequire \
(tclStubsPtr->tcl_PkgRequire) /* 274 */ (tclStubsPtr->tcl_PkgRequire) /* 274 */
#endif
#ifndef Tcl_SetErrorCodeVA
#define Tcl_SetErrorCodeVA \ #define Tcl_SetErrorCodeVA \
(tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
#endif
#ifndef Tcl_VarEvalVA
#define Tcl_VarEvalVA \ #define Tcl_VarEvalVA \
(tclStubsPtr->tcl_VarEvalVA) /* 276 */ (tclStubsPtr->tcl_VarEvalVA) /* 276 */
#endif
#ifndef Tcl_WaitPid
#define Tcl_WaitPid \ #define Tcl_WaitPid \
(tclStubsPtr->tcl_WaitPid) /* 277 */ (tclStubsPtr->tcl_WaitPid) /* 277 */
#endif
#ifndef Tcl_PanicVA
#define Tcl_PanicVA \ #define Tcl_PanicVA \
(tclStubsPtr->tcl_PanicVA) /* 278 */ (tclStubsPtr->tcl_PanicVA) /* 278 */
#endif
#ifndef Tcl_GetVersion
#define Tcl_GetVersion \ #define Tcl_GetVersion \
(tclStubsPtr->tcl_GetVersion) /* 279 */ (tclStubsPtr->tcl_GetVersion) /* 279 */
#endif
#ifndef Tcl_InitMemory
#define Tcl_InitMemory \ #define Tcl_InitMemory \
(tclStubsPtr->tcl_InitMemory) /* 280 */ (tclStubsPtr->tcl_InitMemory) /* 280 */
#endif
#ifndef Tcl_StackChannel
#define Tcl_StackChannel \ #define Tcl_StackChannel \
(tclStubsPtr->tcl_StackChannel) /* 281 */ (tclStubsPtr->tcl_StackChannel) /* 281 */
#endif
#ifndef Tcl_UnstackChannel
#define Tcl_UnstackChannel \ #define Tcl_UnstackChannel \
(tclStubsPtr->tcl_UnstackChannel) /* 282 */ (tclStubsPtr->tcl_UnstackChannel) /* 282 */
#endif
#ifndef Tcl_GetStackedChannel
#define Tcl_GetStackedChannel \ #define Tcl_GetStackedChannel \
(tclStubsPtr->tcl_GetStackedChannel) /* 283 */ (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
#endif
#ifndef Tcl_SetMainLoop
#define Tcl_SetMainLoop \ #define Tcl_SetMainLoop \
(tclStubsPtr->tcl_SetMainLoop) /* 284 */ (tclStubsPtr->tcl_SetMainLoop) /* 284 */
#endif
/* Slot 285 is reserved */ /* Slot 285 is reserved */
#ifndef Tcl_AppendObjToObj
#define Tcl_AppendObjToObj \ #define Tcl_AppendObjToObj \
(tclStubsPtr->tcl_AppendObjToObj) /* 286 */ (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
#endif
#ifndef Tcl_CreateEncoding
#define Tcl_CreateEncoding \ #define Tcl_CreateEncoding \
(tclStubsPtr->tcl_CreateEncoding) /* 287 */ (tclStubsPtr->tcl_CreateEncoding) /* 287 */
#endif
#ifndef Tcl_CreateThreadExitHandler
#define Tcl_CreateThreadExitHandler \ #define Tcl_CreateThreadExitHandler \
(tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
#endif
#ifndef Tcl_DeleteThreadExitHandler
#define Tcl_DeleteThreadExitHandler \ #define Tcl_DeleteThreadExitHandler \
(tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
#endif
#ifndef Tcl_DiscardResult
#define Tcl_DiscardResult \ #define Tcl_DiscardResult \
(tclStubsPtr->tcl_DiscardResult) /* 290 */ (tclStubsPtr->tcl_DiscardResult) /* 290 */
#endif
#ifndef Tcl_EvalEx
#define Tcl_EvalEx \ #define Tcl_EvalEx \
(tclStubsPtr->tcl_EvalEx) /* 291 */ (tclStubsPtr->tcl_EvalEx) /* 291 */
#endif
#ifndef Tcl_EvalObjv
#define Tcl_EvalObjv \ #define Tcl_EvalObjv \
(tclStubsPtr->tcl_EvalObjv) /* 292 */ (tclStubsPtr->tcl_EvalObjv) /* 292 */
#endif
#ifndef Tcl_EvalObjEx
#define Tcl_EvalObjEx \ #define Tcl_EvalObjEx \
(tclStubsPtr->tcl_EvalObjEx) /* 293 */ (tclStubsPtr->tcl_EvalObjEx) /* 293 */
#endif
#ifndef Tcl_ExitThread
#define Tcl_ExitThread \ #define Tcl_ExitThread \
(tclStubsPtr->tcl_ExitThread) /* 294 */ (tclStubsPtr->tcl_ExitThread) /* 294 */
#endif
#ifndef Tcl_ExternalToUtf
#define Tcl_ExternalToUtf \ #define Tcl_ExternalToUtf \
(tclStubsPtr->tcl_ExternalToUtf) /* 295 */ (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
#endif
#ifndef Tcl_ExternalToUtfDString
#define Tcl_ExternalToUtfDString \ #define Tcl_ExternalToUtfDString \
(tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
#endif
#ifndef Tcl_FinalizeThread
#define Tcl_FinalizeThread \ #define Tcl_FinalizeThread \
(tclStubsPtr->tcl_FinalizeThread) /* 297 */ (tclStubsPtr->tcl_FinalizeThread) /* 297 */
#endif
#ifndef Tcl_FinalizeNotifier
#define Tcl_FinalizeNotifier \ #define Tcl_FinalizeNotifier \
(tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
#endif
#ifndef Tcl_FreeEncoding
#define Tcl_FreeEncoding \ #define Tcl_FreeEncoding \
(tclStubsPtr->tcl_FreeEncoding) /* 299 */ (tclStubsPtr->tcl_FreeEncoding) /* 299 */
#endif
#ifndef Tcl_GetCurrentThread
#define Tcl_GetCurrentThread \ #define Tcl_GetCurrentThread \
(tclStubsPtr->tcl_GetCurrentThread) /* 300 */ (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
#endif
#ifndef Tcl_GetEncoding
#define Tcl_GetEncoding \ #define Tcl_GetEncoding \
(tclStubsPtr->tcl_GetEncoding) /* 301 */ (tclStubsPtr->tcl_GetEncoding) /* 301 */
#endif
#ifndef Tcl_GetEncodingName
#define Tcl_GetEncodingName \ #define Tcl_GetEncodingName \
(tclStubsPtr->tcl_GetEncodingName) /* 302 */ (tclStubsPtr->tcl_GetEncodingName) /* 302 */
#endif
#ifndef Tcl_GetEncodingNames
#define Tcl_GetEncodingNames \ #define Tcl_GetEncodingNames \
(tclStubsPtr->tcl_GetEncodingNames) /* 303 */ (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
#endif
#ifndef Tcl_GetIndexFromObjStruct
#define Tcl_GetIndexFromObjStruct \ #define Tcl_GetIndexFromObjStruct \
(tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
#endif
#ifndef Tcl_GetThreadData
#define Tcl_GetThreadData \ #define Tcl_GetThreadData \
(tclStubsPtr->tcl_GetThreadData) /* 305 */ (tclStubsPtr->tcl_GetThreadData) /* 305 */
#endif
#ifndef Tcl_GetVar2Ex
#define Tcl_GetVar2Ex \ #define Tcl_GetVar2Ex \
(tclStubsPtr->tcl_GetVar2Ex) /* 306 */ (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
#endif
#ifndef Tcl_InitNotifier
#define Tcl_InitNotifier \ #define Tcl_InitNotifier \
(tclStubsPtr->tcl_InitNotifier) /* 307 */ (tclStubsPtr->tcl_InitNotifier) /* 307 */
#endif
#ifndef Tcl_MutexLock
#define Tcl_MutexLock \ #define Tcl_MutexLock \
(tclStubsPtr->tcl_MutexLock) /* 308 */ (tclStubsPtr->tcl_MutexLock) /* 308 */
#endif
#ifndef Tcl_MutexUnlock
#define Tcl_MutexUnlock \ #define Tcl_MutexUnlock \
(tclStubsPtr->tcl_MutexUnlock) /* 309 */ (tclStubsPtr->tcl_MutexUnlock) /* 309 */
#endif
#ifndef Tcl_ConditionNotify
#define Tcl_ConditionNotify \ #define Tcl_ConditionNotify \
(tclStubsPtr->tcl_ConditionNotify) /* 310 */ (tclStubsPtr->tcl_ConditionNotify) /* 310 */
#endif
#ifndef Tcl_ConditionWait
#define Tcl_ConditionWait \ #define Tcl_ConditionWait \
(tclStubsPtr->tcl_ConditionWait) /* 311 */ (tclStubsPtr->tcl_ConditionWait) /* 311 */
#endif
#ifndef Tcl_NumUtfChars
#define Tcl_NumUtfChars \ #define Tcl_NumUtfChars \
(tclStubsPtr->tcl_NumUtfChars) /* 312 */ (tclStubsPtr->tcl_NumUtfChars) /* 312 */
#endif
#ifndef Tcl_ReadChars
#define Tcl_ReadChars \ #define Tcl_ReadChars \
(tclStubsPtr->tcl_ReadChars) /* 313 */ (tclStubsPtr->tcl_ReadChars) /* 313 */
#endif
#ifndef Tcl_RestoreResult
#define Tcl_RestoreResult \ #define Tcl_RestoreResult \
(tclStubsPtr->tcl_RestoreResult) /* 314 */ (tclStubsPtr->tcl_RestoreResult) /* 314 */
#endif
#ifndef Tcl_SaveResult
#define Tcl_SaveResult \ #define Tcl_SaveResult \
(tclStubsPtr->tcl_SaveResult) /* 315 */ (tclStubsPtr->tcl_SaveResult) /* 315 */
#endif
#ifndef Tcl_SetSystemEncoding
#define Tcl_SetSystemEncoding \ #define Tcl_SetSystemEncoding \
(tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
#endif
#ifndef Tcl_SetVar2Ex
#define Tcl_SetVar2Ex \ #define Tcl_SetVar2Ex \
(tclStubsPtr->tcl_SetVar2Ex) /* 317 */ (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
#endif
#ifndef Tcl_ThreadAlert
#define Tcl_ThreadAlert \ #define Tcl_ThreadAlert \
(tclStubsPtr->tcl_ThreadAlert) /* 318 */ (tclStubsPtr->tcl_ThreadAlert) /* 318 */
#endif
#ifndef Tcl_ThreadQueueEvent
#define Tcl_ThreadQueueEvent \ #define Tcl_ThreadQueueEvent \
(tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
#endif
#ifndef Tcl_UniCharAtIndex
#define Tcl_UniCharAtIndex \ #define Tcl_UniCharAtIndex \
(tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
#endif
#ifndef Tcl_UniCharToLower
#define Tcl_UniCharToLower \ #define Tcl_UniCharToLower \
(tclStubsPtr->tcl_UniCharToLower) /* 321 */ (tclStubsPtr->tcl_UniCharToLower) /* 321 */
#endif
#ifndef Tcl_UniCharToTitle
#define Tcl_UniCharToTitle \ #define Tcl_UniCharToTitle \
(tclStubsPtr->tcl_UniCharToTitle) /* 322 */ (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
#endif
#ifndef Tcl_UniCharToUpper
#define Tcl_UniCharToUpper \ #define Tcl_UniCharToUpper \
(tclStubsPtr->tcl_UniCharToUpper) /* 323 */ (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
#endif
#ifndef Tcl_UniCharToUtf
#define Tcl_UniCharToUtf \ #define Tcl_UniCharToUtf \
(tclStubsPtr->tcl_UniCharToUtf) /* 324 */ (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
#endif
#ifndef Tcl_UtfAtIndex
#define Tcl_UtfAtIndex \ #define Tcl_UtfAtIndex \
(tclStubsPtr->tcl_UtfAtIndex) /* 325 */ (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
#endif
#ifndef Tcl_UtfCharComplete
#define Tcl_UtfCharComplete \ #define Tcl_UtfCharComplete \
(tclStubsPtr->tcl_UtfCharComplete) /* 326 */ (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
#endif
#ifndef Tcl_UtfBackslash
#define Tcl_UtfBackslash \ #define Tcl_UtfBackslash \
(tclStubsPtr->tcl_UtfBackslash) /* 327 */ (tclStubsPtr->tcl_UtfBackslash) /* 327 */
#endif
#ifndef Tcl_UtfFindFirst
#define Tcl_UtfFindFirst \ #define Tcl_UtfFindFirst \
(tclStubsPtr->tcl_UtfFindFirst) /* 328 */ (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
#endif
#ifndef Tcl_UtfFindLast
#define Tcl_UtfFindLast \ #define Tcl_UtfFindLast \
(tclStubsPtr->tcl_UtfFindLast) /* 329 */ (tclStubsPtr->tcl_UtfFindLast) /* 329 */
#endif
#ifndef Tcl_UtfNext
#define Tcl_UtfNext \ #define Tcl_UtfNext \
(tclStubsPtr->tcl_UtfNext) /* 330 */ (tclStubsPtr->tcl_UtfNext) /* 330 */
#endif
#ifndef Tcl_UtfPrev
#define Tcl_UtfPrev \ #define Tcl_UtfPrev \
(tclStubsPtr->tcl_UtfPrev) /* 331 */ (tclStubsPtr->tcl_UtfPrev) /* 331 */
#endif
#ifndef Tcl_UtfToExternal
#define Tcl_UtfToExternal \ #define Tcl_UtfToExternal \
(tclStubsPtr->tcl_UtfToExternal) /* 332 */ (tclStubsPtr->tcl_UtfToExternal) /* 332 */
#endif
#ifndef Tcl_UtfToExternalDString
#define Tcl_UtfToExternalDString \ #define Tcl_UtfToExternalDString \
(tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
#endif
#ifndef Tcl_UtfToLower
#define Tcl_UtfToLower \ #define Tcl_UtfToLower \
(tclStubsPtr->tcl_UtfToLower) /* 334 */ (tclStubsPtr->tcl_UtfToLower) /* 334 */
#endif
#ifndef Tcl_UtfToTitle
#define Tcl_UtfToTitle \ #define Tcl_UtfToTitle \
(tclStubsPtr->tcl_UtfToTitle) /* 335 */ (tclStubsPtr->tcl_UtfToTitle) /* 335 */
#endif
#ifndef Tcl_UtfToUniChar
#define Tcl_UtfToUniChar \ #define Tcl_UtfToUniChar \
(tclStubsPtr->tcl_UtfToUniChar) /* 336 */ (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
#endif
#ifndef Tcl_UtfToUpper
#define Tcl_UtfToUpper \ #define Tcl_UtfToUpper \
(tclStubsPtr->tcl_UtfToUpper) /* 337 */ (tclStubsPtr->tcl_UtfToUpper) /* 337 */
#endif
#ifndef Tcl_WriteChars
#define Tcl_WriteChars \ #define Tcl_WriteChars \
(tclStubsPtr->tcl_WriteChars) /* 338 */ (tclStubsPtr->tcl_WriteChars) /* 338 */
#endif
#ifndef Tcl_WriteObj
#define Tcl_WriteObj \ #define Tcl_WriteObj \
(tclStubsPtr->tcl_WriteObj) /* 339 */ (tclStubsPtr->tcl_WriteObj) /* 339 */
#endif
#ifndef Tcl_GetString
#define Tcl_GetString \ #define Tcl_GetString \
(tclStubsPtr->tcl_GetString) /* 340 */ (tclStubsPtr->tcl_GetString) /* 340 */
#endif
#ifndef Tcl_GetDefaultEncodingDir
#define Tcl_GetDefaultEncodingDir \ #define Tcl_GetDefaultEncodingDir \
(tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
#endif
#ifndef Tcl_SetDefaultEncodingDir
#define Tcl_SetDefaultEncodingDir \ #define Tcl_SetDefaultEncodingDir \
(tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
#endif
#ifndef Tcl_AlertNotifier
#define Tcl_AlertNotifier \ #define Tcl_AlertNotifier \
(tclStubsPtr->tcl_AlertNotifier) /* 343 */ (tclStubsPtr->tcl_AlertNotifier) /* 343 */
#endif
#ifndef Tcl_ServiceModeHook
#define Tcl_ServiceModeHook \ #define Tcl_ServiceModeHook \
(tclStubsPtr->tcl_ServiceModeHook) /* 344 */ (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
#endif
#ifndef Tcl_UniCharIsAlnum
#define Tcl_UniCharIsAlnum \ #define Tcl_UniCharIsAlnum \
(tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
#endif
#ifndef Tcl_UniCharIsAlpha
#define Tcl_UniCharIsAlpha \ #define Tcl_UniCharIsAlpha \
(tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
#endif
#ifndef Tcl_UniCharIsDigit
#define Tcl_UniCharIsDigit \ #define Tcl_UniCharIsDigit \
(tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
#endif
#ifndef Tcl_UniCharIsLower
#define Tcl_UniCharIsLower \ #define Tcl_UniCharIsLower \
(tclStubsPtr->tcl_UniCharIsLower) /* 348 */ (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
#endif
#ifndef Tcl_UniCharIsSpace
#define Tcl_UniCharIsSpace \ #define Tcl_UniCharIsSpace \
(tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
#endif
#ifndef Tcl_UniCharIsUpper
#define Tcl_UniCharIsUpper \ #define Tcl_UniCharIsUpper \
(tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
#endif
#ifndef Tcl_UniCharIsWordChar
#define Tcl_UniCharIsWordChar \ #define Tcl_UniCharIsWordChar \
(tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
#endif
#ifndef Tcl_UniCharLen
#define Tcl_UniCharLen \ #define Tcl_UniCharLen \
(tclStubsPtr->tcl_UniCharLen) /* 352 */ (tclStubsPtr->tcl_UniCharLen) /* 352 */
#endif
#ifndef Tcl_UniCharNcmp
#define Tcl_UniCharNcmp \ #define Tcl_UniCharNcmp \
(tclStubsPtr->tcl_UniCharNcmp) /* 353 */ (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
#endif
#ifndef Tcl_UniCharToUtfDString
#define Tcl_UniCharToUtfDString \ #define Tcl_UniCharToUtfDString \
(tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
#endif
#ifndef Tcl_UtfToUniCharDString
#define Tcl_UtfToUniCharDString \ #define Tcl_UtfToUniCharDString \
(tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
#endif
#ifndef Tcl_GetRegExpFromObj
#define Tcl_GetRegExpFromObj \ #define Tcl_GetRegExpFromObj \
(tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
#endif
#ifndef Tcl_EvalTokens
#define Tcl_EvalTokens \ #define Tcl_EvalTokens \
(tclStubsPtr->tcl_EvalTokens) /* 357 */ (tclStubsPtr->tcl_EvalTokens) /* 357 */
#endif
#ifndef Tcl_FreeParse
#define Tcl_FreeParse \ #define Tcl_FreeParse \
(tclStubsPtr->tcl_FreeParse) /* 358 */ (tclStubsPtr->tcl_FreeParse) /* 358 */
#endif
#ifndef Tcl_LogCommandInfo
#define Tcl_LogCommandInfo \ #define Tcl_LogCommandInfo \
(tclStubsPtr->tcl_LogCommandInfo) /* 359 */ (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
#endif
#ifndef Tcl_ParseBraces
#define Tcl_ParseBraces \ #define Tcl_ParseBraces \
(tclStubsPtr->tcl_ParseBraces) /* 360 */ (tclStubsPtr->tcl_ParseBraces) /* 360 */
#endif
#ifndef Tcl_ParseCommand
#define Tcl_ParseCommand \ #define Tcl_ParseCommand \
(tclStubsPtr->tcl_ParseCommand) /* 361 */ (tclStubsPtr->tcl_ParseCommand) /* 361 */
#endif
#ifndef Tcl_ParseExpr
#define Tcl_ParseExpr \ #define Tcl_ParseExpr \
(tclStubsPtr->tcl_ParseExpr) /* 362 */ (tclStubsPtr->tcl_ParseExpr) /* 362 */
#endif
#ifndef Tcl_ParseQuotedString
#define Tcl_ParseQuotedString \ #define Tcl_ParseQuotedString \
(tclStubsPtr->tcl_ParseQuotedString) /* 363 */ (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
#endif
#ifndef Tcl_ParseVarName
#define Tcl_ParseVarName \ #define Tcl_ParseVarName \
(tclStubsPtr->tcl_ParseVarName) /* 364 */ (tclStubsPtr->tcl_ParseVarName) /* 364 */
#endif
#ifndef Tcl_GetCwd
#define Tcl_GetCwd \ #define Tcl_GetCwd \
(tclStubsPtr->tcl_GetCwd) /* 365 */ (tclStubsPtr->tcl_GetCwd) /* 365 */
#endif
#ifndef Tcl_Chdir
#define Tcl_Chdir \ #define Tcl_Chdir \
(tclStubsPtr->tcl_Chdir) /* 366 */ (tclStubsPtr->tcl_Chdir) /* 366 */
#endif
#ifndef Tcl_Access
#define Tcl_Access \ #define Tcl_Access \
(tclStubsPtr->tcl_Access) /* 367 */ (tclStubsPtr->tcl_Access) /* 367 */
#endif
#ifndef Tcl_Stat
#define Tcl_Stat \ #define Tcl_Stat \
(tclStubsPtr->tcl_Stat) /* 368 */ (tclStubsPtr->tcl_Stat) /* 368 */
#endif
#ifndef Tcl_UtfNcmp
#define Tcl_UtfNcmp \ #define Tcl_UtfNcmp \
(tclStubsPtr->tcl_UtfNcmp) /* 369 */ (tclStubsPtr->tcl_UtfNcmp) /* 369 */
#endif
#ifndef Tcl_UtfNcasecmp
#define Tcl_UtfNcasecmp \ #define Tcl_UtfNcasecmp \
(tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
#endif
#ifndef Tcl_StringCaseMatch
#define Tcl_StringCaseMatch \ #define Tcl_StringCaseMatch \
(tclStubsPtr->tcl_StringCaseMatch) /* 371 */ (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
#endif
#ifndef Tcl_UniCharIsControl
#define Tcl_UniCharIsControl \ #define Tcl_UniCharIsControl \
(tclStubsPtr->tcl_UniCharIsControl) /* 372 */ (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
#endif
#ifndef Tcl_UniCharIsGraph
#define Tcl_UniCharIsGraph \ #define Tcl_UniCharIsGraph \
(tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
#endif
#ifndef Tcl_UniCharIsPrint
#define Tcl_UniCharIsPrint \ #define Tcl_UniCharIsPrint \
(tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
#endif
#ifndef Tcl_UniCharIsPunct
#define Tcl_UniCharIsPunct \ #define Tcl_UniCharIsPunct \
(tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
#endif
#ifndef Tcl_RegExpExecObj
#define Tcl_RegExpExecObj \ #define Tcl_RegExpExecObj \
(tclStubsPtr->tcl_RegExpExecObj) /* 376 */ (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
#endif
#ifndef Tcl_RegExpGetInfo
#define Tcl_RegExpGetInfo \ #define Tcl_RegExpGetInfo \
(tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
#endif
#ifndef Tcl_NewUnicodeObj
#define Tcl_NewUnicodeObj \ #define Tcl_NewUnicodeObj \
(tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
#endif
#ifndef Tcl_SetUnicodeObj
#define Tcl_SetUnicodeObj \ #define Tcl_SetUnicodeObj \
(tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
#endif
#ifndef Tcl_GetCharLength
#define Tcl_GetCharLength \ #define Tcl_GetCharLength \
(tclStubsPtr->tcl_GetCharLength) /* 380 */ (tclStubsPtr->tcl_GetCharLength) /* 380 */
#endif
#ifndef Tcl_GetUniChar
#define Tcl_GetUniChar \ #define Tcl_GetUniChar \
(tclStubsPtr->tcl_GetUniChar) /* 381 */ (tclStubsPtr->tcl_GetUniChar) /* 381 */
#endif
#ifndef Tcl_GetUnicode
#define Tcl_GetUnicode \ #define Tcl_GetUnicode \
(tclStubsPtr->tcl_GetUnicode) /* 382 */ (tclStubsPtr->tcl_GetUnicode) /* 382 */
#endif
#ifndef Tcl_GetRange
#define Tcl_GetRange \ #define Tcl_GetRange \
(tclStubsPtr->tcl_GetRange) /* 383 */ (tclStubsPtr->tcl_GetRange) /* 383 */
#endif
#ifndef Tcl_AppendUnicodeToObj
#define Tcl_AppendUnicodeToObj \ #define Tcl_AppendUnicodeToObj \
(tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
#endif
#ifndef Tcl_RegExpMatchObj
#define Tcl_RegExpMatchObj \ #define Tcl_RegExpMatchObj \
(tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
#endif
#ifndef Tcl_SetNotifier
#define Tcl_SetNotifier \ #define Tcl_SetNotifier \
(tclStubsPtr->tcl_SetNotifier) /* 386 */ (tclStubsPtr->tcl_SetNotifier) /* 386 */
#endif
#ifndef Tcl_GetAllocMutex
#define Tcl_GetAllocMutex \ #define Tcl_GetAllocMutex \
(tclStubsPtr->tcl_GetAllocMutex) /* 387 */ (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
#endif
#ifndef Tcl_GetChannelNames
#define Tcl_GetChannelNames \ #define Tcl_GetChannelNames \
(tclStubsPtr->tcl_GetChannelNames) /* 388 */ (tclStubsPtr->tcl_GetChannelNames) /* 388 */
#endif
#ifndef Tcl_GetChannelNamesEx
#define Tcl_GetChannelNamesEx \ #define Tcl_GetChannelNamesEx \
(tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
#endif
#ifndef Tcl_ProcObjCmd
#define Tcl_ProcObjCmd \ #define Tcl_ProcObjCmd \
(tclStubsPtr->tcl_ProcObjCmd) /* 390 */ (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
#endif
#ifndef Tcl_ConditionFinalize
#define Tcl_ConditionFinalize \ #define Tcl_ConditionFinalize \
(tclStubsPtr->tcl_ConditionFinalize) /* 391 */ (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
#endif
#ifndef Tcl_MutexFinalize
#define Tcl_MutexFinalize \ #define Tcl_MutexFinalize \
(tclStubsPtr->tcl_MutexFinalize) /* 392 */ (tclStubsPtr->tcl_MutexFinalize) /* 392 */
#endif
#ifndef Tcl_CreateThread
#define Tcl_CreateThread \ #define Tcl_CreateThread \
(tclStubsPtr->tcl_CreateThread) /* 393 */ (tclStubsPtr->tcl_CreateThread) /* 393 */
#endif
#ifndef Tcl_ReadRaw
#define Tcl_ReadRaw \ #define Tcl_ReadRaw \
(tclStubsPtr->tcl_ReadRaw) /* 394 */ (tclStubsPtr->tcl_ReadRaw) /* 394 */
#endif
#ifndef Tcl_WriteRaw
#define Tcl_WriteRaw \ #define Tcl_WriteRaw \
(tclStubsPtr->tcl_WriteRaw) /* 395 */ (tclStubsPtr->tcl_WriteRaw) /* 395 */
#endif
#ifndef Tcl_GetTopChannel
#define Tcl_GetTopChannel \ #define Tcl_GetTopChannel \
(tclStubsPtr->tcl_GetTopChannel) /* 396 */ (tclStubsPtr->tcl_GetTopChannel) /* 396 */
#endif
#ifndef Tcl_ChannelBuffered
#define Tcl_ChannelBuffered \ #define Tcl_ChannelBuffered \
(tclStubsPtr->tcl_ChannelBuffered) /* 397 */ (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
#endif
#ifndef Tcl_ChannelName
#define Tcl_ChannelName \ #define Tcl_ChannelName \
(tclStubsPtr->tcl_ChannelName) /* 398 */ (tclStubsPtr->tcl_ChannelName) /* 398 */
#endif
#ifndef Tcl_ChannelVersion
#define Tcl_ChannelVersion \ #define Tcl_ChannelVersion \
(tclStubsPtr->tcl_ChannelVersion) /* 399 */ (tclStubsPtr->tcl_ChannelVersion) /* 399 */
#endif
#ifndef Tcl_ChannelBlockModeProc
#define Tcl_ChannelBlockModeProc \ #define Tcl_ChannelBlockModeProc \
(tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
#endif
#ifndef Tcl_ChannelCloseProc
#define Tcl_ChannelCloseProc \ #define Tcl_ChannelCloseProc \
(tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
#endif
#ifndef Tcl_ChannelClose2Proc
#define Tcl_ChannelClose2Proc \ #define Tcl_ChannelClose2Proc \
(tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
#endif
#ifndef Tcl_ChannelInputProc
#define Tcl_ChannelInputProc \ #define Tcl_ChannelInputProc \
(tclStubsPtr->tcl_ChannelInputProc) /* 403 */ (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
#endif
#ifndef Tcl_ChannelOutputProc
#define Tcl_ChannelOutputProc \ #define Tcl_ChannelOutputProc \
(tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
#endif
#ifndef Tcl_ChannelSeekProc
#define Tcl_ChannelSeekProc \ #define Tcl_ChannelSeekProc \
(tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
#endif
#ifndef Tcl_ChannelSetOptionProc
#define Tcl_ChannelSetOptionProc \ #define Tcl_ChannelSetOptionProc \
(tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
#endif
#ifndef Tcl_ChannelGetOptionProc
#define Tcl_ChannelGetOptionProc \ #define Tcl_ChannelGetOptionProc \
(tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
#endif
#ifndef Tcl_ChannelWatchProc
#define Tcl_ChannelWatchProc \ #define Tcl_ChannelWatchProc \
(tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
#endif
#ifndef Tcl_ChannelGetHandleProc
#define Tcl_ChannelGetHandleProc \ #define Tcl_ChannelGetHandleProc \
(tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
#endif
#ifndef Tcl_ChannelFlushProc
#define Tcl_ChannelFlushProc \ #define Tcl_ChannelFlushProc \
(tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
#endif
#ifndef Tcl_ChannelHandlerProc
#define Tcl_ChannelHandlerProc \ #define Tcl_ChannelHandlerProc \
(tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
#endif
#ifndef Tcl_JoinThread
#define Tcl_JoinThread \ #define Tcl_JoinThread \
(tclStubsPtr->tcl_JoinThread) /* 412 */ (tclStubsPtr->tcl_JoinThread) /* 412 */
#endif
#ifndef Tcl_IsChannelShared
#define Tcl_IsChannelShared \ #define Tcl_IsChannelShared \
(tclStubsPtr->tcl_IsChannelShared) /* 413 */ (tclStubsPtr->tcl_IsChannelShared) /* 413 */
#endif
#ifndef Tcl_IsChannelRegistered
#define Tcl_IsChannelRegistered \ #define Tcl_IsChannelRegistered \
(tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
#endif
#ifndef Tcl_CutChannel
#define Tcl_CutChannel \ #define Tcl_CutChannel \
(tclStubsPtr->tcl_CutChannel) /* 415 */ (tclStubsPtr->tcl_CutChannel) /* 415 */
#endif
#ifndef Tcl_SpliceChannel
#define Tcl_SpliceChannel \ #define Tcl_SpliceChannel \
(tclStubsPtr->tcl_SpliceChannel) /* 416 */ (tclStubsPtr->tcl_SpliceChannel) /* 416 */
#endif
#ifndef Tcl_ClearChannelHandlers
#define Tcl_ClearChannelHandlers \ #define Tcl_ClearChannelHandlers \
(tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
#endif
#ifndef Tcl_IsChannelExisting
#define Tcl_IsChannelExisting \ #define Tcl_IsChannelExisting \
(tclStubsPtr->tcl_IsChannelExisting) /* 418 */ (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
#endif
#ifndef Tcl_UniCharNcasecmp
#define Tcl_UniCharNcasecmp \ #define Tcl_UniCharNcasecmp \
(tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
#endif
#ifndef Tcl_UniCharCaseMatch
#define Tcl_UniCharCaseMatch \ #define Tcl_UniCharCaseMatch \
(tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
#endif
#ifndef Tcl_FindHashEntry
#define Tcl_FindHashEntry \ #define Tcl_FindHashEntry \
(tclStubsPtr->tcl_FindHashEntry) /* 421 */ (tclStubsPtr->tcl_FindHashEntry) /* 421 */
#endif
#ifndef Tcl_CreateHashEntry
#define Tcl_CreateHashEntry \ #define Tcl_CreateHashEntry \
(tclStubsPtr->tcl_CreateHashEntry) /* 422 */ (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
#endif
#ifndef Tcl_InitCustomHashTable
#define Tcl_InitCustomHashTable \ #define Tcl_InitCustomHashTable \
(tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
#endif
#ifndef Tcl_InitObjHashTable
#define Tcl_InitObjHashTable \ #define Tcl_InitObjHashTable \
(tclStubsPtr->tcl_InitObjHashTable) /* 424 */ (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
#endif
#ifndef Tcl_CommandTraceInfo
#define Tcl_CommandTraceInfo \ #define Tcl_CommandTraceInfo \
(tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
#endif
#ifndef Tcl_TraceCommand
#define Tcl_TraceCommand \ #define Tcl_TraceCommand \
(tclStubsPtr->tcl_TraceCommand) /* 426 */ (tclStubsPtr->tcl_TraceCommand) /* 426 */
#endif
#ifndef Tcl_UntraceCommand
#define Tcl_UntraceCommand \ #define Tcl_UntraceCommand \
(tclStubsPtr->tcl_UntraceCommand) /* 427 */ (tclStubsPtr->tcl_UntraceCommand) /* 427 */
#endif
#ifndef Tcl_AttemptAlloc
#define Tcl_AttemptAlloc \ #define Tcl_AttemptAlloc \
(tclStubsPtr->tcl_AttemptAlloc) /* 428 */ (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
#endif
#ifndef Tcl_AttemptDbCkalloc
#define Tcl_AttemptDbCkalloc \ #define Tcl_AttemptDbCkalloc \
(tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
#endif
#ifndef Tcl_AttemptRealloc
#define Tcl_AttemptRealloc \ #define Tcl_AttemptRealloc \
(tclStubsPtr->tcl_AttemptRealloc) /* 430 */ (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
#endif
#ifndef Tcl_AttemptDbCkrealloc
#define Tcl_AttemptDbCkrealloc \ #define Tcl_AttemptDbCkrealloc \
(tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
#endif
#ifndef Tcl_AttemptSetObjLength
#define Tcl_AttemptSetObjLength \ #define Tcl_AttemptSetObjLength \
(tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
#endif
#ifndef Tcl_GetChannelThread
#define Tcl_GetChannelThread \ #define Tcl_GetChannelThread \
(tclStubsPtr->tcl_GetChannelThread) /* 433 */ (tclStubsPtr->tcl_GetChannelThread) /* 433 */
#endif
#ifndef Tcl_GetUnicodeFromObj
#define Tcl_GetUnicodeFromObj \ #define Tcl_GetUnicodeFromObj \
(tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
#endif
#ifndef Tcl_GetMathFuncInfo
#define Tcl_GetMathFuncInfo \ #define Tcl_GetMathFuncInfo \
(tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
#endif
#ifndef Tcl_ListMathFuncs
#define Tcl_ListMathFuncs \ #define Tcl_ListMathFuncs \
(tclStubsPtr->tcl_ListMathFuncs) /* 436 */ (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
#endif
#ifndef Tcl_SubstObj
#define Tcl_SubstObj \ #define Tcl_SubstObj \
(tclStubsPtr->tcl_SubstObj) /* 437 */ (tclStubsPtr->tcl_SubstObj) /* 437 */
#endif
#ifndef Tcl_DetachChannel
#define Tcl_DetachChannel \ #define Tcl_DetachChannel \
(tclStubsPtr->tcl_DetachChannel) /* 438 */ (tclStubsPtr->tcl_DetachChannel) /* 438 */
#endif
#ifndef Tcl_IsStandardChannel
#define Tcl_IsStandardChannel \ #define Tcl_IsStandardChannel \
(tclStubsPtr->tcl_IsStandardChannel) /* 439 */ (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
#endif
#ifndef Tcl_FSCopyFile
#define Tcl_FSCopyFile \ #define Tcl_FSCopyFile \
(tclStubsPtr->tcl_FSCopyFile) /* 440 */ (tclStubsPtr->tcl_FSCopyFile) /* 440 */
#endif
#ifndef Tcl_FSCopyDirectory
#define Tcl_FSCopyDirectory \ #define Tcl_FSCopyDirectory \
(tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
#endif
#ifndef Tcl_FSCreateDirectory
#define Tcl_FSCreateDirectory \ #define Tcl_FSCreateDirectory \
(tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
#endif
#ifndef Tcl_FSDeleteFile
#define Tcl_FSDeleteFile \ #define Tcl_FSDeleteFile \
(tclStubsPtr->tcl_FSDeleteFile) /* 443 */ (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
#endif
#ifndef Tcl_FSLoadFile
#define Tcl_FSLoadFile \ #define Tcl_FSLoadFile \
(tclStubsPtr->tcl_FSLoadFile) /* 444 */ (tclStubsPtr->tcl_FSLoadFile) /* 444 */
#endif
#ifndef Tcl_FSMatchInDirectory
#define Tcl_FSMatchInDirectory \ #define Tcl_FSMatchInDirectory \
(tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
#endif
#ifndef Tcl_FSLink
#define Tcl_FSLink \ #define Tcl_FSLink \
(tclStubsPtr->tcl_FSLink) /* 446 */ (tclStubsPtr->tcl_FSLink) /* 446 */
#endif
#ifndef Tcl_FSRemoveDirectory
#define Tcl_FSRemoveDirectory \ #define Tcl_FSRemoveDirectory \
(tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
#endif
#ifndef Tcl_FSRenameFile
#define Tcl_FSRenameFile \ #define Tcl_FSRenameFile \
(tclStubsPtr->tcl_FSRenameFile) /* 448 */ (tclStubsPtr->tcl_FSRenameFile) /* 448 */
#endif
#ifndef Tcl_FSLstat
#define Tcl_FSLstat \ #define Tcl_FSLstat \
(tclStubsPtr->tcl_FSLstat) /* 449 */ (tclStubsPtr->tcl_FSLstat) /* 449 */
#endif
#ifndef Tcl_FSUtime
#define Tcl_FSUtime \ #define Tcl_FSUtime \
(tclStubsPtr->tcl_FSUtime) /* 450 */ (tclStubsPtr->tcl_FSUtime) /* 450 */
#endif
#ifndef Tcl_FSFileAttrsGet
#define Tcl_FSFileAttrsGet \ #define Tcl_FSFileAttrsGet \
(tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
#endif
#ifndef Tcl_FSFileAttrsSet
#define Tcl_FSFileAttrsSet \ #define Tcl_FSFileAttrsSet \
(tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
#endif
#ifndef Tcl_FSFileAttrStrings
#define Tcl_FSFileAttrStrings \ #define Tcl_FSFileAttrStrings \
(tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
#endif
#ifndef Tcl_FSStat
#define Tcl_FSStat \ #define Tcl_FSStat \
(tclStubsPtr->tcl_FSStat) /* 454 */ (tclStubsPtr->tcl_FSStat) /* 454 */
#endif
#ifndef Tcl_FSAccess
#define Tcl_FSAccess \ #define Tcl_FSAccess \
(tclStubsPtr->tcl_FSAccess) /* 455 */ (tclStubsPtr->tcl_FSAccess) /* 455 */
#endif
#ifndef Tcl_FSOpenFileChannel
#define Tcl_FSOpenFileChannel \ #define Tcl_FSOpenFileChannel \
(tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
#endif
#ifndef Tcl_FSGetCwd
#define Tcl_FSGetCwd \ #define Tcl_FSGetCwd \
(tclStubsPtr->tcl_FSGetCwd) /* 457 */ (tclStubsPtr->tcl_FSGetCwd) /* 457 */
#endif
#ifndef Tcl_FSChdir
#define Tcl_FSChdir \ #define Tcl_FSChdir \
(tclStubsPtr->tcl_FSChdir) /* 458 */ (tclStubsPtr->tcl_FSChdir) /* 458 */
#endif
#ifndef Tcl_FSConvertToPathType
#define Tcl_FSConvertToPathType \ #define Tcl_FSConvertToPathType \
(tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
#endif
#ifndef Tcl_FSJoinPath
#define Tcl_FSJoinPath \ #define Tcl_FSJoinPath \
(tclStubsPtr->tcl_FSJoinPath) /* 460 */ (tclStubsPtr->tcl_FSJoinPath) /* 460 */
#endif
#ifndef Tcl_FSSplitPath
#define Tcl_FSSplitPath \ #define Tcl_FSSplitPath \
(tclStubsPtr->tcl_FSSplitPath) /* 461 */ (tclStubsPtr->tcl_FSSplitPath) /* 461 */
#endif
#ifndef Tcl_FSEqualPaths
#define Tcl_FSEqualPaths \ #define Tcl_FSEqualPaths \
(tclStubsPtr->tcl_FSEqualPaths) /* 462 */ (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
#endif
#ifndef Tcl_FSGetNormalizedPath
#define Tcl_FSGetNormalizedPath \ #define Tcl_FSGetNormalizedPath \
(tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
#endif
#ifndef Tcl_FSJoinToPath
#define Tcl_FSJoinToPath \ #define Tcl_FSJoinToPath \
(tclStubsPtr->tcl_FSJoinToPath) /* 464 */ (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
#endif
#ifndef Tcl_FSGetInternalRep
#define Tcl_FSGetInternalRep \ #define Tcl_FSGetInternalRep \
(tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
#endif
#ifndef Tcl_FSGetTranslatedPath
#define Tcl_FSGetTranslatedPath \ #define Tcl_FSGetTranslatedPath \
(tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
#endif
#ifndef Tcl_FSEvalFile
#define Tcl_FSEvalFile \ #define Tcl_FSEvalFile \
(tclStubsPtr->tcl_FSEvalFile) /* 467 */ (tclStubsPtr->tcl_FSEvalFile) /* 467 */
#endif
#ifndef Tcl_FSNewNativePath
#define Tcl_FSNewNativePath \ #define Tcl_FSNewNativePath \
(tclStubsPtr->tcl_FSNewNativePath) /* 468 */ (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
#endif
#ifndef Tcl_FSGetNativePath
#define Tcl_FSGetNativePath \ #define Tcl_FSGetNativePath \
(tclStubsPtr->tcl_FSGetNativePath) /* 469 */ (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
#endif
#ifndef Tcl_FSFileSystemInfo
#define Tcl_FSFileSystemInfo \ #define Tcl_FSFileSystemInfo \
(tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
#endif
#ifndef Tcl_FSPathSeparator
#define Tcl_FSPathSeparator \ #define Tcl_FSPathSeparator \
(tclStubsPtr->tcl_FSPathSeparator) /* 471 */ (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
#endif
#ifndef Tcl_FSListVolumes
#define Tcl_FSListVolumes \ #define Tcl_FSListVolumes \
(tclStubsPtr->tcl_FSListVolumes) /* 472 */ (tclStubsPtr->tcl_FSListVolumes) /* 472 */
#endif
#ifndef Tcl_FSRegister
#define Tcl_FSRegister \ #define Tcl_FSRegister \
(tclStubsPtr->tcl_FSRegister) /* 473 */ (tclStubsPtr->tcl_FSRegister) /* 473 */
#endif
#ifndef Tcl_FSUnregister
#define Tcl_FSUnregister \ #define Tcl_FSUnregister \
(tclStubsPtr->tcl_FSUnregister) /* 474 */ (tclStubsPtr->tcl_FSUnregister) /* 474 */
#endif
#ifndef Tcl_FSData
#define Tcl_FSData \ #define Tcl_FSData \
(tclStubsPtr->tcl_FSData) /* 475 */ (tclStubsPtr->tcl_FSData) /* 475 */
#endif
#ifndef Tcl_FSGetTranslatedStringPath
#define Tcl_FSGetTranslatedStringPath \ #define Tcl_FSGetTranslatedStringPath \
(tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
#endif
#ifndef Tcl_FSGetFileSystemForPath
#define Tcl_FSGetFileSystemForPath \ #define Tcl_FSGetFileSystemForPath \
(tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
#endif
#ifndef Tcl_FSGetPathType
#define Tcl_FSGetPathType \ #define Tcl_FSGetPathType \
(tclStubsPtr->tcl_FSGetPathType) /* 478 */ (tclStubsPtr->tcl_FSGetPathType) /* 478 */
#endif
#ifndef Tcl_OutputBuffered
#define Tcl_OutputBuffered \ #define Tcl_OutputBuffered \
(tclStubsPtr->tcl_OutputBuffered) /* 479 */ (tclStubsPtr->tcl_OutputBuffered) /* 479 */
#endif
#ifndef Tcl_FSMountsChanged
#define Tcl_FSMountsChanged \ #define Tcl_FSMountsChanged \
(tclStubsPtr->tcl_FSMountsChanged) /* 480 */ (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
#endif
#ifndef Tcl_EvalTokensStandard
#define Tcl_EvalTokensStandard \ #define Tcl_EvalTokensStandard \
(tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
#endif
#ifndef Tcl_GetTime
#define Tcl_GetTime \ #define Tcl_GetTime \
(tclStubsPtr->tcl_GetTime) /* 482 */ (tclStubsPtr->tcl_GetTime) /* 482 */
#endif
#ifndef Tcl_CreateObjTrace
#define Tcl_CreateObjTrace \ #define Tcl_CreateObjTrace \
(tclStubsPtr->tcl_CreateObjTrace) /* 483 */ (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
#endif
#ifndef Tcl_GetCommandInfoFromToken
#define Tcl_GetCommandInfoFromToken \ #define Tcl_GetCommandInfoFromToken \
(tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
#endif
#ifndef Tcl_SetCommandInfoFromToken
#define Tcl_SetCommandInfoFromToken \ #define Tcl_SetCommandInfoFromToken \
(tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
#endif
#ifndef Tcl_DbNewWideIntObj
#define Tcl_DbNewWideIntObj \ #define Tcl_DbNewWideIntObj \
(tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
#endif
#ifndef Tcl_GetWideIntFromObj
#define Tcl_GetWideIntFromObj \ #define Tcl_GetWideIntFromObj \
(tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
#endif
#ifndef Tcl_NewWideIntObj
#define Tcl_NewWideIntObj \ #define Tcl_NewWideIntObj \
(tclStubsPtr->tcl_NewWideIntObj) /* 488 */ (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
#endif
#ifndef Tcl_SetWideIntObj
#define Tcl_SetWideIntObj \ #define Tcl_SetWideIntObj \
(tclStubsPtr->tcl_SetWideIntObj) /* 489 */ (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
#endif
#ifndef Tcl_AllocStatBuf
#define Tcl_AllocStatBuf \ #define Tcl_AllocStatBuf \
(tclStubsPtr->tcl_AllocStatBuf) /* 490 */ (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
#endif
#ifndef Tcl_Seek
#define Tcl_Seek \ #define Tcl_Seek \
(tclStubsPtr->tcl_Seek) /* 491 */ (tclStubsPtr->tcl_Seek) /* 491 */
#endif
#ifndef Tcl_Tell
#define Tcl_Tell \ #define Tcl_Tell \
(tclStubsPtr->tcl_Tell) /* 492 */ (tclStubsPtr->tcl_Tell) /* 492 */
#endif
#ifndef Tcl_ChannelWideSeekProc
#define Tcl_ChannelWideSeekProc \ #define Tcl_ChannelWideSeekProc \
(tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
#endif
#ifndef Tcl_DictObjPut
#define Tcl_DictObjPut \ #define Tcl_DictObjPut \
(tclStubsPtr->tcl_DictObjPut) /* 494 */ (tclStubsPtr->tcl_DictObjPut) /* 494 */
#endif
#ifndef Tcl_DictObjGet
#define Tcl_DictObjGet \ #define Tcl_DictObjGet \
(tclStubsPtr->tcl_DictObjGet) /* 495 */ (tclStubsPtr->tcl_DictObjGet) /* 495 */
#endif
#ifndef Tcl_DictObjRemove
#define Tcl_DictObjRemove \ #define Tcl_DictObjRemove \
(tclStubsPtr->tcl_DictObjRemove) /* 496 */ (tclStubsPtr->tcl_DictObjRemove) /* 496 */
#endif
#ifndef Tcl_DictObjSize
#define Tcl_DictObjSize \ #define Tcl_DictObjSize \
(tclStubsPtr->tcl_DictObjSize) /* 497 */ (tclStubsPtr->tcl_DictObjSize) /* 497 */
#endif
#ifndef Tcl_DictObjFirst
#define Tcl_DictObjFirst \ #define Tcl_DictObjFirst \
(tclStubsPtr->tcl_DictObjFirst) /* 498 */ (tclStubsPtr->tcl_DictObjFirst) /* 498 */
#endif
#ifndef Tcl_DictObjNext
#define Tcl_DictObjNext \ #define Tcl_DictObjNext \
(tclStubsPtr->tcl_DictObjNext) /* 499 */ (tclStubsPtr->tcl_DictObjNext) /* 499 */
#endif
#ifndef Tcl_DictObjDone
#define Tcl_DictObjDone \ #define Tcl_DictObjDone \
(tclStubsPtr->tcl_DictObjDone) /* 500 */ (tclStubsPtr->tcl_DictObjDone) /* 500 */
#endif
#ifndef Tcl_DictObjPutKeyList
#define Tcl_DictObjPutKeyList \ #define Tcl_DictObjPutKeyList \
(tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
#endif
#ifndef Tcl_DictObjRemoveKeyList
#define Tcl_DictObjRemoveKeyList \ #define Tcl_DictObjRemoveKeyList \
(tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
#endif
#ifndef Tcl_NewDictObj
#define Tcl_NewDictObj \ #define Tcl_NewDictObj \
(tclStubsPtr->tcl_NewDictObj) /* 503 */ (tclStubsPtr->tcl_NewDictObj) /* 503 */
#endif
#ifndef Tcl_DbNewDictObj
#define Tcl_DbNewDictObj \ #define Tcl_DbNewDictObj \
(tclStubsPtr->tcl_DbNewDictObj) /* 504 */ (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
#endif
#ifndef Tcl_RegisterConfig
#define Tcl_RegisterConfig \ #define Tcl_RegisterConfig \
(tclStubsPtr->tcl_RegisterConfig) /* 505 */ (tclStubsPtr->tcl_RegisterConfig) /* 505 */
#endif
#ifndef Tcl_CreateNamespace
#define Tcl_CreateNamespace \ #define Tcl_CreateNamespace \
(tclStubsPtr->tcl_CreateNamespace) /* 506 */ (tclStubsPtr->tcl_CreateNamespace) /* 506 */
#endif
#ifndef Tcl_DeleteNamespace
#define Tcl_DeleteNamespace \ #define Tcl_DeleteNamespace \
(tclStubsPtr->tcl_DeleteNamespace) /* 507 */ (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
#endif
#ifndef Tcl_AppendExportList
#define Tcl_AppendExportList \ #define Tcl_AppendExportList \
(tclStubsPtr->tcl_AppendExportList) /* 508 */ (tclStubsPtr->tcl_AppendExportList) /* 508 */
#endif
#ifndef Tcl_Export
#define Tcl_Export \ #define Tcl_Export \
(tclStubsPtr->tcl_Export) /* 509 */ (tclStubsPtr->tcl_Export) /* 509 */
#endif
#ifndef Tcl_Import
#define Tcl_Import \ #define Tcl_Import \
(tclStubsPtr->tcl_Import) /* 510 */ (tclStubsPtr->tcl_Import) /* 510 */
#endif
#ifndef Tcl_ForgetImport
#define Tcl_ForgetImport \ #define Tcl_ForgetImport \
(tclStubsPtr->tcl_ForgetImport) /* 511 */ (tclStubsPtr->tcl_ForgetImport) /* 511 */
#endif
#ifndef Tcl_GetCurrentNamespace
#define Tcl_GetCurrentNamespace \ #define Tcl_GetCurrentNamespace \
(tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
#endif
#ifndef Tcl_GetGlobalNamespace
#define Tcl_GetGlobalNamespace \ #define Tcl_GetGlobalNamespace \
(tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
#endif
#ifndef Tcl_FindNamespace
#define Tcl_FindNamespace \ #define Tcl_FindNamespace \
(tclStubsPtr->tcl_FindNamespace) /* 514 */ (tclStubsPtr->tcl_FindNamespace) /* 514 */
#endif
#ifndef Tcl_FindCommand
#define Tcl_FindCommand \ #define Tcl_FindCommand \
(tclStubsPtr->tcl_FindCommand) /* 515 */ (tclStubsPtr->tcl_FindCommand) /* 515 */
#endif
#ifndef Tcl_GetCommandFromObj
#define Tcl_GetCommandFromObj \ #define Tcl_GetCommandFromObj \
(tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
#endif
#ifndef Tcl_GetCommandFullName
#define Tcl_GetCommandFullName \ #define Tcl_GetCommandFullName \
(tclStubsPtr->tcl_GetCommandFullName) /* 517 */ (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
#endif
#ifndef Tcl_FSEvalFileEx
#define Tcl_FSEvalFileEx \ #define Tcl_FSEvalFileEx \
(tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
#endif
#ifndef Tcl_SetExitProc
#define Tcl_SetExitProc \ #define Tcl_SetExitProc \
(tclStubsPtr->tcl_SetExitProc) /* 519 */ (tclStubsPtr->tcl_SetExitProc) /* 519 */
#endif
#ifndef Tcl_LimitAddHandler
#define Tcl_LimitAddHandler \ #define Tcl_LimitAddHandler \
(tclStubsPtr->tcl_LimitAddHandler) /* 520 */ (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
#endif
#ifndef Tcl_LimitRemoveHandler
#define Tcl_LimitRemoveHandler \ #define Tcl_LimitRemoveHandler \
(tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
#endif
#ifndef Tcl_LimitReady
#define Tcl_LimitReady \ #define Tcl_LimitReady \
(tclStubsPtr->tcl_LimitReady) /* 522 */ (tclStubsPtr->tcl_LimitReady) /* 522 */
#endif
#ifndef Tcl_LimitCheck
#define Tcl_LimitCheck \ #define Tcl_LimitCheck \
(tclStubsPtr->tcl_LimitCheck) /* 523 */ (tclStubsPtr->tcl_LimitCheck) /* 523 */
#endif
#ifndef Tcl_LimitExceeded
#define Tcl_LimitExceeded \ #define Tcl_LimitExceeded \
(tclStubsPtr->tcl_LimitExceeded) /* 524 */ (tclStubsPtr->tcl_LimitExceeded) /* 524 */
#endif
#ifndef Tcl_LimitSetCommands
#define Tcl_LimitSetCommands \ #define Tcl_LimitSetCommands \
(tclStubsPtr->tcl_LimitSetCommands) /* 525 */ (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
#endif
#ifndef Tcl_LimitSetTime
#define Tcl_LimitSetTime \ #define Tcl_LimitSetTime \
(tclStubsPtr->tcl_LimitSetTime) /* 526 */ (tclStubsPtr->tcl_LimitSetTime) /* 526 */
#endif
#ifndef Tcl_LimitSetGranularity
#define Tcl_LimitSetGranularity \ #define Tcl_LimitSetGranularity \
(tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
#endif
#ifndef Tcl_LimitTypeEnabled
#define Tcl_LimitTypeEnabled \ #define Tcl_LimitTypeEnabled \
(tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
#endif
#ifndef Tcl_LimitTypeExceeded
#define Tcl_LimitTypeExceeded \ #define Tcl_LimitTypeExceeded \
(tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
#endif
#ifndef Tcl_LimitTypeSet
#define Tcl_LimitTypeSet \ #define Tcl_LimitTypeSet \
(tclStubsPtr->tcl_LimitTypeSet) /* 530 */ (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
#endif
#ifndef Tcl_LimitTypeReset
#define Tcl_LimitTypeReset \ #define Tcl_LimitTypeReset \
(tclStubsPtr->tcl_LimitTypeReset) /* 531 */ (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
#endif
#ifndef Tcl_LimitGetCommands
#define Tcl_LimitGetCommands \ #define Tcl_LimitGetCommands \
(tclStubsPtr->tcl_LimitGetCommands) /* 532 */ (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
#endif
#ifndef Tcl_LimitGetTime
#define Tcl_LimitGetTime \ #define Tcl_LimitGetTime \
(tclStubsPtr->tcl_LimitGetTime) /* 533 */ (tclStubsPtr->tcl_LimitGetTime) /* 533 */
#endif
#ifndef Tcl_LimitGetGranularity
#define Tcl_LimitGetGranularity \ #define Tcl_LimitGetGranularity \
(tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
#endif
#ifndef Tcl_SaveInterpState
#define Tcl_SaveInterpState \ #define Tcl_SaveInterpState \
(tclStubsPtr->tcl_SaveInterpState) /* 535 */ (tclStubsPtr->tcl_SaveInterpState) /* 535 */
#endif
#ifndef Tcl_RestoreInterpState
#define Tcl_RestoreInterpState \ #define Tcl_RestoreInterpState \
(tclStubsPtr->tcl_RestoreInterpState) /* 536 */ (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
#endif
#ifndef Tcl_DiscardInterpState
#define Tcl_DiscardInterpState \ #define Tcl_DiscardInterpState \
(tclStubsPtr->tcl_DiscardInterpState) /* 537 */ (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
#endif
#ifndef Tcl_SetReturnOptions
#define Tcl_SetReturnOptions \ #define Tcl_SetReturnOptions \
(tclStubsPtr->tcl_SetReturnOptions) /* 538 */ (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
#endif
#ifndef Tcl_GetReturnOptions
#define Tcl_GetReturnOptions \ #define Tcl_GetReturnOptions \
(tclStubsPtr->tcl_GetReturnOptions) /* 539 */ (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
#endif
#ifndef Tcl_IsEnsemble
#define Tcl_IsEnsemble \ #define Tcl_IsEnsemble \
(tclStubsPtr->tcl_IsEnsemble) /* 540 */ (tclStubsPtr->tcl_IsEnsemble) /* 540 */
#endif
#ifndef Tcl_CreateEnsemble
#define Tcl_CreateEnsemble \ #define Tcl_CreateEnsemble \
(tclStubsPtr->tcl_CreateEnsemble) /* 541 */ (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
#endif
#ifndef Tcl_FindEnsemble
#define Tcl_FindEnsemble \ #define Tcl_FindEnsemble \
(tclStubsPtr->tcl_FindEnsemble) /* 542 */ (tclStubsPtr->tcl_FindEnsemble) /* 542 */
#endif
#ifndef Tcl_SetEnsembleSubcommandList
#define Tcl_SetEnsembleSubcommandList \ #define Tcl_SetEnsembleSubcommandList \
(tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
#endif
#ifndef Tcl_SetEnsembleMappingDict
#define Tcl_SetEnsembleMappingDict \ #define Tcl_SetEnsembleMappingDict \
(tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
#endif
#ifndef Tcl_SetEnsembleUnknownHandler
#define Tcl_SetEnsembleUnknownHandler \ #define Tcl_SetEnsembleUnknownHandler \
(tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
#endif
#ifndef Tcl_SetEnsembleFlags
#define Tcl_SetEnsembleFlags \ #define Tcl_SetEnsembleFlags \
(tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
#endif
#ifndef Tcl_GetEnsembleSubcommandList
#define Tcl_GetEnsembleSubcommandList \ #define Tcl_GetEnsembleSubcommandList \
(tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
#endif
#ifndef Tcl_GetEnsembleMappingDict
#define Tcl_GetEnsembleMappingDict \ #define Tcl_GetEnsembleMappingDict \
(tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
#endif
#ifndef Tcl_GetEnsembleUnknownHandler
#define Tcl_GetEnsembleUnknownHandler \ #define Tcl_GetEnsembleUnknownHandler \
(tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
#endif
#ifndef Tcl_GetEnsembleFlags
#define Tcl_GetEnsembleFlags \ #define Tcl_GetEnsembleFlags \
(tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
#endif
#ifndef Tcl_GetEnsembleNamespace
#define Tcl_GetEnsembleNamespace \ #define Tcl_GetEnsembleNamespace \
(tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
#endif
#ifndef Tcl_SetTimeProc
#define Tcl_SetTimeProc \ #define Tcl_SetTimeProc \
(tclStubsPtr->tcl_SetTimeProc) /* 552 */ (tclStubsPtr->tcl_SetTimeProc) /* 552 */
#endif
#ifndef Tcl_QueryTimeProc
#define Tcl_QueryTimeProc \ #define Tcl_QueryTimeProc \
(tclStubsPtr->tcl_QueryTimeProc) /* 553 */ (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
#endif
#ifndef Tcl_ChannelThreadActionProc
#define Tcl_ChannelThreadActionProc \ #define Tcl_ChannelThreadActionProc \
(tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
#endif
#ifndef Tcl_NewBignumObj
#define Tcl_NewBignumObj \ #define Tcl_NewBignumObj \
(tclStubsPtr->tcl_NewBignumObj) /* 555 */ (tclStubsPtr->tcl_NewBignumObj) /* 555 */
#endif
#ifndef Tcl_DbNewBignumObj
#define Tcl_DbNewBignumObj \ #define Tcl_DbNewBignumObj \
(tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
#endif
#ifndef Tcl_SetBignumObj
#define Tcl_SetBignumObj \ #define Tcl_SetBignumObj \
(tclStubsPtr->tcl_SetBignumObj) /* 557 */ (tclStubsPtr->tcl_SetBignumObj) /* 557 */
#endif
#ifndef Tcl_GetBignumFromObj
#define Tcl_GetBignumFromObj \ #define Tcl_GetBignumFromObj \
(tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
#endif
#ifndef Tcl_TakeBignumFromObj
#define Tcl_TakeBignumFromObj \ #define Tcl_TakeBignumFromObj \
(tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
#endif
#ifndef Tcl_TruncateChannel
#define Tcl_TruncateChannel \ #define Tcl_TruncateChannel \
(tclStubsPtr->tcl_TruncateChannel) /* 560 */ (tclStubsPtr->tcl_TruncateChannel) /* 560 */
#endif
#ifndef Tcl_ChannelTruncateProc
#define Tcl_ChannelTruncateProc \ #define Tcl_ChannelTruncateProc \
(tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
#endif
#ifndef Tcl_SetChannelErrorInterp
#define Tcl_SetChannelErrorInterp \ #define Tcl_SetChannelErrorInterp \
(tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
#endif
#ifndef Tcl_GetChannelErrorInterp
#define Tcl_GetChannelErrorInterp \ #define Tcl_GetChannelErrorInterp \
(tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
#endif
#ifndef Tcl_SetChannelError
#define Tcl_SetChannelError \ #define Tcl_SetChannelError \
(tclStubsPtr->tcl_SetChannelError) /* 564 */ (tclStubsPtr->tcl_SetChannelError) /* 564 */
#endif
#ifndef Tcl_GetChannelError
#define Tcl_GetChannelError \ #define Tcl_GetChannelError \
(tclStubsPtr->tcl_GetChannelError) /* 565 */ (tclStubsPtr->tcl_GetChannelError) /* 565 */
#endif
#ifndef Tcl_InitBignumFromDouble
#define Tcl_InitBignumFromDouble \ #define Tcl_InitBignumFromDouble \
(tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
#endif
#ifndef Tcl_GetNamespaceUnknownHandler
#define Tcl_GetNamespaceUnknownHandler \ #define Tcl_GetNamespaceUnknownHandler \
(tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
#endif
#ifndef Tcl_SetNamespaceUnknownHandler
#define Tcl_SetNamespaceUnknownHandler \ #define Tcl_SetNamespaceUnknownHandler \
(tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
#endif
#ifndef Tcl_GetEncodingFromObj
#define Tcl_GetEncodingFromObj \ #define Tcl_GetEncodingFromObj \
(tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
#endif
#ifndef Tcl_GetEncodingSearchPath
#define Tcl_GetEncodingSearchPath \ #define Tcl_GetEncodingSearchPath \
(tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
#endif
#ifndef Tcl_SetEncodingSearchPath
#define Tcl_SetEncodingSearchPath \ #define Tcl_SetEncodingSearchPath \
(tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
#endif
#ifndef Tcl_GetEncodingNameFromEnvironment
#define Tcl_GetEncodingNameFromEnvironment \ #define Tcl_GetEncodingNameFromEnvironment \
(tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
#endif
#ifndef Tcl_PkgRequireProc
#define Tcl_PkgRequireProc \ #define Tcl_PkgRequireProc \
(tclStubsPtr->tcl_PkgRequireProc) /* 573 */ (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
#endif
#ifndef Tcl_AppendObjToErrorInfo
#define Tcl_AppendObjToErrorInfo \ #define Tcl_AppendObjToErrorInfo \
(tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
#endif
#ifndef Tcl_AppendLimitedToObj
#define Tcl_AppendLimitedToObj \ #define Tcl_AppendLimitedToObj \
(tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
#endif
#ifndef Tcl_Format
#define Tcl_Format \ #define Tcl_Format \
(tclStubsPtr->tcl_Format) /* 576 */ (tclStubsPtr->tcl_Format) /* 576 */
#endif
#ifndef Tcl_AppendFormatToObj
#define Tcl_AppendFormatToObj \ #define Tcl_AppendFormatToObj \
(tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
#endif
#ifndef Tcl_ObjPrintf
#define Tcl_ObjPrintf \ #define Tcl_ObjPrintf \
(tclStubsPtr->tcl_ObjPrintf) /* 578 */ (tclStubsPtr->tcl_ObjPrintf) /* 578 */
#endif
#ifndef Tcl_AppendPrintfToObj
#define Tcl_AppendPrintfToObj \ #define Tcl_AppendPrintfToObj \
(tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
#endif #define Tcl_CancelEval \
/* Slot 580 is reserved */ (tclStubsPtr->tcl_CancelEval) /* 580 */
/* Slot 581 is reserved */ #define Tcl_Canceled \
/* Slot 582 is reserved */ (tclStubsPtr->tcl_Canceled) /* 581 */
/* Slot 583 is reserved */ #define Tcl_CreatePipe \
/* Slot 584 is reserved */ (tclStubsPtr->tcl_CreatePipe) /* 582 */
/* Slot 585 is reserved */ #define Tcl_NRCreateCommand \
/* Slot 586 is reserved */ (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
/* Slot 587 is reserved */ #define Tcl_NREvalObj \
/* Slot 588 is reserved */ (tclStubsPtr->tcl_NREvalObj) /* 584 */
/* Slot 589 is reserved */ #define Tcl_NREvalObjv \
/* Slot 590 is reserved */ (tclStubsPtr->tcl_NREvalObjv) /* 585 */
/* Slot 591 is reserved */ #define Tcl_NRCmdSwap \
/* Slot 592 is reserved */ (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
/* Slot 593 is reserved */ #define Tcl_NRAddCallback \
/* Slot 594 is reserved */ (tclStubsPtr->tcl_NRAddCallback) /* 587 */
/* Slot 595 is reserved */ #define Tcl_NRCallObjProc \
/* Slot 596 is reserved */ (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
/* Slot 597 is reserved */ #define Tcl_GetFSDeviceFromStat \
/* Slot 598 is reserved */ (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
/* Slot 599 is reserved */ #define Tcl_GetFSInodeFromStat \
/* Slot 600 is reserved */ (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
/* Slot 601 is reserved */ #define Tcl_GetModeFromStat \
/* Slot 602 is reserved */ (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
/* Slot 603 is reserved */ #define Tcl_GetLinkCountFromStat \
/* Slot 604 is reserved */ (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
/* Slot 605 is reserved */ #define Tcl_GetUserIdFromStat \
/* Slot 606 is reserved */ (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
/* Slot 607 is reserved */ #define Tcl_GetGroupIdFromStat \
/* Slot 608 is reserved */ (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
/* Slot 609 is reserved */ #define Tcl_GetDeviceTypeFromStat \
/* Slot 610 is reserved */ (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
/* Slot 611 is reserved */ #define Tcl_GetAccessTimeFromStat \
/* Slot 612 is reserved */ (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
/* Slot 613 is reserved */ #define Tcl_GetModificationTimeFromStat \
/* Slot 614 is reserved */ (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
/* Slot 615 is reserved */ #define Tcl_GetChangeTimeFromStat \
/* Slot 616 is reserved */ (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
/* Slot 617 is reserved */ #define Tcl_GetSizeFromStat \
/* Slot 618 is reserved */ (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
/* Slot 619 is reserved */ #define Tcl_GetBlocksFromStat \
/* Slot 620 is reserved */ (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
/* Slot 621 is reserved */ #define Tcl_GetBlockSizeFromStat \
/* Slot 622 is reserved */ (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
/* Slot 623 is reserved */ #define Tcl_SetEnsembleParameterList \
/* Slot 624 is reserved */ (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
/* Slot 625 is reserved */ #define Tcl_GetEnsembleParameterList \
/* Slot 626 is reserved */ (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
/* Slot 627 is reserved */ #define Tcl_ParseArgsObjv \
/* Slot 628 is reserved */ (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
/* Slot 629 is reserved */ #define Tcl_GetErrorLine \
#ifndef TclUnusedStubEntry (tclStubsPtr->tcl_GetErrorLine) /* 605 */
#define TclUnusedStubEntry \ #define Tcl_SetErrorLine \
(tclStubsPtr->tclUnusedStubEntry) /* 630 */ (tclStubsPtr->tcl_SetErrorLine) /* 606 */
#endif #define Tcl_TransferResult \
(tclStubsPtr->tcl_TransferResult) /* 607 */
#define Tcl_InterpActive \
(tclStubsPtr->tcl_InterpActive) /* 608 */
#define Tcl_BackgroundException \
(tclStubsPtr->tcl_BackgroundException) /* 609 */
#define Tcl_ZlibDeflate \
(tclStubsPtr->tcl_ZlibDeflate) /* 610 */
#define Tcl_ZlibInflate \
(tclStubsPtr->tcl_ZlibInflate) /* 611 */
#define Tcl_ZlibCRC32 \
(tclStubsPtr->tcl_ZlibCRC32) /* 612 */
#define Tcl_ZlibAdler32 \
(tclStubsPtr->tcl_ZlibAdler32) /* 613 */
#define Tcl_ZlibStreamInit \
(tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
#define Tcl_ZlibStreamGetCommandName \
(tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
#define Tcl_ZlibStreamEof \
(tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
#define Tcl_ZlibStreamChecksum \
(tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
#define Tcl_ZlibStreamPut \
(tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
#define Tcl_ZlibStreamGet \
(tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
#define Tcl_ZlibStreamClose \
(tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
#define Tcl_ZlibStreamReset \
(tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
#define Tcl_SetStartupScript \
(tclStubsPtr->tcl_SetStartupScript) /* 622 */
#define Tcl_GetStartupScript \
(tclStubsPtr->tcl_GetStartupScript) /* 623 */
#define Tcl_CloseEx \
(tclStubsPtr->tcl_CloseEx) /* 624 */
#define Tcl_NRExprObj \
(tclStubsPtr->tcl_NRExprObj) /* 625 */
#define Tcl_NRSubstObj \
(tclStubsPtr->tcl_NRSubstObj) /* 626 */
#define Tcl_LoadFile \
(tclStubsPtr->tcl_LoadFile) /* 627 */
#define Tcl_FindSymbol \
(tclStubsPtr->tcl_FindSymbol) /* 628 */
#define Tcl_FSUnloadFile \
(tclStubsPtr->tcl_FSUnloadFile) /* 629 */
#define Tcl_ZlibStreamSetCompressionDictionary \
(tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#undef TclUnusedStubEntry #if defined(USE_TCL_STUBS)
# undef Tcl_CreateInterp
# undef Tcl_FindExecutable
# undef Tcl_GetStringResult
# undef Tcl_Init
# undef Tcl_SetPanicProc
# undef Tcl_SetVar
# undef Tcl_StaticPackage
# undef TclFSGetNativePath
# define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
# define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(in
terp))
# define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
# define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
# define Tcl_SetVar(interp, varName, newValue, flags) \
(tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
#endif
#if defined(_WIN32) && defined(UNICODE)
# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg
)))
# define Tcl_MainEx Tcl_MainExW
EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
#endif
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #define TCL_STORAGE_CLASS DLLIMPORT
#undef Tcl_PkgPresent
#define Tcl_PkgPresent(interp, name, version, exact) \
Tcl_PkgPresentEx(interp, name, version, exact, NULL)
#undef Tcl_PkgProvide
#define Tcl_PkgProvide(interp, name, version) \
Tcl_PkgProvideEx(interp, name, version, NULL)
#undef Tcl_PkgRequire
#define Tcl_PkgRequire(interp, name, version, exact) \
Tcl_PkgRequireEx(interp, name, version, exact, NULL)
#undef Tcl_GetIndexFromObj
#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr)
\
Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
sizeof(char *), msg, flags, indexPtr)
#undef Tcl_NewBooleanObj
#define Tcl_NewBooleanObj(boolValue) \
Tcl_NewIntObj((boolValue)!=0)
#undef Tcl_DbNewBooleanObj
#define Tcl_DbNewBooleanObj(boolValue, file, line) \
Tcl_DbNewLongObj((boolValue)!=0, file, line)
#undef Tcl_SetBooleanObj
#define Tcl_SetBooleanObj(objPtr, boolValue) \
Tcl_SetIntObj((objPtr), (boolValue)!=0)
#undef Tcl_SetVar
#define Tcl_SetVar(interp, varName, newValue, flags) \
Tcl_SetVar2(interp, varName, NULL, newValue, flags)
#undef Tcl_UnsetVar
#define Tcl_UnsetVar(interp, varName, flags) \
Tcl_UnsetVar2(interp, varName, NULL, flags)
#undef Tcl_GetVar
#define Tcl_GetVar(interp, varName, flags) \
Tcl_GetVar2(interp, varName, NULL, flags)
#undef Tcl_TraceVar
#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
#undef Tcl_UntraceVar
#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
#undef Tcl_VarTraceInfo
#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData
)
#undef Tcl_UpVar
#define Tcl_UpVar(interp, frameName, varName, localName, flags) \
Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
* we have to make sure that all stub entries on Cygwin64 follow the
* Win64 signature. Cygwin64 stubbed extensions cannot use those stub
* entries any more, they should use the 64-bit alternatives where
* possible. Tcl 9 must find a better solution, but that cannot be done
* without introducing a binary incompatibility.
*/
# undef Tcl_DbNewLongObj
# undef Tcl_GetLongFromObj
# undef Tcl_NewLongObj
# undef Tcl_SetLongObj
# undef Tcl_ExprLong
# undef Tcl_ExprLongObj
# undef Tcl_UniCharNcmp
# undef Tcl_UtfNcmp
# undef Tcl_UtfNcasecmp
# undef Tcl_UniCharNcasecmp
# define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNe
wWideIntObj)
# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_G
etWideIntFromObj)
# define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
# define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
# define Tcl_ExprLong TclExprLong
static inline int TclExprLong(Tcl_Interp *interp, const char *string
, long *ptr){
int intValue;
int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&
intValue);
if (result == TCL_OK) *ptr = (long)intValue;
return result;
}
# define Tcl_ExprLongObj TclExprLongObj
static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, l
ong *ptr){
int intValue;
int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&
intValue);
if (result == TCL_OK) *ptr = (long)intValue;
return result;
}
# define Tcl_UniCharNcmp(ucs,uct,n) \
((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int)
)tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
# define Tcl_UtfNcmp(s1,s2,n) \
((int(*)(const char*,const char*,unsigned int))tclStubsPtr->
tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
# define Tcl_UtfNcasecmp(s1,s2,n) \
((int(*)(const char*,const char*,unsigned int))tclStubsPtr->
tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
# define Tcl_UniCharNcasecmp(ucs,uct,n) \
((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int)
)tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
# endif
#endif
/*
* Deprecated Tcl procedures:
*/
#undef Tcl_EvalObj
#define Tcl_EvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),0)
#undef Tcl_GlobalEvalObj
#define Tcl_GlobalEvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
#endif /* _TCLDECLS */ #endif /* _TCLDECLS */
 End of changes. 1390 change blocks. 
3917 lines changed or deleted 1118 lines changed or added


 tclPlatDecls.h   tclPlatDecls.h 
skipping to change at line 25 skipping to change at line 25
# define TCL_STORAGE_CLASS DLLEXPORT # define TCL_STORAGE_CLASS DLLEXPORT
#else #else
# ifdef USE_TCL_STUBS # ifdef USE_TCL_STUBS
# define TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS
# else # else
# define TCL_STORAGE_CLASS DLLIMPORT # define TCL_STORAGE_CLASS DLLIMPORT
# endif # endif
#endif #endif
/* /*
* WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be
made
* in the generic/tcl.decls script.
*/
/*
* TCHAR is needed here for win32, so if it is not defined yet do it here. * TCHAR is needed here for win32, so if it is not defined yet do it here.
* This way, we don't need to include <tchar.h> just for one define. * This way, we don't need to include <tchar.h> just for one define.
*/ */
#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) #if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED)
# if defined(_UNICODE) # if defined(_UNICODE)
typedef wchar_t TCHAR; typedef wchar_t TCHAR;
# else # else
typedef char TCHAR; typedef char TCHAR;
# endif # endif
# define _TCHAR_DEFINED # define _TCHAR_DEFINED
#endif #endif
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
#ifdef __cplusplus
extern "C" {
#endif
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ #if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */
#ifndef Tcl_WinUtfToTChar_TCL_DECLARED
#define Tcl_WinUtfToTChar_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#ifndef Tcl_WinTCharToUtf_TCL_DECLARED
#define Tcl_WinTCharToUtf_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len,
Tcl_DString *dsPtr); Tcl_DString *dsPtr);
#endif
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED
#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,
CONST char *bundleName, int hasResourceFile, const char *bundleName, int hasResourceFile,
int maxPathLen, char *libraryPath); int maxPathLen, char *libraryPath);
#endif
#ifndef Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED
#define Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN int Tcl_MacOSXOpenVersionedBundleResources( EXTERN int Tcl_MacOSXOpenVersionedBundleResources(
Tcl_Interp *interp, CONST char *bundleName, Tcl_Interp *interp, const char *bundleName,
CONST char *bundleVersion, const char *bundleVersion,
int hasResourceFile, int maxPathLen, int hasResourceFile, int maxPathLen,
char *libraryPath); char *libraryPath);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
typedef struct TclPlatStubs { typedef struct TclPlatStubs {
int magic; int magic;
struct TclPlatStubHooks *hooks; void *hooks;
#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ #if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */
TCHAR * (*tcl_WinUtfToTChar) (CONST char *str, int len, Tcl_DString *ds TCHAR * (*tcl_WinUtfToTChar) (const char *str, int len, Tcl_DString *ds
Ptr); /* 0 */ Ptr); /* 0 */
char * (*tcl_WinTCharToUtf) (CONST TCHAR *str, int len, Tcl_DString *ds char * (*tcl_WinTCharToUtf) (const TCHAR *str, int len, Tcl_DString *ds
Ptr); /* 1 */ Ptr); /* 1 */
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, CONST char *b int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, const char *b
undleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */ undleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */
int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, CONS int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, cons
T char *bundleName, CONST char *bundleVersion, int hasResourceFile, int max t char *bundleName, const char *bundleVersion, int hasResourceFile, int max
PathLen, char *libraryPath); /* 1 */ PathLen, char *libraryPath); /* 1 */
#endif /* MACOSX */ #endif /* MACOSX */
} TclPlatStubs; } TclPlatStubs;
extern TclPlatStubs *tclPlatStubsPtr; #ifdef __cplusplus
extern "C" {
#endif
extern const TclPlatStubs *tclPlatStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) #if defined(USE_TCL_STUBS)
/* /*
* Inline function declarations: * Inline function declarations:
*/ */
#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ #if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */
#ifndef Tcl_WinUtfToTChar
#define Tcl_WinUtfToTChar \ #define Tcl_WinUtfToTChar \
(tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
#endif
#ifndef Tcl_WinTCharToUtf
#define Tcl_WinTCharToUtf \ #define Tcl_WinTCharToUtf \
(tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
#endif
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_MacOSXOpenBundleResources
#define Tcl_MacOSXOpenBundleResources \ #define Tcl_MacOSXOpenBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
#endif
#ifndef Tcl_MacOSXOpenVersionedBundleResources
#define Tcl_MacOSXOpenVersionedBundleResources \ #define Tcl_MacOSXOpenVersionedBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TCLPLATDECLS */ #endif /* _TCLPLATDECLS */
 End of changes. 24 change blocks. 
43 lines changed or deleted 28 lines changed or added


 tclTomMathDecls.h   tclTomMathDecls.h 
skipping to change at line 137 skipping to change at line 137
#endif #endif
/* /*
* WARNING: This file is automatically generated by the tools/genStubs.tcl * WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be made * script. Any modifications to the function declarations below should be made
* in the generic/tclInt.decls script. * in the generic/tclInt.decls script.
*/ */
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
#ifdef __cplusplus
extern "C" {
#endif
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
#ifndef TclBN_epoch_TCL_DECLARED
#define TclBN_epoch_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN int TclBN_epoch(void); EXTERN int TclBN_epoch(void);
#endif
#ifndef TclBN_revision_TCL_DECLARED
#define TclBN_revision_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN int TclBN_revision(void); EXTERN int TclBN_revision(void);
#endif
#ifndef TclBN_mp_add_TCL_DECLARED
#define TclBN_mp_add_TCL_DECLARED
/* 2 */ /* 2 */
EXTERN int TclBN_mp_add(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_add(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_add_d_TCL_DECLARED
#define TclBN_mp_add_d_TCL_DECLARED
/* 3 */ /* 3 */
EXTERN int TclBN_mp_add_d(mp_int *a, mp_digit b, mp_int *c); EXTERN int TclBN_mp_add_d(mp_int *a, mp_digit b, mp_int *c);
#endif
#ifndef TclBN_mp_and_TCL_DECLARED
#define TclBN_mp_and_TCL_DECLARED
/* 4 */ /* 4 */
EXTERN int TclBN_mp_and(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_and(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_clamp_TCL_DECLARED
#define TclBN_mp_clamp_TCL_DECLARED
/* 5 */ /* 5 */
EXTERN void TclBN_mp_clamp(mp_int *a); EXTERN void TclBN_mp_clamp(mp_int *a);
#endif
#ifndef TclBN_mp_clear_TCL_DECLARED
#define TclBN_mp_clear_TCL_DECLARED
/* 6 */ /* 6 */
EXTERN void TclBN_mp_clear(mp_int *a); EXTERN void TclBN_mp_clear(mp_int *a);
#endif
#ifndef TclBN_mp_clear_multi_TCL_DECLARED
#define TclBN_mp_clear_multi_TCL_DECLARED
/* 7 */ /* 7 */
EXTERN void TclBN_mp_clear_multi(mp_int *a, ...); EXTERN void TclBN_mp_clear_multi(mp_int *a, ...);
#endif
#ifndef TclBN_mp_cmp_TCL_DECLARED
#define TclBN_mp_cmp_TCL_DECLARED
/* 8 */ /* 8 */
EXTERN int TclBN_mp_cmp(mp_int *a, mp_int *b); EXTERN int TclBN_mp_cmp(const mp_int *a, const mp_int *b);
#endif
#ifndef TclBN_mp_cmp_d_TCL_DECLARED
#define TclBN_mp_cmp_d_TCL_DECLARED
/* 9 */ /* 9 */
EXTERN int TclBN_mp_cmp_d(mp_int *a, mp_digit b); EXTERN int TclBN_mp_cmp_d(const mp_int *a, mp_digit b);
#endif
#ifndef TclBN_mp_cmp_mag_TCL_DECLARED
#define TclBN_mp_cmp_mag_TCL_DECLARED
/* 10 */ /* 10 */
EXTERN int TclBN_mp_cmp_mag(mp_int *a, mp_int *b); EXTERN int TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b);
#endif
#ifndef TclBN_mp_copy_TCL_DECLARED
#define TclBN_mp_copy_TCL_DECLARED
/* 11 */ /* 11 */
EXTERN int TclBN_mp_copy(mp_int *a, mp_int *b); EXTERN int TclBN_mp_copy(const mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_count_bits_TCL_DECLARED
#define TclBN_mp_count_bits_TCL_DECLARED
/* 12 */ /* 12 */
EXTERN int TclBN_mp_count_bits(mp_int *a); EXTERN int TclBN_mp_count_bits(const mp_int *a);
#endif
#ifndef TclBN_mp_div_TCL_DECLARED
#define TclBN_mp_div_TCL_DECLARED
/* 13 */ /* 13 */
EXTERN int TclBN_mp_div(mp_int *a, mp_int *b, mp_int *q, EXTERN int TclBN_mp_div(mp_int *a, mp_int *b, mp_int *q,
mp_int *r); mp_int *r);
#endif
#ifndef TclBN_mp_div_d_TCL_DECLARED
#define TclBN_mp_div_d_TCL_DECLARED
/* 14 */ /* 14 */
EXTERN int TclBN_mp_div_d(mp_int *a, mp_digit b, mp_int *q, EXTERN int TclBN_mp_div_d(mp_int *a, mp_digit b, mp_int *q,
mp_digit *r); mp_digit *r);
#endif
#ifndef TclBN_mp_div_2_TCL_DECLARED
#define TclBN_mp_div_2_TCL_DECLARED
/* 15 */ /* 15 */
EXTERN int TclBN_mp_div_2(mp_int *a, mp_int *q); EXTERN int TclBN_mp_div_2(mp_int *a, mp_int *q);
#endif
#ifndef TclBN_mp_div_2d_TCL_DECLARED
#define TclBN_mp_div_2d_TCL_DECLARED
/* 16 */ /* 16 */
EXTERN int TclBN_mp_div_2d(mp_int *a, int b, mp_int *q, EXTERN int TclBN_mp_div_2d(const mp_int *a, int b, mp_int *q,
mp_int *r); mp_int *r);
#endif
#ifndef TclBN_mp_div_3_TCL_DECLARED
#define TclBN_mp_div_3_TCL_DECLARED
/* 17 */ /* 17 */
EXTERN int TclBN_mp_div_3(mp_int *a, mp_int *q, mp_digit *r); EXTERN int TclBN_mp_div_3(mp_int *a, mp_int *q, mp_digit *r);
#endif
#ifndef TclBN_mp_exch_TCL_DECLARED
#define TclBN_mp_exch_TCL_DECLARED
/* 18 */ /* 18 */
EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b); EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_expt_d_TCL_DECLARED
#define TclBN_mp_expt_d_TCL_DECLARED
/* 19 */ /* 19 */
EXTERN int TclBN_mp_expt_d(mp_int *a, mp_digit b, mp_int *c); EXTERN int TclBN_mp_expt_d(mp_int *a, mp_digit b, mp_int *c);
#endif
#ifndef TclBN_mp_grow_TCL_DECLARED
#define TclBN_mp_grow_TCL_DECLARED
/* 20 */ /* 20 */
EXTERN int TclBN_mp_grow(mp_int *a, int size); EXTERN int TclBN_mp_grow(mp_int *a, int size);
#endif
#ifndef TclBN_mp_init_TCL_DECLARED
#define TclBN_mp_init_TCL_DECLARED
/* 21 */ /* 21 */
EXTERN int TclBN_mp_init(mp_int *a); EXTERN int TclBN_mp_init(mp_int *a);
#endif
#ifndef TclBN_mp_init_copy_TCL_DECLARED
#define TclBN_mp_init_copy_TCL_DECLARED
/* 22 */ /* 22 */
EXTERN int TclBN_mp_init_copy(mp_int *a, mp_int *b); EXTERN int TclBN_mp_init_copy(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_init_multi_TCL_DECLARED
#define TclBN_mp_init_multi_TCL_DECLARED
/* 23 */ /* 23 */
EXTERN int TclBN_mp_init_multi(mp_int *a, ...); EXTERN int TclBN_mp_init_multi(mp_int *a, ...);
#endif
#ifndef TclBN_mp_init_set_TCL_DECLARED
#define TclBN_mp_init_set_TCL_DECLARED
/* 24 */ /* 24 */
EXTERN int TclBN_mp_init_set(mp_int *a, mp_digit b); EXTERN int TclBN_mp_init_set(mp_int *a, mp_digit b);
#endif
#ifndef TclBN_mp_init_size_TCL_DECLARED
#define TclBN_mp_init_size_TCL_DECLARED
/* 25 */ /* 25 */
EXTERN int TclBN_mp_init_size(mp_int *a, int size); EXTERN int TclBN_mp_init_size(mp_int *a, int size);
#endif
#ifndef TclBN_mp_lshd_TCL_DECLARED
#define TclBN_mp_lshd_TCL_DECLARED
/* 26 */ /* 26 */
EXTERN int TclBN_mp_lshd(mp_int *a, int shift); EXTERN int TclBN_mp_lshd(mp_int *a, int shift);
#endif
#ifndef TclBN_mp_mod_TCL_DECLARED
#define TclBN_mp_mod_TCL_DECLARED
/* 27 */ /* 27 */
EXTERN int TclBN_mp_mod(mp_int *a, mp_int *b, mp_int *r); EXTERN int TclBN_mp_mod(mp_int *a, mp_int *b, mp_int *r);
#endif
#ifndef TclBN_mp_mod_2d_TCL_DECLARED
#define TclBN_mp_mod_2d_TCL_DECLARED
/* 28 */ /* 28 */
EXTERN int TclBN_mp_mod_2d(mp_int *a, int b, mp_int *r); EXTERN int TclBN_mp_mod_2d(const mp_int *a, int b, mp_int *r);
#endif
#ifndef TclBN_mp_mul_TCL_DECLARED
#define TclBN_mp_mul_TCL_DECLARED
/* 29 */ /* 29 */
EXTERN int TclBN_mp_mul(mp_int *a, mp_int *b, mp_int *p); EXTERN int TclBN_mp_mul(mp_int *a, mp_int *b, mp_int *p);
#endif
#ifndef TclBN_mp_mul_d_TCL_DECLARED
#define TclBN_mp_mul_d_TCL_DECLARED
/* 30 */ /* 30 */
EXTERN int TclBN_mp_mul_d(mp_int *a, mp_digit b, mp_int *p); EXTERN int TclBN_mp_mul_d(mp_int *a, mp_digit b, mp_int *p);
#endif
#ifndef TclBN_mp_mul_2_TCL_DECLARED
#define TclBN_mp_mul_2_TCL_DECLARED
/* 31 */ /* 31 */
EXTERN int TclBN_mp_mul_2(mp_int *a, mp_int *p); EXTERN int TclBN_mp_mul_2(mp_int *a, mp_int *p);
#endif
#ifndef TclBN_mp_mul_2d_TCL_DECLARED
#define TclBN_mp_mul_2d_TCL_DECLARED
/* 32 */ /* 32 */
EXTERN int TclBN_mp_mul_2d(mp_int *a, int d, mp_int *p); EXTERN int TclBN_mp_mul_2d(const mp_int *a, int d, mp_int *p);
#endif
#ifndef TclBN_mp_neg_TCL_DECLARED
#define TclBN_mp_neg_TCL_DECLARED
/* 33 */ /* 33 */
EXTERN int TclBN_mp_neg(mp_int *a, mp_int *b); EXTERN int TclBN_mp_neg(const mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_or_TCL_DECLARED
#define TclBN_mp_or_TCL_DECLARED
/* 34 */ /* 34 */
EXTERN int TclBN_mp_or(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_or(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_radix_size_TCL_DECLARED
#define TclBN_mp_radix_size_TCL_DECLARED
/* 35 */ /* 35 */
EXTERN int TclBN_mp_radix_size(mp_int *a, int radix, int *size) ; EXTERN int TclBN_mp_radix_size(mp_int *a, int radix, int *size) ;
#endif
#ifndef TclBN_mp_read_radix_TCL_DECLARED
#define TclBN_mp_read_radix_TCL_DECLARED
/* 36 */ /* 36 */
EXTERN int TclBN_mp_read_radix(mp_int *a, CONST char *str, EXTERN int TclBN_mp_read_radix(mp_int *a, const char *str,
int radix); int radix);
#endif
#ifndef TclBN_mp_rshd_TCL_DECLARED
#define TclBN_mp_rshd_TCL_DECLARED
/* 37 */ /* 37 */
EXTERN void TclBN_mp_rshd(mp_int *a, int shift); EXTERN void TclBN_mp_rshd(mp_int *a, int shift);
#endif
#ifndef TclBN_mp_shrink_TCL_DECLARED
#define TclBN_mp_shrink_TCL_DECLARED
/* 38 */ /* 38 */
EXTERN int TclBN_mp_shrink(mp_int *a); EXTERN int TclBN_mp_shrink(mp_int *a);
#endif
#ifndef TclBN_mp_set_TCL_DECLARED
#define TclBN_mp_set_TCL_DECLARED
/* 39 */ /* 39 */
EXTERN void TclBN_mp_set(mp_int *a, mp_digit b); EXTERN void TclBN_mp_set(mp_int *a, mp_digit b);
#endif
#ifndef TclBN_mp_sqr_TCL_DECLARED
#define TclBN_mp_sqr_TCL_DECLARED
/* 40 */ /* 40 */
EXTERN int TclBN_mp_sqr(mp_int *a, mp_int *b); EXTERN int TclBN_mp_sqr(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_sqrt_TCL_DECLARED
#define TclBN_mp_sqrt_TCL_DECLARED
/* 41 */ /* 41 */
EXTERN int TclBN_mp_sqrt(mp_int *a, mp_int *b); EXTERN int TclBN_mp_sqrt(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_sub_TCL_DECLARED
#define TclBN_mp_sub_TCL_DECLARED
/* 42 */ /* 42 */
EXTERN int TclBN_mp_sub(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_sub(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_sub_d_TCL_DECLARED
#define TclBN_mp_sub_d_TCL_DECLARED
/* 43 */ /* 43 */
EXTERN int TclBN_mp_sub_d(mp_int *a, mp_digit b, mp_int *c); EXTERN int TclBN_mp_sub_d(mp_int *a, mp_digit b, mp_int *c);
#endif
#ifndef TclBN_mp_to_unsigned_bin_TCL_DECLARED
#define TclBN_mp_to_unsigned_bin_TCL_DECLARED
/* 44 */ /* 44 */
EXTERN int TclBN_mp_to_unsigned_bin(mp_int *a, unsigned char *b ); EXTERN int TclBN_mp_to_unsigned_bin(mp_int *a, unsigned char *b );
#endif
#ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
#define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
/* 45 */ /* 45 */
EXTERN int TclBN_mp_to_unsigned_bin_n(mp_int *a, EXTERN int TclBN_mp_to_unsigned_bin_n(mp_int *a,
unsigned char *b, unsigned long *outlen); unsigned char *b, unsigned long *outlen);
#endif
#ifndef TclBN_mp_toradix_n_TCL_DECLARED
#define TclBN_mp_toradix_n_TCL_DECLARED
/* 46 */ /* 46 */
EXTERN int TclBN_mp_toradix_n(mp_int *a, char *str, int radix, EXTERN int TclBN_mp_toradix_n(mp_int *a, char *str, int radix,
int maxlen); int maxlen);
#endif
#ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED
#define TclBN_mp_unsigned_bin_size_TCL_DECLARED
/* 47 */ /* 47 */
EXTERN int TclBN_mp_unsigned_bin_size(mp_int *a); EXTERN int TclBN_mp_unsigned_bin_size(mp_int *a);
#endif
#ifndef TclBN_mp_xor_TCL_DECLARED
#define TclBN_mp_xor_TCL_DECLARED
/* 48 */ /* 48 */
EXTERN int TclBN_mp_xor(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_xor(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_zero_TCL_DECLARED
#define TclBN_mp_zero_TCL_DECLARED
/* 49 */ /* 49 */
EXTERN void TclBN_mp_zero(mp_int *a); EXTERN void TclBN_mp_zero(mp_int *a);
#endif
#ifndef TclBN_reverse_TCL_DECLARED
#define TclBN_reverse_TCL_DECLARED
/* 50 */ /* 50 */
EXTERN void TclBN_reverse(unsigned char *s, int len); EXTERN void TclBN_reverse(unsigned char *s, int len);
#endif
#ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED
#define TclBN_fast_s_mp_mul_digs_TCL_DECLARED
/* 51 */ /* 51 */
EXTERN int TclBN_fast_s_mp_mul_digs(mp_int *a, mp_int *b, EXTERN int TclBN_fast_s_mp_mul_digs(mp_int *a, mp_int *b,
mp_int *c, int digs); mp_int *c, int digs);
#endif
#ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED
#define TclBN_fast_s_mp_sqr_TCL_DECLARED
/* 52 */ /* 52 */
EXTERN int TclBN_fast_s_mp_sqr(mp_int *a, mp_int *b); EXTERN int TclBN_fast_s_mp_sqr(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED
#define TclBN_mp_karatsuba_mul_TCL_DECLARED
/* 53 */ /* 53 */
EXTERN int TclBN_mp_karatsuba_mul(mp_int *a, mp_int *b, EXTERN int TclBN_mp_karatsuba_mul(mp_int *a, mp_int *b,
mp_int *c); mp_int *c);
#endif
#ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED
#define TclBN_mp_karatsuba_sqr_TCL_DECLARED
/* 54 */ /* 54 */
EXTERN int TclBN_mp_karatsuba_sqr(mp_int *a, mp_int *b); EXTERN int TclBN_mp_karatsuba_sqr(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_mp_toom_mul_TCL_DECLARED
#define TclBN_mp_toom_mul_TCL_DECLARED
/* 55 */ /* 55 */
EXTERN int TclBN_mp_toom_mul(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_toom_mul(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_toom_sqr_TCL_DECLARED
#define TclBN_mp_toom_sqr_TCL_DECLARED
/* 56 */ /* 56 */
EXTERN int TclBN_mp_toom_sqr(mp_int *a, mp_int *b); EXTERN int TclBN_mp_toom_sqr(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_s_mp_add_TCL_DECLARED
#define TclBN_s_mp_add_TCL_DECLARED
/* 57 */ /* 57 */
EXTERN int TclBN_s_mp_add(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_s_mp_add(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_s_mp_mul_digs_TCL_DECLARED
#define TclBN_s_mp_mul_digs_TCL_DECLARED
/* 58 */ /* 58 */
EXTERN int TclBN_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, EXTERN int TclBN_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c,
int digs); int digs);
#endif
#ifndef TclBN_s_mp_sqr_TCL_DECLARED
#define TclBN_s_mp_sqr_TCL_DECLARED
/* 59 */ /* 59 */
EXTERN int TclBN_s_mp_sqr(mp_int *a, mp_int *b); EXTERN int TclBN_s_mp_sqr(mp_int *a, mp_int *b);
#endif
#ifndef TclBN_s_mp_sub_TCL_DECLARED
#define TclBN_s_mp_sub_TCL_DECLARED
/* 60 */ /* 60 */
EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c);
#endif
#ifndef TclBN_mp_init_set_int_TCL_DECLARED
#define TclBN_mp_init_set_int_TCL_DECLARED
/* 61 */ /* 61 */
EXTERN int TclBN_mp_init_set_int(mp_int *a, unsigned long i); EXTERN int TclBN_mp_init_set_int(mp_int *a, unsigned long i);
#endif
#ifndef TclBN_mp_set_int_TCL_DECLARED
#define TclBN_mp_set_int_TCL_DECLARED
/* 62 */ /* 62 */
EXTERN int TclBN_mp_set_int(mp_int *a, unsigned long i); EXTERN int TclBN_mp_set_int(mp_int *a, unsigned long i);
#endif
#ifndef TclBN_mp_cnt_lsb_TCL_DECLARED
#define TclBN_mp_cnt_lsb_TCL_DECLARED
/* 63 */ /* 63 */
EXTERN int TclBN_mp_cnt_lsb(mp_int *a); EXTERN int TclBN_mp_cnt_lsb(const mp_int *a);
#endif
typedef struct TclTomMathStubs { typedef struct TclTomMathStubs {
int magic; int magic;
struct TclTomMathStubHooks *hooks; void *hooks;
int (*tclBN_epoch) (void); /* 0 */ int (*tclBN_epoch) (void); /* 0 */
int (*tclBN_revision) (void); /* 1 */ int (*tclBN_revision) (void); /* 1 */
int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */ int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */
int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */ int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */
int (*tclBN_mp_and) (mp_int *a, mp_int *b, mp_int *c); /* 4 */ int (*tclBN_mp_and) (mp_int *a, mp_int *b, mp_int *c); /* 4 */
void (*tclBN_mp_clamp) (mp_int *a); /* 5 */ void (*tclBN_mp_clamp) (mp_int *a); /* 5 */
void (*tclBN_mp_clear) (mp_int *a); /* 6 */ void (*tclBN_mp_clear) (mp_int *a); /* 6 */
void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */ void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */
int (*tclBN_mp_cmp) (mp_int *a, mp_int *b); /* 8 */ int (*tclBN_mp_cmp) (const mp_int *a, const mp_int *b); /* 8 */
int (*tclBN_mp_cmp_d) (mp_int *a, mp_digit b); /* 9 */ int (*tclBN_mp_cmp_d) (const mp_int *a, mp_digit b); /* 9 */
int (*tclBN_mp_cmp_mag) (mp_int *a, mp_int *b); /* 10 */ int (*tclBN_mp_cmp_mag) (const mp_int *a, const mp_int *b); /* 10 */
int (*tclBN_mp_copy) (mp_int *a, mp_int *b); /* 11 */ int (*tclBN_mp_copy) (const mp_int *a, mp_int *b); /* 11 */
int (*tclBN_mp_count_bits) (mp_int *a); /* 12 */ int (*tclBN_mp_count_bits) (const mp_int *a); /* 12 */
int (*tclBN_mp_div) (mp_int *a, mp_int *b, mp_int *q, mp_int *r); /* 13 */ int (*tclBN_mp_div) (mp_int *a, mp_int *b, mp_int *q, mp_int *r); /* 13 */
int (*tclBN_mp_div_d) (mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */ int (*tclBN_mp_div_d) (mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */
int (*tclBN_mp_div_2) (mp_int *a, mp_int *q); /* 15 */ int (*tclBN_mp_div_2) (mp_int *a, mp_int *q); /* 15 */
int (*tclBN_mp_div_2d) (mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */ int (*tclBN_mp_div_2d) (const mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */
int (*tclBN_mp_div_3) (mp_int *a, mp_int *q, mp_digit *r); /* 17 */ int (*tclBN_mp_div_3) (mp_int *a, mp_int *q, mp_digit *r); /* 17 */
void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */ void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */
int (*tclBN_mp_expt_d) (mp_int *a, mp_digit b, mp_int *c); /* 19 */ int (*tclBN_mp_expt_d) (mp_int *a, mp_digit b, mp_int *c); /* 19 */
int (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */ int (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */
int (*tclBN_mp_init) (mp_int *a); /* 21 */ int (*tclBN_mp_init) (mp_int *a); /* 21 */
int (*tclBN_mp_init_copy) (mp_int *a, mp_int *b); /* 22 */ int (*tclBN_mp_init_copy) (mp_int *a, mp_int *b); /* 22 */
int (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */ int (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */
int (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */ int (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */
int (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */ int (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */
int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */
int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */ int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */
int (*tclBN_mp_mod_2d) (mp_int *a, int b, mp_int *r); /* 28 */ int (*tclBN_mp_mod_2d) (const mp_int *a, int b, mp_int *r); /* 28 */
int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */ int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */
int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */ int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */
int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */ int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */
int (*tclBN_mp_mul_2d) (mp_int *a, int d, mp_int *p); /* 32 */ int (*tclBN_mp_mul_2d) (const mp_int *a, int d, mp_int *p); /* 32 */
int (*tclBN_mp_neg) (mp_int *a, mp_int *b); /* 33 */ int (*tclBN_mp_neg) (const mp_int *a, mp_int *b); /* 33 */
int (*tclBN_mp_or) (mp_int *a, mp_int *b, mp_int *c); /* 34 */ int (*tclBN_mp_or) (mp_int *a, mp_int *b, mp_int *c); /* 34 */
int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */ int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */
int (*tclBN_mp_read_radix) (mp_int *a, CONST char *str, int radix); /* 36 */ int (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix); /* 36 */
void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */
int (*tclBN_mp_shrink) (mp_int *a); /* 38 */ int (*tclBN_mp_shrink) (mp_int *a); /* 38 */
void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */
int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */ int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */
int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */ int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */
int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */ int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */
int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */ int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */
int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */ int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */
int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigne d long *outlen); /* 45 */ int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigne d long *outlen); /* 45 */
int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen) ; /* 46 */ int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen) ; /* 46 */
skipping to change at line 542 skipping to change at line 346
int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */ int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */
int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */ int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */
int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */ int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */
int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */ int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */
int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */ int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */
int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */ int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */
int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */ int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */
int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */ int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */
int (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ int (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */
int (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ int (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */
int (*tclBN_mp_cnt_lsb) (mp_int *a); /* 63 */ int (*tclBN_mp_cnt_lsb) (const mp_int *a); /* 63 */
} TclTomMathStubs; } TclTomMathStubs;
extern TclTomMathStubs *tclTomMathStubsPtr; #ifdef __cplusplus
extern "C" {
#endif
extern const TclTomMathStubs *tclTomMathStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) #if defined(USE_TCL_STUBS)
/* /*
* Inline function declarations: * Inline function declarations:
*/ */
#ifndef TclBN_epoch
#define TclBN_epoch \ #define TclBN_epoch \
(tclTomMathStubsPtr->tclBN_epoch) /* 0 */ (tclTomMathStubsPtr->tclBN_epoch) /* 0 */
#endif
#ifndef TclBN_revision
#define TclBN_revision \ #define TclBN_revision \
(tclTomMathStubsPtr->tclBN_revision) /* 1 */ (tclTomMathStubsPtr->tclBN_revision) /* 1 */
#endif
#ifndef TclBN_mp_add
#define TclBN_mp_add \ #define TclBN_mp_add \
(tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */
#endif
#ifndef TclBN_mp_add_d
#define TclBN_mp_add_d \ #define TclBN_mp_add_d \
(tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */
#endif
#ifndef TclBN_mp_and
#define TclBN_mp_and \ #define TclBN_mp_and \
(tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */
#endif
#ifndef TclBN_mp_clamp
#define TclBN_mp_clamp \ #define TclBN_mp_clamp \
(tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */
#endif
#ifndef TclBN_mp_clear
#define TclBN_mp_clear \ #define TclBN_mp_clear \
(tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */
#endif
#ifndef TclBN_mp_clear_multi
#define TclBN_mp_clear_multi \ #define TclBN_mp_clear_multi \
(tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */
#endif
#ifndef TclBN_mp_cmp
#define TclBN_mp_cmp \ #define TclBN_mp_cmp \
(tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */
#endif
#ifndef TclBN_mp_cmp_d
#define TclBN_mp_cmp_d \ #define TclBN_mp_cmp_d \
(tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */
#endif
#ifndef TclBN_mp_cmp_mag
#define TclBN_mp_cmp_mag \ #define TclBN_mp_cmp_mag \
(tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */
#endif
#ifndef TclBN_mp_copy
#define TclBN_mp_copy \ #define TclBN_mp_copy \
(tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */
#endif
#ifndef TclBN_mp_count_bits
#define TclBN_mp_count_bits \ #define TclBN_mp_count_bits \
(tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */
#endif
#ifndef TclBN_mp_div
#define TclBN_mp_div \ #define TclBN_mp_div \
(tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */
#endif
#ifndef TclBN_mp_div_d
#define TclBN_mp_div_d \ #define TclBN_mp_div_d \
(tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */
#endif
#ifndef TclBN_mp_div_2
#define TclBN_mp_div_2 \ #define TclBN_mp_div_2 \
(tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */
#endif
#ifndef TclBN_mp_div_2d
#define TclBN_mp_div_2d \ #define TclBN_mp_div_2d \
(tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */
#endif
#ifndef TclBN_mp_div_3
#define TclBN_mp_div_3 \ #define TclBN_mp_div_3 \
(tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */
#endif
#ifndef TclBN_mp_exch
#define TclBN_mp_exch \ #define TclBN_mp_exch \
(tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */
#endif
#ifndef TclBN_mp_expt_d
#define TclBN_mp_expt_d \ #define TclBN_mp_expt_d \
(tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */
#endif
#ifndef TclBN_mp_grow
#define TclBN_mp_grow \ #define TclBN_mp_grow \
(tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */
#endif
#ifndef TclBN_mp_init
#define TclBN_mp_init \ #define TclBN_mp_init \
(tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */
#endif
#ifndef TclBN_mp_init_copy
#define TclBN_mp_init_copy \ #define TclBN_mp_init_copy \
(tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */
#endif
#ifndef TclBN_mp_init_multi
#define TclBN_mp_init_multi \ #define TclBN_mp_init_multi \
(tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */
#endif
#ifndef TclBN_mp_init_set
#define TclBN_mp_init_set \ #define TclBN_mp_init_set \
(tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */
#endif
#ifndef TclBN_mp_init_size
#define TclBN_mp_init_size \ #define TclBN_mp_init_size \
(tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */
#endif
#ifndef TclBN_mp_lshd
#define TclBN_mp_lshd \ #define TclBN_mp_lshd \
(tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */
#endif
#ifndef TclBN_mp_mod
#define TclBN_mp_mod \ #define TclBN_mp_mod \
(tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */
#endif
#ifndef TclBN_mp_mod_2d
#define TclBN_mp_mod_2d \ #define TclBN_mp_mod_2d \
(tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */
#endif
#ifndef TclBN_mp_mul
#define TclBN_mp_mul \ #define TclBN_mp_mul \
(tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */
#endif
#ifndef TclBN_mp_mul_d
#define TclBN_mp_mul_d \ #define TclBN_mp_mul_d \
(tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */
#endif
#ifndef TclBN_mp_mul_2
#define TclBN_mp_mul_2 \ #define TclBN_mp_mul_2 \
(tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */
#endif
#ifndef TclBN_mp_mul_2d
#define TclBN_mp_mul_2d \ #define TclBN_mp_mul_2d \
(tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */
#endif
#ifndef TclBN_mp_neg
#define TclBN_mp_neg \ #define TclBN_mp_neg \
(tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */
#endif
#ifndef TclBN_mp_or
#define TclBN_mp_or \ #define TclBN_mp_or \
(tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */
#endif
#ifndef TclBN_mp_radix_size
#define TclBN_mp_radix_size \ #define TclBN_mp_radix_size \
(tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */
#endif
#ifndef TclBN_mp_read_radix
#define TclBN_mp_read_radix \ #define TclBN_mp_read_radix \
(tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */
#endif
#ifndef TclBN_mp_rshd
#define TclBN_mp_rshd \ #define TclBN_mp_rshd \
(tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */
#endif
#ifndef TclBN_mp_shrink
#define TclBN_mp_shrink \ #define TclBN_mp_shrink \
(tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */
#endif
#ifndef TclBN_mp_set
#define TclBN_mp_set \ #define TclBN_mp_set \
(tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */
#endif
#ifndef TclBN_mp_sqr
#define TclBN_mp_sqr \ #define TclBN_mp_sqr \
(tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */
#endif
#ifndef TclBN_mp_sqrt
#define TclBN_mp_sqrt \ #define TclBN_mp_sqrt \
(tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */
#endif
#ifndef TclBN_mp_sub
#define TclBN_mp_sub \ #define TclBN_mp_sub \
(tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */
#endif
#ifndef TclBN_mp_sub_d
#define TclBN_mp_sub_d \ #define TclBN_mp_sub_d \
(tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */
#endif
#ifndef TclBN_mp_to_unsigned_bin
#define TclBN_mp_to_unsigned_bin \ #define TclBN_mp_to_unsigned_bin \
(tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */
#endif
#ifndef TclBN_mp_to_unsigned_bin_n
#define TclBN_mp_to_unsigned_bin_n \ #define TclBN_mp_to_unsigned_bin_n \
(tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */
#endif
#ifndef TclBN_mp_toradix_n
#define TclBN_mp_toradix_n \ #define TclBN_mp_toradix_n \
(tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */
#endif
#ifndef TclBN_mp_unsigned_bin_size
#define TclBN_mp_unsigned_bin_size \ #define TclBN_mp_unsigned_bin_size \
(tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */
#endif
#ifndef TclBN_mp_xor
#define TclBN_mp_xor \ #define TclBN_mp_xor \
(tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */
#endif
#ifndef TclBN_mp_zero
#define TclBN_mp_zero \ #define TclBN_mp_zero \
(tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */
#endif
#ifndef TclBN_reverse
#define TclBN_reverse \ #define TclBN_reverse \
(tclTomMathStubsPtr->tclBN_reverse) /* 50 */ (tclTomMathStubsPtr->tclBN_reverse) /* 50 */
#endif
#ifndef TclBN_fast_s_mp_mul_digs
#define TclBN_fast_s_mp_mul_digs \ #define TclBN_fast_s_mp_mul_digs \
(tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */
#endif
#ifndef TclBN_fast_s_mp_sqr
#define TclBN_fast_s_mp_sqr \ #define TclBN_fast_s_mp_sqr \
(tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */
#endif
#ifndef TclBN_mp_karatsuba_mul
#define TclBN_mp_karatsuba_mul \ #define TclBN_mp_karatsuba_mul \
(tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */
#endif
#ifndef TclBN_mp_karatsuba_sqr
#define TclBN_mp_karatsuba_sqr \ #define TclBN_mp_karatsuba_sqr \
(tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */
#endif
#ifndef TclBN_mp_toom_mul
#define TclBN_mp_toom_mul \ #define TclBN_mp_toom_mul \
(tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */
#endif
#ifndef TclBN_mp_toom_sqr
#define TclBN_mp_toom_sqr \ #define TclBN_mp_toom_sqr \
(tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */
#endif
#ifndef TclBN_s_mp_add
#define TclBN_s_mp_add \ #define TclBN_s_mp_add \
(tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */
#endif
#ifndef TclBN_s_mp_mul_digs
#define TclBN_s_mp_mul_digs \ #define TclBN_s_mp_mul_digs \
(tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */
#endif
#ifndef TclBN_s_mp_sqr
#define TclBN_s_mp_sqr \ #define TclBN_s_mp_sqr \
(tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */
#endif
#ifndef TclBN_s_mp_sub
#define TclBN_s_mp_sub \ #define TclBN_s_mp_sub \
(tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */
#endif
#ifndef TclBN_mp_init_set_int
#define TclBN_mp_init_set_int \ #define TclBN_mp_init_set_int \
(tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */
#endif
#ifndef TclBN_mp_set_int
#define TclBN_mp_set_int \ #define TclBN_mp_set_int \
(tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */
#endif
#ifndef TclBN_mp_cnt_lsb
#define TclBN_mp_cnt_lsb \ #define TclBN_mp_cnt_lsb \
(tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */
#endif
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TCLINTDECLS */ #endif /* _TCLINTDECLS */
 End of changes. 143 change blocks. 
351 lines changed or deleted 29 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/