tcl.h   tcl.h 
/* /*
* tcl.h -- * tcl.h --
* *
* This header file describes the externally-visible facilities * This header file describes the externally-visible facilities of the
* of the Tcl interpreter. * 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.247 2007/12/13 15:23:14 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 37 skipping to change at line 39
/* /*
* The following defines are used to indicate the various release levels. * The following defines are used to indicate the various release levels.
*/ */
#define TCL_ALPHA_RELEASE 0 #define TCL_ALPHA_RELEASE 0
#define TCL_BETA_RELEASE 1 #define TCL_BETA_RELEASE 1
#define TCL_FINAL_RELEASE 2 #define TCL_FINAL_RELEASE 2
/* /*
* When version numbers change here, must also go into the following files * When version numbers change here, must also go into the following files
* and update the version numbers: and
* update the version numbers:
* *
* library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC * library/init.tcl (1 LOC patch)
* unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch)
* win/configure.in (as above) * win/configure.in (as above)
* win/tcl.m4 (not patchlevel) * win/tcl.m4 (not patchlevel)
* win/makefile.vc (not patchlevel) 2 LOC * win/makefile.bc (not patchlevel) 2 LOC
* README (sections 0 and 2) * README (sections 0 and 2, with and without separator)
* mac/README (2 LOC, not patchlevel)
* macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC
* macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC
* win/README.binary (sections 0-4) * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC
* macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC
* macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC
* win/README (not patchlevel) (sections 0 and 2) * win/README (not patchlevel) (sections 0 and 2)
* unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) * unix/tcl.spec (1 LOC patch)
* 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 5
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 20 #define TCL_RELEASE_SERIAL 0
#define TCL_VERSION "8.4" #define TCL_VERSION "8.5"
#define TCL_PATCH_LEVEL "8.4.20" #define TCL_PATCH_LEVEL "8.5.0"
/* /*
* The following definitions set up the proper options for Windows * The following definitions set up the proper options for Windows compiler
* compilers. We use this method because there is no autoconf equivalent. s.
* We use this method because there is no autoconf equivalent.
*/ */
#ifndef __WIN32__ #ifndef __WIN32__
# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) # if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__))
# define __WIN32__ # define __WIN32__
# ifndef WIN32 # ifndef WIN32
# define WIN32 # define WIN32
# endif # endif
# ifndef _WIN32 # ifndef _WIN32
# define _WIN32 # define _WIN32
skipping to change at line 96 skipping to change at line 99
#ifdef __WIN32__ #ifdef __WIN32__
# ifndef STRICT # ifndef STRICT
# define STRICT # define STRICT
# endif # endif
#endif /* __WIN32__ */ #endif /* __WIN32__ */
/* /*
* 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
* from windows resource files so that they can obtain version * windows resource files so that they can obtain version information.
* information. RC_INVOKED is defined by default by the windows RC tool. * RC_INVOKED is defined by default by the windows RC tool.
* *
* Resource compilers don't like all the C stuff, like typedefs and * Resource compilers don't like all the C stuff, like typedefs and functio
* procedure declarations, that occur below, so block them out. n
* 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
* if we are not using threads. * using threads.
*/ */
#ifdef TCL_THREADS #ifdef TCL_THREADS
#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; #define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name;
#else #else
#define TCL_DECLARE_MUTEX(name) #define TCL_DECLARE_MUTEX(name)
#endif #endif
/* /*
* Macros that eliminate the overhead of the thread synchronization * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, an
* functions when compiling without thread support. d
* SEEK_END, all #define'd by stdio.h .
*
* Also, many extensions need stdio.h, and they've grown accustomed to tcl.
h
* providing it for them rather than #include-ing it themselves as they
* should, so also for their sake, we keep the #include to be consistent wi
th
* prior Tcl releases.
*/ */
#ifndef TCL_THREADS #include <stdio.h>
#define Tcl_MutexLock(mutexPtr)
#define Tcl_MutexUnlock(mutexPtr)
#define Tcl_MutexFinalize(mutexPtr)
#define Tcl_ConditionNotify(condPtr)
#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
#define Tcl_ConditionFinalize(condPtr)
#endif /* TCL_THREADS */
#ifndef BUFSIZ
# include <stdio.h>
#endif
/* /*
* Definitions that allow Tcl functions with variable numbers of * Support for functions with a variable number of arguments.
* arguments to be used with either varargs.h or stdarg.h. TCL_VARARGS *
* is used in procedure prototypes. TCL_VARARGS_DEF is used to declare * The following TCL_VARARGS* macros are to support old extensions
* the arguments in a function definiton: it takes the type and name of * written for older versions of Tcl where the macros permitted
* the first argument and supplies the appropriate argument declaration * support for the varargs.h system as well as stdarg.h .
* string for use in the function definition. TCL_VARARGS_START *
* initializes the va_list data structure and returns the first argument. * New code should just directly be written to use stdarg.h conventions.
*/ */
#if !defined(NO_STDARG)
# include <stdarg.h> #include <stdarg.h>
# define TCL_VARARGS(type, name) (type name, ...) #ifndef TCL_NO_DEPRECATED
# define TCL_VARARGS_DEF(type, name) (type name, ...) # define TCL_VARARGS(type, name) (type name, ...)
# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) # define TCL_VARARGS_DEF(type, name) (type name, ...)
#else # define TCL_VARARGS_START(type, name, list) (va_start(list, name), name
# include <varargs.h> )
# define TCL_VARARGS(type, name) ()
# define TCL_VARARGS_DEF(type, name) (va_alist)
# define TCL_VARARGS_START(type, name, list) \
(va_start(list), va_arg(list, type))
#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 Windo
* Used by Windows, maps to no-op declarations on non-Windows systems. ws,
* The default build on windows is for a DLL, which causes the DLLIMPORT * maps to no-op declarations on non-Windows systems. The default build on
* and DLLEXPORT macros to be nonempty. To build a static library, the * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to
* macro STATIC_BUILD should be defined. be
* nonempty. To build a static library, the macro STATIC_BUILD should be
* defined.
*
* Note: when building static but linking dynamically to MSVCRT we must sti
ll
* correctly decorate the C library imported function. Use CRTIMPORT
* for this purpose. _DLL is defined by the compiler when linking to
* MSVCRT.
*/ */
#if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) | | defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined (__declspec)))) #if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) | | defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined (__declspec))))
# ifdef STATIC_BUILD # define HAVE_DECLSPEC 1
# define DLLIMPORT #endif
# define DLLEXPORT
#ifdef STATIC_BUILD
# define DLLIMPORT
# define DLLEXPORT
# if HAVE_DECLSPEC && defined(_DLL)
# define CRTIMPORT __declspec(dllimport)
# else # else
# define DLLIMPORT __declspec(dllimport) # define CRTIMPORT
# define DLLEXPORT __declspec(dllexport)
# endif # endif
#else #else
# define DLLIMPORT # if HAVE_DECLSPEC
# if defined(__GNUC__) && __GNUC__ > 3 # define DLLIMPORT __declspec(dllimport)
# define DLLEXPORT __attribute__ ((visibility("default"))) # define DLLEXPORT __declspec(dllexport)
# define CRTIMPORT __declspec(dllimport)
# else # else
# define DLLEXPORT # define DLLIMPORT
# define DLLEXPORT
# define CRTIMPORT
# 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 buil t
* 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 to
* 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 fro m a
* stub library, then the storage class should be empty. * stub library, then the storage class should be empty.
* *
* The convention is that a macro called BUILD_xxxx, where xxxx is the * The convention is that a macro called BUILD_xxxx, where xxxx is the name
* name of a library we are building, is set on the compile line for source of
s * a library we are building, is set on the compile line for sources that a
* that are to be placed in the library. When this macro is set, the re
* storage class will be set to DLLEXPORT. At the end of the header file, * to be placed in the library. When this macro is set, the storage class w
the ill
* storage class will be reset to DLLIMPORT. * be set to DLLEXPORT. At the end of the header file, the storage class wi
ll
* be reset to DLLIMPORT.
*/ */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#ifdef BUILD_tcl #ifdef BUILD_tcl
# define TCL_STORAGE_CLASS DLLEXPORT # define TCL_STORAGE_CLASS DLLEXPORT
#else #else
# ifdef USE_TCL_STUBS # ifdef USE_TCL_STUBS
# define TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS
# else # else
# define TCL_STORAGE_CLASS DLLIMPORT # define TCL_STORAGE_CLASS DLLIMPORT
# endif # endif
#endif #endif
/* /*
* Definitions that allow this header file to be used either with or * Definitions that allow this header file to be used either with or withou
* without ANSI C features like function prototypes. t
* 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
skipping to change at line 272 skipping to change at line 278
# 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
* If we don't replicate it here, then <windows.h> can't be included ,
* after tcl.h, since tcl.h also defines VOID. * then <windows.h> can't be included after tcl.h, since tcl.h also defines
* This block is skipped under Cygwin and Mingw. * VOID. This block is skipped under Cygwin and Mingw.
*
*
*/ */
#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) #if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID)
#ifndef VOID #ifndef VOID
#define VOID void #define VOID void
typedef char CHAR; typedef char CHAR;
typedef short SHORT; typedef short SHORT;
typedef long LONG; typedef long LONG;
#endif #endif
#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ #endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */
/* /*
* Macro to use instead of "void" for arguments that must have * Macro to use instead of "void" for arguments that must have type "void *
* type "void *" in ANSI C; maps them to type "char *" in "
* non-ANSI systems. * in ANSI C; maps them to type "char *" in non-ANSI systems.
*/ */
#ifndef __VXWORKS__ #ifndef NO_VOID
# ifndef NO_VOID #define VOID void
# define VOID void #else
# else #define VOID char
# define VOID char
# endif
#endif #endif
/* /*
* Miscellaneous declarations. * Miscellaneous declarations.
*/ */
#ifndef _CLIENTDATA #ifndef _CLIENTDATA
# ifndef NO_VOID # ifndef NO_VOID
typedef void *ClientData; typedef void *ClientData;
# else # else
typedef int *ClientData; typedef int *ClientData;
# endif # endif
# define _CLIENTDATA # define _CLIENTDATA
#endif #endif
/* /*
* Darwin specific configure overrides (to support fat compiles, where * Darwin specifc 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
# define TCL_CFG_DO64BIT 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
# undef TCL_CFG_DO64BIT
# 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 def
* and define Tcl_WideUInt to be the unsigned variant of that type ine
* (assuming that where we have one, we can have the other.) * Tcl_WideUInt to be the unsigned variant of that type (assuming that wher
e
* 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 re
* a real 64-bit system.) al
* 64-bit system.)
* Tcl_WideAsLong - forgetful converter from wideInt to long. * Tcl_WideAsLong - forgetful converter from wideInt to long.
* Tcl_LongAsWide - sign-extending converter from long to wideInt. * Tcl_LongAsWide - sign-extending converter from long to wideInt.
* Tcl_WideAsDouble - converter from wideInt to double. * Tcl_WideAsDouble - converter from wideInt to double.
* Tcl_DoubleAsWide - converter from double to wideInt. * Tcl_DoubleAsWide - converter from double to wideInt.
* *
* The following invariant should hold for any long value 'longVal': * The following invariant should hold for any long value 'longVal':
* longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
* *
* Note on converting between Tcl_WideInt and strings. This * Note on converting between Tcl_WideInt and strings. This implementation
* implementation (in tclObj.c) depends on the functions strtoull() (in
* and sprintf(...,"%" TCL_LL_MODIFIER "d",...). TCL_LL_MODIFIER_SIZE * tclObj.c) depends on the function
* is the length of the modifier string, which is "ll" on most 32-bit * sprintf(...,"%" TCL_LL_MODIFIER "d",...).
* 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.)
*/ */
#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(__WIN32__) # if defined(__GNUC__)
# define TCL_WIDE_INT_TYPE long long
# if defined(__WIN32__) && !defined(__CYGWIN__)
# define TCL_LL_MODIFIER "I64"
# else
# define TCL_LL_MODIFIER "L"
# 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
# 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
# endif /* __BORLANDC__ */ # endif /* __BORLANDC__ */
# elif defined(__GNUC__) # else /* __WIN32__ */
# 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
* is going on for us. Try to guess... * 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
# else # else
# define TCL_WIDE_INT_TYPE long long # define TCL_WIDE_INT_TYPE long long
# endif # endif
skipping to change at line 397 skipping to change at line 403
#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
# 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 Wind
* Windows or some other strange platform. ows
* 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
# 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
* extensions built against a previous version of Tcl. This is true
* by default.
*/
#ifndef TCL_PRESERVE_BINARY_COMPATABILITY
# define TCL_PRESERVE_BINARY_COMPATABILITY 1
#endif
/* /*
* Data structures defined opaquely in this module. The definitions below * Data structures defined opaquely in this module. The definitions below j
* just provide dummy types. A few fields are made visible in Tcl_Interp ust
* structures, namely those used for returning a string result from * provide dummy types. A few fields are made visible in Tcl_Interp
* commands. Direct access to the result field is discouraged in Tcl 8.0. * structures, namely those used for returning a string result from command
* The interpreter result is either an object or a string, and the two s.
* values are kept consistent unless some C code sets interp->result * Direct access to the result field is discouraged in Tcl 8.0. The
* directly. Programmers should use either the procedure Tcl_GetObjResult() * interpreter result is either an object or a string, and the two values a
* or Tcl_GetStringResult() to read the interpreter's result. See the re
* SetResult man page for details. * kept consistent unless some C code sets interp->result directly.
* Programmers should use either the function Tcl_GetObjResult() or
* Tcl_GetStringResult() to read the interpreter's result. See the SetResul
t
* man page for details.
* *
* Note: any change to the Tcl_Interp definition below must be mirrored * Note: any change to the Tcl_Interp definition below must be mirrored in
* in the "real" definition in tclInt.h. the
* "real" definition in tclInt.h.
* *
* Note: Tcl_ObjCmdProc procedures do not directly set result and freeProc. * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc.
* Instead, they set a Tcl_Obj member in the "real" structure that can be * Instead, they set a Tcl_Obj member in the "real" structure that can be
* accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). * accessed with Tcl_GetObjResult() and Tcl_SetObjResult().
*/ */
typedef struct Tcl_Interp { typedef struct Tcl_Interp {
char *result; /* If the last command returned a string char *result; /* If the last command returned a string
* result, this points to it. */ * result, this points to it. */
void (*freeProc) _ANSI_ARGS_((char *blockPtr)); void (*freeProc) _ANSI_ARGS_((char *blockPtr));
/* Zero means the string result is /* Zero means the string result is staticall
* statically allocated. TCL_DYNAMIC means y
* it was allocated with ckalloc and should * allocated. TCL_DYNAMIC means it was
* be freed with ckfree. Other values give * allocated with ckalloc and should be free
* the address of procedure to invoke to d
* free the result. Tcl_Eval must free it * with ckfree. Other values give the addres
* before executing next command. */ s
int errorLine; /* When TCL_ERROR is returned, this gives * of function to invoke to free the result.
* the line number within the command where * Tcl_Eval must free it before executing ne
* the error occurred (1 if first line). */ xt
* command. */
int errorLine; /* When TCL_ERROR is returned, this gives th
e
* line number within the command where the
* error occurred (1 if first line). */
} Tcl_Interp; } Tcl_Interp;
typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
typedef struct Tcl_Channel_ *Tcl_Channel; typedef struct Tcl_Channel_ *Tcl_Channel;
typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
typedef struct Tcl_Command_ *Tcl_Command; typedef struct Tcl_Command_ *Tcl_Command;
typedef struct Tcl_Condition_ *Tcl_Condition; typedef struct Tcl_Condition_ *Tcl_Condition;
typedef struct Tcl_Dict_ *Tcl_Dict;
typedef struct Tcl_EncodingState_ *Tcl_EncodingState; typedef struct Tcl_EncodingState_ *Tcl_EncodingState;
typedef struct Tcl_Encoding_ *Tcl_Encoding; typedef struct Tcl_Encoding_ *Tcl_Encoding;
typedef struct Tcl_Event Tcl_Event; typedef struct Tcl_Event Tcl_Event;
typedef struct Tcl_InterpState_ *Tcl_InterpState;
typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
typedef struct Tcl_Mutex_ *Tcl_Mutex; typedef struct Tcl_Mutex_ *Tcl_Mutex;
typedef struct Tcl_Pid_ *Tcl_Pid; typedef struct Tcl_Pid_ *Tcl_Pid;
typedef struct Tcl_RegExp_ *Tcl_RegExp; typedef struct Tcl_RegExp_ *Tcl_RegExp;
typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey;
typedef struct Tcl_ThreadId_ *Tcl_ThreadId; typedef struct Tcl_ThreadId_ *Tcl_ThreadId;
typedef struct Tcl_TimerToken_ *Tcl_TimerToken; typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
typedef struct Tcl_Trace_ *Tcl_Trace; typedef struct Tcl_Trace_ *Tcl_Trace;
typedef struct Tcl_Var_ *Tcl_Var; typedef struct Tcl_Var_ *Tcl_Var;
typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
/* /*
* Definition of the interface to procedures implementing threads. * Definition of the interface to functions implementing threads. A functio
* A procedure following this definition is given to each call of n
* 'Tcl_CreateThread' and will be called as the main fuction of * following this definition is given to each call of 'Tcl_CreateThread' an
* the new thread created by that call. d
* will be called as the main fuction of the new thread created by that cal
l.
*/ */
#if defined __WIN32__ #if defined __WIN32__
typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData c lientData)); typedef unsigned (__stdcall Tcl_ThreadCreateProc) _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 funct
* function in generic/tclThreadTest.c for it's usage. ion
* in generic/tclThreadTest.c for it's usage.
*/ */
#ifdef __WIN32__
#if 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 #define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behaviour
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_StringCaseMatch.
*/
#define TCL_MATCH_NOCASE (1<<0)
/* /*
* 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 */
#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs ) */ #define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs ) */
#define TCL_REG_QUOTE 000004 /* no special characters, no ne */ #define TCL_REG_QUOTE 000004 /* no special characters, no ne */
#define TCL_REG_NOCASE 000010 /* ignore case */ #define TCL_REG_NOCASE 000010 /* ignore case */
#define TCL_REG_NOSUB 000020 /* don't care about subexpre ssions */ #define TCL_REG_NOSUB 000020 /* don't care about subexpre ssions */
#define TCL_REG_EXPANDED 000040 /* expanded format, white sp ace & #define TCL_REG_EXPANDED 000040 /* expanded format, white sp ace &
* comments */ * comments */
#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
* will probably go away in a later release.
*/
#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so
it only
* matches at the beginning of the
* 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 enti
* entire string. re
* string.
*/ */
typedef struct Tcl_RegExpIndices { typedef struct Tcl_RegExpIndices {
long start; /* character offset of first character in ma long start; /* Character offset of first charact
tch */ er in
long end; /* character offset of first character after the * match. */
* match. */ long end; /* Character offset of first character after
* the 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
* compiled expression */ * 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
* match might begin. */ * 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
* struct's reference in tclDecls.h. '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 functions
* procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's
* interpreter's result. See the SetResult man page for details. Besides * result. See the SetResult man page for details. Besides this result, the
* this result, the command procedure returns an integer code, which is * command function returns an integer code, which is one of the following:
* one of the following: *
* * TCL_OK Command completed normally; the interpreter's result
* TCL_OK Command completed normally; the interpreter's * contains the command's result.
* result contains the command's result. * TCL_ERROR The command couldn't be completed successfully; the
* TCL_ERROR The command couldn't be completed successfully; * interpreter's result describes what went wrong.
* the interpreter's result describes what went wrong. * TCL_RETURN The command requests that the current function retur
* TCL_RETURN The command requests that the current procedure n;
* return; the interpreter's result contains the * the interpreter's result contains the function's
* procedure's return value. * return value.
* TCL_BREAK The command requests that the innermost loop * TCL_BREAK The command requests that the innermost loop be
* be exited; the interpreter's result is meaningless. * exited; the interpreter's result is meaningless.
* TCL_CONTINUE Go on to the next iteration of the current l * TCL_CONTINUE Go on to the next iteration of the current l
oop; oop; the
* the interpreter's result is meaningless. * 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
skipping to change at line 652 skipping to change at line 622
*/ */
#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
} Tcl_ValueType; } Tcl_ValueType;
typedef struct Tcl_Value { typedef struct Tcl_Value {
Tcl_ValueType type; /* Indicates intValue or doubleValue Tcl_ValueType type; /* Indicates intValue or doubleValue
is is valid,
* valid, or both. */ * or both. */
long intValue; /* Integer value. */ long intValue; /* Integer value. */
double doubleValue; /* Double-precision floating value. */ double doubleValue; /* Double-precision floating value. */
Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */
} Tcl_Value; } Tcl_Value;
/* /*
* Forward declaration of Tcl_Obj to prevent an error when the forward * Forward declaration of Tcl_Obj to prevent an error when the forward
* reference to Tcl_Obj is encountered in the procedure types declared * reference to Tcl_Obj is encountered in the function types declared below
* below. .
*/ */
struct Tcl_Obj; struct Tcl_Obj;
/* /*
* Procedure types defined by Tcl: * Function types defined by Tcl:
*/ */
typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp));
typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int code)); Tcl_Interp *interp, int code));
typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask )); typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask ));
typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data));
typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData));
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[]));
skipping to change at line 717 skipping to change at line 689
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 int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp,
; int flags));
typedef void (Tcl_PanicProc) _ANSI_ARGS_((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, Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2,
int flags)); 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 particul
* particular internal representation for an object plus a set of ar
* procedures that provide standard operations on objects of that type. * internal representation for an object plus a set of functions that provi
de
* 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
* internal rep. NULL if the internal rep * internal rep. NULL if the internal rep do
* does not need freeing. */ es
* not need freeing. */
Tcl_DupInternalRepProc *dupIntRepProc; Tcl_DupInternalRepProc *dupIntRepProc;
/* Called to create a new object as a copy /* Called to create a new object as a copy o
* of an existing object. */ f
* an existing object. */
Tcl_UpdateStringProc *updateStringProc; Tcl_UpdateStringProc *updateStringProc;
/* Called to update the string rep from the /* Called to update the string rep from the
* type's internal representation. */ * type's internal representation. */
Tcl_SetFromAnyProc *setFromAnyProc; Tcl_SetFromAnyProc *setFromAnyProc;
/* Called to convert the object's internal /* Called to convert the object's internal r
* rep to this type. Frees the internal rep ep
* of the old type. Returns TCL_ERROR on * to this type. Frees the internal rep of t
* failure. */ he
* old type. Returns TCL_ERROR on failure. *
/
} Tcl_ObjType; } Tcl_ObjType;
/* /*
* One of the following structures exists for each object in the Tcl * One of the following structures exists for each object in the Tcl system
* system. An object stores a value as either a string, some internal .
* representation, or both. * An object stores a value as either a string, some internal representatio
n,
* or both.
*/ */
typedef struct Tcl_Obj { typedef struct Tcl_Obj {
int refCount; /* When 0 the object will be freed. */ int refCount; /* When 0 the object will be freed. */
char *bytes; /* This points to the first byte of the char *bytes; /* This points to the first byte of the
* object's string representation. The array * object's string representation. The array
* must be followed by a null byte (i.e., at * must be followed by a null byte (i.e., at
* offset length) but may also contain * offset length) but may also contain
* embedded null characters. The array's * embedded null characters. The array's
* storage is allocated by ckalloc. NULL * storage is allocated by ckalloc. NULL mea
* means the string rep is invalid and must ns
* be regenerated from the internal rep. * the string rep is invalid and must be
* Clients should use Tcl_GetStringFromObj * regenerated from the internal rep. Clien
* or Tcl_GetString to get a pointer to the ts
* byte array as a readonly value. */ * should use Tcl_GetStringFromObj or
* Tcl_GetString to get a pointer to the byt
e
* array as a readonly value. */
int length; /* The number of bytes at *bytes, no t int length; /* The number of bytes at *bytes, no t
* including the terminating null. */ * including the terminating null. */
Tcl_ObjType *typePtr; /* Denotes the object's type. Always Tcl_ObjType *typePtr; /* Denotes the object's type. Always
* corresponds to the type of the object's * corresponds to the type of the object's
* internal rep. NULL indicates the object * internal rep. NULL indicates the object h
* has no internal rep (has no type). */ as
* no internal rep (has no type). */
union { /* The internal representation: */ union { /* The internal representation: */
long longValue; /* - an long integer value */ long longValue; /* - an long integer value */
double doubleValue; /* - a double-precision floating value */ double doubleValue; /* - a double-precision floating value */
VOID *otherValuePtr; /* - another, type-specific value */ VOID *otherValuePtr; /* - another, type-specific value */
Tcl_WideInt wideValue; /* - a long long value */ Tcl_WideInt wideValue; /* - a long long value */
struct { /* - internal rep as two pointers */ struct { /* - internal rep as two pointers */
VOID *ptr1; VOID *ptr1;
VOID *ptr2; VOID *ptr2;
} twoPtrValue; } twoPtrValue;
struct { /* - internal rep as a wide int, tightly
* packed fields */
VOID *ptr; /* Pointer to digits */
unsigned long value;/* Alloc, used, and signum packed into a
* single word */
} ptrAndLongRep;
} 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 te
* test whether an object is shared (i.e. has reference count > 1). st
* Note: clients should use Tcl_DecrRefCount() when they are finished using * whether an object is shared (i.e. has reference count > 1). Note: client
* an object, and should never call TclFreeObj() directly. TclFreeObj() is s
* only defined and made public in tcl.h to support Tcl_DecrRefCount's macr * should use Tcl_DecrRefCount() when they are finished using an object, an
o d
* definition. * should never call TclFreeObj() directly. TclFreeObj() is only defined an
d
* made public in tcl.h to support Tcl_DecrRefCount's macro definition. Not
e
* also that Tcl_DecrRefCount() refers to the parameter "obj" twice. This
* means that you should avoid calling it with an expression that is expens
ive
* 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
# define Tcl_IncrRefCount(objPtr) \
Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_DecrRefCount(objPtr) \
Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_IsShared(objPtr) \
Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
#else
# define Tcl_IncrRefCount(objPtr) \
++(objPtr)->refCount
/*
* Use do/while0 idiom for optimum correctness without compiler warning
s
* http://c2.com/cgi/wiki?TrivialDoWhileLoop
*/
# define Tcl_DecrRefCount(objPtr) \
do { \
Tcl_Obj *_objPtr = (objPtr); \
if (--(_objPtr)->refCount <= 0) { \
TclFreeObj(_objPtr); \
} \
} while(0)
# define Tcl_IsShared(objPtr) \
((objPtr)->refCount > 1)
#endif
/* /*
* Macros and definitions that help to debug the use of Tcl objects. * The following structure contains the state needed by Tcl_SaveResult. No-
* When TCL_MEM_DEBUG is defined, the Tcl_New declarations are one
* overridden to call debugging versions of the object creation procedures. * outside of Tcl should access any of these fields. This structure is
* typically allocated on the stack.
*/ */
#ifdef TCL_MEM_DEBUG
# define Tcl_NewBooleanObj(val) \
Tcl_DbNewBooleanObj(val, __FILE__, __LINE__)
# define Tcl_NewByteArrayObj(bytes, len) \
Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__)
# define Tcl_NewDoubleObj(val) \
Tcl_DbNewDoubleObj(val, __FILE__, __LINE__)
# define Tcl_NewIntObj(val) \
Tcl_DbNewLongObj(val, __FILE__, __LINE__)
# define Tcl_NewListObj(objc, objv) \
Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__)
# define Tcl_NewLongObj(val) \
Tcl_DbNewLongObj(val, __FILE__, __LINE__)
# define Tcl_NewObj() \
Tcl_DbNewObj(__FILE__, __LINE__)
# define Tcl_NewStringObj(bytes, len) \
Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
# define Tcl_NewWideIntObj(val) \
Tcl_DbNewWideIntObj(val, __FILE__, __LINE__)
#endif /* TCL_MEM_DEBUG */
/*
* The following structure contains the state needed by
* Tcl_SaveResult. No-one outside of Tcl should access any of these
* fields. This structure is typically allocated on the stack.
*/
typedef struct Tcl_SavedResult { typedef struct Tcl_SavedResult {
char *result; char *result;
Tcl_FreeProc *freeProc; Tcl_FreeProc *freeProc;
Tcl_Obj *objResultPtr; Tcl_Obj *objResultPtr;
char *appendResult; char *appendResult;
int appendAvl; int appendAvl;
int appendUsed; int appendUsed;
char resultSpace[TCL_RESULT_SIZE+1]; char resultSpace[TCL_RESULT_SIZE+1];
} Tcl_SavedResult; } Tcl_SavedResult;
/* /*
* The following definitions support Tcl's namespace facility. * The following definitions support Tcl's namespace facility. Note: the fi
* Note: the first five fields must match exactly the fields in a rst
* Namespace structure (see tclInt.h). * five fields must match exactly the fields in a Namespace structure (see
* tclInt.h).
*/ */
typedef struct Tcl_Namespace { typedef struct Tcl_Namespace {
char *name; /* The namespace's name within its parent char *name; /* The namespace's name within its p
* namespace. This contains no ::'s. The arent
* name of the global namespace is "" * namespace. This contains no ::'s. The nam
* although "::" is an synonym. */ e
char *fullName; /* The namespace's fully qualified name. * of the global namespace is "" although ":
* This starts with ::. */ :"
ClientData clientData; /* Arbitrary value associated with this * is an synonym. */
char *fullName; /* The namespace's fully qualified name. Thi
s
* starts with ::. */
ClientData clientData; /* Arbitrary value associated with this
* namespace. */ * namespace. */
Tcl_NamespaceDeleteProc* deleteProc; Tcl_NamespaceDeleteProc* deleteProc;
/* Procedure invoked when deleting the /* Function invoked when deleting the
* namespace to, e.g., free clientData. */ * namespace to, e.g., free clientData. */
struct Tcl_Namespace* parentPtr; struct Tcl_Namespace* parentPtr;
/* Points to the namespace that contains /* Points to the namespace that contains thi
* this one. NULL if this is the global s
* one. NULL if this is the global
* namespace. */ * namespace. */
} Tcl_Namespace; } Tcl_Namespace;
/* /*
* The following structure represents a call frame, or activation record. * The following structure represents a call frame, or activation record. A
* A call frame defines a naming context for a procedure call: its local * call frame defines a naming context for a procedure call: its local scop
* scope (for local variables) and its namespace scope (used for non-local e
* variables; often the global :: namespace). A call frame can also define * (for local variables) and its namespace scope (used for non-local
* the naming context for a namespace eval or namespace inscope command: * variables; often the global :: namespace). A call frame can also define
* the namespace in which the command's code should execute. The the
* Tcl_CallFrame structures exist only while procedures or namespace * naming context for a namespace eval or namespace inscope command: the
* eval/inscope's are being executed, and provide a Tcl call stack. * namespace in which the command's code should execute. The Tcl_CallFrame
* * structures exist only while procedures or namespace eval/inscope's are
* A call frame is initialized and pushed using Tcl_PushCallFrame and * being executed, and provide a Tcl call stack.
* popped using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be *
* provided by the Tcl_PushCallFrame caller, and callers typically allocate * A call frame is initialized and pushed using Tcl_PushCallFrame and poppe
* them on the C call stack for efficiency. For this reason, Tcl_CallFrame d
* is defined as a structure and not as an opaque token. However, most * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by
* Tcl_CallFrame fields are hidden since applications should not access the
* them directly; others are declared as "dummyX". * Tcl_PushCallFrame caller, and callers typically allocate them on the C c
all
* stack for efficiency. For this reason, Tcl_CallFrame is defined as a
* structure and not as an opaque token. However, most Tcl_CallFrame fields
* are hidden since applications should not access them directly; others ar
e
* declared as "dummyX".
* *
* WARNING!! The structure definition must be kept consistent with the * WARNING!! The structure definition must be kept consistent with the
* CallFrame structure in tclInt.h. If you change one, change the other. * CallFrame structure in tclInt.h. If you change one, change the other.
*/ */
typedef struct Tcl_CallFrame { typedef struct Tcl_CallFrame {
Tcl_Namespace *nsPtr; Tcl_Namespace *nsPtr;
int dummy1; int dummy1;
int dummy2; int dummy2;
VOID *dummy3; char *dummy3;
VOID *dummy4; char *dummy4;
VOID *dummy5; char *dummy5;
int dummy6; int dummy6;
VOID *dummy7; char *dummy7;
VOID *dummy8; char *dummy8;
int dummy9; int dummy9;
VOID *dummy10; char *dummy10;
VOID *dummy11; char *dummy11;
VOID *dummy12; char *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 comma
* command procedure while proc is a traditional Tcl argc/argv nd
* string-based procedure. Tcl_CreateObjCommand and Tcl_CreateCommand * function while proc is a traditional Tcl argc/argv string-based function
* 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 * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and
* the other. The member isNativeObjectProc is set to 1 if an * proc are non-NULL and can be called to execute the command. However, it
* object-based procedure was registered by Tcl_CreateObjCommand, and to may
* 0 if a string-based procedure was registered by Tcl_CreateCommand. * be faster to call one instead of the other. The member isNativeObjectPro
* The other procedure is typically set to a compatibility wrapper that c
* does string-to-object or object-to-string argument conversions then * is set to 1 if an object-based function was registered by
* calls the other procedure. * Tcl_CreateObjCommand, and to 0 if a string-based function was registered
by
* Tcl_CreateCommand. The other function is typically set to a compatibilit
y
* wrapper that does string-to-object or object-to-string argument conversi
ons
* then calls the other function.
*/ */
typedef struct Tcl_CmdInfo { typedef struct Tcl_CmdInfo {
int isNativeObjectProc; /* 1 if objProc was registered by a call to int isNativeObjectProc; /* 1 if objProc was registered by a call to
* Tcl_CreateObjCommand; 0 otherwise. * Tcl_CreateObjCommand; 0 otherwise.
* Tcl_SetCmdInfo does not modify this * Tcl_SetCmdInfo does not modify this
* field. */ * field. */
Tcl_ObjCmdProc *objProc; /* Command's object-based procedure. */ Tcl_ObjCmdProc *objProc; /* Command's object-based function. */
ClientData objClientData; /* ClientData for object proc. */ ClientData objClientData; /* ClientData for object proc. */
Tcl_CmdProc *proc; /* Command's string-based procedure. */ Tcl_CmdProc *proc; /* Command's string-based function. */
ClientData clientData; /* ClientData for string proc. */ ClientData clientData; /* ClientData for string proc. */
Tcl_CmdDeleteProc *deleteProc; Tcl_CmdDeleteProc *deleteProc;
/* Procedure to call when command is /* Function to call when command is
* deleted. */ * deleted. */
ClientData deleteData; /* Value to pass to deleteProc (usually ClientData deleteData; /* Value to pass to deleteProc (usually the
* the same as clientData). */ * same as clientData). */
Tcl_Namespace *namespacePtr; /* Points to the namespace that contains Tcl_Namespace *namespacePtr;/* Points to the namespace that contains th
* this command. Note that Tcl_SetCmdInfo is
* will not change a command's namespace; * command. Note that Tcl_SetCmdInfo will no
* use Tcl_RenameCommand to do that. */ t
* change a command's namespace; use
* TclRenameCommand or Tcl_Eval (of 'rename'
)
* 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 * fields that clients should use are string and length, accessible via the
* macro Tcl_DStringValue. * macros Tcl_DStringValue and Tcl_DStringLength.
*/ */
#define TCL_DSTRING_STATIC_SIZE 200 #define TCL_DSTRING_STATIC_SIZE 200
typedef struct Tcl_DString { typedef struct Tcl_DString {
char *string; /* Points to beginning of string: either char *string; /* Points to beginning of string: either
* staticSpace below or a malloced array. */ * staticSpace below or a malloced array. */
int length; /* Number of non-NULL characters in the int length; /* Number of non-NULL characters in the
* 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
* is small. */ is
* small. */
} Tcl_DString; } Tcl_DString;
#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
* be specified in the "tcl_precision" variable, and the number of * specified in the "tcl_precision" variable, and the number of bytes of
* bytes of buffer space required by Tcl_PrintDouble. * 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 o
* of 64-bit integers). f
* 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 values passed to Tcl_ConvertElement.
* output braces (careful! if you change this flag be sure to change * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but
* the definitions at the front of tclUtil.c). to
* use backslash quoting instead.
* TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. I
t
* is safe to leave the hash unquoted when the element is not the first
* element of a list, and this flag can be used by the caller to indica
te
* that condition.
* (Careful! If you change these flag values be sure to change the definiti
ons
* at the front of tclUtil.c).
*/ */
#define TCL_DONT_USE_BRACES 1 #define TCL_DONT_USE_BRACES 1
#define TCL_DONT_QUOTE_HASH 8
/* /*
* Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow
* abbreviated strings. * abbreviated strings.
*/ */
#define TCL_EXACT 1 #define TCL_EXACT 1
/* /*
* Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj. * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv.
* WARNING: these bit choices must not conflict with the bit choices * WARNING: these bit choices must not conflict with the bit choices for
* for evalFlag bits in tclInt.h!! * evalFlag bits in tclInt.h!
*
* Meanings:
* TCL_NO_EVAL: Just record this command
* TCL_EVAL_GLOBAL: Execute script in global namespace
* TCL_EVAL_DIRECT: Do not compile this script
* TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensemb
les
* o Run in iPtr->lookupNsPtr or global namespa
ce
* o Cut out of error traces
* o Don't reset the flags controlling ensemble
* error message rewriting.
*/ */
#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
* the man page for details): * page for details):
*/ */
#define TCL_VOLATILE ((Tcl_FreeProc *) 1) #define TCL_VOLATILE ((Tcl_FreeProc *) 1)
#define TCL_STATIC ((Tcl_FreeProc *) 0) #define TCL_STATIC ((Tcl_FreeProc *) 0)
#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) #define TCL_DYNAMIC ((Tcl_FreeProc *) 3)
/* /*
* Flag values passed to variable-related procedures. * Flag values passed to variable-related functions.
*/ */
#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
skipping to change at line 1075 skipping to change at line 1023
#define TCL_TRACE_ARRAY 0x800 #define TCL_TRACE_ARRAY 0x800
#ifndef TCL_REMOVE_OBSOLETE_TRACES #ifndef TCL_REMOVE_OBSOLETE_TRACES
/* Required to support old variable/vdelete/vinfo traces */ /* Required to support old variable/vdelete/vinfo traces */
#define TCL_TRACE_OLD_STYLE 0x1000 #define TCL_TRACE_OLD_STYLE 0x1000
#endif #endif
/* Indicate the semantics of the result of a trace */ /* Indicate the semantics of the result of a trace */
#define TCL_TRACE_RESULT_DYNAMIC 0x8000 #define TCL_TRACE_RESULT_DYNAMIC 0x8000
#define TCL_TRACE_RESULT_OBJECT 0x10000 #define TCL_TRACE_RESULT_OBJECT 0x10000
/* /*
* Flag values passed to command-related procedures. * Flag values for ensemble commands.
*/
#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow
* unambiguous prefixes of commands or to
* require exact matches for command names.
*/
/*
* Flag values passed to command-related functions.
*/ */
#define TCL_TRACE_RENAME 0x2000 #define TCL_TRACE_RENAME 0x2000
#define TCL_TRACE_DELETE 0x4000 #define TCL_TRACE_DELETE 0x4000
#define TCL_ALLOW_INLINE_COMPILATION 0x20000 #define TCL_ALLOW_INLINE_COMPILATION 0x20000
/* /*
* Flag values passed to Tcl_CreateObjTrace, and used internally * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is n
* by command execution traces. Slots 4,8,16 and 32 are ow
* used internally by execution traces (see tclCmdMZ.c) * always parsed whenever the part2 is NULL. (This is to avoid a common err
*/ or
#define TCL_TRACE_ENTER_EXEC 1 * when converting code to use the new object based APIs and forgetting to
#define TCL_TRACE_LEAVE_EXEC 2 * give the flag)
/*
* The TCL_PARSE_PART1 flag is deprecated and has no effect.
* The part1 is now always parsed whenever the part2 is NULL.
* (This is to avoid a common error when converting code to
* use the new object based APIs and forgetting to give the
* flag)
*/ */
#ifndef TCL_NO_DEPRECATED #ifndef TCL_NO_DEPRECATED
# define TCL_PARSE_PART1 0x400 # define TCL_PARSE_PART1 0x400
#endif #endif
/* /*
* Types for linked variables: * Types for linked variables:
*/ */
#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_CHAR 6
#define TCL_LINK_UCHAR 7
#define TCL_LINK_SHORT 8
#define TCL_LINK_USHORT 9
#define TCL_LINK_UINT 10
#define TCL_LINK_LONG 11
#define TCL_LINK_ULONG 12
#define TCL_LINK_FLOAT 13
#define TCL_LINK_WIDE_UINT 14
#define TCL_LINK_READ_ONLY 0x80 #define TCL_LINK_READ_ONLY 0x80
/* /*
* Forward declarations of Tcl_HashTable and related types. * Forward declarations of Tcl_HashTable and related types.
*/ */
typedef struct Tcl_HashKeyType Tcl_HashKeyType; typedef struct Tcl_HashKeyType Tcl_HashKeyType;
typedef struct Tcl_HashTable Tcl_HashTable; typedef struct Tcl_HashTable Tcl_HashTable;
typedef struct Tcl_HashEntry Tcl_HashEntry; typedef struct Tcl_HashEntry Tcl_HashEntry;
typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr , typedef unsigned 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
* as it is completely binary and source compatible unless you directly it
* access the bucketPtr member of the Tcl_HashTableEntry structure. This * is completely binary and source compatible unless you directly access th
* member has been removed and the space used to store the hash value. e
* bucketPtr member of the Tcl_HashTableEntry structure. This member has be
en
* 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
* Tcl should access any of these fields directly; use the macros * should access any of these fields directly; use the macros defined below
* defined below. .
*/ */
struct Tcl_HashEntry { struct Tcl_HashEntry {
Tcl_HashEntry *nextPtr; /* Pointer to next entry in this Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket
* hash bucket, or NULL for end of ,
* chain. */ * or NULL for end of chain. */
Tcl_HashTable *tablePtr; /* Pointer to table containing entry Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */
. */
#if TCL_HASH_KEY_STORE_HASH #if TCL_HASH_KEY_STORE_HASH
# if TCL_PRESERVE_BINARY_COMPATABILITY VOID *hash; /* Hash value, stored as pointer to
VOID *hash; /* Hash value, stored as poi ensure
nter to * that the offsets of the fields in this
* ensure that the offsets of the * structure are not changed. */
* fields in this structure are not
* changed. */
# else
unsigned int hash; /* Hash value. */
# endif
#else #else
Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first
* first entry in this entry's chain * entry in this entry's chain: used for
: * deleting the entry. */
* used for deleting the entry. */ #endif
#endif ClientData clientData; /* Application stores something here with
ClientData clientData; /* Application stores something here * Tcl_SetHashValue. */
* with Tcl_SetHashValue. */ union { /* Key has one of these forms: */
union { /* Key has one of these forms: */ char *oneWordValue; /* One-word value for key. */
char *oneWordValue; /* One-word value for key. */ Tcl_Obj *objPtr; /* Tcl_Obj * key value. */
Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ int words[1]; /* Multiple integer words for key. The actua
int words[1]; /* Multiple integer words for key. l
* The actual size will be as large * size will be as large as necessary for th
* as necessary for this table's is
* keys. */ * table's keys. */
char string[4]; /* String for key. The actual size char string[4]; /* String for key. The actual size will be a
* will be as large as needed to hol s
d * large as needed to hold the key. */
* the key. */ } key; /* MUST BE LAST FIELD IN RECORD!! */
} key; /* MUST BE LAST FIELD IN RECORD!! */
}; };
/* /*
* Flags used in Tcl_HashKeyType. * Flags used in Tcl_HashKeyType.
* *
* TCL_HASH_KEY_RANDOMIZE_HASH: * TCL_HASH_KEY_RANDOMIZE_HASH -
* There are some things, pointers for example * There are some things, pointers for example
* which don't hash well because they do not us e * which don't hash well because they do not us e
* the lower bits. If this flag is set then the * the lower bits. If this flag is set then the
* hash table will attempt to rectify this by * hash table will attempt to rectify this by
* randomising the bits and then using the uppe r * randomising the bits and then using the uppe r
* N bits as the index into the table. * N bits as the index into the table.
* TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internal
ly
* allocated for the hash table that is not fo
r an
* entry will use the system heap.
*/ */
#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 #define TCL_HASH_KEY_RANDOMIZE_HASH 0x1
#define TCL_HASH_KEY_SYSTEM_HASH 0x2
/* /*
* Structure definition for the methods associated with a hash table * Structure definition for the methods associated with a hash table key ty
* key type. pe.
*/ */
#define TCL_HASH_KEY_TYPE_VERSION 1 #define TCL_HASH_KEY_TYPE_VERSION 1
struct Tcl_HashKeyType { struct Tcl_HashKeyType {
int version; /* Version of the table. If this structure i s int version; /* Version of the table. If this structure i s
* extended in future then the version can b e * extended in future then the version can b e
* used to distinguish between different * used to distinguish between different
* structures. * structures. */
*/
int flags; /* Flags, see above for details. */ int flags; /* Flags, see above for details. */
/* Calculates a hash value for the key. If this is NULL then the pointe
r
* itself is used as a hash value.
*/
Tcl_HashKeyProc *hashKeyProc; Tcl_HashKeyProc *hashKeyProc;
/* Calculates a hash value for the key. If
/* Compares two keys and returns zero if they do not match, and non-zer * this is NULL then the pointer itself is
o * used as a hash value. */
* if they do. If this is NULL then the pointers are compared.
*/
Tcl_CompareHashKeysProc *compareKeysProc; Tcl_CompareHashKeysProc *compareKeysProc;
/* Compares two keys and returns zero if the
/* Called to allocate memory for a new entry, i.e. if the key is a y
* string then this could allocate a single block which contains enough * do not match, and non-zero if they do. If
* space for both the entry and the string. Only the key field of the * this is NULL then the pointers are
* allocated Tcl_HashEntry structure needs to be filled in. If somethin * compared. */
g
* else needs to be done to the key, i.e. incrementing a reference coun
t
* then that should be done by this function. If this is NULL then Tcl_
Alloc
* is used to allocate enough space for a Tcl_HashEntry and the key poi
nter
* is assigned to key.oneWordValue.
*/
Tcl_AllocHashEntryProc *allocEntryProc; Tcl_AllocHashEntryProc *allocEntryProc;
/* Called to allocate memory for a new entry
/* Called to free memory associated with an entry. If something else ne ,
eds * i.e. if the key is a string then this cou
* to be done to the key, i.e. decrementing a reference count then that ld
* should be done by this function. If this is NULL then Tcl_Free is us * allocate a single block which contains
ed * enough space for both the entry and the
* to free the Tcl_HashEntry. * string. Only the key field of the allocat
*/ ed
* Tcl_HashEntry structure needs to be fille
d
* in. If something else needs to be done to
* the key, i.e. incrementing a reference
* count then that should be done by this
* function. If this is NULL then Tcl_Alloc
is
* used to allocate enough space for a
* Tcl_HashEntry and the key pointer is
* assigned to key.oneWordValue. */
Tcl_FreeHashEntryProc *freeEntryProc; Tcl_FreeHashEntryProc *freeEntryProc;
/* Called to free memory associated with an
* entry. If something else needs to be done
* to the key, i.e. decrementing a reference
* count then that should be done by this
* function. If this is NULL then Tcl_Free i
s
* used to free the Tcl_HashEntry. */
}; };
/* /*
* Structure definition for a hash table. Must be in tcl.h so clients * Structure definition for a hash table. Must be in tcl.h so clients can
* can allocate space for these structures, but clients should never * allocate space for these structures, but clients should never access any
* access any fields in this structure. * fields in this structure.
*/ */
#define TCL_SMALL_HASH_TABLE 4 #define TCL_SMALL_HASH_TABLE 4
struct Tcl_HashTable { struct Tcl_HashTable {
Tcl_HashEntry **buckets; /* Pointer to bucket array. Each Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element
* element points to first entry in * points to first entry in bucket's hash
* bucket's hash chain, or NULL. */ * chain, or NULL. */
Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE];
/* Bucket array used for small table /* Bucket array used for small tables (to
s * avoid mallocs and frees). */
* (to avoid mallocs and frees). */ int numBuckets; /* Total number of buckets allocated at
int numBuckets; /* Total number of buckets allocated * **bucketPtr. */
* at **bucketPtr. */ int numEntries; /* Total number of entries present in
int numEntries; /* Total number of entries present * table. */
* in table. */ int rebuildSize; /* Enlarge table when numEntries gets to be
int rebuildSize; /* Enlarge table when numEntries get * this large. */
s int downShift; /* Shift count used in hashing function.
* to be this large. */ * Designed to use high-order bits of
int downShift; /* Shift count used in hashing * randomized keys. */
* function. Designed to use high- int mask; /* Mask value used in hashing function. */
* order bits of randomized keys. */ int keyType; /* Type of keys used in this table. It's
int mask; /* Mask value used in hashing * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS,
* function. */ * TCL_ONE_WORD_KEYS, or an integer giving t
int keyType; /* Type of keys used in this table. he
* It's either TCL_CUSTOM_KEYS, * number of ints that is the size of the
* TCL_STRING_KEYS, TCL_ONE_WORD_KEY * key. */
S,
* or an integer giving the number o
f
* ints that is the size of the key.
*/
#if TCL_PRESERVE_BINARY_COMPATABILITY
Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr,
CONST char *key)); CONST char *key));
Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr,
CONST char *key, int *newPtr)); CONST char *key, int *newPtr));
#endif Tcl_HashKeyType *typePtr; /* Type of the keys used in the
Tcl_HashKeyType *typePtr; /* Type of the keys used in the * Tcl_HashTable. */
* Tcl_HashTable. */
}; };
/* /*
* Structure definition for information used to keep track of searches * Structure definition for information used to keep track of searches thro
* through hash tables: ugh
* hash tables:
*/ */
typedef struct Tcl_HashSearch { typedef struct Tcl_HashSearch {
Tcl_HashTable *tablePtr; /* Table being searched. */ Tcl_HashTable *tablePtr; /* Table being searched. */
int nextIndex; /* Index of next bucket to be int nextIndex; /* Index of next bucket to be enumerated aft
* enumerated after present one. */ er
Tcl_HashEntry *nextEntryPtr; /* Next entry to be enumerated in th * present one. */
e Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the curre
* the current bucket. */ nt
* bucket. */
} Tcl_HashSearch; } Tcl_HashSearch;
/* /*
* Acceptable key types for hash tables: * Acceptable key types for hash tables:
* *
* TCL_STRING_KEYS: The keys are strings, they are copied into * TCL_STRING_KEYS: The keys are strings, they are copied into t
* the entry. he
* entry.
* TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored
* in the entry. * in the entry.
* TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copie d * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copie d
* into the entry. * into the entry.
* TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary t ypes, the * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary t ypes, the
* pointer is stored in the entry. * pointer is stored in the entry.
* *
* While maintaining binary compatability the above have to be distinct * While maintaining binary compatability the above have to be distinct val
* values as they are used to differentiate between old versions of the ues
* hash table which don't have a typePtr and new ones which do. Once binary * as they are used to differentiate between old versions of the hash table
* compatability is discarded in favour of making more wide spread changes * which don't have a typePtr and new ones which do. Once binary compatabil
* TCL_STRING_KEYS can be the same as TCL_CUSTOM_TYPE_KEYS, and ity
* TCL_ONE_WORD_KEYS can be the same as TCL_CUSTOM_PTR_KEYS because they * is discarded in favour of making more wide spread changes TCL_STRING_KEY
* simply determine how the key is accessed from the entry and not the S
* behaviour. * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be th
e
* same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is
* accessed from the entry and not the behaviour.
*/ */
#define TCL_STRING_KEYS 0 #define TCL_STRING_KEYS 0
#define TCL_ONE_WORD_KEYS 1 #define TCL_ONE_WORD_KEYS 1
#define TCL_CUSTOM_TYPE_KEYS -2
#if TCL_PRESERVE_BINARY_COMPATABILITY #define TCL_CUSTOM_PTR_KEYS -1
# define TCL_CUSTOM_TYPE_KEYS -2
# define TCL_CUSTOM_PTR_KEYS -1
#else
# define TCL_CUSTOM_TYPE_KEYS TCL_STRING_KEYS
# define TCL_CUSTOM_PTR_KEYS TCL_ONE_WORD_KEYS
#endif
/* /*
* Macros for clients to use to access fields of hash entries: * Structure definition for information used to keep track of searches thro
ugh
* dictionaries. These fields should not be accessed by code outside
* tclDictObj.c
*/ */
#define Tcl_GetHashValue(h) ((h)->clientData) typedef struct {
#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) void *next; /* Search position for underlying ha
#if TCL_PRESERVE_BINARY_COMPATABILITY sh
# define Tcl_GetHashKey(tablePtr, h) \ * table. */
((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ int epoch; /* Epoch marker for dictionary being searche
(tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ d,
? (h)->key.oneWordValue \ * or -1 if search has terminated. */
: (h)->key.string)) Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. *
#else /
# define Tcl_GetHashKey(tablePtr, h) \ } Tcl_DictSearch;
((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS) \
? (h)->key.oneWordValue \
: (h)->key.string))
#endif
/*
* Macros to use for clients to use to invoke find and create procedures
* for hash tables:
*/
#if TCL_PRESERVE_BINARY_COMPATABILITY
# define Tcl_FindHashEntry(tablePtr, key) \
(*((tablePtr)->findProc))(tablePtr, key)
# define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
(*((tablePtr)->createProc))(tablePtr, key, newPtr)
#else /* !TCL_PRESERVE_BINARY_COMPATABILITY */
/* /*
* Macro to use new extended version of Tcl_InitHashTable. * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds
of
* events:
*/ */
# define Tcl_InitHashTable(tablePtr, keyType) \
Tcl_InitHashTableEx(tablePtr, keyType, NULL)
#endif /* TCL_PRESERVE_BINARY_COMPATABILITY */
/*
* Flag values to pass to Tcl_DoOneEvent to disable searches
* for some kinds of events:
*/
#define TCL_DONT_WAIT (1<<1) #define TCL_DONT_WAIT (1<<1)
#define TCL_WINDOW_EVENTS (1<<2) #define TCL_WINDOW_EVENTS (1<<2)
#define TCL_FILE_EVENTS (1<<3) #define TCL_FILE_EVENTS (1<<3)
#define TCL_TIMER_EVENTS (1<<4) #define TCL_TIMER_EVENTS (1<<4)
#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ #define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */
#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) #define TCL_ALL_EVENTS (~TCL_DONT_WAIT)
/* /*
* The following structure defines a generic event for the Tcl event * The following structure defines a generic event for the Tcl event system
* system. These are the things that are queued in calls to Tcl_QueueEvent .
* and serviced later by Tcl_DoOneEvent. There can be many different * These are the things that are queued in calls to Tcl_QueueEvent and
* kinds of events with different fields, corresponding to window events, * serviced later by Tcl_DoOneEvent. There can be many different kinds of
* timer events, etc. The structure for a particular event consists of * events with different fields, corresponding to window events, timer even
* a Tcl_Event header followed by additional information specific to that ts,
* event. * etc. The structure for a particular event consists of a Tcl_Event header
* followed by additional information specific to that event.
*/ */
struct Tcl_Event { struct Tcl_Event {
Tcl_EventProc *proc; /* Procedure to call to service this event. */ Tcl_EventProc *proc; /* Function 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
* an absolute time (the number of seconds from the epoch) or as an * absolute time (the number of seconds from the epoch) or as an elapsed ti
* elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. me.
* On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
*/ */
typedef struct Tcl_Time { typedef struct Tcl_Time {
long sec; /* Seconds. */ long sec; /* Seconds. */
long usec; /* Microseconds. */ long usec; /* Microseconds. */
} Tcl_Time; } Tcl_Time;
typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); typedef void (Tcl_SetTimerProc) _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 * TIP #233 (Virtualized Time)
* to indicate what sorts of events are of interest:
*/ */
typedef void (Tcl_GetTimeProc) _ANSI_ARGS_ ((Tcl_Time* timebuf, ClientDat
a clientData));
typedef void (Tcl_ScaleTimeProc) _ANSI_ARGS_ ((Tcl_Time* timebuf, ClientDat
a clientData));
/*
* Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to
* indicate what sorts of events are of interest:
*/
#define TCL_READABLE (1<<1) #define TCL_READABLE (1<<1)
#define TCL_WRITABLE (1<<2) #define TCL_WRITABLE (1<<2)
#define TCL_EXCEPTION (1<<3) #define TCL_EXCEPTION (1<<3)
/* /*
* Flag values to pass to Tcl_OpenCommandChannel to indicate the * Flag values to pass to Tcl_OpenCommandChannel to indicate the dispositio
* disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, n
* are also used in Tcl_GetStdChannel. * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used i
n
* 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
* close2Proc interface. * 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)
#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5)
/* /*
* 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:
skipping to change at line 1483 skipping to change at line 1413
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));
typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData,
long offset, int mode, int *errorCodePtr)); long offset, int mode, int *errorCodePtr));
typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_((
ClientData instanceData, Tcl_Interp *interp, ClientData instanceData, Tcl_Interp *interp,
CONST char *optionName, CONST char *value)); CONST char *optionName, CONST char *value));
typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_((
ClientData instanceData, Tcl_Interp *interp, ClientData instanceData, Tcl_Interp *interp,
CONST84 char *optionName, Tcl_DString *dsPtr)); CONST84 char *optionName, Tcl_DString *dsPtr));
typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_((
ClientData instanceData, int mask)); ClientData instanceData, int mask));
typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_((
ClientData instanceData, int direction, ClientData instanceData, int direction,
ClientData *handlePtr)); ClientData *handlePtr));
typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_(( typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_((ClientData instanceData))
ClientData instanceData)); ;
typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_((
ClientData instanceData, int interestMask)); ClientData instanceData, int interestMask));
typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_((
ClientData instanceData, Tcl_WideInt offset, ClientData instanceData, Tcl_WideInt offset,
int mode, int *errorCodePtr)); int mode, int *errorCodePtr));
/* TIP #218, Channel Thread Actions */
typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ ((
ClientData instanceData, int action));
/* /*
* The following declarations either map ckalloc and ckfree to * TIP #218, Channel Thread Actions
* malloc and free, or they map them to procedures with all sorts
* of debugging hooks defined in tclCkalloc.c.
*/ */
#ifdef TCL_MEM_DEBUG typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ ((
ClientData instanceData, int action));
# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__)
# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__)
# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__,
__LINE__)
#else /* !TCL_MEM_DEBUG */
/* /*
* If we are not using the debugging allocator, we should call the * TIP #208, File Truncation (etc.)
* Tcl_Alloc, et al. routines in order to guarantee that every module
* is using the same memory allocator both inside and outside of the
* Tcl library.
*/ */
# define ckalloc(x) Tcl_Alloc(x) typedef int (Tcl_DriverTruncateProc) _ANSI_ARGS_((
# define ckfree(x) Tcl_Free(x) ClientData instanceData, Tcl_WideInt length));
# define ckrealloc(x,y) Tcl_Realloc(x,y)
# define attemptckalloc(x) Tcl_AttemptAlloc(x)
# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y)
# define Tcl_InitMemory(x)
# define Tcl_DumpActiveMemory(x)
# define Tcl_ValidateAllMemory(x,y)
#endif /* !TCL_MEM_DEBUG */
/* /*
* 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
* It collects together in one place all the functions that are * together in one place all the functions that are part of the specific
* part of the specific channel type. * 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 eleme
* elements of this structure, instead of direct accessing. nts
* 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 char *typeName; /* The name of the channel type in Tcl
cl * commands. This storage is owned by channe
* commands. This storage is owned l
by * type. */
* channel type. */ Tcl_ChannelTypeVersion version;
Tcl_ChannelTypeVersion version; /* Version of the channel type. */ /* Version of the channel type. */
Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the Tcl_DriverCloseProc *closeProc;
* channel, or TCL_CLOSE2PROC if the /* Function to call to close the channel, or
* close2Proc should be used * TCL_CLOSE2PROC if the close2Proc should b
* instead. */ e
Tcl_DriverInputProc *inputProc; /* Procedure to call for input * used instead. */
* on channel. */ Tcl_DriverInputProc *inputProc;
Tcl_DriverOutputProc *outputProc; /* Procedure to call for output /* Function to call for input on channel. */
* on channel. */ Tcl_DriverOutputProc *outputProc;
Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek /* Function to call for output on channel. *
* on the channel. May be NULL. */ /
Tcl_DriverSeekProc *seekProc;
/* Function to call to seek on the channel.
* May be NULL. */
Tcl_DriverSetOptionProc *setOptionProc; Tcl_DriverSetOptionProc *setOptionProc;
/* Set an option on a channel. */ /* Set an option on a channel. */
Tcl_DriverGetOptionProc *getOptionProc; Tcl_DriverGetOptionProc *getOptionProc;
/* Get an option from a channel. */ /* Get an option from a channel. */
Tcl_DriverWatchProc *watchProc; /* Set up the notifier to watch Tcl_DriverWatchProc *watchProc;
* for events on this channel. */ /* Set up the notifier to watch for events o
n
* this channel. */
Tcl_DriverGetHandleProc *getHandleProc; Tcl_DriverGetHandleProc *getHandleProc;
/* Get an OS handle from the channel /* Get an OS handle from the channel or NULL
* or NULL if not supported. */ * if not supported. */
Tcl_DriverClose2Proc *close2Proc; /* Procedure to call to close the Tcl_DriverClose2Proc *close2Proc;
* channel if the device supports /* Function to call to close the channel if
* closing the read & write sides * the device supports closing the read &
* independently. */ * write sides independently. */
Tcl_DriverBlockModeProc *blockModeProc; Tcl_DriverBlockModeProc *blockModeProc;
/* Set blocking mode for the /* Set blocking mode for the raw channel. Ma
* raw channel. May be NULL. */ y
* be NULL. */
/* /*
* Only valid in TCL_CHANNEL_VERSION_2 channels or later * Only valid in TCL_CHANNEL_VERSION_2 channels or later
*/ */
Tcl_DriverFlushProc *flushProc; /* Procedure to call to flush a Tcl_DriverFlushProc *flushProc;
* channel. May be NULL. */ /* Function to call to flush a channel. May
Tcl_DriverHandlerProc *handlerProc; /* Procedure to call to hand be
le a * NULL. */
* channel event. This will be pass Tcl_DriverHandlerProc *handlerProc;
ed /* Function to call to handle a channel even
* up the stacked channel chain. */ t.
* This will be passed up the stacked channe
l
* chain. */
/* /*
* Only valid in TCL_CHANNEL_VERSION_3 channels or later * Only valid in TCL_CHANNEL_VERSION_3 channels or later
*/ */
Tcl_DriverWideSeekProc *wideSeekProc; Tcl_DriverWideSeekProc *wideSeekProc;
/* Procedure to call to seek /* Function to call to seek on the channel
* on the channel which can * which can handle 64-bit offsets. May be
* handle 64-bit offsets. May be * NULL, and must be NULL if seekProc is
* NULL, and must be NULL if * NULL. */
* seekProc is NULL. */ /*
* Only valid in TCL_CHANNEL_VERSION_4 channels or later
/* * TIP #218, Channel Thread Actions
* Only valid in TCL_CHANNEL_VERSION_4 channels or later */
* TIP #218, Channel Thread Actions Tcl_DriverThreadActionProc *threadActionProc;
*/ /* Function to call to notify the driver of
Tcl_DriverThreadActionProc *threadActionProc; * thread specific activity for a channel. M
/* Procedure to call to notify ay
* the driver of thread specific * be NULL. */
* activity for a channel.
* May be NULL. */ /*
* Only valid in TCL_CHANNEL_VERSION_5 channels or later
* TIP #208, File Truncation
*/
Tcl_DriverTruncateProc *truncateProc;
/* Function to call to truncate the underlyi
ng
* file to a particular length. May be NULL
if
* the channel does not support truncation.
*/
} Tcl_ChannelType; } Tcl_ChannelType;
/* /*
* The following flags determine whether the blockModeProc above should * The following flags determine whether the blockModeProc above should set
* set the channel into blocking or nonblocking mode. They are passed * the channel into blocking or nonblocking mode. They are passed as argume
* as arguments to the blockModeProc procedure in the above structure. nts
* to the blockModeProc function in the above structure.
*/ */
#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. * / #define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. * /
#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking #define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking
* mode. */ * mode. */
/* /*
* Enum for different types of file paths. * Enum for different types of file paths.
*/ */
typedef enum Tcl_PathType { typedef enum Tcl_PathType {
TCL_PATH_ABSOLUTE, TCL_PATH_ABSOLUTE,
TCL_PATH_RELATIVE, TCL_PATH_RELATIVE,
TCL_PATH_VOLUME_RELATIVE TCL_PATH_VOLUME_RELATIVE
} Tcl_PathType; } Tcl_PathType;
/* /*
* The following structure is used to pass glob type data amongst * The following structure is used to pass glob type data amongst the vario
* the various glob routines and Tcl_FSMatchInDirectory. us
* glob routines and Tcl_FSMatchInDirectory.
*/ */
typedef struct Tcl_GlobTypeData { typedef struct Tcl_GlobTypeData {
/* Corresponds to bcdpfls as in 'find -t' */ int type; /* Corresponds to bcdpfls as in 'find -t' */
int type; int perm; /* Corresponds to file permissions */
/* Corresponds to file permissions */ Tcl_Obj *macType; /* Acceptable mac type */
int perm; Tcl_Obj *macCreator; /* Acceptable mac creator */
/* Acceptable mac type */
Tcl_Obj* macType;
/* Acceptable mac creator */
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)
/* /*
* Flags for the unload callback function
*/
#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0)
#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1)
/*
* Typedefs for the various filesystem operations: * Typedefs for the various filesystem operations:
*/ */
typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *bu 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_((
_ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr, 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));
typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_StatBuf *buf)); Tcl_StatBuf *buf));
typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr));
typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr)); Tcl_Obj *destPathPtr));
typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
int recursive, Tcl_Obj **errorPtr)); int recursive, Tcl_Obj **errorPtr));
typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr)); Tcl_Obj *destPathPtr));
typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle) ); typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle) );
typedef Tcl_Obj* (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); typedef Tcl_Obj* (Tcl_FSListVolumesProc) _ANSI_ARGS_((void));
/* We have to declare the utime structure here. */ /* We have to declare the utime structure here. */
struct utimbuf; struct utimbuf;
typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
struct utimbuf *tval)); struct utimbuf *tval));
typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj *pathPtr, int nextCheckpoint)); Tcl_Obj *pathPtr, int nextCheckpoint));
typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp,
int index, Tcl_Obj *pathPtr, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef));
Tcl_Obj **objPtrRef)); typedef CONST char** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_((
typedef CONST char** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_((Tcl_Obj *path Tcl_Obj *pathPtr, Tcl_Obj** objPtrRef));
Ptr,
Tcl_Obj** objPtrRef));
typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp,
int index, Tcl_Obj *pathPtr, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr));
Tcl_Obj *objPtr));
typedef Tcl_Obj* (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef Tcl_Obj* (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_Obj *toPtr, int linkType) ); Tcl_Obj *toPtr, int linkType));
typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj *pathPtr, Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr,
Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr));
Tcl_FSUnloadFileProc **unloadProcPtr));
typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
ClientData *clientDataPtr)); ClientData *clientDataPtr));
typedef Tcl_Obj* (Tcl_FSFilesystemPathTypeProc) typedef Tcl_Obj* (Tcl_FSFilesystemPathTypeProc) _ANSI_ARGS_((
_ANSI_ARGS_((Tcl_Obj *pathPtr)); Tcl_Obj *pathPtr));
typedef Tcl_Obj* (Tcl_FSFilesystemSeparatorProc) typedef Tcl_Obj* (Tcl_FSFilesystemSeparatorProc) _ANSI_ARGS_((
_ANSI_ARGS_((Tcl_Obj *pathPtr)); Tcl_Obj *pathPtr));
typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData )); typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData ));
typedef ClientData (Tcl_FSDupInternalRepProc) typedef ClientData (Tcl_FSDupInternalRepProc) _ANSI_ARGS_((
_ANSI_ARGS_((ClientData clientData)); ClientData clientData));
typedef Tcl_Obj* (Tcl_FSInternalToNormalizedProc) typedef Tcl_Obj* (Tcl_FSInternalToNormalizedProc) _ANSI_ARGS_((
_ANSI_ARGS_((ClientData clientData)); ClientData clientData));
typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_((Tcl_Obj *path typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_((
Ptr)); Tcl_Obj *pathPtr));
typedef struct Tcl_FSVersion_ *Tcl_FSVersion; typedef struct Tcl_FSVersion_ *Tcl_FSVersion;
/* /*
*---------------------------------------------------------------- *----------------------------------------------------------------
* Data structures related to hooking into the filesystem * Data structures related to hooking into the filesystem
*---------------------------------------------------------------- *----------------------------------------------------------------
*/ */
/* /*
* Filesystem version tag. This was introduced in 8.4. * Filesystem version tag. This was introduced in 8.4.
*/ */
#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) #define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1)
/* /*
* struct Tcl_Filesystem: * struct Tcl_Filesystem:
* *
* One such structure exists for each type (kind) of filesystem. * One such structure exists for each type (kind) of filesystem. It collect
* It collects together in one place all the functions that are s
* part of the specific filesystem. Tcl always accesses the * together in one place all the functions that are part of the specific
* filesystem through one of these structures. * filesystem. Tcl always accesses the filesystem through one of these
* * structures.
* Not all entries need be non-NULL; any which are NULL are simply *
* ignored. However, a complete filesystem should provide all of * Not all entries need be non-NULL; any which are NULL are simply ignored.
* these functions. The explanations in the structure show * However, a complete filesystem should provide all of these functions. Th
* the importance of each function. e
* explanations in the structure show the importance of each function.
*/ */
typedef struct Tcl_Filesystem { typedef struct Tcl_Filesystem {
CONST char *typeName; /* The name of the filesystem. */ CONST char *typeName; /* The name of the filesystem. */
int structureLength; /* Length of this structure, so future int structureLength; /* Length of this structure, so future binar
* binary compatibility can be assured. */ y
Tcl_FSVersion version; * compatibility can be assured. */
/* Version of the filesystem type. */ Tcl_FSVersion version; /* Version of the filesystem type. */
Tcl_FSPathInFilesystemProc *pathInFilesystemProc; Tcl_FSPathInFilesystemProc *pathInFilesystemProc;
/* Function to check whether a path is in /* Function to check whether a path is in th
* this filesystem. This is the most is
* important filesystem procedure. */ * filesystem. This is the most important
* filesystem function. */
Tcl_FSDupInternalRepProc *dupInternalRepProc; Tcl_FSDupInternalRepProc *dupInternalRepProc;
/* Function to duplicate internal fs rep. May /* Function to duplicate internal fs rep. Ma
* be NULL (but then fs is less efficient). */ y
* be NULL (but then fs is less efficient).
*/
Tcl_FSFreeInternalRepProc *freeInternalRepProc; Tcl_FSFreeInternalRepProc *freeInternalRepProc;
/* Function to free internal fs rep. Must /* Function to free internal fs rep. Must be
* be implemented, if internal representations * implemented if internal representations
* need freeing, otherwise it can be NULL. */ * need freeing, otherwise it can be NULL. *
/
Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; Tcl_FSInternalToNormalizedProc *internalToNormalizedProc;
/* Function to convert internal representation /* Function to convert internal representati
* to a normalized path. Only required if on
* the fs creates pure path objects with no * to a normalized path. Only required if th
* string/path representation. */ e
* fs creates pure path objects with no
* string/path representation. */
Tcl_FSCreateInternalRepProc *createInternalRepProc; Tcl_FSCreateInternalRepProc *createInternalRepProc;
/* Function to create a filesystem-specific /* Function to create a filesystem-specific
* internal representation. May be NULL * internal representation. May be NULL if
* if paths have no internal representation, * paths have no internal representation, or
* or if the Tcl_FSPathInFilesystemProc * if the Tcl_FSPathInFilesystemProc for thi
* for this filesystem always immediately s
* creates an internal representation for * filesystem always immediately creates an
* paths it accepts. */ * internal representation for paths it
* accepts. */
Tcl_FSNormalizePathProc *normalizePathProc; Tcl_FSNormalizePathProc *normalizePathProc;
/* Function to normalize a path. Should /* Function to normalize a path. Should be
* be implemented for all filesystems * implemented for all filesystems which can
* which can have multiple string * have multiple string representations for
* representations for the same path * the same path object. */
* object. */
Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc;
/* Function to determine the type of a /* Function to determine the type of a path
* path in this filesystem. May be NULL. */ in
* this filesystem. May be NULL. */
Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc;
/* Function to return the separator /* Function to return the separator
* character(s) for this filesystem. Must * character(s) for this filesystem. Must be
* be implemented. */ * implemented. */
Tcl_FSStatProc *statProc; Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call
/* .
* Function to process a 'Tcl_FSStat()' * Must be implemented for any reasonable
* call. Must be implemented for any * filesystem. */
* reasonable filesystem.
*/
Tcl_FSAccessProc *accessProc; Tcl_FSAccessProc *accessProc;
/* /* Function to process a 'Tcl_FSAccess()'
* Function to process a 'Tcl_FSAccess()' * call. Must be implemented for any
* call. Must be implemented for any * reasonable filesystem. */
* reasonable filesystem.
*/
Tcl_FSOpenFileChannelProc *openFileChannelProc; Tcl_FSOpenFileChannelProc *openFileChannelProc;
/* /* Function to process a
* Function to process a * 'Tcl_FSOpenFileChannel()' call. Must be
* 'Tcl_FSOpenFileChannel()' call. Must be * implemented for any reasonable
* implemented for any reasonable * filesystem. */
* filesystem.
*/
Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; Tcl_FSMatchInDirectoryProc *matchInDirectoryProc;
/* Function to process a /* Function to process a
* 'Tcl_FSMatchInDirectory()'. If not * 'Tcl_FSMatchInDirectory()'. If not
* implemented, then glob and recursive * implemented, then glob and recursive copy
* copy functionality will be lacking in * functionality will be lacking in the
* the filesystem. */ * filesystem. */
Tcl_FSUtimeProc *utimeProc; Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtim
/* Function to process a e()' call.
* 'Tcl_FSUtime()' call. Required to * Required to allow setting (not reading) o
* allow setting (not reading) of times f
* with 'file mtime', 'file atime' and * times with 'file mtime', 'file atime' and
* the open-r/open-w/fcopy implementation * the open-r/open-w/fcopy implementation of
* of 'file copy'. */ * 'file copy'. */
Tcl_FSLinkProc *linkProc; Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call
/* Function to process a .
* 'Tcl_FSLink()' call. Should be * Should be implemented only if the
* implemented only if the filesystem supports * filesystem supports links (reading or
* links (reading or creating). */ * creating). */
Tcl_FSListVolumesProc *listVolumesProc; Tcl_FSListVolumesProc *listVolumesProc;
/* Function to list any filesystem volumes /* Function to list any filesystem volumes
* added by this filesystem. Should be * added by this filesystem. Should be
* implemented only if the filesystem adds * implemented only if the filesystem adds
* volumes at the head of the filesystem. */ * volumes at the head of the filesystem. */
Tcl_FSFileAttrStringsProc *fileAttrStringsProc; Tcl_FSFileAttrStringsProc *fileAttrStringsProc;
/* Function to list all attributes strings /* Function to list all attributes strings
* which are valid for this filesystem. * which are valid for this filesystem. If n
* If not implemented the filesystem will ot
* not support the 'file attributes' command. * implemented the filesystem will not suppo
* This allows arbitrary additional information rt
* to be attached to files in the filesystem. */ * the 'file attributes' command. This allow
s
* arbitrary additional information to be
* attached to files in the filesystem. */
Tcl_FSFileAttrsGetProc *fileAttrsGetProc; Tcl_FSFileAttrsGetProc *fileAttrsGetProc;
/* Function to process a /* Function to process a
* 'Tcl_FSFileAttrsGet()' call, used by * 'Tcl_FSFileAttrsGet()' call, used by 'fil
* 'file attributes'. */ e
* attributes'. */
Tcl_FSFileAttrsSetProc *fileAttrsSetProc; Tcl_FSFileAttrsSetProc *fileAttrsSetProc;
/* Function to process a /* Function to process a
* 'Tcl_FSFileAttrsSet()' call, used by * 'Tcl_FSFileAttrsSet()' call, used by 'fil
* 'file attributes'. */ e
* attributes'. */
Tcl_FSCreateDirectoryProc *createDirectoryProc; Tcl_FSCreateDirectoryProc *createDirectoryProc;
/* Function to process a /* Function to process a
* 'Tcl_FSCreateDirectory()' call. Should * 'Tcl_FSCreateDirectory()' call. Should be
* be implemented unless the FS is * implemented unless the FS is read-only. *
* read-only. */ /
Tcl_FSRemoveDirectoryProc *removeDirectoryProc; Tcl_FSRemoveDirectoryProc *removeDirectoryProc;
/* Function to process a /* Function to process a
* 'Tcl_FSRemoveDirectory()' call. Should * 'Tcl_FSRemoveDirectory()' call. Should be
* be implemented unless the FS is * implemented unless the FS is read-only. *
* read-only. */ /
Tcl_FSDeleteFileProc *deleteFileProc; Tcl_FSDeleteFileProc *deleteFileProc;
/* Function to process a /* Function to process a 'Tcl_FSDeleteFile()
* 'Tcl_FSDeleteFile()' call. Should '
* be implemented unless the FS is * call. Should be implemented unless the FS
* read-only. */ * is read-only. */
Tcl_FSCopyFileProc *copyFileProc; Tcl_FSCopyFileProc *copyFileProc;
/* Function to process a /* Function to process a 'Tcl_FSCopyFile()'
* 'Tcl_FSCopyFile()' call. If not * call. If not implemented Tcl will fall ba
* implemented Tcl will fall back ck
* on open-r, open-w and fcopy as * on open-r, open-w and fcopy as a copying
* a copying mechanism, for copying * mechanism, for copying actions initiated
* actions initiated in Tcl (not C). */ in
* Tcl (not C). */
Tcl_FSRenameFileProc *renameFileProc; Tcl_FSRenameFileProc *renameFileProc;
/* Function to process a /* Function to process a 'Tcl_FSRenameFile()
* 'Tcl_FSRenameFile()' call. If not '
* implemented, Tcl will fall back on * call. If not implemented, Tcl will fall
* a copy and delete mechanism, for * back on a copy and delete mechanism, for
* rename actions initiated in Tcl (not C). */ * rename actions initiated in Tcl (not C).
*/
Tcl_FSCopyDirectoryProc *copyDirectoryProc; Tcl_FSCopyDirectoryProc *copyDirectoryProc;
/* Function to process a /* Function to process a
* 'Tcl_FSCopyDirectory()' call. If * 'Tcl_FSCopyDirectory()' call. If not
* not implemented, Tcl will fall back * implemented, Tcl will fall back on a
* on a recursive create-dir, file copy * recursive create-dir, file copy mechanism
* mechanism, for copying actions ,
* initiated in Tcl (not C). */ * for copying actions initiated in Tcl (not
Tcl_FSLstatProc *lstatProc; * C). */
/* Function to process a Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLsta
* 'Tcl_FSLstat()' call. If not implemented, t()' call.
* Tcl will attempt to use the 'statProc' * If not implemented, Tcl will attempt to u
* defined above instead. */ se
* the 'statProc' defined above instead. */
Tcl_FSLoadFileProc *loadFileProc; Tcl_FSLoadFileProc *loadFileProc;
/* Function to process a /* Function to process a 'Tcl_FSLoadFile()'
* 'Tcl_FSLoadFile()' call. If not * call. If not implemented, Tcl will fall
* implemented, Tcl will fall back on * back on a copy to native-temp followed by
* a copy to native-temp followed by a a
* Tcl_FSLoadFile on that temporary copy. */ * Tcl_FSLoadFile on that temporary copy. */
Tcl_FSGetCwdProc *getCwdProc; Tcl_FSGetCwdProc *getCwdProc;
/* /* Function to process a 'Tcl_FSGetCwd()'
* Function to process a 'Tcl_FSGetCwd()' * call. Most filesystems need not implement
* call. Most filesystems need not * this. It will usually only be called once
* implement this. It will usually only be ,
* called once, if 'getcwd' is called * if 'getcwd' is called before 'chdir'. May
* before 'chdir'. May be NULL. * be NULL. */
*/ Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdi
Tcl_FSChdirProc *chdirProc; r()' call.
/* * If filesystems do not implement this, it
* Function to process a 'Tcl_FSChdir()' * will be emulated by a series of directory
* call. If filesystems do not implement * access checks. Otherwise, virtual
* this, it will be emulated by a series of * filesystems which do implement it need on
* directory access checks. Otherwise, ly
* virtual filesystems which do implement * respond with a positive return result if
* it need only respond with a positive * the dirName is a valid directory in their
* return result if the dirName is a valid * filesystem. They need not remember the
* directory in their filesystem. They * result, since that will be automatically
* need not remember the result, since that * remembered for use by GetCwd. Real
* will be automatically remembered for use * filesystems should carry out the correct
* by GetCwd. Real filesystems should * action (i.e. call the correct system
* carry out the correct action (i.e. call * 'chdir' api). If not implemented, then 'c
* the correct system 'chdir' api). If not d'
* implemented, then 'cd' and 'pwd' will * and 'pwd' will fail inside the
* fail inside the filesystem. * filesystem. */
*/
} Tcl_Filesystem; } Tcl_Filesystem;
/* /*
* The following definitions are used as values for the 'linkAction' flag * The following definitions are used as values for the 'linkAction' flag t
* to Tcl_FSLink, or the linkProc of any filesystem. Any combination o
* of flags can be given. For link creation, the linkProc should create * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags
* a link which matches any of the types given. can
* be given. For link creation, the linkProc should create 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
* you can override with the Tcl_SetNotifier call. * override with the Tcl_SetNotifier call.
*/ */
typedef struct Tcl_NotifierProcs { typedef struct Tcl_NotifierProcs {
Tcl_SetTimerProc *setTimerProc; Tcl_SetTimerProc *setTimerProc;
Tcl_WaitForEventProc *waitForEventProc; Tcl_WaitForEventProc *waitForEventProc;
Tcl_CreateFileHandlerProc *createFileHandlerProc; Tcl_CreateFileHandlerProc *createFileHandlerProc;
Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; Tcl_DeleteFileHandlerProc *deleteFileHandlerProc;
Tcl_InitNotifierProc *initNotifierProc; Tcl_InitNotifierProc *initNotifierProc;
Tcl_FinalizeNotifierProc *finalizeNotifierProc; Tcl_FinalizeNotifierProc *finalizeNotifierProc;
Tcl_AlertNotifierProc *alertNotifierProc; Tcl_AlertNotifierProc *alertNotifierProc;
Tcl_ServiceModeHookProc *serviceModeHookProc; Tcl_ServiceModeHookProc *serviceModeHookProc;
} Tcl_NotifierProcs; } Tcl_NotifierProcs;
/* /*
* The following structure represents a user-defined encoding. It collects * 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 /* Function to convert from external encodin
* encoding into UTF-8. */ g
* into UTF-8. */
Tcl_EncodingConvertProc *fromUtfProc; Tcl_EncodingConvertProc *fromUtfProc;
/* Procedure to convert from UTF-8 into /* Function to convert from UTF-8 into
* external encoding. */ * external encoding. */
Tcl_EncodingFreeProc *freeProc; Tcl_EncodingFreeProc *freeProc;
/* If non-NULL, procedure to call when this /* If non-NULL, function to call when this
* encoding is deleted. */ * encoding is deleted. */
ClientData clientData; /* Arbitrary value associated with encoding ClientData clientData; /* Arbitrary value associated with encoding
* type. Passed to conversion procedures. * / * type. Passed to conversion functions. */
int nullSize; /* Number of zero bytes that signify int nullSize; /* Number of zero bytes that signify
* end-of-string in this encoding. This * end-of-string in this encoding. This numb
* number is used to determine the source er
* string length when the srcLen argument is * is used to determine the source string
* negative. Must be 1 or 2. */ * length when the srcLen argument is
* negative. Must be 1 or 2. */
} Tcl_EncodingType; } Tcl_EncodingType;
/* /*
* The following definitions are used as values for the conversion control * The following definitions are used as values for the conversion control
* flags argument when converting text from one character set to another: * flags argument when converting text from one character set to another:
* *
* TCL_ENCODING_START: Signifies that the source buffer is the firs t * TCL_ENCODING_START - Signifies that the source buffer is the first
* block in a (potentially multi-block) input * block in a (potentially multi-block) input
* stream. Tells the conversion procedure to * stream. Tells the conversion function to res
* reset to an initial state and perform any et
* to an initial state and perform any
* initialization that needs to occur before th e * initialization that needs to occur before th e
* first byte is converted. If the source * first byte is converted. If the source buffe
* buffer contains the entire input stream to b r
e * contains the entire input stream to be
* converted, this flag should be set. * converted, this flag should be set.
* * TCL_ENCODING_END - Signifies that the source buffer is the last
* TCL_ENCODING_END: Signifies that the source buffer is the last
* block in a (potentially multi-block) input * block in a (potentially multi-block) input
* stream. Tells the conversion routine to * stream. Tells the conversion routine to
* perform any finalization that needs to occur * perform any finalization that needs to occur
* after the last byte is converted and then to * after the last byte is converted and then to
* reset to an initial state. If the source * reset to an initial state. If the source
* buffer contains the entire input stream to b e * buffer contains the entire input stream to b e
* converted, this flag should be set. * converted, this flag should be set.
* * TCL_ENCODING_STOPONERROR - If set, then the converter will return
* TCL_ENCODING_STOPONERROR: If set, then the converter will return * immediately upon encountering an invalid byt
* immediately upon encountering an invalid e
* byte sequence or a source character that has * sequence or a source character that has no
* no mapping in the target encoding. If clear * mapping in the target encoding. If clear, th
, en
* then the converter will skip the problem, * the converter will skip the problem,
* substituting one or more "close" characters * substituting one or more "close" characters
* in the destination buffer and then continue in
* to sonvert the source. * the destination buffer and then continue to
* convert the source.
*/ */
#define TCL_ENCODING_START 0x01 #define TCL_ENCODING_START 0x01
#define TCL_ENCODING_END 0x02 #define TCL_ENCODING_END 0x02
#define TCL_ENCODING_STOPONERROR 0x04 #define TCL_ENCODING_STOPONERROR 0x04
/* /*
* The following data structures and declarations are for the new Tcl * The following data structures and declarations are for the new Tcl parse
* parser. r.
*/ */
/* /*
* 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 varia
* variable reference, one of the following structures is created to ble
* describe the token. * reference, one of the following structures is created to 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; se
* see below for valid types. */ e
* 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
* tokens, this field tells how many of ,
* them there are (including components of * this field tells how many of them there a
* components, etc.). The component tokens re
* immediately follow this one. */ * (including components of components, etc.
).
* The component tokens immediately follow
* this one. */
} Tcl_Token; } Tcl_Token;
/* /*
* Type values defined for Tcl_Token structures. These values are * Type values defined for Tcl_Token structures. These values are defined a
* defined as mask bits so that it's easy to check for collections of s
* types. * mask bits so that it's easy to check for collections of types.
* *
* TCL_TOKEN_WORD - The token describes one word of a command, * TCL_TOKEN_WORD - The token describes one word of a command,
* from the first non-blank character of * from the first non-blank character of the wo
* the word (which may be " or {) up to but rd
* not including the space, semicolon, or * (which may be " or {) up to but not includin
* bracket that terminates the word. g
* NumComponents counts the total number of * the space, semicolon, or bracket that
* sub-tokens that make up the word. This * terminates the word. NumComponents counts th
* includes, for example, sub-tokens of e
* TCL_TOKEN_VARIABLE tokens. * total number of sub-tokens that make up the
* TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD * word. This includes, for example, sub-tokens
* except that the word is guaranteed to * of TCL_TOKEN_VARIABLE tokens.
* consist of a single TCL_TOKEN_TEXT * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD excep
* sub-token. t
* TCL_TOKEN_TEXT - The token describes a range of literal * that the word is guaranteed to consist of a
* text that is part of a word. * single TCL_TOKEN_TEXT sub-token.
* NumComponents is always 0. * TCL_TOKEN_TEXT - The token describes a range of literal text
* TCL_TOKEN_BS - The token describes a backslash sequence * that is part of a word. NumComponents is
* that must be collapsed. NumComponents * always 0.
* is always 0. * TCL_TOKEN_BS - The token describes a backslash sequence tha
t
* must be collapsed. NumComponents is always 0
.
* TCL_TOKEN_COMMAND - The token describes a command whose result * TCL_TOKEN_COMMAND - The token describes a command whose result
* must be substituted into the word. The * must be substituted into the word. The token
* token includes the enclosing brackets. * includes the enclosing brackets. NumComponen
* NumComponents is always 0. ts
* TCL_TOKEN_VARIABLE - The token describes a variable * is always 0.
* substitution, including the dollar sign, * TCL_TOKEN_VARIABLE - The token describes a variable subst
* variable name, and array index (if there itution,
* is one) up through the right * including the dollar sign, variable name, an
* parentheses. NumComponents tells how d
* many additional tokens follow to * array index (if there is one) up through the
* represent the variable name. The first * right parentheses. NumComponents tells how
* token will be a TCL_TOKEN_TEXT token * many additional tokens follow to represent t
* that describes the variable name. If he
* the variable is an array reference then * variable name. The first token will be a
* there will be one or more additional * TCL_TOKEN_TEXT token that describes the
* tokens, of type TCL_TOKEN_TEXT, * variable name. If the variable is an array
* reference then there will be one or more
* additional tokens, of type TCL_TOKEN_TEXT,
* TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and
* TCL_TOKEN_VARIABLE, that describe the * TCL_TOKEN_VARIABLE, that describe the array
* array index; numComponents counts the * index; numComponents counts the total number
* total number of nested tokens that make * of nested tokens that make up the variable
* up the variable reference, including * reference, including sub-tokens of
* sub-tokens of TCL_TOKEN_VARIABLE tokens. * TCL_TOKEN_VARIABLE tokens.
* TCL_TOKEN_SUB_EXPR - The token describes one subexpressio * TCL_TOKEN_SUB_EXPR - The token describes one subexpressio
n of a n of an
* expression, from the first non-blank * expression, from the first non-blank charact
* character of the subexpression up to but not er
* including the space, brace, or bracket * of the subexpression up to but not including
* that terminates the subexpression. * the space, brace, or bracket that terminates
* NumComponents counts the total number of * the subexpression. NumComponents counts the
* following subtokens that make up the * total number of following subtokens that mak
* subexpression; this includes all subtokens e
* for any nested TCL_TOKEN_SUB_EXPR tokens. * up the subexpression; this includes all
* For example, a numeric value used as a * subtokens for any nested TCL_TOKEN_SUB_EXPR
* tokens. For example, a numeric value used as
a
* primitive operand is described by a * primitive operand is described by a
* TCL_TOKEN_SUB_EXPR token followed by a * TCL_TOKEN_SUB_EXPR token followed by a
* TCL_TOKEN_TEXT token. A binary subexpression * TCL_TOKEN_TEXT token. A binary subexpression
* is described by a TCL_TOKEN_SUB_EXPR token * is described by a TCL_TOKEN_SUB_EXPR token
* followed by the TCL_TOKEN_OPERATOR token * followed by the TCL_TOKEN_OPERATOR token for
* for the operator, then TCL_TOKEN_SUB_EXPR * the operator, then TCL_TOKEN_SUB_EXPR tokens
* tokens for the left then the right operands. * for the left then the right operands.
* TCL_TOKEN_OPERATOR - The token describes one expression o perator. * TCL_TOKEN_OPERATOR - The token describes one expression o perator.
* An operator might be the name of a math * An operator might be the name of a math
* function such as "abs". A TCL_TOKEN_OPERATOR * function such as "abs". A TCL_TOKEN_OPERATOR
* token is always preceeded by one * token is always preceeded by one
* TCL_TOKEN_SUB_EXPR token for the operator's * TCL_TOKEN_SUB_EXPR token for the operator's
* subexpression, and is followed by zero or * subexpression, and is followed by zero or mo
* more TCL_TOKEN_SUB_EXPR tokens for the re
* operator's operands. NumComponents is * TCL_TOKEN_SUB_EXPR tokens for the operator's
* always 0. * operands. NumComponents is always 0.
* TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD excep
t
* that it marks a word that began with the
* literal character prefix "{*}". This word is
* marked to be expanded - that is, broken into
* words after substitution is complete.
*/ */
#define TCL_TOKEN_WORD 1 #define TCL_TOKEN_WORD 1
#define TCL_TOKEN_SIMPLE_WORD 2 #define TCL_TOKEN_SIMPLE_WORD 2
#define TCL_TOKEN_TEXT 4 #define TCL_TOKEN_TEXT 4
#define TCL_TOKEN_BS 8 #define TCL_TOKEN_BS 8
#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
#define TCL_TOKEN_EXPAND_WORD 256
/* /*
* Parsing error types. On any parsing error, one of these values * Parsing error types. On any parsing error, one of these values will be
* will be stored in the error field of the Tcl_Parse structure * 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
* It describes a single command parsed from an input string. * describes a single command parsed from an input string.
*/ */
#define NUM_STATIC_TOKENS 20 #define NUM_STATIC_TOKENS 20
typedef struct Tcl_Parse { typedef struct Tcl_Parse {
CONST char *commentStart; /* Pointer to # that begins the first of CONST char *commentStart; /* Pointer to # that begins the first of one
* one or more comments preceding the * 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 las
* last comment). If there were no t
* comments, this field is 0. */ * comment). If there were no comments, this
CONST char *commandStart; /* First character in first word of command. * field is 0. */
*/ CONST char *commandStart; /* First character in first word of
int commandSize; /* Number of bytes in command, including * command. */
* first character of first word, up int commandSize; /* Number of bytes in command, including fir
* through the terminating newline, st
* close bracket, or semicolon. */ * character of first word, up through the
int numWords; /* Total number of words in command. May * terminating newline, close bracket, or
* be 0. */ * semicolon. */
Tcl_Token *tokenPtr; /* Pointer to first token representing int numWords; /* Total number of words in command. May be
* the words of the command. Initially * 0. */
* points to staticTokens, but may change Tcl_Token *tokenPtr; /* Pointer to first token representing the
* to point to malloc-ed space if command * words of the command. Initially points to
* exceeds space in staticTokens. */ * staticTokens, but may change to point to
* malloc-ed space if command exceeds space
in
* staticTokens. */
int numTokens; /* Total number of tokens in command. */ int numTokens; /* Total number of tokens in command. */
int tokensAvailable; /* Total number of tokens available at int tokensAvailable; /* Total number of tokens available at
* *tokenPtr. */ * *tokenPtr. */
int errorType; /* One of the parsing error types defined int errorType; /* One of the parsing error types defined
* above. */ * above. */
/* /*
* The fields below are intended only for the private use of the * The fields below are intended only for the private use of the parser
* parser. They should not be used by procedures that invoke .
* Tcl_ParseCommand. * They should not be used by functions that invoke Tcl_ParseCommand.
*/ */
CONST char *string; /* The original command string passe d to CONST char *string; /* The original command string passe d to
* Tcl_ParseCommand. */ * Tcl_ParseCommand. */
CONST char *end; /* Points to the character just after the CONST char *end; /* Points to the character just after the la
* last one in the command string. */ st
Tcl_Interp *interp; /* Interpreter to use for error repo * one in the command string. */
rting, Tcl_Interp *interp; /* Interpreter to use for error repo
* or NULL. */ rting, or
* NULL. */
CONST char *term; /* Points to character in string that CONST char *term; /* Points to character in string that
* terminated most recent token. Filled in * terminated most recent token. Filled in b
* by ParseTokens. If an error occurs, y
* points to beginning of region where the * ParseTokens. If an error occurs, points t
* error occurred (e.g. the open brace if o
* the close brace is missing). */ * beginning of region where the error
* occurred (e.g. the open brace if the clos
e
* brace is missing). */
int incomplete; /* This field is set to 1 by Tcl_ParseComman d int incomplete; /* This field is set to 1 by Tcl_ParseComman d
* if the command appears to be incomplete. * if the command appears to be incomplete.
* This information is used by * This information is used by
* Tcl_CommandComplete. */ * Tcl_CommandComplete. */
Tcl_Token staticTokens[NUM_STATIC_TOKENS]; Tcl_Token staticTokens[NUM_STATIC_TOKENS];
/* Initial space for tokens for command. /* Initial space for tokens for command. Thi
* This space should be large enough to s
* accommodate most commands; dynamic * space should be large enough to accommoda
* space is allocated for very large te
* commands that don't fit here. */ * most commands; dynamic space is allocated
* for very large commands that don't fit
* here. */
} Tcl_Parse; } Tcl_Parse;
/* /*
* The following definitions are the error codes returned by the conversion * The following definitions are the error codes returned by the conversion
* routines: * routines:
* *
* TCL_OK: All characters were converted. * TCL_OK - All characters were converted.
* * TCL_CONVERT_NOSPACE - The output buffer would not have been large
* TCL_CONVERT_NOSPACE: The output buffer would not have bee
n large
* enough for all of the converted data; as man y * enough for all of the converted data; as man y
* characters as could fit were converted thoug h. * characters as could fit were converted thoug h.
* * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were
* TCL_CONVERT_MULTIBYTE: The last few bytes in the source string were
* the beginning of a multibyte sequence, but * the beginning of a multibyte sequence, but
* more bytes were needed to complete this * more bytes were needed to complete this
* sequence. A subsequent call to the conversi on * sequence. A subsequent call to the conversio n
* routine should pass the beginning of this * routine should pass the beginning of this
* unconverted sequence plus additional bytes * unconverted sequence plus additional bytes
* from the source stream to properly convert * from the source stream to properly convert t
* the formerly split-up multibyte sequence. he
* * formerly split-up multibyte sequence.
* TCL_CONVERT_SYNTAX: The source stream contained an invalid * TCL_CONVERT_SYNTAX - The source stream contained an inval
* character sequence. This may occur if the id
* character sequence. This may occur if the
* 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 erro r
* is reported only if TCL_ENCODING_STOPONERROR * is reported only if TCL_ENCODING_STOPONERROR
* was specified. * was specified.
* * TCL_CONVERT_UNKNOWN - The source string contained a character that
* TCL_CONVERT_UNKNOWN: The source string contained a charac * could not be represented in the target
ter * encoding. This error is reported only if
* that could not be represented in the target
* 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 perhap
* perhaps 1 if we want to support a non-unicode enabled core). s 1
* If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default) * if we want to support a non-unicode enabled core). If 3, then Tcl_UniCha
* If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4). r
* At this time UCS-2 mode is the default and recommended mode. * must be 2-bytes in size (UCS-2) (the default). If 6, then Tcl_UniChar mu
* UCS-4 is experimental and not recommended. It works for the core, st
* but most extensions expect UCS-2. * be 4-bytes in size (UCS-4). At this time UCS-2 mode is the default and
* recommended mode. UCS-4 is experimental and not recommended. It works fo
r
* the core, but most extensions expect UCS-2.
*/ */
#ifndef TCL_UTF_MAX #ifndef TCL_UTF_MAX
#define TCL_UTF_MAX 3 #define TCL_UTF_MAX 3
#endif #endif
/* /*
* This represents a Unicode character. Any changes to this should * This represents a Unicode character. Any changes to this should also be
* also be reflected in regcustom.h. * reflected in regcustom.h.
*/ */
#if TCL_UTF_MAX > 4 #if TCL_UTF_MAX > 3
/* /*
* 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 val
* value (perhaps wchar_t). 64-bit systems may have troubles. The ue
* size of this value must be reflected correctly in regcustom.h and * (perhaps wchar_t). 64-bit systems may have troubles. The size of thi
s
* 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
/* /*
* These function have been renamed. The old names are deprecated, but we * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' t
* define these macros for backwards compatibilty. o
* provide the system with the embedded configuration data.
*/
typedef struct Tcl_Config {
CONST char *key; /* Configuration key to register. ASCII
* encoded, thus UTF-8 */
CONST char *value; /* The value associated with the key. System
* encoding */
} Tcl_Config;
/*
* Flags for TIP#143 limits, detailing which limits are active in an
* interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument.
*/
#define TCL_LIMIT_COMMANDS 0x01
#define TCL_LIMIT_TIME 0x02
/*
* Structure containing information about a limit handler to be called when
a
* command- or time-limit is exceeded by an interpreter.
*/ */
#define Tcl_Ckalloc Tcl_Alloc
#define Tcl_Ckfree Tcl_Free typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData,
#define Tcl_Ckrealloc Tcl_Realloc Tcl_Interp *interp));
#define Tcl_Return Tcl_SetResult typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientDat
#define Tcl_TildeSubst Tcl_TranslateFileName a));
#define panic Tcl_Panic
#define panicVA Tcl_PanicVA #ifndef MP_INT_DECLARED
typedef struct mp_int mp_int;
#define MP_INT_DECLARED
#endif
#ifndef MP_DIGIT_DECLARED
typedef unsigned long mp_digit;
#define MP_DIGIT_DECLARED
#endif
/* /*
* The following constant is used to test for older versions of Tcl * The following constant is used to test for older versions of Tcl in the
* in the stubs tables. * stubs tables.
* *
* Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different
* value since the stubs tables don't match. * value since the stubs tables don't match.
*/ */
#define TCL_STUB_MAGIC ((int)0xFCA3BACF) #define TCL_STUB_MAGIC ((int)0xFCA3BACF)
/* /*
* The following function is required to be defined in all stubs aware * The following function is required to be defined in all stubs aware
* extensions. The function is actually implemented in the stub * extensions. The function is actually implemented in the stub library, no
* library, not the main Tcl library, although there is a trivial t
* implementation in the main library in case an extension is statically * the main Tcl library, although there is a trivial implementation in the
* linked into an application. * main library in case an extension is statically linked into an applicati
on.
*/ */
EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
CONST char *version, int exact)); CONST char *version, int exact));
EXTERN CONST char* TclTomMathInitializeStubs(Tcl_Interp* interp,
CONST char* version, int epoch, int revision);
#ifndef USE_TCL_STUBS #ifndef USE_TCL_STUBS
/* /*
* When not using stubs, make it a macro. * When not using stubs, make it a macro.
*/ */
#define Tcl_InitStubs(interp, version, exact) \ #define Tcl_InitStubs(interp, version, exact) \
Tcl_PkgRequire(interp, "Tcl", version, exact) Tcl_PkgInitStubsCheck(interp, version, exact)
#endif #endif
/*
* TODO - tommath stubs export goes here!
*/
/* /*
* Include the public function declarations that are accessible via * Public functions that are not accessible via the stubs table.
* the stubs table. */
EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv,
Tcl_AppInitProc *appInitProc));
EXTERN CONST char *Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp,
CONST char *version, int exact));
/*
* Include the public function declarations that are accessible via the stu
bs
* table.
*/ */
#include "tclDecls.h" #include "tclDecls.h"
/* /*
* Include platform specific public function declarations that are * Include platform specific public function declarations that are accessib
* accessible via the stubs table. le
* via the stubs table.
*/ */
#include "tclPlatDecls.h" #include "tclPlatDecls.h"
/* /*
* Public functions that are not accessible via the stubs table. * The following declarations either map ckalloc and ckfree to malloc and
* free, or they map them to functions with all sorts of debugging hooks
* defined in tclCkalloc.c.
*/ */
EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, #ifdef TCL_MEM_DEBUG
Tcl_AppInitProc *appInitProc));
# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__)
# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__)
# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__,
__LINE__)
#else /* !TCL_MEM_DEBUG */
/*
* If we are not using the debugging allocator, we should call the Tcl_Allo
c,
* et al. routines in order to guarantee that every module is using the sam
e
* memory allocator both inside and outside of the Tcl library.
*/
# define ckalloc(x) Tcl_Alloc(x)
# define ckfree(x) Tcl_Free(x)
# define ckrealloc(x,y) Tcl_Realloc(x,y)
# define attemptckalloc(x) Tcl_AttemptAlloc(x)
# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y)
# undef Tcl_InitMemory
# define Tcl_InitMemory(x)
# undef Tcl_DumpActiveMemory
# define Tcl_DumpActiveMemory(x)
# undef Tcl_ValidateAllMemory
# define Tcl_ValidateAllMemory(x,y)
#endif /* !TCL_MEM_DEBUG */
#ifdef TCL_MEM_DEBUG
# define Tcl_IncrRefCount(objPtr) \
Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_DecrRefCount(objPtr) \
Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_IsShared(objPtr) \
Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
#else
# define Tcl_IncrRefCount(objPtr) \
++(objPtr)->refCount
/*
* Use do/while0 idiom for optimum correctness without compiler warning
s
* http://c2.com/cgi/wiki?TrivialDoWhileLoop
*/
# define Tcl_DecrRefCount(objPtr) \
do { if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr); } while(0)
# define Tcl_IsShared(objPtr) \
((objPtr)->refCount > 1)
#endif
/*
* Macros and definitions that help to debug the use of Tcl objects. When
* TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to cal
l
* debugging versions of the object creation functions.
*/
#ifdef TCL_MEM_DEBUG
# undef Tcl_NewBignumObj
# define Tcl_NewBignumObj(val) \
Tcl_DbNewBignumObj(val, __FILE__, __LINE__)
# undef Tcl_NewBooleanObj
# define Tcl_NewBooleanObj(val) \
Tcl_DbNewBooleanObj(val, __FILE__, __LINE__)
# undef Tcl_NewByteArrayObj
# define Tcl_NewByteArrayObj(bytes, len) \
Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__)
# undef Tcl_NewDoubleObj
# define Tcl_NewDoubleObj(val) \
Tcl_DbNewDoubleObj(val, __FILE__, __LINE__)
# undef Tcl_NewIntObj
# define Tcl_NewIntObj(val) \
Tcl_DbNewLongObj(val, __FILE__, __LINE__)
# undef Tcl_NewListObj
# define Tcl_NewListObj(objc, objv) \
Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__)
# undef Tcl_NewLongObj
# define Tcl_NewLongObj(val) \
Tcl_DbNewLongObj(val, __FILE__, __LINE__)
# undef Tcl_NewObj
# define Tcl_NewObj() \
Tcl_DbNewObj(__FILE__, __LINE__)
# undef Tcl_NewStringObj
# define Tcl_NewStringObj(bytes, len) \
Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
# undef Tcl_NewWideIntObj
# define Tcl_NewWideIntObj(val) \
Tcl_DbNewWideIntObj(val, __FILE__, __LINE__)
#endif /* TCL_MEM_DEBUG */
/*
* Macros for clients to use to access fields of hash entries:
*/
#define Tcl_GetHashValue(h) ((h)->clientData)
#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
#define Tcl_GetHashKey(tablePtr, h) \
((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \
(tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \
? (h)->key.oneWordValue \
: (h)->key.string))
/*
* Macros to use for clients to use to invoke find and create functions for
* hash tables:
*/
#undef Tcl_FindHashEntry
#define Tcl_FindHashEntry(tablePtr, key) \
(*((tablePtr)->findProc))(tablePtr, key)
#undef Tcl_CreateHashEntry
#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
(*((tablePtr)->createProc))(tablePtr, key, newPtr)
/*
* Macros that eliminate the overhead of the thread synchronization functio
ns
* when compiling without thread support.
*/
#ifndef TCL_THREADS
#undef Tcl_MutexLock
#define Tcl_MutexLock(mutexPtr)
#undef Tcl_MutexUnlock
#define Tcl_MutexUnlock(mutexPtr)
#undef Tcl_MutexFinalize
#define Tcl_MutexFinalize(mutexPtr)
#undef Tcl_ConditionNotify
#define Tcl_ConditionNotify(condPtr)
#undef Tcl_ConditionWait
#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
#undef Tcl_ConditionFinalize
#define Tcl_ConditionFinalize(condPtr)
#endif /* TCL_THREADS */
#ifndef TCL_NO_DEPRECATED
/*
* Deprecated Tcl functions:
*/
# 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)
/*
* These function have been renamed. The old names are deprecated, but
we
* define these macros for backwards compatibilty.
*/
# define Tcl_Ckalloc Tcl_Alloc
# define Tcl_Ckfree Tcl_Free
# define Tcl_Ckrealloc Tcl_Realloc
# define Tcl_Return Tcl_SetResult
# define Tcl_TildeSubst Tcl_TranslateFileName
# define panic Tcl_Panic
# define panicVA Tcl_PanicVA
#endif
/* /*
* Convenience declaration of Tcl_AppInit for backwards compatibility. * Convenience declaration of Tcl_AppInit for backwards compatibility. This
* This function is not *implemented* by the tcl library, so the storage * function is not *implemented* by the tcl library, so the storage class i
* class is neither DLLEXPORT nor DLLIMPORT s
* 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
 End of changes. 290 change blocks. 
1139 lines changed or deleted 1433 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.130 2007/12/13 15:23:16 dgp Exp $
*/ */
#ifndef _TCLDECLS #ifndef _TCLDECLS
#define _TCLDECLS #define _TCLDECLS
#undef TCL_STORAGE_CLASS
#ifdef BUILD_tcl
# define TCL_STORAGE_CLASS DLLEXPORT
#else
# ifdef USE_TCL_STUBS
# define TCL_STORAGE_CLASS
# else
# define TCL_STORAGE_CLASS DLLIMPORT
# endif
#endif
/* /*
* WARNING: This file is automatically generated by the tools/genStubs.tcl * WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be made * script. Any modifications to the function declarations below should be made
* in the generic/tcl.decls script. * in the generic/tcl.decls script.
*/ */
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
#ifndef Tcl_PkgProvideEx_TCL_DECLARED
#define Tcl_PkgProvideEx_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_PkgProvideEx (Tcl_Interp* interp,
CONST char *name, CONST char *version, CONST char* name, CONST char* version,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_PkgRequireEx_TCL_DECLARED
#define Tcl_PkgRequireEx_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN CONST84_RETURN char * Tcl_PkgRequireEx _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_PkgRequireEx (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *name, CONST char * name, CONST char * version,
CONST char *version, int exact, int exact, ClientData * clientDataPtr);
ClientData *clientDataPtr)); #endif
#ifndef Tcl_Panic_TCL_DECLARED
#define Tcl_Panic_TCL_DECLARED
/* 2 */ /* 2 */
EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(CONST char *,forma EXTERN void Tcl_Panic (CONST char * format, ...);
t)); #endif
#ifndef Tcl_Alloc_TCL_DECLARED
#define Tcl_Alloc_TCL_DECLARED
/* 3 */ /* 3 */
EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); EXTERN char * Tcl_Alloc (unsigned int size);
#endif
#ifndef Tcl_Free_TCL_DECLARED
#define Tcl_Free_TCL_DECLARED
/* 4 */ /* 4 */
EXTERN void Tcl_Free _ANSI_ARGS_((char *ptr)); EXTERN void Tcl_Free (char * ptr);
#endif
#ifndef Tcl_Realloc_TCL_DECLARED
#define Tcl_Realloc_TCL_DECLARED
/* 5 */ /* 5 */
EXTERN char * Tcl_Realloc _ANSI_ARGS_((char *ptr, EXTERN char * Tcl_Realloc (char * ptr, unsigned int size);
unsigned int size)); #endif
#ifndef Tcl_DbCkalloc_TCL_DECLARED
#define Tcl_DbCkalloc_TCL_DECLARED
/* 6 */ /* 6 */
EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, EXTERN char * Tcl_DbCkalloc (unsigned int size, CONST char * file,
CONST char *file, int line)); int line);
#endif
#ifndef Tcl_DbCkfree_TCL_DECLARED
#define Tcl_DbCkfree_TCL_DECLARED
/* 7 */ /* 7 */
EXTERN void Tcl_DbCkfree _ANSI_ARGS_((char *ptr, EXTERN int Tcl_DbCkfree (char * ptr, CONST char * file,
CONST char *file, int line)); int line);
#endif
#ifndef Tcl_DbCkrealloc_TCL_DECLARED
#define Tcl_DbCkrealloc_TCL_DECLARED
/* 8 */ /* 8 */
EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char *ptr, EXTERN char * Tcl_DbCkrealloc (char * ptr, unsigned int size,
unsigned int size, CONST char *file, CONST char * file, int line);
int line)); #endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_CreateFileHandler_TCL_DECLARED
#define Tcl_CreateFileHandler_TCL_DECLARED
/* 9 */ /* 9 */
EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, EXTERN void Tcl_CreateFileHandler (int fd, int mask,
Tcl_FileProc *proc, ClientData clientData)); Tcl_FileProc * proc, ClientData clientData);
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_CreateFileHandler_TCL_DECLARED
#define Tcl_CreateFileHandler_TCL_DECLARED
/* 9 */ /* 9 */
EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, EXTERN void Tcl_CreateFileHandler (int fd, int mask,
Tcl_FileProc *proc, ClientData clientData)); Tcl_FileProc * proc, ClientData clientData);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_DeleteFileHandler_TCL_DECLARED
#define Tcl_DeleteFileHandler_TCL_DECLARED
/* 10 */ /* 10 */
EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); EXTERN void Tcl_DeleteFileHandler (int fd);
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_DeleteFileHandler_TCL_DECLARED
#define Tcl_DeleteFileHandler_TCL_DECLARED
/* 10 */ /* 10 */
EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); EXTERN void Tcl_DeleteFileHandler (int fd);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#ifndef Tcl_SetTimer_TCL_DECLARED
#define Tcl_SetTimer_TCL_DECLARED
/* 11 */ /* 11 */
EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time *timePtr)); EXTERN void Tcl_SetTimer (Tcl_Time * timePtr);
#endif
#ifndef Tcl_Sleep_TCL_DECLARED
#define Tcl_Sleep_TCL_DECLARED
/* 12 */ /* 12 */
EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); EXTERN void Tcl_Sleep (int ms);
#endif
#ifndef Tcl_WaitForEvent_TCL_DECLARED
#define Tcl_WaitForEvent_TCL_DECLARED
/* 13 */ /* 13 */
EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time *timePtr)); EXTERN int Tcl_WaitForEvent (Tcl_Time * timePtr);
#endif
#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED
#define Tcl_AppendAllObjTypes_TCL_DECLARED
/* 14 */ /* 14 */
EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( EXTERN int Tcl_AppendAllObjTypes (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *objPtr)); Tcl_Obj * objPtr);
#endif
#ifndef Tcl_AppendStringsToObj_TCL_DECLARED
#define Tcl_AppendStringsToObj_TCL_DECLARED
/* 15 */ /* 15 */
EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_O EXTERN void Tcl_AppendStringsToObj (Tcl_Obj * objPtr, ...);
bj *,objPtr)); #endif
#ifndef Tcl_AppendToObj_TCL_DECLARED
#define Tcl_AppendToObj_TCL_DECLARED
/* 16 */ /* 16 */
EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_AppendToObj (Tcl_Obj* objPtr, CONST char* bytes,
CONST char *bytes, int length)); int length);
#endif
#ifndef Tcl_ConcatObj_TCL_DECLARED
#define Tcl_ConcatObj_TCL_DECLARED
/* 17 */ /* 17 */
EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_ConcatObj (int objc, Tcl_Obj *CONST objv[]);
Tcl_Obj *CONST objv[])); #endif
#ifndef Tcl_ConvertToType_TCL_DECLARED
#define Tcl_ConvertToType_TCL_DECLARED
/* 18 */ /* 18 */
EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ConvertToType (Tcl_Interp * interp,
Tcl_Obj *objPtr, Tcl_ObjType *typePtr)); Tcl_Obj * objPtr, Tcl_ObjType * typePtr);
#endif
#ifndef Tcl_DbDecrRefCount_TCL_DECLARED
#define Tcl_DbDecrRefCount_TCL_DECLARED
/* 19 */ /* 19 */
EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_DbDecrRefCount (Tcl_Obj * objPtr,
CONST char *file, int line)); CONST char * file, int line);
#endif
#ifndef Tcl_DbIncrRefCount_TCL_DECLARED
#define Tcl_DbIncrRefCount_TCL_DECLARED
/* 20 */ /* 20 */
EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_DbIncrRefCount (Tcl_Obj * objPtr,
CONST char *file, int line)); CONST char * file, int line);
#endif
#ifndef Tcl_DbIsShared_TCL_DECLARED
#define Tcl_DbIsShared_TCL_DECLARED
/* 21 */ /* 21 */
EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN int Tcl_DbIsShared (Tcl_Obj * objPtr, CONST char * file,
CONST char *file, int line)); int line);
#endif
#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED
#define Tcl_DbNewBooleanObj_TCL_DECLARED
/* 22 */ /* 22 */
EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, EXTERN Tcl_Obj * Tcl_DbNewBooleanObj (int boolValue,
CONST char *file, int line)); CONST char * file, int line);
#endif
#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED
#define Tcl_DbNewByteArrayObj_TCL_DECLARED
/* 23 */ /* 23 */
EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj (CONST unsigned char * bytes,
CONST unsigned char *bytes, int length, int length, CONST char * file, int line);
CONST char *file, int line)); #endif
#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED
#define Tcl_DbNewDoubleObj_TCL_DECLARED
/* 24 */ /* 24 */
EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, EXTERN Tcl_Obj * Tcl_DbNewDoubleObj (double doubleValue,
CONST char *file, int line)); CONST char * file, int line);
#endif
#ifndef Tcl_DbNewListObj_TCL_DECLARED
#define Tcl_DbNewListObj_TCL_DECLARED
/* 25 */ /* 25 */
EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_DbNewListObj (int objc, Tcl_Obj *CONST * objv,
Tcl_Obj *CONST *objv, CONST char *file, CONST char * file, int line);
int line)); #endif
#ifndef Tcl_DbNewLongObj_TCL_DECLARED
#define Tcl_DbNewLongObj_TCL_DECLARED
/* 26 */ /* 26 */
EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, EXTERN Tcl_Obj * Tcl_DbNewLongObj (long longValue, CONST char * file,
CONST char *file, int line)); int line);
#endif
#ifndef Tcl_DbNewObj_TCL_DECLARED
#define Tcl_DbNewObj_TCL_DECLARED
/* 27 */ /* 27 */
EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((CONST char *file, int line EXTERN Tcl_Obj * Tcl_DbNewObj (CONST char * file, int line);
)); #endif
#ifndef Tcl_DbNewStringObj_TCL_DECLARED
#define Tcl_DbNewStringObj_TCL_DECLARED
/* 28 */ /* 28 */
EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char *bytes, EXTERN Tcl_Obj * Tcl_DbNewStringObj (CONST char * bytes, int length,
int length, CONST char *file, int line)); CONST char * file, int line);
#endif
#ifndef Tcl_DuplicateObj_TCL_DECLARED
#define Tcl_DuplicateObj_TCL_DECLARED
/* 29 */ /* 29 */
EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj *objPtr)); EXTERN Tcl_Obj * Tcl_DuplicateObj (Tcl_Obj * objPtr);
#endif
#ifndef TclFreeObj_TCL_DECLARED
#define TclFreeObj_TCL_DECLARED
/* 30 */ /* 30 */
EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj *objPtr)); EXTERN void TclFreeObj (Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetBoolean_TCL_DECLARED
#define Tcl_GetBoolean_TCL_DECLARED
/* 31 */ /* 31 */
EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetBoolean (Tcl_Interp * interp,
CONST char *src, int *boolPtr)); CONST char * src, int * boolPtr);
#endif
#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED
#define Tcl_GetBooleanFromObj_TCL_DECLARED
/* 32 */ /* 32 */
EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetBooleanFromObj (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj * objPtr, int * boolPtr);
int *boolPtr)); #endif
#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED
#define Tcl_GetByteArrayFromObj_TCL_DECLARED
/* 33 */ /* 33 */
EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_((Tcl_Obj *objPtr EXTERN unsigned char * Tcl_GetByteArrayFromObj (Tcl_Obj * objPtr,
, int * lengthPtr);
int *lengthPtr)); #endif
#ifndef Tcl_GetDouble_TCL_DECLARED
#define Tcl_GetDouble_TCL_DECLARED
/* 34 */ /* 34 */
EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetDouble (Tcl_Interp * interp, CONST char * src
CONST char *src, double *doublePtr)); ,
double * doublePtr);
#endif
#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED
#define Tcl_GetDoubleFromObj_TCL_DECLARED
/* 35 */ /* 35 */
EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_((Tcl_Interp *interp EXTERN int Tcl_GetDoubleFromObj (Tcl_Interp * interp,
, Tcl_Obj * objPtr, double * doublePtr);
Tcl_Obj *objPtr, double *doublePtr)); #endif
#ifndef Tcl_GetIndexFromObj_TCL_DECLARED
#define Tcl_GetIndexFromObj_TCL_DECLARED
/* 36 */ /* 36 */
EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetIndexFromObj (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)
;
#endif
#ifndef Tcl_GetInt_TCL_DECLARED
#define Tcl_GetInt_TCL_DECLARED
/* 37 */ /* 37 */
EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetInt (Tcl_Interp * interp, CONST char * src,
CONST char *src, int *intPtr)); int * intPtr);
#endif
#ifndef Tcl_GetIntFromObj_TCL_DECLARED
#define Tcl_GetIntFromObj_TCL_DECLARED
/* 38 */ /* 38 */
EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetIntFromObj (Tcl_Interp * interp,
Tcl_Obj *objPtr, int *intPtr)); Tcl_Obj * objPtr, int * intPtr);
#endif
#ifndef Tcl_GetLongFromObj_TCL_DECLARED
#define Tcl_GetLongFromObj_TCL_DECLARED
/* 39 */ /* 39 */
EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetLongFromObj (Tcl_Interp * interp,
Tcl_Obj *objPtr, long *longPtr)); Tcl_Obj * objPtr, long * longPtr);
#endif
#ifndef Tcl_GetObjType_TCL_DECLARED
#define Tcl_GetObjType_TCL_DECLARED
/* 40 */ /* 40 */
EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char *typeName)); EXTERN Tcl_ObjType * Tcl_GetObjType (CONST char * typeName);
#endif
#ifndef Tcl_GetStringFromObj_TCL_DECLARED
#define Tcl_GetStringFromObj_TCL_DECLARED
/* 41 */ /* 41 */
EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN char * Tcl_GetStringFromObj (Tcl_Obj * objPtr,
int *lengthPtr)); int * lengthPtr);
#endif
#ifndef Tcl_InvalidateStringRep_TCL_DECLARED
#define Tcl_InvalidateStringRep_TCL_DECLARED
/* 42 */ /* 42 */
EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_((Tcl_Obj *objPtr EXTERN void Tcl_InvalidateStringRep (Tcl_Obj * objPtr);
)); #endif
#ifndef Tcl_ListObjAppendList_TCL_DECLARED
#define Tcl_ListObjAppendList_TCL_DECLARED
/* 43 */ /* 43 */
EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( EXTERN int Tcl_ListObjAppendList (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr);
Tcl_Obj *elemListPtr)); #endif
#ifndef Tcl_ListObjAppendElement_TCL_DECLARED
#define Tcl_ListObjAppendElement_TCL_DECLARED
/* 44 */ /* 44 */
EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( EXTERN int Tcl_ListObjAppendElement (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj * listPtr, Tcl_Obj * objPtr);
Tcl_Obj *objPtr)); #endif
#ifndef Tcl_ListObjGetElements_TCL_DECLARED
#define Tcl_ListObjGetElements_TCL_DECLARED
/* 45 */ /* 45 */
EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( EXTERN int Tcl_ListObjGetElements (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj * listPtr, int * objcPtr,
int *objcPtr, Tcl_Obj ***objvPtr)); Tcl_Obj *** objvPtr);
#endif
#ifndef Tcl_ListObjIndex_TCL_DECLARED
#define Tcl_ListObjIndex_TCL_DECLARED
/* 46 */ /* 46 */
EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ListObjIndex (Tcl_Interp * interp,
Tcl_Obj *listPtr, int index, Tcl_Obj * listPtr, int index,
Tcl_Obj **objPtrPtr)); Tcl_Obj ** objPtrPtr);
#endif
#ifndef Tcl_ListObjLength_TCL_DECLARED
#define Tcl_ListObjLength_TCL_DECLARED
/* 47 */ /* 47 */
EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ListObjLength (Tcl_Interp * interp,
Tcl_Obj *listPtr, int *lengthPtr)); Tcl_Obj * listPtr, int * lengthPtr);
#endif
#ifndef Tcl_ListObjReplace_TCL_DECLARED
#define Tcl_ListObjReplace_TCL_DECLARED
/* 48 */ /* 48 */
EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ListObjReplace (Tcl_Interp * interp,
Tcl_Obj *listPtr, int first, int count, Tcl_Obj * listPtr, int first, int count,
int objc, Tcl_Obj *CONST objv[])); int objc, Tcl_Obj *CONST objv[]);
#endif
#ifndef Tcl_NewBooleanObj_TCL_DECLARED
#define Tcl_NewBooleanObj_TCL_DECLARED
/* 49 */ /* 49 */
EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); EXTERN Tcl_Obj * Tcl_NewBooleanObj (int boolValue);
#endif
#ifndef Tcl_NewByteArrayObj_TCL_DECLARED
#define Tcl_NewByteArrayObj_TCL_DECLARED
/* 50 */ /* 50 */
EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_NewByteArrayObj (CONST unsigned char* bytes,
CONST unsigned char *bytes, int length)); int length);
#endif
#ifndef Tcl_NewDoubleObj_TCL_DECLARED
#define Tcl_NewDoubleObj_TCL_DECLARED
/* 51 */ /* 51 */
EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); EXTERN Tcl_Obj * Tcl_NewDoubleObj (double doubleValue);
#endif
#ifndef Tcl_NewIntObj_TCL_DECLARED
#define Tcl_NewIntObj_TCL_DECLARED
/* 52 */ /* 52 */
EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); EXTERN Tcl_Obj * Tcl_NewIntObj (int intValue);
#endif
#ifndef Tcl_NewListObj_TCL_DECLARED
#define Tcl_NewListObj_TCL_DECLARED
/* 53 */ /* 53 */
EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_NewListObj (int objc, Tcl_Obj *CONST objv[]);
Tcl_Obj *CONST objv[])); #endif
#ifndef Tcl_NewLongObj_TCL_DECLARED
#define Tcl_NewLongObj_TCL_DECLARED
/* 54 */ /* 54 */
EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); EXTERN Tcl_Obj * Tcl_NewLongObj (long longValue);
#endif
#ifndef Tcl_NewObj_TCL_DECLARED
#define Tcl_NewObj_TCL_DECLARED
/* 55 */ /* 55 */
EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); EXTERN Tcl_Obj * Tcl_NewObj (void);
#endif
#ifndef Tcl_NewStringObj_TCL_DECLARED
#define Tcl_NewStringObj_TCL_DECLARED
/* 56 */ /* 56 */
EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char *bytes, EXTERN Tcl_Obj * Tcl_NewStringObj (CONST char * bytes, int length);
int length)); #endif
#ifndef Tcl_SetBooleanObj_TCL_DECLARED
#define Tcl_SetBooleanObj_TCL_DECLARED
/* 57 */ /* 57 */
EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetBooleanObj (Tcl_Obj * objPtr, int boolValue);
int boolValue)); #endif
#ifndef Tcl_SetByteArrayLength_TCL_DECLARED
#define Tcl_SetByteArrayLength_TCL_DECLARED
/* 58 */ /* 58 */
EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN unsigned char * Tcl_SetByteArrayLength (Tcl_Obj * objPtr, int length
int length)); );
#endif
#ifndef Tcl_SetByteArrayObj_TCL_DECLARED
#define Tcl_SetByteArrayObj_TCL_DECLARED
/* 59 */ /* 59 */
EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetByteArrayObj (Tcl_Obj * objPtr,
CONST unsigned char *bytes, int length)); CONST unsigned char * bytes, int length);
#endif
#ifndef Tcl_SetDoubleObj_TCL_DECLARED
#define Tcl_SetDoubleObj_TCL_DECLARED
/* 60 */ /* 60 */
EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetDoubleObj (Tcl_Obj * objPtr,
double doubleValue)); double doubleValue);
#endif
#ifndef Tcl_SetIntObj_TCL_DECLARED
#define Tcl_SetIntObj_TCL_DECLARED
/* 61 */ /* 61 */
EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetIntObj (Tcl_Obj * objPtr, int intValue);
int intValue)); #endif
#ifndef Tcl_SetListObj_TCL_DECLARED
#define Tcl_SetListObj_TCL_DECLARED
/* 62 */ /* 62 */
EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetListObj (Tcl_Obj * objPtr, int objc,
int objc, Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]);
#endif
#ifndef Tcl_SetLongObj_TCL_DECLARED
#define Tcl_SetLongObj_TCL_DECLARED
/* 63 */ /* 63 */
EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetLongObj (Tcl_Obj * objPtr, long longValue);
long longValue)); #endif
#ifndef Tcl_SetObjLength_TCL_DECLARED
#define Tcl_SetObjLength_TCL_DECLARED
/* 64 */ /* 64 */
EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetObjLength (Tcl_Obj * objPtr, int length);
int length)); #endif
#ifndef Tcl_SetStringObj_TCL_DECLARED
#define Tcl_SetStringObj_TCL_DECLARED
/* 65 */ /* 65 */
EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetStringObj (Tcl_Obj* objPtr, CONST char* bytes
CONST char *bytes, int length)); ,
int length);
#endif
#ifndef Tcl_AddErrorInfo_TCL_DECLARED
#define Tcl_AddErrorInfo_TCL_DECLARED
/* 66 */ /* 66 */
EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_AddErrorInfo (Tcl_Interp * interp,
CONST char *message)); CONST char * message);
#endif
#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED
#define Tcl_AddObjErrorInfo_TCL_DECLARED
/* 67 */ /* 67 */
EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_AddObjErrorInfo (Tcl_Interp * interp,
CONST char *message, int length)); CONST char * message, int length);
#endif
#ifndef Tcl_AllowExceptions_TCL_DECLARED
#define Tcl_AllowExceptions_TCL_DECLARED
/* 68 */ /* 68 */
EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp *interp) EXTERN void Tcl_AllowExceptions (Tcl_Interp * interp);
); #endif
#ifndef Tcl_AppendElement_TCL_DECLARED
#define Tcl_AppendElement_TCL_DECLARED
/* 69 */ /* 69 */
EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_AppendElement (Tcl_Interp * interp,
CONST char *element)); CONST char * element);
#endif
#ifndef Tcl_AppendResult_TCL_DECLARED
#define Tcl_AppendResult_TCL_DECLARED
/* 70 */ /* 70 */
EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp EXTERN void Tcl_AppendResult (Tcl_Interp * interp, ...);
*,interp)); #endif
#ifndef Tcl_AsyncCreate_TCL_DECLARED
#define Tcl_AsyncCreate_TCL_DECLARED
/* 71 */ /* 71 */
EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc EXTERN Tcl_AsyncHandler Tcl_AsyncCreate (Tcl_AsyncProc * proc,
*proc, ClientData clientData);
ClientData clientData)); #endif
#ifndef Tcl_AsyncDelete_TCL_DECLARED
#define Tcl_AsyncDelete_TCL_DECLARED
/* 72 */ /* 72 */
EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async) EXTERN void Tcl_AsyncDelete (Tcl_AsyncHandler async);
); #endif
#ifndef Tcl_AsyncInvoke_TCL_DECLARED
#define Tcl_AsyncInvoke_TCL_DECLARED
/* 73 */ /* 73 */
EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_AsyncInvoke (Tcl_Interp * interp, int code);
int code)); #endif
#ifndef Tcl_AsyncMark_TCL_DECLARED
#define Tcl_AsyncMark_TCL_DECLARED
/* 74 */ /* 74 */
EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); EXTERN void Tcl_AsyncMark (Tcl_AsyncHandler async);
#endif
#ifndef Tcl_AsyncReady_TCL_DECLARED
#define Tcl_AsyncReady_TCL_DECLARED
/* 75 */ /* 75 */
EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); EXTERN int Tcl_AsyncReady (void);
#endif
#ifndef Tcl_BackgroundError_TCL_DECLARED
#define Tcl_BackgroundError_TCL_DECLARED
/* 76 */ /* 76 */
EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp *interp) EXTERN void Tcl_BackgroundError (Tcl_Interp * interp);
); #endif
#ifndef Tcl_Backslash_TCL_DECLARED
#define Tcl_Backslash_TCL_DECLARED
/* 77 */ /* 77 */
EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char *src, EXTERN char Tcl_Backslash (CONST char * src, int * readPtr);
int *readPtr)); #endif
#ifndef Tcl_BadChannelOption_TCL_DECLARED
#define Tcl_BadChannelOption_TCL_DECLARED
/* 78 */ /* 78 */
EXTERN int Tcl_BadChannelOption _ANSI_ARGS_((Tcl_Interp *interp EXTERN int Tcl_BadChannelOption (Tcl_Interp * interp,
, CONST char * optionName,
CONST char *optionName, CONST char * optionList);
CONST char *optionList)); #endif
#ifndef Tcl_CallWhenDeleted_TCL_DECLARED
#define Tcl_CallWhenDeleted_TCL_DECLARED
/* 79 */ /* 79 */
EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_CallWhenDeleted (Tcl_Interp * interp,
Tcl_InterpDeleteProc *proc, Tcl_InterpDeleteProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_CancelIdleCall_TCL_DECLARED
#define Tcl_CancelIdleCall_TCL_DECLARED
/* 80 */ /* 80 */
EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( EXTERN void Tcl_CancelIdleCall (Tcl_IdleProc * idleProc,
Tcl_IdleProc *idleProc, ClientData clientData);
ClientData clientData)); #endif
#ifndef Tcl_Close_TCL_DECLARED
#define Tcl_Close_TCL_DECLARED
/* 81 */ /* 81 */
EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_Close (Tcl_Interp * interp, Tcl_Channel chan);
Tcl_Channel chan)); #endif
#ifndef Tcl_CommandComplete_TCL_DECLARED
#define Tcl_CommandComplete_TCL_DECLARED
/* 82 */ /* 82 */
EXTERN int Tcl_CommandComplete _ANSI_ARGS_((CONST char *cmd)); EXTERN int Tcl_CommandComplete (CONST char * cmd);
#endif
#ifndef Tcl_Concat_TCL_DECLARED
#define Tcl_Concat_TCL_DECLARED
/* 83 */ /* 83 */
EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, EXTERN char * Tcl_Concat (int argc, CONST84 char * CONST * argv);
CONST84 char *CONST *argv)); #endif
#ifndef Tcl_ConvertElement_TCL_DECLARED
#define Tcl_ConvertElement_TCL_DECLARED
/* 84 */ /* 84 */
EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_ConvertElement (CONST char * src, char * dst,
char *dst, int flags)); int flags);
#endif
#ifndef Tcl_ConvertCountedElement_TCL_DECLARED
#define Tcl_ConvertCountedElement_TCL_DECLARED
/* 85 */ /* 85 */
EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( EXTERN int Tcl_ConvertCountedElement (CONST char * src,
CONST char *src, int length, char *dst, int length, char * dst, int flags);
int flags)); #endif
#ifndef Tcl_CreateAlias_TCL_DECLARED
#define Tcl_CreateAlias_TCL_DECLARED
/* 86 */ /* 86 */
EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp *slave, EXTERN int Tcl_CreateAlias (Tcl_Interp * slave,
CONST char *slaveCmd, Tcl_Interp *target, CONST char * slaveCmd, Tcl_Interp * target,
CONST char *targetCmd, int argc, CONST char * targetCmd, int argc,
CONST84 char *CONST *argv)); CONST84 char * CONST * argv);
#endif
#ifndef Tcl_CreateAliasObj_TCL_DECLARED
#define Tcl_CreateAliasObj_TCL_DECLARED
/* 87 */ /* 87 */
EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp *slave, EXTERN int Tcl_CreateAliasObj (Tcl_Interp * slave,
CONST char *slaveCmd, Tcl_Interp *target, CONST char * slaveCmd, Tcl_Interp * target,
CONST char *targetCmd, int objc, CONST char * targetCmd, int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]);
#endif
#ifndef Tcl_CreateChannel_TCL_DECLARED
#define Tcl_CreateChannel_TCL_DECLARED
/* 88 */ /* 88 */
EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_CreateChannel (Tcl_ChannelType * typePtr,
Tcl_ChannelType *typePtr, CONST char * chanName,
CONST char *chanName, ClientData instanceData, int mask);
ClientData instanceData, int mask)); #endif
#ifndef Tcl_CreateChannelHandler_TCL_DECLARED
#define Tcl_CreateChannelHandler_TCL_DECLARED
/* 89 */ /* 89 */
EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateChannelHandler (Tcl_Channel chan, int mask
Tcl_Channel chan, int mask, ,
Tcl_ChannelProc *proc, ClientData clientData Tcl_ChannelProc * proc,
)); ClientData clientData);
#endif
#ifndef Tcl_CreateCloseHandler_TCL_DECLARED
#define Tcl_CreateCloseHandler_TCL_DECLARED
/* 90 */ /* 90 */
EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan EXTERN void Tcl_CreateCloseHandler (Tcl_Channel chan,
, Tcl_CloseProc * proc, ClientData clientData)
Tcl_CloseProc *proc, ClientData clientData)) ;
; #endif
#ifndef Tcl_CreateCommand_TCL_DECLARED
#define Tcl_CreateCommand_TCL_DECLARED
/* 91 */ /* 91 */
EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Command Tcl_CreateCommand (Tcl_Interp * interp,
CONST char *cmdName, Tcl_CmdProc *proc, CONST char * cmdName, Tcl_CmdProc * proc,
ClientData clientData, ClientData clientData,
Tcl_CmdDeleteProc *deleteProc)); Tcl_CmdDeleteProc * deleteProc);
#endif
#ifndef Tcl_CreateEventSource_TCL_DECLARED
#define Tcl_CreateEventSource_TCL_DECLARED
/* 92 */ /* 92 */
EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( EXTERN void Tcl_CreateEventSource (
Tcl_EventSetupProc *setupProc, Tcl_EventSetupProc * setupProc,
Tcl_EventCheckProc *checkProc, Tcl_EventCheckProc * checkProc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_CreateExitHandler_TCL_DECLARED
#define Tcl_CreateExitHandler_TCL_DECLARED
/* 93 */ /* 93 */
EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateExitHandler (Tcl_ExitProc * proc,
Tcl_ExitProc *proc, ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_CreateInterp_TCL_DECLARED
#define Tcl_CreateInterp_TCL_DECLARED
/* 94 */ /* 94 */
EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); EXTERN Tcl_Interp * Tcl_CreateInterp (void);
#endif
#ifndef Tcl_CreateMathFunc_TCL_DECLARED
#define Tcl_CreateMathFunc_TCL_DECLARED
/* 95 */ /* 95 */
EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_CreateMathFunc (Tcl_Interp * interp,
CONST char *name, int numArgs, CONST char * name, int numArgs,
Tcl_ValueType *argTypes, Tcl_MathProc *proc, Tcl_ValueType * argTypes,
ClientData clientData)); Tcl_MathProc * proc, ClientData clientData);
#endif
#ifndef Tcl_CreateObjCommand_TCL_DECLARED
#define Tcl_CreateObjCommand_TCL_DECLARED
/* 96 */ /* 96 */
EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_((Tcl_Interp *interp EXTERN Tcl_Command Tcl_CreateObjCommand (Tcl_Interp * interp,
, CONST char * cmdName, Tcl_ObjCmdProc * proc,
CONST char *cmdName, Tcl_ObjCmdProc *proc,
ClientData clientData, ClientData clientData,
Tcl_CmdDeleteProc *deleteProc)); Tcl_CmdDeleteProc * deleteProc);
#endif
#ifndef Tcl_CreateSlave_TCL_DECLARED
#define Tcl_CreateSlave_TCL_DECLARED
/* 97 */ /* 97 */
EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Interp * Tcl_CreateSlave (Tcl_Interp * interp,
CONST char *slaveName, int isSafe)); CONST char * slaveName, int isSafe);
#endif
#ifndef Tcl_CreateTimerHandler_TCL_DECLARED
#define Tcl_CreateTimerHandler_TCL_DECLARED
/* 98 */ /* 98 */
EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds EXTERN Tcl_TimerToken Tcl_CreateTimerHandler (int milliseconds,
, Tcl_TimerProc * proc, ClientData clientData)
Tcl_TimerProc *proc, ClientData clientData)) ;
; #endif
#ifndef Tcl_CreateTrace_TCL_DECLARED
#define Tcl_CreateTrace_TCL_DECLARED
/* 99 */ /* 99 */
EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Trace Tcl_CreateTrace (Tcl_Interp * interp, int level,
int level, Tcl_CmdTraceProc *proc, Tcl_CmdTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DeleteAssocData_TCL_DECLARED
#define Tcl_DeleteAssocData_TCL_DECLARED
/* 100 */ /* 100 */
EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_DeleteAssocData (Tcl_Interp * interp,
CONST char *name)); CONST char * name);
#endif
#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED
#define Tcl_DeleteChannelHandler_TCL_DECLARED
/* 101 */ /* 101 */
EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteChannelHandler (Tcl_Channel chan,
Tcl_Channel chan, Tcl_ChannelProc *proc, Tcl_ChannelProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED
#define Tcl_DeleteCloseHandler_TCL_DECLARED
/* 102 */ /* 102 */
EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan EXTERN void Tcl_DeleteCloseHandler (Tcl_Channel chan,
, Tcl_CloseProc * proc, ClientData clientData)
Tcl_CloseProc *proc, ClientData clientData)) ;
; #endif
#ifndef Tcl_DeleteCommand_TCL_DECLARED
#define Tcl_DeleteCommand_TCL_DECLARED
/* 103 */ /* 103 */
EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_DeleteCommand (Tcl_Interp * interp,
CONST char *cmdName)); CONST char * cmdName);
#endif
#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED
#define Tcl_DeleteCommandFromToken_TCL_DECLARED
/* 104 */ /* 104 */
EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( EXTERN int Tcl_DeleteCommandFromToken (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Command command)); Tcl_Command command);
#endif
#ifndef Tcl_DeleteEvents_TCL_DECLARED
#define Tcl_DeleteEvents_TCL_DECLARED
/* 105 */ /* 105 */
EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( EXTERN void Tcl_DeleteEvents (Tcl_EventDeleteProc * proc,
Tcl_EventDeleteProc *proc, ClientData clientData);
ClientData clientData)); #endif
#ifndef Tcl_DeleteEventSource_TCL_DECLARED
#define Tcl_DeleteEventSource_TCL_DECLARED
/* 106 */ /* 106 */
EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( EXTERN void Tcl_DeleteEventSource (
Tcl_EventSetupProc *setupProc, Tcl_EventSetupProc * setupProc,
Tcl_EventCheckProc *checkProc, Tcl_EventCheckProc * checkProc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DeleteExitHandler_TCL_DECLARED
#define Tcl_DeleteExitHandler_TCL_DECLARED
/* 107 */ /* 107 */
EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteExitHandler (Tcl_ExitProc * proc,
Tcl_ExitProc *proc, ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DeleteHashEntry_TCL_DECLARED
#define Tcl_DeleteHashEntry_TCL_DECLARED
/* 108 */ /* 108 */
EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( EXTERN void Tcl_DeleteHashEntry (Tcl_HashEntry * entryPtr);
Tcl_HashEntry *entryPtr)); #endif
#ifndef Tcl_DeleteHashTable_TCL_DECLARED
#define Tcl_DeleteHashTable_TCL_DECLARED
/* 109 */ /* 109 */
EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( EXTERN void Tcl_DeleteHashTable (Tcl_HashTable * tablePtr);
Tcl_HashTable *tablePtr)); #endif
#ifndef Tcl_DeleteInterp_TCL_DECLARED
#define Tcl_DeleteInterp_TCL_DECLARED
/* 110 */ /* 110 */
EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN void Tcl_DeleteInterp (Tcl_Interp * interp);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_DetachPids_TCL_DECLARED
#define Tcl_DetachPids_TCL_DECLARED
/* 111 */ /* 111 */
EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, EXTERN void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr);
Tcl_Pid *pidPtr)); #endif
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
#ifndef Tcl_DetachPids_TCL_DECLARED
#define Tcl_DetachPids_TCL_DECLARED
/* 111 */
EXTERN void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr);
#endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_DetachPids_TCL_DECLARED
#define Tcl_DetachPids_TCL_DECLARED
/* 111 */
EXTERN void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr);
#endif
#endif /* MACOSX */
#ifndef Tcl_DeleteTimerHandler_TCL_DECLARED
#define Tcl_DeleteTimerHandler_TCL_DECLARED
/* 112 */ /* 112 */
EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteTimerHandler (Tcl_TimerToken token);
Tcl_TimerToken token)); #endif
#ifndef Tcl_DeleteTrace_TCL_DECLARED
#define Tcl_DeleteTrace_TCL_DECLARED
/* 113 */ /* 113 */
EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_DeleteTrace (Tcl_Interp * interp,
Tcl_Trace trace)); Tcl_Trace trace);
#endif
#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED
#define Tcl_DontCallWhenDeleted_TCL_DECLARED
/* 114 */ /* 114 */
EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( EXTERN void Tcl_DontCallWhenDeleted (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_InterpDeleteProc * proc,
Tcl_InterpDeleteProc *proc, ClientData clientData);
ClientData clientData)); #endif
#ifndef Tcl_DoOneEvent_TCL_DECLARED
#define Tcl_DoOneEvent_TCL_DECLARED
/* 115 */ /* 115 */
EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); EXTERN int Tcl_DoOneEvent (int flags);
#endif
#ifndef Tcl_DoWhenIdle_TCL_DECLARED
#define Tcl_DoWhenIdle_TCL_DECLARED
/* 116 */ /* 116 */
EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc *proc, EXTERN void Tcl_DoWhenIdle (Tcl_IdleProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DStringAppend_TCL_DECLARED
#define Tcl_DStringAppend_TCL_DECLARED
/* 117 */ /* 117 */
EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString *dsPtr, EXTERN char * Tcl_DStringAppend (Tcl_DString * dsPtr,
CONST char *bytes, int length)); CONST char * bytes, int length);
#endif
#ifndef Tcl_DStringAppendElement_TCL_DECLARED
#define Tcl_DStringAppendElement_TCL_DECLARED
/* 118 */ /* 118 */
EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_(( EXTERN char * Tcl_DStringAppendElement (Tcl_DString * dsPtr,
Tcl_DString *dsPtr, CONST char *element)); CONST char * element);
#endif
#ifndef Tcl_DStringEndSublist_TCL_DECLARED
#define Tcl_DStringEndSublist_TCL_DECLARED
/* 119 */ /* 119 */
EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_(( EXTERN void Tcl_DStringEndSublist (Tcl_DString * dsPtr);
Tcl_DString *dsPtr)); #endif
#ifndef Tcl_DStringFree_TCL_DECLARED
#define Tcl_DStringFree_TCL_DECLARED
/* 120 */ /* 120 */
EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString *dsPtr)); EXTERN void Tcl_DStringFree (Tcl_DString * dsPtr);
#endif
#ifndef Tcl_DStringGetResult_TCL_DECLARED
#define Tcl_DStringGetResult_TCL_DECLARED
/* 121 */ /* 121 */
EXTERN void Tcl_DStringGetResult _ANSI_ARGS_((Tcl_Interp *interp EXTERN void Tcl_DStringGetResult (Tcl_Interp * interp,
, Tcl_DString * dsPtr);
Tcl_DString *dsPtr)); #endif
#ifndef Tcl_DStringInit_TCL_DECLARED
#define Tcl_DStringInit_TCL_DECLARED
/* 122 */ /* 122 */
EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString *dsPtr)); EXTERN void Tcl_DStringInit (Tcl_DString * dsPtr);
#endif
#ifndef Tcl_DStringResult_TCL_DECLARED
#define Tcl_DStringResult_TCL_DECLARED
/* 123 */ /* 123 */
EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_DStringResult (Tcl_Interp * interp,
Tcl_DString *dsPtr)); Tcl_DString * dsPtr);
#endif
#ifndef Tcl_DStringSetLength_TCL_DECLARED
#define Tcl_DStringSetLength_TCL_DECLARED
/* 124 */ /* 124 */
EXTERN void Tcl_DStringSetLength _ANSI_ARGS_((Tcl_DString *dsPtr EXTERN void Tcl_DStringSetLength (Tcl_DString * dsPtr,
, int length);
int length)); #endif
#ifndef Tcl_DStringStartSublist_TCL_DECLARED
#define Tcl_DStringStartSublist_TCL_DECLARED
/* 125 */ /* 125 */
EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( EXTERN void Tcl_DStringStartSublist (Tcl_DString * dsPtr);
Tcl_DString *dsPtr)); #endif
#ifndef Tcl_Eof_TCL_DECLARED
#define Tcl_Eof_TCL_DECLARED
/* 126 */ /* 126 */
EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_Eof (Tcl_Channel chan);
#endif
#ifndef Tcl_ErrnoId_TCL_DECLARED
#define Tcl_ErrnoId_TCL_DECLARED
/* 127 */ /* 127 */
EXTERN CONST84_RETURN char * Tcl_ErrnoId _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_ErrnoId (void);
#endif
#ifndef Tcl_ErrnoMsg_TCL_DECLARED
#define Tcl_ErrnoMsg_TCL_DECLARED
/* 128 */ /* 128 */
EXTERN CONST84_RETURN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); EXTERN CONST84_RETURN char * Tcl_ErrnoMsg (int err);
#endif
#ifndef Tcl_Eval_TCL_DECLARED
#define Tcl_Eval_TCL_DECLARED
/* 129 */ /* 129 */
EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_Eval (Tcl_Interp * interp, CONST char * script);
CONST char *script)); #endif
#ifndef Tcl_EvalFile_TCL_DECLARED
#define Tcl_EvalFile_TCL_DECLARED
/* 130 */ /* 130 */
EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_EvalFile (Tcl_Interp * interp,
CONST char *fileName)); CONST char * fileName);
#endif
#ifndef Tcl_EvalObj_TCL_DECLARED
#define Tcl_EvalObj_TCL_DECLARED
/* 131 */ /* 131 */
EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_EvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr);
Tcl_Obj *objPtr)); #endif
#ifndef Tcl_EventuallyFree_TCL_DECLARED
#define Tcl_EventuallyFree_TCL_DECLARED
/* 132 */ /* 132 */
EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( EXTERN void Tcl_EventuallyFree (ClientData clientData,
ClientData clientData, Tcl_FreeProc * freeProc);
Tcl_FreeProc *freeProc)); #endif
#ifndef Tcl_Exit_TCL_DECLARED
#define Tcl_Exit_TCL_DECLARED
/* 133 */ /* 133 */
EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); EXTERN void Tcl_Exit (int status);
#endif
#ifndef Tcl_ExposeCommand_TCL_DECLARED
#define Tcl_ExposeCommand_TCL_DECLARED
/* 134 */ /* 134 */
EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExposeCommand (Tcl_Interp * interp,
CONST char *hiddenCmdToken, CONST char * hiddenCmdToken,
CONST char *cmdName)); CONST char * cmdName);
#endif
#ifndef Tcl_ExprBoolean_TCL_DECLARED
#define Tcl_ExprBoolean_TCL_DECLARED
/* 135 */ /* 135 */
EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprBoolean (Tcl_Interp * interp,
CONST char *expr, int *ptr)); CONST char * expr, int * ptr);
#endif
#ifndef Tcl_ExprBooleanObj_TCL_DECLARED
#define Tcl_ExprBooleanObj_TCL_DECLARED
/* 136 */ /* 136 */
EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprBooleanObj (Tcl_Interp * interp,
Tcl_Obj *objPtr, int *ptr)); Tcl_Obj * objPtr, int * ptr);
#endif
#ifndef Tcl_ExprDouble_TCL_DECLARED
#define Tcl_ExprDouble_TCL_DECLARED
/* 137 */ /* 137 */
EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprDouble (Tcl_Interp * interp,
CONST char *expr, double *ptr)); CONST char * expr, double * ptr);
#endif
#ifndef Tcl_ExprDoubleObj_TCL_DECLARED
#define Tcl_ExprDoubleObj_TCL_DECLARED
/* 138 */ /* 138 */
EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprDoubleObj (Tcl_Interp * interp,
Tcl_Obj *objPtr, double *ptr)); Tcl_Obj * objPtr, double * ptr);
#endif
#ifndef Tcl_ExprLong_TCL_DECLARED
#define Tcl_ExprLong_TCL_DECLARED
/* 139 */ /* 139 */
EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprLong (Tcl_Interp * interp, CONST char * expr
CONST char *expr, long *ptr)); ,
long * ptr);
#endif
#ifndef Tcl_ExprLongObj_TCL_DECLARED
#define Tcl_ExprLongObj_TCL_DECLARED
/* 140 */ /* 140 */
EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprLongObj (Tcl_Interp * interp,
Tcl_Obj *objPtr, long *ptr)); Tcl_Obj * objPtr, long * ptr);
#endif
#ifndef Tcl_ExprObj_TCL_DECLARED
#define Tcl_ExprObj_TCL_DECLARED
/* 141 */ /* 141 */
EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr)); Tcl_Obj ** resultPtrPtr);
#endif
#ifndef Tcl_ExprString_TCL_DECLARED
#define Tcl_ExprString_TCL_DECLARED
/* 142 */ /* 142 */
EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExprString (Tcl_Interp * interp,
CONST char *expr)); CONST char * expr);
#endif
#ifndef Tcl_Finalize_TCL_DECLARED
#define Tcl_Finalize_TCL_DECLARED
/* 143 */ /* 143 */
EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); EXTERN void Tcl_Finalize (void);
#endif
#ifndef Tcl_FindExecutable_TCL_DECLARED
#define Tcl_FindExecutable_TCL_DECLARED
/* 144 */ /* 144 */
EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char *argv0)); EXTERN void Tcl_FindExecutable (CONST char * argv0);
#endif
#ifndef Tcl_FirstHashEntry_TCL_DECLARED
#define Tcl_FirstHashEntry_TCL_DECLARED
/* 145 */ /* 145 */
EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_FirstHashEntry (Tcl_HashTable * tablePtr,
Tcl_HashTable *tablePtr, Tcl_HashSearch * searchPtr);
Tcl_HashSearch *searchPtr)); #endif
#ifndef Tcl_Flush_TCL_DECLARED
#define Tcl_Flush_TCL_DECLARED
/* 146 */ /* 146 */
EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_Flush (Tcl_Channel chan);
#endif
#ifndef Tcl_FreeResult_TCL_DECLARED
#define Tcl_FreeResult_TCL_DECLARED
/* 147 */ /* 147 */
EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN void Tcl_FreeResult (Tcl_Interp * interp);
#endif
#ifndef Tcl_GetAlias_TCL_DECLARED
#define Tcl_GetAlias_TCL_DECLARED
/* 148 */ /* 148 */
EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetAlias (Tcl_Interp * interp,
CONST char *slaveCmd, CONST char * slaveCmd,
Tcl_Interp **targetInterpPtr, Tcl_Interp ** targetInterpPtr,
CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ** targetCmdPtr, int * argcPtr,
CONST84 char ***argvPtr)); CONST84 char *** argvPtr);
#endif
#ifndef Tcl_GetAliasObj_TCL_DECLARED
#define Tcl_GetAliasObj_TCL_DECLARED
/* 149 */ /* 149 */
EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetAliasObj (Tcl_Interp * interp,
CONST char *slaveCmd, CONST char * slaveCmd,
Tcl_Interp **targetInterpPtr, Tcl_Interp ** targetInterpPtr,
CONST84 char **targetCmdPtr, int *objcPtr, CONST84 char ** targetCmdPtr, int * objcPtr,
Tcl_Obj ***objv)); Tcl_Obj *** objv);
#endif
#ifndef Tcl_GetAssocData_TCL_DECLARED
#define Tcl_GetAssocData_TCL_DECLARED
/* 150 */ /* 150 */
EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp *interp, EXTERN ClientData Tcl_GetAssocData (Tcl_Interp * interp,
CONST char *name, CONST char * name,
Tcl_InterpDeleteProc **procPtr)); Tcl_InterpDeleteProc ** procPtr);
#endif
#ifndef Tcl_GetChannel_TCL_DECLARED
#define Tcl_GetChannel_TCL_DECLARED
/* 151 */ /* 151 */
EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_GetChannel (Tcl_Interp * interp,
CONST char *chanName, int *modePtr)); CONST char * chanName, int * modePtr);
#endif
#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED
#define Tcl_GetChannelBufferSize_TCL_DECLARED
/* 152 */ /* 152 */
EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( EXTERN int Tcl_GetChannelBufferSize (Tcl_Channel chan);
Tcl_Channel chan)); #endif
#ifndef Tcl_GetChannelHandle_TCL_DECLARED
#define Tcl_GetChannelHandle_TCL_DECLARED
/* 153 */ /* 153 */
EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_GetChannelHandle (Tcl_Channel chan,
int direction, ClientData *handlePtr)); int direction, ClientData * handlePtr);
#endif
#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED
#define Tcl_GetChannelInstanceData_TCL_DECLARED
/* 154 */ /* 154 */
EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( EXTERN ClientData Tcl_GetChannelInstanceData (Tcl_Channel chan);
Tcl_Channel chan)); #endif
#ifndef Tcl_GetChannelMode_TCL_DECLARED
#define Tcl_GetChannelMode_TCL_DECLARED
/* 155 */ /* 155 */
EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_GetChannelMode (Tcl_Channel chan);
#endif
#ifndef Tcl_GetChannelName_TCL_DECLARED
#define Tcl_GetChannelName_TCL_DECLARED
/* 156 */ /* 156 */
EXTERN CONST84_RETURN char * Tcl_GetChannelName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetChannelName (Tcl_Channel chan);
Tcl_Channel chan)); #endif
#ifndef Tcl_GetChannelOption_TCL_DECLARED
#define Tcl_GetChannelOption_TCL_DECLARED
/* 157 */ /* 157 */
EXTERN int Tcl_GetChannelOption _ANSI_ARGS_((Tcl_Interp *interp EXTERN int Tcl_GetChannelOption (Tcl_Interp * interp,
, Tcl_Channel chan, CONST char * optionName,
Tcl_Channel chan, CONST char *optionName, Tcl_DString * dsPtr);
Tcl_DString *dsPtr)); #endif
#ifndef Tcl_GetChannelType_TCL_DECLARED
#define Tcl_GetChannelType_TCL_DECLARED
/* 158 */ /* 158 */
EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)) EXTERN Tcl_ChannelType * Tcl_GetChannelType (Tcl_Channel chan);
; #endif
#ifndef Tcl_GetCommandInfo_TCL_DECLARED
#define Tcl_GetCommandInfo_TCL_DECLARED
/* 159 */ /* 159 */
EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetCommandInfo (Tcl_Interp * interp,
CONST char *cmdName, Tcl_CmdInfo *infoPtr)); CONST char * cmdName, Tcl_CmdInfo * infoPtr)
;
#endif
#ifndef Tcl_GetCommandName_TCL_DECLARED
#define Tcl_GetCommandName_TCL_DECLARED
/* 160 */ /* 160 */
EXTERN CONST84_RETURN char * Tcl_GetCommandName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetCommandName (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Command command)); Tcl_Command command);
#endif
#ifndef Tcl_GetErrno_TCL_DECLARED
#define Tcl_GetErrno_TCL_DECLARED
/* 161 */ /* 161 */
EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); EXTERN int Tcl_GetErrno (void);
#endif
#ifndef Tcl_GetHostName_TCL_DECLARED
#define Tcl_GetHostName_TCL_DECLARED
/* 162 */ /* 162 */
EXTERN CONST84_RETURN char * Tcl_GetHostName _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_GetHostName (void);
#endif
#ifndef Tcl_GetInterpPath_TCL_DECLARED
#define Tcl_GetInterpPath_TCL_DECLARED
/* 163 */ /* 163 */
EXTERN int Tcl_GetInterpPath _ANSI_ARGS_((Tcl_Interp *askInterp EXTERN int Tcl_GetInterpPath (Tcl_Interp * askInterp,
, Tcl_Interp * slaveInterp);
Tcl_Interp *slaveInterp)); #endif
#ifndef Tcl_GetMaster_TCL_DECLARED
#define Tcl_GetMaster_TCL_DECLARED
/* 164 */ /* 164 */
EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN Tcl_Interp * Tcl_GetMaster (Tcl_Interp * interp);
#endif
#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED
#define Tcl_GetNameOfExecutable_TCL_DECLARED
/* 165 */ /* 165 */
EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); EXTERN CONST char * Tcl_GetNameOfExecutable (void);
#endif
#ifndef Tcl_GetObjResult_TCL_DECLARED
#define Tcl_GetObjResult_TCL_DECLARED
/* 166 */ /* 166 */
EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN Tcl_Obj * Tcl_GetObjResult (Tcl_Interp * interp);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_GetOpenFile_TCL_DECLARED
#define Tcl_GetOpenFile_TCL_DECLARED
/* 167 */ /* 167 */
EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
CONST char *chanID, int forWriting, CONST char * chanID, int forWriting,
int checkUsage, ClientData *filePtr)); int checkUsage, ClientData * filePtr);
#endif
#endif /* UNIX */ #endif /* UNIX */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_GetOpenFile_TCL_DECLARED
#define Tcl_GetOpenFile_TCL_DECLARED
/* 167 */ /* 167 */
EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
CONST char *chanID, int forWriting, CONST char * chanID, int forWriting,
int checkUsage, ClientData *filePtr)); int checkUsage, ClientData * filePtr);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
#ifndef Tcl_GetPathType_TCL_DECLARED
#define Tcl_GetPathType_TCL_DECLARED
/* 168 */ /* 168 */
EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char *path)); EXTERN Tcl_PathType Tcl_GetPathType (CONST char * path);
#endif
#ifndef Tcl_Gets_TCL_DECLARED
#define Tcl_Gets_TCL_DECLARED
/* 169 */ /* 169 */
EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Gets (Tcl_Channel chan, Tcl_DString * dsPtr);
Tcl_DString *dsPtr)); #endif
#ifndef Tcl_GetsObj_TCL_DECLARED
#define Tcl_GetsObj_TCL_DECLARED
/* 170 */ /* 170 */
EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_GetsObj (Tcl_Channel chan, Tcl_Obj * objPtr);
Tcl_Obj *objPtr)); #endif
#ifndef Tcl_GetServiceMode_TCL_DECLARED
#define Tcl_GetServiceMode_TCL_DECLARED
/* 171 */ /* 171 */
EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); EXTERN int Tcl_GetServiceMode (void);
#endif
#ifndef Tcl_GetSlave_TCL_DECLARED
#define Tcl_GetSlave_TCL_DECLARED
/* 172 */ /* 172 */
EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Interp * Tcl_GetSlave (Tcl_Interp * interp,
CONST char *slaveName)); CONST char * slaveName);
#endif
#ifndef Tcl_GetStdChannel_TCL_DECLARED
#define Tcl_GetStdChannel_TCL_DECLARED
/* 173 */ /* 173 */
EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); EXTERN Tcl_Channel Tcl_GetStdChannel (int type);
#endif
#ifndef Tcl_GetStringResult_TCL_DECLARED
#define Tcl_GetStringResult_TCL_DECLARED
/* 174 */ /* 174 */
EXTERN CONST84_RETURN char * Tcl_GetStringResult _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetStringResult (Tcl_Interp * interp);
Tcl_Interp *interp)); #endif
#ifndef Tcl_GetVar_TCL_DECLARED
#define Tcl_GetVar_TCL_DECLARED
/* 175 */ /* 175 */
EXTERN CONST84_RETURN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_GetVar (Tcl_Interp * interp,
CONST char *varName, int flags)); CONST char * varName, int flags);
#endif
#ifndef Tcl_GetVar2_TCL_DECLARED
#define Tcl_GetVar2_TCL_DECLARED
/* 176 */ /* 176 */
EXTERN CONST84_RETURN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_GetVar2 (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
int flags)); int flags);
#endif
#ifndef Tcl_GlobalEval_TCL_DECLARED
#define Tcl_GlobalEval_TCL_DECLARED
/* 177 */ /* 177 */
EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GlobalEval (Tcl_Interp * interp,
CONST char *command)); CONST char * command);
#endif
#ifndef Tcl_GlobalEvalObj_TCL_DECLARED
#define Tcl_GlobalEvalObj_TCL_DECLARED
/* 178 */ /* 178 */
EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GlobalEvalObj (Tcl_Interp * interp,
Tcl_Obj *objPtr)); Tcl_Obj * objPtr);
#endif
#ifndef Tcl_HideCommand_TCL_DECLARED
#define Tcl_HideCommand_TCL_DECLARED
/* 179 */ /* 179 */
EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_HideCommand (Tcl_Interp * interp,
CONST char *cmdName, CONST char * cmdName,
CONST char *hiddenCmdToken)); CONST char * hiddenCmdToken);
#endif
#ifndef Tcl_Init_TCL_DECLARED
#define Tcl_Init_TCL_DECLARED
/* 180 */ /* 180 */
EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_Init (Tcl_Interp * interp);
#endif
#ifndef Tcl_InitHashTable_TCL_DECLARED
#define Tcl_InitHashTable_TCL_DECLARED
/* 181 */ /* 181 */
EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitHashTable (Tcl_HashTable * tablePtr,
Tcl_HashTable *tablePtr, int keyType)); int keyType);
#endif
#ifndef Tcl_InputBlocked_TCL_DECLARED
#define Tcl_InputBlocked_TCL_DECLARED
/* 182 */ /* 182 */
EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_InputBlocked (Tcl_Channel chan);
#endif
#ifndef Tcl_InputBuffered_TCL_DECLARED
#define Tcl_InputBuffered_TCL_DECLARED
/* 183 */ /* 183 */
EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_InputBuffered (Tcl_Channel chan);
#endif
#ifndef Tcl_InterpDeleted_TCL_DECLARED
#define Tcl_InterpDeleted_TCL_DECLARED
/* 184 */ /* 184 */
EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_InterpDeleted (Tcl_Interp * interp);
#endif
#ifndef Tcl_IsSafe_TCL_DECLARED
#define Tcl_IsSafe_TCL_DECLARED
/* 185 */ /* 185 */
EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_IsSafe (Tcl_Interp * interp);
#endif
#ifndef Tcl_JoinPath_TCL_DECLARED
#define Tcl_JoinPath_TCL_DECLARED
/* 186 */ /* 186 */
EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, EXTERN char * Tcl_JoinPath (int argc, CONST84 char * CONST * argv,
CONST84 char *CONST *argv, Tcl_DString * resultPtr);
Tcl_DString *resultPtr)); #endif
#ifndef Tcl_LinkVar_TCL_DECLARED
#define Tcl_LinkVar_TCL_DECLARED
/* 187 */ /* 187 */
EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_LinkVar (Tcl_Interp * interp,
CONST char *varName, char *addr, int type)); CONST char * varName, char * addr, int type)
;
#endif
/* Slot 188 is reserved */ /* Slot 188 is reserved */
#ifndef Tcl_MakeFileChannel_TCL_DECLARED
#define Tcl_MakeFileChannel_TCL_DECLARED
/* 189 */ /* 189 */
EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, EXTERN Tcl_Channel Tcl_MakeFileChannel (ClientData handle, int mode);
int mode)); #endif
#ifndef Tcl_MakeSafe_TCL_DECLARED
#define Tcl_MakeSafe_TCL_DECLARED
/* 190 */ /* 190 */
EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_MakeSafe (Tcl_Interp * interp);
#endif
#ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED
#define Tcl_MakeTcpClientChannel_TCL_DECLARED
/* 191 */ /* 191 */
EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_MakeTcpClientChannel (ClientData tcpSocket);
ClientData tcpSocket)); #endif
#ifndef Tcl_Merge_TCL_DECLARED
#define Tcl_Merge_TCL_DECLARED
/* 192 */ /* 192 */
EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, EXTERN char * Tcl_Merge (int argc, CONST84 char * CONST * argv);
CONST84 char *CONST *argv)); #endif
#ifndef Tcl_NextHashEntry_TCL_DECLARED
#define Tcl_NextHashEntry_TCL_DECLARED
/* 193 */ /* 193 */
EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_NextHashEntry (Tcl_HashSearch * searchPtr);
Tcl_HashSearch *searchPtr)); #endif
#ifndef Tcl_NotifyChannel_TCL_DECLARED
#define Tcl_NotifyChannel_TCL_DECLARED
/* 194 */ /* 194 */
EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_NotifyChannel (Tcl_Channel channel, int mask);
int mask)); #endif
#ifndef Tcl_ObjGetVar2_TCL_DECLARED
#define Tcl_ObjGetVar2_TCL_DECLARED
/* 195 */ /* 195 */
EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_ObjGetVar2 (Tcl_Interp * interp,
Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
int flags)); int flags);
#endif
#ifndef Tcl_ObjSetVar2_TCL_DECLARED
#define Tcl_ObjSetVar2_TCL_DECLARED
/* 196 */ /* 196 */
EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_ObjSetVar2 (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);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
int argc, CONST84 char ** argv, int flags);
#endif
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */ /* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
Tcl_Interp *interp, int argc, int argc, CONST84 char ** argv, int flags);
CONST84 char **argv, int flags)); #endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
int argc, CONST84 char ** argv, int flags);
#endif
#endif /* MACOSX */
#ifndef Tcl_OpenFileChannel_TCL_DECLARED
#define Tcl_OpenFileChannel_TCL_DECLARED
/* 198 */ /* 198 */
EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_OpenFileChannel (Tcl_Interp * interp,
CONST char *fileName, CONST char *modeString CONST char * fileName,
, CONST char * modeString, int permissions);
int permissions)); #endif
#ifndef Tcl_OpenTcpClient_TCL_DECLARED
#define Tcl_OpenTcpClient_TCL_DECLARED
/* 199 */ /* 199 */
EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_OpenTcpClient (Tcl_Interp * interp, int port,
int port, CONST char *address, CONST char * address, CONST char * myaddr,
CONST char *myaddr, int myport, int async)); int myport, int async);
#endif
#ifndef Tcl_OpenTcpServer_TCL_DECLARED
#define Tcl_OpenTcpServer_TCL_DECLARED
/* 200 */ /* 200 */
EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_OpenTcpServer (Tcl_Interp * interp, int port,
int port, CONST char *host, CONST char * host,
Tcl_TcpAcceptProc *acceptProc, Tcl_TcpAcceptProc * acceptProc,
ClientData callbackData)); ClientData callbackData);
#endif
#ifndef Tcl_Preserve_TCL_DECLARED
#define Tcl_Preserve_TCL_DECLARED
/* 201 */ /* 201 */
EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); EXTERN void Tcl_Preserve (ClientData data);
#endif
#ifndef Tcl_PrintDouble_TCL_DECLARED
#define Tcl_PrintDouble_TCL_DECLARED
/* 202 */ /* 202 */
EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_PrintDouble (Tcl_Interp * interp, double value,
double value, char *dst)); char * dst);
#endif
#ifndef Tcl_PutEnv_TCL_DECLARED
#define Tcl_PutEnv_TCL_DECLARED
/* 203 */ /* 203 */
EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char *assignment)); EXTERN int Tcl_PutEnv (CONST char * assignment);
#endif
#ifndef Tcl_PosixError_TCL_DECLARED
#define Tcl_PosixError_TCL_DECLARED
/* 204 */ /* 204 */
EXTERN CONST84_RETURN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp *interp EXTERN CONST84_RETURN char * Tcl_PosixError (Tcl_Interp * interp);
)); #endif
#ifndef Tcl_QueueEvent_TCL_DECLARED
#define Tcl_QueueEvent_TCL_DECLARED
/* 205 */ /* 205 */
EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event *evPtr, EXTERN void Tcl_QueueEvent (Tcl_Event * evPtr,
Tcl_QueuePosition position)); Tcl_QueuePosition position);
#endif
#ifndef Tcl_Read_TCL_DECLARED
#define Tcl_Read_TCL_DECLARED
/* 206 */ /* 206 */
EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, char *bufPtr EXTERN int Tcl_Read (Tcl_Channel chan, char * bufPtr,
, int toRead);
int toRead)); #endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
#define Tcl_ReapDetachedProcs_TCL_DECLARED
/* 207 */ /* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); EXTERN void Tcl_ReapDetachedProcs (void);
#endif
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
#define Tcl_ReapDetachedProcs_TCL_DECLARED
/* 207 */
EXTERN void Tcl_ReapDetachedProcs (void);
#endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED
#define Tcl_ReapDetachedProcs_TCL_DECLARED
/* 207 */
EXTERN void Tcl_ReapDetachedProcs (void);
#endif
#endif /* MACOSX */
#ifndef Tcl_RecordAndEval_TCL_DECLARED
#define Tcl_RecordAndEval_TCL_DECLARED
/* 208 */ /* 208 */
EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_RecordAndEval (Tcl_Interp * interp,
CONST char *cmd, int flags)); CONST char * cmd, int flags);
#endif
#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED
#define Tcl_RecordAndEvalObj_TCL_DECLARED
/* 209 */ /* 209 */
EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_((Tcl_Interp *interp EXTERN int Tcl_RecordAndEvalObj (Tcl_Interp * interp,
, Tcl_Obj * cmdPtr, int flags);
Tcl_Obj *cmdPtr, int flags)); #endif
#ifndef Tcl_RegisterChannel_TCL_DECLARED
#define Tcl_RegisterChannel_TCL_DECLARED
/* 210 */ /* 210 */
EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_RegisterChannel (Tcl_Interp * interp,
Tcl_Channel chan)); Tcl_Channel chan);
#endif
#ifndef Tcl_RegisterObjType_TCL_DECLARED
#define Tcl_RegisterObjType_TCL_DECLARED
/* 211 */ /* 211 */
EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( EXTERN void Tcl_RegisterObjType (Tcl_ObjType * typePtr);
Tcl_ObjType *typePtr)); #endif
#ifndef Tcl_RegExpCompile_TCL_DECLARED
#define Tcl_RegExpCompile_TCL_DECLARED
/* 212 */ /* 212 */
EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_RegExp Tcl_RegExpCompile (Tcl_Interp * interp,
CONST char *pattern)); CONST char * pattern);
#endif
#ifndef Tcl_RegExpExec_TCL_DECLARED
#define Tcl_RegExpExec_TCL_DECLARED
/* 213 */ /* 213 */
EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_RegExpExec (Tcl_Interp * interp,
Tcl_RegExp regexp, CONST char *text, Tcl_RegExp regexp, CONST char * text,
CONST char *start)); CONST char * start);
#endif
#ifndef Tcl_RegExpMatch_TCL_DECLARED
#define Tcl_RegExpMatch_TCL_DECLARED
/* 214 */ /* 214 */
EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_RegExpMatch (Tcl_Interp * interp,
CONST char *text, CONST char *pattern)); CONST char * text, CONST char * pattern);
#endif
#ifndef Tcl_RegExpRange_TCL_DECLARED
#define Tcl_RegExpRange_TCL_DECLARED
/* 215 */ /* 215 */
EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, EXTERN void Tcl_RegExpRange (Tcl_RegExp regexp, int index,
int index, CONST84 char **startPtr, CONST84 char ** startPtr,
CONST84 char **endPtr)); CONST84 char ** endPtr);
#endif
#ifndef Tcl_Release_TCL_DECLARED
#define Tcl_Release_TCL_DECLARED
/* 216 */ /* 216 */
EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); EXTERN void Tcl_Release (ClientData clientData);
#endif
#ifndef Tcl_ResetResult_TCL_DECLARED
#define Tcl_ResetResult_TCL_DECLARED
/* 217 */ /* 217 */
EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN void Tcl_ResetResult (Tcl_Interp * interp);
#endif
#ifndef Tcl_ScanElement_TCL_DECLARED
#define Tcl_ScanElement_TCL_DECLARED
/* 218 */ /* 218 */
EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_ScanElement (CONST char * str, int * flagPtr);
int *flagPtr)); #endif
#ifndef Tcl_ScanCountedElement_TCL_DECLARED
#define Tcl_ScanCountedElement_TCL_DECLARED
/* 219 */ /* 219 */
EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_ScanCountedElement (CONST char * str, int length
int length, int *flagPtr)); ,
int * flagPtr);
#endif
#ifndef Tcl_SeekOld_TCL_DECLARED
#define Tcl_SeekOld_TCL_DECLARED
/* 220 */ /* 220 */
EXTERN int Tcl_SeekOld _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_SeekOld (Tcl_Channel chan, int offset, int mode)
int offset, int mode)); ;
#endif
#ifndef Tcl_ServiceAll_TCL_DECLARED
#define Tcl_ServiceAll_TCL_DECLARED
/* 221 */ /* 221 */
EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); EXTERN int Tcl_ServiceAll (void);
#endif
#ifndef Tcl_ServiceEvent_TCL_DECLARED
#define Tcl_ServiceEvent_TCL_DECLARED
/* 222 */ /* 222 */
EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); EXTERN int Tcl_ServiceEvent (int flags);
#endif
#ifndef Tcl_SetAssocData_TCL_DECLARED
#define Tcl_SetAssocData_TCL_DECLARED
/* 223 */ /* 223 */
EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_SetAssocData (Tcl_Interp * interp,
CONST char *name, Tcl_InterpDeleteProc *proc CONST char * name,
, Tcl_InterpDeleteProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED
#define Tcl_SetChannelBufferSize_TCL_DECLARED
/* 224 */ /* 224 */
EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( EXTERN void Tcl_SetChannelBufferSize (Tcl_Channel chan, int sz);
Tcl_Channel chan, int sz)); #endif
#ifndef Tcl_SetChannelOption_TCL_DECLARED
#define Tcl_SetChannelOption_TCL_DECLARED
/* 225 */ /* 225 */
EXTERN int Tcl_SetChannelOption _ANSI_ARGS_((Tcl_Interp *interp EXTERN int Tcl_SetChannelOption (Tcl_Interp * interp,
, Tcl_Channel chan, CONST char * optionName,
Tcl_Channel chan, CONST char *optionName, CONST char * newValue);
CONST char *newValue)); #endif
#ifndef Tcl_SetCommandInfo_TCL_DECLARED
#define Tcl_SetCommandInfo_TCL_DECLARED
/* 226 */ /* 226 */
EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_SetCommandInfo (Tcl_Interp * interp,
CONST char *cmdName, CONST char * cmdName,
CONST Tcl_CmdInfo *infoPtr)); CONST Tcl_CmdInfo * infoPtr);
#endif
#ifndef Tcl_SetErrno_TCL_DECLARED
#define Tcl_SetErrno_TCL_DECLARED
/* 227 */ /* 227 */
EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); EXTERN void Tcl_SetErrno (int err);
#endif
#ifndef Tcl_SetErrorCode_TCL_DECLARED
#define Tcl_SetErrorCode_TCL_DECLARED
/* 228 */ /* 228 */
EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp EXTERN void Tcl_SetErrorCode (Tcl_Interp * interp, ...);
*,interp)); #endif
#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED
#define Tcl_SetMaxBlockTime_TCL_DECLARED
/* 229 */ /* 229 */
EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time *timePtr)) EXTERN void Tcl_SetMaxBlockTime (Tcl_Time * timePtr);
; #endif
#ifndef Tcl_SetPanicProc_TCL_DECLARED
#define Tcl_SetPanicProc_TCL_DECLARED
/* 230 */ /* 230 */
EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( EXTERN void Tcl_SetPanicProc (Tcl_PanicProc * panicProc);
Tcl_PanicProc *panicProc)); #endif
#ifndef Tcl_SetRecursionLimit_TCL_DECLARED
#define Tcl_SetRecursionLimit_TCL_DECLARED
/* 231 */ /* 231 */
EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( EXTERN int Tcl_SetRecursionLimit (Tcl_Interp * interp,
Tcl_Interp *interp, int depth)); int depth);
#endif
#ifndef Tcl_SetResult_TCL_DECLARED
#define Tcl_SetResult_TCL_DECLARED
/* 232 */ /* 232 */
EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_SetResult (Tcl_Interp * interp, char * result,
char *result, Tcl_FreeProc *freeProc)); Tcl_FreeProc * freeProc);
#endif
#ifndef Tcl_SetServiceMode_TCL_DECLARED
#define Tcl_SetServiceMode_TCL_DECLARED
/* 233 */ /* 233 */
EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); EXTERN int Tcl_SetServiceMode (int mode);
#endif
#ifndef Tcl_SetObjErrorCode_TCL_DECLARED
#define Tcl_SetObjErrorCode_TCL_DECLARED
/* 234 */ /* 234 */
EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_SetObjErrorCode (Tcl_Interp * interp,
Tcl_Obj *errorObjPtr)); Tcl_Obj * errorObjPtr);
#endif
#ifndef Tcl_SetObjResult_TCL_DECLARED
#define Tcl_SetObjResult_TCL_DECLARED
/* 235 */ /* 235 */
EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_SetObjResult (Tcl_Interp * interp,
Tcl_Obj *resultObjPtr)); Tcl_Obj * resultObjPtr);
#endif
#ifndef Tcl_SetStdChannel_TCL_DECLARED
#define Tcl_SetStdChannel_TCL_DECLARED
/* 236 */ /* 236 */
EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_SetStdChannel (Tcl_Channel channel, int type);
int type)); #endif
#ifndef Tcl_SetVar_TCL_DECLARED
#define Tcl_SetVar_TCL_DECLARED
/* 237 */ /* 237 */
EXTERN CONST84_RETURN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_SetVar (Tcl_Interp * interp,
CONST char *varName, CONST char *newValue, CONST char * varName, CONST char * newValue,
int flags)); int flags);
#endif
#ifndef Tcl_SetVar2_TCL_DECLARED
#define Tcl_SetVar2_TCL_DECLARED
/* 238 */ /* 238 */
EXTERN CONST84_RETURN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_SetVar2 (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
CONST char *newValue, int flags)); CONST char * newValue, int flags);
#endif
#ifndef Tcl_SignalId_TCL_DECLARED
#define Tcl_SignalId_TCL_DECLARED
/* 239 */ /* 239 */
EXTERN CONST84_RETURN char * Tcl_SignalId _ANSI_ARGS_((int sig)); EXTERN CONST84_RETURN char * Tcl_SignalId (int sig);
#endif
#ifndef Tcl_SignalMsg_TCL_DECLARED
#define Tcl_SignalMsg_TCL_DECLARED
/* 240 */ /* 240 */
EXTERN CONST84_RETURN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); EXTERN CONST84_RETURN char * Tcl_SignalMsg (int sig);
#endif
#ifndef Tcl_SourceRCFile_TCL_DECLARED
#define Tcl_SourceRCFile_TCL_DECLARED
/* 241 */ /* 241 */
EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN void Tcl_SourceRCFile (Tcl_Interp * interp);
#endif
#ifndef Tcl_SplitList_TCL_DECLARED
#define Tcl_SplitList_TCL_DECLARED
/* 242 */ /* 242 */
EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_SplitList (Tcl_Interp * interp,
CONST char *listStr, int *argcPtr, CONST char * listStr, int * argcPtr,
CONST84 char ***argvPtr)); CONST84 char *** argvPtr);
#endif
#ifndef Tcl_SplitPath_TCL_DECLARED
#define Tcl_SplitPath_TCL_DECLARED
/* 243 */ /* 243 */
EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char *path, EXTERN void Tcl_SplitPath (CONST char * path, int * argcPtr,
int *argcPtr, CONST84 char ***argvPtr)); CONST84 char *** argvPtr);
#endif
#ifndef Tcl_StaticPackage_TCL_DECLARED
#define Tcl_StaticPackage_TCL_DECLARED
/* 244 */ /* 244 */
EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_StaticPackage (Tcl_Interp * interp,
CONST char *pkgName, CONST char * pkgName,
Tcl_PackageInitProc *initProc, Tcl_PackageInitProc * initProc,
Tcl_PackageInitProc *safeInitProc)); Tcl_PackageInitProc * safeInitProc);
#endif
#ifndef Tcl_StringMatch_TCL_DECLARED
#define Tcl_StringMatch_TCL_DECLARED
/* 245 */ /* 245 */
EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char *str, EXTERN int Tcl_StringMatch (CONST char * str,
CONST char *pattern)); CONST char * pattern);
#endif
#ifndef Tcl_TellOld_TCL_DECLARED
#define Tcl_TellOld_TCL_DECLARED
/* 246 */ /* 246 */
EXTERN int Tcl_TellOld _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_TellOld (Tcl_Channel chan);
#endif
#ifndef Tcl_TraceVar_TCL_DECLARED
#define Tcl_TraceVar_TCL_DECLARED
/* 247 */ /* 247 */
EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_TraceVar (Tcl_Interp * interp,
CONST char *varName, int flags, CONST char * varName, int flags,
Tcl_VarTraceProc *proc, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_TraceVar2_TCL_DECLARED
#define Tcl_TraceVar2_TCL_DECLARED
/* 248 */ /* 248 */
EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_TraceVar2 (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
int flags, Tcl_VarTraceProc *proc, int flags, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_TranslateFileName_TCL_DECLARED
#define Tcl_TranslateFileName_TCL_DECLARED
/* 249 */ /* 249 */
EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( EXTERN char * Tcl_TranslateFileName (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *name, CONST char * name, Tcl_DString * bufferPtr);
Tcl_DString *bufferPtr)); #endif
#ifndef Tcl_Ungets_TCL_DECLARED
#define Tcl_Ungets_TCL_DECLARED
/* 250 */ /* 250 */
EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Ungets (Tcl_Channel chan, CONST char * str,
CONST char *str, int len, int atHead)); int len, int atHead);
#endif
#ifndef Tcl_UnlinkVar_TCL_DECLARED
#define Tcl_UnlinkVar_TCL_DECLARED
/* 251 */ /* 251 */
EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_UnlinkVar (Tcl_Interp * interp,
CONST char *varName)); CONST char * varName);
#endif
#ifndef Tcl_UnregisterChannel_TCL_DECLARED
#define Tcl_UnregisterChannel_TCL_DECLARED
/* 252 */ /* 252 */
EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( EXTERN int Tcl_UnregisterChannel (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Channel chan)); Tcl_Channel chan);
#endif
#ifndef Tcl_UnsetVar_TCL_DECLARED
#define Tcl_UnsetVar_TCL_DECLARED
/* 253 */ /* 253 */
EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_UnsetVar (Tcl_Interp * interp,
CONST char *varName, int flags)); CONST char * varName, int flags);
#endif
#ifndef Tcl_UnsetVar2_TCL_DECLARED
#define Tcl_UnsetVar2_TCL_DECLARED
/* 254 */ /* 254 */
EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_UnsetVar2 (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
int flags)); int flags);
#endif
#ifndef Tcl_UntraceVar_TCL_DECLARED
#define Tcl_UntraceVar_TCL_DECLARED
/* 255 */ /* 255 */
EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_UntraceVar (Tcl_Interp * interp,
CONST char *varName, int flags, CONST char * varName, int flags,
Tcl_VarTraceProc *proc, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_UntraceVar2_TCL_DECLARED
#define Tcl_UntraceVar2_TCL_DECLARED
/* 256 */ /* 256 */
EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_UntraceVar2 (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
int flags, Tcl_VarTraceProc *proc, int flags, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED
#define Tcl_UpdateLinkedVar_TCL_DECLARED
/* 257 */ /* 257 */
EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_UpdateLinkedVar (Tcl_Interp * interp,
CONST char *varName)); CONST char * varName);
#endif
#ifndef Tcl_UpVar_TCL_DECLARED
#define Tcl_UpVar_TCL_DECLARED
/* 258 */ /* 258 */
EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_UpVar (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);
#endif
#ifndef Tcl_UpVar2_TCL_DECLARED
#define Tcl_UpVar2_TCL_DECLARED
/* 259 */ /* 259 */
EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_UpVar2 (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);
#endif
#ifndef Tcl_VarEval_TCL_DECLARED
#define Tcl_VarEval_TCL_DECLARED
/* 260 */ /* 260 */
EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,int EXTERN int Tcl_VarEval (Tcl_Interp * interp, ...);
erp)); #endif
#ifndef Tcl_VarTraceInfo_TCL_DECLARED
#define Tcl_VarTraceInfo_TCL_DECLARED
/* 261 */ /* 261 */
EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN ClientData Tcl_VarTraceInfo (Tcl_Interp * interp,
CONST char *varName, int flags, CONST char * varName, int flags,
Tcl_VarTraceProc *procPtr, Tcl_VarTraceProc * procPtr,
ClientData prevClientData)); ClientData prevClientData);
#endif
#ifndef Tcl_VarTraceInfo2_TCL_DECLARED
#define Tcl_VarTraceInfo2_TCL_DECLARED
/* 262 */ /* 262 */
EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp *interp, EXTERN ClientData Tcl_VarTraceInfo2 (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
int flags, Tcl_VarTraceProc *procPtr, int flags, Tcl_VarTraceProc * procPtr,
ClientData prevClientData)); ClientData prevClientData);
#endif
#ifndef Tcl_Write_TCL_DECLARED
#define Tcl_Write_TCL_DECLARED
/* 263 */ /* 263 */
EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Write (Tcl_Channel chan, CONST char * s,
CONST char *s, int slen)); int slen);
#endif
#ifndef Tcl_WrongNumArgs_TCL_DECLARED
#define Tcl_WrongNumArgs_TCL_DECLARED
/* 264 */ /* 264 */
EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_WrongNumArgs (Tcl_Interp * interp, int objc,
int objc, Tcl_Obj *CONST objv[], Tcl_Obj *CONST objv[], CONST char * message)
CONST char *message)); ;
#endif
#ifndef Tcl_DumpActiveMemory_TCL_DECLARED
#define Tcl_DumpActiveMemory_TCL_DECLARED
/* 265 */ /* 265 */
EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_(( EXTERN int Tcl_DumpActiveMemory (CONST char * fileName);
CONST char *fileName)); #endif
#ifndef Tcl_ValidateAllMemory_TCL_DECLARED
#define Tcl_ValidateAllMemory_TCL_DECLARED
/* 266 */ /* 266 */
EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char *file, EXTERN void Tcl_ValidateAllMemory (CONST char * file, int line);
int line)); #endif
#ifndef Tcl_AppendResultVA_TCL_DECLARED
#define Tcl_AppendResultVA_TCL_DECLARED
/* 267 */ /* 267 */
EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_AppendResultVA (Tcl_Interp * interp,
va_list argList)); va_list argList);
#endif
#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED
#define Tcl_AppendStringsToObjVA_TCL_DECLARED
/* 268 */ /* 268 */
EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( EXTERN void Tcl_AppendStringsToObjVA (Tcl_Obj * objPtr,
Tcl_Obj *objPtr, va_list argList)); va_list argList);
#endif
#ifndef Tcl_HashStats_TCL_DECLARED
#define Tcl_HashStats_TCL_DECLARED
/* 269 */ /* 269 */
EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable *tablePtr)) EXTERN CONST84_RETURN char * Tcl_HashStats (Tcl_HashTable * tablePtr);
; #endif
#ifndef Tcl_ParseVar_TCL_DECLARED
#define Tcl_ParseVar_TCL_DECLARED
/* 270 */ /* 270 */
EXTERN CONST84_RETURN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST84_RETURN char * Tcl_ParseVar (Tcl_Interp * interp,
CONST char *start, CONST84 char **termPtr)); CONST char * start, CONST84 char ** termPtr)
;
#endif
#ifndef Tcl_PkgPresent_TCL_DECLARED
#define Tcl_PkgPresent_TCL_DECLARED
/* 271 */ /* 271 */
EXTERN CONST84_RETURN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp *interp EXTERN CONST84_RETURN char * Tcl_PkgPresent (Tcl_Interp * interp,
, CONST char * name, CONST char * version,
CONST char *name, CONST char *version, int exact);
int exact)); #endif
#ifndef Tcl_PkgPresentEx_TCL_DECLARED
#define Tcl_PkgPresentEx_TCL_DECLARED
/* 272 */ /* 272 */
EXTERN CONST84_RETURN char * Tcl_PkgPresentEx _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_PkgPresentEx (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *name, CONST char * name, CONST char * version,
CONST char *version, int exact, int exact, ClientData * clientDataPtr);
ClientData *clientDataPtr)); #endif
#ifndef Tcl_PkgProvide_TCL_DECLARED
#define Tcl_PkgProvide_TCL_DECLARED
/* 273 */ /* 273 */
EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_PkgProvide (Tcl_Interp * interp,
CONST char *name, CONST char *version)); CONST char * name, CONST char * version);
#endif
#ifndef Tcl_PkgRequire_TCL_DECLARED
#define Tcl_PkgRequire_TCL_DECLARED
/* 274 */ /* 274 */
EXTERN CONST84_RETURN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp *interp EXTERN CONST84_RETURN char * Tcl_PkgRequire (Tcl_Interp * interp,
, CONST char * name, CONST char * version,
CONST char *name, CONST char *version, int exact);
int exact)); #endif
#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED
#define Tcl_SetErrorCodeVA_TCL_DECLARED
/* 275 */ /* 275 */
EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_SetErrorCodeVA (Tcl_Interp * interp,
va_list argList)); va_list argList);
#endif
#ifndef Tcl_VarEvalVA_TCL_DECLARED
#define Tcl_VarEvalVA_TCL_DECLARED
/* 276 */ /* 276 */
EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_VarEvalVA (Tcl_Interp * interp, va_list argList)
va_list argList)); ;
#endif
#ifndef Tcl_WaitPid_TCL_DECLARED
#define Tcl_WaitPid_TCL_DECLARED
/* 277 */ /* 277 */
EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int *statPtr, EXTERN Tcl_Pid Tcl_WaitPid (Tcl_Pid pid, int * statPtr, int options
int options)); );
#endif
#ifndef Tcl_PanicVA_TCL_DECLARED
#define Tcl_PanicVA_TCL_DECLARED
/* 278 */ /* 278 */
EXTERN void Tcl_PanicVA _ANSI_ARGS_((CONST char *format, EXTERN void Tcl_PanicVA (CONST char * format, va_list argList);
va_list argList)); #endif
#ifndef Tcl_GetVersion_TCL_DECLARED
#define Tcl_GetVersion_TCL_DECLARED
/* 279 */ /* 279 */
EXTERN void Tcl_GetVersion _ANSI_ARGS_((int *major, int *minor, EXTERN void Tcl_GetVersion (int * major, int * minor,
int *patchLevel, int *type)); int * patchLevel, int * type);
#endif
#ifndef Tcl_InitMemory_TCL_DECLARED
#define Tcl_InitMemory_TCL_DECLARED
/* 280 */ /* 280 */
EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN void Tcl_InitMemory (Tcl_Interp * interp);
#endif
#ifndef Tcl_StackChannel_TCL_DECLARED
#define Tcl_StackChannel_TCL_DECLARED
/* 281 */ /* 281 */
EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Channel Tcl_StackChannel (Tcl_Interp * interp,
Tcl_ChannelType *typePtr, Tcl_ChannelType * typePtr,
ClientData instanceData, int mask, ClientData instanceData, int mask,
Tcl_Channel prevChan)); Tcl_Channel prevChan);
#endif
#ifndef Tcl_UnstackChannel_TCL_DECLARED
#define Tcl_UnstackChannel_TCL_DECLARED
/* 282 */ /* 282 */
EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_UnstackChannel (Tcl_Interp * interp,
Tcl_Channel chan)); Tcl_Channel chan);
#endif
#ifndef Tcl_GetStackedChannel_TCL_DECLARED
#define Tcl_GetStackedChannel_TCL_DECLARED
/* 283 */ /* 283 */
EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan) EXTERN Tcl_Channel Tcl_GetStackedChannel (Tcl_Channel chan);
); #endif
#ifndef Tcl_SetMainLoop_TCL_DECLARED
#define Tcl_SetMainLoop_TCL_DECLARED
/* 284 */ /* 284 */
EXTERN void Tcl_SetMainLoop _ANSI_ARGS_((Tcl_MainLoopProc *proc) EXTERN void Tcl_SetMainLoop (Tcl_MainLoopProc * proc);
); #endif
/* Slot 285 is reserved */ /* Slot 285 is reserved */
#ifndef Tcl_AppendObjToObj_TCL_DECLARED
#define Tcl_AppendObjToObj_TCL_DECLARED
/* 286 */ /* 286 */
EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_AppendObjToObj (Tcl_Obj * objPtr,
Tcl_Obj *appendObjPtr)); Tcl_Obj * appendObjPtr);
#endif
#ifndef Tcl_CreateEncoding_TCL_DECLARED
#define Tcl_CreateEncoding_TCL_DECLARED
/* 287 */ /* 287 */
EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( EXTERN Tcl_Encoding Tcl_CreateEncoding (const Tcl_EncodingType * typePtr
Tcl_EncodingType *typePtr)); );
#endif
#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED
#define Tcl_CreateThreadExitHandler_TCL_DECLARED
/* 288 */ /* 288 */
EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateThreadExitHandler (Tcl_ExitProc * proc,
Tcl_ExitProc *proc, ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED
#define Tcl_DeleteThreadExitHandler_TCL_DECLARED
/* 289 */ /* 289 */
EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteThreadExitHandler (Tcl_ExitProc * proc,
Tcl_ExitProc *proc, ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_DiscardResult_TCL_DECLARED
#define Tcl_DiscardResult_TCL_DECLARED
/* 290 */ /* 290 */
EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( EXTERN void Tcl_DiscardResult (Tcl_SavedResult * statePtr);
Tcl_SavedResult *statePtr)); #endif
#ifndef Tcl_EvalEx_TCL_DECLARED
#define Tcl_EvalEx_TCL_DECLARED
/* 291 */ /* 291 */
EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_EvalEx (Tcl_Interp * interp, CONST char * script
CONST char *script, int numBytes, int flags) ,
); int numBytes, int flags);
#endif
#ifndef Tcl_EvalObjv_TCL_DECLARED
#define Tcl_EvalObjv_TCL_DECLARED
/* 292 */ /* 292 */
EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_EvalObjv (Tcl_Interp * interp, int objc,
int objc, Tcl_Obj *CONST objv[], int flags)) Tcl_Obj *CONST objv[], int flags);
; #endif
#ifndef Tcl_EvalObjEx_TCL_DECLARED
#define Tcl_EvalObjEx_TCL_DECLARED
/* 293 */ /* 293 */
EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_EvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr
Tcl_Obj *objPtr, int flags)); ,
int flags);
#endif
#ifndef Tcl_ExitThread_TCL_DECLARED
#define Tcl_ExitThread_TCL_DECLARED
/* 294 */ /* 294 */
EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); EXTERN void Tcl_ExitThread (int status);
#endif
#ifndef Tcl_ExternalToUtf_TCL_DECLARED
#define Tcl_ExternalToUtf_TCL_DECLARED
/* 295 */ /* 295 */
EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ExternalToUtf (Tcl_Interp * interp,
Tcl_Encoding encoding, CONST char *src, Tcl_Encoding encoding, CONST char * src,
int srcLen, int flags, int srcLen, int flags,
Tcl_EncodingState *statePtr, char *dst, Tcl_EncodingState * statePtr, char * dst,
int dstLen, int *srcReadPtr, int dstLen, int * srcReadPtr,
int *dstWrotePtr, int *dstCharsPtr)); int * dstWrotePtr, int * dstCharsPtr);
#endif
#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED
#define Tcl_ExternalToUtfDString_TCL_DECLARED
/* 296 */ /* 296 */
EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_ExternalToUtfDString (Tcl_Encoding encoding,
Tcl_Encoding encoding, CONST char *src, CONST char * src, int srcLen,
int srcLen, Tcl_DString *dsPtr)); Tcl_DString * dsPtr);
#endif
#ifndef Tcl_FinalizeThread_TCL_DECLARED
#define Tcl_FinalizeThread_TCL_DECLARED
/* 297 */ /* 297 */
EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); EXTERN void Tcl_FinalizeThread (void);
#endif
#ifndef Tcl_FinalizeNotifier_TCL_DECLARED
#define Tcl_FinalizeNotifier_TCL_DECLARED
/* 298 */ /* 298 */
EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( EXTERN void Tcl_FinalizeNotifier (ClientData clientData);
ClientData clientData)); #endif
#ifndef Tcl_FreeEncoding_TCL_DECLARED
#define Tcl_FreeEncoding_TCL_DECLARED
/* 299 */ /* 299 */
EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding) EXTERN void Tcl_FreeEncoding (Tcl_Encoding encoding);
); #endif
#ifndef Tcl_GetCurrentThread_TCL_DECLARED
#define Tcl_GetCurrentThread_TCL_DECLARED
/* 300 */ /* 300 */
EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); EXTERN Tcl_ThreadId Tcl_GetCurrentThread (void);
#endif
#ifndef Tcl_GetEncoding_TCL_DECLARED
#define Tcl_GetEncoding_TCL_DECLARED
/* 301 */ /* 301 */
EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Encoding Tcl_GetEncoding (Tcl_Interp * interp,
CONST char *name)); CONST char * name);
#endif
#ifndef Tcl_GetEncodingName_TCL_DECLARED
#define Tcl_GetEncodingName_TCL_DECLARED
/* 302 */ /* 302 */
EXTERN CONST84_RETURN char * Tcl_GetEncodingName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetEncodingName (Tcl_Encoding encoding);
Tcl_Encoding encoding)); #endif
#ifndef Tcl_GetEncodingNames_TCL_DECLARED
#define Tcl_GetEncodingNames_TCL_DECLARED
/* 303 */ /* 303 */
EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_((Tcl_Interp *interp EXTERN void Tcl_GetEncodingNames (Tcl_Interp * interp);
)); #endif
#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED
#define Tcl_GetIndexFromObjStruct_TCL_DECLARED
/* 304 */ /* 304 */
EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( EXTERN int Tcl_GetIndexFromObjStruct (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj * objPtr, CONST VOID * tablePtr,
CONST VOID *tablePtr, int offset, int offset, CONST char * msg, int flags,
CONST char *msg, int flags, int *indexPtr)); int * indexPtr);
#endif
#ifndef Tcl_GetThreadData_TCL_DECLARED
#define Tcl_GetThreadData_TCL_DECLARED
/* 305 */ /* 305 */
EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( EXTERN VOID * Tcl_GetThreadData (Tcl_ThreadDataKey * keyPtr,
Tcl_ThreadDataKey *keyPtr, int size)); int size);
#endif
#ifndef Tcl_GetVar2Ex_TCL_DECLARED
#define Tcl_GetVar2Ex_TCL_DECLARED
/* 306 */ /* 306 */
EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_GetVar2Ex (Tcl_Interp * interp,
CONST char *part1, CONST char *part2, CONST char * part1, CONST char * part2,
int flags)); int flags);
#endif
#ifndef Tcl_InitNotifier_TCL_DECLARED
#define Tcl_InitNotifier_TCL_DECLARED
/* 307 */ /* 307 */
EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); EXTERN ClientData Tcl_InitNotifier (void);
#endif
#ifndef Tcl_MutexLock_TCL_DECLARED
#define Tcl_MutexLock_TCL_DECLARED
/* 308 */ /* 308 */
EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); EXTERN void Tcl_MutexLock (Tcl_Mutex * mutexPtr);
#endif
#ifndef Tcl_MutexUnlock_TCL_DECLARED
#define Tcl_MutexUnlock_TCL_DECLARED
/* 309 */ /* 309 */
EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); EXTERN void Tcl_MutexUnlock (Tcl_Mutex * mutexPtr);
#endif
#ifndef Tcl_ConditionNotify_TCL_DECLARED
#define Tcl_ConditionNotify_TCL_DECLARED
/* 310 */ /* 310 */
EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( EXTERN void Tcl_ConditionNotify (Tcl_Condition * condPtr);
Tcl_Condition *condPtr)); #endif
#ifndef Tcl_ConditionWait_TCL_DECLARED
#define Tcl_ConditionWait_TCL_DECLARED
/* 311 */ /* 311 */
EXTERN void Tcl_ConditionWait _ANSI_ARGS_(( EXTERN void Tcl_ConditionWait (Tcl_Condition * condPtr,
Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr);
Tcl_Time *timePtr)); #endif
#ifndef Tcl_NumUtfChars_TCL_DECLARED
#define Tcl_NumUtfChars_TCL_DECLARED
/* 312 */ /* 312 */
EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_NumUtfChars (CONST char * src, int length);
int length)); #endif
#ifndef Tcl_ReadChars_TCL_DECLARED
#define Tcl_ReadChars_TCL_DECLARED
/* 313 */ /* 313 */
EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel, EXTERN int Tcl_ReadChars (Tcl_Channel channel, Tcl_Obj * objPtr
Tcl_Obj *objPtr, int charsToRead, ,
int appendFlag)); int charsToRead, int appendFlag);
#endif
#ifndef Tcl_RestoreResult_TCL_DECLARED
#define Tcl_RestoreResult_TCL_DECLARED
/* 314 */ /* 314 */
EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_RestoreResult (Tcl_Interp * interp,
Tcl_SavedResult *statePtr)); Tcl_SavedResult * statePtr);
#endif
#ifndef Tcl_SaveResult_TCL_DECLARED
#define Tcl_SaveResult_TCL_DECLARED
/* 315 */ /* 315 */
EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_SaveResult (Tcl_Interp * interp,
Tcl_SavedResult *statePtr)); Tcl_SavedResult * statePtr);
#endif
#ifndef Tcl_SetSystemEncoding_TCL_DECLARED
#define Tcl_SetSystemEncoding_TCL_DECLARED
/* 316 */ /* 316 */
EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( EXTERN int Tcl_SetSystemEncoding (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *name)); CONST char * name);
#endif
#ifndef Tcl_SetVar2Ex_TCL_DECLARED
#define Tcl_SetVar2Ex_TCL_DECLARED
/* 317 */ /* 317 */
EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_SetVar2Ex (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);
#endif
#ifndef Tcl_ThreadAlert_TCL_DECLARED
#define Tcl_ThreadAlert_TCL_DECLARED
/* 318 */ /* 318 */
EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)) EXTERN void Tcl_ThreadAlert (Tcl_ThreadId threadId);
; #endif
#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED
#define Tcl_ThreadQueueEvent_TCL_DECLARED
/* 319 */ /* 319 */
EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( EXTERN void Tcl_ThreadQueueEvent (Tcl_ThreadId threadId,
Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_Event* evPtr, Tcl_QueuePosition position
Tcl_QueuePosition position)); );
#endif
#ifndef Tcl_UniCharAtIndex_TCL_DECLARED
#define Tcl_UniCharAtIndex_TCL_DECLARED
/* 320 */ /* 320 */
EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char *src, EXTERN Tcl_UniChar Tcl_UniCharAtIndex (CONST char * src, int index);
int index)); #endif
#ifndef Tcl_UniCharToLower_TCL_DECLARED
#define Tcl_UniCharToLower_TCL_DECLARED
/* 321 */ /* 321 */
EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToLower (int ch);
#endif
#ifndef Tcl_UniCharToTitle_TCL_DECLARED
#define Tcl_UniCharToTitle_TCL_DECLARED
/* 322 */ /* 322 */
EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToTitle (int ch);
#endif
#ifndef Tcl_UniCharToUpper_TCL_DECLARED
#define Tcl_UniCharToUpper_TCL_DECLARED
/* 323 */ /* 323 */
EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToUpper (int ch);
#endif
#ifndef Tcl_UniCharToUtf_TCL_DECLARED
#define Tcl_UniCharToUtf_TCL_DECLARED
/* 324 */ /* 324 */
EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char *buf)); EXTERN int Tcl_UniCharToUtf (int ch, char * buf);
#endif
#ifndef Tcl_UtfAtIndex_TCL_DECLARED
#define Tcl_UtfAtIndex_TCL_DECLARED
/* 325 */ /* 325 */
EXTERN CONST84_RETURN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char *src, EXTERN CONST84_RETURN char * Tcl_UtfAtIndex (CONST char * src, int index);
int index)); #endif
#ifndef Tcl_UtfCharComplete_TCL_DECLARED
#define Tcl_UtfCharComplete_TCL_DECLARED
/* 326 */ /* 326 */
EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_UtfCharComplete (CONST char * src, int length);
int length)); #endif
#ifndef Tcl_UtfBackslash_TCL_DECLARED
#define Tcl_UtfBackslash_TCL_DECLARED
/* 327 */ /* 327 */
EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_UtfBackslash (CONST char * src, int * readPtr,
int *readPtr, char *dst)); char * dst);
#endif
#ifndef Tcl_UtfFindFirst_TCL_DECLARED
#define Tcl_UtfFindFirst_TCL_DECLARED
/* 328 */ /* 328 */
EXTERN CONST84_RETURN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char *src, EXTERN CONST84_RETURN char * Tcl_UtfFindFirst (CONST char * src, int ch);
int ch)); #endif
#ifndef Tcl_UtfFindLast_TCL_DECLARED
#define Tcl_UtfFindLast_TCL_DECLARED
/* 329 */ /* 329 */
EXTERN CONST84_RETURN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char *src, EXTERN CONST84_RETURN char * Tcl_UtfFindLast (CONST char * src, int ch);
int ch)); #endif
#ifndef Tcl_UtfNext_TCL_DECLARED
#define Tcl_UtfNext_TCL_DECLARED
/* 330 */ /* 330 */
EXTERN CONST84_RETURN char * Tcl_UtfNext _ANSI_ARGS_((CONST char *src)); EXTERN CONST84_RETURN char * Tcl_UtfNext (CONST char * src);
#endif
#ifndef Tcl_UtfPrev_TCL_DECLARED
#define Tcl_UtfPrev_TCL_DECLARED
/* 331 */ /* 331 */
EXTERN CONST84_RETURN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char *src, EXTERN CONST84_RETURN char * Tcl_UtfPrev (CONST char * src,
CONST char *start)); CONST char * start);
#endif
#ifndef Tcl_UtfToExternal_TCL_DECLARED
#define Tcl_UtfToExternal_TCL_DECLARED
/* 332 */ /* 332 */
EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_UtfToExternal (Tcl_Interp * interp,
Tcl_Encoding encoding, CONST char *src, Tcl_Encoding encoding, CONST char * src,
int srcLen, int flags, int srcLen, int flags,
Tcl_EncodingState *statePtr, char *dst, Tcl_EncodingState * statePtr, char * dst,
int dstLen, int *srcReadPtr, int dstLen, int * srcReadPtr,
int *dstWrotePtr, int *dstCharsPtr)); int * dstWrotePtr, int * dstCharsPtr);
#endif
#ifndef Tcl_UtfToExternalDString_TCL_DECLARED
#define Tcl_UtfToExternalDString_TCL_DECLARED
/* 333 */ /* 333 */
EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( EXTERN char * Tcl_UtfToExternalDString (Tcl_Encoding encoding,
Tcl_Encoding encoding, CONST char *src, CONST char * src, int srcLen,
int srcLen, Tcl_DString *dsPtr)); Tcl_DString * dsPtr);
#endif
#ifndef Tcl_UtfToLower_TCL_DECLARED
#define Tcl_UtfToLower_TCL_DECLARED
/* 334 */ /* 334 */
EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char *src)); EXTERN int Tcl_UtfToLower (char * src);
#endif
#ifndef Tcl_UtfToTitle_TCL_DECLARED
#define Tcl_UtfToTitle_TCL_DECLARED
/* 335 */ /* 335 */
EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char *src)); EXTERN int Tcl_UtfToTitle (char * src);
#endif
#ifndef Tcl_UtfToUniChar_TCL_DECLARED
#define Tcl_UtfToUniChar_TCL_DECLARED
/* 336 */ /* 336 */
EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char *src, EXTERN int Tcl_UtfToUniChar (CONST char * src,
Tcl_UniChar *chPtr)); Tcl_UniChar * chPtr);
#endif
#ifndef Tcl_UtfToUpper_TCL_DECLARED
#define Tcl_UtfToUpper_TCL_DECLARED
/* 337 */ /* 337 */
EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char *src)); EXTERN int Tcl_UtfToUpper (char * src);
#endif
#ifndef Tcl_WriteChars_TCL_DECLARED
#define Tcl_WriteChars_TCL_DECLARED
/* 338 */ /* 338 */
EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteChars (Tcl_Channel chan, CONST char * src,
CONST char *src, int srcLen)); int srcLen);
#endif
#ifndef Tcl_WriteObj_TCL_DECLARED
#define Tcl_WriteObj_TCL_DECLARED
/* 339 */ /* 339 */
EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteObj (Tcl_Channel chan, Tcl_Obj * objPtr);
Tcl_Obj *objPtr)); #endif
#ifndef Tcl_GetString_TCL_DECLARED
#define Tcl_GetString_TCL_DECLARED
/* 340 */ /* 340 */
EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj *objPtr)); EXTERN char * Tcl_GetString (Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED
#define Tcl_GetDefaultEncodingDir_TCL_DECLARED
/* 341 */ /* 341 */
EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir (void);
#endif
#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED
#define Tcl_SetDefaultEncodingDir_TCL_DECLARED
/* 342 */ /* 342 */
EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_(( EXTERN void Tcl_SetDefaultEncodingDir (CONST char * path);
CONST char *path)); #endif
#ifndef Tcl_AlertNotifier_TCL_DECLARED
#define Tcl_AlertNotifier_TCL_DECLARED
/* 343 */ /* 343 */
EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData EXTERN void Tcl_AlertNotifier (ClientData clientData);
)); #endif
#ifndef Tcl_ServiceModeHook_TCL_DECLARED
#define Tcl_ServiceModeHook_TCL_DECLARED
/* 344 */ /* 344 */
EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode)); EXTERN void Tcl_ServiceModeHook (int mode);
#endif
#ifndef Tcl_UniCharIsAlnum_TCL_DECLARED
#define Tcl_UniCharIsAlnum_TCL_DECLARED
/* 345 */ /* 345 */
EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsAlnum (int ch);
#endif
#ifndef Tcl_UniCharIsAlpha_TCL_DECLARED
#define Tcl_UniCharIsAlpha_TCL_DECLARED
/* 346 */ /* 346 */
EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsAlpha (int ch);
#endif
#ifndef Tcl_UniCharIsDigit_TCL_DECLARED
#define Tcl_UniCharIsDigit_TCL_DECLARED
/* 347 */ /* 347 */
EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsDigit (int ch);
#endif
#ifndef Tcl_UniCharIsLower_TCL_DECLARED
#define Tcl_UniCharIsLower_TCL_DECLARED
/* 348 */ /* 348 */
EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsLower (int ch);
#endif
#ifndef Tcl_UniCharIsSpace_TCL_DECLARED
#define Tcl_UniCharIsSpace_TCL_DECLARED
/* 349 */ /* 349 */
EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsSpace (int ch);
#endif
#ifndef Tcl_UniCharIsUpper_TCL_DECLARED
#define Tcl_UniCharIsUpper_TCL_DECLARED
/* 350 */ /* 350 */
EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsUpper (int ch);
#endif
#ifndef Tcl_UniCharIsWordChar_TCL_DECLARED
#define Tcl_UniCharIsWordChar_TCL_DECLARED
/* 351 */ /* 351 */
EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsWordChar (int ch);
#endif
#ifndef Tcl_UniCharLen_TCL_DECLARED
#define Tcl_UniCharLen_TCL_DECLARED
/* 352 */ /* 352 */
EXTERN int Tcl_UniCharLen _ANSI_ARGS_(( EXTERN int Tcl_UniCharLen (CONST Tcl_UniChar * uniStr);
CONST Tcl_UniChar *uniStr)); #endif
#ifndef Tcl_UniCharNcmp_TCL_DECLARED
#define Tcl_UniCharNcmp_TCL_DECLARED
/* 353 */ /* 353 */
EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar *ucs, EXTERN int Tcl_UniCharNcmp (CONST Tcl_UniChar * ucs,
CONST Tcl_UniChar *uct, CONST Tcl_UniChar * uct,
unsigned long numChars)); unsigned long numChars);
#endif
#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED
#define Tcl_UniCharToUtfDString_TCL_DECLARED
/* 354 */ /* 354 */
EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_UniCharToUtfDString (CONST Tcl_UniChar * uniStr,
CONST Tcl_UniChar *uniStr, int uniLength, int uniLength, Tcl_DString * dsPtr);
Tcl_DString *dsPtr)); #endif
#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED
#define Tcl_UtfToUniCharDString_TCL_DECLARED
/* 355 */ /* 355 */
EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_((CONST char *src EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString (CONST char * src,
, int length, Tcl_DString * dsPtr);
int length, Tcl_DString *dsPtr)); #endif
#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED
#define Tcl_GetRegExpFromObj_TCL_DECLARED
/* 356 */ /* 356 */
EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_((Tcl_Interp *interp EXTERN Tcl_RegExp Tcl_GetRegExpFromObj (Tcl_Interp * interp,
, Tcl_Obj * patObj, int flags);
Tcl_Obj *patObj, int flags)); #endif
#ifndef Tcl_EvalTokens_TCL_DECLARED
#define Tcl_EvalTokens_TCL_DECLARED
/* 357 */ /* 357 */
EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_EvalTokens (Tcl_Interp * interp,
Tcl_Token *tokenPtr, int count)); Tcl_Token * tokenPtr, int count);
#endif
#ifndef Tcl_FreeParse_TCL_DECLARED
#define Tcl_FreeParse_TCL_DECLARED
/* 358 */ /* 358 */
EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse *parsePtr)); EXTERN void Tcl_FreeParse (Tcl_Parse * parsePtr);
#endif
#ifndef Tcl_LogCommandInfo_TCL_DECLARED
#define Tcl_LogCommandInfo_TCL_DECLARED
/* 359 */ /* 359 */
EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_LogCommandInfo (Tcl_Interp * interp,
CONST char *script, CONST char *command, CONST char * script, CONST char * command,
int length)); int length);
#endif
#ifndef Tcl_ParseBraces_TCL_DECLARED
#define Tcl_ParseBraces_TCL_DECLARED
/* 360 */ /* 360 */
EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ParseBraces (Tcl_Interp * interp,
CONST char *start, int numBytes, CONST char * start, int numBytes,
Tcl_Parse *parsePtr, int append, Tcl_Parse * parsePtr, int append,
CONST84 char **termPtr)); CONST84 char ** termPtr);
#endif
#ifndef Tcl_ParseCommand_TCL_DECLARED
#define Tcl_ParseCommand_TCL_DECLARED
/* 361 */ /* 361 */
EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ParseCommand (Tcl_Interp * interp,
CONST char *start, int numBytes, int nested, CONST char * start, int numBytes, int nested
Tcl_Parse *parsePtr)); ,
Tcl_Parse * parsePtr);
#endif
#ifndef Tcl_ParseExpr_TCL_DECLARED
#define Tcl_ParseExpr_TCL_DECLARED
/* 362 */ /* 362 */
EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ParseExpr (Tcl_Interp * interp,
CONST char *start, int numBytes, CONST char * start, int numBytes,
Tcl_Parse *parsePtr)); Tcl_Parse * parsePtr);
#endif
#ifndef Tcl_ParseQuotedString_TCL_DECLARED
#define Tcl_ParseQuotedString_TCL_DECLARED
/* 363 */ /* 363 */
EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_(( EXTERN int Tcl_ParseQuotedString (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *start, CONST char * start, int numBytes,
int numBytes, Tcl_Parse *parsePtr, Tcl_Parse * parsePtr, int append,
int append, CONST84 char **termPtr)); CONST84 char ** termPtr);
#endif
#ifndef Tcl_ParseVarName_TCL_DECLARED
#define Tcl_ParseVarName_TCL_DECLARED
/* 364 */ /* 364 */
EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_ParseVarName (Tcl_Interp * interp,
CONST char *start, int numBytes, CONST char * start, int numBytes,
Tcl_Parse *parsePtr, int append)); Tcl_Parse * parsePtr, int append);
#endif
#ifndef Tcl_GetCwd_TCL_DECLARED
#define Tcl_GetCwd_TCL_DECLARED
/* 365 */ /* 365 */
EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp *interp, EXTERN char * Tcl_GetCwd (Tcl_Interp * interp,
Tcl_DString *cwdPtr)); Tcl_DString * cwdPtr);
#endif
#ifndef Tcl_Chdir_TCL_DECLARED
#define Tcl_Chdir_TCL_DECLARED
/* 366 */ /* 366 */
EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char *dirName)); EXTERN int Tcl_Chdir (CONST char * dirName);
#endif
#ifndef Tcl_Access_TCL_DECLARED
#define Tcl_Access_TCL_DECLARED
/* 367 */ /* 367 */
EXTERN int Tcl_Access _ANSI_ARGS_((CONST char *path, int mode)) EXTERN int Tcl_Access (CONST char * path, int mode);
; #endif
#ifndef Tcl_Stat_TCL_DECLARED
#define Tcl_Stat_TCL_DECLARED
/* 368 */ /* 368 */
EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char *path, EXTERN int Tcl_Stat (CONST char * path, struct stat * bufPtr);
struct stat *bufPtr)); #endif
#ifndef Tcl_UtfNcmp_TCL_DECLARED
#define Tcl_UtfNcmp_TCL_DECLARED
/* 369 */ /* 369 */
EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char *s1, EXTERN int Tcl_UtfNcmp (CONST char * s1, CONST char * s2,
CONST char *s2, unsigned long n)); unsigned long n);
#endif
#ifndef Tcl_UtfNcasecmp_TCL_DECLARED
#define Tcl_UtfNcasecmp_TCL_DECLARED
/* 370 */ /* 370 */
EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char *s1, EXTERN int Tcl_UtfNcasecmp (CONST char * s1, CONST char * s2,
CONST char *s2, unsigned long n)); unsigned long n);
#endif
#ifndef Tcl_StringCaseMatch_TCL_DECLARED
#define Tcl_StringCaseMatch_TCL_DECLARED
/* 371 */ /* 371 */
EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char *str, EXTERN int Tcl_StringCaseMatch (CONST char * str,
CONST char *pattern, int nocase)); CONST char * pattern, int nocase);
#endif
#ifndef Tcl_UniCharIsControl_TCL_DECLARED
#define Tcl_UniCharIsControl_TCL_DECLARED
/* 372 */ /* 372 */
EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsControl (int ch);
#endif
#ifndef Tcl_UniCharIsGraph_TCL_DECLARED
#define Tcl_UniCharIsGraph_TCL_DECLARED
/* 373 */ /* 373 */
EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsGraph (int ch);
#endif
#ifndef Tcl_UniCharIsPrint_TCL_DECLARED
#define Tcl_UniCharIsPrint_TCL_DECLARED
/* 374 */ /* 374 */
EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPrint (int ch);
#endif
#ifndef Tcl_UniCharIsPunct_TCL_DECLARED
#define Tcl_UniCharIsPunct_TCL_DECLARED
/* 375 */ /* 375 */
EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPunct (int ch);
#endif
#ifndef Tcl_RegExpExecObj_TCL_DECLARED
#define Tcl_RegExpExecObj_TCL_DECLARED
/* 376 */ /* 376 */
EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_RegExpExecObj (Tcl_Interp * interp,
Tcl_RegExp regexp, Tcl_Obj *textObj, Tcl_RegExp regexp, Tcl_Obj * textObj,
int offset, int nmatches, int flags)); int offset, int nmatches, int flags);
#endif
#ifndef Tcl_RegExpGetInfo_TCL_DECLARED
#define Tcl_RegExpGetInfo_TCL_DECLARED
/* 377 */ /* 377 */
EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp, EXTERN void Tcl_RegExpGetInfo (Tcl_RegExp regexp,
Tcl_RegExpInfo *infoPtr)); Tcl_RegExpInfo * infoPtr);
#endif
#ifndef Tcl_NewUnicodeObj_TCL_DECLARED
#define Tcl_NewUnicodeObj_TCL_DECLARED
/* 378 */ /* 378 */
EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_NewUnicodeObj (CONST Tcl_UniChar * unicode,
CONST Tcl_UniChar *unicode, int numChars)); int numChars);
#endif
#ifndef Tcl_SetUnicodeObj_TCL_DECLARED
#define Tcl_SetUnicodeObj_TCL_DECLARED
/* 379 */ /* 379 */
EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetUnicodeObj (Tcl_Obj * objPtr,
CONST Tcl_UniChar *unicode, int numChars)); CONST Tcl_UniChar * unicode, int numChars);
#endif
#ifndef Tcl_GetCharLength_TCL_DECLARED
#define Tcl_GetCharLength_TCL_DECLARED
/* 380 */ /* 380 */
EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj *objPtr)); EXTERN int Tcl_GetCharLength (Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetUniChar_TCL_DECLARED
#define Tcl_GetUniChar_TCL_DECLARED
/* 381 */ /* 381 */
EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN Tcl_UniChar Tcl_GetUniChar (Tcl_Obj * objPtr, int index);
int index)); #endif
#ifndef Tcl_GetUnicode_TCL_DECLARED
#define Tcl_GetUnicode_TCL_DECLARED
/* 382 */ /* 382 */
EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj *objPtr)); EXTERN Tcl_UniChar * Tcl_GetUnicode (Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetRange_TCL_DECLARED
#define Tcl_GetRange_TCL_DECLARED
/* 383 */ /* 383 */
EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj *objPtr, int first EXTERN Tcl_Obj * Tcl_GetRange (Tcl_Obj * objPtr, int first, int last)
, ;
int last)); #endif
#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED
#define Tcl_AppendUnicodeToObj_TCL_DECLARED
/* 384 */ /* 384 */
EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_AppendUnicodeToObj (Tcl_Obj * objPtr,
CONST Tcl_UniChar *unicode, int length)); CONST Tcl_UniChar * unicode, int length);
#endif
#ifndef Tcl_RegExpMatchObj_TCL_DECLARED
#define Tcl_RegExpMatchObj_TCL_DECLARED
/* 385 */ /* 385 */
EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_RegExpMatchObj (Tcl_Interp * interp,
Tcl_Obj *textObj, Tcl_Obj *patternObj)); Tcl_Obj * textObj, Tcl_Obj * patternObj);
#endif
#ifndef Tcl_SetNotifier_TCL_DECLARED
#define Tcl_SetNotifier_TCL_DECLARED
/* 386 */ /* 386 */
EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( EXTERN void Tcl_SetNotifier (Tcl_NotifierProcs * notifierProcPtr
Tcl_NotifierProcs *notifierProcPtr)); );
#endif
#ifndef Tcl_GetAllocMutex_TCL_DECLARED
#define Tcl_GetAllocMutex_TCL_DECLARED
/* 387 */ /* 387 */
EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void)); EXTERN Tcl_Mutex * Tcl_GetAllocMutex (void);
#endif
#ifndef Tcl_GetChannelNames_TCL_DECLARED
#define Tcl_GetChannelNames_TCL_DECLARED
/* 388 */ /* 388 */
EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp *interp) EXTERN int Tcl_GetChannelNames (Tcl_Interp * interp);
); #endif
#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED
#define Tcl_GetChannelNamesEx_TCL_DECLARED
/* 389 */ /* 389 */
EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_(( EXTERN int Tcl_GetChannelNamesEx (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *pattern)); CONST char * pattern);
#endif
#ifndef Tcl_ProcObjCmd_TCL_DECLARED
#define Tcl_ProcObjCmd_TCL_DECLARED
/* 390 */ /* 390 */
EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData, EXTERN int Tcl_ProcObjCmd (ClientData clientData,
Tcl_Interp *interp, int objc, Tcl_Interp * interp, int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]);
#endif
#ifndef Tcl_ConditionFinalize_TCL_DECLARED
#define Tcl_ConditionFinalize_TCL_DECLARED
/* 391 */ /* 391 */
EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_(( EXTERN void Tcl_ConditionFinalize (Tcl_Condition * condPtr);
Tcl_Condition *condPtr)); #endif
#ifndef Tcl_MutexFinalize_TCL_DECLARED
#define Tcl_MutexFinalize_TCL_DECLARED
/* 392 */ /* 392 */
EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex *mutex)); EXTERN void Tcl_MutexFinalize (Tcl_Mutex * mutex);
#endif
#ifndef Tcl_CreateThread_TCL_DECLARED
#define Tcl_CreateThread_TCL_DECLARED
/* 393 */ /* 393 */
EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId *idPtr, EXTERN int Tcl_CreateThread (Tcl_ThreadId * idPtr,
Tcl_ThreadCreateProc proc, Tcl_ThreadCreateProc proc,
ClientData clientData, int stackSize, ClientData clientData, int stackSize,
int flags)); int flags);
#endif
#ifndef Tcl_ReadRaw_TCL_DECLARED
#define Tcl_ReadRaw_TCL_DECLARED
/* 394 */ /* 394 */
EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan, char *dst EXTERN int Tcl_ReadRaw (Tcl_Channel chan, char * dst,
, int bytesToRead);
int bytesToRead)); #endif
#ifndef Tcl_WriteRaw_TCL_DECLARED
#define Tcl_WriteRaw_TCL_DECLARED
/* 395 */ /* 395 */
EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteRaw (Tcl_Channel chan, CONST char * src,
CONST char *src, int srcLen)); int srcLen);
#endif
#ifndef Tcl_GetTopChannel_TCL_DECLARED
#define Tcl_GetTopChannel_TCL_DECLARED
/* 396 */ /* 396 */
EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan)); EXTERN Tcl_Channel Tcl_GetTopChannel (Tcl_Channel chan);
#endif
#ifndef Tcl_ChannelBuffered_TCL_DECLARED
#define Tcl_ChannelBuffered_TCL_DECLARED
/* 397 */ /* 397 */
EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_ChannelBuffered (Tcl_Channel chan);
#endif
#ifndef Tcl_ChannelName_TCL_DECLARED
#define Tcl_ChannelName_TCL_DECLARED
/* 398 */ /* 398 */
EXTERN CONST84_RETURN char * Tcl_ChannelName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_ChannelName (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelVersion_TCL_DECLARED
#define Tcl_ChannelVersion_TCL_DECLARED
/* 399 */ /* 399 */
EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_(( EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED
#define Tcl_ChannelBlockModeProc_TCL_DECLARED
/* 400 */ /* 400 */
EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_(( EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelCloseProc_TCL_DECLARED
#define Tcl_ChannelCloseProc_TCL_DECLARED
/* 401 */ /* 401 */
EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_(( EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED
#define Tcl_ChannelClose2Proc_TCL_DECLARED
/* 402 */ /* 402 */
EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc _ANSI_ARGS_(( EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelInputProc_TCL_DECLARED
#define Tcl_ChannelInputProc_TCL_DECLARED
/* 403 */ /* 403 */
EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc _ANSI_ARGS_(( EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelOutputProc_TCL_DECLARED
#define Tcl_ChannelOutputProc_TCL_DECLARED
/* 404 */ /* 404 */
EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc _ANSI_ARGS_(( EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelSeekProc_TCL_DECLARED
#define Tcl_ChannelSeekProc_TCL_DECLARED
/* 405 */ /* 405 */
EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc _ANSI_ARGS_(( EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED
#define Tcl_ChannelSetOptionProc_TCL_DECLARED
/* 406 */ /* 406 */
EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc _ANSI_ARGS_(( EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED
#define Tcl_ChannelGetOptionProc_TCL_DECLARED
/* 407 */ /* 407 */
EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc _ANSI_ARGS_(( EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelWatchProc_TCL_DECLARED
#define Tcl_ChannelWatchProc_TCL_DECLARED
/* 408 */ /* 408 */
EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc _ANSI_ARGS_(( EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED
#define Tcl_ChannelGetHandleProc_TCL_DECLARED
/* 409 */ /* 409 */
EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_(( EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelFlushProc_TCL_DECLARED
#define Tcl_ChannelFlushProc_TCL_DECLARED
/* 410 */ /* 410 */
EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_(( EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED
#define Tcl_ChannelHandlerProc_TCL_DECLARED
/* 411 */ /* 411 */
EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_(( EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_JoinThread_TCL_DECLARED
#define Tcl_JoinThread_TCL_DECLARED
/* 412 */ /* 412 */
EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId threadId, EXTERN int Tcl_JoinThread (Tcl_ThreadId threadId, int* result);
int *result)); #endif
#ifndef Tcl_IsChannelShared_TCL_DECLARED
#define Tcl_IsChannelShared_TCL_DECLARED
/* 413 */ /* 413 */
EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel EXTERN int Tcl_IsChannelShared (Tcl_Channel channel);
)); #endif
#ifndef Tcl_IsChannelRegistered_TCL_DECLARED
#define Tcl_IsChannelRegistered_TCL_DECLARED
/* 414 */ /* 414 */
EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_(( EXTERN int Tcl_IsChannelRegistered (Tcl_Interp* interp,
Tcl_Interp *interp, Tcl_Channel channel)); Tcl_Channel channel);
#endif
#ifndef Tcl_CutChannel_TCL_DECLARED
#define Tcl_CutChannel_TCL_DECLARED
/* 415 */ /* 415 */
EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel)); EXTERN void Tcl_CutChannel (Tcl_Channel channel);
#endif
#ifndef Tcl_SpliceChannel_TCL_DECLARED
#define Tcl_SpliceChannel_TCL_DECLARED
/* 416 */ /* 416 */
EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)) EXTERN void Tcl_SpliceChannel (Tcl_Channel channel);
; #endif
#ifndef Tcl_ClearChannelHandlers_TCL_DECLARED
#define Tcl_ClearChannelHandlers_TCL_DECLARED
/* 417 */ /* 417 */
EXTERN void Tcl_ClearChannelHandlers _ANSI_ARGS_(( EXTERN void Tcl_ClearChannelHandlers (Tcl_Channel channel);
Tcl_Channel channel)); #endif
#ifndef Tcl_IsChannelExisting_TCL_DECLARED
#define Tcl_IsChannelExisting_TCL_DECLARED
/* 418 */ /* 418 */
EXTERN int Tcl_IsChannelExisting _ANSI_ARGS_(( EXTERN int Tcl_IsChannelExisting (CONST char* channelName);
CONST char *channelName)); #endif
#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED
#define Tcl_UniCharNcasecmp_TCL_DECLARED
/* 419 */ /* 419 */
EXTERN int Tcl_UniCharNcasecmp _ANSI_ARGS_(( EXTERN int Tcl_UniCharNcasecmp (CONST Tcl_UniChar * ucs,
CONST Tcl_UniChar *ucs, CONST Tcl_UniChar * uct,
CONST Tcl_UniChar *uct, unsigned long numChars);
unsigned long numChars)); #endif
#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED
#define Tcl_UniCharCaseMatch_TCL_DECLARED
/* 420 */ /* 420 */
EXTERN int Tcl_UniCharCaseMatch _ANSI_ARGS_(( EXTERN int Tcl_UniCharCaseMatch (CONST Tcl_UniChar * uniStr,
CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar * uniPattern, int nocase);
CONST Tcl_UniChar *uniPattern, int nocase)); #endif
#ifndef Tcl_FindHashEntry_TCL_DECLARED
#define Tcl_FindHashEntry_TCL_DECLARED
/* 421 */ /* 421 */
EXTERN Tcl_HashEntry * Tcl_FindHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_FindHashEntry (Tcl_HashTable * tablePtr,
Tcl_HashTable *tablePtr, CONST char *key)); CONST char * key);
#endif
#ifndef Tcl_CreateHashEntry_TCL_DECLARED
#define Tcl_CreateHashEntry_TCL_DECLARED
/* 422 */ /* 422 */
EXTERN Tcl_HashEntry * Tcl_CreateHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_CreateHashEntry (Tcl_HashTable * tablePtr,
Tcl_HashTable *tablePtr, CONST char *key, CONST char * key, int * newPtr);
int *newPtr)); #endif
#ifndef Tcl_InitCustomHashTable_TCL_DECLARED
#define Tcl_InitCustomHashTable_TCL_DECLARED
/* 423 */ /* 423 */
EXTERN void Tcl_InitCustomHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitCustomHashTable (Tcl_HashTable * tablePtr,
Tcl_HashTable *tablePtr, int keyType, int keyType, Tcl_HashKeyType * typePtr);
Tcl_HashKeyType *typePtr)); #endif
#ifndef Tcl_InitObjHashTable_TCL_DECLARED
#define Tcl_InitObjHashTable_TCL_DECLARED
/* 424 */ /* 424 */
EXTERN void Tcl_InitObjHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitObjHashTable (Tcl_HashTable * tablePtr);
Tcl_HashTable *tablePtr)); #endif
#ifndef Tcl_CommandTraceInfo_TCL_DECLARED
#define Tcl_CommandTraceInfo_TCL_DECLARED
/* 425 */ /* 425 */
EXTERN ClientData Tcl_CommandTraceInfo _ANSI_ARGS_((Tcl_Interp *interp EXTERN ClientData Tcl_CommandTraceInfo (Tcl_Interp * interp,
, CONST char * varName, int flags,
CONST char *varName, int flags, Tcl_CommandTraceProc * procPtr,
Tcl_CommandTraceProc *procPtr, ClientData prevClientData);
ClientData prevClientData)); #endif
#ifndef Tcl_TraceCommand_TCL_DECLARED
#define Tcl_TraceCommand_TCL_DECLARED
/* 426 */ /* 426 */
EXTERN int Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_TraceCommand (Tcl_Interp * interp,
CONST char *varName, int flags, CONST char * varName, int flags,
Tcl_CommandTraceProc *proc, Tcl_CommandTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_UntraceCommand_TCL_DECLARED
#define Tcl_UntraceCommand_TCL_DECLARED
/* 427 */ /* 427 */
EXTERN void Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_UntraceCommand (Tcl_Interp * interp,
CONST char *varName, int flags, CONST char * varName, int flags,
Tcl_CommandTraceProc *proc, Tcl_CommandTraceProc * proc,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_AttemptAlloc_TCL_DECLARED
#define Tcl_AttemptAlloc_TCL_DECLARED
/* 428 */ /* 428 */
EXTERN char * Tcl_AttemptAlloc _ANSI_ARGS_((unsigned int size)); EXTERN char * Tcl_AttemptAlloc (unsigned int size);
#endif
#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED
#define Tcl_AttemptDbCkalloc_TCL_DECLARED
/* 429 */ /* 429 */
EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size, EXTERN char * Tcl_AttemptDbCkalloc (unsigned int size,
CONST char *file, int line)); CONST char * file, int line);
#endif
#ifndef Tcl_AttemptRealloc_TCL_DECLARED
#define Tcl_AttemptRealloc_TCL_DECLARED
/* 430 */ /* 430 */
EXTERN char * Tcl_AttemptRealloc _ANSI_ARGS_((char *ptr, EXTERN char * Tcl_AttemptRealloc (char * ptr, unsigned int size);
unsigned int size)); #endif
#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED
#define Tcl_AttemptDbCkrealloc_TCL_DECLARED
/* 431 */ /* 431 */
EXTERN char * Tcl_AttemptDbCkrealloc _ANSI_ARGS_((char *ptr, EXTERN char * Tcl_AttemptDbCkrealloc (char * ptr,
unsigned int size, CONST char *file, unsigned int size, CONST char * file,
int line)); int line);
#endif
#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED
#define Tcl_AttemptSetObjLength_TCL_DECLARED
/* 432 */ /* 432 */
EXTERN int Tcl_AttemptSetObjLength _ANSI_ARGS_((Tcl_Obj *objPtr EXTERN int Tcl_AttemptSetObjLength (Tcl_Obj * objPtr,
, int length);
int length)); #endif
#ifndef Tcl_GetChannelThread_TCL_DECLARED
#define Tcl_GetChannelThread_TCL_DECLARED
/* 433 */ /* 433 */
EXTERN Tcl_ThreadId Tcl_GetChannelThread _ANSI_ARGS_(( EXTERN Tcl_ThreadId Tcl_GetChannelThread (Tcl_Channel channel);
Tcl_Channel channel)); #endif
#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED
#define Tcl_GetUnicodeFromObj_TCL_DECLARED
/* 434 */ /* 434 */
EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj (Tcl_Obj * objPtr,
int *lengthPtr)); int * lengthPtr);
#endif
#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED
#define Tcl_GetMathFuncInfo_TCL_DECLARED
/* 435 */ /* 435 */
EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetMathFuncInfo (Tcl_Interp * interp,
CONST char *name, int *numArgsPtr, CONST char * name, int * numArgsPtr,
Tcl_ValueType **argTypesPtr, Tcl_ValueType ** argTypesPtr,
Tcl_MathProc **procPtr, Tcl_MathProc ** procPtr,
ClientData *clientDataPtr)); ClientData * clientDataPtr);
#endif
#ifndef Tcl_ListMathFuncs_TCL_DECLARED
#define Tcl_ListMathFuncs_TCL_DECLARED
/* 436 */ /* 436 */
EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_ListMathFuncs (Tcl_Interp * interp,
CONST char *pattern)); CONST char * pattern);
#endif
#ifndef Tcl_SubstObj_TCL_DECLARED
#define Tcl_SubstObj_TCL_DECLARED
/* 437 */ /* 437 */
EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Obj * Tcl_SubstObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
Tcl_Obj *objPtr, int flags)); int flags);
#endif
#ifndef Tcl_DetachChannel_TCL_DECLARED
#define Tcl_DetachChannel_TCL_DECLARED
/* 438 */ /* 438 */
EXTERN int Tcl_DetachChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_DetachChannel (Tcl_Interp* interp,
Tcl_Channel channel)); Tcl_Channel channel);
#endif
#ifndef Tcl_IsStandardChannel_TCL_DECLARED
#define Tcl_IsStandardChannel_TCL_DECLARED
/* 439 */ /* 439 */
EXTERN int Tcl_IsStandardChannel _ANSI_ARGS_(( EXTERN int Tcl_IsStandardChannel (Tcl_Channel channel);
Tcl_Channel channel)); #endif
#ifndef Tcl_FSCopyFile_TCL_DECLARED
#define Tcl_FSCopyFile_TCL_DECLARED
/* 440 */ /* 440 */
EXTERN int Tcl_FSCopyFile _ANSI_ARGS_((Tcl_Obj *srcPathPtr, EXTERN int Tcl_FSCopyFile (Tcl_Obj * srcPathPtr,
Tcl_Obj *destPathPtr)); Tcl_Obj * destPathPtr);
#endif
#ifndef Tcl_FSCopyDirectory_TCL_DECLARED
#define Tcl_FSCopyDirectory_TCL_DECLARED
/* 441 */ /* 441 */
EXTERN int Tcl_FSCopyDirectory _ANSI_ARGS_((Tcl_Obj *srcPathPtr EXTERN int Tcl_FSCopyDirectory (Tcl_Obj * srcPathPtr,
, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr);
Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); #endif
#ifndef Tcl_FSCreateDirectory_TCL_DECLARED
#define Tcl_FSCreateDirectory_TCL_DECLARED
/* 442 */ /* 442 */
EXTERN int Tcl_FSCreateDirectory _ANSI_ARGS_((Tcl_Obj *pathPtr) EXTERN int Tcl_FSCreateDirectory (Tcl_Obj * pathPtr);
); #endif
#ifndef Tcl_FSDeleteFile_TCL_DECLARED
#define Tcl_FSDeleteFile_TCL_DECLARED
/* 443 */ /* 443 */
EXTERN int Tcl_FSDeleteFile _ANSI_ARGS_((Tcl_Obj *pathPtr)); EXTERN int Tcl_FSDeleteFile (Tcl_Obj * pathPtr);
#endif
#ifndef Tcl_FSLoadFile_TCL_DECLARED
#define Tcl_FSLoadFile_TCL_DECLARED
/* 444 */ /* 444 */
EXTERN int Tcl_FSLoadFile _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_FSLoadFile (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);
#endif
#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED
#define Tcl_FSMatchInDirectory_TCL_DECLARED
/* 445 */ /* 445 */
EXTERN int Tcl_FSMatchInDirectory _ANSI_ARGS_(( EXTERN int Tcl_FSMatchInDirectory (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj * result, Tcl_Obj * pathPtr,
Tcl_Obj *pathPtr, CONST char *pattern, CONST char * pattern,
Tcl_GlobTypeData *types)); Tcl_GlobTypeData * types);
#endif
#ifndef Tcl_FSLink_TCL_DECLARED
#define Tcl_FSLink_TCL_DECLARED
/* 446 */ /* 446 */
EXTERN Tcl_Obj * Tcl_FSLink _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN Tcl_Obj * Tcl_FSLink (Tcl_Obj * pathPtr, Tcl_Obj * toPtr,
Tcl_Obj *toPtr, int linkAction)); int linkAction);
#endif
#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED
#define Tcl_FSRemoveDirectory_TCL_DECLARED
/* 447 */ /* 447 */
EXTERN int Tcl_FSRemoveDirectory _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN int Tcl_FSRemoveDirectory (Tcl_Obj * pathPtr,
int recursive, Tcl_Obj **errorPtr)); int recursive, Tcl_Obj ** errorPtr);
#endif
#ifndef Tcl_FSRenameFile_TCL_DECLARED
#define Tcl_FSRenameFile_TCL_DECLARED
/* 448 */ /* 448 */
EXTERN int Tcl_FSRenameFile _ANSI_ARGS_((Tcl_Obj *srcPathPtr, EXTERN int Tcl_FSRenameFile (Tcl_Obj * srcPathPtr,
Tcl_Obj *destPathPtr)); Tcl_Obj * destPathPtr);
#endif
#ifndef Tcl_FSLstat_TCL_DECLARED
#define Tcl_FSLstat_TCL_DECLARED
/* 449 */ /* 449 */
EXTERN int Tcl_FSLstat _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN int Tcl_FSLstat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf);
Tcl_StatBuf *buf)); #endif
#ifndef Tcl_FSUtime_TCL_DECLARED
#define Tcl_FSUtime_TCL_DECLARED
/* 450 */ /* 450 */
EXTERN int Tcl_FSUtime _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN int Tcl_FSUtime (Tcl_Obj * pathPtr,
struct utimbuf *tval)); struct utimbuf * tval);
#endif
#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED
#define Tcl_FSFileAttrsGet_TCL_DECLARED
/* 451 */ /* 451 */
EXTERN int Tcl_FSFileAttrsGet _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_FSFileAttrsGet (Tcl_Interp * interp, int index,
int index, Tcl_Obj *pathPtr, Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef);
Tcl_Obj **objPtrRef)); #endif
#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED
#define Tcl_FSFileAttrsSet_TCL_DECLARED
/* 452 */ /* 452 */
EXTERN int Tcl_FSFileAttrsSet _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_FSFileAttrsSet (Tcl_Interp * interp, int index,
int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr Tcl_Obj * pathPtr, Tcl_Obj * objPtr);
)); #endif
#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED
#define Tcl_FSFileAttrStrings_TCL_DECLARED
/* 453 */ /* 453 */
EXTERN CONST char ** Tcl_FSFileAttrStrings _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN CONST char ** Tcl_FSFileAttrStrings (Tcl_Obj * pathPtr,
Tcl_Obj **objPtrRef)); Tcl_Obj ** objPtrRef);
#endif
#ifndef Tcl_FSStat_TCL_DECLARED
#define Tcl_FSStat_TCL_DECLARED
/* 454 */ /* 454 */
EXTERN int Tcl_FSStat _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN int Tcl_FSStat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf);
Tcl_StatBuf *buf)); #endif
#ifndef Tcl_FSAccess_TCL_DECLARED
#define Tcl_FSAccess_TCL_DECLARED
/* 455 */ /* 455 */
EXTERN int Tcl_FSAccess _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode EXTERN int Tcl_FSAccess (Tcl_Obj * pathPtr, int mode);
)); #endif
#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED
#define Tcl_FSOpenFileChannel_TCL_DECLARED
/* 456 */ /* 456 */
EXTERN Tcl_Channel Tcl_FSOpenFileChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_FSOpenFileChannel (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *pathPtr, Tcl_Obj * pathPtr, CONST char * modeString,
CONST char *modeString, int permissions)); int permissions);
#endif
#ifndef Tcl_FSGetCwd_TCL_DECLARED
#define Tcl_FSGetCwd_TCL_DECLARED
/* 457 */ /* 457 */
EXTERN Tcl_Obj * Tcl_FSGetCwd _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN Tcl_Obj* Tcl_FSGetCwd (Tcl_Interp * interp);
#endif
#ifndef Tcl_FSChdir_TCL_DECLARED
#define Tcl_FSChdir_TCL_DECLARED
/* 458 */ /* 458 */
EXTERN int Tcl_FSChdir _ANSI_ARGS_((Tcl_Obj *pathPtr)); EXTERN int Tcl_FSChdir (Tcl_Obj * pathPtr);
#endif
#ifndef Tcl_FSConvertToPathType_TCL_DECLARED
#define Tcl_FSConvertToPathType_TCL_DECLARED
/* 459 */ /* 459 */
EXTERN int Tcl_FSConvertToPathType _ANSI_ARGS_(( EXTERN int Tcl_FSConvertToPathType (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *pathPtr)); Tcl_Obj * pathPtr);
#endif
#ifndef Tcl_FSJoinPath_TCL_DECLARED
#define Tcl_FSJoinPath_TCL_DECLARED
/* 460 */ /* 460 */
EXTERN Tcl_Obj * Tcl_FSJoinPath _ANSI_ARGS_((Tcl_Obj *listObj, EXTERN Tcl_Obj* Tcl_FSJoinPath (Tcl_Obj * listObj, int eleme
int elements)); nts);
#endif
#ifndef Tcl_FSSplitPath_TCL_DECLARED
#define Tcl_FSSplitPath_TCL_DECLARED
/* 461 */ /* 461 */
EXTERN Tcl_Obj * Tcl_FSSplitPath _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN Tcl_Obj* Tcl_FSSplitPath (Tcl_Obj* pathPtr, int * len
int *lenPtr)); Ptr);
#endif
#ifndef Tcl_FSEqualPaths_TCL_DECLARED
#define Tcl_FSEqualPaths_TCL_DECLARED
/* 462 */ /* 462 */
EXTERN int Tcl_FSEqualPaths _ANSI_ARGS_((Tcl_Obj *firstPtr, EXTERN int Tcl_FSEqualPaths (Tcl_Obj* firstPtr,
Tcl_Obj *secondPtr)); Tcl_Obj* secondPtr);
#endif
#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED
#define Tcl_FSGetNormalizedPath_TCL_DECLARED
/* 463 */ /* 463 */
EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath _ANSI_ARGS_(( EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath (Tcl_Interp * interp
Tcl_Interp *interp, Tcl_Obj *pathPtr)); ,
Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSJoinToPath_TCL_DECLARED
#define Tcl_FSJoinToPath_TCL_DECLARED
/* 464 */ /* 464 */
EXTERN Tcl_Obj * Tcl_FSJoinToPath _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN Tcl_Obj* Tcl_FSJoinToPath (Tcl_Obj * pathPtr, int obj
int objc, Tcl_Obj *CONST objv[])); c,
Tcl_Obj *CONST objv[]);
#endif
#ifndef Tcl_FSGetInternalRep_TCL_DECLARED
#define Tcl_FSGetInternalRep_TCL_DECLARED
/* 465 */ /* 465 */
EXTERN ClientData Tcl_FSGetInternalRep _ANSI_ARGS_((Tcl_Obj *pathPtr, EXTERN ClientData Tcl_FSGetInternalRep (Tcl_Obj* pathPtr,
Tcl_Filesystem *fsPtr)); Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED
#define Tcl_FSGetTranslatedPath_TCL_DECLARED
/* 466 */ /* 466 */
EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath _ANSI_ARGS_(( EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath (Tcl_Interp * interp
Tcl_Interp *interp, Tcl_Obj *pathPtr)); ,
Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSEvalFile_TCL_DECLARED
#define Tcl_FSEvalFile_TCL_DECLARED
/* 467 */ /* 467 */
EXTERN int Tcl_FSEvalFile _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_FSEvalFile (Tcl_Interp * interp,
Tcl_Obj *fileName)); Tcl_Obj * fileName);
#endif
#ifndef Tcl_FSNewNativePath_TCL_DECLARED
#define Tcl_FSNewNativePath_TCL_DECLARED
/* 468 */ /* 468 */
EXTERN Tcl_Obj * Tcl_FSNewNativePath _ANSI_ARGS_(( EXTERN Tcl_Obj* Tcl_FSNewNativePath (Tcl_Filesystem* fromFil
Tcl_Filesystem *fromFilesystem, esystem,
ClientData clientData)); ClientData clientData);
#endif
#ifndef Tcl_FSGetNativePath_TCL_DECLARED
#define Tcl_FSGetNativePath_TCL_DECLARED
/* 469 */ /* 469 */
EXTERN CONST char * Tcl_FSGetNativePath _ANSI_ARGS_((Tcl_Obj *pathPtr)); EXTERN CONST char* Tcl_FSGetNativePath (Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED
#define Tcl_FSFileSystemInfo_TCL_DECLARED
/* 470 */ /* 470 */
EXTERN Tcl_Obj * Tcl_FSFileSystemInfo _ANSI_ARGS_((Tcl_Obj *pathPtr)) EXTERN Tcl_Obj* Tcl_FSFileSystemInfo (Tcl_Obj* pathPtr);
; #endif
#ifndef Tcl_FSPathSeparator_TCL_DECLARED
#define Tcl_FSPathSeparator_TCL_DECLARED
/* 471 */ /* 471 */
EXTERN Tcl_Obj * Tcl_FSPathSeparator _ANSI_ARGS_((Tcl_Obj *pathPtr)); EXTERN Tcl_Obj* Tcl_FSPathSeparator (Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSListVolumes_TCL_DECLARED
#define Tcl_FSListVolumes_TCL_DECLARED
/* 472 */ /* 472 */
EXTERN Tcl_Obj * Tcl_FSListVolumes _ANSI_ARGS_((void)); EXTERN Tcl_Obj* Tcl_FSListVolumes (void);
#endif
#ifndef Tcl_FSRegister_TCL_DECLARED
#define Tcl_FSRegister_TCL_DECLARED
/* 473 */ /* 473 */
EXTERN int Tcl_FSRegister _ANSI_ARGS_((ClientData clientData, EXTERN int Tcl_FSRegister (ClientData clientData,
Tcl_Filesystem *fsPtr)); Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSUnregister_TCL_DECLARED
#define Tcl_FSUnregister_TCL_DECLARED
/* 474 */ /* 474 */
EXTERN int Tcl_FSUnregister _ANSI_ARGS_((Tcl_Filesystem *fsPtr) EXTERN int Tcl_FSUnregister (Tcl_Filesystem * fsPtr);
); #endif
#ifndef Tcl_FSData_TCL_DECLARED
#define Tcl_FSData_TCL_DECLARED
/* 475 */ /* 475 */
EXTERN ClientData Tcl_FSData _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); EXTERN ClientData Tcl_FSData (Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED
#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED
/* 476 */ /* 476 */
EXTERN CONST char * Tcl_FSGetTranslatedStringPath _ANSI_ARGS_(( EXTERN CONST char* Tcl_FSGetTranslatedStringPath (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *pathPtr)); Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED
#define Tcl_FSGetFileSystemForPath_TCL_DECLARED
/* 477 */ /* 477 */
EXTERN Tcl_Filesystem * Tcl_FSGetFileSystemForPath _ANSI_ARGS_(( EXTERN Tcl_Filesystem* Tcl_FSGetFileSystemForPath (Tcl_Obj* pathPtr);
Tcl_Obj *pathPtr)); #endif
#ifndef Tcl_FSGetPathType_TCL_DECLARED
#define Tcl_FSGetPathType_TCL_DECLARED
/* 478 */ /* 478 */
EXTERN Tcl_PathType Tcl_FSGetPathType _ANSI_ARGS_((Tcl_Obj *pathPtr)); EXTERN Tcl_PathType Tcl_FSGetPathType (Tcl_Obj * pathPtr);
#endif
#ifndef Tcl_OutputBuffered_TCL_DECLARED
#define Tcl_OutputBuffered_TCL_DECLARED
/* 479 */ /* 479 */
EXTERN int Tcl_OutputBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_OutputBuffered (Tcl_Channel chan);
#endif
#ifndef Tcl_FSMountsChanged_TCL_DECLARED
#define Tcl_FSMountsChanged_TCL_DECLARED
/* 480 */ /* 480 */
EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_(( EXTERN void Tcl_FSMountsChanged (Tcl_Filesystem * fsPtr);
Tcl_Filesystem *fsPtr)); #endif
#ifndef Tcl_EvalTokensStandard_TCL_DECLARED
#define Tcl_EvalTokensStandard_TCL_DECLARED
/* 481 */ /* 481 */
EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_(( EXTERN int Tcl_EvalTokensStandard (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Token *tokenPtr, Tcl_Token * tokenPtr, int count);
int count)); #endif
#ifndef Tcl_GetTime_TCL_DECLARED
#define Tcl_GetTime_TCL_DECLARED
/* 482 */ /* 482 */
EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time *timeBuf)); EXTERN void Tcl_GetTime (Tcl_Time* timeBuf);
#endif
#ifndef Tcl_CreateObjTrace_TCL_DECLARED
#define Tcl_CreateObjTrace_TCL_DECLARED
/* 483 */ /* 483 */
EXTERN Tcl_Trace Tcl_CreateObjTrace _ANSI_ARGS_((Tcl_Interp *interp, EXTERN Tcl_Trace Tcl_CreateObjTrace (Tcl_Interp* interp, int level,
int level, int flags, int flags, Tcl_CmdObjTraceProc* objProc,
Tcl_CmdObjTraceProc *objProc,
ClientData clientData, ClientData clientData,
Tcl_CmdObjTraceDeleteProc *delProc)); Tcl_CmdObjTraceDeleteProc* delProc);
#endif
#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED
#define Tcl_GetCommandInfoFromToken_TCL_DECLARED
/* 484 */ /* 484 */
EXTERN int Tcl_GetCommandInfoFromToken _ANSI_ARGS_(( EXTERN int Tcl_GetCommandInfoFromToken (Tcl_Command token,
Tcl_Command token, Tcl_CmdInfo *infoPtr)); Tcl_CmdInfo* infoPtr);
#endif
#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED
#define Tcl_SetCommandInfoFromToken_TCL_DECLARED
/* 485 */ /* 485 */
EXTERN int Tcl_SetCommandInfoFromToken _ANSI_ARGS_(( EXTERN int Tcl_SetCommandInfoFromToken (Tcl_Command token,
Tcl_Command token, CONST Tcl_CmdInfo* infoPtr);
CONST Tcl_CmdInfo *infoPtr)); #endif
#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED
#define Tcl_DbNewWideIntObj_TCL_DECLARED
/* 486 */ /* 486 */
EXTERN Tcl_Obj * Tcl_DbNewWideIntObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_DbNewWideIntObj (Tcl_WideInt wideValue,
Tcl_WideInt wideValue, CONST char *file, CONST char * file, int line);
int line)); #endif
#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED
#define Tcl_GetWideIntFromObj_TCL_DECLARED
/* 487 */ /* 487 */
EXTERN int Tcl_GetWideIntFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetWideIntFromObj (Tcl_Interp * interp,
Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj * objPtr, Tcl_WideInt * widePtr);
Tcl_WideInt *widePtr)); #endif
#ifndef Tcl_NewWideIntObj_TCL_DECLARED
#define Tcl_NewWideIntObj_TCL_DECLARED
/* 488 */ /* 488 */
EXTERN Tcl_Obj * Tcl_NewWideIntObj _ANSI_ARGS_((Tcl_WideInt wideValue EXTERN Tcl_Obj * Tcl_NewWideIntObj (Tcl_WideInt wideValue);
)); #endif
#ifndef Tcl_SetWideIntObj_TCL_DECLARED
#define Tcl_SetWideIntObj_TCL_DECLARED
/* 489 */ /* 489 */
EXTERN void Tcl_SetWideIntObj _ANSI_ARGS_((Tcl_Obj *objPtr, EXTERN void Tcl_SetWideIntObj (Tcl_Obj * objPtr,
Tcl_WideInt wideValue)); Tcl_WideInt wideValue);
#endif
#ifndef Tcl_AllocStatBuf_TCL_DECLARED
#define Tcl_AllocStatBuf_TCL_DECLARED
/* 490 */ /* 490 */
EXTERN Tcl_StatBuf * Tcl_AllocStatBuf _ANSI_ARGS_((void)); EXTERN Tcl_StatBuf * Tcl_AllocStatBuf (void);
#endif
#ifndef Tcl_Seek_TCL_DECLARED
#define Tcl_Seek_TCL_DECLARED
/* 491 */ /* 491 */
EXTERN Tcl_WideInt Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, EXTERN Tcl_WideInt Tcl_Seek (Tcl_Channel chan, Tcl_WideInt offset,
Tcl_WideInt offset, int mode)); int mode);
#endif
#ifndef Tcl_Tell_TCL_DECLARED
#define Tcl_Tell_TCL_DECLARED
/* 492 */ /* 492 */
EXTERN Tcl_WideInt Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); EXTERN Tcl_WideInt Tcl_Tell (Tcl_Channel chan);
#endif
#ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED
#define Tcl_ChannelWideSeekProc_TCL_DECLARED
/* 493 */ /* 493 */
EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_(( EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc (
Tcl_ChannelType *chanTypePtr)); CONST Tcl_ChannelType * chanTypePtr);
/* Slot 494 is reserved */ #endif
/* Slot 495 is reserved */ #ifndef Tcl_DictObjPut_TCL_DECLARED
/* Slot 496 is reserved */ #define Tcl_DictObjPut_TCL_DECLARED
/* Slot 497 is reserved */ /* 494 */
/* Slot 498 is reserved */ EXTERN int Tcl_DictObjPut (Tcl_Interp * interp,
/* Slot 499 is reserved */ Tcl_Obj * dictPtr, Tcl_Obj * keyPtr,
/* Slot 500 is reserved */ Tcl_Obj * valuePtr);
/* Slot 501 is reserved */ #endif
/* Slot 502 is reserved */ #ifndef Tcl_DictObjGet_TCL_DECLARED
/* Slot 503 is reserved */ #define Tcl_DictObjGet_TCL_DECLARED
/* Slot 504 is reserved */ /* 495 */
/* Slot 505 is reserved */ EXTERN int Tcl_DictObjGet (Tcl_Interp * interp,
/* Slot 506 is reserved */ Tcl_Obj * dictPtr, Tcl_Obj * keyPtr,
/* Slot 507 is reserved */ Tcl_Obj ** valuePtrPtr);
/* Slot 508 is reserved */ #endif
/* Slot 509 is reserved */ #ifndef Tcl_DictObjRemove_TCL_DECLARED
/* Slot 510 is reserved */ #define Tcl_DictObjRemove_TCL_DECLARED
/* Slot 511 is reserved */ /* 496 */
/* Slot 512 is reserved */ EXTERN int Tcl_DictObjRemove (Tcl_Interp * interp,
/* Slot 513 is reserved */ Tcl_Obj * dictPtr, Tcl_Obj * keyPtr);
/* Slot 514 is reserved */ #endif
/* Slot 515 is reserved */ #ifndef Tcl_DictObjSize_TCL_DECLARED
/* Slot 516 is reserved */ #define Tcl_DictObjSize_TCL_DECLARED
/* Slot 517 is reserved */ /* 497 */
/* Slot 518 is reserved */ EXTERN int Tcl_DictObjSize (Tcl_Interp * interp,
/* Slot 519 is reserved */ Tcl_Obj * dictPtr, int * sizePtr);
/* Slot 520 is reserved */ #endif
/* Slot 521 is reserved */ #ifndef Tcl_DictObjFirst_TCL_DECLARED
/* Slot 522 is reserved */ #define Tcl_DictObjFirst_TCL_DECLARED
/* Slot 523 is reserved */ /* 498 */
/* Slot 524 is reserved */ EXTERN int Tcl_DictObjFirst (Tcl_Interp * interp,
/* Slot 525 is reserved */ Tcl_Obj * dictPtr,
/* Slot 526 is reserved */ Tcl_DictSearch * searchPtr,
/* Slot 527 is reserved */ Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr
/* Slot 528 is reserved */ ,
/* Slot 529 is reserved */ int * donePtr);
/* Slot 530 is reserved */ #endif
/* Slot 531 is reserved */ #ifndef Tcl_DictObjNext_TCL_DECLARED
/* Slot 532 is reserved */ #define Tcl_DictObjNext_TCL_DECLARED
/* Slot 533 is reserved */ /* 499 */
/* Slot 534 is reserved */ EXTERN void Tcl_DictObjNext (Tcl_DictSearch * searchPtr,
/* Slot 535 is reserved */ Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr
/* Slot 536 is reserved */ ,
/* Slot 537 is reserved */ int * donePtr);
/* Slot 538 is reserved */ #endif
/* Slot 539 is reserved */ #ifndef Tcl_DictObjDone_TCL_DECLARED
/* Slot 540 is reserved */ #define Tcl_DictObjDone_TCL_DECLARED
/* Slot 541 is reserved */ /* 500 */
/* Slot 542 is reserved */ EXTERN void Tcl_DictObjDone (Tcl_DictSearch * searchPtr);
/* Slot 543 is reserved */ #endif
/* Slot 544 is reserved */ #ifndef Tcl_DictObjPutKeyList_TCL_DECLARED
/* Slot 545 is reserved */ #define Tcl_DictObjPutKeyList_TCL_DECLARED
/* Slot 546 is reserved */ /* 501 */
/* Slot 547 is reserved */ EXTERN int Tcl_DictObjPutKeyList (Tcl_Interp * interp,
/* Slot 548 is reserved */ Tcl_Obj * dictPtr, int keyc,
/* Slot 549 is reserved */ Tcl_Obj *CONST * keyv, Tcl_Obj * valuePtr);
/* Slot 550 is reserved */ #endif
/* Slot 551 is reserved */ #ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED
/* Slot 552 is reserved */ #define Tcl_DictObjRemoveKeyList_TCL_DECLARED
/* Slot 553 is reserved */ /* 502 */
EXTERN int Tcl_DictObjRemoveKeyList (Tcl_Interp * interp,
Tcl_Obj * dictPtr, int keyc,
Tcl_Obj *CONST * keyv);
#endif
#ifndef Tcl_NewDictObj_TCL_DECLARED
#define Tcl_NewDictObj_TCL_DECLARED
/* 503 */
EXTERN Tcl_Obj * Tcl_NewDictObj (void);
#endif
#ifndef Tcl_DbNewDictObj_TCL_DECLARED
#define Tcl_DbNewDictObj_TCL_DECLARED
/* 504 */
EXTERN Tcl_Obj * Tcl_DbNewDictObj (CONST char * file, int line);
#endif
#ifndef Tcl_RegisterConfig_TCL_DECLARED
#define Tcl_RegisterConfig_TCL_DECLARED
/* 505 */
EXTERN void Tcl_RegisterConfig (Tcl_Interp* interp,
CONST char* pkgName,
Tcl_Config* configuration,
CONST char* valEncoding);
#endif
#ifndef Tcl_CreateNamespace_TCL_DECLARED
#define Tcl_CreateNamespace_TCL_DECLARED
/* 506 */
EXTERN Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp,
CONST char * name, ClientData clientData,
Tcl_NamespaceDeleteProc * deleteProc);
#endif
#ifndef Tcl_DeleteNamespace_TCL_DECLARED
#define Tcl_DeleteNamespace_TCL_DECLARED
/* 507 */
EXTERN void Tcl_DeleteNamespace (Tcl_Namespace * nsPtr);
#endif
#ifndef Tcl_AppendExportList_TCL_DECLARED
#define Tcl_AppendExportList_TCL_DECLARED
/* 508 */
EXTERN int Tcl_AppendExportList (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_Export_TCL_DECLARED
#define Tcl_Export_TCL_DECLARED
/* 509 */
EXTERN int Tcl_Export (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, CONST char * pattern,
int resetListFirst);
#endif
#ifndef Tcl_Import_TCL_DECLARED
#define Tcl_Import_TCL_DECLARED
/* 510 */
EXTERN int Tcl_Import (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, CONST char * pattern,
int allowOverwrite);
#endif
#ifndef Tcl_ForgetImport_TCL_DECLARED
#define Tcl_ForgetImport_TCL_DECLARED
/* 511 */
EXTERN int Tcl_ForgetImport (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, CONST char * pattern)
;
#endif
#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
#define Tcl_GetCurrentNamespace_TCL_DECLARED
/* 512 */
EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace (Tcl_Interp * interp);
#endif
#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
#define Tcl_GetGlobalNamespace_TCL_DECLARED
/* 513 */
EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace (Tcl_Interp * interp);
#endif
#ifndef Tcl_FindNamespace_TCL_DECLARED
#define Tcl_FindNamespace_TCL_DECLARED
/* 514 */
EXTERN Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp,
CONST char * name,
Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_FindCommand_TCL_DECLARED
#define Tcl_FindCommand_TCL_DECLARED
/* 515 */
EXTERN Tcl_Command Tcl_FindCommand (Tcl_Interp * interp,
CONST char * name,
Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_GetCommandFromObj_TCL_DECLARED
#define Tcl_GetCommandFromObj_TCL_DECLARED
/* 516 */
EXTERN Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetCommandFullName_TCL_DECLARED
#define Tcl_GetCommandFullName_TCL_DECLARED
/* 517 */
EXTERN void Tcl_GetCommandFullName (Tcl_Interp * interp,
Tcl_Command command, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_FSEvalFileEx_TCL_DECLARED
#define Tcl_FSEvalFileEx_TCL_DECLARED
/* 518 */
EXTERN int Tcl_FSEvalFileEx (Tcl_Interp * interp,
Tcl_Obj * fileName,
CONST char * encodingName);
#endif
#ifndef Tcl_SetExitProc_TCL_DECLARED
#define Tcl_SetExitProc_TCL_DECLARED
/* 519 */
EXTERN Tcl_ExitProc * Tcl_SetExitProc (Tcl_ExitProc * proc);
#endif
#ifndef Tcl_LimitAddHandler_TCL_DECLARED
#define Tcl_LimitAddHandler_TCL_DECLARED
/* 520 */
EXTERN void Tcl_LimitAddHandler (Tcl_Interp * interp, int type,
Tcl_LimitHandlerProc * handlerProc,
ClientData clientData,
Tcl_LimitHandlerDeleteProc * deleteProc);
#endif
#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED
#define Tcl_LimitRemoveHandler_TCL_DECLARED
/* 521 */
EXTERN void Tcl_LimitRemoveHandler (Tcl_Interp * interp,
int type, Tcl_LimitHandlerProc * handlerProc
,
ClientData clientData);
#endif
#ifndef Tcl_LimitReady_TCL_DECLARED
#define Tcl_LimitReady_TCL_DECLARED
/* 522 */
EXTERN int Tcl_LimitReady (Tcl_Interp * interp);
#endif
#ifndef Tcl_LimitCheck_TCL_DECLARED
#define Tcl_LimitCheck_TCL_DECLARED
/* 523 */
EXTERN int Tcl_LimitCheck (Tcl_Interp * interp);
#endif
#ifndef Tcl_LimitExceeded_TCL_DECLARED
#define Tcl_LimitExceeded_TCL_DECLARED
/* 524 */
EXTERN int Tcl_LimitExceeded (Tcl_Interp * interp);
#endif
#ifndef Tcl_LimitSetCommands_TCL_DECLARED
#define Tcl_LimitSetCommands_TCL_DECLARED
/* 525 */
EXTERN void Tcl_LimitSetCommands (Tcl_Interp * interp,
int commandLimit);
#endif
#ifndef Tcl_LimitSetTime_TCL_DECLARED
#define Tcl_LimitSetTime_TCL_DECLARED
/* 526 */
EXTERN void Tcl_LimitSetTime (Tcl_Interp * interp,
Tcl_Time * timeLimitPtr);
#endif
#ifndef Tcl_LimitSetGranularity_TCL_DECLARED
#define Tcl_LimitSetGranularity_TCL_DECLARED
/* 527 */
EXTERN void Tcl_LimitSetGranularity (Tcl_Interp * interp,
int type, int granularity);
#endif
#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED
#define Tcl_LimitTypeEnabled_TCL_DECLARED
/* 528 */
EXTERN int Tcl_LimitTypeEnabled (Tcl_Interp * interp, int type)
;
#endif
#ifndef Tcl_LimitTypeExceeded_TCL_DECLARED
#define Tcl_LimitTypeExceeded_TCL_DECLARED
/* 529 */
EXTERN int Tcl_LimitTypeExceeded (Tcl_Interp * interp, int type
);
#endif
#ifndef Tcl_LimitTypeSet_TCL_DECLARED
#define Tcl_LimitTypeSet_TCL_DECLARED
/* 530 */
EXTERN void Tcl_LimitTypeSet (Tcl_Interp * interp, int type);
#endif
#ifndef Tcl_LimitTypeReset_TCL_DECLARED
#define Tcl_LimitTypeReset_TCL_DECLARED
/* 531 */
EXTERN void Tcl_LimitTypeReset (Tcl_Interp * interp, int type);
#endif
#ifndef Tcl_LimitGetCommands_TCL_DECLARED
#define Tcl_LimitGetCommands_TCL_DECLARED
/* 532 */
EXTERN int Tcl_LimitGetCommands (Tcl_Interp * interp);
#endif
#ifndef Tcl_LimitGetTime_TCL_DECLARED
#define Tcl_LimitGetTime_TCL_DECLARED
/* 533 */
EXTERN void Tcl_LimitGetTime (Tcl_Interp * interp,
Tcl_Time * timeLimitPtr);
#endif
#ifndef Tcl_LimitGetGranularity_TCL_DECLARED
#define Tcl_LimitGetGranularity_TCL_DECLARED
/* 534 */
EXTERN int Tcl_LimitGetGranularity (Tcl_Interp * interp,
int type);
#endif
#ifndef Tcl_SaveInterpState_TCL_DECLARED
#define Tcl_SaveInterpState_TCL_DECLARED
/* 535 */
EXTERN Tcl_InterpState Tcl_SaveInterpState (Tcl_Interp * interp, int status
);
#endif
#ifndef Tcl_RestoreInterpState_TCL_DECLARED
#define Tcl_RestoreInterpState_TCL_DECLARED
/* 536 */
EXTERN int Tcl_RestoreInterpState (Tcl_Interp * interp,
Tcl_InterpState state);
#endif
#ifndef Tcl_DiscardInterpState_TCL_DECLARED
#define Tcl_DiscardInterpState_TCL_DECLARED
/* 537 */
EXTERN void Tcl_DiscardInterpState (Tcl_InterpState state);
#endif
#ifndef Tcl_SetReturnOptions_TCL_DECLARED
#define Tcl_SetReturnOptions_TCL_DECLARED
/* 538 */
EXTERN int Tcl_SetReturnOptions (Tcl_Interp * interp,
Tcl_Obj * options);
#endif
#ifndef Tcl_GetReturnOptions_TCL_DECLARED
#define Tcl_GetReturnOptions_TCL_DECLARED
/* 539 */
EXTERN Tcl_Obj * Tcl_GetReturnOptions (Tcl_Interp * interp,
int result);
#endif
#ifndef Tcl_IsEnsemble_TCL_DECLARED
#define Tcl_IsEnsemble_TCL_DECLARED
/* 540 */
EXTERN int Tcl_IsEnsemble (Tcl_Command token);
#endif
#ifndef Tcl_CreateEnsemble_TCL_DECLARED
#define Tcl_CreateEnsemble_TCL_DECLARED
/* 541 */
EXTERN Tcl_Command Tcl_CreateEnsemble (Tcl_Interp * interp,
CONST char * name,
Tcl_Namespace * namespacePtr, int flags);
#endif
#ifndef Tcl_FindEnsemble_TCL_DECLARED
#define Tcl_FindEnsemble_TCL_DECLARED
/* 542 */
EXTERN Tcl_Command Tcl_FindEnsemble (Tcl_Interp * interp,
Tcl_Obj * cmdNameObj, int flags);
#endif
#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED
#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED
/* 543 */
EXTERN int Tcl_SetEnsembleSubcommandList (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * subcmdList);
#endif
#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED
#define Tcl_SetEnsembleMappingDict_TCL_DECLARED
/* 544 */
EXTERN int Tcl_SetEnsembleMappingDict (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * mapDict);
#endif
#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
/* 545 */
EXTERN int Tcl_SetEnsembleUnknownHandler (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * unknownList);
#endif
#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED
#define Tcl_SetEnsembleFlags_TCL_DECLARED
/* 546 */
EXTERN int Tcl_SetEnsembleFlags (Tcl_Interp * interp,
Tcl_Command token, int flags);
#endif
#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED
#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED
/* 547 */
EXTERN int Tcl_GetEnsembleSubcommandList (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** subcmdListPtr)
;
#endif
#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED
#define Tcl_GetEnsembleMappingDict_TCL_DECLARED
/* 548 */
EXTERN int Tcl_GetEnsembleMappingDict (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** mapDictPtr);
#endif
#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
/* 549 */
EXTERN int Tcl_GetEnsembleUnknownHandler (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** unknownListPtr
);
#endif
#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED
#define Tcl_GetEnsembleFlags_TCL_DECLARED
/* 550 */
EXTERN int Tcl_GetEnsembleFlags (Tcl_Interp * interp,
Tcl_Command token, int * flagsPtr);
#endif
#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED
#define Tcl_GetEnsembleNamespace_TCL_DECLARED
/* 551 */
EXTERN int Tcl_GetEnsembleNamespace (Tcl_Interp * interp,
Tcl_Command token,
Tcl_Namespace ** namespacePtrPtr);
#endif
#ifndef Tcl_SetTimeProc_TCL_DECLARED
#define Tcl_SetTimeProc_TCL_DECLARED
/* 552 */
EXTERN void Tcl_SetTimeProc (Tcl_GetTimeProc* getProc,
Tcl_ScaleTimeProc* scaleProc,
ClientData clientData);
#endif
#ifndef Tcl_QueryTimeProc_TCL_DECLARED
#define Tcl_QueryTimeProc_TCL_DECLARED
/* 553 */
EXTERN void Tcl_QueryTimeProc (Tcl_GetTimeProc** getProc,
Tcl_ScaleTimeProc** scaleProc,
ClientData* clientData);
#endif
#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED
#define Tcl_ChannelThreadActionProc_TCL_DECLARED
/* 554 */ /* 554 */
EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_ EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc (
(( CONST Tcl_ChannelType * chanTypePtr);
Tcl_ChannelType *chanTypePtr)); #endif
/* Slot 555 is reserved */ #ifndef Tcl_NewBignumObj_TCL_DECLARED
/* Slot 556 is reserved */ #define Tcl_NewBignumObj_TCL_DECLARED
/* Slot 557 is reserved */ /* 555 */
/* Slot 558 is reserved */ EXTERN Tcl_Obj* Tcl_NewBignumObj (mp_int* value);
/* Slot 559 is reserved */ #endif
/* Slot 560 is reserved */ #ifndef Tcl_DbNewBignumObj_TCL_DECLARED
/* Slot 561 is reserved */ #define Tcl_DbNewBignumObj_TCL_DECLARED
/* Slot 562 is reserved */ /* 556 */
/* Slot 563 is reserved */ EXTERN Tcl_Obj* Tcl_DbNewBignumObj (mp_int* value, CONST cha
/* Slot 564 is reserved */ r* file,
/* Slot 565 is reserved */ int line);
/* Slot 566 is reserved */ #endif
/* Slot 567 is reserved */ #ifndef Tcl_SetBignumObj_TCL_DECLARED
/* Slot 568 is reserved */ #define Tcl_SetBignumObj_TCL_DECLARED
/* Slot 569 is reserved */ /* 557 */
/* Slot 570 is reserved */ EXTERN void Tcl_SetBignumObj (Tcl_Obj* obj, mp_int* value);
/* Slot 571 is reserved */ #endif
/* Slot 572 is reserved */ #ifndef Tcl_GetBignumFromObj_TCL_DECLARED
#define Tcl_GetBignumFromObj_TCL_DECLARED
/* 558 */
EXTERN int Tcl_GetBignumFromObj (Tcl_Interp* interp,
Tcl_Obj* obj, mp_int* value);
#endif
#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED
#define Tcl_TakeBignumFromObj_TCL_DECLARED
/* 559 */
EXTERN int Tcl_TakeBignumFromObj (Tcl_Interp* interp,
Tcl_Obj* obj, mp_int* value);
#endif
#ifndef Tcl_TruncateChannel_TCL_DECLARED
#define Tcl_TruncateChannel_TCL_DECLARED
/* 560 */
EXTERN int Tcl_TruncateChannel (Tcl_Channel chan,
Tcl_WideInt length);
#endif
#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED
#define Tcl_ChannelTruncateProc_TCL_DECLARED
/* 561 */
EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc (
CONST Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED
#define Tcl_SetChannelErrorInterp_TCL_DECLARED
/* 562 */
EXTERN void Tcl_SetChannelErrorInterp (Tcl_Interp* interp,
Tcl_Obj* msg);
#endif
#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED
#define Tcl_GetChannelErrorInterp_TCL_DECLARED
/* 563 */
EXTERN void Tcl_GetChannelErrorInterp (Tcl_Interp* interp,
Tcl_Obj** msg);
#endif
#ifndef Tcl_SetChannelError_TCL_DECLARED
#define Tcl_SetChannelError_TCL_DECLARED
/* 564 */
EXTERN void Tcl_SetChannelError (Tcl_Channel chan, Tcl_Obj* msg)
;
#endif
#ifndef Tcl_GetChannelError_TCL_DECLARED
#define Tcl_GetChannelError_TCL_DECLARED
/* 565 */
EXTERN void Tcl_GetChannelError (Tcl_Channel chan, Tcl_Obj** msg
);
#endif
#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED
#define Tcl_InitBignumFromDouble_TCL_DECLARED
/* 566 */
EXTERN int Tcl_InitBignumFromDouble (Tcl_Interp* interp,
double initval, mp_int * toInit);
#endif
#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
/* 567 */
EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler (Tcl_Interp * interp,
Tcl_Namespace * nsPtr);
#endif
#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
/* 568 */
EXTERN int Tcl_SetNamespaceUnknownHandler (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, Tcl_Obj * handlerPtr)
;
#endif
#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED
#define Tcl_GetEncodingFromObj_TCL_DECLARED
/* 569 */
EXTERN int Tcl_GetEncodingFromObj (Tcl_Interp* interp,
Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr);
#endif
#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED
#define Tcl_GetEncodingSearchPath_TCL_DECLARED
/* 570 */
EXTERN Tcl_Obj* Tcl_GetEncodingSearchPath (void);
#endif
#ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED
#define Tcl_SetEncodingSearchPath_TCL_DECLARED
/* 571 */
EXTERN int Tcl_SetEncodingSearchPath (Tcl_Obj* searchPath);
#endif
#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
/* 572 */
EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment (
Tcl_DString* bufPtr);
#endif
#ifndef Tcl_PkgRequireProc_TCL_DECLARED
#define Tcl_PkgRequireProc_TCL_DECLARED
/* 573 */ /* 573 */
EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_PkgRequireProc (Tcl_Interp * interp,
CONST char *name, int objc, CONST char * name, int objc,
Tcl_Obj *CONST objv[], Tcl_Obj *CONST objv[],
ClientData *clientDataPtr)); ClientData * clientDataPtr);
/* Slot 574 is reserved */ #endif
/* Slot 575 is reserved */ #ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED
/* Slot 576 is reserved */ #define Tcl_AppendObjToErrorInfo_TCL_DECLARED
/* Slot 577 is reserved */ /* 574 */
/* Slot 578 is reserved */ EXTERN void Tcl_AppendObjToErrorInfo (Tcl_Interp * interp,
/* Slot 579 is reserved */ Tcl_Obj * objPtr);
/* Slot 580 is reserved */ #endif
/* Slot 581 is reserved */ #ifndef Tcl_AppendLimitedToObj_TCL_DECLARED
/* Slot 582 is reserved */ #define Tcl_AppendLimitedToObj_TCL_DECLARED
/* Slot 583 is reserved */ /* 575 */
/* Slot 584 is reserved */ EXTERN void Tcl_AppendLimitedToObj (Tcl_Obj * objPtr,
/* Slot 585 is reserved */ CONST char * bytes, int length, int limit,
/* Slot 586 is reserved */ CONST char * ellipsis);
/* Slot 587 is reserved */ #endif
/* Slot 588 is reserved */ #ifndef Tcl_Format_TCL_DECLARED
/* Slot 589 is reserved */ #define Tcl_Format_TCL_DECLARED
/* Slot 590 is reserved */ /* 576 */
/* Slot 591 is reserved */ EXTERN Tcl_Obj * Tcl_Format (Tcl_Interp * interp, CONST char * format
/* Slot 592 is reserved */ ,
/* Slot 593 is reserved */ int objc, Tcl_Obj * CONST objv[]);
/* Slot 594 is reserved */ #endif
/* Slot 595 is reserved */ #ifndef Tcl_AppendFormatToObj_TCL_DECLARED
/* Slot 596 is reserved */ #define Tcl_AppendFormatToObj_TCL_DECLARED
/* Slot 597 is reserved */ /* 577 */
/* Slot 598 is reserved */ EXTERN int Tcl_AppendFormatToObj (Tcl_Interp * interp,
/* Slot 599 is reserved */ Tcl_Obj * objPtr, CONST char * format,
/* Slot 600 is reserved */ int objc, Tcl_Obj * CONST objv[]);
/* Slot 601 is reserved */ #endif
/* Slot 602 is reserved */ #ifndef Tcl_ObjPrintf_TCL_DECLARED
/* Slot 603 is reserved */ #define Tcl_ObjPrintf_TCL_DECLARED
/* Slot 604 is reserved */ /* 578 */
/* Slot 605 is reserved */ EXTERN Tcl_Obj * Tcl_ObjPrintf (CONST char * format, ...);
/* Slot 606 is reserved */ #endif
/* Slot 607 is reserved */ #ifndef Tcl_AppendPrintfToObj_TCL_DECLARED
/* Slot 608 is reserved */ #define Tcl_AppendPrintfToObj_TCL_DECLARED
/* Slot 609 is reserved */ /* 579 */
/* Slot 610 is reserved */ EXTERN void Tcl_AppendPrintfToObj (Tcl_Obj * objPtr,
/* Slot 611 is reserved */ CONST char * format, ...);
/* Slot 612 is reserved */ #endif
/* 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) (Tcl_Interp* interp, CONST char* name, CONST ch
me, CONST char *version, ClientData clientData)); /* 0 */ ar* version, ClientData clientData); /* 0 */
CONST84_RETURN char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp *inte CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, CONST c
rp, CONST char *name, CONST char *version, int exact, ClientData *clientDat har * name, CONST char * version, int exact, ClientData * clientDataPtr); /
aPtr)); /* 1 */ * 1 */
void (*tcl_Panic) _ANSI_ARGS_((CONST char *format, ...)); /* 2 */ void (*tcl_Panic) (CONST char * format, ...); /* 2 */
char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ char * (*tcl_Alloc) (unsigned int size); /* 3 */
void (*tcl_Free) _ANSI_ARGS_((char *ptr)); /* 4 */ void (*tcl_Free) (char * ptr); /* 4 */
char * (*tcl_Realloc) _ANSI_ARGS_((char *ptr, unsigned int size)); /* 5 char * (*tcl_Realloc) (char * ptr, unsigned int size); /* 5 */
*/ char * (*tcl_DbCkalloc) (unsigned int size, CONST char * file, int line
char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char *fil ); /* 6 */
e, int line)); /* 6 */ int (*tcl_DbCkfree) (char * ptr, CONST char * file, int line); /* 7 */
void (*tcl_DbCkfree) _ANSI_ARGS_((char *ptr, CONST char *file, int line char * (*tcl_DbCkrealloc) (char * ptr, unsigned int size, CONST char *
)); /* 7 */ file, int line); /* 8 */
char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char *ptr, unsigned int size, CO #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
NST char *file, int line)); /* 8 */ void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc * proc, C
lientData clientData); /* 9 */
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
void *reserved9;
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc * proc, C
lientData clientData); /* 9 */
#endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
void *reserved10;
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* MACOSX */
void (*tcl_SetTimer) (Tcl_Time * timePtr); /* 11 */
void (*tcl_Sleep) (int ms); /* 12 */
int (*tcl_WaitForEvent) (Tcl_Time * timePtr); /* 13 */
int (*tcl_AppendAllObjTypes) (Tcl_Interp * interp, Tcl_Obj * objPtr); /
* 14 */
void (*tcl_AppendStringsToObj) (Tcl_Obj * objPtr, ...); /* 15 */
void (*tcl_AppendToObj) (Tcl_Obj* objPtr, CONST char* bytes, int length
); /* 16 */
Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */
int (*tcl_ConvertToType) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Ob
jType * typePtr); /* 18 */
void (*tcl_DbDecrRefCount) (Tcl_Obj * objPtr, CONST char * file, int li
ne); /* 19 */
void (*tcl_DbIncrRefCount) (Tcl_Obj * objPtr, CONST char * file, int li
ne); /* 20 */
int (*tcl_DbIsShared) (Tcl_Obj * objPtr, CONST char * file, int line);
/* 21 */
Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char * file, int
line); /* 22 */
Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char * bytes, int le
ngth, CONST char * file, int line); /* 23 */
Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char * file,
int line); /* 24 */
Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST * objv, CONST c
har * file, int line); /* 25 */
Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char * file, int l
ine); /* 26 */
Tcl_Obj * (*tcl_DbNewObj) (CONST char * file, int line); /* 27 */
Tcl_Obj * (*tcl_DbNewStringObj) (CONST char * bytes, int length, CONST
char * file, int line); /* 28 */
Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj * objPtr); /* 29 */
void (*tclFreeObj) (Tcl_Obj * objPtr); /* 30 */
int (*tcl_GetBoolean) (Tcl_Interp * interp, CONST char * src, int * boo
lPtr); /* 31 */
int (*tcl_GetBooleanFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, in
t * boolPtr); /* 32 */
unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj * objPtr, int * len
gthPtr); /* 33 */
int (*tcl_GetDouble) (Tcl_Interp * interp, CONST char * src, double * d
oublePtr); /* 34 */
int (*tcl_GetDoubleFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, dou
ble * doublePtr); /* 35 */
int (*tcl_GetIndexFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONS
T84 char ** tablePtr, CONST char * msg, int flags, int * indexPtr); /* 36 *
/
int (*tcl_GetInt) (Tcl_Interp * interp, CONST char * src, int * intPtr)
; /* 37 */
int (*tcl_GetIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int *
intPtr); /* 38 */
int (*tcl_GetLongFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long
* longPtr); /* 39 */
Tcl_ObjType * (*tcl_GetObjType) (CONST char * typeName); /* 40 */
char * (*tcl_GetStringFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /*
41 */
void (*tcl_InvalidateStringRep) (Tcl_Obj * objPtr); /* 42 */
int (*tcl_ListObjAppendList) (Tcl_Interp * interp, Tcl_Obj * listPtr, T
cl_Obj * elemListPtr); /* 43 */
int (*tcl_ListObjAppendElement) (Tcl_Interp * interp, Tcl_Obj * listPtr
, Tcl_Obj * objPtr); /* 44 */
int (*tcl_ListObjGetElements) (Tcl_Interp * interp, Tcl_Obj * listPtr,
int * objcPtr, Tcl_Obj *** objvPtr); /* 45 */
int (*tcl_ListObjIndex) (Tcl_Interp * interp, Tcl_Obj * listPtr, int in
dex, Tcl_Obj ** objPtrPtr); /* 46 */
int (*tcl_ListObjLength) (Tcl_Interp * interp, Tcl_Obj * listPtr, int *
lengthPtr); /* 47 */
int (*tcl_ListObjReplace) (Tcl_Interp * interp, Tcl_Obj * listPtr, int
first, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */
Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char* bytes, int lengt
h); /* 50 */
Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */
Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
Tcl_Obj * (*tcl_NewStringObj) (CONST char * bytes, int length); /* 56 *
/
void (*tcl_SetBooleanObj) (Tcl_Obj * objPtr, int boolValue); /* 57 */
unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj * objPtr, int length
); /* 58 */
void (*tcl_SetByteArrayObj) (Tcl_Obj * objPtr, CONST unsigned char * by
tes, int length); /* 59 */
void (*tcl_SetDoubleObj) (Tcl_Obj * objPtr, double doubleValue); /* 60
*/
void (*tcl_SetIntObj) (Tcl_Obj * objPtr, int intValue); /* 61 */
void (*tcl_SetListObj) (Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv
[]); /* 62 */
void (*tcl_SetLongObj) (Tcl_Obj * objPtr, long longValue); /* 63 */
void (*tcl_SetObjLength) (Tcl_Obj * objPtr, int length); /* 64 */
void (*tcl_SetStringObj) (Tcl_Obj* objPtr, CONST char* bytes, int lengt
h); /* 65 */
void (*tcl_AddErrorInfo) (Tcl_Interp * interp, CONST char * message); /
* 66 */
void (*tcl_AddObjErrorInfo) (Tcl_Interp * interp, CONST char * message,
int length); /* 67 */
void (*tcl_AllowExceptions) (Tcl_Interp * interp); /* 68 */
void (*tcl_AppendElement) (Tcl_Interp * interp, CONST char * element);
/* 69 */
void (*tcl_AppendResult) (Tcl_Interp * interp, ...); /* 70 */
Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc * proc, ClientData c
lientData); /* 71 */
void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
int (*tcl_AsyncInvoke) (Tcl_Interp * interp, int code); /* 73 */
void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
int (*tcl_AsyncReady) (void); /* 75 */
void (*tcl_BackgroundError) (Tcl_Interp * interp); /* 76 */
char (*tcl_Backslash) (CONST char * src, int * readPtr); /* 77 */
int (*tcl_BadChannelOption) (Tcl_Interp * interp, CONST char * optionNa
me, CONST char * optionList); /* 78 */
void (*tcl_CallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc
* proc, ClientData clientData); /* 79 */
void (*tcl_CancelIdleCall) (Tcl_IdleProc * idleProc, ClientData clientD
ata); /* 80 */
int (*tcl_Close) (Tcl_Interp * interp, Tcl_Channel chan); /* 81 */
int (*tcl_CommandComplete) (CONST char * cmd); /* 82 */
char * (*tcl_Concat) (int argc, CONST84 char * CONST * argv); /* 83 */
int (*tcl_ConvertElement) (CONST char * src, char * dst, int flags); /*
84 */
int (*tcl_ConvertCountedElement) (CONST char * src, int length, char *
dst, int flags); /* 85 */
int (*tcl_CreateAlias) (Tcl_Interp * slave, CONST char * slaveCmd, Tcl_
Interp * target, CONST char * targetCmd, int argc, CONST84 char * CONST * a
rgv); /* 86 */
int (*tcl_CreateAliasObj) (Tcl_Interp * slave, CONST char * slaveCmd, T
cl_Interp * target, CONST char * targetCmd, int objc, Tcl_Obj *CONST objv[]
); /* 87 */
Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType * typePtr, CONST char
* chanName, ClientData instanceData, int mask); /* 88 */
void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_Chann
elProc * proc, ClientData clientData); /* 89 */
void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc,
ClientData clientData); /* 90 */
Tcl_Command (*tcl_CreateCommand) (Tcl_Interp * interp, CONST char * cmd
Name, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * delete
Proc); /* 91 */
void (*tcl_CreateEventSource) (Tcl_EventSetupProc * setupProc, Tcl_Even
tCheckProc * checkProc, ClientData clientData); /* 92 */
void (*tcl_CreateExitHandler) (Tcl_ExitProc * proc, ClientData clientDa
ta); /* 93 */
Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
void (*tcl_CreateMathFunc) (Tcl_Interp * interp, CONST char * name, int
numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientD
ata); /* 95 */
Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp * interp, CONST char *
cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc *
deleteProc); /* 96 */
Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp * interp, CONST char * slav
eName, int isSafe); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerPr
oc * proc, ClientData clientData); /* 98 */
Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp * interp, int level, Tcl_CmdTr
aceProc * proc, ClientData clientData); /* 99 */
void (*tcl_DeleteAssocData) (Tcl_Interp * interp, CONST char * name); /
* 100 */
void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc * p
roc, ClientData clientData); /* 101 */
void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc,
ClientData clientData); /* 102 */
int (*tcl_DeleteCommand) (Tcl_Interp * interp, CONST char * cmdName); /
* 103 */
int (*tcl_DeleteCommandFromToken) (Tcl_Interp * interp, Tcl_Command com
mand); /* 104 */
void (*tcl_DeleteEvents) (Tcl_EventDeleteProc * proc, ClientData client
Data); /* 105 */
void (*tcl_DeleteEventSource) (Tcl_EventSetupProc * setupProc, Tcl_Even
tCheckProc * checkProc, ClientData clientData); /* 106 */
void (*tcl_DeleteExitHandler) (Tcl_ExitProc * proc, ClientData clientDa
ta); /* 107 */
void (*tcl_DeleteHashEntry) (Tcl_HashEntry * entryPtr); /* 108 */
void (*tcl_DeleteHashTable) (Tcl_HashTable * tablePtr); /* 109 */
void (*tcl_DeleteInterp) (Tcl_Interp * interp); /* 110 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); /* 111 */
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); /* 111 */
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); /* 111 */
#endif /* MACOSX */
void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
void (*tcl_DeleteTrace) (Tcl_Interp * interp, Tcl_Trace trace); /* 113
*/
void (*tcl_DontCallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteP
roc * proc, ClientData clientData); /* 114 */
int (*tcl_DoOneEvent) (int flags); /* 115 */
void (*tcl_DoWhenIdle) (Tcl_IdleProc * proc, ClientData clientData); /*
116 */
char * (*tcl_DStringAppend) (Tcl_DString * dsPtr, CONST char * bytes, i
nt length); /* 117 */
char * (*tcl_DStringAppendElement) (Tcl_DString * dsPtr, CONST char * e
lement); /* 118 */
void (*tcl_DStringEndSublist) (Tcl_DString * dsPtr); /* 119 */
void (*tcl_DStringFree) (Tcl_DString * dsPtr); /* 120 */
void (*tcl_DStringGetResult) (Tcl_Interp * interp, Tcl_DString * dsPtr)
; /* 121 */
void (*tcl_DStringInit) (Tcl_DString * dsPtr); /* 122 */
void (*tcl_DStringResult) (Tcl_Interp * interp, Tcl_DString * dsPtr); /
* 123 */
void (*tcl_DStringSetLength) (Tcl_DString * dsPtr, int length); /* 124
*/
void (*tcl_DStringStartSublist) (Tcl_DString * dsPtr); /* 125 */
int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
int (*tcl_Eval) (Tcl_Interp * interp, CONST char * script); /* 129 */
int (*tcl_EvalFile) (Tcl_Interp * interp, CONST char * fileName); /* 13
0 */
int (*tcl_EvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 131 */
void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc * freeP
roc); /* 132 */
void (*tcl_Exit) (int status); /* 133 */
int (*tcl_ExposeCommand) (Tcl_Interp * interp, CONST char * hiddenCmdTo
ken, CONST char * cmdName); /* 134 */
int (*tcl_ExprBoolean) (Tcl_Interp * interp, CONST char * expr, int * p
tr); /* 135 */
int (*tcl_ExprBooleanObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int *
ptr); /* 136 */
int (*tcl_ExprDouble) (Tcl_Interp * interp, CONST char * expr, double *
ptr); /* 137 */
int (*tcl_ExprDoubleObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double
* ptr); /* 138 */
int (*tcl_ExprLong) (Tcl_Interp * interp, CONST char * expr, long * ptr
); /* 139 */
int (*tcl_ExprLongObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * p
tr); /* 140 */
int (*tcl_ExprObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** r
esultPtrPtr); /* 141 */
int (*tcl_ExprString) (Tcl_Interp * interp, CONST char * expr); /* 142
*/
void (*tcl_Finalize) (void); /* 143 */
void (*tcl_FindExecutable) (CONST char * argv0); /* 144 */
Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable * tablePtr, Tcl_Ha
shSearch * searchPtr); /* 145 */
int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
void (*tcl_FreeResult) (Tcl_Interp * interp); /* 147 */
int (*tcl_GetAlias) (Tcl_Interp * interp, CONST char * slaveCmd, Tcl_In
terp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * argcPtr, CONST
84 char *** argvPtr); /* 148 */
int (*tcl_GetAliasObj) (Tcl_Interp * interp, CONST char * slaveCmd, Tcl
_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * objcPtr, Tc
l_Obj *** objv); /* 149 */
ClientData (*tcl_GetAssocData) (Tcl_Interp * interp, CONST char * name,
Tcl_InterpDeleteProc ** procPtr); /* 150 */
Tcl_Channel (*tcl_GetChannel) (Tcl_Interp * interp, CONST char * chanNa
me, int * modePtr); /* 151 */
int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientDat
a * handlePtr); /* 153 */
ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156
*/
int (*tcl_GetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, CON
ST char * optionName, Tcl_DString * dsPtr); /* 157 */
Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
int (*tcl_GetCommandInfo) (Tcl_Interp * interp, CONST char * cmdName, T
cl_CmdInfo * infoPtr); /* 159 */
CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp * interp, Tcl_C
ommand command); /* 160 */
int (*tcl_GetErrno) (void); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
int (*tcl_GetInterpPath) (Tcl_Interp * askInterp, Tcl_Interp * slaveInt
erp); /* 163 */
Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp * interp); /* 164 */
CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp * interp); /* 166 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr oc *proc, ClientData clientData)); /* 9 */ int (*tcl_GetOpenFile) (Tcl_Interp * interp, CONST char * chanID, int f orWriting, int checkUsage, ClientData * filePtr); /* 167 */
#endif /* UNIX */ #endif /* UNIX */
#if defined(__WIN32__) /* WIN */ #ifdef __WIN32__ /* WIN */
VOID *reserved9; void *reserved167;
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr oc *proc, ClientData clientData)); /* 9 */ int (*tcl_GetOpenFile) (Tcl_Interp * interp, CONST char * chanID, int f orWriting, int checkUsage, ClientData * filePtr); /* 167 */
#endif /* MACOSX */ #endif /* MACOSX */
Tcl_PathType (*tcl_GetPathType) (CONST char * path); /* 168 */
int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString * dsPtr); /* 169 */
int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj * objPtr); /* 170 */
int (*tcl_GetServiceMode) (void); /* 171 */
Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp * interp, CONST char * slaveNa
me); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp * interp); /*
174 */
CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp * interp, CONST char *
varName, int flags); /* 175 */
CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp * interp, CONST char *
part1, CONST char * part2, int flags); /* 176 */
int (*tcl_GlobalEval) (Tcl_Interp * interp, CONST char * command); /* 1
77 */
int (*tcl_GlobalEvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 17
8 */
int (*tcl_HideCommand) (Tcl_Interp * interp, CONST char * cmdName, CONS
T char * hiddenCmdToken); /* 179 */
int (*tcl_Init) (Tcl_Interp * interp); /* 180 */
void (*tcl_InitHashTable) (Tcl_HashTable * tablePtr, int keyType); /* 1
81 */
int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
int (*tcl_InterpDeleted) (Tcl_Interp * interp); /* 184 */
int (*tcl_IsSafe) (Tcl_Interp * interp); /* 185 */
char * (*tcl_JoinPath) (int argc, CONST84 char * CONST * argv, Tcl_DStr
ing * resultPtr); /* 186 */
int (*tcl_LinkVar) (Tcl_Interp * interp, CONST char * varName, char * a
ddr, int type); /* 187 */
void *reserved188;
Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 18
9 */
int (*tcl_MakeSafe) (Tcl_Interp * interp); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191
*/
char * (*tcl_Merge) (int argc, CONST84 char * CONST * argv); /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch * searchPtr); /* 1
93 */
void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, T
cl_Obj * part2Ptr, int flags); /* 195 */
Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, T
cl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags); /* 196 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, C ONST84 char ** argv, int flags); /* 197 */
#endif /* UNIX */ #endif /* UNIX */
#if defined(__WIN32__) /* WIN */ #ifdef __WIN32__ /* WIN */
VOID *reserved10; Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, C
ONST84 char ** argv, int flags); /* 197 */
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, C ONST84 char ** argv, int flags); /* 197 */
#endif /* MACOSX */ #endif /* MACOSX */
void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 11 */ Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp * interp, CONST char * f
void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ ileName, CONST char * modeString, int permissions); /* 198 */
int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 13 */ Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp * interp, int port, CONST
int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj * char * address, CONST char * myaddr, int myport, int async); /* 199 */
objPtr)); /* 14 */ Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp * interp, int port, CONST
void (*tcl_AppendStringsToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, ...)); /* char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData); /* 2
15 */ 00 */
void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *bytes void (*tcl_Preserve) (ClientData data); /* 201 */
, int length)); /* 16 */ void (*tcl_PrintDouble) (Tcl_Interp * interp, double value, char * dst)
Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[] ; /* 202 */
)); /* 17 */ int (*tcl_PutEnv) (CONST char * assignment); /* 203 */
int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp * interp); /* 204 *
tr, Tcl_ObjType *typePtr)); /* 18 */ /
void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *fi void (*tcl_QueueEvent) (Tcl_Event * evPtr, Tcl_QueuePosition position);
le, int line)); /* 19 */ /* 205 */
void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *fi int (*tcl_Read) (Tcl_Channel chan, char * bufPtr, int toRead); /* 206 *
le, int line)); /* 20 */ /
int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *file, i
nt line)); /* 21 */
Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, CONST char
*file, int line)); /* 22 */
Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((CONST unsigned char *by
tes, int length, CONST char *file, int line)); /* 23 */
Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, CONST
char *file, int line)); /* 24 */
Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST *ob
jv, CONST char *file, int line)); /* 25 */
Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, CONST char *
file, int line)); /* 26 */
Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((CONST char *file, int line)); /*
27 */
Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char *bytes, int len
gth, CONST char *file, int line)); /* 28 */
Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 29 */
void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 30 */
int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src,
int *boolPtr)); /* 31 */
int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *
objPtr, int *boolPtr)); /* 32 */
unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr
, int *lengthPtr)); /* 33 */
int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src,
double *doublePtr)); /* 34 */
int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *o
bjPtr, double *doublePtr)); /* 35 */
int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *ob
jPtr, CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr));
/* 36 */
int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *src, int
*intPtr)); /* 37 */
int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP
tr, int *intPtr)); /* 38 */
int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj
Ptr, long *longPtr)); /* 39 */
Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char *typeName)); /*
40 */
char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int *lengt
hPtr)); /* 41 */
void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 42 *
/
int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *
listPtr, Tcl_Obj *elemListPtr)); /* 43 */
int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Ob
j *listPtr, Tcl_Obj *objPtr)); /* 44 */
int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj
*listPtr, int *objcPtr, Tcl_Obj ***objvPtr)); /* 45 */
int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *listP
tr, int index, Tcl_Obj **objPtrPtr)); /* 46 */
int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *list
Ptr, int *lengthPtr)); /* 47 */
int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *lis
tPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */
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_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51
*/
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_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */
Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */
Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char *bytes, int lengt
h)); /* 56 */
void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int boolValue))
; /* 57 */
unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj *objPtr,
int length)); /* 58 */
void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST unsigne
d char *bytes, int length)); /* 59 */
void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj *objPtr, double doubleVal
ue)); /* 60 */
void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int intValue)); /*
61 */
void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj *objPtr, int objc, Tcl_Obj
*CONST objv[])); /* 62 */
void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj *objPtr, long longValue));
/* 63 */
void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length)); /*
64 */
void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST char *byte
s, int length)); /* 65 */
void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *m
essage)); /* 66 */
void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
*message, int length)); /* 67 */
void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp *interp)); /* 68 */
void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
element)); /* 69 */
void (*tcl_AppendResult) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 70
*/
Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc *proc, C
lientData clientData)); /* 71 */
void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */
int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp *interp, int code)); /*
73 */
void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */
int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */
void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp *interp)); /* 76 */
char (*tcl_Backslash) _ANSI_ARGS_((CONST char *src, int *readPtr)); /*
77 */
int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
*optionName, CONST char *optionList)); /* 78 */
void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Interp
DeleteProc *proc, ClientData clientData)); /* 79 */
void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc *idleProc, ClientD
ata clientData)); /* 80 */
int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel chan)); /
* 81 */
int (*tcl_CommandComplete) _ANSI_ARGS_((CONST char *cmd)); /* 82 */
char * (*tcl_Concat) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv))
; /* 83 */
int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char *src, char *dst, int
flags)); /* 84 */
int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char *src, int leng
th, char *dst, int flags)); /* 85 */
int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp *slave, CONST char *slav
eCmd, Tcl_Interp *target, CONST char *targetCmd, int argc, CONST84 char *CO
NST *argv)); /* 86 */
int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp *slave, CONST char *s
laveCmd, Tcl_Interp *target, CONST char *targetCmd, int objc, Tcl_Obj *CONS
T objv[])); /* 87 */
Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType *typePtr,
CONST char *chanName, ClientData instanceData, int mask)); /* 88 */
void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mas
k, Tcl_ChannelProc *proc, ClientData clientData)); /* 89 */
void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close
Proc *proc, ClientData clientData)); /* 90 */
Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST
char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc
*deleteProc)); /* 91 */
void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc *setupPro
c, Tcl_EventCheckProc *checkProc, ClientData clientData)); /* 92 */
void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientDa
ta clientData)); /* 93 */
Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */
void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
*name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData
clientData)); /* 95 */
Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp *interp, CO
NST char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDele
teProc *deleteProc)); /* 96 */
Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp *interp, CONST
char *slaveName, int isSafe)); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds,
Tcl_TimerProc *proc, ClientData clientData)); /* 98 */
Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp *interp, int level
, Tcl_CmdTraceProc *proc, ClientData clientData)); /* 99 */
void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char
*name)); /* 100 */
void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Cha
nnelProc *proc, ClientData clientData)); /* 101 */
void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close
Proc *proc, ClientData clientData)); /* 102 */
int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *c
mdName)); /* 103 */
int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_
Command command)); /* 104 */
void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc *proc, Client
Data clientData)); /* 105 */
void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc *setupPro
c, Tcl_EventCheckProc *checkProc, ClientData clientData)); /* 106 */
void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, ClientDa
ta clientData)); /* 107 */
void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry *entryPtr)); /*
108 */
void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /*
109 */
void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp *interp)); /* 110 */
void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid *pidPtr)); /*
111 */
void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /*
112 */
void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Trace trac
e)); /* 113 */
void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_In
terpDeleteProc *proc, ClientData clientData)); /* 114 */
int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */
void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc *proc, ClientData clie
ntData)); /* 116 */
char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString *dsPtr, CONST char
*bytes, int length)); /* 117 */
char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString *dsPtr, CON
ST char *element)); /* 118 */
void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 119
*/
void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 120 */
void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DStri
ng *dsPtr)); /* 121 */
void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 122 */
void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString
*dsPtr)); /* 123 */
void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString *dsPtr, int lengt
h)); /* 124 */
void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString *dsPtr)); /* 1
25 */
int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */
CONST84_RETURN char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */
CONST84_RETURN char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */
int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script));
/* 129 */
int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *fileNa
me)); /* 130 */
int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr));
/* 131 */
void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_Free
Proc *freeProc)); /* 132 */
void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */
int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *h
iddenCmdToken, CONST char *cmdName)); /* 134 */
int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *exp
r, int *ptr)); /* 135 */
int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj
Ptr, int *ptr)); /* 136 */
int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr
, double *ptr)); /* 137 */
int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP
tr, double *ptr)); /* 138 */
int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr,
long *ptr)); /* 139 */
int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr
, long *ptr)); /* 140 */
int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, Tc
l_Obj **resultPtrPtr)); /* 141 */
int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *expr
)); /* 142 */
void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */
void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char *argv0)); /* 144 */
Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable *table
Ptr, Tcl_HashSearch *searchPtr)); /* 145 */
int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */
void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 147 */
int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *slaveC
md, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr
, CONST84 char ***argvPtr)); /* 148 */
int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *sla
veCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objc
Ptr, Tcl_Obj ***objv)); /* 149 */
ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST c
har *name, Tcl_InterpDeleteProc **procPtr)); /* 150 */
Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp *interp, CONST ch
ar *chanName, int *modePtr)); /* 151 */
int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152
*/
int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int directio
n, ClientData *handlePtr)); /* 153 */
ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan)
); /* 154 */
int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */
CONST84_RETURN char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel ch
an)); /* 156 */
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 */
int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
cmdName, Tcl_CmdInfo *infoPtr)); /* 159 */
CONST84_RETURN char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp *in
terp, Tcl_Command command)); /* 160 */
int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */
int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp *askInterp, Tcl_Interp
*slaveInterp)); /* 163 */
Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp *interp)); /* 164
*/
CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 166
*/
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cha nID, int forWriting, int checkUsage, ClientData *filePtr)); /* 167 */ void (*tcl_ReapDetachedProcs) (void); /* 207 */
#endif /* UNIX */ #endif /* UNIX */
#if defined(__WIN32__) /* WIN */ #ifdef __WIN32__ /* WIN */
VOID *reserved167; void (*tcl_ReapDetachedProcs) (void); /* 207 */
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cha nID, int forWriting, int checkUsage, ClientData *filePtr)); /* 167 */ void (*tcl_ReapDetachedProcs) (void); /* 207 */
#endif /* MACOSX */ #endif /* MACOSX */
Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char *path)); /* 168 int (*tcl_RecordAndEval) (Tcl_Interp * interp, CONST char * cmd, int fl
*/ ags); /* 208 */
int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString *dsPtr)); /* int (*tcl_RecordAndEvalObj) (Tcl_Interp * interp, Tcl_Obj * cmdPtr, int
169 */ flags); /* 209 */
int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj *objPtr)); /* void (*tcl_RegisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); /*
170 */ 210 */
int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ void (*tcl_RegisterObjType) (Tcl_ObjType * typePtr); /* 211 */
Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp * interp, CONST char * patt
r *slaveName)); /* 172 */ ern); /* 212 */
Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ int (*tcl_RegExpExec) (Tcl_Interp * interp, Tcl_RegExp regexp, CONST ch
CONST84_RETURN char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp *i ar * text, CONST char * start); /* 213 */
nterp)); /* 174 */ int (*tcl_RegExpMatch) (Tcl_Interp * interp, CONST char * text, CONST c
CONST84_RETURN char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp *interp, CO har * pattern); /* 214 */
NST char *varName, int flags)); /* 175 */ void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **
CONST84_RETURN char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp *interp, C startPtr, CONST84 char ** endPtr); /* 215 */
ONST char *part1, CONST char *part2, int flags)); /* 176 */ void (*tcl_Release) (ClientData clientData); /* 216 */
int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *comm void (*tcl_ResetResult) (Tcl_Interp * interp); /* 217 */
and)); /* 177 */ int (*tcl_ScanElement) (CONST char * str, int * flagPtr); /* 218 */
int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objP int (*tcl_ScanCountedElement) (CONST char * str, int length, int * flag
tr)); /* 178 */ Ptr); /* 219 */
int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *cmd int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
Name, CONST char *hiddenCmdToken)); /* 179 */ int (*tcl_ServiceAll) (void); /* 221 */
int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp *interp)); /* 180 */ int (*tcl_ServiceEvent) (int flags); /* 222 */
void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr, int key void (*tcl_SetAssocData) (Tcl_Interp * interp, CONST char * name, Tcl_I
Type)); /* 181 */ nterpDeleteProc * proc, ClientData clientData); /* 223 */
int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ int (*tcl_SetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, CON
int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp *interp)); /* 184 */ ST char * optionName, CONST char * newValue); /* 225 */
int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp *interp)); /* 185 */ int (*tcl_SetCommandInfo) (Tcl_Interp * interp, CONST char * cmdName, C
char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv ONST Tcl_CmdInfo * infoPtr); /* 226 */
, Tcl_DString *resultPtr)); /* 186 */ void (*tcl_SetErrno) (int err); /* 227 */
int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varName void (*tcl_SetErrorCode) (Tcl_Interp * interp, ...); /* 228 */
, char *addr, int type)); /* 187 */ void (*tcl_SetMaxBlockTime) (Tcl_Time * timePtr); /* 229 */
VOID *reserved188; void (*tcl_SetPanicProc) (Tcl_PanicProc * panicProc); /* 230 */
Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int int (*tcl_SetRecursionLimit) (Tcl_Interp * interp, int depth); /* 231 *
mode)); /* 189 */ /
int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp *interp)); /* 190 */ void (*tcl_SetResult) (Tcl_Interp * interp, char * result, Tcl_FreeProc
Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock * freeProc); /* 232 */
et)); /* 191 */ int (*tcl_SetServiceMode) (int mode); /* 233 */
char * (*tcl_Merge) _ANSI_ARGS_((int argc, CONST84 char *CONST *argv)); void (*tcl_SetObjErrorCode) (Tcl_Interp * interp, Tcl_Obj * errorObjPtr
/* 192 */ ); /* 234 */
Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch *searc void (*tcl_SetObjResult) (Tcl_Interp * interp, Tcl_Obj * resultObjPtr);
hPtr)); /* 193 */ /* 235 */
void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
/* 194 */ CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp * interp, CONST char *
Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *p varName, CONST char * newValue, int flags); /* 237 */
art1Ptr, Tcl_Obj *part2Ptr, int flags)); /* 195 */ CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp * interp, CONST char *
Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *p part1, CONST char * part2, CONST char * newValue, int flags); /* 238 */
art1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)); /* 196 */ CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp *interp, CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
int argc, CONST84 char **argv, int flags)); /* 197 */ void (*tcl_SourceRCFile) (Tcl_Interp * interp); /* 241 */
Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp *interp, CON int (*tcl_SplitList) (Tcl_Interp * interp, CONST char * listStr, int *
ST char *fileName, CONST char *modeString, int permissions)); /* 198 */ argcPtr, CONST84 char *** argvPtr); /* 242 */
Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp *interp, int p void (*tcl_SplitPath) (CONST char * path, int * argcPtr, CONST84 char *
ort, CONST char *address, CONST char *myaddr, int myport, int async)); /* 1 ** argvPtr); /* 243 */
99 */ void (*tcl_StaticPackage) (Tcl_Interp * interp, CONST char * pkgName, T
Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp *interp, int p cl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc); /* 244
ort, CONST char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackDa */
ta)); /* 200 */ int (*tcl_StringMatch) (CONST char * str, CONST char * pattern); /* 245
void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ */
void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp *interp, double value, int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
char *dst)); /* 202 */ int (*tcl_TraceVar) (Tcl_Interp * interp, CONST char * varName, int fla
int (*tcl_PutEnv) _ANSI_ARGS_((CONST char *assignment)); /* 203 */ gs, Tcl_VarTraceProc * proc, ClientData clientData); /* 247 */
CONST84_RETURN char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp *interp int (*tcl_TraceVar2) (Tcl_Interp * interp, CONST char * part1, CONST ch
)); /* 204 */ ar * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /*
void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event *evPtr, Tcl_QueuePosition 248 */
position)); /* 205 */ char * (*tcl_TranslateFileName) (Tcl_Interp * interp, CONST char * name
int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char *bufPtr, int toRead , Tcl_DString * bufferPtr); /* 249 */
)); /* 206 */ int (*tcl_Ungets) (Tcl_Channel chan, CONST char * str, int len, int atH
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ ead); /* 250 */
int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *c void (*tcl_UnlinkVar) (Tcl_Interp * interp, CONST char * varName); /* 2
md, int flags)); /* 208 */ 51 */
int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *c int (*tcl_UnregisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); /
mdPtr, int flags)); /* 209 */ * 252 */
void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channe int (*tcl_UnsetVar) (Tcl_Interp * interp, CONST char * varName, int fla
l chan)); /* 210 */ gs); /* 253 */
void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType *typePtr)); /* 211 int (*tcl_UnsetVar2) (Tcl_Interp * interp, CONST char * part1, CONST ch
*/ ar * part2, int flags); /* 254 */
Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp *interp, CONST void (*tcl_UntraceVar) (Tcl_Interp * interp, CONST char * varName, int
char *pattern)); /* 212 */ flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 255 */
int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_RegExp regex void (*tcl_UntraceVar2) (Tcl_Interp * interp, CONST char * part1, CONST
p, CONST char *text, CONST char *start)); /* 213 */ char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData);
int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *tex /* 256 */
t, CONST char *pattern)); /* 214 */ void (*tcl_UpdateLinkedVar) (Tcl_Interp * interp, CONST char * varName)
void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, CONS ; /* 257 */
T84 char **startPtr, CONST84 char **endPtr)); /* 215 */ int (*tcl_UpVar) (Tcl_Interp * interp, CONST char * frameName, CONST ch
void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ ar * varName, CONST char * localName, int flags); /* 258 */
void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp *interp)); /* 217 */ int (*tcl_UpVar2) (Tcl_Interp * interp, CONST char * frameName, CONST c
int (*tcl_ScanElement) _ANSI_ARGS_((CONST char *src, int *flagPtr)); /* har * part1, CONST char * part2, CONST char * localName, int flags); /* 259
218 */ */
int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char *src, int length, int (*tcl_VarEval) (Tcl_Interp * interp, ...); /* 260 */
int *flagPtr)); /* 219 */ ClientData (*tcl_VarTraceInfo) (Tcl_Interp * interp, CONST char * varNa
int (*tcl_SeekOld) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode) me, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 2
); /* 220 */ 61 */
int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ ClientData (*tcl_VarTraceInfo2) (Tcl_Interp * interp, CONST char * part
int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ 1, CONST char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData pr
void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *n evClientData); /* 262 */
ame, Tcl_InterpDeleteProc *proc, ClientData clientData)); /* 223 */ int (*tcl_Write) (Tcl_Channel chan, CONST char * s, int slen); /* 263 *
void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz) /
); /* 224 */ void (*tcl_WrongNumArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST
int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channe objv[], CONST char * message); /* 264 */
l chan, CONST char *optionName, CONST char *newValue)); /* 225 */ int (*tcl_DumpActiveMemory) (CONST char * fileName); /* 265 */
int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char * void (*tcl_ValidateAllMemory) (CONST char * file, int line); /* 266 */
cmdName, CONST Tcl_CmdInfo *infoPtr)); /* 226 */ void (*tcl_AppendResultVA) (Tcl_Interp * interp, va_list argList); /* 2
void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ 67 */
void (*tcl_SetErrorCode) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 228 void (*tcl_AppendStringsToObjVA) (Tcl_Obj * objPtr, va_list argList); /
*/ * 268 */
void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time *timePtr)); /* 229 */ CONST84_RETURN char * (*tcl_HashStats) (Tcl_HashTable * tablePtr); /* 2
void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc *panicProc)); /* 23 69 */
0 */ CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp * interp, CONST char
int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp *interp, int depth * start, CONST84 char ** termPtr); /* 270 */
)); /* 231 */ CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp * interp, CONST cha
void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp *interp, char *result, Tc r * name, CONST char * version, int exact); /* 271 */
l_FreeProc *freeProc)); /* 232 */ CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp * interp, CONST c
int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ har * name, CONST char * version, int exact, ClientData * clientDataPtr); /
void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *e * 272 */
rrorObjPtr)); /* 234 */ int (*tcl_PkgProvide) (Tcl_Interp * interp, CONST char * name, CONST ch
void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *resu ar * version); /* 273 */
ltObjPtr)); /* 235 */ CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp * interp, CONST cha
void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); r * name, CONST char * version, int exact); /* 274 */
/* 236 */ void (*tcl_SetErrorCodeVA) (Tcl_Interp * interp, va_list argList); /* 2
CONST84_RETURN char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp *interp, CO 75 */
NST char *varName, CONST char *newValue, int flags)); /* 237 */ int (*tcl_VarEvalVA) (Tcl_Interp * interp, va_list argList); /* 276 */
CONST84_RETURN char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp *interp, C Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int * statPtr, int options); /* 27
ONST char *part1, CONST char *part2, CONST char *newValue, int flags)); /* 7 */
238 */ void (*tcl_PanicVA) (CONST char * format, va_list argList); /* 278 */
CONST84_RETURN char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ void (*tcl_GetVersion) (int * major, int * minor, int * patchLevel, int
CONST84_RETURN char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 * * type); /* 279 */
/ void (*tcl_InitMemory) (Tcl_Interp * interp); /* 280 */
void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp *interp)); /* 241 */ Tcl_Channel (*tcl_StackChannel) (Tcl_Interp * interp, Tcl_ChannelType *
int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *listS typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281
tr, int *argcPtr, CONST84 char ***argvPtr)); /* 242 */ */
void (*tcl_SplitPath) _ANSI_ARGS_((CONST char *path, int *argcPtr, CONS int (*tcl_UnstackChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 2
T84 char ***argvPtr)); /* 243 */ 82 */
void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp *interp, CONST char * Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc)) void (*tcl_SetMainLoop) (Tcl_MainLoopProc * proc); /* 284 */
; /* 244 */ void *reserved285;
int (*tcl_StringMatch) _ANSI_ARGS_((CONST char *str, CONST char *patter void (*tcl_AppendObjToObj) (Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr);
n)); /* 245 */ /* 286 */
int (*tcl_TellOld) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType * typePtr);
int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varNam /* 287 */
e, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 247 */ void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc * proc, ClientData cl
int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1 ientData); /* 288 */
, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientDa void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc * proc, ClientData cl
ta)); /* 248 */ ientData); /* 289 */
char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp *interp, CONST void (*tcl_DiscardResult) (Tcl_SavedResult * statePtr); /* 290 */
char *name, Tcl_DString *bufferPtr)); /* 249 */ int (*tcl_EvalEx) (Tcl_Interp * interp, CONST char * script, int numByt
int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, CONST char *str, int l es, int flags); /* 291 */
en, int atHead)); /* 250 */ int (*tcl_EvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv
void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varN [], int flags); /* 292 */
ame)); /* 251 */ int (*tcl_EvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)
int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Chann ; /* 293 */
el chan)); /* 252 */ void (*tcl_ExitThread) (int status); /* 294 */
int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *varNam int (*tcl_ExternalToUtf) (Tcl_Interp * interp, Tcl_Encoding encoding, C
e, int flags)); /* 253 */ ONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char
int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *part1 * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr);
, CONST char *part2, int flags)); /* 254 */ /* 295 */
void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *var char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char *
Name, int flags, Tcl_VarTraceProc *proc, ClientData clientData)); /* 255 */ src, int srcLen, Tcl_DString * dsPtr); /* 296 */
void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *pa void (*tcl_FinalizeThread) (void); /* 297 */
rt1, CONST char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clien void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
tData)); /* 256 */ void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
*varName)); /* 257 */ Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp * interp, CONST char * name
int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *frameName ); /* 301 */
, CONST char *varName, CONST char *localName, int flags)); /* 258 */ CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /
int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *frameNam * 302 */
e, CONST char *part1, CONST char *part2, CONST char *localName, int flags)) void (*tcl_GetEncodingNames) (Tcl_Interp * interp); /* 303 */
; /* 259 */ int (*tcl_GetIndexFromObjStruct) (Tcl_Interp * interp, Tcl_Obj * objPtr
int (*tcl_VarEval) _ANSI_ARGS_((Tcl_Interp *interp, ...)); /* 260 */ , CONST VOID * tablePtr, int offset, CONST char * msg, int flags, int * ind
ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST c exPtr); /* 304 */
har *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientDa VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey * keyPtr, int size); /*
ta)); /* 261 */ 305 */
ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp *interp, CONST Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp * interp, CONST char * part1, CO
char *part1, CONST char *part2, int flags, Tcl_VarTraceProc *procPtr, Clien NST char * part2, int flags); /* 306 */
tData prevClientData)); /* 262 */ ClientData (*tcl_InitNotifier) (void); /* 307 */
int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, CONST char *s, int slen void (*tcl_MutexLock) (Tcl_Mutex * mutexPtr); /* 308 */
)); /* 263 */ void (*tcl_MutexUnlock) (Tcl_Mutex * mutexPtr); /* 309 */
void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl void (*tcl_ConditionNotify) (Tcl_Condition * condPtr); /* 310 */
_Obj *CONST objv[], CONST char *message)); /* 264 */ void (*tcl_ConditionWait) (Tcl_Condition * condPtr, Tcl_Mutex * mutexPt
int (*tcl_DumpActiveMemory) _ANSI_ARGS_((CONST char *fileName)); /* 265 r, Tcl_Time * timePtr); /* 311 */
*/ int (*tcl_NumUtfChars) (CONST char * src, int length); /* 312 */
void (*tcl_ValidateAllMemory) _ANSI_ARGS_((CONST char *file, int line)) int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj * objPtr, int charsT
; /* 266 */ oRead, int appendFlag); /* 313 */
void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list arg void (*tcl_RestoreResult) (Tcl_Interp * interp, Tcl_SavedResult * state
List)); /* 267 */ Ptr); /* 314 */
void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj *objPtr, va_list void (*tcl_SaveResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr
argList)); /* 268 */ ); /* 315 */
char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /* 269 int (*tcl_SetSystemEncoding) (Tcl_Interp * interp, CONST char * name);
*/ /* 316 */
CONST84_RETURN char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp * interp, CONST char * part1, CO
CONST char *start, CONST84 char **termPtr)); /* 270 */ NST char * part2, Tcl_Obj * newValuePtr, int flags); /* 317 */
CONST84_RETURN char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp *interp void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
, CONST char *name, CONST char *version, int exact)); /* 271 */ void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event* evPtr,
CONST84_RETURN char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp *inte Tcl_QueuePosition position); /* 319 */
rp, CONST char *name, CONST char *version, int exact, ClientData *clientDat Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char * src, int index); /* 320
aPtr)); /* 272 */ */
int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
, CONST char *version)); /* 273 */ Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
CONST84_RETURN char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp *interp Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
, CONST char *name, CONST char *version, int exact)); /* 274 */ int (*tcl_UniCharToUtf) (int ch, char * buf); /* 324 */
void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list arg CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char * src, int index);
List)); /* 275 */ /* 325 */
int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp *interp, va_list argList)) int (*tcl_UtfCharComplete) (CONST char * src, int length); /* 326 */
; /* 276 */ int (*tcl_UtfBackslash) (CONST char * src, int * readPtr, char * dst);
Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int *statPtr, int opti /* 327 */
ons)); /* 277 */ CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char * src, int ch); /
void (*tcl_PanicVA) _ANSI_ARGS_((CONST char *format, va_list argList)); * 328 */
/* 278 */ CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char * src, int ch); /*
void (*tcl_GetVersion) _ANSI_ARGS_((int *major, int *minor, int *patchL 329 */
evel, int *type)); /* 279 */ CONST84_RETURN char * (*tcl_UtfNext) (CONST char * src); /* 330 */
void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp *interp)); /* 280 */ CONST84_RETURN char * (*tcl_UtfPrev) (CONST char * src, CONST char * st
Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Ch art); /* 331 */
annelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan int (*tcl_UtfToExternal) (Tcl_Interp * interp, Tcl_Encoding encoding, C
)); /* 281 */ ONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char
int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr);
chan)); /* 282 */ /* 332 */
Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char *
* 283 */ src, int srcLen, Tcl_DString * dsPtr); /* 333 */
void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc *proc)); /* 284 * int (*tcl_UtfToLower) (char * src); /* 334 */
/ int (*tcl_UtfToTitle) (char * src); /* 335 */
VOID *reserved285; int (*tcl_UtfToUniChar) (CONST char * src, Tcl_UniChar * chPtr); /* 336
void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, Tcl_Obj *appen */
dObjPtr)); /* 286 */ int (*tcl_UtfToUpper) (char * src); /* 337 */
Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType *typeP int (*tcl_WriteChars) (Tcl_Channel chan, CONST char * src, int srcLen);
tr)); /* 287 */ /* 338 */
void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, Cl int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj * objPtr); /* 339 */
ientData clientData)); /* 288 */ char * (*tcl_GetString) (Tcl_Obj * objPtr); /* 340 */
void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc *proc, Cl CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
ientData clientData)); /* 289 */ void (*tcl_SetDefaultEncodingDir) (CONST char * path); /* 342 */
void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult *statePtr)); /* void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
290 */ void (*tcl_ServiceModeHook) (int mode); /* 344 */
int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *script, int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
int numBytes, int flags)); /* 291 */ int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj int (*tcl_UniCharIsDigit) (int ch); /* 347 */
*CONST objv[], int flags)); /* 292 */ int (*tcl_UniCharIsLower) (int ch); /* 348 */
int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int (*tcl_UniCharIsSpace) (int ch); /* 349 */
int flags)); /* 293 */ int (*tcl_UniCharIsUpper) (int ch); /* 350 */
void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Encoding int (*tcl_UniCharLen) (CONST Tcl_UniChar * uniStr); /* 352 */
encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *stateP int (*tcl_UniCharNcmp) (CONST Tcl_UniChar * ucs, CONST Tcl_UniChar * uc
tr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstChars t, unsigned long numChars); /* 353 */
Ptr)); /* 295 */ char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar * uniStr, int uniL
char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, ength, Tcl_DString * dsPtr); /* 354 */
CONST char *src, int srcLen, Tcl_DString *dsPtr)); /* 296 */ Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char * src, int length,
void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */ Tcl_DString * dsPtr); /* 355 */
void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 2 Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp * interp, Tcl_Obj * patO
98 */ bj, int flags); /* 356 */
void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 * Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp * interp, Tcl_Token * tokenPtr,
/ int count); /* 357 */
Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */ void (*tcl_FreeParse) (Tcl_Parse * parsePtr); /* 358 */
Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp *interp, CONST void (*tcl_LogCommandInfo) (Tcl_Interp * interp, CONST char * script, C
char *name)); /* 301 */ ONST char * command, int length); /* 359 */
CONST84_RETURN char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding int (*tcl_ParseBraces) (Tcl_Interp * interp, CONST char * start, int nu
encoding)); /* 302 */ mBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 360
void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp *interp)); /* 303 */
*/ int (*tcl_ParseCommand) (Tcl_Interp * interp, CONST char * start, int n
int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_O umBytes, int nested, Tcl_Parse * parsePtr); /* 361 */
bj *objPtr, CONST VOID *tablePtr, int offset, CONST char *msg, int flags, i int (*tcl_ParseExpr) (Tcl_Interp * interp, CONST char * start, int numB
nt *indexPtr)); /* 304 */ ytes, Tcl_Parse * parsePtr); /* 362 */
VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr, int int (*tcl_ParseQuotedString) (Tcl_Interp * interp, CONST char * start,
size)); /* 305 */ int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /
Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp *interp, CONST char * 363 */
*part1, CONST char *part2, int flags)); /* 306 */ int (*tcl_ParseVarName) (Tcl_Interp * interp, CONST char * start, int n
ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */ umBytes, Tcl_Parse * parsePtr, int append); /* 364 */
void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); /* 308 */ char * (*tcl_GetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); /* 36
void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); /* 309 */ 5 */
void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition *condPtr)); /* 3 int (*tcl_Chdir) (CONST char * dirName); /* 366 */
10 */ int (*tcl_Access) (CONST char * path, int mode); /* 367 */
void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition *condPtr, Tcl_Mute int (*tcl_Stat) (CONST char * path, struct stat * bufPtr); /* 368 */
x *mutexPtr, Tcl_Time *timePtr)); /* 311 */ int (*tcl_UtfNcmp) (CONST char * s1, CONST char * s2, unsigned long n);
int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char *src, int length)); /* 3 /* 369 */
12 */ int (*tcl_UtfNcasecmp) (CONST char * s1, CONST char * s2, unsigned long
int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj *objPtr, n); /* 370 */
int charsToRead, int appendFlag)); /* 313 */ int (*tcl_StringCaseMatch) (CONST char * str, CONST char * pattern, int
void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_SavedRes nocase); /* 371 */
ult *statePtr)); /* 314 */ int (*tcl_UniCharIsControl) (int ch); /* 372 */
void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_SavedResult int (*tcl_UniCharIsGraph) (int ch); /* 373 */
*statePtr)); /* 315 */ int (*tcl_UniCharIsPrint) (int ch); /* 374 */
int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha int (*tcl_UniCharIsPunct) (int ch); /* 375 */
r *name)); /* 316 */ int (*tcl_RegExpExecObj) (Tcl_Interp * interp, Tcl_RegExp regexp, Tcl_O
Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp *interp, CONST char bj * textObj, int offset, int nmatches, int flags); /* 376 */
*part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags)); /* 317 */ void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo * infoPtr)
void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */ ; /* 377 */
void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Ev Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar * unicode, int numCha
ent *evPtr, Tcl_QueuePosition position)); /* 319 */ rs); /* 378 */
Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char *src, int ind void (*tcl_SetUnicodeObj) (Tcl_Obj * objPtr, CONST Tcl_UniChar * unicod
ex)); /* 320 */ e, int numChars); /* 379 */
Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */ int (*tcl_GetCharLength) (Tcl_Obj * objPtr); /* 380 */
Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */ Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj * objPtr, int index); /* 381 */
Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */ Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj * objPtr); /* 382 */
int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char *buf)); /* 324 */ Tcl_Obj * (*tcl_GetRange) (Tcl_Obj * objPtr, int first, int last); /* 3
CONST84_RETURN char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char *src, i 83 */
nt index)); /* 325 */ void (*tcl_AppendUnicodeToObj) (Tcl_Obj * objPtr, CONST Tcl_UniChar * u
int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char *src, int length)); nicode, int length); /* 384 */
/* 326 */ int (*tcl_RegExpMatchObj) (Tcl_Interp * interp, Tcl_Obj * textObj, Tcl_
int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char *src, int *readPtr, cha Obj * patternObj); /* 385 */
r *dst)); /* 327 */ void (*tcl_SetNotifier) (Tcl_NotifierProcs * notifierProcPtr); /* 386 *
CONST84_RETURN char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char *src, /
int ch)); /* 328 */ Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
CONST84_RETURN char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char *src, int (*tcl_GetChannelNames) (Tcl_Interp * interp); /* 388 */
int ch)); /* 329 */ int (*tcl_GetChannelNamesEx) (Tcl_Interp * interp, CONST char * pattern
CONST84_RETURN char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char *src)); /* ); /* 389 */
330 */ int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp * interp, int
CONST84_RETURN char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char *src, CONS objc, Tcl_Obj *CONST objv[]); /* 390 */
T char *start)); /* 331 */ void (*tcl_ConditionFinalize) (Tcl_Condition * condPtr); /* 391 */
int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Encoding void (*tcl_MutexFinalize) (Tcl_Mutex * mutex); /* 392 */
encoding, CONST char *src, int srcLen, int flags, Tcl_EncodingState *stateP int (*tcl_CreateThread) (Tcl_ThreadId * idPtr, Tcl_ThreadCreateProc pro
tr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstChars c, ClientData clientData, int stackSize, int flags); /* 393 */
Ptr)); /* 332 */ int (*tcl_ReadRaw) (Tcl_Channel chan, char * dst, int bytesToRead); /*
char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, 394 */
CONST char *src, int srcLen, Tcl_DString *dsPtr)); /* 333 */ int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char * src, int srcLen); /
int (*tcl_UtfToLower) _ANSI_ARGS_((char *src)); /* 334 */ * 395 */
int (*tcl_UtfToTitle) _ANSI_ARGS_((char *src)); /* 335 */ Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char *src, Tcl_UniChar *chPt int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
r)); /* 336 */ CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType * chanT
int (*tcl_UtfToUpper) _ANSI_ARGS_((char *src)); /* 337 */ ypePtr); /* 398 */
int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char *src, i Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType * c
nt srcLen)); /* 338 */ hanTypePtr); /* 399 */
int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj *objPtr)); / Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_Channe
* 339 */ lType * chanTypePtr); /* 400 */
char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 340 */ Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType *
CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); chanTypePtr); /* 401 */
/* 341 */ Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType
void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((CONST char *path)); /* 3 * chanTypePtr); /* 402 */
42 */ Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType *
void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 chanTypePtr); /* 403 */
*/ Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType
void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ * chanTypePtr); /* 404 */
int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType * ch
int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ anTypePtr); /* 405 */
int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_Channe
int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ lType * chanTypePtr); /* 406 */
int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_Channe
int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ lType * chanTypePtr); /* 407 */
int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType *
int (*tcl_UniCharLen) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr)); /* 352 chanTypePtr); /* 408 */
*/ Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_Channe
int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar *ucs, CONST Tcl_U lType * chanTypePtr); /* 409 */
niChar *uct, unsigned long numChars)); /* 353 */ Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType *
char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar *uniSt chanTypePtr); /* 410 */
r, int uniLength, Tcl_DString *dsPtr)); /* 354 */ Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelTyp
Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char *src, e * chanTypePtr); /* 411 */
int length, Tcl_DString *dsPtr)); /* 355 */ int (*tcl_JoinThread) (Tcl_ThreadId threadId, int* result); /* 412 */
Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
_Obj *patObj, int flags)); /* 356 */ int (*tcl_IsChannelRegistered) (Tcl_Interp* interp, Tcl_Channel channel
Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Token ); /* 414 */
*tokenPtr, int count)); /* 357 */ void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse *parsePtr)); /* 358 */ void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
*script, CONST char *command, int length)); /* 359 */ int (*tcl_IsChannelExisting) (CONST char* channelName); /* 418 */
int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *sta int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar * ucs, CONST Tcl_UniChar
rt, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr)) * uct, unsigned long numChars); /* 419 */
; /* 360 */ int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar * uniStr, CONST Tcl_UniC
int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *st har * uniPattern, int nocase); /* 420 */
art, int numBytes, int nested, Tcl_Parse *parsePtr)); /* 361 */ Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, CONST c
int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *start har * key); /* 421 */
, int numBytes, Tcl_Parse *parsePtr)); /* 362 */ Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable * tablePtr, CONST
int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha char * key, int * newPtr); /* 422 */
r *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **ter void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType,
mPtr)); /* 363 */ Tcl_HashKeyType * typePtr); /* 423 */
int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *st void (*tcl_InitObjHashTable) (Tcl_HashTable * tablePtr); /* 424 */
art, int numBytes, Tcl_Parse *parsePtr, int append)); /* 364 */ ClientData (*tcl_CommandTraceInfo) (Tcl_Interp * interp, CONST char * v
char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_DString *cwdP arName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientDat
tr)); /* 365 */ a); /* 425 */
int (*tcl_Chdir) _ANSI_ARGS_((CONST char *dirName)); /* 366 */ int (*tcl_TraceCommand) (Tcl_Interp * interp, CONST char * varName, int
int (*tcl_Access) _ANSI_ARGS_((CONST char *path, int mode)); /* 367 */ flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 426 */
int (*tcl_Stat) _ANSI_ARGS_((CONST char *path, struct stat *bufPtr)); / void (*tcl_UntraceCommand) (Tcl_Interp * interp, CONST char * varName,
* 368 */ int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 427 */
int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char *s1, CONST char *s2, unsigne char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
d long n)); /* 369 */ char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char * file, i
int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char *s1, CONST char *s2, uns nt line); /* 429 */
igned long n)); /* 370 */ char * (*tcl_AttemptRealloc) (char * ptr, unsigned int size); /* 430 */
int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char *str, CONST char *pa char * (*tcl_AttemptDbCkrealloc) (char * ptr, unsigned int size, CONST
ttern, int nocase)); /* 371 */ char * file, int line); /* 431 */
int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */ int (*tcl_AttemptSetObjLength) (Tcl_Obj * objPtr, int length); /* 432 *
int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */ /
int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */ Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */ Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj * objPtr, int * lengthP
int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_RegExp re tr); /* 434 */
gexp, Tcl_Obj *textObj, int offset, int nmatches, int flags)); /* 376 */ int (*tcl_GetMathFuncInfo) (Tcl_Interp * interp, CONST char * name, int
void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInf * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, Clien
o *infoPtr)); /* 377 */ tData * clientDataPtr); /* 435 */
Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((CONST Tcl_UniChar *unicode, Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp * interp, CONST char * patte
int numChars)); /* 378 */ rn); /* 436 */
void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST Tcl_UniCh Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int f
ar *unicode, int numChars)); /* 379 */ lags); /* 437 */
int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 380 */ int (*tcl_DetachChannel) (Tcl_Interp* interp, Tcl_Channel channel); /*
Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj *objPtr, int index)) 438 */
; /* 381 */ int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj *objPtr)); /* 382 int (*tcl_FSCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /*
*/ 440 */
Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj *objPtr, int first, int int (*tcl_FSCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr
last)); /* 383 */ , Tcl_Obj ** errorPtr); /* 441 */
void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj *objPtr, CONST Tcl_ int (*tcl_FSCreateDirectory) (Tcl_Obj * pathPtr); /* 442 */
UniChar *unicode, int length)); /* 384 */ int (*tcl_FSDeleteFile) (Tcl_Obj * pathPtr); /* 443 */
int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *tex int (*tcl_FSLoadFile) (Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST ch
tObj, Tcl_Obj *patternObj)); /* 385 */ ar * sym1, CONST char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageI
void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs *notifierProcPtr nitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** un
)); /* 386 */ loadProcPtr); /* 444 */
Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */ int (*tcl_FSMatchInDirectory) (Tcl_Interp * interp, Tcl_Obj * result, T
int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp *interp)); /* 388 */ cl_Obj * pathPtr, CONST char * pattern, Tcl_GlobTypeData * types); /* 445 *
int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp *interp, CONST cha /
r *pattern)); /* 389 */ Tcl_Obj * (*tcl_FSLink) (Tcl_Obj * pathPtr, Tcl_Obj * toPtr, int linkAc
int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *i tion); /* 446 */
nterp, int objc, Tcl_Obj *CONST objv[])); /* 390 */ int (*tcl_FSRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj
void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition *condPtr)); /* ** errorPtr); /* 447 */
391 */ int (*tcl_FSRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr);
void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex *mutex)); /* 392 */ /* 448 */
int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId *idPtr, Tcl_ThreadCre int (*tcl_FSLstat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 449 */
ateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */ int (*tcl_FSUtime) (Tcl_Obj * pathPtr, struct utimbuf * tval); /* 450 *
int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char *dst, int bytesT /
oRead)); /* 394 */ int (*tcl_FSFileAttrsGet) (Tcl_Interp * interp, int index, Tcl_Obj * pa
int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, CONST char *src, int thPtr, Tcl_Obj ** objPtrRef); /* 451 */
srcLen)); /* 395 */ int (*tcl_FSFileAttrsSet) (Tcl_Interp * interp, int index, Tcl_Obj * pa
Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 39 thPtr, Tcl_Obj * objPtr); /* 452 */
6 */ CONST char ** (*tcl_FSFileAttrStrings) (Tcl_Obj * pathPtr, Tcl_Obj ** o
int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */ bjPtrRef); /* 453 */
CONST84_RETURN char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType * int (*tcl_FSStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 454 */
chanTypePtr)); /* 398 */ int (*tcl_FSAccess) (Tcl_Obj * pathPtr, int mode); /* 455 */
Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelTy Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pa
pe *chanTypePtr)); /* 399 */ thPtr, CONST char * modeString, int permissions); /* 456 */
Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_ Tcl_Obj* (*tcl_FSGetCwd) (Tcl_Interp * interp); /* 457 */
ChannelType *chanTypePtr)); /* 400 */ int (*tcl_FSChdir) (Tcl_Obj * pathPtr); /* 458 */
Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelT int (*tcl_FSConvertToPathType) (Tcl_Interp * interp, Tcl_Obj * pathPtr)
ype *chanTypePtr)); /* 401 */ ; /* 459 */
Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe Tcl_Obj* (*tcl_FSJoinPath) (Tcl_Obj * listObj, int elements); /* 460 */
lType *chanTypePtr)); /* 402 */ Tcl_Obj* (*tcl_FSSplitPath) (Tcl_Obj* pathPtr, int * lenPtr); /* 461 */
Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT int (*tcl_FSEqualPaths) (Tcl_Obj* firstPtr, Tcl_Obj* secondPtr); /* 462
ype *chanTypePtr)); /* 403 */ */
Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe Tcl_Obj* (*tcl_FSGetNormalizedPath) (Tcl_Interp * interp, Tcl_Obj* path
lType *chanTypePtr)); /* 404 */ Ptr); /* 463 */
Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp Tcl_Obj* (*tcl_FSJoinToPath) (Tcl_Obj * pathPtr, int objc, Tcl_Obj *CON
e *chanTypePtr)); /* 405 */ ST objv[]); /* 464 */
Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ ClientData (*tcl_FSGetInternalRep) (Tcl_Obj* pathPtr, Tcl_Filesystem *
ChannelType *chanTypePtr)); /* 406 */ fsPtr); /* 465 */
Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ Tcl_Obj* (*tcl_FSGetTranslatedPath) (Tcl_Interp * interp, Tcl_Obj* path
ChannelType *chanTypePtr)); /* 407 */ Ptr); /* 466 */
Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT int (*tcl_FSEvalFile) (Tcl_Interp * interp, Tcl_Obj * fileName); /* 467
ype *chanTypePtr)); /* 408 */ */
Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ Tcl_Obj* (*tcl_FSNewNativePath) (Tcl_Filesystem* fromFilesystem, Client
ChannelType *chanTypePtr)); /* 409 */ Data clientData); /* 468 */
Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT CONST char* (*tcl_FSGetNativePath) (Tcl_Obj* pathPtr); /* 469 */
ype *chanTypePtr)); /* 410 */ Tcl_Obj* (*tcl_FSFileSystemInfo) (Tcl_Obj* pathPtr); /* 470 */
Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan Tcl_Obj* (*tcl_FSPathSeparator) (Tcl_Obj* pathPtr); /* 471 */
nelType *chanTypePtr)); /* 411 */ Tcl_Obj* (*tcl_FSListVolumes) (void); /* 472 */
int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId threadId, int *result)) int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem * fsPtr);
; /* 412 */ /* 473 */
int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 * int (*tcl_FSUnregister) (Tcl_Filesystem * fsPtr); /* 474 */
/ ClientData (*tcl_FSData) (Tcl_Filesystem * fsPtr); /* 475 */
int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Cha CONST char* (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_
nnel channel)); /* 414 */ Obj* pathPtr); /* 476 */
void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */ Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) (Tcl_Obj* pathPtr); /* 47
void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */ 7 */
void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj * pathPtr); /* 478 */
417 */ int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char *channelName)); /* void (*tcl_FSMountsChanged) (Tcl_Filesystem * fsPtr); /* 480 */
418 */ int (*tcl_EvalTokensStandard) (Tcl_Interp * interp, Tcl_Token * tokenPt
int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar *ucs, CONST T r, int count); /* 481 */
cl_UniChar *uct, unsigned long numChars)); /* 419 */ void (*tcl_GetTime) (Tcl_Time* timeBuf); /* 482 */
int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar *uniStr, CON Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp* interp, int level, int fla
ST Tcl_UniChar *uniPattern, int nocase)); /* 420 */ gs, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDel
Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable *tableP eteProc* delProc); /* 483 */
tr, CONST char *key)); /* 421 */ int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo* inf
Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable *tabl oPtr); /* 484 */
ePtr, CONST char *key, int *newPtr)); /* 422 */ int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInf
void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr, i o* infoPtr); /* 485 */
nt keyType, Tcl_HashKeyType *typePtr)); /* 423 */ Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char * f
void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable *tablePtr)); /* ile, int line); /* 486 */
424 */ int (*tcl_GetWideIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tc
ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp *interp, CON l_WideInt * widePtr); /* 487 */
ST char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prev Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
ClientData)); /* 425 */ void (*tcl_SetWideIntObj) (Tcl_Obj * objPtr, Tcl_WideInt wideValue); /*
int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *va 489 */
rName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData)); /* 4 Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
26 */ Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode
void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char ); /* 491 */
*varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData)); / Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
* 427 */ Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelT
char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */ ype * chanTypePtr); /* 493 */
char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST ch int (*tcl_DictObjPut) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj
ar *file, int line)); /* 429 */ * keyPtr, Tcl_Obj * valuePtr); /* 494 */
char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char *ptr, unsigned int size) int (*tcl_DictObjGet) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj
); /* 430 */ * keyPtr, Tcl_Obj ** valuePtrPtr); /* 495 */
char * (*tcl_AttemptDbCkrealloc) _ANSI_ARGS_((char *ptr, unsigned int s int (*tcl_DictObjRemove) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_O
ize, CONST char *file, int line)); /* 431 */ bj * keyPtr); /* 496 */
int (*tcl_AttemptSetObjLength) _ANSI_ARGS_((Tcl_Obj *objPtr, int length int (*tcl_DictObjSize) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int * s
)); /* 432 */ izePtr); /* 497 */
Tcl_ThreadId (*tcl_GetChannelThread) _ANSI_ARGS_((Tcl_Channel channel)) int (*tcl_DictObjFirst) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Di
; /* 433 */ ctSearch * searchPtr, Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, int * d
Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj *objPtr, in onePtr); /* 498 */
t *lengthPtr)); /* 434 */ void (*tcl_DictObjNext) (Tcl_DictSearch * searchPtr, Tcl_Obj ** keyPtrP
int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp *interp, CONST char tr, Tcl_Obj ** valuePtrPtr, int * donePtr); /* 499 */
*name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr void (*tcl_DictObjDone) (Tcl_DictSearch * searchPtr); /* 500 */
, ClientData *clientDataPtr)); /* 435 */ int (*tcl_DictObjPutKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, i
Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp *interp, CONST c nt keyc, Tcl_Obj *CONST * keyv, Tcl_Obj * valuePtr); /* 501 */
har *pattern)); /* 436 */ int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr
Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj , int keyc, Tcl_Obj *CONST * keyv); /* 502 */
Ptr, int flags)); /* 437 */ Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
int (*tcl_DetachChannel) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Channel c Tcl_Obj * (*tcl_DbNewDictObj) (CONST char * file, int line); /* 504 */
hannel)); /* 438 */ void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, Tc
int (*tcl_IsStandardChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 439 l_Config* configuration, CONST char* valEncoding); /* 505 */
*/ Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char
int (*tcl_FSCopyFile) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *destPa * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 5
thPtr)); /* 440 */ 06 */
int (*tcl_FSCopyDirectory) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *d void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 507 */
estPathPtr, Tcl_Obj **errorPtr)); /* 441 */ int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr
int (*tcl_FSCreateDirectory) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 442 */ , Tcl_Obj * objPtr); /* 508 */
int (*tcl_FSDeleteFile) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 443 */ int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST ch
int (*tcl_FSLoadFile) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr ar * pattern, int resetListFirst); /* 509 */
, CONST char *sym1, CONST char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_P int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST ch
ackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc ar * pattern, int allowOverwrite); /* 510 */
**unloadProcPtr)); /* 444 */ int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CO
int (*tcl_FSMatchInDirectory) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj NST char * pattern); /* 511 */
*result, Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types)); Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); /* 51
/* 445 */ 2 */
Tcl_Obj * (*tcl_FSLink) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_Obj *toPtr, Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); /* 513
int linkAction)); /* 446 */ */
int (*tcl_FSRemoveDirectory) _ANSI_ARGS_((Tcl_Obj *pathPtr, int recursi Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, CONST char *
ve, Tcl_Obj **errorPtr)); /* 447 */ name, Tcl_Namespace * contextNsPtr, int flags); /* 514 */
int (*tcl_FSRenameFile) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, Tcl_Obj *dest Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, CONST char * name,
PathPtr)); /* 448 */ Tcl_Namespace * contextNsPtr, int flags); /* 515 */
int (*tcl_FSLstat) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); / Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * ob
* 449 */ jPtr); /* 516 */
int (*tcl_FSUtime) _ANSI_ARGS_((Tcl_Obj *pathPtr, struct utimbuf *tval) void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command comman
); /* 450 */ d, Tcl_Obj * objPtr); /* 517 */
int (*tcl_FSFileAttrsGet) _ANSI_ARGS_((Tcl_Interp *interp, int index, T int (*tcl_FSEvalFileEx) (Tcl_Interp * interp, Tcl_Obj * fileName, CONST
cl_Obj *pathPtr, Tcl_Obj **objPtrRef)); /* 451 */ char * encodingName); /* 518 */
int (*tcl_FSFileAttrsSet) _ANSI_ARGS_((Tcl_Interp *interp, int index, T Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc * proc); /* 519 */
cl_Obj *pathPtr, Tcl_Obj *objPtr)); /* 452 */ void (*tcl_LimitAddHandler) (Tcl_Interp * interp, int type, Tcl_LimitHa
CONST char ** (*tcl_FSFileAttrStrings) _ANSI_ARGS_((Tcl_Obj *pathPtr, T ndlerProc * handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc
cl_Obj **objPtrRef)); /* 453 */ * deleteProc); /* 520 */
int (*tcl_FSStat) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); /* void (*tcl_LimitRemoveHandler) (Tcl_Interp * interp, int type, Tcl_Limi
454 */ tHandlerProc * handlerProc, ClientData clientData); /* 521 */
int (*tcl_FSAccess) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); /* 455 * int (*tcl_LimitReady) (Tcl_Interp * interp); /* 522 */
/ int (*tcl_LimitCheck) (Tcl_Interp * interp); /* 523 */
Tcl_Channel (*tcl_FSOpenFileChannel) _ANSI_ARGS_((Tcl_Interp *interp, T int (*tcl_LimitExceeded) (Tcl_Interp * interp); /* 524 */
cl_Obj *pathPtr, CONST char *modeString, int permissions)); /* 456 */ void (*tcl_LimitSetCommands) (Tcl_Interp * interp, int commandLimit); /
Tcl_Obj * (*tcl_FSGetCwd) _ANSI_ARGS_((Tcl_Interp *interp)); /* 457 */ * 525 */
int (*tcl_FSChdir) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 458 */ void (*tcl_LimitSetTime) (Tcl_Interp * interp, Tcl_Time * timeLimitPtr)
int (*tcl_FSConvertToPathType) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj ; /* 526 */
*pathPtr)); /* 459 */ void (*tcl_LimitSetGranularity) (Tcl_Interp * interp, int type, int gra
Tcl_Obj * (*tcl_FSJoinPath) _ANSI_ARGS_((Tcl_Obj *listObj, int elements nularity); /* 527 */
)); /* 460 */ int (*tcl_LimitTypeEnabled) (Tcl_Interp * interp, int type); /* 528 */
Tcl_Obj * (*tcl_FSSplitPath) _ANSI_ARGS_((Tcl_Obj *pathPtr, int *lenPtr int (*tcl_LimitTypeExceeded) (Tcl_Interp * interp, int type); /* 529 */
)); /* 461 */ void (*tcl_LimitTypeSet) (Tcl_Interp * interp, int type); /* 530 */
int (*tcl_FSEqualPaths) _ANSI_ARGS_((Tcl_Obj *firstPtr, Tcl_Obj *second void (*tcl_LimitTypeReset) (Tcl_Interp * interp, int type); /* 531 */
Ptr)); /* 462 */ int (*tcl_LimitGetCommands) (Tcl_Interp * interp); /* 532 */
Tcl_Obj * (*tcl_FSGetNormalizedPath) _ANSI_ARGS_((Tcl_Interp *interp, T void (*tcl_LimitGetTime) (Tcl_Interp * interp, Tcl_Time * timeLimitPtr)
cl_Obj *pathPtr)); /* 463 */ ; /* 533 */
Tcl_Obj * (*tcl_FSJoinToPath) _ANSI_ARGS_((Tcl_Obj *pathPtr, int objc, int (*tcl_LimitGetGranularity) (Tcl_Interp * interp, int type); /* 534
Tcl_Obj *CONST objv[])); /* 464 */ */
ClientData (*tcl_FSGetInternalRep) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_F Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp * interp, int status
ilesystem *fsPtr)); /* 465 */ ); /* 535 */
Tcl_Obj * (*tcl_FSGetTranslatedPath) _ANSI_ARGS_((Tcl_Interp *interp, T int (*tcl_RestoreInterpState) (Tcl_Interp * interp, Tcl_InterpState sta
cl_Obj *pathPtr)); /* 466 */ te); /* 536 */
int (*tcl_FSEvalFile) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *fileNam void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
e)); /* 467 */ int (*tcl_SetReturnOptions) (Tcl_Interp * interp, Tcl_Obj * options); /
Tcl_Obj * (*tcl_FSNewNativePath) _ANSI_ARGS_((Tcl_Filesystem *fromFiles * 538 */
ystem, ClientData clientData)); /* 468 */ Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp * interp, int result); /*
CONST char * (*tcl_FSGetNativePath) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 539 */
469 */ int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
Tcl_Obj * (*tcl_FSFileSystemInfo) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 4 Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp * interp, CONST char * na
70 */ me, Tcl_Namespace * namespacePtr, int flags); /* 541 */
Tcl_Obj * (*tcl_FSPathSeparator) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 47 Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp * interp, Tcl_Obj * cmdName
1 */ Obj, int flags); /* 542 */
Tcl_Obj * (*tcl_FSListVolumes) _ANSI_ARGS_((void)); /* 472 */ int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp * interp, Tcl_Command
int (*tcl_FSRegister) _ANSI_ARGS_((ClientData clientData, Tcl_Filesyste token, Tcl_Obj * subcmdList); /* 543 */
m *fsPtr)); /* 473 */ int (*tcl_SetEnsembleMappingDict) (Tcl_Interp * interp, Tcl_Command tok
int (*tcl_FSUnregister) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 474 */ en, Tcl_Obj * mapDict); /* 544 */
ClientData (*tcl_FSData) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 475 * int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp * interp, Tcl_Command
/ token, Tcl_Obj * unknownList); /* 545 */
CONST char * (*tcl_FSGetTranslatedStringPath) _ANSI_ARGS_((Tcl_Interp * int (*tcl_SetEnsembleFlags) (Tcl_Interp * interp, Tcl_Command token, in
interp, Tcl_Obj *pathPtr)); /* 476 */ t flags); /* 546 */
Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) _ANSI_ARGS_((Tcl_Obj *pa int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp * interp, Tcl_Command
thPtr)); /* 477 */ token, Tcl_Obj ** subcmdListPtr); /* 547 */
Tcl_PathType (*tcl_FSGetPathType) _ANSI_ARGS_((Tcl_Obj *pathPtr)); /* 4 int (*tcl_GetEnsembleMappingDict) (Tcl_Interp * interp, Tcl_Command tok
78 */ en, Tcl_Obj ** mapDictPtr); /* 548 */
int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */ int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp * interp, Tcl_Command
void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem *fsPtr)); /* 48 token, Tcl_Obj ** unknownListPtr); /* 549 */
0 */ int (*tcl_GetEnsembleFlags) (Tcl_Interp * interp, Tcl_Command token, in
int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Toke t * flagsPtr); /* 550 */
n *tokenPtr, int count)); /* 481 */ int (*tcl_GetEnsembleNamespace) (Tcl_Interp * interp, Tcl_Command token
void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time *timeBuf)); /* 482 */ , Tcl_Namespace ** namespacePtrPtr); /* 551 */
Tcl_Trace (*tcl_CreateObjTrace) _ANSI_ARGS_((Tcl_Interp *interp, int le void (*tcl_SetTimeProc) (Tcl_GetTimeProc* getProc, Tcl_ScaleTimeProc* s
vel, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_Cm caleProc, ClientData clientData); /* 552 */
dObjTraceDeleteProc *delProc)); /* 483 */ void (*tcl_QueryTimeProc) (Tcl_GetTimeProc** getProc, Tcl_ScaleTimeProc
int (*tcl_GetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, Tcl_ ** scaleProc, ClientData* clientData); /* 553 */
CmdInfo *infoPtr)); /* 484 */ Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_
int (*tcl_SetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, CONS ChannelType * chanTypePtr); /* 554 */
T Tcl_CmdInfo *infoPtr)); /* 485 */ Tcl_Obj* (*tcl_NewBignumObj) (mp_int* value); /* 555 */
Tcl_Obj * (*tcl_DbNewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue, CO Tcl_Obj* (*tcl_DbNewBignumObj) (mp_int* value, CONST char* file, int li
NST char *file, int line)); /* 486 */ ne); /* 556 */
int (*tcl_GetWideIntFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj * void (*tcl_SetBignumObj) (Tcl_Obj* obj, mp_int* value); /* 557 */
objPtr, Tcl_WideInt *widePtr)); /* 487 */ int (*tcl_GetBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int*
Tcl_Obj * (*tcl_NewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue)); /* value); /* 558 */
488 */ int (*tcl_TakeBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int*
void (*tcl_SetWideIntObj) _ANSI_ARGS_((Tcl_Obj *objPtr, Tcl_WideInt wid value); /* 559 */
eValue)); /* 489 */ int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 5
Tcl_StatBuf * (*tcl_AllocStatBuf) _ANSI_ARGS_((void)); /* 490 */ 60 */
Tcl_WideInt (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, Tcl_WideInt offs Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelT
et, int mode)); /* 491 */ ype * chanTypePtr); /* 561 */
Tcl_WideInt (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 492 */ void (*tcl_SetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj* msg); /
Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) _ANSI_ARGS_((Tcl_Ch * 562 */
annelType *chanTypePtr)); /* 493 */ void (*tcl_GetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj** msg);
VOID *reserved494; /* 563 */
VOID *reserved495; void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj* msg); /* 564 */
VOID *reserved496; void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj** msg); /* 565 *
VOID *reserved497; /
VOID *reserved498; int (*tcl_InitBignumFromDouble) (Tcl_Interp* interp, double initval, mp
VOID *reserved499; _int * toInit); /* 566 */
VOID *reserved500; Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp * interp, Tcl_N
VOID *reserved501; amespace * nsPtr); /* 567 */
VOID *reserved502; int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp * interp, Tcl_Namespa
VOID *reserved503; ce * nsPtr, Tcl_Obj * handlerPtr); /* 568 */
VOID *reserved504; int (*tcl_GetEncodingFromObj) (Tcl_Interp* interp, Tcl_Obj* objPtr, Tcl
VOID *reserved505; _Encoding* encodingPtr); /* 569 */
VOID *reserved506; Tcl_Obj* (*tcl_GetEncodingSearchPath) (void); /* 570 */
VOID *reserved507; int (*tcl_SetEncodingSearchPath) (Tcl_Obj* searchPath); /* 571 */
VOID *reserved508; CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString* bufPtr
VOID *reserved509; ); /* 572 */
VOID *reserved510; int (*tcl_PkgRequireProc) (Tcl_Interp * interp, CONST char * name, int
VOID *reserved511; objc, Tcl_Obj *CONST objv[], ClientData * clientDataPtr); /* 573 */
VOID *reserved512; void (*tcl_AppendObjToErrorInfo) (Tcl_Interp * interp, Tcl_Obj * objPtr
VOID *reserved513; ); /* 574 */
VOID *reserved514; void (*tcl_AppendLimitedToObj) (Tcl_Obj * objPtr, CONST char * bytes, i
VOID *reserved515; nt length, int limit, CONST char * ellipsis); /* 575 */
VOID *reserved516; Tcl_Obj * (*tcl_Format) (Tcl_Interp * interp, CONST char * format, int
VOID *reserved517; objc, Tcl_Obj * CONST objv[]); /* 576 */
VOID *reserved518; int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CO
VOID *reserved519; NST char * format, int objc, Tcl_Obj * CONST objv[]); /* 577 */
VOID *reserved520; Tcl_Obj * (*tcl_ObjPrintf) (CONST char * format, ...); /* 578 */
VOID *reserved521; void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, CONST char * format, .
VOID *reserved522; ..); /* 579 */
VOID *reserved523;
VOID *reserved524;
VOID *reserved525;
VOID *reserved526;
VOID *reserved527;
VOID *reserved528;
VOID *reserved529;
VOID *reserved530;
VOID *reserved531;
VOID *reserved532;
VOID *reserved533;
VOID *reserved534;
VOID *reserved535;
VOID *reserved536;
VOID *reserved537;
VOID *reserved538;
VOID *reserved539;
VOID *reserved540;
VOID *reserved541;
VOID *reserved542;
VOID *reserved543;
VOID *reserved544;
VOID *reserved545;
VOID *reserved546;
VOID *reserved547;
VOID *reserved548;
VOID *reserved549;
VOID *reserved550;
VOID *reserved551;
VOID *reserved552;
VOID *reserved553;
Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_
((Tcl_ChannelType *chanTypePtr)); /* 554 */
VOID *reserved555;
VOID *reserved556;
VOID *reserved557;
VOID *reserved558;
VOID *reserved559;
VOID *reserved560;
VOID *reserved561;
VOID *reserved562;
VOID *reserved563;
VOID *reserved564;
VOID *reserved565;
VOID *reserved566;
VOID *reserved567;
VOID *reserved568;
VOID *reserved569;
VOID *reserved570;
VOID *reserved571;
VOID *reserved572;
int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *
name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); /* 573
*/
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 2832 skipping to change at line 4619
(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_OSX_TCL) /* UNIX */
#ifndef Tcl_DetachPids
#define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */
#endif
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
#ifndef Tcl_DetachPids
#define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */
#endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_DetachPids #ifndef Tcl_DetachPids
#define Tcl_DetachPids \ #define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */ (tclStubsPtr->tcl_DetachPids) /* 111 */
#endif #endif
#endif /* MACOSX */
#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 3181 skipping to change at line 4982
(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_OSX_TCL) /* UNIX */
#ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
#ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_OpenCommandChannel #ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \ #define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif #endif
#endif /* MACOSX */
#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 3221 skipping to change at line 5036
(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_OSX_TCL) /* UNIX */
#ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
#ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_ReapDetachedProcs #ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \ #define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif #endif
#endif /* MACOSX */
#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 4366 skipping to change at line 6195
(tclStubsPtr->tcl_Seek) /* 491 */ (tclStubsPtr->tcl_Seek) /* 491 */
#endif #endif
#ifndef Tcl_Tell #ifndef Tcl_Tell
#define Tcl_Tell \ #define Tcl_Tell \
(tclStubsPtr->tcl_Tell) /* 492 */ (tclStubsPtr->tcl_Tell) /* 492 */
#endif #endif
#ifndef Tcl_ChannelWideSeekProc #ifndef Tcl_ChannelWideSeekProc
#define Tcl_ChannelWideSeekProc \ #define Tcl_ChannelWideSeekProc \
(tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
#endif #endif
/* Slot 494 is reserved */ #ifndef Tcl_DictObjPut
/* Slot 495 is reserved */ #define Tcl_DictObjPut \
/* Slot 496 is reserved */ (tclStubsPtr->tcl_DictObjPut) /* 494 */
/* Slot 497 is reserved */ #endif
/* Slot 498 is reserved */ #ifndef Tcl_DictObjGet
/* Slot 499 is reserved */ #define Tcl_DictObjGet \
/* Slot 500 is reserved */ (tclStubsPtr->tcl_DictObjGet) /* 495 */
/* Slot 501 is reserved */ #endif
/* Slot 502 is reserved */ #ifndef Tcl_DictObjRemove
/* Slot 503 is reserved */ #define Tcl_DictObjRemove \
/* Slot 504 is reserved */ (tclStubsPtr->tcl_DictObjRemove) /* 496 */
/* Slot 505 is reserved */ #endif
/* Slot 506 is reserved */ #ifndef Tcl_DictObjSize
/* Slot 507 is reserved */ #define Tcl_DictObjSize \
/* Slot 508 is reserved */ (tclStubsPtr->tcl_DictObjSize) /* 497 */
/* Slot 509 is reserved */ #endif
/* Slot 510 is reserved */ #ifndef Tcl_DictObjFirst
/* Slot 511 is reserved */ #define Tcl_DictObjFirst \
/* Slot 512 is reserved */ (tclStubsPtr->tcl_DictObjFirst) /* 498 */
/* Slot 513 is reserved */ #endif
/* Slot 514 is reserved */ #ifndef Tcl_DictObjNext
/* Slot 515 is reserved */ #define Tcl_DictObjNext \
/* Slot 516 is reserved */ (tclStubsPtr->tcl_DictObjNext) /* 499 */
/* Slot 517 is reserved */ #endif
/* Slot 518 is reserved */ #ifndef Tcl_DictObjDone
/* Slot 519 is reserved */ #define Tcl_DictObjDone \
/* Slot 520 is reserved */ (tclStubsPtr->tcl_DictObjDone) /* 500 */
/* Slot 521 is reserved */ #endif
/* Slot 522 is reserved */ #ifndef Tcl_DictObjPutKeyList
/* Slot 523 is reserved */ #define Tcl_DictObjPutKeyList \
/* Slot 524 is reserved */ (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
/* Slot 525 is reserved */ #endif
/* Slot 526 is reserved */ #ifndef Tcl_DictObjRemoveKeyList
/* Slot 527 is reserved */ #define Tcl_DictObjRemoveKeyList \
/* Slot 528 is reserved */ (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
/* Slot 529 is reserved */ #endif
/* Slot 530 is reserved */ #ifndef Tcl_NewDictObj
/* Slot 531 is reserved */ #define Tcl_NewDictObj \
/* Slot 532 is reserved */ (tclStubsPtr->tcl_NewDictObj) /* 503 */
/* Slot 533 is reserved */ #endif
/* Slot 534 is reserved */ #ifndef Tcl_DbNewDictObj
/* Slot 535 is reserved */ #define Tcl_DbNewDictObj \
/* Slot 536 is reserved */ (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
/* Slot 537 is reserved */ #endif
/* Slot 538 is reserved */ #ifndef Tcl_RegisterConfig
/* Slot 539 is reserved */ #define Tcl_RegisterConfig \
/* Slot 540 is reserved */ (tclStubsPtr->tcl_RegisterConfig) /* 505 */
/* Slot 541 is reserved */ #endif
/* Slot 542 is reserved */ #ifndef Tcl_CreateNamespace
/* Slot 543 is reserved */ #define Tcl_CreateNamespace \
/* Slot 544 is reserved */ (tclStubsPtr->tcl_CreateNamespace) /* 506 */
/* Slot 545 is reserved */ #endif
/* Slot 546 is reserved */ #ifndef Tcl_DeleteNamespace
/* Slot 547 is reserved */ #define Tcl_DeleteNamespace \
/* Slot 548 is reserved */ (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
/* Slot 549 is reserved */ #endif
/* Slot 550 is reserved */ #ifndef Tcl_AppendExportList
/* Slot 551 is reserved */ #define Tcl_AppendExportList \
/* Slot 552 is reserved */ (tclStubsPtr->tcl_AppendExportList) /* 508 */
/* Slot 553 is reserved */ #endif
#ifndef Tcl_Export
#define Tcl_Export \
(tclStubsPtr->tcl_Export) /* 509 */
#endif
#ifndef Tcl_Import
#define Tcl_Import \
(tclStubsPtr->tcl_Import) /* 510 */
#endif
#ifndef Tcl_ForgetImport
#define Tcl_ForgetImport \
(tclStubsPtr->tcl_ForgetImport) /* 511 */
#endif
#ifndef Tcl_GetCurrentNamespace
#define Tcl_GetCurrentNamespace \
(tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
#endif
#ifndef Tcl_GetGlobalNamespace
#define Tcl_GetGlobalNamespace \
(tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
#endif
#ifndef Tcl_FindNamespace
#define Tcl_FindNamespace \
(tclStubsPtr->tcl_FindNamespace) /* 514 */
#endif
#ifndef Tcl_FindCommand
#define Tcl_FindCommand \
(tclStubsPtr->tcl_FindCommand) /* 515 */
#endif
#ifndef Tcl_GetCommandFromObj
#define Tcl_GetCommandFromObj \
(tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
#endif
#ifndef Tcl_GetCommandFullName
#define Tcl_GetCommandFullName \
(tclStubsPtr->tcl_GetCommandFullName) /* 517 */
#endif
#ifndef Tcl_FSEvalFileEx
#define Tcl_FSEvalFileEx \
(tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
#endif
#ifndef Tcl_SetExitProc
#define Tcl_SetExitProc \
(tclStubsPtr->tcl_SetExitProc) /* 519 */
#endif
#ifndef Tcl_LimitAddHandler
#define Tcl_LimitAddHandler \
(tclStubsPtr->tcl_LimitAddHandler) /* 520 */
#endif
#ifndef Tcl_LimitRemoveHandler
#define Tcl_LimitRemoveHandler \
(tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
#endif
#ifndef Tcl_LimitReady
#define Tcl_LimitReady \
(tclStubsPtr->tcl_LimitReady) /* 522 */
#endif
#ifndef Tcl_LimitCheck
#define Tcl_LimitCheck \
(tclStubsPtr->tcl_LimitCheck) /* 523 */
#endif
#ifndef Tcl_LimitExceeded
#define Tcl_LimitExceeded \
(tclStubsPtr->tcl_LimitExceeded) /* 524 */
#endif
#ifndef Tcl_LimitSetCommands
#define Tcl_LimitSetCommands \
(tclStubsPtr->tcl_LimitSetCommands) /* 525 */
#endif
#ifndef Tcl_LimitSetTime
#define Tcl_LimitSetTime \
(tclStubsPtr->tcl_LimitSetTime) /* 526 */
#endif
#ifndef Tcl_LimitSetGranularity
#define Tcl_LimitSetGranularity \
(tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
#endif
#ifndef Tcl_LimitTypeEnabled
#define Tcl_LimitTypeEnabled \
(tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
#endif
#ifndef Tcl_LimitTypeExceeded
#define Tcl_LimitTypeExceeded \
(tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
#endif
#ifndef Tcl_LimitTypeSet
#define Tcl_LimitTypeSet \
(tclStubsPtr->tcl_LimitTypeSet) /* 530 */
#endif
#ifndef Tcl_LimitTypeReset
#define Tcl_LimitTypeReset \
(tclStubsPtr->tcl_LimitTypeReset) /* 531 */
#endif
#ifndef Tcl_LimitGetCommands
#define Tcl_LimitGetCommands \
(tclStubsPtr->tcl_LimitGetCommands) /* 532 */
#endif
#ifndef Tcl_LimitGetTime
#define Tcl_LimitGetTime \
(tclStubsPtr->tcl_LimitGetTime) /* 533 */
#endif
#ifndef Tcl_LimitGetGranularity
#define Tcl_LimitGetGranularity \
(tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
#endif
#ifndef Tcl_SaveInterpState
#define Tcl_SaveInterpState \
(tclStubsPtr->tcl_SaveInterpState) /* 535 */
#endif
#ifndef Tcl_RestoreInterpState
#define Tcl_RestoreInterpState \
(tclStubsPtr->tcl_RestoreInterpState) /* 536 */
#endif
#ifndef Tcl_DiscardInterpState
#define Tcl_DiscardInterpState \
(tclStubsPtr->tcl_DiscardInterpState) /* 537 */
#endif
#ifndef Tcl_SetReturnOptions
#define Tcl_SetReturnOptions \
(tclStubsPtr->tcl_SetReturnOptions) /* 538 */
#endif
#ifndef Tcl_GetReturnOptions
#define Tcl_GetReturnOptions \
(tclStubsPtr->tcl_GetReturnOptions) /* 539 */
#endif
#ifndef Tcl_IsEnsemble
#define Tcl_IsEnsemble \
(tclStubsPtr->tcl_IsEnsemble) /* 540 */
#endif
#ifndef Tcl_CreateEnsemble
#define Tcl_CreateEnsemble \
(tclStubsPtr->tcl_CreateEnsemble) /* 541 */
#endif
#ifndef Tcl_FindEnsemble
#define Tcl_FindEnsemble \
(tclStubsPtr->tcl_FindEnsemble) /* 542 */
#endif
#ifndef Tcl_SetEnsembleSubcommandList
#define Tcl_SetEnsembleSubcommandList \
(tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
#endif
#ifndef Tcl_SetEnsembleMappingDict
#define Tcl_SetEnsembleMappingDict \
(tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
#endif
#ifndef Tcl_SetEnsembleUnknownHandler
#define Tcl_SetEnsembleUnknownHandler \
(tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
#endif
#ifndef Tcl_SetEnsembleFlags
#define Tcl_SetEnsembleFlags \
(tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
#endif
#ifndef Tcl_GetEnsembleSubcommandList
#define Tcl_GetEnsembleSubcommandList \
(tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
#endif
#ifndef Tcl_GetEnsembleMappingDict
#define Tcl_GetEnsembleMappingDict \
(tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
#endif
#ifndef Tcl_GetEnsembleUnknownHandler
#define Tcl_GetEnsembleUnknownHandler \
(tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
#endif
#ifndef Tcl_GetEnsembleFlags
#define Tcl_GetEnsembleFlags \
(tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
#endif
#ifndef Tcl_GetEnsembleNamespace
#define Tcl_GetEnsembleNamespace \
(tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
#endif
#ifndef Tcl_SetTimeProc
#define Tcl_SetTimeProc \
(tclStubsPtr->tcl_SetTimeProc) /* 552 */
#endif
#ifndef Tcl_QueryTimeProc
#define Tcl_QueryTimeProc \
(tclStubsPtr->tcl_QueryTimeProc) /* 553 */
#endif
#ifndef Tcl_ChannelThreadActionProc #ifndef Tcl_ChannelThreadActionProc
#define Tcl_ChannelThreadActionProc \ #define Tcl_ChannelThreadActionProc \
(tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
#endif #endif
/* Slot 555 is reserved */ #ifndef Tcl_NewBignumObj
/* Slot 556 is reserved */ #define Tcl_NewBignumObj \
/* Slot 557 is reserved */ (tclStubsPtr->tcl_NewBignumObj) /* 555 */
/* Slot 558 is reserved */ #endif
/* Slot 559 is reserved */ #ifndef Tcl_DbNewBignumObj
/* Slot 560 is reserved */ #define Tcl_DbNewBignumObj \
/* Slot 561 is reserved */ (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
/* Slot 562 is reserved */ #endif
/* Slot 563 is reserved */ #ifndef Tcl_SetBignumObj
/* Slot 564 is reserved */ #define Tcl_SetBignumObj \
/* Slot 565 is reserved */ (tclStubsPtr->tcl_SetBignumObj) /* 557 */
/* Slot 566 is reserved */ #endif
/* Slot 567 is reserved */ #ifndef Tcl_GetBignumFromObj
/* Slot 568 is reserved */ #define Tcl_GetBignumFromObj \
/* Slot 569 is reserved */ (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
/* Slot 570 is reserved */ #endif
/* Slot 571 is reserved */ #ifndef Tcl_TakeBignumFromObj
/* Slot 572 is reserved */ #define Tcl_TakeBignumFromObj \
(tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
#endif
#ifndef Tcl_TruncateChannel
#define Tcl_TruncateChannel \
(tclStubsPtr->tcl_TruncateChannel) /* 560 */
#endif
#ifndef Tcl_ChannelTruncateProc
#define Tcl_ChannelTruncateProc \
(tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
#endif
#ifndef Tcl_SetChannelErrorInterp
#define Tcl_SetChannelErrorInterp \
(tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
#endif
#ifndef Tcl_GetChannelErrorInterp
#define Tcl_GetChannelErrorInterp \
(tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
#endif
#ifndef Tcl_SetChannelError
#define Tcl_SetChannelError \
(tclStubsPtr->tcl_SetChannelError) /* 564 */
#endif
#ifndef Tcl_GetChannelError
#define Tcl_GetChannelError \
(tclStubsPtr->tcl_GetChannelError) /* 565 */
#endif
#ifndef Tcl_InitBignumFromDouble
#define Tcl_InitBignumFromDouble \
(tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
#endif
#ifndef Tcl_GetNamespaceUnknownHandler
#define Tcl_GetNamespaceUnknownHandler \
(tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
#endif
#ifndef Tcl_SetNamespaceUnknownHandler
#define Tcl_SetNamespaceUnknownHandler \
(tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
#endif
#ifndef Tcl_GetEncodingFromObj
#define Tcl_GetEncodingFromObj \
(tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
#endif
#ifndef Tcl_GetEncodingSearchPath
#define Tcl_GetEncodingSearchPath \
(tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
#endif
#ifndef Tcl_SetEncodingSearchPath
#define Tcl_SetEncodingSearchPath \
(tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
#endif
#ifndef Tcl_GetEncodingNameFromEnvironment
#define Tcl_GetEncodingNameFromEnvironment \
(tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
#endif
#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 */ #ifndef Tcl_AppendObjToErrorInfo
/* Slot 575 is reserved */ #define Tcl_AppendObjToErrorInfo \
/* Slot 576 is reserved */ (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
/* Slot 577 is reserved */ #endif
/* Slot 578 is reserved */ #ifndef Tcl_AppendLimitedToObj
/* Slot 579 is reserved */ #define Tcl_AppendLimitedToObj \
/* Slot 580 is reserved */ (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
/* Slot 581 is reserved */ #endif
/* Slot 582 is reserved */ #ifndef Tcl_Format
/* Slot 583 is reserved */ #define Tcl_Format \
/* Slot 584 is reserved */ (tclStubsPtr->tcl_Format) /* 576 */
/* Slot 585 is reserved */ #endif
/* Slot 586 is reserved */ #ifndef Tcl_AppendFormatToObj
/* Slot 587 is reserved */ #define Tcl_AppendFormatToObj \
/* Slot 588 is reserved */ (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
/* Slot 589 is reserved */ #endif
/* Slot 590 is reserved */ #ifndef Tcl_ObjPrintf
/* Slot 591 is reserved */ #define Tcl_ObjPrintf \
/* Slot 592 is reserved */ (tclStubsPtr->tcl_ObjPrintf) /* 578 */
/* Slot 593 is reserved */ #endif
/* Slot 594 is reserved */ #ifndef Tcl_AppendPrintfToObj
/* Slot 595 is reserved */ #define Tcl_AppendPrintfToObj \
/* Slot 596 is reserved */ (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
/* 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
#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_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef Tcl_PkgPresent
#define Tcl_PkgPresent(interp, name, version, exact) \
Tcl_PkgPresentEx(interp, name, version, exact, NULL)
#undef Tcl_PkgProvide
#define Tcl_PkgProvide(interp, name, version) \
Tcl_PkgProvideEx(interp, name, version, NULL)
#undef Tcl_PkgRequire
#define Tcl_PkgRequire(interp, name, version, exact) \
Tcl_PkgRequireEx(interp, name, version, exact, NULL)
#undef Tcl_GetIndexFromObj
#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr)
\
Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
sizeof(char *), msg, flags, indexPtr)
#undef Tcl_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. 541 change blocks. 
2510 lines changed or deleted 4391 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.27 2007/12/13 15:23:20 dgp Exp $
*/ */
#ifndef _TCLPLATDECLS #ifndef _TCLPLATDECLS
#define _TCLPLATDECLS #define _TCLPLATDECLS
#undef TCL_STORAGE_CLASS
#ifdef BUILD_tcl
# define TCL_STORAGE_CLASS DLLEXPORT
#else
# ifdef USE_TCL_STUBS
# define TCL_STORAGE_CLASS
# else
# define TCL_STORAGE_CLASS DLLIMPORT
# endif
#endif
/* /*
* TCHAR is needed here for win32, so if it is not defined yet do it here. * Pull in the typedef of TCHAR for windows.
* This way, we don't need to include <tchar.h> just for one define.
*/ */
#if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED) #if defined(__CYGWIN__)
# if defined(_UNICODE) typedef char TCHAR;
typedef wchar_t TCHAR; #elif defined(__WIN32__) && !defined(_TCHAR_DEFINED)
# else # include <tchar.h>
typedef char TCHAR; # ifndef _TCHAR_DEFINED
/* 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:
*/ */
#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ #ifdef __WIN32__ /* WIN */
#ifndef Tcl_WinUtfToTChar_TCL_DECLARED
#define Tcl_WinUtfToTChar_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char *str, EXTERN TCHAR * Tcl_WinUtfToTChar (CONST char * str, int len,
int len, Tcl_DString *dsPtr)); Tcl_DString * dsPtr);
#endif
#ifndef Tcl_WinTCharToUtf_TCL_DECLARED
#define Tcl_WinTCharToUtf_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR *str, EXTERN char * Tcl_WinTCharToUtf (CONST TCHAR * str, int len,
int len, Tcl_DString *dsPtr)); Tcl_DString * dsPtr);
#endif
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED
#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED
/* 0 */ /* 0 */
EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_(( EXTERN int Tcl_MacOSXOpenBundleResources (Tcl_Interp * interp,
Tcl_Interp *interp, CONST char *bundleName, CONST char * bundleName, int hasResourceFile
int hasResourceFile, int maxPathLen, ,
char *libraryPath)); int maxPathLen, char * libraryPath);
#endif
#ifndef Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED
#define Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED
/* 1 */ /* 1 */
EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_(( EXTERN int Tcl_MacOSXOpenVersionedBundleResources (
Tcl_Interp *interp, CONST char *bundleName, Tcl_Interp * interp, CONST char * bundleName
CONST char *bundleVersion, ,
CONST char * bundleVersion,
int hasResourceFile, int maxPathLen, int hasResourceFile, int maxPathLen,
char *libraryPath)); char * libraryPath);
#endif
#endif /* MACOSX */ #endif /* MACOSX */
typedef struct TclPlatStubs { typedef struct TclPlatStubs {
int magic; int magic;
struct TclPlatStubHooks *hooks; struct TclPlatStubHooks *hooks;
#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ #ifdef __WIN32__ /* WIN */
TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char *str, int len, Tcl TCHAR * (*tcl_WinUtfToTChar) (CONST char * str, int len, Tcl_DString *
_DString *dsPtr)); /* 0 */ dsPtr); /* 0 */
char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR *str, int len, Tcl char * (*tcl_WinTCharToUtf) (CONST TCHAR * str, int len, Tcl_DString *
_DString *dsPtr)); /* 1 */ dsPtr); /* 1 */
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp *interp, C int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp * interp, CONST char *
ONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPa bundleName, int hasResourceFile, int maxPathLen, char * libraryPath); /* 0
th)); /* 0 */ */
int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp * int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp * interp, CON
interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceF ST char * bundleName, CONST char * bundleVersion, int hasResourceFile, int
ile, int maxPathLen, char *libraryPath)); /* 1 */ maxPathLen, char * libraryPath); /* 1 */
#endif /* MACOSX */ #endif /* MACOSX */
} 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:
*/ */
#if defined(__WIN32__) || defined(__CYGWIN__) /* WIN */ #ifdef __WIN32__ /* 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 /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
skipping to change at line 107 skipping to change at line 136
#ifndef Tcl_MacOSXOpenVersionedBundleResources #ifndef Tcl_MacOSXOpenVersionedBundleResources
#define Tcl_MacOSXOpenVersionedBundleResources \ #define Tcl_MacOSXOpenVersionedBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
#endif #endif
#endif /* MACOSX */ #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. */
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TCLPLATDECLS */ #endif /* _TCLPLATDECLS */
 End of changes. 16 change blocks. 
33 lines changed or deleted 67 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/