tcl.h   tcl.h 
skipping to change at line 15 skipping to change at line 15
* of the Tcl interpreter. * of the Tcl interpreter.
* *
* Copyright (c) 1987-1994 The Regents of the University of California. * Copyright (c) 1987-1994 The Regents of the University of California.
* Copyright (c) 1993-1996 Lucent Technologies. * Copyright (c) 1993-1996 Lucent Technologies.
* Copyright (c) 1994-1998 Sun Microsystems, Inc. * Copyright (c) 1994-1998 Sun Microsystems, Inc.
* Copyright (c) 1998-2000 by Scriptics Corporation. * Copyright (c) 1998-2000 by Scriptics Corporation.
* Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved.
* *
* See the file "license.terms" for information on usage and redistribution * See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tcl.h,v 1.153.2.35 2008/04/11 16:57:38 dgp Exp $
*/ */
#ifndef _TCL #ifndef _TCL
#define _TCL #define _TCL
/* /*
* For C++ compilers, use extern "C" * For C++ compilers, use extern "C"
*/ */
#ifdef __cplusplus #ifdef __cplusplus
skipping to change at line 62 skipping to change at line 60
* win/README (not patchlevel) (sections 0 and 2) * win/README (not patchlevel) (sections 0 and 2)
* unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch)
* tests/basic.test (1 LOC M/M, not patchlevel) * tests/basic.test (1 LOC M/M, not patchlevel)
* 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/tcl.wse.in (for windows installer)
* tools/tclSplash.bmp (not patchlevel) * tools/tclSplash.bmp (not patchlevel)
*/ */
#define TCL_MAJOR_VERSION 8 #define TCL_MAJOR_VERSION 8
#define TCL_MINOR_VERSION 4 #define TCL_MINOR_VERSION 4
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 19 #define TCL_RELEASE_SERIAL 20
#define TCL_VERSION "8.4" #define TCL_VERSION "8.4"
#define TCL_PATCH_LEVEL "8.4.19" #define TCL_PATCH_LEVEL "8.4.20"
/* /*
* The following definitions set up the proper options for Windows * The following definitions set up the proper options for Windows
* compilers. We use this method because there is no autoconf equivalent. * compilers. We use this method because there is no autoconf equivalent.
*/ */
#ifndef __WIN32__ #ifndef __WIN32__
# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) # 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
# define _WIN32
# endif
# endif # endif
#endif #endif
/* /*
* STRICT: See MSDN Article Q83456 * STRICT: See MSDN Article Q83456
*/ */
#ifdef __WIN32__ #ifdef __WIN32__
# ifndef STRICT # ifndef STRICT
# define STRICT # define STRICT
# endif # endif
#endif /* __WIN32__ */ #endif /* __WIN32__ */
/* /*
* The following definitions set up the proper options for Macintosh
* compilers. We use this method because there is no autoconf equivalent.
*/
#ifdef MAC_TCL
#include <ConditionalMacros.h>
# ifndef USE_TCLALLOC
# define USE_TCLALLOC 1
# endif
# ifndef NO_STRERROR
# define NO_STRERROR 1
# endif
# define INLINE
#endif
/*
* Utility macros: STRINGIFY takes an argument and wraps it in "" (double * Utility macros: STRINGIFY takes an argument and wraps it in "" (double
* quotation marks), JOIN joins two arguments. * quotation marks), JOIN joins two arguments.
*/ */
#ifndef STRINGIFY #ifndef STRINGIFY
# define STRINGIFY(x) STRINGIFY1(x) # define STRINGIFY(x) STRINGIFY1(x)
# define STRINGIFY1(x) #x # define STRINGIFY1(x) #x
#endif #endif
#ifndef JOIN #ifndef JOIN
# define JOIN(a,b) JOIN1(a,b) # define JOIN(a,b) JOIN1(a,b)
# define JOIN1(a,b) a##b # define JOIN1(a,b) a##b
#endif #endif
/* /*
* A special definition used to allow this header file to be included * A special definition used to allow this header file to be included
* from windows or mac resource files so that they can obtain version * from windows resource files so that they can obtain version
* information. RC_INVOKED is defined by default by the windows RC tool * information. RC_INVOKED is defined by default by the windows RC tool.
* and manually set for macintosh.
* *
* Resource compilers don't like all the C stuff, like typedefs and * Resource compilers don't like all the C stuff, like typedefs and
* procedure declarations, that occur below, so block them out. * procedure declarations, that occur below, so block them out.
*/ */
#ifndef RC_INVOKED #ifndef RC_INVOKED
/* /*
* Special macro to define mutexes, that doesn't do anything * Special macro to define mutexes, that doesn't do anything
* if we are not using threads. * if we are not using threads.
skipping to change at line 190 skipping to change at line 175
#endif #endif
/* /*
* Macros used to declare a function to be exported by a DLL. * Macros used to declare a function to be exported by a DLL.
* Used by Windows, maps to no-op declarations on non-Windows systems. * Used by Windows, maps to no-op declarations on non-Windows systems.
* The default build on windows is for a DLL, which causes the DLLIMPORT * The default build on windows is for a DLL, which causes the DLLIMPORT
* and DLLEXPORT macros to be nonempty. To build a static library, the * and DLLEXPORT macros to be nonempty. To build a static library, the
* macro STATIC_BUILD should be defined. * macro STATIC_BUILD should be defined.
*/ */
#ifdef STATIC_BUILD #if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) |
# define DLLIMPORT | defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined
# define DLLEXPORT (__declspec))))
# ifdef STATIC_BUILD
# define DLLIMPORT
# define DLLEXPORT
# else
# define DLLIMPORT __declspec(dllimport)
# define DLLEXPORT __declspec(dllexport)
# endif
#else #else
# if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550 # define DLLIMPORT
) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && F # if defined(__GNUC__) && __GNUC__ > 3
UNCTION_DECLSPEC) # define DLLEXPORT __attribute__ ((visibility("default")))
# define DLLIMPORT __declspec(dllimport)
# define DLLEXPORT __declspec(dllexport)
# else # else
# define DLLIMPORT # define DLLEXPORT
# define DLLEXPORT
# endif # endif
#endif #endif
/* /*
* These macros are used to control whether functions are being declared fo r * These macros are used to control whether functions are being declared fo r
* import or export. If a function is being declared while it is being bui lt * import or export. If a function is being declared while it is being bui lt
* to be included in a shared library, then it should have the DLLEXPORT * to be included in a shared library, then it should have the DLLEXPORT
* storage class. If is being declared for use by a module that is going t o * storage class. If is being declared for use by a module that is going t o
* link against the shared library, then it should have the DLLIMPORT stora ge * link against the shared library, then it should have the DLLIMPORT stora ge
* class. If the symbol is beind declared for a static build or for use fr om a * class. If the symbol is beind declared for a static build or for use fr om a
skipping to change at line 233 skipping to change at line 222
# define TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS
# else # else
# define TCL_STORAGE_CLASS DLLIMPORT # define TCL_STORAGE_CLASS DLLIMPORT
# endif # endif
#endif #endif
/* /*
* Definitions that allow this header file to be used either with or * Definitions that allow this header file to be used either with or
* without ANSI C features like function prototypes. * without ANSI C features like function prototypes.
*/ */
#undef _ANSI_ARGS_ #undef _ANSI_ARGS_
#undef CONST #undef CONST
#ifndef INLINE #ifndef INLINE
# define INLINE # define INLINE
#endif #endif
#ifndef NO_CONST #ifndef NO_CONST
# define CONST const # define CONST const
#else #else
# define CONST # define CONST
skipping to change at line 270 skipping to change at line 260
# 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
/* /*
* 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. * The following code is copied from winnt.h.
* If we don't replicate it here, then <windows.h> can't be included * If we don't replicate it here, then <windows.h> can't be included
* after tcl.h, since tcl.h also defines VOID. * after tcl.h, since tcl.h also defines VOID.
* This block is skipped under Cygwin and Mingw. * 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 * Macro to use instead of "void" for arguments that must have
* type "void *" in ANSI C; maps them to type "char *" in * type "void *" in ANSI C; maps them to type "char *" in
* non-ANSI systems. * non-ANSI systems.
*/ */
#ifndef NO_VOID #ifndef __VXWORKS__
# define VOID void # ifndef NO_VOID
#else # define VOID void
# define VOID char # else
# 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
typedef int *ClientData; typedef int *ClientData;
# endif # endif
# define _CLIENTDATA # define _CLIENTDATA
#endif #endif
/* /*
* Darwin specifc configure overrides (to support fat compiles, where * Darwin specific configure overrides (to support fat compiles, where
* configure runs only once for multiple architectures): * configure runs only once for multiple architectures):
*/ */
#ifdef __APPLE__ #ifdef __APPLE__
# ifdef __LP64__ # ifdef __LP64__
# undef TCL_WIDE_INT_TYPE # undef TCL_WIDE_INT_TYPE
# define TCL_WIDE_INT_IS_LONG 1 # define TCL_WIDE_INT_IS_LONG 1
# else /* !__LP64__ */ # else /* !__LP64__ */
# define TCL_WIDE_INT_TYPE long long # define TCL_WIDE_INT_TYPE long long
# undef TCL_WIDE_INT_IS_LONG # undef TCL_WIDE_INT_IS_LONG
# endif /* __LP64__ */ # endif /* __LP64__ */
# undef HAVE_STRUCT_STAT64 # undef HAVE_STRUCT_STAT64
# include <mach/mach.h>
#endif /* __APPLE__ */ #endif /* __APPLE__ */
/* /*
* Define Tcl_WideInt to be a type that is (at least) 64-bits wide, * Define Tcl_WideInt to be a type that is (at least) 64-bits wide,
* and define Tcl_WideUInt to be the unsigned variant of that type * and define Tcl_WideUInt to be the unsigned variant of that type
* (assuming that where we have one, we can have the other.) * (assuming that where we have one, we can have the other.)
* *
* Also defines the following macros: * Also defines the following macros:
* TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on
* a real 64-bit system.) * a real 64-bit system.)
skipping to change at line 363 skipping to change at line 358
* *
* Note on converting between Tcl_WideInt and strings. This * Note on converting between Tcl_WideInt and strings. This
* implementation (in tclObj.c) depends on the functions strtoull() * implementation (in tclObj.c) depends on the functions strtoull()
* and sprintf(...,"%" TCL_LL_MODIFIER "d",...). TCL_LL_MODIFIER_SIZE * and sprintf(...,"%" TCL_LL_MODIFIER "d",...). TCL_LL_MODIFIER_SIZE
* is the length of the modifier string, which is "ll" on most 32-bit * is the length of the modifier string, which is "ll" on most 32-bit
* Unix systems. It has to be split up like this to allow for the more * Unix systems. It has to be split up like this to allow for the more
* complex formats sometimes needed (e.g. in the format(n) command.) * complex formats sometimes needed (e.g. in the format(n) command.)
*/ */
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) #if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
# if defined(__GNUC__) # if defined(__WIN32__)
# define TCL_WIDE_INT_TYPE long long
# if defined(__WIN32__) && !defined(__CYGWIN__)
# define TCL_LL_MODIFIER "I64"
# define TCL_LL_MODIFIER_SIZE 3
# else
# define TCL_LL_MODIFIER "L"
# define TCL_LL_MODIFIER_SIZE 1
# endif
typedef struct stat Tcl_StatBuf;
# elif defined(__WIN32__)
# define TCL_WIDE_INT_TYPE __int64 # define TCL_WIDE_INT_TYPE __int64
# ifdef __BORLANDC__ # ifdef __BORLANDC__
typedef struct stati64 Tcl_StatBuf;
# define TCL_LL_MODIFIER "L" # define TCL_LL_MODIFIER "L"
# define TCL_LL_MODIFIER_SIZE 1 # define TCL_LL_MODIFIER_SIZE 1
# else /* __BORLANDC__ */ # else /* __BORLANDC__ */
# if _MSC_VER < 1400 || !defined(_M_IX86)
typedef struct _stati64 Tcl_StatBuf;
# else
typedef struct _stat64 Tcl_StatBuf;
# endif /* _MSC_VER < 1400 */
# define TCL_LL_MODIFIER "I64" # define TCL_LL_MODIFIER "I64"
# define TCL_LL_MODIFIER_SIZE 3 # define TCL_LL_MODIFIER_SIZE 3
# endif /* __BORLANDC__ */ # endif /* __BORLANDC__ */
# else /* __WIN32__ */ # elif defined(__GNUC__)
# define TCL_WIDE_INT_TYPE long long
# define TCL_LL_MODIFIER "ll"
# define TCL_LL_MODIFIER_SIZE 2
# else /* ! __WIN32__ && ! __GNUC__ */
/* /*
* Don't know what platform it is and configure hasn't discovered what * Don't know what platform it is and configure hasn't discovered what
* is going on for us. Try to guess... * is going on for us. Try to guess...
*/ */
# ifdef NO_LIMITS_H # ifdef NO_LIMITS_H
# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO NG # error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO NG
# else /* !NO_LIMITS_H */ # else /* !NO_LIMITS_H */
# include <limits.h> # include <limits.h>
# if (INT_MAX < LONG_MAX) # if (INT_MAX < LONG_MAX)
# define TCL_WIDE_INT_IS_LONG 1 # define TCL_WIDE_INT_IS_LONG 1
skipping to change at line 414 skipping to change at line 397
#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ #endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */
#ifdef TCL_WIDE_INT_IS_LONG #ifdef TCL_WIDE_INT_IS_LONG
# undef TCL_WIDE_INT_TYPE # undef TCL_WIDE_INT_TYPE
# define TCL_WIDE_INT_TYPE long # define TCL_WIDE_INT_TYPE long
#endif /* TCL_WIDE_INT_IS_LONG */ #endif /* TCL_WIDE_INT_IS_LONG */
typedef TCL_WIDE_INT_TYPE Tcl_WideInt; typedef TCL_WIDE_INT_TYPE Tcl_WideInt;
typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;
#ifdef TCL_WIDE_INT_IS_LONG #ifdef TCL_WIDE_INT_IS_LONG
typedef struct stat Tcl_StatBuf;
# define Tcl_WideAsLong(val) ((long)(val)) # define Tcl_WideAsLong(val) ((long)(val))
# define Tcl_LongAsWide(val) ((long)(val)) # define Tcl_LongAsWide(val) ((long)(val))
# define Tcl_WideAsDouble(val) ((double)((long)(val))) # define Tcl_WideAsDouble(val) ((double)((long)(val)))
# define Tcl_DoubleAsWide(val) ((long)((double)(val))) # define Tcl_DoubleAsWide(val) ((long)((double)(val)))
# ifndef TCL_LL_MODIFIER # ifndef TCL_LL_MODIFIER
# define TCL_LL_MODIFIER "l" # define TCL_LL_MODIFIER "l"
# define TCL_LL_MODIFIER_SIZE 1 # define TCL_LL_MODIFIER_SIZE 1
# endif /* !TCL_LL_MODIFIER */ # endif /* !TCL_LL_MODIFIER */
#else /* TCL_WIDE_INT_IS_LONG */ #else /* TCL_WIDE_INT_IS_LONG */
/* /*
* The next short section of defines are only done when not running on * The next short section of defines are only done when not running on
* Windows or some other strange platform. * Windows or some other strange platform.
*/ */
# ifndef TCL_LL_MODIFIER # ifndef TCL_LL_MODIFIER
# ifdef HAVE_STRUCT_STAT64
typedef struct stat64 Tcl_StatBuf;
# else
typedef struct stat Tcl_StatBuf;
# endif /* HAVE_STRUCT_STAT64 */
# define TCL_LL_MODIFIER "ll" # define TCL_LL_MODIFIER "ll"
# define TCL_LL_MODIFIER_SIZE 2 # define TCL_LL_MODIFIER_SIZE 2
# endif /* !TCL_LL_MODIFIER */ # endif /* !TCL_LL_MODIFIER */
# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) # define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))
# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) # define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))
# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) # define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))
# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) # define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))
#endif /* TCL_WIDE_INT_IS_LONG */ #endif /* TCL_WIDE_INT_IS_LONG */
#if defined(__WIN32__)
# ifdef __BORLANDC__
typedef struct stati64 Tcl_StatBuf;
# elif defined(_WIN64)
typedef struct __stat64 Tcl_StatBuf;
# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIM
E_T)
typedef struct _stati64 Tcl_StatBuf;
# else
typedef struct _stat32i64 Tcl_StatBuf;
# endif /* _MSC_VER < 1400 */
#elif defined(__CYGWIN__)
typedef struct _stat32i64 {
dev_t st_dev;
unsigned short st_ino;
unsigned short st_mode;
short st_nlink;
short st_uid;
short st_gid;
/* Here is a 2-byte gap */
dev_t st_rdev;
/* Here is a 4-byte gap */
long long st_size;
struct {long tv_sec;} st_atim;
struct {long tv_sec;} st_mtim;
struct {long tv_sec;} st_ctim;
/* Here is a 4-byte gap */
} Tcl_StatBuf;
#elif defined(HAVE_STRUCT_STAT64)
typedef struct stat64 Tcl_StatBuf;
#else
typedef struct stat Tcl_StatBuf;
#endif
/* /*
* This flag controls whether binary compatability is maintained with * This flag controls whether binary compatability is maintained with
* extensions built against a previous version of Tcl. This is true * extensions built against a previous version of Tcl. This is true
* by default. * by default.
*/ */
#ifndef TCL_PRESERVE_BINARY_COMPATABILITY #ifndef TCL_PRESERVE_BINARY_COMPATABILITY
# define TCL_PRESERVE_BINARY_COMPATABILITY 1 # define TCL_PRESERVE_BINARY_COMPATABILITY 1
#endif #endif
/* /*
skipping to change at line 511 skipping to change at line 520
typedef struct Tcl_Var_ *Tcl_Var; typedef struct Tcl_Var_ *Tcl_Var;
typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
/* /*
* Definition of the interface to procedures implementing threads. * Definition of the interface to procedures implementing threads.
* A procedure following this definition is given to each call of * A procedure following this definition is given to each call of
* 'Tcl_CreateThread' and will be called as the main fuction of * 'Tcl_CreateThread' and will be called as the main fuction of
* the new thread created by that call. * the new thread created by that call.
*/ */
#ifdef MAC_TCL #if defined __WIN32__
typedef pascal void *(Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientD
ata));
#elif defined __WIN32__
typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData c lientData)); typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData c lientData));
#else #else
typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((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 * differences when writing a Tcl_ThreadCreateProc. See the NewThread
* function in generic/tclThreadTest.c for it's usage. * function in generic/tclThreadTest.c for it's usage.
*/ */
#ifdef MAC_TCL #ifdef __WIN32__
# define Tcl_ThreadCreateType pascal void *
# define TCL_THREAD_CREATE_RETURN return NULL
#elif defined __WIN32__
# define Tcl_ThreadCreateType unsigned __stdcall # define Tcl_ThreadCreateType unsigned __stdcall
# define TCL_THREAD_CREATE_RETURN return 0 # define TCL_THREAD_CREATE_RETURN return 0
#else #else
# define Tcl_ThreadCreateType void # define Tcl_ThreadCreateType void
# define TCL_THREAD_CREATE_RETURN # define TCL_THREAD_CREATE_RETURN
#endif #endif
/* /*
* Definition of values for default stacksize and the possible flags to be * Definition of values for default stacksize and the possible flags to be
* given to Tcl_CreateThread. * given to Tcl_CreateThread.
*/ */
#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack */ #define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack */
#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behaviou r */ #define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behaviou r */
#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable */ #define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable */
/* /*
* Flag values passed to Tcl_GetRegExpFromObj. * Flag values passed to Tcl_GetRegExpFromObj.
*/ */
#define TCL_REG_BASIC 000000 /* BREs (convenience) */ #define TCL_REG_BASIC 000000 /* BREs (convenience) */
#define TCL_REG_EXTENDED 000001 /* EREs */ #define TCL_REG_EXTENDED 000001 /* EREs */
#define TCL_REG_ADVF 000002 /* advanced features in EREs */ #define TCL_REG_ADVF 000002 /* advanced features in EREs */
skipping to change at line 565 skipping to change at line 570
#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ #define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */
#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ bef ore */ #define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ bef ore */
#define TCL_REG_NEWLINE 000300 /* newlines are line termina tors */ #define TCL_REG_NEWLINE 000300 /* newlines are line termina tors */
#define TCL_REG_CANMATCH 001000 /* report details on partial /limited #define TCL_REG_CANMATCH 001000 /* report details on partial /limited
* matches */ * matches */
/* /*
* The following flag is experimental and only intended for use by Expect. It * The following flag is experimental and only intended for use by Expect. It
* will probably go away in a later release. * will probably go away in a later release.
*/ */
#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only #define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only
* matches at the beginning of the * matches at the beginning of the
* string. */ * string. */
/* /*
* Flags values passed to Tcl_RegExpExecObj. * Flags values passed to Tcl_RegExpExecObj.
*/ */
#define TCL_REG_NOTBOL 0001 /* Beginning of string does not matc h ^. */ #define TCL_REG_NOTBOL 0001 /* Beginning of string does not matc h ^. */
#define TCL_REG_NOTEOL 0002 /* End of string does not match $. * / #define TCL_REG_NOTEOL 0002 /* End of string does not match $. * /
/* /*
* Structures filled in by Tcl_RegExpInfo. Note that all offset values are * Structures filled in by Tcl_RegExpInfo. Note that all offset values are
* relative to the start of the match string, not the beginning of the * relative to the start of the match string, not the beginning of the
* entire string. * entire string.
*/ */
typedef struct Tcl_RegExpIndices { typedef struct Tcl_RegExpIndices {
long start; /* character offset of first character in ma tch */ long start; /* character offset of first character in ma tch */
long end; /* character offset of first character after the long end; /* character offset of first character after the
* match. */ * match. */
} Tcl_RegExpIndices; } Tcl_RegExpIndices;
typedef struct Tcl_RegExpInfo { typedef struct Tcl_RegExpInfo {
int nsubs; /* number of subexpressions in the int nsubs; /* number of subexpressions in the
* compiled expression */ * compiled expression */
Tcl_RegExpIndices *matches; /* array of nsubs match offset Tcl_RegExpIndices *matches; /* array of nsubs match offset
* pairs */ * pairs */
long extendStart; /* The offset at which a subsequent long extendStart; /* The offset at which a subsequent
* match might begin. */ * match might begin. */
long reserved; /* Reserved for later use. */ long reserved; /* Reserved for later use. */
} Tcl_RegExpInfo; } Tcl_RegExpInfo;
/* /*
* Picky compilers complain if this typdef doesn't appear before the * Picky compilers complain if this typdef doesn't appear before the
* struct's reference in tclDecls.h. * struct's 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 * command. Programmers are strongly encouraged to use one of the
* procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the * procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the
* interpreter's result. See the SetResult man page for details. Besides * interpreter's result. See the SetResult man page for details. Besides
* this result, the command procedure returns an integer code, which is * this result, the command procedure returns an integer code, which is
* one of the following: * one of the following:
skipping to change at line 623 skipping to change at line 631
* TCL_ERROR The command couldn't be completed successfully; * TCL_ERROR The command couldn't be completed successfully;
* the interpreter's result describes what went wrong. * the interpreter's result describes what went wrong.
* TCL_RETURN The command requests that the current procedure * TCL_RETURN The command requests that the current procedure
* return; the interpreter's result contains the * return; the interpreter's result contains the
* procedure's return value. * procedure's return value.
* TCL_BREAK The command requests that the innermost loop * TCL_BREAK The command requests that the innermost loop
* be exited; the interpreter's result is meaningless. * be exited; the interpreter's result is meaningless.
* TCL_CONTINUE Go on to the next iteration of the current l oop; * TCL_CONTINUE Go on to the next iteration of the current l oop;
* the interpreter's result is meaningless. * the interpreter's result is meaningless.
*/ */
#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:
*/ */
typedef enum { typedef enum {
TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT
skipping to change at line 680 skipping to change at line 690
typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int argc, CONST84 char *argv[])); Tcl_Interp *interp, int argc, CONST84 char *argv[]));
typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, 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) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int level, CONST char *command, Tcl_Interp *interp, int level, CONST char *command,
Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv));
typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData )); typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData ));
typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((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)_ANSI_ARGS_((ClientData clientData, typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData,
CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr,
char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr,
int *dstCharsPtr)); int *dstCharsPtr));
typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData));
typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags));
typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData,
int flags)); int flags));
typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr,
ClientData clientData)); ClientData clientData));
typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData,
int flags)); int flags));
typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData));
typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask));
typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData));
typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr) ); typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr) );
typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData));
typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp)); Tcl_Interp *interp));
typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr));
typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)) ; typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)) ;
typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv));
typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp));
typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(CONST char *, format)) ; typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(CONST char *, format)) ;
typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData,
Tcl_Channel chan, char *address, int port)); Tcl_Channel chan, char *address, int port));
typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData));
typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp,
struct Tcl_Obj *objPtr)); struct Tcl_Obj *objPtr));
typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr));
typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, int fl Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2,
ags)); int flags));
typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, CONST char *oldName, CONST char *newName, Tcl_Interp *interp, CONST char *oldName, CONST char *newName,
int flags)); int flags));
typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask,
Tcl_FileProc *proc, ClientData clientData)); Tcl_FileProc *proc, ClientData clientData));
typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd));
typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData));
typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode));
typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID));
typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData) ); typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData) );
typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void));
/* /*
* The following structure represents a type of object, which is a * The following structure represents a type of object, which is a
* particular internal representation for an object plus a set of * particular internal representation for an object plus a set of
* procedures that provide standard operations on objects of that type. * procedures that provide standard operations on objects of that type.
*/ */
typedef struct Tcl_ObjType { typedef struct Tcl_ObjType {
char *name; /* Name of the type, e.g. "int". */ 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
skipping to change at line 796 skipping to change at line 806
} twoPtrValue; } twoPtrValue;
} internalRep; } internalRep;
} Tcl_Obj; } Tcl_Obj;
/* /*
* Macros to increment and decrement a Tcl_Obj's reference count, and to * Macros to increment and decrement a Tcl_Obj's reference count, and to
* test whether an object is shared (i.e. has reference count > 1). * test whether an object is shared (i.e. has reference count > 1).
* Note: clients should use Tcl_DecrRefCount() when they are finished using * Note: clients should use Tcl_DecrRefCount() when they are finished using
* an object, and should never call TclFreeObj() directly. TclFreeObj() is * an object, and should never call TclFreeObj() directly. TclFreeObj() is
* only defined and made public in tcl.h to support Tcl_DecrRefCount's macr o * only defined and made public in tcl.h to support Tcl_DecrRefCount's macr o
* definition. Note also that Tcl_DecrRefCount() refers to the parameter * definition.
* "obj" twice. This means that you should avoid calling it with an
* expression that is expensive to compute or has side effects.
*/ */
void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr));
void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr));
int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr));
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
# define Tcl_IncrRefCount(objPtr) \ # define Tcl_IncrRefCount(objPtr) \
Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_DecrRefCount(objPtr) \ # define Tcl_DecrRefCount(objPtr) \
Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_IsShared(objPtr) \ # define Tcl_IsShared(objPtr) \
Tcl_DbIsShared(objPtr, __FILE__, __LINE__) Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
#else #else
# define Tcl_IncrRefCount(objPtr) \ # define Tcl_IncrRefCount(objPtr) \
++(objPtr)->refCount ++(objPtr)->refCount
/* /*
* Use do/while0 idiom for optimum correctness without compiler warning s * Use do/while0 idiom for optimum correctness without compiler warning s
* http://c2.com/cgi/wiki?TrivialDoWhileLoop * http://c2.com/cgi/wiki?TrivialDoWhileLoop
*/ */
# define Tcl_DecrRefCount(objPtr) \ # define Tcl_DecrRefCount(objPtr) \
do { if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr); } while(0) do { \
Tcl_Obj *_objPtr = (objPtr); \
if (--(_objPtr)->refCount <= 0) { \
TclFreeObj(_objPtr); \
} \
} while(0)
# define Tcl_IsShared(objPtr) \ # define Tcl_IsShared(objPtr) \
((objPtr)->refCount > 1) ((objPtr)->refCount > 1)
#endif #endif
/* /*
* Macros and definitions that help to debug the use of Tcl objects. * Macros and definitions that help to debug the use of Tcl objects.
* When TCL_MEM_DEBUG is defined, the Tcl_New declarations are * When TCL_MEM_DEBUG is defined, the Tcl_New declarations are
* overridden to call debugging versions of the object creation procedures. * overridden to call debugging versions of the object creation procedures.
*/ */
skipping to change at line 916 skipping to change at line 928
* them directly; others are declared as "dummyX". * them directly; others are 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;
char *dummy3; VOID *dummy3;
char *dummy4; VOID *dummy4;
char *dummy5; VOID *dummy5;
int dummy6; int dummy6;
char *dummy7; VOID *dummy7;
char *dummy8; VOID *dummy8;
int dummy9; int dummy9;
char* dummy10; VOID *dummy10;
VOID *dummy11;
VOID *dummy12;
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 * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based
* command procedure while proc is a traditional Tcl argc/argv * command procedure while proc is a traditional Tcl argc/argv
* string-based procedure. Tcl_CreateObjCommand and Tcl_CreateCommand * string-based procedure. Tcl_CreateObjCommand and Tcl_CreateCommand
* ensure that both objProc and proc are non-NULL and can be called to * ensure that both objProc and proc are non-NULL and can be called to
* execute the command. However, it may be faster to call one instead of * execute the command. However, it may be faster to call one instead of
* the other. The member isNativeObjectProc is set to 1 if an * the other. The member isNativeObjectProc is set to 1 if an
skipping to change at line 967 skipping to change at line 982
* will not change a command's namespace; * will not change a command's namespace;
* use Tcl_RenameCommand to do that. */ * use Tcl_RenameCommand 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
* field that clients should use is the string field, accessible via the * field that clients should use is the string field, accessible via the
* macro Tcl_DStringValue. * macro Tcl_DStringValue.
*/ */
#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
* string. */ * string. */
int spaceAvl; /* Total number of bytes available for the int spaceAvl; /* Total number of bytes available for the
* string and its terminating NULL char. */ * string and its terminating NULL char. */
char staticSpace[TCL_DSTRING_STATIC_SIZE]; char staticSpace[TCL_DSTRING_STATIC_SIZE];
/* Space to use in common case where string /* Space to use in common case where string
skipping to change at line 989 skipping to change at line 1005
#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) #define Tcl_DStringLength(dsPtr) ((dsPtr)->length)
#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) #define Tcl_DStringValue(dsPtr) ((dsPtr)->string)
#define Tcl_DStringTrunc Tcl_DStringSetLength #define Tcl_DStringTrunc Tcl_DStringSetLength
/* /*
* Definitions for the maximum number of digits of precision that may * Definitions for the maximum number of digits of precision that may
* be specified in the "tcl_precision" variable, and the number of * be specified in the "tcl_precision" variable, and the number of
* bytes of buffer space required by Tcl_PrintDouble. * bytes of buffer space required by Tcl_PrintDouble.
*/ */
#define TCL_MAX_PREC 17 #define TCL_MAX_PREC 17
#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) #define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10)
/* /*
* Definition for a number of bytes of buffer space sufficient to hold the * Definition for a number of bytes of buffer space sufficient to hold the
* string representation of an integer in base 10 (assuming the existence * string representation of an integer in base 10 (assuming the existence
* of 64-bit integers). * of 64-bit integers).
*/ */
#define TCL_INTEGER_SPACE 24 #define TCL_INTEGER_SPACE 24
/* /*
* Flag that may be passed to Tcl_ConvertElement to force it not to * Flag that may be passed to Tcl_ConvertElement to force it not to
* output braces (careful! if you change this flag be sure to change * output braces (careful! if you change this flag be sure to change
* the definitions at the front of tclUtil.c). * the definitions at the front of tclUtil.c).
*/ */
#define TCL_DONT_USE_BRACES 1 #define TCL_DONT_USE_BRACES 1
/* /*
* 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 and/or Tcl_EvalObj. * Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj.
* WARNING: these bit choices must not conflict with the bit choices * WARNING: these bit choices must not conflict with the bit choices
* for evalFlag bits in tclInt.h!! * for evalFlag bits in tclInt.h!!
*/ */
#define TCL_NO_EVAL 0x10000 #define TCL_NO_EVAL 0x10000
#define TCL_EVAL_GLOBAL 0x20000 #define TCL_EVAL_GLOBAL 0x20000
#define TCL_EVAL_DIRECT 0x40000 #define TCL_EVAL_DIRECT 0x40000
#define TCL_EVAL_INVOKE 0x80000 #define TCL_EVAL_INVOKE 0x80000
/* /*
* Special freeProc values that may be passed to Tcl_SetResult (see * Special freeProc values that may be passed to Tcl_SetResult (see
* the man page for details): * the man 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 procedures. * Flag values passed to variable-related procedures.
*/ */
#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
skipping to change at line 1093 skipping to change at line 1115
#define TCL_LINK_INT 1 #define TCL_LINK_INT 1
#define TCL_LINK_DOUBLE 2 #define TCL_LINK_DOUBLE 2
#define TCL_LINK_BOOLEAN 3 #define TCL_LINK_BOOLEAN 3
#define TCL_LINK_STRING 4 #define TCL_LINK_STRING 4
#define TCL_LINK_WIDE_INT 5 #define TCL_LINK_WIDE_INT 5
#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 int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr ,
VOID *keyPtr)); VOID *keyPtr));
typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr,
Tcl_HashEntry *hPtr)); Tcl_HashEntry *hPtr));
typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_((
Tcl_HashTable *tablePtr, VOID *keyPtr)); Tcl_HashTable *tablePtr, VOID *keyPtr));
typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); 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 * recalculates it. There should be no reason for turning this flag off
* as it is completely binary and source compatible unless you directly * as it is completely binary and source compatible unless you directly
* access the bucketPtr member of the Tcl_HashTableEntry structure. This * access the bucketPtr member of the Tcl_HashTableEntry structure. This
* member has been removed and the space used to store the hash value. * member has been removed and the space used to store the hash value.
*/ */
#ifndef TCL_HASH_KEY_STORE_HASH #ifndef TCL_HASH_KEY_STORE_HASH
# define TCL_HASH_KEY_STORE_HASH 1 # define TCL_HASH_KEY_STORE_HASH 1
#endif #endif
/* /*
* Structure definition for an entry in a hash table. No-one outside * Structure definition for an entry in a hash table. No-one outside
* Tcl should access any of these fields directly; use the macros * Tcl should access any of these fields directly; use the macros
* defined below. * defined below.
*/ */
skipping to change at line 1356 skipping to change at line 1380
/* /*
* The following structure defines a generic event for the Tcl event * The following structure defines a generic event for the Tcl event
* system. These are the things that are queued in calls to Tcl_QueueEvent * system. These are the things that are queued in calls to Tcl_QueueEvent
* and serviced later by Tcl_DoOneEvent. There can be many different * and serviced later by Tcl_DoOneEvent. There can be many different
* kinds of events with different fields, corresponding to window events, * kinds of events with different fields, corresponding to window events,
* timer events, etc. The structure for a particular event consists of * timer events, etc. The structure for a particular event consists of
* a Tcl_Event header followed by additional information specific to that * a Tcl_Event header followed by additional information specific to that
* event. * event.
*/ */
struct Tcl_Event { struct Tcl_Event {
Tcl_EventProc *proc; /* Procedure to call to service this event. */ Tcl_EventProc *proc; /* Procedure to call to service this event. */
struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */
}; };
/* /*
* Positions to pass to Tcl_QueueEvent: * Positions to pass to Tcl_QueueEvent:
*/ */
typedef enum { typedef enum {
TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK
} Tcl_QueuePosition; } Tcl_QueuePosition;
/* /*
* Values to pass to Tcl_SetServiceMode to specify the behavior of notifier * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier
* event routines. * event routines.
*/ */
#define TCL_SERVICE_NONE 0 #define TCL_SERVICE_NONE 0
#define TCL_SERVICE_ALL 1 #define TCL_SERVICE_ALL 1
/* /*
* The following structure keeps is used to hold a time value, either as * 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 * an absolute time (the number of seconds from the epoch) or as an
* elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. * elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
* On Macintosh systems the epoch is Midnight Jan 1, 1904 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) _ANSI_ARGS_((Tcl_Time *timePtr));
typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr));
/* /*
* Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler
skipping to change at line 1402 skipping to change at line 1429
*/ */
#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 * Flag values to pass to Tcl_OpenCommandChannel to indicate the
* disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, * disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR,
* are also used in Tcl_GetStdChannel. * are also used in Tcl_GetStdChannel.
*/ */
#define TCL_STDIN (1<<1) #define TCL_STDIN (1<<1)
#define TCL_STDOUT (1<<2) #define TCL_STDOUT (1<<2)
#define TCL_STDERR (1<<3) #define TCL_STDERR (1<<3)
#define TCL_ENFORCE_MODE (1<<4) #define TCL_ENFORCE_MODE (1<<4)
/* /*
* Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel
* should be closed. * should be closed.
*/ */
#define TCL_CLOSE_READ (1<<1) #define TCL_CLOSE_READ (1<<1)
#define TCL_CLOSE_WRITE (1<<2) #define TCL_CLOSE_WRITE (1<<2)
/* /*
* Value to use as the closeProc for a channel that supports the * Value to use as the closeProc for a channel that supports the
* close2Proc interface. * close2Proc interface.
*/ */
#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1) #define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1)
/* /*
* Channel version tag. This was introduced in 8.3.2/8.4. * Channel version tag. This was introduced in 8.3.2/8.4.
*/ */
#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) #define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1)
#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) #define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2)
#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) #define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3)
#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) #define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4)
/* /*
* 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) _ANSI_ARGS_((
ClientData instanceData, int mode)); ClientData instanceData, int mode));
typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData,
Tcl_Interp *interp)); Tcl_Interp *interp));
typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData,
Tcl_Interp *interp, int flags)); Tcl_Interp *interp, int flags));
typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData,
char *buf, int toRead, int *errorCodePtr)); char *buf, int toRead, int *errorCodePtr));
typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData,
CONST84 char *buf, int toWrite, int *errorCodePtr)); CONST84 char *buf, int toWrite, int *errorCodePtr));
skipping to change at line 1514 skipping to change at line 1545
/* /*
* struct Tcl_ChannelType: * struct Tcl_ChannelType:
* *
* One such structure exists for each type (kind) of channel. * One such structure exists for each type (kind) of channel.
* It collects together in one place all the functions that are * It collects together in one place all the functions that are
* part of the specific channel type. * part of the specific channel type.
* *
* It is recommend that the Tcl_Channel* functions are used to access * It is recommend that the Tcl_Channel* functions are used to access
* elements of this structure, instead of direct accessing. * elements of this structure, instead of direct accessing.
*/ */
typedef struct Tcl_ChannelType { typedef struct Tcl_ChannelType {
char *typeName; /* The name of the channel type in T cl char *typeName; /* The name of the channel type in T cl
* commands. This storage is owned by * commands. This storage is owned by
* channel type. */ * channel type. */
Tcl_ChannelTypeVersion version; /* Version of the channel type. */ Tcl_ChannelTypeVersion version; /* Version of the channel type. */
Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the
* channel, or TCL_CLOSE2PROC if the * channel, or TCL_CLOSE2PROC if the
* close2Proc should be used * close2Proc should be used
* instead. */ * instead. */
Tcl_DriverInputProc *inputProc; /* Procedure to call for input Tcl_DriverInputProc *inputProc; /* Procedure to call for input
skipping to change at line 1586 skipping to change at line 1618
* set the channel into blocking or nonblocking mode. They are passed * set the channel into blocking or nonblocking mode. They are passed
* as arguments to the blockModeProc procedure in the above structure. * as arguments to the blockModeProc procedure 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;
/* /*
* The following structure is used to pass glob type data amongst * The following structure is used to pass glob type data amongst
* the various glob routines and Tcl_FSMatchInDirectory. * the various glob routines and Tcl_FSMatchInDirectory.
*/ */
skipping to change at line 1610 skipping to change at line 1643
int perm; int perm;
/* Acceptable mac type */ /* Acceptable mac type */
Tcl_Obj* macType; Tcl_Obj* macType;
/* Acceptable mac creator */ /* Acceptable mac creator */
Tcl_Obj* macCreator; Tcl_Obj* macCreator;
} Tcl_GlobTypeData; } Tcl_GlobTypeData;
/* /*
* type and permission definitions for glob command * type and permission definitions for glob command
*/ */
#define TCL_GLOB_TYPE_BLOCK (1<<0) #define TCL_GLOB_TYPE_BLOCK (1<<0)
#define TCL_GLOB_TYPE_CHAR (1<<1) #define TCL_GLOB_TYPE_CHAR (1<<1)
#define TCL_GLOB_TYPE_DIR (1<<2) #define TCL_GLOB_TYPE_DIR (1<<2)
#define TCL_GLOB_TYPE_PIPE (1<<3) #define TCL_GLOB_TYPE_PIPE (1<<3)
#define TCL_GLOB_TYPE_FILE (1<<4) #define TCL_GLOB_TYPE_FILE (1<<4)
#define TCL_GLOB_TYPE_LINK (1<<5) #define TCL_GLOB_TYPE_LINK (1<<5)
#define TCL_GLOB_TYPE_SOCK (1<<6) #define TCL_GLOB_TYPE_SOCK (1<<6)
#define TCL_GLOB_TYPE_MOUNT (1<<7) #define TCL_GLOB_TYPE_MOUNT (1<<7)
#define TCL_GLOB_PERM_RONLY (1<<0) #define TCL_GLOB_PERM_RONLY (1<<0)
#define TCL_GLOB_PERM_HIDDEN (1<<1) #define TCL_GLOB_PERM_HIDDEN (1<<1)
#define TCL_GLOB_PERM_R (1<<2) #define TCL_GLOB_PERM_R (1<<2)
#define TCL_GLOB_PERM_W (1<<3) #define TCL_GLOB_PERM_W (1<<3)
#define TCL_GLOB_PERM_X (1<<4) #define TCL_GLOB_PERM_X (1<<4)
/* /*
* Typedefs for the various filesystem operations: * Typedefs for the various filesystem operations:
*/ */
typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *bu f)); typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *bu f));
typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode));
typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) typedef Tcl_Channel (Tcl_FSOpenFileChannelProc)
_ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr, _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr,
int mode, int permissions)); int mode, int permissions));
typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp* interp, typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp* interp,
Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern,
Tcl_GlobTypeData * types)); Tcl_GlobTypeData * types));
typedef Tcl_Obj* (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); typedef Tcl_Obj* (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp));
typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr));
skipping to change at line 1895 skipping to change at line 1930
/* /*
* The following definitions are used as values for the 'linkAction' flag * The following definitions are used as values for the 'linkAction' flag
* to Tcl_FSLink, or the linkProc of any filesystem. Any combination * to Tcl_FSLink, or the linkProc of any filesystem. Any combination
* of flags can be given. For link creation, the linkProc should create * of flags can be given. For link creation, the linkProc should create
* a link which matches any of the types given. * a link which 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 * The following structure represents the Notifier functions that
* you can override with the Tcl_SetNotifier call. * you can 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 * The following structure represents a user-defined encoding. It collects
* together all the functions that are used by the specific encoding. * together all the functions that are used by the specific encoding.
*/ */
typedef struct Tcl_EncodingType { typedef struct Tcl_EncodingType {
CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp".
* This name is the unique key for this * This name is the unique key for this
* encoding type. */ * encoding type. */
Tcl_EncodingConvertProc *toUtfProc; Tcl_EncodingConvertProc *toUtfProc;
/* Procedure to convert from external /* Procedure to convert from external
* encoding into UTF-8. */ * encoding into UTF-8. */
Tcl_EncodingConvertProc *fromUtfProc; Tcl_EncodingConvertProc *fromUtfProc;
/* Procedure to convert from UTF-8 into /* Procedure to convert from UTF-8 into
* external encoding. */ * external encoding. */
skipping to change at line 1984 skipping to change at line 2022
/* /*
* The following data structures and declarations are for the new Tcl * The following data structures and declarations are for the new Tcl
* parser. * parser.
*/ */
/* /*
* For each word of a command, and for each piece of a word such as a * For each word of a command, and for each piece of a word such as a
* variable reference, one of the following structures is created to * variable reference, one of the following structures is created to
* describe the token. * describe the token.
*/ */
typedef struct Tcl_Token { typedef struct Tcl_Token {
int type; /* Type of token, such as TCL_TOKEN_WORD; int type; /* Type of token, such as TCL_TOKEN_WORD;
* see below for valid types. */ * see 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 int numComponents; /* If this token is composed of other
* tokens, this field tells how many of * tokens, this field tells how many of
* them there are (including components of * them there are (including components of
* components, etc.). The component tokens * components, etc.). The component tokens
* immediately follow this one. */ * immediately follow this one. */
skipping to change at line 2083 skipping to change at line 2122
#define TCL_TOKEN_COMMAND 16 #define TCL_TOKEN_COMMAND 16
#define TCL_TOKEN_VARIABLE 32 #define TCL_TOKEN_VARIABLE 32
#define TCL_TOKEN_SUB_EXPR 64 #define TCL_TOKEN_SUB_EXPR 64
#define TCL_TOKEN_OPERATOR 128 #define TCL_TOKEN_OPERATOR 128
/* /*
* Parsing error types. On any parsing error, one of these values * Parsing error types. On any parsing error, one of these values
* will be stored in the error field of the Tcl_Parse structure * will be stored in the error field of the Tcl_Parse structure
* defined below. * defined below.
*/ */
#define TCL_PARSE_SUCCESS 0 #define TCL_PARSE_SUCCESS 0
#define TCL_PARSE_QUOTE_EXTRA 1 #define TCL_PARSE_QUOTE_EXTRA 1
#define TCL_PARSE_BRACE_EXTRA 2 #define TCL_PARSE_BRACE_EXTRA 2
#define TCL_PARSE_MISSING_BRACE 3 #define TCL_PARSE_MISSING_BRACE 3
#define TCL_PARSE_MISSING_BRACKET 4 #define TCL_PARSE_MISSING_BRACKET 4
#define TCL_PARSE_MISSING_PAREN 5 #define TCL_PARSE_MISSING_PAREN 5
#define TCL_PARSE_MISSING_QUOTE 6 #define TCL_PARSE_MISSING_QUOTE 6
#define TCL_PARSE_MISSING_VAR_BRACE 7 #define TCL_PARSE_MISSING_VAR_BRACE 7
#define TCL_PARSE_SYNTAX 8 #define TCL_PARSE_SYNTAX 8
#define TCL_PARSE_BAD_NUMBER 9 #define TCL_PARSE_BAD_NUMBER 9
/* /*
* A structure of the following type is filled in by Tcl_ParseCommand. * A structure of the following type is filled in by Tcl_ParseCommand.
* It describes a single command parsed from an input string. * It 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 CONST char *commentStart; /* Pointer to # that begins the first of
* one or more comments preceding the * one or more comments preceding the
* command. */ * command. */
int commentSize; /* Number of bytes in comments (up through int commentSize; /* Number of bytes in comments (up through
* newline character that terminates the * newline character that terminates the
* last comment). If there were no * last comment). If there were no
* comments, this field is 0. */ * comments, this field is 0. */
skipping to change at line 2187 skipping to change at line 2228
* 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 err or * encoding method was misidentified. This err or
* 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 charac ter * TCL_CONVERT_UNKNOWN: The source string contained a charac ter
* that could not be represented in the target * that 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 * Unicode character in UTF-8. The valid values should be 3 or 6 (or
* perhaps 1 if we want to support a non-unicode enabled core). * perhaps 1 if we want to support a non-unicode enabled core).
* If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default) * If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default)
* If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4). * If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4).
* At this time UCS-2 mode is the default and recommended mode. * At this time UCS-2 mode is the default and recommended mode.
* UCS-4 is experimental and not recommended. It works for the core, * UCS-4 is experimental and not recommended. It works for the core,
* but most extensions expect UCS-2. * 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 * This represents a Unicode character. Any changes to this should
* also be reflected in regcustom.h. * also be reflected in regcustom.h.
*/ */
#if TCL_UTF_MAX > 3
#if TCL_UTF_MAX > 4
/* /*
* unsigned int isn't 100% accurate as it should be a strict 4-byte * unsigned int isn't 100% accurate as it should be a strict 4-byte
* value (perhaps wchar_t). 64-bit systems may have troubles. The * value (perhaps wchar_t). 64-bit systems may have troubles. The
* size of this value must be reflected correctly in regcustom.h and * size of this 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
/* /*
* Deprecated Tcl procedures:
*/
#ifndef TCL_NO_DEPRECATED
# define Tcl_EvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),0)
# define Tcl_GlobalEvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
#endif
/*
* These function have been renamed. The old names are deprecated, but we * These function have been renamed. The old names are deprecated, but we
* define these macros for backwards compatibilty. * 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
skipping to change at line 2291 skipping to change at line 2325
* the stubs table. * the stubs table.
*/ */
#include "tclDecls.h" #include "tclDecls.h"
/* /*
* Include platform specific public function declarations that are * Include platform specific public function declarations that are
* accessible via the stubs table. * accessible via the stubs table.
*/ */
/*
* tclPlatDecls.h can't be included here on the Mac, as we need
* Mac specific headers to define the Mac types used in this file,
* but these Mac haders conflict with a number of tk types
* and thus can't be included in the globally read tcl.h
* This header was originally added here as a fix for bug 5241
* (stub link error for symbols in TclPlatStubs table), as a work-
* around for the bug on the mac, tclMac.h is included immediately
* after tcl.h in the tcl precompiled header (with DLLEXPORT set).
*/
#if !defined(MAC_TCL)
#include "tclPlatDecls.h" #include "tclPlatDecls.h"
#endif
/* /*
* Public functions that are not accessible via the stubs table. * Public functions that are not accessible via the stubs table.
*/ */
EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv,
Tcl_AppInitProc *appInitProc)); Tcl_AppInitProc *appInitProc));
/* /*
* Convenience declaration of Tcl_AppInit for backwards compatibility. * Convenience declaration of Tcl_AppInit for backwards compatibility.
* This function is not *implemented* by the tcl library, so the storage * This function is not *implemented* by the tcl library, so the storage
* class is neither DLLEXPORT nor DLLIMPORT * class is neither DLLEXPORT nor DLLIMPORT
*/ */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS
EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #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
#endif /* _TCL */ #endif /* _TCL */
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* End:
*/
 End of changes. 80 change blocks. 
113 lines changed or deleted 135 lines changed or added


 tclDecls.h   tclDecls.h 
/* /*
* tclDecls.h -- * tclDecls.h --
* *
* Declarations of functions in the platform independent public Tcl API . * Declarations of functions in the platform independent public Tcl API .
* *
* Copyright (c) 1998-1999 by Scriptics Corporation. * Copyright (c) 1998-1999 by Scriptics Corporation.
* *
* See the file "license.terms" for information on usage and redistribution * See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclDecls.h,v 1.93.2.7 2006/09/22 01:26:23 andreas_kupries
Exp $
*/ */
#ifndef _TCLDECLS #ifndef _TCLDECLS
#define _TCLDECLS #define _TCLDECLS
/* /*
* 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. */
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
/* 0 */ /* 0 */
EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp* interp, EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp *interp,
CONST char* name, CONST char* version, CONST char *name, CONST char *version,
ClientData clientData)); ClientData clientData));
/* 1 */ /* 1 */
EXTERN CONST84_RETURN char * Tcl_PkgRequireEx _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_PkgRequireEx _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * name, Tcl_Interp *interp, CONST char *name,
CONST char * version, int exact, CONST char *version, int exact,
ClientData * clientDataPtr)); ClientData *clientDataPtr));
/* 2 */ /* 2 */
EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(CONST char *,forma t)); EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(CONST char *,forma t));
/* 3 */ /* 3 */
EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size));
/* 4 */ /* 4 */
EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr)); EXTERN void Tcl_Free _ANSI_ARGS_((char *ptr));
/* 5 */ /* 5 */
EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr, EXTERN char * Tcl_Realloc _ANSI_ARGS_((char *ptr,
unsigned int size)); unsigned int size));
/* 6 */ /* 6 */
EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,
CONST char * file, int line)); CONST char *file, int line));
/* 7 */ /* 7 */
EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, EXTERN void Tcl_DbCkfree _ANSI_ARGS_((char *ptr,
CONST char * file, int line)); CONST char *file, int line));
/* 8 */ /* 8 */
EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr, EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char *ptr,
unsigned int size, CONST char * file, unsigned int size, CONST char *file,
int line)); int line));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
/* 9 */ /* 9 */
EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask,
Tcl_FileProc * proc, ClientData clientData)) ; Tcl_FileProc *proc, ClientData clientData));
#endif /* UNIX */ #endif /* UNIX */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #ifdef MAC_OSX_TCL /* MACOSX */
/* 9 */
EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask,
Tcl_FileProc *proc, ClientData clientData));
#endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
/* 10 */ /* 10 */
EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd));
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */
/* 10 */
EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd));
#endif /* MACOSX */
/* 11 */ /* 11 */
EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr)); EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time *timePtr));
/* 12 */ /* 12 */
EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms));
/* 13 */ /* 13 */
EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time *timePtr));
/* 14 */ /* 14 */
EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr)); Tcl_Interp *interp, Tcl_Obj *objPtr));
/* 15 */ /* 15 */
EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_O bj *,objPtr)); EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_O bj *,objPtr));
/* 16 */ /* 16 */
EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj* objPtr, EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST char* bytes, int length)); CONST char *bytes, int length));
/* 17 */ /* 17 */
EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 18 */ /* 18 */
EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); Tcl_Obj *objPtr, Tcl_ObjType *typePtr));
/* 19 */ /* 19 */
EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST char * file, int line)); CONST char *file, int line));
/* 20 */ /* 20 */
EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST char * file, int line)); CONST char *file, int line));
/* 21 */ /* 21 */
EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST char * file, int line)); CONST char *file, int line));
/* 22 */ /* 22 */
EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue,
CONST char * file, int line)); CONST char *file, int line));
/* 23 */ /* 23 */
EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_((
CONST unsigned char * bytes, int length, CONST unsigned char *bytes, int length,
CONST char * file, int line)); CONST char *file, int line));
/* 24 */ /* 24 */
EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue,
CONST char * file, int line)); CONST char *file, int line));
/* 25 */ /* 25 */
EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc,
Tcl_Obj *CONST * objv, CONST char * file, Tcl_Obj *CONST *objv, CONST char *file,
int line)); int line));
/* 26 */ /* 26 */
EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue,
CONST char * file, int line)); CONST char *file, int line));
/* 27 */ /* 27 */
EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((CONST char * file, EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((CONST char *file, int line
int line)); ));
/* 28 */ /* 28 */
EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes, EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char *bytes,
int length, CONST char * file, int line)); int length, CONST char *file, int line));
/* 29 */ /* 29 */
EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj *objPtr));
/* 30 */ /* 30 */
EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj *objPtr));
/* 31 */ /* 31 */
EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, int * boolPtr)); CONST char *src, int *boolPtr));
/* 32 */ /* 32 */
EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp *interp, Tcl_Obj *objPtr,
int * boolPtr)); int *boolPtr));
/* 33 */ /* 33 */
EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_(( EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_((Tcl_Obj *objPtr
Tcl_Obj * objPtr, int * lengthPtr)); ,
int *lengthPtr));
/* 34 */ /* 34 */
EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, double * doublePtr)); CONST char *src, double *doublePtr));
/* 35 */ /* 35 */
EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, Tcl_Obj * objPtr, ,
double * doublePtr)); Tcl_Obj *objPtr, double *doublePtr));
/* 36 */ /* 36 */
EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp *interp,
, Tcl_Obj *objPtr, CONST84 char **tablePtr,
Tcl_Obj * objPtr, CONST84 char ** tablePtr, CONST char *msg, int flags, int *indexPtr));
CONST char * msg, int flags, int * indexPtr)
);
/* 37 */ /* 37 */
EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, int * intPtr)); CONST char *src, int *intPtr));
/* 38 */ /* 38 */
EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, int * intPtr)); Tcl_Obj *objPtr, int *intPtr));
/* 39 */ /* 39 */
EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, long * longPtr)); Tcl_Obj *objPtr, long *longPtr));
/* 40 */ /* 40 */
EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char * typeName)); EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char *typeName));
/* 41 */ /* 41 */
EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj *objPtr,
int * lengthPtr)); int *lengthPtr));
/* 42 */ /* 42 */
EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_(( EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_((Tcl_Obj *objPtr
Tcl_Obj * objPtr)); ));
/* 43 */ /* 43 */
EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Interp *interp, Tcl_Obj *listPtr,
Tcl_Obj * elemListPtr)); Tcl_Obj *elemListPtr));
/* 44 */ /* 44 */
EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Interp *interp, Tcl_Obj *listPtr,
Tcl_Obj * objPtr)); Tcl_Obj *objPtr));
/* 45 */ /* 45 */
EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Interp *interp, Tcl_Obj *listPtr,
int * objcPtr, Tcl_Obj *** objvPtr)); int *objcPtr, Tcl_Obj ***objvPtr));
/* 46 */ /* 46 */
EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * listPtr, int index, Tcl_Obj *listPtr, int index,
Tcl_Obj ** objPtrPtr)); Tcl_Obj **objPtrPtr));
/* 47 */ /* 47 */
EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * listPtr, int * lengthPtr)); Tcl_Obj *listPtr, int *lengthPtr));
/* 48 */ /* 48 */
EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((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[]));
/* 49 */ /* 49 */
EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue));
/* 50 */ /* 50 */
EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_((
CONST unsigned char* bytes, int length)); CONST unsigned char *bytes, int length));
/* 51 */ /* 51 */
EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue));
/* 52 */ /* 52 */
EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue));
/* 53 */ /* 53 */
EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 54 */ /* 54 */
EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue));
/* 55 */ /* 55 */
EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void));
/* 56 */ /* 56 */
EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes, EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char *bytes,
int length)); int length));
/* 57 */ /* 57 */
EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj *objPtr,
int boolValue)); int boolValue));
/* 58 */ /* 58 */
EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr , EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj *objPtr,
int length)); int length));
/* 59 */ /* 59 */
EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST unsigned char * bytes, int length)); CONST unsigned char *bytes, int length));
/* 60 */ /* 60 */
EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj *objPtr,
double doubleValue)); double doubleValue));
/* 61 */ /* 61 */
EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj *objPtr,
int intValue)); int intValue));
/* 62 */ /* 62 */
EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj *objPtr,
int objc, Tcl_Obj *CONST objv[])); int objc, Tcl_Obj *CONST objv[]));
/* 63 */ /* 63 */
EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj *objPtr,
long longValue)); long longValue));
/* 64 */ /* 64 */
EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj *objPtr,
int length)); int length));
/* 65 */ /* 65 */
EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj* objPtr, EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST char* bytes, int length)); CONST char *bytes, int length));
/* 66 */ /* 66 */
EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * message)); CONST char *message));
/* 67 */ /* 67 */
EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp *interp,
, CONST char *message, int length));
CONST char * message, int length));
/* 68 */ /* 68 */
EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp )); EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp *interp) );
/* 69 */ /* 69 */
EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string)); CONST char *element));
/* 70 */ /* 70 */
EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp));
/* 71 */ /* 71 */
EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc * proc, EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc *proc,
ClientData clientData)); ClientData clientData));
/* 72 */ /* 72 */
EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async) ); EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async) );
/* 73 */ /* 73 */
EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp *interp,
int code)); int code));
/* 74 */ /* 74 */
EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
/* 75 */ /* 75 */
EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void));
/* 76 */ /* 76 */
EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp * interp )); EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp *interp) );
/* 77 */ /* 77 */
EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char * src, EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char *src,
int * readPtr)); int *readPtr));
/* 78 */ /* 78 */
EXTERN int Tcl_BadChannelOption _ANSI_ARGS_(( EXTERN int Tcl_BadChannelOption _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, CONST char * optionName ,
, CONST char *optionName,
CONST char * optionList)); CONST char *optionList));
/* 79 */ /* 79 */
EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp * interp EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp *interp,
, Tcl_InterpDeleteProc *proc,
Tcl_InterpDeleteProc * proc,
ClientData clientData)); ClientData clientData));
/* 80 */ /* 80 */
EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_((
Tcl_IdleProc * idleProc, Tcl_IdleProc *idleProc,
ClientData clientData)); ClientData clientData));
/* 81 */ /* 81 */
EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Channel chan)); Tcl_Channel chan));
/* 82 */ /* 82 */
EXTERN int Tcl_CommandComplete _ANSI_ARGS_((CONST char * cmd)); EXTERN int Tcl_CommandComplete _ANSI_ARGS_((CONST char *cmd));
/* 83 */ /* 83 */
EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc,
CONST84 char * CONST * argv)); CONST84 char *CONST *argv));
/* 84 */ /* 84 */
EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char *src,
char * dst, int flags)); char *dst, int flags));
/* 85 */ /* 85 */
EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_((
CONST char * src, int length, char * dst, CONST char *src, int length, char *dst,
int flags)); int flags));
/* 86 */ /* 86 */
EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp * slave, EXTERN int Tcl_CreateAlias _ANSI_ARGS_((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));
/* 87 */ /* 87 */
EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp * slave, EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((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[]));
/* 88 */ /* 88 */
EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_((
Tcl_ChannelType * typePtr, Tcl_ChannelType *typePtr,
CONST char * chanName, CONST char *chanName,
ClientData instanceData, int mask)); ClientData instanceData, int mask));
/* 89 */ /* 89 */
EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_((
Tcl_Channel chan, int mask, Tcl_Channel chan, int mask,
Tcl_ChannelProc * proc, Tcl_ChannelProc *proc, ClientData clientData
ClientData clientData)); ));
/* 90 */ /* 90 */
EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan , EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan ,
Tcl_CloseProc * proc, ClientData clientData) ); Tcl_CloseProc *proc, ClientData clientData)) ;
/* 91 */ /* 91 */
EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((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));
/* 92 */ /* 92 */
EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( EXTERN void Tcl_CreateEventSource _ANSI_ARGS_((
Tcl_EventSetupProc * setupProc, Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc * checkProc, Tcl_EventCheckProc *checkProc,
ClientData clientData)); ClientData clientData));
/* 93 */ /* 93 */
EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc *proc, ClientData clientData));
/* 94 */ /* 94 */
EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void));
/* 95 */ /* 95 */
EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * name, int numArgs, CONST char *name, int numArgs,
Tcl_ValueType * argTypes, Tcl_ValueType *argTypes, Tcl_MathProc *proc,
Tcl_MathProc * proc, ClientData clientData)) ClientData clientData));
;
/* 96 */ /* 96 */
EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_(( EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, CONST char * cmdName, ,
Tcl_ObjCmdProc * proc, ClientData clientData CONST char *cmdName, Tcl_ObjCmdProc *proc,
, ClientData clientData,
Tcl_CmdDeleteProc * deleteProc)); Tcl_CmdDeleteProc *deleteProc));
/* 97 */ /* 97 */
EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * slaveName, int isSafe)); CONST char *slaveName, int isSafe));
/* 98 */ /* 98 */
EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds , EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds ,
Tcl_TimerProc * proc, ClientData clientData) ); Tcl_TimerProc *proc, ClientData clientData)) ;
/* 99 */ /* 99 */
EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp *interp,
int level, Tcl_CmdTraceProc * proc, int level, Tcl_CmdTraceProc *proc,
ClientData clientData)); ClientData clientData));
/* 100 */ /* 100 */
EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp *interp,
, CONST char *name));
CONST char * name));
/* 101 */ /* 101 */
EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_((
Tcl_Channel chan, Tcl_ChannelProc * proc, Tcl_Channel chan, Tcl_ChannelProc *proc,
ClientData clientData)); ClientData clientData));
/* 102 */ /* 102 */
EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan , EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan ,
Tcl_CloseProc * proc, ClientData clientData) ); Tcl_CloseProc *proc, ClientData clientData)) ;
/* 103 */ /* 103 */
EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * cmdName)); CONST char *cmdName));
/* 104 */ /* 104 */
EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Command command)); Tcl_Interp *interp, Tcl_Command command));
/* 105 */ /* 105 */
EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( EXTERN void Tcl_DeleteEvents _ANSI_ARGS_((
Tcl_EventDeleteProc * proc, Tcl_EventDeleteProc *proc,
ClientData clientData)); ClientData clientData));
/* 106 */ /* 106 */
EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_((
Tcl_EventSetupProc * setupProc, Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc * checkProc, Tcl_EventCheckProc *checkProc,
ClientData clientData)); ClientData clientData));
/* 107 */ /* 107 */
EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc *proc, ClientData clientData));
/* 108 */ /* 108 */
EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_((
Tcl_HashEntry * entryPtr)); Tcl_HashEntry *entryPtr));
/* 109 */ /* 109 */
EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr)); Tcl_HashTable *tablePtr));
/* 110 */ /* 110 */
EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp *interp));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 111 */ /* 111 */
EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids,
Tcl_Pid * pidPtr)); Tcl_Pid *pidPtr));
#endif /* UNIX */
#ifdef __WIN32__
/* 111 */
EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids,
Tcl_Pid * pidPtr));
#endif /* __WIN32__ */
/* 112 */ /* 112 */
EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_((
Tcl_TimerToken token)); Tcl_TimerToken token));
/* 113 */ /* 113 */
EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Trace trace)); Tcl_Trace trace));
/* 114 */ /* 114 */
EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Interp *interp,
Tcl_InterpDeleteProc * proc, Tcl_InterpDeleteProc *proc,
ClientData clientData)); ClientData clientData));
/* 115 */ /* 115 */
EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags));
/* 116 */ /* 116 */
EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc * proc, EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc *proc,
ClientData clientData)); ClientData clientData));
/* 117 */ /* 117 */
EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString * dsPtr, EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString *dsPtr,
CONST char * str, int length)); CONST char *bytes, int length));
/* 118 */ /* 118 */
EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_(( EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_((
Tcl_DString * dsPtr, CONST char * string)); Tcl_DString *dsPtr, CONST char *element));
/* 119 */ /* 119 */
EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_(( EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_((
Tcl_DString * dsPtr)); Tcl_DString *dsPtr));
/* 120 */ /* 120 */
EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString * dsPtr)); EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString *dsPtr));
/* 121 */ /* 121 */
EXTERN void Tcl_DStringGetResult _ANSI_ARGS_(( EXTERN void Tcl_DStringGetResult _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, Tcl_DString * dsPtr)); ,
Tcl_DString *dsPtr));
/* 122 */ /* 122 */
EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString * dsPtr)); EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString *dsPtr));
/* 123 */ /* 123 */
EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_DString * dsPtr)); Tcl_DString *dsPtr));
/* 124 */ /* 124 */
EXTERN void Tcl_DStringSetLength _ANSI_ARGS_(( EXTERN void Tcl_DStringSetLength _ANSI_ARGS_((Tcl_DString *dsPtr
Tcl_DString * dsPtr, int length)); ,
int length));
/* 125 */ /* 125 */
EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_((
Tcl_DString * dsPtr)); Tcl_DString *dsPtr));
/* 126 */ /* 126 */
EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan));
/* 127 */ /* 127 */
EXTERN CONST84_RETURN char * Tcl_ErrnoId _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_ErrnoId _ANSI_ARGS_((void));
/* 128 */ /* 128 */
EXTERN CONST84_RETURN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); EXTERN CONST84_RETURN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err));
/* 129 */ /* 129 */
EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string)); CONST char *script));
/* 130 */ /* 130 */
EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * fileName)); CONST char *fileName));
/* 131 */ /* 131 */
EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr)); Tcl_Obj *objPtr));
/* 132 */ /* 132 */
EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( EXTERN void Tcl_EventuallyFree _ANSI_ARGS_((
ClientData clientData, ClientData clientData,
Tcl_FreeProc * freeProc)); Tcl_FreeProc *freeProc));
/* 133 */ /* 133 */
EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); EXTERN void Tcl_Exit _ANSI_ARGS_((int status));
/* 134 */ /* 134 */
EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * hiddenCmdToken, CONST char *hiddenCmdToken,
CONST char * cmdName)); CONST char *cmdName));
/* 135 */ /* 135 */
EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, int * ptr)); CONST char *expr, int *ptr));
/* 136 */ /* 136 */
EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, int * ptr)); Tcl_Obj *objPtr, int *ptr));
/* 137 */ /* 137 */
EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, double * ptr)); CONST char *expr, double *ptr));
/* 138 */ /* 138 */
EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, double * ptr)); Tcl_Obj *objPtr, double *ptr));
/* 139 */ /* 139 */
EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, long * ptr)); CONST char *expr, long *ptr));
/* 140 */ /* 140 */
EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, long * ptr)); Tcl_Obj *objPtr, long *ptr));
/* 141 */ /* 141 */
EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr));
/* 142 */ /* 142 */
EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string)); CONST char *expr));
/* 143 */ /* 143 */
EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); EXTERN void Tcl_Finalize _ANSI_ARGS_((void));
/* 144 */ /* 144 */
EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char * argv0)) ; EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char *argv0));
/* 145 */ /* 145 */
EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_((
Tcl_HashTable * tablePtr, Tcl_HashTable *tablePtr,
Tcl_HashSearch * searchPtr)); Tcl_HashSearch *searchPtr));
/* 146 */ /* 146 */
EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan));
/* 147 */ /* 147 */
EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp *interp));
/* 148 */ /* 148 */
EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetAlias _ANSI_ARGS_((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));
/* 149 */ /* 149 */
EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((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));
/* 150 */ /* 150 */
EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * name, CONST char *name,
Tcl_InterpDeleteProc ** procPtr)); Tcl_InterpDeleteProc **procPtr));
/* 151 */ /* 151 */
EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * chanName, int * modePtr)); CONST char *chanName, int *modePtr));
/* 152 */ /* 152 */
EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_((
Tcl_Channel chan)); Tcl_Channel chan));
/* 153 */ /* 153 */
EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan,
int direction, ClientData * handlePtr)); int direction, ClientData *handlePtr));
/* 154 */ /* 154 */
EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_((
Tcl_Channel chan)); Tcl_Channel chan));
/* 155 */ /* 155 */
EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan));
/* 156 */ /* 156 */
EXTERN CONST84_RETURN char * Tcl_GetChannelName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetChannelName _ANSI_ARGS_((
Tcl_Channel chan)); Tcl_Channel chan));
/* 157 */ /* 157 */
EXTERN int Tcl_GetChannelOption _ANSI_ARGS_(( EXTERN int Tcl_GetChannelOption _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, Tcl_Channel chan, ,
CONST char * optionName, Tcl_DString * dsPtr Tcl_Channel chan, CONST char *optionName,
)); Tcl_DString *dsPtr));
/* 158 */ /* 158 */
EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)) ; EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)) ;
/* 159 */ /* 159 */
EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * cmdName, Tcl_CmdInfo * infoPtr) CONST char *cmdName, Tcl_CmdInfo *infoPtr));
);
/* 160 */ /* 160 */
EXTERN CONST84_RETURN char * Tcl_GetCommandName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetCommandName _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Command command)); Tcl_Interp *interp, Tcl_Command command));
/* 161 */ /* 161 */
EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); EXTERN int Tcl_GetErrno _ANSI_ARGS_((void));
/* 162 */ /* 162 */
EXTERN CONST84_RETURN char * Tcl_GetHostName _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_GetHostName _ANSI_ARGS_((void));
/* 163 */ /* 163 */
EXTERN int Tcl_GetInterpPath _ANSI_ARGS_(( EXTERN int Tcl_GetInterpPath _ANSI_ARGS_((Tcl_Interp *askInterp
Tcl_Interp * askInterp, ,
Tcl_Interp * slaveInterp)); Tcl_Interp *slaveInterp));
/* 164 */ /* 164 */
EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp *interp));
/* 165 */ /* 165 */
EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void));
/* 166 */ /* 166 */
EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp *interp));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
/* 167 */ /* 167 */
EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, int forWriting, CONST char *chanID, int forWriting,
int checkUsage, ClientData * filePtr)); int checkUsage, ClientData *filePtr));
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */
/* 167 */
EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp,
CONST char *chanID, int forWriting,
int checkUsage, ClientData *filePtr));
#endif /* MACOSX */
/* 168 */ /* 168 */
EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char * path)); EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char *path));
/* 169 */ /* 169 */
EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan,
Tcl_DString * dsPtr)); Tcl_DString *dsPtr));
/* 170 */ /* 170 */
EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan,
Tcl_Obj * objPtr)); Tcl_Obj *objPtr));
/* 171 */ /* 171 */
EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void));
/* 172 */ /* 172 */
EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * slaveName)); CONST char *slaveName));
/* 173 */ /* 173 */
EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type));
/* 174 */ /* 174 */
EXTERN CONST84_RETURN char * Tcl_GetStringResult _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetStringResult _ANSI_ARGS_((
Tcl_Interp * interp)); Tcl_Interp *interp));
/* 175 */ /* 175 */
EXTERN CONST84_RETURN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags)); CONST char *varName, int flags));
/* 176 */ /* 176 */
EXTERN CONST84_RETURN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * part1, CONST char * part2, CONST char *part1, CONST char *part2,
int flags)); int flags));
/* 177 */ /* 177 */
EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * command)); CONST char *command));
/* 178 */ /* 178 */
EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr)); Tcl_Obj *objPtr));
/* 179 */ /* 179 */
EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * cmdName, CONST char *cmdName,
CONST char * hiddenCmdToken)); CONST char *hiddenCmdToken));
/* 180 */ /* 180 */
EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp *interp));
/* 181 */ /* 181 */
EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr, int keyType)); Tcl_HashTable *tablePtr, int keyType));
/* 182 */ /* 182 */
EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan));
/* 183 */ /* 183 */
EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan));
/* 184 */ /* 184 */
EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp * interp)) ; EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp *interp));
/* 185 */ /* 185 */
EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp *interp));
/* 186 */ /* 186 */
EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc,
CONST84 char * CONST * argv, CONST84 char *CONST *argv,
Tcl_DString * resultPtr)); Tcl_DString *resultPtr));
/* 187 */ /* 187 */
EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, char * addr, int type) CONST char *varName, char *addr, int type));
);
/* Slot 188 is reserved */ /* Slot 188 is reserved */
/* 189 */ /* 189 */
EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle,
int mode)); int mode));
/* 190 */ /* 190 */
EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp *interp));
/* 191 */ /* 191 */
EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_((
ClientData tcpSocket)); ClientData tcpSocket));
/* 192 */ /* 192 */
EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc,
CONST84 char * CONST * argv)); CONST84 char *CONST *argv));
/* 193 */ /* 193 */
EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_((
Tcl_HashSearch * searchPtr)); Tcl_HashSearch *searchPtr));
/* 194 */ /* 194 */
EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel,
int mask)); int mask));
/* 195 */ /* 195 */
EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr,
int flags)); int flags));
/* 196 */ /* 196 */
EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr,
Tcl_Obj * newValuePtr, int flags)); Tcl_Obj *newValuePtr, int flags));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_((
Tcl_Interp * interp, int argc,
CONST84 char ** argv, int flags));
#endif /* UNIX */
#ifdef __WIN32__
/* 197 */ /* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_((
Tcl_Interp * interp, int argc, Tcl_Interp *interp, int argc,
CONST84 char ** argv, int flags)); CONST84 char **argv, int flags));
#endif /* __WIN32__ */
/* 198 */ /* 198 */
EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp,
, CONST char *fileName, CONST char *modeString
CONST char * fileName, ,
CONST char * modeString, int permissions)); int permissions));
/* 199 */ /* 199 */
EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp *interp,
int port, CONST char * address, int port, CONST char *address,
CONST char * myaddr, int myport, int async)) CONST char *myaddr, int myport, int async));
;
/* 200 */ /* 200 */
EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp *interp,
int port, CONST char * host, int port, CONST char *host,
Tcl_TcpAcceptProc * acceptProc, Tcl_TcpAcceptProc *acceptProc,
ClientData callbackData)); ClientData callbackData));
/* 201 */ /* 201 */
EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data));
/* 202 */ /* 202 */
EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp *interp,
double value, char * dst)); double value, char *dst));
/* 203 */ /* 203 */
EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string)); EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char *assignment));
/* 204 */ /* 204 */
EXTERN CONST84_RETURN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * inter p)); EXTERN CONST84_RETURN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp *interp ));
/* 205 */ /* 205 */
EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr, EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event *evPtr,
Tcl_QueuePosition position)); Tcl_QueuePosition position));
/* 206 */ /* 206 */
EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, char *bufPtr
char * bufPtr, int toRead)); ,
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ int toRead));
/* 207 */ /* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
#endif /* UNIX */
#ifdef __WIN32__
/* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
#endif /* __WIN32__ */
/* 208 */ /* 208 */
EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * cmd, int flags)); CONST char *cmd, int flags));
/* 209 */ /* 209 */
EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_(( EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, Tcl_Obj * cmdPtr, ,
int flags)); Tcl_Obj *cmdPtr, int flags));
/* 210 */ /* 210 */
EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Channel chan)); Tcl_Channel chan));
/* 211 */ /* 211 */
EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( EXTERN void Tcl_RegisterObjType _ANSI_ARGS_((
Tcl_ObjType * typePtr)); Tcl_ObjType *typePtr));
/* 212 */ /* 212 */
EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string)); CONST char *pattern));
/* 213 */ /* 213 */
EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_RegExp regexp, CONST char * str, Tcl_RegExp regexp, CONST char *text,
CONST char * start)); CONST char *start));
/* 214 */ /* 214 */
EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, CONST char * pattern)); CONST char *text, CONST char *pattern));
/* 215 */ /* 215 */
EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp,
int index, CONST84 char ** startPtr, int index, CONST84 char **startPtr,
CONST84 char ** endPtr)); CONST84 char **endPtr));
/* 216 */ /* 216 */
EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData));
/* 217 */ /* 217 */
EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp));
/* 218 */ /* 218 */
EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * str, EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char *src,
int * flagPtr)); int *flagPtr));
/* 219 */ /* 219 */
EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char * str EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char *src,
, int length, int *flagPtr));
int length, int * flagPtr));
/* 220 */ /* 220 */
EXTERN int Tcl_SeekOld _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_SeekOld _ANSI_ARGS_((Tcl_Channel chan,
int offset, int mode)); int offset, int mode));
/* 221 */ /* 221 */
EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void));
/* 222 */ /* 222 */
EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags));
/* 223 */ /* 223 */
EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * name, CONST char *name, Tcl_InterpDeleteProc *proc
Tcl_InterpDeleteProc * proc, ,
ClientData clientData)); ClientData clientData));
/* 224 */ /* 224 */
EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_((
Tcl_Channel chan, int sz)); Tcl_Channel chan, int sz));
/* 225 */ /* 225 */
EXTERN int Tcl_SetChannelOption _ANSI_ARGS_(( EXTERN int Tcl_SetChannelOption _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, Tcl_Channel chan, ,
CONST char * optionName, Tcl_Channel chan, CONST char *optionName,
CONST char * newValue)); CONST char *newValue));
/* 226 */ /* 226 */
EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * cmdName, CONST char *cmdName,
CONST Tcl_CmdInfo * infoPtr)); CONST Tcl_CmdInfo *infoPtr));
/* 227 */ /* 227 */
EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err));
/* 228 */ /* 228 */
EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp));
/* 229 */ /* 229 */
EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr) ); EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time *timePtr)) ;
/* 230 */ /* 230 */
EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( EXTERN void Tcl_SetPanicProc _ANSI_ARGS_((
Tcl_PanicProc * panicProc)); Tcl_PanicProc *panicProc));
/* 231 */ /* 231 */
EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_((
Tcl_Interp * interp, int depth)); Tcl_Interp *interp, int depth));
/* 232 */ /* 232 */
EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp *interp,
char * str, Tcl_FreeProc * freeProc)); char *result, Tcl_FreeProc *freeProc));
/* 233 */ /* 233 */
EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode));
/* 234 */ /* 234 */
EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp * interp EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp *interp,
, Tcl_Obj *errorObjPtr));
Tcl_Obj * errorObjPtr));
/* 235 */ /* 235 */
EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * resultObjPtr)); Tcl_Obj *resultObjPtr));
/* 236 */ /* 236 */
EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel,
int type)); int type));
/* 237 */ /* 237 */
EXTERN CONST84_RETURN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, CONST char * newValue, CONST char *varName, CONST char *newValue,
int flags)); int flags));
/* 238 */ /* 238 */
EXTERN CONST84_RETURN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_SetVar2 _ANSI_ARGS_((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));
/* 239 */ /* 239 */
EXTERN CONST84_RETURN char * Tcl_SignalId _ANSI_ARGS_((int sig)); EXTERN CONST84_RETURN char * Tcl_SignalId _ANSI_ARGS_((int sig));
/* 240 */ /* 240 */
EXTERN CONST84_RETURN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); EXTERN CONST84_RETURN char * Tcl_SignalMsg _ANSI_ARGS_((int sig));
/* 241 */ /* 241 */
EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp *interp));
/* 242 */ /* 242 */
EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * listStr, int * argcPtr, CONST char *listStr, int *argcPtr,
CONST84 char *** argvPtr)); CONST84 char ***argvPtr));
/* 243 */ /* 243 */
EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char * path, EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char *path,
int * argcPtr, CONST84 char *** argvPtr)); int *argcPtr, CONST84 char ***argvPtr));
/* 244 */ /* 244 */
EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * pkgName, CONST char *pkgName,
Tcl_PackageInitProc * initProc, Tcl_PackageInitProc *initProc,
Tcl_PackageInitProc * safeInitProc)); Tcl_PackageInitProc *safeInitProc));
/* 245 */ /* 245 */
EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * str, EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char *str,
CONST char * pattern)); CONST char *pattern));
/* 246 */ /* 246 */
EXTERN int Tcl_TellOld _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_TellOld _ANSI_ARGS_((Tcl_Channel chan));
/* 247 */ /* 247 */
EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags, CONST char *varName, int flags,
Tcl_VarTraceProc * proc, Tcl_VarTraceProc *proc,
ClientData clientData)); ClientData clientData));
/* 248 */ /* 248 */
EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((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));
/* 249 */ /* 249 */
EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * name, Tcl_Interp *interp, CONST char *name,
Tcl_DString * bufferPtr)); Tcl_DString *bufferPtr));
/* 250 */ /* 250 */
EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan,
CONST char * str, int len, int atHead)); CONST char *str, int len, int atHead));
/* 251 */ /* 251 */
EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName)); CONST char *varName));
/* 252 */ /* 252 */
EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Channel chan)); Tcl_Interp *interp, Tcl_Channel chan));
/* 253 */ /* 253 */
EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags)); CONST char *varName, int flags));
/* 254 */ /* 254 */
EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * part1, CONST char * part2, CONST char *part1, CONST char *part2,
int flags)); int flags));
/* 255 */ /* 255 */
EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags, CONST char *varName, int flags,
Tcl_VarTraceProc * proc, Tcl_VarTraceProc *proc,
ClientData clientData)); ClientData clientData));
/* 256 */ /* 256 */
EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((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));
/* 257 */ /* 257 */
EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp * interp EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp *interp,
, CONST char *varName));
CONST char * varName));
/* 258 */ /* 258 */
EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * frameName, CONST char * varName CONST char *frameName, CONST char *varName,
, CONST char *localName, int flags));
CONST char * localName, int flags));
/* 259 */ /* 259 */
EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * frameName, CONST char * part1, CONST char *frameName, CONST char *part1,
CONST char * part2, CONST char * localName, CONST char *part2, CONST char *localName,
int flags)); int flags));
/* 260 */ /* 260 */
EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,int erp)); EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,int erp));
/* 261 */ /* 261 */
EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags, CONST char *varName, int flags,
Tcl_VarTraceProc * procPtr, Tcl_VarTraceProc *procPtr,
ClientData prevClientData)); ClientData prevClientData));
/* 262 */ /* 262 */
EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((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));
/* 263 */ /* 263 */
EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan,
CONST char * s, int slen)); CONST char *s, int slen));
/* 264 */ /* 264 */
EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[], int objc, Tcl_Obj *CONST objv[],
CONST char * message)); CONST char *message));
/* 265 */ /* 265 */
EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_(( EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((
CONST char * fileName)); CONST char *fileName));
/* 266 */ /* 266 */
EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char * file , EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char *file,
int line)); int line));
/* 267 */ /* 267 */
EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp *interp,
va_list argList)); va_list argList));
/* 268 */ /* 268 */
EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_((
Tcl_Obj * objPtr, va_list argList)); Tcl_Obj *objPtr, va_list argList));
/* 269 */ /* 269 */
EXTERN CONST84_RETURN char * Tcl_HashStats _ANSI_ARGS_(( EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable *tablePtr))
Tcl_HashTable * tablePtr)); ;
/* 270 */ /* 270 */
EXTERN CONST84_RETURN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * str, CONST84 char ** termPtr)); CONST char *start, CONST84 char **termPtr));
/* 271 */ /* 271 */
EXTERN CONST84_RETURN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * inter EXTERN CONST84_RETURN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp *interp
p, ,
CONST char * name, CONST char * version, CONST char *name, CONST char *version,
int exact)); int exact));
/* 272 */ /* 272 */
EXTERN CONST84_RETURN char * Tcl_PkgPresentEx _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_PkgPresentEx _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * name, Tcl_Interp *interp, CONST char *name,
CONST char * version, int exact, CONST char *version, int exact,
ClientData * clientDataPtr)); ClientData *clientDataPtr));
/* 273 */ /* 273 */
EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * name, CONST char * version)); CONST char *name, CONST char *version));
/* 274 */ /* 274 */
EXTERN CONST84_RETURN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * inter EXTERN CONST84_RETURN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp *interp
p, ,
CONST char * name, CONST char * version, CONST char *name, CONST char *version,
int exact)); int exact));
/* 275 */ /* 275 */
EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp *interp,
va_list argList)); va_list argList));
/* 276 */ /* 276 */
EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp *interp,
va_list argList)); va_list argList));
/* 277 */ /* 277 */
EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int *statPtr,
int options)); int options));
/* 278 */ /* 278 */
EXTERN void Tcl_PanicVA _ANSI_ARGS_((CONST char * format, EXTERN void Tcl_PanicVA _ANSI_ARGS_((CONST char *format,
va_list argList)); va_list argList));
/* 279 */ /* 279 */
EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor EXTERN void Tcl_GetVersion _ANSI_ARGS_((int *major, int *minor,
, int *patchLevel, int *type));
int * patchLevel, int * type));
/* 280 */ /* 280 */
EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp));
/* 281 */ /* 281 */
EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_ChannelType * typePtr, Tcl_ChannelType *typePtr,
ClientData instanceData, int mask, ClientData instanceData, int mask,
Tcl_Channel prevChan)); Tcl_Channel prevChan));
/* 282 */ /* 282 */
EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Channel chan)); Tcl_Channel chan));
/* 283 */ /* 283 */
EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan) ); EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan) );
/* 284 */ /* 284 */
EXTERN void Tcl_SetMainLoop _ANSI_ARGS_((Tcl_MainLoopProc * proc )); EXTERN void Tcl_SetMainLoop _ANSI_ARGS_((Tcl_MainLoopProc *proc) );
/* Slot 285 is reserved */ /* Slot 285 is reserved */
/* 286 */ /* 286 */
EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj *objPtr,
Tcl_Obj * appendObjPtr)); Tcl_Obj *appendObjPtr));
/* 287 */ /* 287 */
EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_((
Tcl_EncodingType * typePtr)); Tcl_EncodingType *typePtr));
/* 288 */ /* 288 */
EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc *proc, ClientData clientData));
/* 289 */ /* 289 */
EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc *proc, ClientData clientData));
/* 290 */ /* 290 */
EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( EXTERN void Tcl_DiscardResult _ANSI_ARGS_((
Tcl_SavedResult * statePtr)); Tcl_SavedResult *statePtr));
/* 291 */ /* 291 */
EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * script, int numBytes, int flags CONST char *script, int numBytes, int flags)
)); );
/* 292 */ /* 292 */
EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[], int flags)) ; int objc, Tcl_Obj *CONST objv[], int flags)) ;
/* 293 */ /* 293 */
EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, int flags)); Tcl_Obj *objPtr, int flags));
/* 294 */ /* 294 */
EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status));
/* 295 */ /* 295 */
EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((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));
/* 296 */ /* 296 */
EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_((
Tcl_Encoding encoding, CONST char * src, Tcl_Encoding encoding, CONST char *src,
int srcLen, Tcl_DString * dsPtr)); int srcLen, Tcl_DString *dsPtr));
/* 297 */ /* 297 */
EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void));
/* 298 */ /* 298 */
EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_((
ClientData clientData)); ClientData clientData));
/* 299 */ /* 299 */
EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding) ); EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding) );
/* 300 */ /* 300 */
EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void));
/* 301 */ /* 301 */
EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * name)); CONST char *name));
/* 302 */ /* 302 */
EXTERN CONST84_RETURN char * Tcl_GetEncodingName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetEncodingName _ANSI_ARGS_((
Tcl_Encoding encoding)); Tcl_Encoding encoding));
/* 303 */ /* 303 */
EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_(( EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp)); ));
/* 304 */ /* 304 */
EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp *interp, Tcl_Obj *objPtr,
CONST VOID * tablePtr, int offset, CONST VOID *tablePtr, int offset,
CONST char * msg, int flags, int * indexPtr) CONST char *msg, int flags, int *indexPtr));
);
/* 305 */ /* 305 */
EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_((
Tcl_ThreadDataKey * keyPtr, int size)); Tcl_ThreadDataKey *keyPtr, int size));
/* 306 */ /* 306 */
EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * part1, CONST char * part2, CONST char *part1, CONST char *part2,
int flags)); int flags));
/* 307 */ /* 307 */
EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void));
/* 308 */ /* 308 */
EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex *mutexPtr));
/* 309 */ /* 309 */
EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex *mutexPtr));
/* 310 */ /* 310 */
EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( EXTERN void Tcl_ConditionNotify _ANSI_ARGS_((
Tcl_Condition * condPtr)); Tcl_Condition *condPtr));
/* 311 */ /* 311 */
EXTERN void Tcl_ConditionWait _ANSI_ARGS_(( EXTERN void Tcl_ConditionWait _ANSI_ARGS_((
Tcl_Condition * condPtr, Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr,
Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); Tcl_Time *timePtr));
/* 312 */ /* 312 */
EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char *src,
int len)); int length));
/* 313 */ /* 313 */
EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel, EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel,
Tcl_Obj * objPtr, int charsToRead, Tcl_Obj *objPtr, int charsToRead,
int appendFlag)); int appendFlag));
/* 314 */ /* 314 */
EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_SavedResult * statePtr)); Tcl_SavedResult *statePtr));
/* 315 */ /* 315 */
EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_SavedResult * statePtr)); Tcl_SavedResult *statePtr));
/* 316 */ /* 316 */
EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * name)); Tcl_Interp *interp, CONST char *name));
/* 317 */ /* 317 */
EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * part1, CONST char * part2, CONST char *part1, CONST char *part2,
Tcl_Obj * newValuePtr, int flags)); Tcl_Obj *newValuePtr, int flags));
/* 318 */ /* 318 */
EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)) ; EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)) ;
/* 319 */ /* 319 */
EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_((
Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_ThreadId threadId, Tcl_Event *evPtr,
Tcl_QueuePosition position)); Tcl_QueuePosition position));
/* 320 */ /* 320 */
EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char * src, EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char *src,
int index)); int index));
/* 321 */ /* 321 */
EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch));
/* 322 */ /* 322 */
EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch));
/* 323 */ /* 323 */
EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch));
/* 324 */ /* 324 */
EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char * buf)); EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char *buf));
/* 325 */ /* 325 */
EXTERN CONST84_RETURN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char *src,
int index)); int index));
/* 326 */ /* 326 */
EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char *src,
int len)); int length));
/* 327 */ /* 327 */
EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char *src,
int * readPtr, char * dst)); int *readPtr, char *dst));
/* 328 */ /* 328 */
EXTERN CONST84_RETURN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char * src , EXTERN CONST84_RETURN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char *src,
int ch)); int ch));
/* 329 */ /* 329 */
EXTERN CONST84_RETURN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char *src,
int ch)); int ch));
/* 330 */ /* 330 */
EXTERN CONST84_RETURN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src)); EXTERN CONST84_RETURN char * Tcl_UtfNext _ANSI_ARGS_((CONST char *src));
/* 331 */ /* 331 */
EXTERN CONST84_RETURN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char *src,
CONST char * start)); CONST char *start));
/* 332 */ /* 332 */
EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((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));
/* 333 */ /* 333 */
EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_((
Tcl_Encoding encoding, CONST char * src, Tcl_Encoding encoding, CONST char *src,
int srcLen, Tcl_DString * dsPtr)); int srcLen, Tcl_DString *dsPtr));
/* 334 */ /* 334 */
EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char * src)); EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char *src));
/* 335 */ /* 335 */
EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char * src)); EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char *src));
/* 336 */ /* 336 */
EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char *src,
Tcl_UniChar * chPtr)); Tcl_UniChar *chPtr));
/* 337 */ /* 337 */
EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src)); EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char *src));
/* 338 */ /* 338 */
EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan,
CONST char * src, int srcLen)); CONST char *src, int srcLen));
/* 339 */ /* 339 */
EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan,
Tcl_Obj * objPtr)); Tcl_Obj *objPtr));
/* 340 */ /* 340 */
EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj *objPtr));
/* 341 */ /* 341 */
EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void));
/* 342 */ /* 342 */
EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_(( EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_((
CONST char * path)); CONST char *path));
/* 343 */ /* 343 */
EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData )); EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData ));
/* 344 */ /* 344 */
EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode)); EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode));
/* 345 */ /* 345 */
EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch));
/* 346 */ /* 346 */
EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch));
/* 347 */ /* 347 */
EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch));
/* 348 */ /* 348 */
EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch));
/* 349 */ /* 349 */
EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch));
/* 350 */ /* 350 */
EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch));
/* 351 */ /* 351 */
EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch));
/* 352 */ /* 352 */
EXTERN int Tcl_UniCharLen _ANSI_ARGS_((CONST Tcl_UniChar * str) EXTERN int Tcl_UniCharLen _ANSI_ARGS_((
); CONST Tcl_UniChar *uniStr));
/* 353 */ /* 353 */
EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs, EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar *ucs,
CONST Tcl_UniChar * ct, unsigned long n)); CONST Tcl_UniChar *uct,
unsigned long numChars));
/* 354 */ /* 354 */
EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_((
CONST Tcl_UniChar * string, int numChars, CONST Tcl_UniChar *uniStr, int uniLength,
Tcl_DString * dsPtr)); Tcl_DString *dsPtr));
/* 355 */ /* 355 */
EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_(( EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_((CONST char *src
CONST char * string, int length, ,
Tcl_DString * dsPtr)); int length, Tcl_DString *dsPtr));
/* 356 */ /* 356 */
EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_(( EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, Tcl_Obj * patObj, ,
int flags)); Tcl_Obj *patObj, int flags));
/* 357 */ /* 357 */
EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Token * tokenPtr, int count)); Tcl_Token *tokenPtr, int count));
/* 358 */ /* 358 */
EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse * parsePtr)); EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse *parsePtr));
/* 359 */ /* 359 */
EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * script, CONST char * command, CONST char *script, CONST char *command,
int length)); int length));
/* 360 */ /* 360 */
EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string, int numBytes, CONST char *start, int numBytes,
Tcl_Parse * parsePtr, int append, Tcl_Parse *parsePtr, int append,
CONST84 char ** termPtr)); CONST84 char **termPtr));
/* 361 */ /* 361 */
EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string, int numBytes, CONST char *start, int numBytes, int nested,
int nested, Tcl_Parse * parsePtr)); Tcl_Parse *parsePtr));
/* 362 */ /* 362 */
EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string, int numBytes, CONST char *start, int numBytes,
Tcl_Parse * parsePtr)); Tcl_Parse *parsePtr));
/* 363 */ /* 363 */
EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_(( EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * string, Tcl_Interp *interp, CONST char *start,
int numBytes, Tcl_Parse * parsePtr, int numBytes, Tcl_Parse *parsePtr,
int append, CONST84 char ** termPtr)); int append, CONST84 char **termPtr));
/* 364 */ /* 364 */
EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * string, int numBytes, CONST char *start, int numBytes,
Tcl_Parse * parsePtr, int append)); Tcl_Parse *parsePtr, int append));
/* 365 */ /* 365 */
EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp * interp, EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_DString * cwdPtr)); Tcl_DString *cwdPtr));
/* 366 */ /* 366 */
EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName)); EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char *dirName));
/* 367 */ /* 367 */
EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) ); EXTERN int Tcl_Access _ANSI_ARGS_((CONST char *path, int mode)) ;
/* 368 */ /* 368 */
EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path, EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char *path,
struct stat * bufPtr)); struct stat *bufPtr));
/* 369 */ /* 369 */
EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char * s1, EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char *s1,
CONST char * s2, unsigned long n)); CONST char *s2, unsigned long n));
/* 370 */ /* 370 */
EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char * s1, EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char *s1,
CONST char * s2, unsigned long n)); CONST char *s2, unsigned long n));
/* 371 */ /* 371 */
EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char * str, EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char *str,
CONST char * pattern, int nocase)); CONST char *pattern, int nocase));
/* 372 */ /* 372 */
EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch));
/* 373 */ /* 373 */
EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch));
/* 374 */ /* 374 */
EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch));
/* 375 */ /* 375 */
EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch));
/* 376 */ /* 376 */
EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_RegExp regexp, Tcl_Obj * objPtr, Tcl_RegExp regexp, Tcl_Obj *textObj,
int offset, int nmatches, int flags)); int offset, int nmatches, int flags));
/* 377 */ /* 377 */
EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp, EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp,
Tcl_RegExpInfo * infoPtr)); Tcl_RegExpInfo *infoPtr));
/* 378 */ /* 378 */
EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_((
CONST Tcl_UniChar * unicode, int numChars)); CONST Tcl_UniChar *unicode, int numChars));
/* 379 */ /* 379 */
EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj *objPtr,
CONST Tcl_UniChar * unicode, int numChars)); CONST Tcl_UniChar *unicode, int numChars));
/* 380 */ /* 380 */
EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj *objPtr));
/* 381 */ /* 381 */
EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj *objPtr,
int index)); int index));
/* 382 */ /* 382 */
EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj *objPtr));
/* 383 */ /* 383 */
EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj *objPtr, int first
int first, int last)); ,
int last));
/* 384 */ /* 384 */
EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj * objPtr EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj *objPtr,
, CONST Tcl_UniChar *unicode, int length));
CONST Tcl_UniChar * unicode, int length));
/* 385 */ /* 385 */
EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * stringObj, Tcl_Obj * patternObj)); Tcl_Obj *textObj, Tcl_Obj *patternObj));
/* 386 */ /* 386 */
EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( EXTERN void Tcl_SetNotifier _ANSI_ARGS_((
Tcl_NotifierProcs * notifierProcPtr)); Tcl_NotifierProcs *notifierProcPtr));
/* 387 */ /* 387 */
EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void)); EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void));
/* 388 */ /* 388 */
EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp * interp )); EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp *interp) );
/* 389 */ /* 389 */
EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_(( EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * pattern)); Tcl_Interp *interp, CONST char *pattern));
/* 390 */ /* 390 */
EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData, EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp * interp, int objc, Tcl_Interp *interp, int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 391 */ /* 391 */
EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_(( EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_((
Tcl_Condition * condPtr)); Tcl_Condition *condPtr));
/* 392 */ /* 392 */
EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex * mutex)); EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex *mutex));
/* 393 */ /* 393 */
EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId * idPtr, EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId *idPtr,
Tcl_ThreadCreateProc proc, Tcl_ThreadCreateProc proc,
ClientData clientData, int stackSize, ClientData clientData, int stackSize,
int flags)); int flags));
/* 394 */ /* 394 */
EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan, char *dst
char * dst, int bytesToRead)); ,
int bytesToRead));
/* 395 */ /* 395 */
EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan,
CONST char * src, int srcLen)); CONST char *src, int srcLen));
/* 396 */ /* 396 */
EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan)); EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan));
/* 397 */ /* 397 */
EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan));
/* 398 */ /* 398 */
EXTERN CONST84_RETURN char * Tcl_ChannelName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_ChannelName _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 399 */ /* 399 */
EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_(( EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 400 */ /* 400 */
EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_(( EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 401 */ /* 401 */
EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_(( EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 402 */ /* 402 */
EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc _ANSI_ARGS_(( EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 403 */ /* 403 */
EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc _ANSI_ARGS_(( EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 404 */ /* 404 */
EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc _ANSI_ARGS_(( EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 405 */ /* 405 */
EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc _ANSI_ARGS_(( EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 406 */ /* 406 */
EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc _ANSI_ARGS_(( EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 407 */ /* 407 */
EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc _ANSI_ARGS_(( EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 408 */ /* 408 */
EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc _ANSI_ARGS_(( EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 409 */ /* 409 */
EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_(( EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 410 */ /* 410 */
EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_(( EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 411 */ /* 411 */
EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_(( EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* 412 */ /* 412 */
EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId threadId, EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId threadId,
int* result)); int *result));
/* 413 */ /* 413 */
EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel )); EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel ));
/* 414 */ /* 414 */
EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_(( EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_((
Tcl_Interp* interp, Tcl_Channel channel)); Tcl_Interp *interp, Tcl_Channel channel));
/* 415 */ /* 415 */
EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel)); EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel));
/* 416 */ /* 416 */
EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)) ; EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)) ;
/* 417 */ /* 417 */
EXTERN void Tcl_ClearChannelHandlers _ANSI_ARGS_(( EXTERN void Tcl_ClearChannelHandlers _ANSI_ARGS_((
Tcl_Channel channel)); Tcl_Channel channel));
/* 418 */ /* 418 */
EXTERN int Tcl_IsChannelExisting _ANSI_ARGS_(( EXTERN int Tcl_IsChannelExisting _ANSI_ARGS_((
CONST char* channelName)); CONST char *channelName));
/* 419 */ /* 419 */
EXTERN int Tcl_UniCharNcasecmp _ANSI_ARGS_(( EXTERN int Tcl_UniCharNcasecmp _ANSI_ARGS_((
CONST Tcl_UniChar * cs, CONST Tcl_UniChar *ucs,
CONST Tcl_UniChar * ct, unsigned long n)); CONST Tcl_UniChar *uct,
unsigned long numChars));
/* 420 */ /* 420 */
EXTERN int Tcl_UniCharCaseMatch _ANSI_ARGS_(( EXTERN int Tcl_UniCharCaseMatch _ANSI_ARGS_((
CONST Tcl_UniChar * ustr, CONST Tcl_UniChar *uniStr,
CONST Tcl_UniChar * pattern, int nocase)); CONST Tcl_UniChar *uniPattern, int nocase));
/* 421 */ /* 421 */
EXTERN Tcl_HashEntry * Tcl_FindHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_FindHashEntry _ANSI_ARGS_((
Tcl_HashTable * tablePtr, CONST char * key)) ; Tcl_HashTable *tablePtr, CONST char *key));
/* 422 */ /* 422 */
EXTERN Tcl_HashEntry * Tcl_CreateHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_CreateHashEntry _ANSI_ARGS_((
Tcl_HashTable * tablePtr, CONST char * key, Tcl_HashTable *tablePtr, CONST char *key,
int * newPtr)); int *newPtr));
/* 423 */ /* 423 */
EXTERN void Tcl_InitCustomHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitCustomHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr, int keyType, Tcl_HashTable *tablePtr, int keyType,
Tcl_HashKeyType * typePtr)); Tcl_HashKeyType *typePtr));
/* 424 */ /* 424 */
EXTERN void Tcl_InitObjHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitObjHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr)); Tcl_HashTable *tablePtr));
/* 425 */ /* 425 */
EXTERN ClientData Tcl_CommandTraceInfo _ANSI_ARGS_(( EXTERN ClientData Tcl_CommandTraceInfo _ANSI_ARGS_((Tcl_Interp *interp
Tcl_Interp * interp, CONST char * varName, ,
int flags, Tcl_CommandTraceProc * procPtr, CONST char *varName, int flags,
Tcl_CommandTraceProc *procPtr,
ClientData prevClientData)); ClientData prevClientData));
/* 426 */ /* 426 */
EXTERN int Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags, CONST char *varName, int flags,
Tcl_CommandTraceProc * proc, Tcl_CommandTraceProc *proc,
ClientData clientData)); ClientData clientData));
/* 427 */ /* 427 */
EXTERN void Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * varName, int flags, CONST char *varName, int flags,
Tcl_CommandTraceProc * proc, Tcl_CommandTraceProc *proc,
ClientData clientData)); ClientData clientData));
/* 428 */ /* 428 */
EXTERN char * Tcl_AttemptAlloc _ANSI_ARGS_((unsigned int size)); EXTERN char * Tcl_AttemptAlloc _ANSI_ARGS_((unsigned int size));
/* 429 */ /* 429 */
EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size, EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size,
CONST char * file, int line)); CONST char *file, int line));
/* 430 */ /* 430 */
EXTERN char * Tcl_AttemptRealloc _ANSI_ARGS_((char * ptr, EXTERN char * Tcl_AttemptRealloc _ANSI_ARGS_((char *ptr,
unsigned int size)); unsigned int size));
/* 431 */ /* 431 */
EXTERN char * Tcl_AttemptDbCkrealloc _ANSI_ARGS_((char * ptr, EXTERN char * Tcl_AttemptDbCkrealloc _ANSI_ARGS_((char *ptr,
unsigned int size, CONST char * file, unsigned int size, CONST char *file,
int line)); int line));
/* 432 */ /* 432 */
EXTERN int Tcl_AttemptSetObjLength _ANSI_ARGS_(( EXTERN int Tcl_AttemptSetObjLength _ANSI_ARGS_((Tcl_Obj *objPtr
Tcl_Obj * objPtr, int length)); ,
int length));
/* 433 */ /* 433 */
EXTERN Tcl_ThreadId Tcl_GetChannelThread _ANSI_ARGS_(( EXTERN Tcl_ThreadId Tcl_GetChannelThread _ANSI_ARGS_((
Tcl_Channel channel)); Tcl_Channel channel));
/* 434 */ /* 434 */
EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj _ANSI_ARGS_((Tcl_Obj *objPtr,
int * lengthPtr)); int *lengthPtr));
/* 435 */ /* 435 */
EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((Tcl_Interp * interp EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((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));
/* 436 */ /* 436 */
EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * pattern)); CONST char *pattern));
/* 437 */ /* 437 */
EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * objPtr, int flags)); Tcl_Obj *objPtr, int flags));
/* 438 */ /* 438 */
EXTERN int Tcl_DetachChannel _ANSI_ARGS_((Tcl_Interp* interp, EXTERN int Tcl_DetachChannel _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Channel channel)); Tcl_Channel channel));
/* 439 */ /* 439 */
EXTERN int Tcl_IsStandardChannel _ANSI_ARGS_(( EXTERN int Tcl_IsStandardChannel _ANSI_ARGS_((
Tcl_Channel channel)); Tcl_Channel channel));
/* 440 */ /* 440 */
EXTERN int Tcl_FSCopyFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr, EXTERN int Tcl_FSCopyFile _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj * destPathPtr)); Tcl_Obj *destPathPtr));
/* 441 */ /* 441 */
EXTERN int Tcl_FSCopyDirectory _ANSI_ARGS_(( EXTERN int Tcl_FSCopyDirectory _ANSI_ARGS_((Tcl_Obj *srcPathPtr
Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, ,
Tcl_Obj ** errorPtr)); Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr));
/* 442 */ /* 442 */
EXTERN int Tcl_FSCreateDirectory _ANSI_ARGS_((Tcl_Obj * pathPtr )); EXTERN int Tcl_FSCreateDirectory _ANSI_ARGS_((Tcl_Obj *pathPtr) );
/* 443 */ /* 443 */
EXTERN int Tcl_FSDeleteFile _ANSI_ARGS_((Tcl_Obj * pathPtr)); EXTERN int Tcl_FSDeleteFile _ANSI_ARGS_((Tcl_Obj *pathPtr));
/* 444 */ /* 444 */
EXTERN int Tcl_FSLoadFile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_FSLoadFile _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * pathPtr, CONST char * sym1, Tcl_Obj *pathPtr, CONST char *sym1,
CONST char * sym2, 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));
/* 445 */ /* 445 */
EXTERN int Tcl_FSMatchInDirectory _ANSI_ARGS_(( EXTERN int Tcl_FSMatchInDirectory _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * result, Tcl_Interp *interp, Tcl_Obj *result,
Tcl_Obj * pathPtr, CONST char * pattern, Tcl_Obj *pathPtr, CONST char *pattern,
Tcl_GlobTypeData * types)); Tcl_GlobTypeData *types));
/* 446 */ /* 446 */
EXTERN Tcl_Obj * Tcl_FSLink _ANSI_ARGS_((Tcl_Obj * pathPtr, EXTERN Tcl_Obj * Tcl_FSLink _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_Obj * toPtr, int linkAction)); Tcl_Obj *toPtr, int linkAction));
/* 447 */ /* 447 */
EXTERN int Tcl_FSRemoveDirectory _ANSI_ARGS_((Tcl_Obj * pathPtr EXTERN int Tcl_FSRemoveDirectory _ANSI_ARGS_((Tcl_Obj *pathPtr,
, int recursive, Tcl_Obj **errorPtr));
int recursive, Tcl_Obj ** errorPtr));
/* 448 */ /* 448 */
EXTERN int Tcl_FSRenameFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr, EXTERN int Tcl_FSRenameFile _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj * destPathPtr)); Tcl_Obj *destPathPtr));
/* 449 */ /* 449 */
EXTERN int Tcl_FSLstat _ANSI_ARGS_((Tcl_Obj * pathPtr, EXTERN int Tcl_FSLstat _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_StatBuf * buf)); Tcl_StatBuf *buf));
/* 450 */ /* 450 */
EXTERN int Tcl_FSUtime _ANSI_ARGS_((Tcl_Obj * pathPtr, EXTERN int Tcl_FSUtime _ANSI_ARGS_((Tcl_Obj *pathPtr,
struct utimbuf * tval)); struct utimbuf *tval));
/* 451 */ /* 451 */
EXTERN int Tcl_FSFileAttrsGet _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_FSFileAttrsGet _ANSI_ARGS_((Tcl_Interp *interp,
int index, Tcl_Obj * pathPtr, int index, Tcl_Obj *pathPtr,
Tcl_Obj ** objPtrRef)); Tcl_Obj **objPtrRef));
/* 452 */ /* 452 */
EXTERN int Tcl_FSFileAttrsSet _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_FSFileAttrsSet _ANSI_ARGS_((Tcl_Interp *interp,
int index, Tcl_Obj * pathPtr, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr
Tcl_Obj * objPtr)); ));
/* 453 */ /* 453 */
EXTERN CONST char ** Tcl_FSFileAttrStrings _ANSI_ARGS_((Tcl_Obj * pathPtr EXTERN CONST char ** Tcl_FSFileAttrStrings _ANSI_ARGS_((Tcl_Obj *pathPtr,
, Tcl_Obj **objPtrRef));
Tcl_Obj ** objPtrRef));
/* 454 */ /* 454 */
EXTERN int Tcl_FSStat _ANSI_ARGS_((Tcl_Obj * pathPtr, EXTERN int Tcl_FSStat _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_StatBuf * buf)); Tcl_StatBuf *buf));
/* 455 */ /* 455 */
EXTERN int Tcl_FSAccess _ANSI_ARGS_((Tcl_Obj * pathPtr, EXTERN int Tcl_FSAccess _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode
int mode)); ));
/* 456 */ /* 456 */
EXTERN Tcl_Channel Tcl_FSOpenFileChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_FSOpenFileChannel _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * pathPtr, Tcl_Interp *interp, Tcl_Obj *pathPtr,
CONST char * modeString, int permissions)); CONST char *modeString, int permissions));
/* 457 */ /* 457 */
EXTERN Tcl_Obj* Tcl_FSGetCwd _ANSI_ARGS_((Tcl_Interp * inter p)); EXTERN Tcl_Obj * Tcl_FSGetCwd _ANSI_ARGS_((Tcl_Interp *interp));
/* 458 */ /* 458 */
EXTERN int Tcl_FSChdir _ANSI_ARGS_((Tcl_Obj * pathPtr)); EXTERN int Tcl_FSChdir _ANSI_ARGS_((Tcl_Obj *pathPtr));
/* 459 */ /* 459 */
EXTERN int Tcl_FSConvertToPathType _ANSI_ARGS_(( EXTERN int Tcl_FSConvertToPathType _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * pathPtr)); Tcl_Interp *interp, Tcl_Obj *pathPtr));
/* 460 */ /* 460 */
EXTERN Tcl_Obj* Tcl_FSJoinPath _ANSI_ARGS_((Tcl_Obj * listOb j, EXTERN Tcl_Obj * Tcl_FSJoinPath _ANSI_ARGS_((Tcl_Obj *listObj,
int elements)); int elements));
/* 461 */ /* 461 */
EXTERN Tcl_Obj* Tcl_FSSplitPath _ANSI_ARGS_((Tcl_Obj* pathPt EXTERN Tcl_Obj * Tcl_FSSplitPath _ANSI_ARGS_((Tcl_Obj *pathPtr,
r, int *lenPtr));
int * lenPtr));
/* 462 */ /* 462 */
EXTERN int Tcl_FSEqualPaths _ANSI_ARGS_((Tcl_Obj* firstPtr, EXTERN int Tcl_FSEqualPaths _ANSI_ARGS_((Tcl_Obj *firstPtr,
Tcl_Obj* secondPtr)); Tcl_Obj *secondPtr));
/* 463 */ /* 463 */
EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj* pathObjPtr)); Tcl_Interp *interp, Tcl_Obj *pathPtr));
/* 464 */ /* 464 */
EXTERN Tcl_Obj* Tcl_FSJoinToPath _ANSI_ARGS_((Tcl_Obj * base Ptr, EXTERN Tcl_Obj * Tcl_FSJoinToPath _ANSI_ARGS_((Tcl_Obj *pathPtr,
int objc, Tcl_Obj *CONST objv[])); int objc, Tcl_Obj *CONST objv[]));
/* 465 */ /* 465 */
EXTERN ClientData Tcl_FSGetInternalRep _ANSI_ARGS_(( EXTERN ClientData Tcl_FSGetInternalRep _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_Obj* pathObjPtr, Tcl_Filesystem * fsPtr) Tcl_Filesystem *fsPtr));
);
/* 466 */ /* 466 */
EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj* pathPtr)); Tcl_Interp *interp, Tcl_Obj *pathPtr));
/* 467 */ /* 467 */
EXTERN int Tcl_FSEvalFile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_FSEvalFile _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj * fileName)); Tcl_Obj *fileName));
/* 468 */ /* 468 */
EXTERN Tcl_Obj* Tcl_FSNewNativePath _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_FSNewNativePath _ANSI_ARGS_((
Tcl_Filesystem* fromFilesystem, Tcl_Filesystem *fromFilesystem,
ClientData clientData)); ClientData clientData));
/* 469 */ /* 469 */
EXTERN CONST char* Tcl_FSGetNativePath _ANSI_ARGS_((Tcl_Obj* pathObjPtr )); EXTERN CONST char * Tcl_FSGetNativePath _ANSI_ARGS_((Tcl_Obj *pathPtr));
/* 470 */ /* 470 */
EXTERN Tcl_Obj* Tcl_FSFileSystemInfo _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_FSFileSystemInfo _ANSI_ARGS_((Tcl_Obj *pathPtr))
Tcl_Obj* pathObjPtr)); ;
/* 471 */ /* 471 */
EXTERN Tcl_Obj* Tcl_FSPathSeparator _ANSI_ARGS_((Tcl_Obj* pa thObjPtr)); EXTERN Tcl_Obj * Tcl_FSPathSeparator _ANSI_ARGS_((Tcl_Obj *pathPtr));
/* 472 */ /* 472 */
EXTERN Tcl_Obj* Tcl_FSListVolumes _ANSI_ARGS_((void)); EXTERN Tcl_Obj * Tcl_FSListVolumes _ANSI_ARGS_((void));
/* 473 */ /* 473 */
EXTERN int Tcl_FSRegister _ANSI_ARGS_((ClientData clientData, EXTERN int Tcl_FSRegister _ANSI_ARGS_((ClientData clientData,
Tcl_Filesystem * fsPtr)); Tcl_Filesystem *fsPtr));
/* 474 */ /* 474 */
EXTERN int Tcl_FSUnregister _ANSI_ARGS_((Tcl_Filesystem * fsPtr )); EXTERN int Tcl_FSUnregister _ANSI_ARGS_((Tcl_Filesystem *fsPtr) );
/* 475 */ /* 475 */
EXTERN ClientData Tcl_FSData _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); EXTERN ClientData Tcl_FSData _ANSI_ARGS_((Tcl_Filesystem *fsPtr));
/* 476 */ /* 476 */
EXTERN CONST char* Tcl_FSGetTranslatedStringPath _ANSI_ARGS_(( EXTERN CONST char * Tcl_FSGetTranslatedStringPath _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj* pathPtr)); Tcl_Interp *interp, Tcl_Obj *pathPtr));
/* 477 */ /* 477 */
EXTERN Tcl_Filesystem* Tcl_FSGetFileSystemForPath _ANSI_ARGS_(( EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath _ANSI_ARGS_((
Tcl_Obj* pathObjPtr)); Tcl_Obj *pathPtr));
/* 478 */ /* 478 */
EXTERN Tcl_PathType Tcl_FSGetPathType _ANSI_ARGS_((Tcl_Obj * pathObjPtr) ); EXTERN Tcl_PathType Tcl_FSGetPathType _ANSI_ARGS_((Tcl_Obj *pathPtr));
/* 479 */ /* 479 */
EXTERN int Tcl_OutputBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_OutputBuffered _ANSI_ARGS_((Tcl_Channel chan));
/* 480 */ /* 480 */
EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_(( EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_((
Tcl_Filesystem * fsPtr)); Tcl_Filesystem *fsPtr));
/* 481 */ /* 481 */
EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_(( EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Token * tokenPtr, Tcl_Interp *interp, Tcl_Token *tokenPtr,
int count)); int count));
/* 482 */ /* 482 */
EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time* timeBuf)); EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time *timeBuf));
/* 483 */ /* 483 */
EXTERN Tcl_Trace Tcl_CreateObjTrace _ANSI_ARGS_((Tcl_Interp* interp, EXTERN Tcl_Trace Tcl_CreateObjTrace _ANSI_ARGS_((Tcl_Interp *interp,
int level, int flags, int level, int flags,
Tcl_CmdObjTraceProc* objProc, Tcl_CmdObjTraceProc *objProc,
ClientData clientData, ClientData clientData,
Tcl_CmdObjTraceDeleteProc* delProc)); Tcl_CmdObjTraceDeleteProc *delProc));
/* 484 */ /* 484 */
EXTERN int Tcl_GetCommandInfoFromToken _ANSI_ARGS_(( EXTERN int Tcl_GetCommandInfoFromToken _ANSI_ARGS_((
Tcl_Command token, Tcl_CmdInfo* infoPtr)); Tcl_Command token, Tcl_CmdInfo *infoPtr));
/* 485 */ /* 485 */
EXTERN int Tcl_SetCommandInfoFromToken _ANSI_ARGS_(( EXTERN int Tcl_SetCommandInfoFromToken _ANSI_ARGS_((
Tcl_Command token, Tcl_Command token,
CONST Tcl_CmdInfo* infoPtr)); CONST Tcl_CmdInfo *infoPtr));
/* 486 */ /* 486 */
EXTERN Tcl_Obj * Tcl_DbNewWideIntObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_DbNewWideIntObj _ANSI_ARGS_((
Tcl_WideInt wideValue, CONST char * file, Tcl_WideInt wideValue, CONST char *file,
int line)); int line));
/* 487 */ /* 487 */
EXTERN int Tcl_GetWideIntFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetWideIntFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp *interp, Tcl_Obj *objPtr,
Tcl_WideInt * widePtr)); Tcl_WideInt *widePtr));
/* 488 */ /* 488 */
EXTERN Tcl_Obj * Tcl_NewWideIntObj _ANSI_ARGS_((Tcl_WideInt wideValue )); EXTERN Tcl_Obj * Tcl_NewWideIntObj _ANSI_ARGS_((Tcl_WideInt wideValue ));
/* 489 */ /* 489 */
EXTERN void Tcl_SetWideIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetWideIntObj _ANSI_ARGS_((Tcl_Obj *objPtr,
Tcl_WideInt wideValue)); Tcl_WideInt wideValue));
/* 490 */ /* 490 */
EXTERN Tcl_StatBuf * Tcl_AllocStatBuf _ANSI_ARGS_((void)); EXTERN Tcl_StatBuf * Tcl_AllocStatBuf _ANSI_ARGS_((void));
/* 491 */ /* 491 */
EXTERN Tcl_WideInt Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, EXTERN Tcl_WideInt Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan,
Tcl_WideInt offset, int mode)); Tcl_WideInt offset, int mode));
/* 492 */ /* 492 */
EXTERN Tcl_WideInt Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); EXTERN Tcl_WideInt Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan));
/* 493 */ /* 493 */
EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_(( EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* Slot 494 is reserved */ /* Slot 494 is reserved */
/* Slot 495 is reserved */ /* Slot 495 is reserved */
/* Slot 496 is reserved */ /* Slot 496 is reserved */
/* Slot 497 is reserved */ /* Slot 497 is reserved */
/* Slot 498 is reserved */ /* Slot 498 is reserved */
/* Slot 499 is reserved */ /* Slot 499 is reserved */
/* Slot 500 is reserved */ /* Slot 500 is reserved */
/* Slot 501 is reserved */ /* Slot 501 is reserved */
/* Slot 502 is reserved */ /* Slot 502 is reserved */
/* Slot 503 is reserved */ /* Slot 503 is reserved */
skipping to change at line 1629 skipping to change at line 1608
/* Slot 546 is reserved */ /* Slot 546 is reserved */
/* Slot 547 is reserved */ /* Slot 547 is reserved */
/* Slot 548 is reserved */ /* Slot 548 is reserved */
/* Slot 549 is reserved */ /* Slot 549 is reserved */
/* Slot 550 is reserved */ /* Slot 550 is reserved */
/* Slot 551 is reserved */ /* Slot 551 is reserved */
/* Slot 552 is reserved */ /* Slot 552 is reserved */
/* Slot 553 is reserved */ /* Slot 553 is reserved */
/* 554 */ /* 554 */
EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_ (( EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_ ((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType *chanTypePtr));
/* Slot 555 is reserved */ /* Slot 555 is reserved */
/* Slot 556 is reserved */ /* Slot 556 is reserved */
/* Slot 557 is reserved */ /* Slot 557 is reserved */
/* Slot 558 is reserved */ /* Slot 558 is reserved */
/* Slot 559 is reserved */ /* Slot 559 is reserved */
/* Slot 560 is reserved */ /* Slot 560 is reserved */
/* Slot 561 is reserved */ /* Slot 561 is reserved */
/* Slot 562 is reserved */ /* Slot 562 is reserved */
/* Slot 563 is reserved */ /* Slot 563 is reserved */
/* Slot 564 is reserved */ /* Slot 564 is reserved */
/* Slot 565 is reserved */ /* Slot 565 is reserved */
/* Slot 566 is reserved */ /* Slot 566 is reserved */
/* Slot 567 is reserved */ /* Slot 567 is reserved */
/* Slot 568 is reserved */ /* Slot 568 is reserved */
/* Slot 569 is reserved */ /* Slot 569 is reserved */
/* Slot 570 is reserved */ /* Slot 570 is reserved */
/* Slot 571 is reserved */ /* Slot 571 is reserved */
/* Slot 572 is reserved */ /* Slot 572 is reserved */
/* 573 */ /* 573 */
EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp,
CONST char * name, int objc, CONST char *name, int objc,
Tcl_Obj *CONST objv[], Tcl_Obj *CONST objv[],
ClientData * clientDataPtr)); ClientData *clientDataPtr));
/* Slot 574 is reserved */
/* Slot 575 is reserved */
/* Slot 576 is reserved */
/* Slot 577 is reserved */
/* Slot 578 is reserved */
/* Slot 579 is reserved */
/* Slot 580 is reserved */
/* Slot 581 is reserved */
/* Slot 582 is reserved */
/* Slot 583 is reserved */
/* Slot 584 is reserved */
/* Slot 585 is reserved */
/* Slot 586 is reserved */
/* Slot 587 is reserved */
/* Slot 588 is reserved */
/* Slot 589 is reserved */
/* Slot 590 is reserved */
/* Slot 591 is reserved */
/* Slot 592 is reserved */
/* Slot 593 is reserved */
/* Slot 594 is reserved */
/* Slot 595 is reserved */
/* Slot 596 is reserved */
/* Slot 597 is reserved */
/* Slot 598 is reserved */
/* Slot 599 is reserved */
/* Slot 600 is reserved */
/* Slot 601 is reserved */
/* Slot 602 is reserved */
/* Slot 603 is reserved */
/* Slot 604 is reserved */
/* Slot 605 is reserved */
/* Slot 606 is reserved */
/* Slot 607 is reserved */
/* Slot 608 is reserved */
/* Slot 609 is reserved */
/* Slot 610 is reserved */
/* Slot 611 is reserved */
/* Slot 612 is reserved */
/* Slot 613 is reserved */
/* Slot 614 is reserved */
/* Slot 615 is reserved */
/* Slot 616 is reserved */
/* Slot 617 is reserved */
/* Slot 618 is reserved */
/* Slot 619 is reserved */
/* Slot 620 is reserved */
/* Slot 621 is reserved */
/* Slot 622 is reserved */
/* Slot 623 is reserved */
/* Slot 624 is reserved */
/* Slot 625 is reserved */
/* Slot 626 is reserved */
/* Slot 627 is reserved */
/* Slot 628 is reserved */
/* Slot 629 is reserved */
/* 630 */
EXTERN void TclUnusedStubEntry _ANSI_ARGS_((void));
typedef struct TclStubHooks { typedef struct TclStubHooks {
struct TclPlatStubs *tclPlatStubs; struct TclPlatStubs *tclPlatStubs;
struct TclIntStubs *tclIntStubs; struct TclIntStubs *tclIntStubs;
struct TclIntPlatStubs *tclIntPlatStubs; struct TclIntPlatStubs *tclIntPlatStubs;
} TclStubHooks; } TclStubHooks;
typedef struct TclStubs { typedef struct TclStubs {
int magic; int magic;
struct TclStubHooks *hooks; struct TclStubHooks *hooks;
int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* na int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *na
me, CONST char* version, ClientData clientData)); /* 0 */ me, CONST char *version, ClientData clientData)); /* 0 */
CONST84_RETURN char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * int CONST84_RETURN char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp *inte
erp, CONST char * name, CONST char * version, int exact, ClientData * clien rp, CONST char *name, CONST char *version, int exact, ClientData *clientDat
tDataPtr)); /* 1 */ aPtr)); /* 1 */
void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); /* 2 * void (*tcl_Panic) _ANSI_ARGS_((CONST char *format, ...)); /* 2 */
/
char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */
void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */ void (*tcl_Free) _ANSI_ARGS_((char *ptr)); /* 4 */
char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* char * (*tcl_Realloc) _ANSI_ARGS_((char *ptr, unsigned int size)); /* 5
5 */ */
char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char * fi char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char *fil
le, int line)); /* 6 */ e, int line)); /* 6 */
int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, CONST char * file, int lin void (*tcl_DbCkfree) _ANSI_ARGS_((char *ptr, CONST char *file, int line
e)); /* 7 */ )); /* 7 */
char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, C char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char *ptr, unsigned int size, CO
ONST char * file, int line)); /* 8 */ NST char *file, int line)); /* 8 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr
oc * proc, ClientData clientData)); /* 9 */ oc *proc, ClientData clientData)); /* 9 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #if defined(__WIN32__) /* WIN */
void *reserved9; VOID *reserved9;
#endif /* __WIN32__ */ #endif /* WIN */
#ifdef MAC_TCL #ifdef MAC_OSX_TCL /* MACOSX */
void *reserved9; void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr
#endif /* MAC_TCL */ oc *proc, ClientData clientData)); /* 9 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #if defined(__WIN32__) /* WIN */
void *reserved10; VOID *reserved10;
#endif /* __WIN32__ */ #endif /* WIN */
#ifdef MAC_TCL #ifdef MAC_OSX_TCL /* MACOSX */
void *reserved10; void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */
#endif /* MAC_TCL */ #endif /* MACOSX */
void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 11 */ void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 11 */
void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */
int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 13 */ int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 13 */
int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *
* objPtr)); /* 14 */ objPtr)); /* 14 */
void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr void (*tcl_AppendStringsToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, ...)); /*
)); /* 15 */ 15 */
void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj* objPtr, CONST char* bytes void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *bytes
, int length)); /* 16 */ , int length)); /* 16 */
Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[] )); /* 17 */ Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[] )); /* 17 */
int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP
jPtr, Tcl_ObjType * typePtr)); /* 18 */ tr, Tcl_ObjType *typePtr)); /* 18 */
void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *fi
file, int line)); /* 19 */ le, int line)); /* 19 */
void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *fi
file, int line)); /* 20 */ le, int line)); /* 20 */
int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * file, int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *file, i
int line)); /* 21 */ nt line)); /* 21 */
Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, CONST char Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, CONST char
* file, int line)); /* 22 */ *file, int line)); /* 22 */
Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((CONST unsigned char * b Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((CONST unsigned char *by
ytes, int length, CONST char * file, int line)); /* 23 */ tes, int length, CONST char *file, int line)); /* 23 */
Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, CONST Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, CONST
char * file, int line)); /* 24 */ char *file, int line)); /* 24 */
Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST * o Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST *ob
bjv, CONST char * file, int line)); /* 25 */ jv, CONST char *file, int line)); /* 25 */
Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, CONST char * Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, CONST char *
file, int line)); /* 26 */ file, int line)); /* 26 */
Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((CONST char * file, int line)); / Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((CONST char *file, int line)); /*
* 27 */ 27 */
Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int le Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char *bytes, int len
ngth, CONST char * file, int line)); /* 28 */ gth, CONST char *file, int line)); /* 28 */
Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 29 */ Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 29 */
void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 30 */ void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 30 */
int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * st int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src,
r, int * boolPtr)); /* 31 */ int *boolPtr)); /* 31 */
int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *
* objPtr, int * boolPtr)); /* 32 */ objPtr, int *boolPtr)); /* 32 */
unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPt unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr
r, int * lengthPtr)); /* 33 */ , int *lengthPtr)); /* 33 */
int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src,
, double * doublePtr)); /* 34 */ double *doublePtr)); /* 34 */
int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *o
objPtr, double * doublePtr)); /* 35 */ bjPtr, double *doublePtr)); /* 35 */
int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *ob
objPtr, CONST84 char ** tablePtr, CONST char * msg, int flags, int * indexP jPtr, CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr));
tr)); /* 36 */ /* 36 */
int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, i int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src, int
nt * intPtr)); /* 37 */ *intPtr)); /* 37 */
int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP
jPtr, int * intPtr)); /* 38 */ tr, int *intPtr)); /* 38 */
int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj
bjPtr, long * longPtr)); /* 39 */ Ptr, long *longPtr)); /* 39 */
Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char * typeName)); / Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char *typeName)); /*
* 40 */ 40 */
char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * len char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int *lengt
gthPtr)); /* 41 */ hPtr)); /* 41 */
void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 42 *
*/ /
int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *
* listPtr, Tcl_Obj * elemListPtr)); /* 43 */ listPtr, Tcl_Obj *elemListPtr)); /* 43 */
int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_O int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Ob
bj * listPtr, Tcl_Obj * objPtr)); /* 44 */ j *listPtr, Tcl_Obj *objPtr)); /* 44 */
int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj
* listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 45 */ *listPtr, int *objcPtr, Tcl_Obj ***objvPtr)); /* 45 */
int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * lis int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listP
tPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */ tr, int index, Tcl_Obj **objPtrPtr)); /* 46 */
int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * li int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *list
stPtr, int * lengthPtr)); /* 47 */ Ptr, int *lengthPtr)); /* 47 */
int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * l int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *lis
istPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ tPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */
Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */ Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */
Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((CONST unsigned char* byte s, int length)); /* 50 */ Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((CONST unsigned char *byte s, int length)); /* 50 */
Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */ Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */
Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */ Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */
Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[ ])); /* 53 */ Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[ ])); /* 53 */
Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */ Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */
Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */ Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */
Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int leng Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char *bytes, int lengt
th)); /* 56 */ h)); /* 56 */
void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue) void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int boolValue))
); /* 57 */ ; /* 57 */
unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj *objPtr,
, int length)); /* 58 */ int length)); /* 58 */
void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST unsign void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST unsigne
ed char * bytes, int length)); /* 59 */ d char *bytes, int length)); /* 59 */
void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleVa void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj *objPtr, double doubleVal
lue)); /* 60 */ ue)); /* 60 */
void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int intValue)); /* void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int intValue)); /*
61 */ 61 */
void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int objc, Tcl_Obj void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int objc, Tcl_Obj
*CONST objv[])); /* 62 */ *CONST objv[])); /* 62 */
void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj * objPtr, long longValue)); void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj *objPtr, long longValue));
/* 63 */ /* 63 */
void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); / void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length)); /*
* 64 */ 64 */
void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj* objPtr, CONST char* byte void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *byte
s, int length)); /* 65 */ s, int length)); /* 65 */
void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *m
message)); /* 66 */ essage)); /* 66 */
void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
r * message, int length)); /* 67 */ *message, int length)); /* 67 */
void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 68 * void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp *interp)); /* 68 */
/ void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char element)); /* 69 */
* string)); /* 69 */ void (*tcl_AppendResult) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 70
void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); */
/* 70 */ Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc *proc, C
Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, lientData clientData)); /* 71 */
ClientData clientData)); /* 71 */
void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */ void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */
int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 73 */ int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp *interp, int code)); /* 73 */
void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */ void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */
int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */ int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */
void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 76 * void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp *interp)); /* 76 */
/ char (*tcl_Backslash) _ANSI_ARGS_((CONST char *src, int *readPtr)); /*
char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); / 77 */
* 77 */ int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha *optionName, CONST char *optionList)); /* 78 */
r * optionName, CONST char * optionList)); /* 78 */ void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Interp
void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Inter DeleteProc *proc, ClientData clientData)); /* 79 */
pDeleteProc * proc, ClientData clientData)); /* 79 */ void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc *idleProc, ClientD
void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, Client ata clientData)); /* 80 */
Data clientData)); /* 80 */ int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan)); /
int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); * 81 */
/* 81 */ int (*tcl_CommandComplete) _ANSI_ARGS_((CONST char *cmd)); /* 82 */
int (*tcl_CommandComplete) _ANSI_ARGS_((CONST char * cmd)); /* 82 */ char * (*tcl_Concat) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv))
char * (*tcl_Concat) _ANSI_ARGS_((int argc, CONST84 char * CONST * argv ; /* 83 */
)); /* 83 */ int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char *src, char *dst, int
int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, in flags)); /* 84 */
t flags)); /* 84 */ int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char *src, int leng
int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int len th, char *dst, int flags)); /* 85 */
gth, char * dst, int flags)); /* 85 */ int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp *slave, CONST char *slav
int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, CONST char * sl eCmd, Tcl_Interp *target, CONST char *targetCmd, int argc, CONST84 char *CO
aveCmd, Tcl_Interp * target, CONST char * targetCmd, int argc, CONST84 char NST *argv)); /* 86 */
* CONST * argv)); /* 86 */ int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp *slave, CONST char *s
int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, CONST char * laveCmd, Tcl_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONS
slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int objc, Tcl_Obj * T objv[])); /* 87 */
CONST objv[])); /* 87 */ Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType *typePtr,
Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr CONST char *chanName, ClientData instanceData, int mask)); /* 88 */
, CONST char * chanName, ClientData instanceData, int mask)); /* 88 */ void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mas
void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mas k, Tcl_ChannelProc *proc, ClientData clientData)); /* 89 */
k, Tcl_ChannelProc * proc, ClientData clientData)); /* 89 */ void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close
void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close Proc *proc, ClientData clientData)); /* 90 */
Proc * proc, ClientData clientData)); /* 90 */ Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST
Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONS char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc
T char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteP *deleteProc)); /* 91 */
roc * deleteProc)); /* 91 */ void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc *setupPro
void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr c, Tcl_EventCheckProc *checkProc, ClientData clientData)); /* 92 */
oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */ void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientDa
void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ta clientData)); /* 93 */
ata clientData)); /* 93 */
Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */ Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */
void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, CONST char void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
* name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, Client *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData
Data clientData)); /* 95 */ clientData)); /* 95 */
Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, C Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp *interp, CO
ONST char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdD NST char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDele
eleteProc * deleteProc)); /* 96 */ teProc *deleteProc)); /* 96 */
Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, CONST Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp *interp, CONST
char * slaveName, int isSafe)); /* 97 */ char *slaveName, int isSafe)); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds,
Tcl_TimerProc * proc, ClientData clientData)); /* 98 */ Tcl_TimerProc *proc, ClientData clientData)); /* 98 */
Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int leve Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp *interp, int level
l, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */ , Tcl_CmdTraceProc *proc, ClientData clientData)); /* 99 */
void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
r * name)); /* 100 */ *name)); /* 100 */
void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Cha void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Cha
nnelProc * proc, ClientData clientData)); /* 101 */ nnelProc *proc, ClientData clientData)); /* 101 */
void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close
Proc * proc, ClientData clientData)); /* 102 */ Proc *proc, ClientData clientData)); /* 102 */
int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *c
cmdName)); /* 103 */ mdName)); /* 103 */
int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_
_Command command)); /* 104 */ Command command)); /* 104 */
void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, Clien void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc *proc, Client
tData clientData)); /* 105 */ Data clientData)); /* 105 */
void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc *setupPro
oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */ c, Tcl_EventCheckProc *checkProc, ClientData clientData)); /* 106 */
void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientDa
ata clientData)); /* 107 */ ta clientData)); /* 107 */
void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry *entryPtr)); /*
108 */ 108 */
void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /*
109 */ 109 */
void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */ void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp *interp)); /* 110 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid *pidPtr)); /*
void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */
111 */
#endif /* UNIX */
#ifdef __WIN32__
void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /*
111 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
void *reserved111;
#endif /* MAC_TCL */
void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */ void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */
void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace tra void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Trace trac
ce)); /* 113 */ e)); /* 113 */
void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_I void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_In
nterpDeleteProc * proc, ClientData clientData)); /* 114 */ terpDeleteProc *proc, ClientData clientData)); /* 114 */
int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */ int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */
void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData cli void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc *proc, ClientData clie
entData)); /* 116 */ ntData)); /* 116 */
char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST cha char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString *dsPtr, CONST char
r * str, int length)); /* 117 */ *bytes, int length)); /* 117 */
char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CO char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString *dsPtr, CON
NST char * string)); /* 118 */ ST char *element)); /* 118 */
void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 11 void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 119
9 */ */
void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */ void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 120 */
void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DStr void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DStri
ing * dsPtr)); /* 121 */ ng *dsPtr)); /* 121 */
void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 122 */ void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 122 */
void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString
* dsPtr)); /* 123 */ *dsPtr)); /* 123 */
void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int leng void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString *dsPtr, int lengt
th)); /* 124 */ h)); /* 124 */
void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 1
125 */ 25 */
int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */ int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */
CONST84_RETURN char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */ CONST84_RETURN char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */
CONST84_RETURN char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */ CONST84_RETURN char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */
int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)) int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script));
; /* 129 */ /* 129 */
int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * file int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *fileNa
Name)); /* 130 */ me)); /* 130 */
int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)) int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr));
; /* 131 */ /* 131 */
void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_Free void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_Free
Proc * freeProc)); /* 132 */ Proc *freeProc)); /* 132 */
void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */ void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */
int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *h
hiddenCmdToken, CONST char * cmdName)); /* 134 */ iddenCmdToken, CONST char *cmdName)); /* 134 */
int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *exp
tr, int * ptr)); /* 135 */ r, int *ptr)); /* 135 */
int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj
bjPtr, int * ptr)); /* 136 */ Ptr, int *ptr)); /* 136 */
int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * st int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr
r, double * ptr)); /* 137 */ , double *ptr)); /* 137 */
int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP
jPtr, double * ptr)); /* 138 */ tr, double *ptr)); /* 138 */
int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr,
long * ptr)); /* 139 */ long *ptr)); /* 139 */
int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objP int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr
tr, long * ptr)); /* 140 */ , long *ptr)); /* 140 */
int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tc
Tcl_Obj ** resultPtrPtr)); /* 141 */ l_Obj **resultPtrPtr)); /* 141 */
int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * st int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr
ring)); /* 142 */ )); /* 142 */
void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */ void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */
void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */ void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char *argv0)); /* 144 */
Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tabl Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable *table
ePtr, Tcl_HashSearch * searchPtr)); /* 145 */ Ptr, Tcl_HashSearch *searchPtr)); /* 145 */
int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */ int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */
void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */ void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 147 */
int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * slav int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *slaveC
eCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * ar md, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr
gcPtr, CONST84 char *** argvPtr)); /* 148 */ , CONST84 char ***argvPtr)); /* 148 */
int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *sla
laveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * veCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objc
objcPtr, Tcl_Obj *** objv)); /* 149 */ Ptr, Tcl_Obj ***objv)); /* 149 */
ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST c
char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */ har *name, Tcl_InterpDeleteProc **procPtr)); /* 150 */
Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, CONST c Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp *interp, CONST ch
har * chanName, int * modePtr)); /* 151 */ ar *chanName, int *modePtr)); /* 151 */
int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */ int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */
int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int directio n, ClientData * handlePtr)); /* 153 */ int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int directio n, ClientData *handlePtr)); /* 153 */
ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan) ); /* 154 */ ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan) ); /* 154 */
int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */ int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */
CONST84_RETURN char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel ch an)); /* 156 */ CONST84_RETURN char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel ch an)); /* 156 */
int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann el chan, CONST char * optionName, Tcl_DString * dsPtr)); /* 157 */ int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channe l chan, CONST char *optionName, Tcl_DString *dsPtr)); /* 157 */
Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)) ; /* 158 */ Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)) ; /* 158 */
int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
* cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */ cmdName, Tcl_CmdInfo *infoPtr)); /* 159 */
CONST84_RETURN char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * i CONST84_RETURN char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp *in
nterp, Tcl_Command command)); /* 160 */ terp, Tcl_Command command)); /* 160 */
int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */ int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */ CONST84_RETURN char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */
int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Inter int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp *askInterp, Tcl_Interp
p * slaveInterp)); /* 163 */ *slaveInterp)); /* 163 */
Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp *interp)); /* 164
4 */ */
CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 166
6 */ */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cha
tr, int forWriting, int checkUsage, ClientData * filePtr)); /* 167 */ nID, int forWriting, int checkUsage, ClientData *filePtr)); /* 167 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #if defined(__WIN32__) /* WIN */
void *reserved167; VOID *reserved167;
#endif /* __WIN32__ */ #endif /* WIN */
#ifdef MAC_TCL #ifdef MAC_OSX_TCL /* MACOSX */
void *reserved167; int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cha
#endif /* MAC_TCL */ nID, int forWriting, int checkUsage, ClientData *filePtr)); /* 167 */
Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char * path)); /* 16 #endif /* MACOSX */
8 */ Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char *path)); /* 168
int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); / */
* 169 */ int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString *dsPtr)); /*
int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); / 169 */
* 170 */ int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj *objPtr)); /*
170 */
int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */
Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch ar * slaveName)); /* 172 */ Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha r *slaveName)); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */
CONST84_RETURN char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp * CONST84_RETURN char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp *i
interp)); /* 174 */ nterp)); /* 174 */
CONST84_RETURN char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, C CONST84_RETURN char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp *interp, CO
ONST char * varName, int flags)); /* 175 */ NST char *varName, int flags)); /* 175 */
CONST84_RETURN char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST84_RETURN char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp *interp, C
CONST char * part1, CONST char * part2, int flags)); /* 176 */ ONST char *part1, CONST char *part2, int flags)); /* 176 */
int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * co int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *comm
mmand)); /* 177 */ and)); /* 177 */
int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP
jPtr)); /* 178 */ tr)); /* 178 */
int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * c int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmd
mdName, CONST char * hiddenCmdToken)); /* 179 */ Name, CONST char *hiddenCmdToken)); /* 179 */
int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */ int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp *interp)); /* 180 */
void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int ke void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr, int key
yType)); /* 181 */ Type)); /* 181 */
int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */
int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */
int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 184 */ int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp *interp)); /* 184 */
int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 185 */ int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp *interp)); /* 185 */
char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, CONST84 char * CONST * ar char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv
gv, Tcl_DString * resultPtr)); /* 186 */ , Tcl_DString *resultPtr)); /* 186 */
int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varNa int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName
me, char * addr, int type)); /* 187 */ , char *addr, int type)); /* 187 */
void *reserved188; VOID *reserved188;
Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */
int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */ int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp *interp)); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock et)); /* 191 */ Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock et)); /* 191 */
char * (*tcl_Merge) _ANSI_ARGS_((int argc, CONST84 char * CONST * argv) char * (*tcl_Merge) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv));
); /* 192 */ /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * sear Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch *searc
chPtr)); /* 193 */ hPtr)); /* 193 */
void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */ void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *p
part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */ art1Ptr, Tcl_Obj *part2Ptr, int flags)); /* 195 */
Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *p
part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 * art1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)); /* 196 */
/ Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp *interp,
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ int argc, CONST84 char **argv, int flags)); /* 197 */
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp *interp, CON
int argc, CONST84 char ** argv, int flags)); /* 197 */ ST char *fileName, CONST char *modeString, int permissions)); /* 198 */
#endif /* UNIX */ Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp *interp, int p
#ifdef __WIN32__ ort, CONST char *address, CONST char *myaddr, int myport, int async)); /* 1
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, 99 */
int argc, CONST84 char ** argv, int flags)); /* 197 */ Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp *interp, int p
#endif /* __WIN32__ */ ort, CONST char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackDa
#ifdef MAC_TCL ta)); /* 200 */
void *reserved197;
#endif /* MAC_TCL */
Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, CO
NST char * fileName, CONST char * modeString, int permissions)); /* 198 */
Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int
port, CONST char * address, CONST char * myaddr, int myport, int async)); /
* 199 */
Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int
port, CONST char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbac
kData)); /* 200 */
void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */
void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp *interp, double value,
char * dst)); /* 202 */ char *dst)); /* 202 */
int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */ int (*tcl_PutEnv) _ANSI_ARGS_((CONST char *assignment)); /* 203 */
CONST84_RETURN char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * inter CONST84_RETURN char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp *interp
p)); /* 204 */ )); /* 204 */
void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePositio void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event *evPtr, Tcl_QueuePosition
n position)); /* 205 */ position)); /* 205 */
int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRea int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char *bufPtr, int toRead
d)); /* 206 */ )); /* 206 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */
#endif /* UNIX */
#ifdef __WIN32__
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */
#endif /* __WIN32__ */ int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *c
#ifdef MAC_TCL md, int flags)); /* 208 */
void *reserved207; int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *c
#endif /* MAC_TCL */ mdPtr, int flags)); /* 209 */
int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channe
cmd, int flags)); /* 208 */ l chan)); /* 210 */
int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType *typePtr)); /* 211
cmdPtr, int flags)); /* 209 */ */
void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp *interp, CONST
el chan)); /* 210 */ char *pattern)); /* 212 */
void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 21 int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_RegExp regex
1 */ p, CONST char *text, CONST char *start)); /* 213 */
Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, CONST int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *tex
char * string)); /* 212 */ t, CONST char *pattern)); /* 214 */
int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp rege void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, CONS
xp, CONST char * str, CONST char * start)); /* 213 */ T84 char **startPtr, CONST84 char **endPtr)); /* 215 */
int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s
tr, CONST char * pattern)); /* 214 */
void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, CONS
T84 char ** startPtr, CONST84 char ** endPtr)); /* 215 */
void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */
void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */ void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 217 */
int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * str, int * flagPtr)); int (*tcl_ScanElement) _ANSI_ARGS_((CONST char *src, int *flagPtr)); /*
/* 218 */ 218 */
int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * str, int length int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char *src, int length,
, int * flagPtr)); /* 219 */ int *flagPtr)); /* 219 */
int (*tcl_SeekOld) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode) ); /* 220 */ int (*tcl_SeekOld) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode) ); /* 220 */
int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */
int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */
void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */ void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *n ame, Tcl_InterpDeleteProc *proc, ClientData clientData)); /* 223 */
void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz) ); /* 224 */ void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz) ); /* 224 */
int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channe
el chan, CONST char * optionName, CONST char * newValue)); /* 225 */ l chan, CONST char *optionName, CONST char *newValue)); /* 225 */
int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
* cmdName, CONST Tcl_CmdInfo * infoPtr)); /* 226 */ cmdName, CONST Tcl_CmdInfo *infoPtr)); /* 226 */
void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */
void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); void (*tcl_SetErrorCode) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 228
/* 228 */ */
void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 * void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 229 */
/ void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc *panicProc)); /* 23
void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 2 0 */
30 */ int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp *interp, int depth
int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int dept )); /* 231 */
h)); /* 231 */ void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp *interp, char *result, Tc
void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * str, Tcl l_FreeProc *freeProc)); /* 232 */
_FreeProc * freeProc)); /* 232 */
int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */
void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *e
errorObjPtr)); /* 234 */ rrorObjPtr)); /* 234 */
void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * re void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *resu
sultObjPtr)); /* 235 */ ltObjPtr)); /* 235 */
void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */ void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */
CONST84_RETURN char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, C CONST84_RETURN char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp *interp, CO
ONST char * varName, CONST char * newValue, int flags)); /* 237 */ NST char *varName, CONST char *newValue, int flags)); /* 237 */
CONST84_RETURN char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST84_RETURN char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp *interp, C
CONST char * part1, CONST char * part2, CONST char * newValue, int flags)); ONST char *part1, CONST char *part2, CONST char *newValue, int flags)); /*
/* 238 */ 238 */
CONST84_RETURN char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ CONST84_RETURN char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */
CONST84_RETURN char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 * / CONST84_RETURN char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 * /
void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 241 */ void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp *interp)); /* 241 */
int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * lis int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *listS
tStr, int * argcPtr, CONST84 char *** argvPtr)); /* 242 */ tr, int *argcPtr, CONST84 char ***argvPtr)); /* 242 */
void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, CO void (*tcl_SplitPath) _ANSI_ARGS_((CONST char *path, int *argcPtr, CONS
NST84 char *** argvPtr)); /* 243 */ T84 char ***argvPtr)); /* 243 */
void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, CONST char void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
* pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitPr pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc))
oc)); /* 244 */ ; /* 244 */
int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * str, CONST char * patt int (*tcl_StringMatch) _ANSI_ARGS_((CONST char *str, CONST char *patter
ern)); /* 245 */ n)); /* 245 */
int (*tcl_TellOld) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ int (*tcl_TellOld) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */
int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varN int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varNam
ame, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 247 */ e, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 247 */
int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * par int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1
t1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clie , CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientDa
ntData)); /* 248 */ ta)); /* 248 */
char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp *interp, CONST
char * name, Tcl_DString * bufferPtr)); /* 249 */ char *name, Tcl_DString *bufferPtr)); /* 249 */
int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, CONST char * str, int int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, CONST char *str, int l
len, int atHead)); /* 250 */ en, int atHead)); /* 250 */
void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * va void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varN
rName)); /* 251 */ ame)); /* 251 */
int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chan int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Chann
nel chan)); /* 252 */ el chan)); /* 252 */
int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varN int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varNam
ame, int flags)); /* 253 */ e, int flags)); /* 253 */
int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * par int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1
t1, CONST char * part2, int flags)); /* 254 */ , CONST char *part2, int flags)); /* 254 */
void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * v void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *var
arName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255 Name, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 255 */
*/ void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pa
void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * rt1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clien
part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData c tData)); /* 256 */
lientData)); /* 256 */ void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha *varName)); /* 257 */
r * varName)); /* 257 */ int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *frameName
int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * frameNa , CONST char *varName, CONST char *localName, int flags)); /* 258 */
me, CONST char * varName, CONST char * localName, int flags)); /* 258 */ int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *frameNam
int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * frameN e, CONST char *part1, CONST char *part2, CONST char *localName, int flags))
ame, CONST char * part1, CONST char * part2, CONST char * localName, int fl ; /* 259 */
ags)); /* 259 */ int (*tcl_VarEval) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 260 */
int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 26 ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST c
0 */ har *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientDa
ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST ta)); /* 261 */
char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClien ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp *interp, CONST
tData)); /* 261 */ char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, Clien
ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, CONST tData prevClientData)); /* 262 */
char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * procPtr, C int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, CONST char *s, int slen
lientData prevClientData)); /* 262 */ )); /* 263 */
int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, CONST char * s, int sle void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl
n)); /* 263 */ _Obj *CONST objv[], CONST char *message)); /* 264 */
void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tc int (*tcl_DumpActiveMemory) _ANSI_ARGS_((CONST char *fileName)); /* 265
l_Obj *CONST objv[], CONST char * message)); /* 264 */ */
int (*tcl_DumpActiveMemory) _ANSI_ARGS_((CONST char * fileName)); /* 26 void (*tcl_ValidateAllMemory) _ANSI_ARGS_((CONST char *file, int line))
5 */ ; /* 266 */
void (*tcl_ValidateAllMemory) _ANSI_ARGS_((CONST char * file, int line) void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list arg
); /* 266 */ List)); /* 267 */
void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj *objPtr, va_list
gList)); /* 267 */ argList)); /* 268 */
void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /* 269
argList)); /* 268 */ */
CONST84_RETURN char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tab CONST84_RETURN char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp *interp,
lePtr)); /* 269 */ CONST char *start, CONST84 char **termPtr)); /* 270 */
CONST84_RETURN char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST84_RETURN char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp *interp
CONST char * str, CONST84 char ** termPtr)); /* 270 */ , CONST char *name, CONST char *version, int exact)); /* 271 */
CONST84_RETURN char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * inter CONST84_RETURN char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp *inte
p, CONST char * name, CONST char * version, int exact)); /* 271 */ rp, CONST char *name, CONST char *version, int exact, ClientData *clientDat
CONST84_RETURN char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * int aPtr)); /* 272 */
erp, CONST char * name, CONST char * version, int exact, ClientData * clien int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name
tDataPtr)); /* 272 */ , CONST char *version)); /* 273 */
int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * na CONST84_RETURN char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp *interp
me, CONST char * version)); /* 273 */ , CONST char *name, CONST char *version, int exact)); /* 274 */
CONST84_RETURN char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * inter void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list arg
p, CONST char * name, CONST char * version, int exact)); /* 274 */ List)); /* 275 */
void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list argList))
gList)); /* 275 */ ; /* 276 */
int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList) Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int *statPtr, int opti
); /* 276 */ ons)); /* 277 */
Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int opt void (*tcl_PanicVA) _ANSI_ARGS_((CONST char *format, va_list argList));
ions)); /* 277 */ /* 278 */
void (*tcl_PanicVA) _ANSI_ARGS_((CONST char * format, va_list argList)) void (*tcl_GetVersion) _ANSI_ARGS_((int *major, int *minor, int *patchL
; /* 278 */ evel, int *type)); /* 279 */
void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * pat void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp *interp)); /* 280 */
chLevel, int * type)); /* 279 */ Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Ch
void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */ annelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan
Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_C )); /* 281 */
hannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevCh int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel
an)); /* 281 */ chan)); /* 282 */
int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel
chan)); /* 282 */
Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / * 283 */ Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / * 283 */
void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc * proc)); /* 284 void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc *proc)); /* 284 *
*/ /
void *reserved285; VOID *reserved285;
void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * app void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, Tcl_Obj *appen
endObjPtr)); /* 286 */ dObjPtr)); /* 286 */
Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * type Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType *typeP
Ptr)); /* 287 */ tr)); /* 287 */
void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, Cl
lientData clientData)); /* 288 */ ientData clientData)); /* 288 */
void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, Cl
lientData clientData)); /* 289 */ ientData clientData)); /* 289 */
void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult *statePtr)); /*
290 */ 290 */
int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * script int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script,
, int numBytes, int flags)); /* 291 */ int numBytes, int flags)); /* 291 */
int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj
*CONST objv[], int flags)); /* 292 */ *CONST objv[], int flags)); /* 292 */
int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr,
, int flags)); /* 293 */ int flags)); /* 293 */
void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */
int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Encoding
encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * sta encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *stateP
tePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * d tr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstChars
stCharsPtr)); /* 295 */ Ptr)); /* 295 */
char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding,
CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 296 */ CONST char *src, int srcLen, Tcl_DString *dsPtr)); /* 296 */
void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */ void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */
void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 2 98 */ void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 2 98 */
void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 * / void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 * /
Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */ Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */
Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 301 */ Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name)); /* 301 */
CONST84_RETURN char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */ CONST84_RETURN char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */
void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 303 void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp *interp)); /* 303
*/ */
int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_ int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_O
Obj * objPtr, CONST VOID * tablePtr, int offset, CONST char * msg, int flag bj *objPtr, CONST VOID *tablePtr, int offset, CONST char *msg, int flags, i
s, int * indexPtr)); /* 304 */ nt *indexPtr)); /* 304 */
VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, in VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr, int
t size)); /* 305 */ size)); /* 305 */
Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, CONST char Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
* part1, CONST char * part2, int flags)); /* 306 */ *part1, CONST char *part2, int flags)); /* 306 */
ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */ ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */
void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 308 */ void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); /* 308 */
void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 309 */ void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); /* 309 */
void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition *condPtr)); /* 3
310 */ 10 */
void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mut void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition *condPtr, Tcl_Mute
ex * mutexPtr, Tcl_Time * timePtr)); /* 311 */ x *mutexPtr, Tcl_Time *timePtr)); /* 311 */
int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 312 int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char *src, int length)); /* 3
*/ 12 */
int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj *objPtr,
, int charsToRead, int appendFlag)); /* 313 */ int charsToRead, int appendFlag)); /* 313 */
void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedRe void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_SavedRes
sult * statePtr)); /* 314 */ ult *statePtr)); /* 314 */
void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResul void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_SavedResult
t * statePtr)); /* 315 */ *statePtr)); /* 315 */
int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha
ar * name)); /* 316 */ r *name)); /* 316 */
Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, CONST char Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
* part1, CONST char * part2, Tcl_Obj * newValuePtr, int flags)); /* 317 */ *part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags)); /* 317 */
void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */ void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */
void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Ev void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Ev
ent* evPtr, Tcl_QueuePosition position)); /* 319 */ ent *evPtr, Tcl_QueuePosition position)); /* 319 */
Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int in Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char *src, int ind
dex)); /* 320 */ ex)); /* 320 */
Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */ Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */
Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */ Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */
Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */ Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */
int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 324 */ int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char *buf)); /* 324 */
CONST84_RETURN char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, CONST84_RETURN char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char *src, i
int index)); /* 325 */ nt index)); /* 325 */
int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char *src, int length));
326 */ /* 326 */
int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, c int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char *src, int *readPtr, cha
har * dst)); /* 327 */ r *dst)); /* 327 */
CONST84_RETURN char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src CONST84_RETURN char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char *src,
, int ch)); /* 328 */ int ch)); /* 328 */
CONST84_RETURN char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src, CONST84_RETURN char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char *src,
int ch)); /* 329 */ int ch)); /* 329 */
CONST84_RETURN char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); / CONST84_RETURN char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char *src)); /*
* 330 */ 330 */
CONST84_RETURN char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CON CONST84_RETURN char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char *src, CONS
ST char * start)); /* 331 */ T char *start)); /* 331 */
int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Encoding
encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * sta encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *stateP
tePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * d tr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstChars
stCharsPtr)); /* 332 */ Ptr)); /* 332 */
char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding,
CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 333 */ CONST char *src, int srcLen, Tcl_DString *dsPtr)); /* 333 */
int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 334 */ int (*tcl_UtfToLower) _ANSI_ARGS_((char *src)); /* 334 */
int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 335 */ int (*tcl_UtfToTitle) _ANSI_ARGS_((char *src)); /* 335 */
int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * ch int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char *src, Tcl_UniChar *chPt
Ptr)); /* 336 */ r)); /* 336 */
int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 337 */ int (*tcl_UtfToUpper) _ANSI_ARGS_((char *src)); /* 337 */
int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char *src, i
int srcLen)); /* 338 */ nt srcLen)); /* 338 */
int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj *objPtr)); /
/* 339 */ * 339 */
char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 340 */ char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 340 */
CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); /* 341 */ CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); /* 341 */
void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((CONST char * path)); /* 342 */ void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((CONST char *path)); /* 3 42 */
void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */ void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */
void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */
int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */
int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */
int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */
int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */
int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */
int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */
int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */
int (*tcl_UniCharLen) _ANSI_ARGS_((CONST Tcl_UniChar * str)); /* 352 */ int (*tcl_UniCharLen) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr)); /* 352
int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_U */
niChar * ct, unsigned long n)); /* 353 */ int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar *ucs, CONST Tcl_U
char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri niChar *uct, unsigned long numChars)); /* 353 */
ng, int numChars, Tcl_DString * dsPtr)); /* 354 */ char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar *uniSt
Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri r, int uniLength, Tcl_DString *dsPtr)); /* 354 */
ng, int length, Tcl_DString * dsPtr)); /* 355 */ Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char *src,
Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc int length, Tcl_DString *dsPtr)); /* 355 */
l_Obj * patObj, int flags)); /* 356 */ Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl
Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token _Obj *patObj, int flags)); /* 356 */
* tokenPtr, int count)); /* 357 */ Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Token
void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */ *tokenPtr, int count)); /* 357 */
void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse *parsePtr)); /* 358 */
* script, CONST char * command, int length)); /* 359 */ void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s *script, CONST char *command, int length)); /* 359 */
tring, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** term int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *sta
Ptr)); /* 360 */ rt, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr))
int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * ; /* 360 */
string, int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */ int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *st
int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str art, int numBytes, int nested, Tcl_Parse *parsePtr)); /* 361 */
ing, int numBytes, Tcl_Parse * parsePtr)); /* 362 */ int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start
int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch , int numBytes, Tcl_Parse *parsePtr)); /* 362 */
ar * string, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char * int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha
* termPtr)); /* 363 */ r *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **ter
int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * mPtr)); /* 363 */
string, int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */ int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *st
char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw art, int numBytes, Tcl_Parse *parsePtr, int append)); /* 364 */
dPtr)); /* 365 */ char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString *cwdP
int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */ tr)); /* 365 */
int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */ int (*tcl_Chdir) _ANSI_ARGS_((CONST char *dirName)); /* 366 */
int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); int (*tcl_Access) _ANSI_ARGS_((CONST char *path, int mode)); /* 367 */
/* 368 */ int (*tcl_Stat) _ANSI_ARGS_((CONST char *path, struct stat *bufPtr)); /
int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsig * 368 */
ned long n)); /* 369 */ int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char *s1, CONST char *s2, unsigne
int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, u d long n)); /* 369 */
nsigned long n)); /* 370 */ int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char *s1, CONST char *s2, uns
int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char * igned long n)); /* 370 */
pattern, int nocase)); /* 371 */ int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char *str, CONST char *pa
ttern, int nocase)); /* 371 */
int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */ int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */
int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */ int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */
int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */ int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */
int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */ int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */
int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp r int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_RegExp re
egexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags)); /* 376 */ gexp, Tcl_Obj *textObj, int offset, int nmatches, int flags)); /* 376 */
void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInf void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInf
o * infoPtr)); /* 377 */ o *infoPtr)); /* 377 */
Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((CONST Tcl_UniChar * unicode Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((CONST Tcl_UniChar *unicode,
, int numChars)); /* 378 */ int numChars)); /* 378 */
void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST Tcl_UniC void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST Tcl_UniCh
har * unicode, int numChars)); /* 379 */ ar *unicode, int numChars)); /* 379 */
int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 380 */ int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 380 */
Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj * objPtr, int index) Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj *objPtr, int index))
); /* 381 */ ; /* 381 */
Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 382 Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 382
*/ */
Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj * objPtr, int first, int Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj *objPtr, int first, int
last)); /* 383 */ last)); /* 383 */
void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST Tcl void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST Tcl_
_UniChar * unicode, int length)); /* 384 */ UniChar *unicode, int length)); /* 384 */
int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * s int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *tex
tringObj, Tcl_Obj * patternObj)); /* 385 */ tObj, Tcl_Obj *patternObj)); /* 385 */
void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPt void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs *notifierProcPtr
r)); /* 386 */ )); /* 386 */
Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */ Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */
int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 388 * int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp *interp)); /* 388 */
/ int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha
int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch r *pattern)); /* 389 */
ar * pattern)); /* 389 */ int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *i
int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * nterp, int objc, Tcl_Obj *CONST objv[])); /* 390 */
interp, int objc, Tcl_Obj *CONST objv[])); /* 390 */ void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition *condPtr)); /*
void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition * condPtr)); / 391 */
* 391 */ void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex *mutex)); /* 392 */
void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex * mutex)); /* 392 */ int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId *idPtr, Tcl_ThreadCre
int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId * idPtr, Tcl_ThreadCr ateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */
eateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */ int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char *dst, int bytesT
int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char * dst, int bytes oRead)); /* 394 */
ToRead)); /* 394 */ int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, CONST char *src, int
int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, in srcLen)); /* 395 */
t srcLen)); /* 395 */
Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 39 6 */ Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 39 6 */
int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */ int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */
CONST84_RETURN char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType * CONST84_RETURN char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType *
chanTypePtr)); /* 398 */ chanTypePtr)); /* 398 */
Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelTy Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelTy
pe * chanTypePtr)); /* 399 */ pe *chanTypePtr)); /* 399 */
Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_ Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_
ChannelType * chanTypePtr)); /* 400 */ ChannelType *chanTypePtr)); /* 400 */
Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelT Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelT
ype * chanTypePtr)); /* 401 */ ype *chanTypePtr)); /* 401 */
Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe
lType * chanTypePtr)); /* 402 */ lType *chanTypePtr)); /* 402 */
Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT
ype * chanTypePtr)); /* 403 */ ype *chanTypePtr)); /* 403 */
Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe
lType * chanTypePtr)); /* 404 */ lType *chanTypePtr)); /* 404 */
Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp
e * chanTypePtr)); /* 405 */ e *chanTypePtr)); /* 405 */
Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_
ChannelType * chanTypePtr)); /* 406 */ ChannelType *chanTypePtr)); /* 406 */
Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_
ChannelType * chanTypePtr)); /* 407 */ ChannelType *chanTypePtr)); /* 407 */
Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT
ype * chanTypePtr)); /* 408 */ ype *chanTypePtr)); /* 408 */
Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_
ChannelType * chanTypePtr)); /* 409 */ ChannelType *chanTypePtr)); /* 409 */
Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT
ype * chanTypePtr)); /* 410 */ ype *chanTypePtr)); /* 410 */
Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan
nelType * chanTypePtr)); /* 411 */ nelType *chanTypePtr)); /* 411 */
int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId threadId, int* result)) int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId threadId, int *result))
; /* 412 */ ; /* 412 */
int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 * / int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 * /
int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Cha nnel channel)); /* 414 */ int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Cha nnel channel)); /* 414 */
void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */ void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */
void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */ void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */
void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* 417 */ void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* 417 */
int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char* channelName)); /* int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char *channelName)); /*
418 */ 418 */
int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST T int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar *ucs, CONST T
cl_UniChar * ct, unsigned long n)); /* 419 */ cl_UniChar *uct, unsigned long numChars)); /* 419 */
int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar * ustr, CONS int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr, CON
T Tcl_UniChar * pattern, int nocase)); /* 420 */ ST Tcl_UniChar *uniPattern, int nocase)); /* 420 */
Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable * table Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable *tableP
Ptr, CONST char * key)); /* 421 */ tr, CONST char *key)); /* 421 */
Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable * tab Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable *tabl
lePtr, CONST char * key, int * newPtr)); /* 422 */ ePtr, CONST char *key, int *newPtr)); /* 422 */
void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr, i
int keyType, Tcl_HashKeyType * typePtr)); /* 423 */ nt keyType, Tcl_HashKeyType *typePtr)); /* 423 */
void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); / void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /*
* 424 */ 424 */
ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CO ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp *interp, CON
NST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData p ST char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prev
revClientData)); /* 425 */ ClientData)); /* 425 */
int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *va
varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); / rName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData)); /* 4
* 426 */ 26 */
void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
* varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)) *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData)); /
; /* 427 */ * 427 */
char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */ char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */
char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST ch char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST ch
ar * file, int line)); /* 429 */ ar *file, int line)); /* 429 */
char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char * ptr, unsigned int size char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char *ptr, unsigned int size)
)); /* 430 */ ); /* 430 */
char * (*tcl_AttemptDbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int char * (*tcl_AttemptDbCkrealloc) _ANSI_ARGS_((char *ptr, unsigned int s
size, CONST char * file, int line)); /* 431 */ ize, CONST char *file, int line)); /* 431 */
int (*tcl_AttemptSetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int lengt int (*tcl_AttemptSetObjLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length
h)); /* 432 */ )); /* 432 */
Tcl_ThreadId (*tcl_GetChannelThread) _ANSI_ARGS_((Tcl_Channel channel)) ; /* 433 */ Tcl_ThreadId (*tcl_GetChannelThread) _ANSI_ARGS_((Tcl_Channel channel)) ; /* 433 */
Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, i Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, in
nt * lengthPtr)); /* 434 */ t *lengthPtr)); /* 434 */
int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
* name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** pr *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr
ocPtr, ClientData * clientDataPtr)); /* 435 */ , ClientData *clientDataPtr)); /* 435 */
Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp * interp, CONST Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp *interp, CONST c
char * pattern)); /* 436 */ har *pattern)); /* 436 */
Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj
bjPtr, int flags)); /* 437 */ Ptr, int flags)); /* 437 */
int (*tcl_DetachChannel) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Channel c int (*tcl_DetachChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel c
hannel)); /* 438 */ hannel)); /* 438 */
int (*tcl_IsStandardChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 439 */ int (*tcl_IsStandardChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 439 */
int (*tcl_FSCopyFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * dest int (*tcl_FSCopyFile) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *destPa
PathPtr)); /* 440 */ thPtr)); /* 440 */
int (*tcl_FSCopyDirectory) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * int (*tcl_FSCopyDirectory) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *d
destPathPtr, Tcl_Obj ** errorPtr)); /* 441 */ estPathPtr, Tcl_Obj **errorPtr)); /* 441 */
int (*tcl_FSCreateDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 442 * int (*tcl_FSCreateDirectory) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 442 */
/ int (*tcl_FSDeleteFile) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 443 */
int (*tcl_FSDeleteFile) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 443 */ int (*tcl_FSLoadFile) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr
int (*tcl_FSLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathP , CONST char *sym1, CONST char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_P
tr, CONST char * sym1, CONST char * sym2, Tcl_PackageInitProc ** proc1Ptr, ackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc
Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFi **unloadProcPtr)); /* 444 */
leProc ** unloadProcPtr)); /* 444 */ int (*tcl_FSMatchInDirectory) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj
int (*tcl_FSMatchInDirectory) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types));
* result, Tcl_Obj * pathPtr, CONST char * pattern, Tcl_GlobTypeData * type /* 445 */
s)); /* 445 */ Tcl_Obj * (*tcl_FSLink) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
Tcl_Obj * (*tcl_FSLink) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_Obj * toPtr int linkAction)); /* 446 */
, int linkAction)); /* 446 */ int (*tcl_FSRemoveDirectory) _ANSI_ARGS_((Tcl_Obj *pathPtr, int recursi
int (*tcl_FSRemoveDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr, int recurs ve, Tcl_Obj **errorPtr)); /* 447 */
ive, Tcl_Obj ** errorPtr)); /* 447 */ int (*tcl_FSRenameFile) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *dest
int (*tcl_FSRenameFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * de PathPtr)); /* 448 */
stPathPtr)); /* 448 */ int (*tcl_FSLstat) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); /
int (*tcl_FSLstat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf)); * 449 */
/* 449 */ int (*tcl_FSUtime) _ANSI_ARGS_((Tcl_Obj *pathPtr, struct utimbuf *tval)
int (*tcl_FSUtime) _ANSI_ARGS_((Tcl_Obj * pathPtr, struct utimbuf * tva ); /* 450 */
l)); /* 450 */ int (*tcl_FSFileAttrsGet) _ANSI_ARGS_((Tcl_Interp *interp, int index, T
int (*tcl_FSFileAttrsGet) _ANSI_ARGS_((Tcl_Interp * interp, int index, cl_Obj *pathPtr, Tcl_Obj **objPtrRef)); /* 451 */
Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef)); /* 451 */ int (*tcl_FSFileAttrsSet) _ANSI_ARGS_((Tcl_Interp *interp, int index, T
int (*tcl_FSFileAttrsSet) _ANSI_ARGS_((Tcl_Interp * interp, int index, cl_Obj *pathPtr, Tcl_Obj *objPtr)); /* 452 */
Tcl_Obj * pathPtr, Tcl_Obj * objPtr)); /* 452 */ CONST char ** (*tcl_FSFileAttrStrings) _ANSI_ARGS_((Tcl_Obj *pathPtr, T
CONST char ** (*tcl_FSFileAttrStrings) _ANSI_ARGS_((Tcl_Obj * pathPtr, cl_Obj **objPtrRef)); /* 453 */
Tcl_Obj ** objPtrRef)); /* 453 */ int (*tcl_FSStat) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); /*
int (*tcl_FSStat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf)); 454 */
/* 454 */ int (*tcl_FSAccess) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); /* 455 *
int (*tcl_FSAccess) _ANSI_ARGS_((Tcl_Obj * pathPtr, int mode)); /* 455 /
*/ Tcl_Channel (*tcl_FSOpenFileChannel) _ANSI_ARGS_((Tcl_Interp *interp, T
Tcl_Channel (*tcl_FSOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, cl_Obj *pathPtr, CONST char *modeString, int permissions)); /* 456 */
Tcl_Obj * pathPtr, CONST char * modeString, int permissions)); /* 456 */ Tcl_Obj * (*tcl_FSGetCwd) _ANSI_ARGS_((Tcl_Interp *interp)); /* 457 */
Tcl_Obj* (*tcl_FSGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 457 */ int (*tcl_FSChdir) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 458 */
int (*tcl_FSChdir) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 458 */ int (*tcl_FSConvertToPathType) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj
int (*tcl_FSConvertToPathType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Ob *pathPtr)); /* 459 */
j * pathPtr)); /* 459 */ Tcl_Obj * (*tcl_FSJoinPath) _ANSI_ARGS_((Tcl_Obj *listObj, int elements
Tcl_Obj* (*tcl_FSJoinPath) _ANSI_ARGS_((Tcl_Obj * listObj, int elements )); /* 460 */
)); /* 460 */ Tcl_Obj * (*tcl_FSSplitPath) _ANSI_ARGS_((Tcl_Obj *pathPtr, int *lenPtr
Tcl_Obj* (*tcl_FSSplitPath) _ANSI_ARGS_((Tcl_Obj* pathPtr, int * lenPtr )); /* 461 */
)); /* 461 */ int (*tcl_FSEqualPaths) _ANSI_ARGS_((Tcl_Obj *firstPtr, Tcl_Obj *second
int (*tcl_FSEqualPaths) _ANSI_ARGS_((Tcl_Obj* firstPtr, Tcl_Obj* second Ptr)); /* 462 */
Ptr)); /* 462 */ Tcl_Obj * (*tcl_FSGetNormalizedPath) _ANSI_ARGS_((Tcl_Interp *interp, T
Tcl_Obj* (*tcl_FSGetNormalizedPath) _ANSI_ARGS_((Tcl_Interp * interp, T cl_Obj *pathPtr)); /* 463 */
cl_Obj* pathObjPtr)); /* 463 */ Tcl_Obj * (*tcl_FSJoinToPath) _ANSI_ARGS_((Tcl_Obj *pathPtr, int objc,
Tcl_Obj* (*tcl_FSJoinToPath) _ANSI_ARGS_((Tcl_Obj * basePtr, int objc, Tcl_Obj *CONST objv[])); /* 464 */
Tcl_Obj *CONST objv[])); /* 464 */ ClientData (*tcl_FSGetInternalRep) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_F
ClientData (*tcl_FSGetInternalRep) _ANSI_ARGS_((Tcl_Obj* pathObjPtr, Tc ilesystem *fsPtr)); /* 465 */
l_Filesystem * fsPtr)); /* 465 */ Tcl_Obj * (*tcl_FSGetTranslatedPath) _ANSI_ARGS_((Tcl_Interp *interp, T
Tcl_Obj* (*tcl_FSGetTranslatedPath) _ANSI_ARGS_((Tcl_Interp * interp, T cl_Obj *pathPtr)); /* 466 */
cl_Obj* pathPtr)); /* 466 */ int (*tcl_FSEvalFile) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *fileNam
int (*tcl_FSEvalFile) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * fileN e)); /* 467 */
ame)); /* 467 */ Tcl_Obj * (*tcl_FSNewNativePath) _ANSI_ARGS_((Tcl_Filesystem *fromFiles
Tcl_Obj* (*tcl_FSNewNativePath) _ANSI_ARGS_((Tcl_Filesystem* fromFilesy ystem, ClientData clientData)); /* 468 */
stem, ClientData clientData)); /* 468 */ CONST char * (*tcl_FSGetNativePath) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /*
CONST char* (*tcl_FSGetNativePath) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); 469 */
/* 469 */ Tcl_Obj * (*tcl_FSFileSystemInfo) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 4
Tcl_Obj* (*tcl_FSFileSystemInfo) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* 70 */
470 */ Tcl_Obj * (*tcl_FSPathSeparator) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 47
Tcl_Obj* (*tcl_FSPathSeparator) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* 1 */
471 */ Tcl_Obj * (*tcl_FSListVolumes) _ANSI_ARGS_((void)); /* 472 */
Tcl_Obj* (*tcl_FSListVolumes) _ANSI_ARGS_((void)); /* 472 */ int (*tcl_FSRegister) _ANSI_ARGS_((ClientData clientData, Tcl_Filesyste
int (*tcl_FSRegister) _ANSI_ARGS_((ClientData clientData, Tcl_Filesyste m *fsPtr)); /* 473 */
m * fsPtr)); /* 473 */ int (*tcl_FSUnregister) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 474 */
int (*tcl_FSUnregister) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 474 * ClientData (*tcl_FSData) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 475 *
/ /
ClientData (*tcl_FSData) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 475 CONST char * (*tcl_FSGetTranslatedStringPath) _ANSI_ARGS_((Tcl_Interp *
*/ interp, Tcl_Obj *pathPtr)); /* 476 */
CONST char* (*tcl_FSGetTranslatedStringPath) _ANSI_ARGS_((Tcl_Interp * Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) _ANSI_ARGS_((Tcl_Obj *pa
interp, Tcl_Obj* pathPtr)); /* 476 */ thPtr)); /* 477 */
Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) _ANSI_ARGS_((Tcl_Obj* pat Tcl_PathType (*tcl_FSGetPathType) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 4
hObjPtr)); /* 477 */ 78 */
Tcl_PathType (*tcl_FSGetPathType) _ANSI_ARGS_((Tcl_Obj * pathObjPtr));
/* 478 */
int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */ int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */
void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 4 void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 48
80 */ 0 */
int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Tok int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Toke
en * tokenPtr, int count)); /* 481 */ n *tokenPtr, int count)); /* 481 */
void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time* timeBuf)); /* 482 */ void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time *timeBuf)); /* 482 */
Tcl_Trace (*tcl_CreateObjTrace) _ANSI_ARGS_((Tcl_Interp* interp, int le Tcl_Trace (*tcl_CreateObjTrace) _ANSI_ARGS_((Tcl_Interp *interp, int le
vel, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_Cm vel, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_Cm
dObjTraceDeleteProc* delProc)); /* 483 */ dObjTraceDeleteProc *delProc)); /* 483 */
int (*tcl_GetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, Tcl_ int (*tcl_GetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, Tcl_
CmdInfo* infoPtr)); /* 484 */ CmdInfo *infoPtr)); /* 484 */
int (*tcl_SetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, CONS int (*tcl_SetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, CONS
T Tcl_CmdInfo* infoPtr)); /* 485 */ T Tcl_CmdInfo *infoPtr)); /* 485 */
Tcl_Obj * (*tcl_DbNewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue, CO Tcl_Obj * (*tcl_DbNewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue, CO
NST char * file, int line)); /* 486 */ NST char *file, int line)); /* 486 */
int (*tcl_GetWideIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj int (*tcl_GetWideIntFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *
* objPtr, Tcl_WideInt * widePtr)); /* 487 */ objPtr, Tcl_WideInt *widePtr)); /* 487 */
Tcl_Obj * (*tcl_NewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue)); /* 488 */ Tcl_Obj * (*tcl_NewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue)); /* 488 */
void (*tcl_SetWideIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_WideInt wi deValue)); /* 489 */ void (*tcl_SetWideIntObj) _ANSI_ARGS_((Tcl_Obj *objPtr, Tcl_WideInt wid eValue)); /* 489 */
Tcl_StatBuf * (*tcl_AllocStatBuf) _ANSI_ARGS_((void)); /* 490 */ Tcl_StatBuf * (*tcl_AllocStatBuf) _ANSI_ARGS_((void)); /* 490 */
Tcl_WideInt (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, Tcl_WideInt offs et, int mode)); /* 491 */ Tcl_WideInt (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, Tcl_WideInt offs et, int mode)); /* 491 */
Tcl_WideInt (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 492 */ Tcl_WideInt (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 492 */
Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) _ANSI_ARGS_((Tcl_Ch Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) _ANSI_ARGS_((Tcl_Ch
annelType * chanTypePtr)); /* 493 */ annelType *chanTypePtr)); /* 493 */
void *reserved494; VOID *reserved494;
void *reserved495; VOID *reserved495;
void *reserved496; VOID *reserved496;
void *reserved497; VOID *reserved497;
void *reserved498; VOID *reserved498;
void *reserved499; VOID *reserved499;
void *reserved500; VOID *reserved500;
void *reserved501; VOID *reserved501;
void *reserved502; VOID *reserved502;
void *reserved503; VOID *reserved503;
void *reserved504; VOID *reserved504;
void *reserved505; VOID *reserved505;
void *reserved506; VOID *reserved506;
void *reserved507; VOID *reserved507;
void *reserved508; VOID *reserved508;
void *reserved509; VOID *reserved509;
void *reserved510; VOID *reserved510;
void *reserved511; VOID *reserved511;
void *reserved512; VOID *reserved512;
void *reserved513; VOID *reserved513;
void *reserved514; VOID *reserved514;
void *reserved515; VOID *reserved515;
void *reserved516; VOID *reserved516;
void *reserved517; VOID *reserved517;
void *reserved518; VOID *reserved518;
void *reserved519; VOID *reserved519;
void *reserved520; VOID *reserved520;
void *reserved521; VOID *reserved521;
void *reserved522; VOID *reserved522;
void *reserved523; VOID *reserved523;
void *reserved524; VOID *reserved524;
void *reserved525; VOID *reserved525;
void *reserved526; VOID *reserved526;
void *reserved527; VOID *reserved527;
void *reserved528; VOID *reserved528;
void *reserved529; VOID *reserved529;
void *reserved530; VOID *reserved530;
void *reserved531; VOID *reserved531;
void *reserved532; VOID *reserved532;
void *reserved533; VOID *reserved533;
void *reserved534; VOID *reserved534;
void *reserved535; VOID *reserved535;
void *reserved536; VOID *reserved536;
void *reserved537; VOID *reserved537;
void *reserved538; VOID *reserved538;
void *reserved539; VOID *reserved539;
void *reserved540; VOID *reserved540;
void *reserved541; VOID *reserved541;
void *reserved542; VOID *reserved542;
void *reserved543; VOID *reserved543;
void *reserved544; VOID *reserved544;
void *reserved545; VOID *reserved545;
void *reserved546; VOID *reserved546;
void *reserved547; VOID *reserved547;
void *reserved548; VOID *reserved548;
void *reserved549; VOID *reserved549;
void *reserved550; VOID *reserved550;
void *reserved551; VOID *reserved551;
void *reserved552; VOID *reserved552;
void *reserved553; VOID *reserved553;
Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_ Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_
((Tcl_ChannelType * chanTypePtr)); /* 554 */ ((Tcl_ChannelType *chanTypePtr)); /* 554 */
void *reserved555; VOID *reserved555;
void *reserved556; VOID *reserved556;
void *reserved557; VOID *reserved557;
void *reserved558; VOID *reserved558;
void *reserved559; VOID *reserved559;
void *reserved560; VOID *reserved560;
void *reserved561; VOID *reserved561;
void *reserved562; VOID *reserved562;
void *reserved563; VOID *reserved563;
void *reserved564; VOID *reserved564;
void *reserved565; VOID *reserved565;
void *reserved566; VOID *reserved566;
void *reserved567; VOID *reserved567;
void *reserved568; VOID *reserved568;
void *reserved569; VOID *reserved569;
void *reserved570; VOID *reserved570;
void *reserved571; VOID *reserved571;
void *reserved572; VOID *reserved572;
int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp * interp, CONST char int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
* name, int objc, Tcl_Obj *CONST objv[], ClientData * clientDataPtr)); /* 5 name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); /* 573
73 */ */
VOID *reserved574;
VOID *reserved575;
VOID *reserved576;
VOID *reserved577;
VOID *reserved578;
VOID *reserved579;
VOID *reserved580;
VOID *reserved581;
VOID *reserved582;
VOID *reserved583;
VOID *reserved584;
VOID *reserved585;
VOID *reserved586;
VOID *reserved587;
VOID *reserved588;
VOID *reserved589;
VOID *reserved590;
VOID *reserved591;
VOID *reserved592;
VOID *reserved593;
VOID *reserved594;
VOID *reserved595;
VOID *reserved596;
VOID *reserved597;
VOID *reserved598;
VOID *reserved599;
VOID *reserved600;
VOID *reserved601;
VOID *reserved602;
VOID *reserved603;
VOID *reserved604;
VOID *reserved605;
VOID *reserved606;
VOID *reserved607;
VOID *reserved608;
VOID *reserved609;
VOID *reserved610;
VOID *reserved611;
VOID *reserved612;
VOID *reserved613;
VOID *reserved614;
VOID *reserved615;
VOID *reserved616;
VOID *reserved617;
VOID *reserved618;
VOID *reserved619;
VOID *reserved620;
VOID *reserved621;
VOID *reserved622;
VOID *reserved623;
VOID *reserved624;
VOID *reserved625;
VOID *reserved626;
VOID *reserved627;
VOID *reserved628;
VOID *reserved629;
void (*tclUnusedStubEntry) _ANSI_ARGS_((void)); /* 630 */
} TclStubs; } TclStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclStubs *tclStubsPtr; extern TclStubs *tclStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
skipping to change at line 2338 skipping to change at line 2408
(tclStubsPtr->tcl_DbCkalloc) /* 6 */ (tclStubsPtr->tcl_DbCkalloc) /* 6 */
#endif #endif
#ifndef Tcl_DbCkfree #ifndef Tcl_DbCkfree
#define Tcl_DbCkfree \ #define Tcl_DbCkfree \
(tclStubsPtr->tcl_DbCkfree) /* 7 */ (tclStubsPtr->tcl_DbCkfree) /* 7 */
#endif #endif
#ifndef Tcl_DbCkrealloc #ifndef Tcl_DbCkrealloc
#define Tcl_DbCkrealloc \ #define Tcl_DbCkrealloc \
(tclStubsPtr->tcl_DbCkrealloc) /* 8 */ (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_CreateFileHandler #ifndef Tcl_CreateFileHandler
#define Tcl_CreateFileHandler \ #define Tcl_CreateFileHandler \
(tclStubsPtr->tcl_CreateFileHandler) /* 9 */ (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
#endif #endif
#endif /* UNIX */ #endif /* UNIX */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_CreateFileHandler
#define Tcl_CreateFileHandler \
(tclStubsPtr->tcl_CreateFileHandler) /* 9 */
#endif
#endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_DeleteFileHandler #ifndef Tcl_DeleteFileHandler
#define Tcl_DeleteFileHandler \ #define Tcl_DeleteFileHandler \
(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
#endif #endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_DeleteFileHandler
#define Tcl_DeleteFileHandler \
(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
#endif
#endif /* MACOSX */
#ifndef Tcl_SetTimer #ifndef Tcl_SetTimer
#define Tcl_SetTimer \ #define Tcl_SetTimer \
(tclStubsPtr->tcl_SetTimer) /* 11 */ (tclStubsPtr->tcl_SetTimer) /* 11 */
#endif #endif
#ifndef Tcl_Sleep #ifndef Tcl_Sleep
#define Tcl_Sleep \ #define Tcl_Sleep \
(tclStubsPtr->tcl_Sleep) /* 12 */ (tclStubsPtr->tcl_Sleep) /* 12 */
#endif #endif
#ifndef Tcl_WaitForEvent #ifndef Tcl_WaitForEvent
#define Tcl_WaitForEvent \ #define Tcl_WaitForEvent \
skipping to change at line 2750 skipping to change at line 2832
(tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
#endif #endif
#ifndef Tcl_DeleteHashTable #ifndef Tcl_DeleteHashTable
#define Tcl_DeleteHashTable \ #define Tcl_DeleteHashTable \
(tclStubsPtr->tcl_DeleteHashTable) /* 109 */ (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
#endif #endif
#ifndef Tcl_DeleteInterp #ifndef Tcl_DeleteInterp
#define Tcl_DeleteInterp \ #define Tcl_DeleteInterp \
(tclStubsPtr->tcl_DeleteInterp) /* 110 */ (tclStubsPtr->tcl_DeleteInterp) /* 110 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_DetachPids #ifndef Tcl_DetachPids
#define Tcl_DetachPids \ #define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */ (tclStubsPtr->tcl_DetachPids) /* 111 */
#endif #endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_DetachPids
#define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */
#endif
#endif /* __WIN32__ */
#ifndef Tcl_DeleteTimerHandler #ifndef Tcl_DeleteTimerHandler
#define Tcl_DeleteTimerHandler \ #define Tcl_DeleteTimerHandler \
(tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
#endif #endif
#ifndef Tcl_DeleteTrace #ifndef Tcl_DeleteTrace
#define Tcl_DeleteTrace \ #define Tcl_DeleteTrace \
(tclStubsPtr->tcl_DeleteTrace) /* 113 */ (tclStubsPtr->tcl_DeleteTrace) /* 113 */
#endif #endif
#ifndef Tcl_DontCallWhenDeleted #ifndef Tcl_DontCallWhenDeleted
#define Tcl_DontCallWhenDeleted \ #define Tcl_DontCallWhenDeleted \
skipping to change at line 2982 skipping to change at line 3056
(tclStubsPtr->tcl_GetMaster) /* 164 */ (tclStubsPtr->tcl_GetMaster) /* 164 */
#endif #endif
#ifndef Tcl_GetNameOfExecutable #ifndef Tcl_GetNameOfExecutable
#define Tcl_GetNameOfExecutable \ #define Tcl_GetNameOfExecutable \
(tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
#endif #endif
#ifndef Tcl_GetObjResult #ifndef Tcl_GetObjResult
#define Tcl_GetObjResult \ #define Tcl_GetObjResult \
(tclStubsPtr->tcl_GetObjResult) /* 166 */ (tclStubsPtr->tcl_GetObjResult) /* 166 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_GetOpenFile #ifndef Tcl_GetOpenFile
#define Tcl_GetOpenFile \ #define Tcl_GetOpenFile \
(tclStubsPtr->tcl_GetOpenFile) /* 167 */ (tclStubsPtr->tcl_GetOpenFile) /* 167 */
#endif #endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_GetOpenFile
#define Tcl_GetOpenFile \
(tclStubsPtr->tcl_GetOpenFile) /* 167 */
#endif
#endif /* MACOSX */
#ifndef Tcl_GetPathType #ifndef Tcl_GetPathType
#define Tcl_GetPathType \ #define Tcl_GetPathType \
(tclStubsPtr->tcl_GetPathType) /* 168 */ (tclStubsPtr->tcl_GetPathType) /* 168 */
#endif #endif
#ifndef Tcl_Gets #ifndef Tcl_Gets
#define Tcl_Gets \ #define Tcl_Gets \
(tclStubsPtr->tcl_Gets) /* 169 */ (tclStubsPtr->tcl_Gets) /* 169 */
#endif #endif
#ifndef Tcl_GetsObj #ifndef Tcl_GetsObj
#define Tcl_GetsObj \ #define Tcl_GetsObj \
skipping to change at line 3101 skipping to change at line 3181
(tclStubsPtr->tcl_NotifyChannel) /* 194 */ (tclStubsPtr->tcl_NotifyChannel) /* 194 */
#endif #endif
#ifndef Tcl_ObjGetVar2 #ifndef Tcl_ObjGetVar2
#define Tcl_ObjGetVar2 \ #define Tcl_ObjGetVar2 \
(tclStubsPtr->tcl_ObjGetVar2) /* 195 */ (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
#endif #endif
#ifndef Tcl_ObjSetVar2 #ifndef Tcl_ObjSetVar2
#define Tcl_ObjSetVar2 \ #define Tcl_ObjSetVar2 \
(tclStubsPtr->tcl_ObjSetVar2) /* 196 */ (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_OpenCommandChannel #ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \ #define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif #endif
#endif /* __WIN32__ */
#ifndef Tcl_OpenFileChannel #ifndef Tcl_OpenFileChannel
#define Tcl_OpenFileChannel \ #define Tcl_OpenFileChannel \
(tclStubsPtr->tcl_OpenFileChannel) /* 198 */ (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
#endif #endif
#ifndef Tcl_OpenTcpClient #ifndef Tcl_OpenTcpClient
#define Tcl_OpenTcpClient \ #define Tcl_OpenTcpClient \
(tclStubsPtr->tcl_OpenTcpClient) /* 199 */ (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
#endif #endif
#ifndef Tcl_OpenTcpServer #ifndef Tcl_OpenTcpServer
#define Tcl_OpenTcpServer \ #define Tcl_OpenTcpServer \
skipping to change at line 3149 skipping to change at line 3221
(tclStubsPtr->tcl_PosixError) /* 204 */ (tclStubsPtr->tcl_PosixError) /* 204 */
#endif #endif
#ifndef Tcl_QueueEvent #ifndef Tcl_QueueEvent
#define Tcl_QueueEvent \ #define Tcl_QueueEvent \
(tclStubsPtr->tcl_QueueEvent) /* 205 */ (tclStubsPtr->tcl_QueueEvent) /* 205 */
#endif #endif
#ifndef Tcl_Read #ifndef Tcl_Read
#define Tcl_Read \ #define Tcl_Read \
(tclStubsPtr->tcl_Read) /* 206 */ (tclStubsPtr->tcl_Read) /* 206 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_ReapDetachedProcs #ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \ #define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif #endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif
#endif /* __WIN32__ */
#ifndef Tcl_RecordAndEval #ifndef Tcl_RecordAndEval
#define Tcl_RecordAndEval \ #define Tcl_RecordAndEval \
(tclStubsPtr->tcl_RecordAndEval) /* 208 */ (tclStubsPtr->tcl_RecordAndEval) /* 208 */
#endif #endif
#ifndef Tcl_RecordAndEvalObj #ifndef Tcl_RecordAndEvalObj
#define Tcl_RecordAndEvalObj \ #define Tcl_RecordAndEvalObj \
(tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
#endif #endif
#ifndef Tcl_RegisterChannel #ifndef Tcl_RegisterChannel
#define Tcl_RegisterChannel \ #define Tcl_RegisterChannel \
skipping to change at line 4388 skipping to change at line 4452
/* Slot 567 is reserved */ /* Slot 567 is reserved */
/* Slot 568 is reserved */ /* Slot 568 is reserved */
/* Slot 569 is reserved */ /* Slot 569 is reserved */
/* Slot 570 is reserved */ /* Slot 570 is reserved */
/* Slot 571 is reserved */ /* Slot 571 is reserved */
/* Slot 572 is reserved */ /* Slot 572 is reserved */
#ifndef Tcl_PkgRequireProc #ifndef Tcl_PkgRequireProc
#define Tcl_PkgRequireProc \ #define Tcl_PkgRequireProc \
(tclStubsPtr->tcl_PkgRequireProc) /* 573 */ (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
#endif #endif
/* Slot 574 is reserved */
/* Slot 575 is reserved */
/* Slot 576 is reserved */
/* Slot 577 is reserved */
/* Slot 578 is reserved */
/* Slot 579 is reserved */
/* Slot 580 is reserved */
/* Slot 581 is reserved */
/* Slot 582 is reserved */
/* Slot 583 is reserved */
/* Slot 584 is reserved */
/* Slot 585 is reserved */
/* Slot 586 is reserved */
/* Slot 587 is reserved */
/* Slot 588 is reserved */
/* Slot 589 is reserved */
/* Slot 590 is reserved */
/* Slot 591 is reserved */
/* Slot 592 is reserved */
/* Slot 593 is reserved */
/* Slot 594 is reserved */
/* Slot 595 is reserved */
/* Slot 596 is reserved */
/* Slot 597 is reserved */
/* Slot 598 is reserved */
/* Slot 599 is reserved */
/* Slot 600 is reserved */
/* Slot 601 is reserved */
/* Slot 602 is reserved */
/* Slot 603 is reserved */
/* Slot 604 is reserved */
/* Slot 605 is reserved */
/* Slot 606 is reserved */
/* Slot 607 is reserved */
/* Slot 608 is reserved */
/* Slot 609 is reserved */
/* Slot 610 is reserved */
/* Slot 611 is reserved */
/* Slot 612 is reserved */
/* Slot 613 is reserved */
/* Slot 614 is reserved */
/* Slot 615 is reserved */
/* Slot 616 is reserved */
/* Slot 617 is reserved */
/* Slot 618 is reserved */
/* Slot 619 is reserved */
/* Slot 620 is reserved */
/* Slot 621 is reserved */
/* Slot 622 is reserved */
/* Slot 623 is reserved */
/* Slot 624 is reserved */
/* Slot 625 is reserved */
/* Slot 626 is reserved */
/* Slot 627 is reserved */
/* Slot 628 is reserved */
/* Slot 629 is reserved */
#ifndef TclUnusedStubEntry
#define TclUnusedStubEntry \
(tclStubsPtr->tclUnusedStubEntry) /* 630 */
#endif
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#undef TclUnusedStubEntry
#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_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. 483 change blocks. 
1704 lines changed or deleted 1927 lines changed or added


 tclPlatDecls.h   tclPlatDecls.h 
/* /*
* tclPlatDecls.h -- * tclPlatDecls.h --
* *
* Declarations of platform specific Tcl APIs. * Declarations of platform specific Tcl APIs.
* *
* Copyright (c) 1998-1999 by Scriptics Corporation. * Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved. * All rights reserved.
*
* RCS: @(#) $Id: tclPlatDecls.h,v 1.18.2.5 2004/06/10 17:17:45 andreas_kup
ries Exp $
*/ */
#ifndef _TCLPLATDECLS #ifndef _TCLPLATDECLS
#define _TCLPLATDECLS #define _TCLPLATDECLS
/* /*
* Pull in the typedef of TCHAR for windows. * 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.
*/ */
#if defined(__CYGWIN__) #if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED)
typedef char TCHAR; # if defined(_UNICODE)
#elif defined(__WIN32__) && !defined(_TCHAR_DEFINED) typedef wchar_t TCHAR;
# include <tchar.h> # else
# ifndef _TCHAR_DEFINED typedef char TCHAR;
/* Borland seems to forget to set this. */
typedef _TCHAR TCHAR;
# define _TCHAR_DEFINED
# endif
# if defined(_MSC_VER) && defined(__STDC__)
/* MSVC++ misses this. */
typedef _TCHAR TCHAR;
# endif # endif
# define _TCHAR_DEFINED
#endif #endif
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
#ifdef __WIN32__ #if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */
/* 0 */ /* 0 */
EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str, EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char *str,
int len, Tcl_DString * dsPtr)); int len, Tcl_DString *dsPtr));
/* 1 */ /* 1 */
EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str, EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR *str,
int len, Tcl_DString * dsPtr)); int len, Tcl_DString *dsPtr));
#endif /* __WIN32__ */ #endif /* WIN */
#ifdef MAC_TCL #ifdef MAC_OSX_TCL /* MACOSX */
/* 0 */
EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_((
Tcl_MacConvertEventPtr procPtr));
/* 1 */
EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_((
Handle resource));
/* 2 */
EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp
,
CONST char * resourceName,
int resourceNumber, CONST char * fileName));
/* 3 */
EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp
,
long resourceType, CONST char * resourceName
,
int resourceNumber, CONST char * resFileRef,
int * releaseIt));
/* 4 */
EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr,
OSType * osTypePtr));
/* 5 */
EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
OSType osType));
/* 6 */
EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
/* 7 */
EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2, size_t n));
/* 8 */
EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2));
#endif /* MAC_TCL */
#ifdef MAC_OSX_TCL
/* 0 */ /* 0 */
EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_(( EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * bundleName , Tcl_Interp *interp, CONST char *bundleName,
int hasResourceFile, int maxPathLen, int hasResourceFile, int maxPathLen,
char * libraryPath)); char *libraryPath));
/* 1 */ /* 1 */
EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_(( EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_((
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 /* MAC_OSX_TCL */ #endif /* MACOSX */
typedef struct TclPlatStubs { typedef struct TclPlatStubs {
int magic; int magic;
struct TclPlatStubHooks *hooks; struct TclPlatStubHooks *hooks;
#ifdef __WIN32__ #if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */
TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tc TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char *str, int len, Tcl
l_DString * dsPtr)); /* 0 */ _DString *dsPtr)); /* 0 */
char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tc char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR *str, int len, Tcl
l_DString * dsPtr)); /* 1 */ _DString *dsPtr)); /* 1 */
#endif /* __WIN32__ */ #endif /* WIN */
#ifdef MAC_TCL #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp *interp, C
)); /* 0 */ ONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPa
char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* th)); /* 0 */
1 */ int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp *
int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, CONST char interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceF
* resourceName, int resourceNumber, CONST char * fileName)); /* 2 */ ile, int maxPathLen, char *libraryPath)); /* 1 */
Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long re #endif /* MACOSX */
sourceType, CONST char * resourceName, int resourceNumber, CONST char * res
FileRef, int * releaseIt)); /* 3 */
int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj *
objPtr, OSType * osTypePtr)); /* 4 */
void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType))
; /* 5 */
Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */
int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_
t n)); /* 7 */
int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8
*/
#endif /* MAC_TCL */
#ifdef MAC_OSX_TCL
int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * bundleName, int hasResourceFile, int maxPathLen, char * librar
yPath)); /* 0 */
int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp *
interp, CONST char * bundleName, CONST char * bundleVersion, int hasResour
ceFile, int maxPathLen, char * libraryPath)); /* 1 */
#endif /* MAC_OSX_TCL */
} TclPlatStubs; } TclPlatStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclPlatStubs *tclPlatStubsPtr; extern TclPlatStubs *tclPlatStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
/* /*
* Inline function declarations: * Inline function declarations:
*/ */
#ifdef __WIN32__ #if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */
#ifndef Tcl_WinUtfToTChar #ifndef Tcl_WinUtfToTChar
#define Tcl_WinUtfToTChar \ #define Tcl_WinUtfToTChar \
(tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
#endif #endif
#ifndef Tcl_WinTCharToUtf #ifndef Tcl_WinTCharToUtf
#define Tcl_WinTCharToUtf \ #define Tcl_WinTCharToUtf \
(tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
#endif #endif
#endif /* __WIN32__ */ #endif /* WIN */
#ifdef MAC_TCL #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_MacSetEventProc
#define Tcl_MacSetEventProc \
(tclPlatStubsPtr->tcl_MacSetEventProc) /* 0 */
#endif
#ifndef Tcl_MacConvertTextResource
#define Tcl_MacConvertTextResource \
(tclPlatStubsPtr->tcl_MacConvertTextResource) /* 1 */
#endif
#ifndef Tcl_MacEvalResource
#define Tcl_MacEvalResource \
(tclPlatStubsPtr->tcl_MacEvalResource) /* 2 */
#endif
#ifndef Tcl_MacFindResource
#define Tcl_MacFindResource \
(tclPlatStubsPtr->tcl_MacFindResource) /* 3 */
#endif
#ifndef Tcl_GetOSTypeFromObj
#define Tcl_GetOSTypeFromObj \
(tclPlatStubsPtr->tcl_GetOSTypeFromObj) /* 4 */
#endif
#ifndef Tcl_SetOSTypeObj
#define Tcl_SetOSTypeObj \
(tclPlatStubsPtr->tcl_SetOSTypeObj) /* 5 */
#endif
#ifndef Tcl_NewOSTypeObj
#define Tcl_NewOSTypeObj \
(tclPlatStubsPtr->tcl_NewOSTypeObj) /* 6 */
#endif
#ifndef strncasecmp
#define strncasecmp \
(tclPlatStubsPtr->strncasecmp) /* 7 */
#endif
#ifndef strcasecmp
#define strcasecmp \
(tclPlatStubsPtr->strcasecmp) /* 8 */
#endif
#endif /* MAC_TCL */
#ifdef MAC_OSX_TCL
#ifndef Tcl_MacOSXOpenBundleResources #ifndef Tcl_MacOSXOpenBundleResources
#define Tcl_MacOSXOpenBundleResources \ #define Tcl_MacOSXOpenBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
#endif #endif
#ifndef Tcl_MacOSXOpenVersionedBundleResources #ifndef Tcl_MacOSXOpenVersionedBundleResources
#define Tcl_MacOSXOpenVersionedBundleResources \ #define Tcl_MacOSXOpenVersionedBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
#endif #endif
#endif /* MAC_OSX_TCL */ #endif /* MACOSX */
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#endif /* _TCLPLATDECLS */ #endif /* _TCLPLATDECLS */
 End of changes. 15 change blocks. 
141 lines changed or deleted 39 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/