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 Tcl interpreter. * of the Tcl interpreter.
* *
* Copyright (c) 1987-1994 The Regents of the University of California. * Copyright (c) 1987-1994 The Regents of the University of California.
* Copyright (c) 1993-1996 Lucent Technologies. * Copyright (c) 1993-1996 Lucent Technologies.
* Copyright (c) 1994-1998 Sun Microsystems, Inc. * Copyright (c) 1994-1998 Sun Microsystems, Inc.
* Copyright (c) 1998-2000 by Scriptics Corporation. * Copyright (c) 1998-2000 by Scriptics Corporation.
* Copyright (c) 2002 by Kevin B. Kenny. All rights reserved.
* *
* 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.70.2.10 2002/10/16 00:06:50 hobbs Exp $ * RCS: @(#) $Id: tcl.h,v 1.142 2002/09/02 20:10:59 hobbs 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 46 skipping to change at line 47
/* /*
* 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 (only if Major.minor changes, not patchlevel) 1 LOC
* 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.vc (not patchlevel) 2 LOC
* win/pkgIndex.tcl (not patchlevel, for tclregNN.dll)
* README (sections 0 and 2) * README (sections 0 and 2)
* mac/README (2 LOC, not patchlevel) * mac/README (2 LOC, not patchlevel)
* win/README.binary (sections 0-4) * win/README.binary (sections 0-4)
* win/README (not patchlevel) (sections 0 and 2) * win/README (not patchlevel) (sections 0 and 2)
* unix/README (not patchlevel) (part (h))
* unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch)
* tests/basic.test (not patchlevel) (version checks) * 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 3 #define TCL_MINOR_VERSION 4
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 5 #define TCL_RELEASE_SERIAL 0
#define TCL_VERSION "8.3" #define TCL_VERSION "8.4"
#define TCL_PATCH_LEVEL "8.3.5" #define TCL_PATCH_LEVEL "8.4.0"
/* /*
* The following definitions set up the proper options for Windows * The following definitions set up the proper options for Windows
* compilers. We use this method because there is no autoconf equivalent. * compilers. We use this method because there is no autoconf equivalent.
*/ */
#ifndef __WIN32__ #ifndef __WIN32__
# if defined(_WIN32) || defined(WIN32) || defined(__CYGWIN__) || defined( __MINGW32__) || defined(__BORLANDC__) # if defined(_WIN32) || defined(WIN32) || defined(__CYGWIN__) || defined( __MINGW32__) || defined(__BORLANDC__)
# define __WIN32__ # define __WIN32__
# ifndef WIN32 # ifndef WIN32
# define WIN32 # define WIN32
# endif # endif
# endif # endif
#endif #endif
/*
* STRICT: See MSDN Article Q83456
*/
#ifdef __WIN32__ #ifdef __WIN32__
# ifndef STRICT # ifndef STRICT
# define STRICT # define STRICT
# endif # endif
# ifndef USE_PROTOTYPE
# define USE_PROTOTYPE 1
# endif
# ifndef HAS_STDARG
# define HAS_STDARG 1
# endif
# ifndef USE_PROTOTYPE
# define USE_PROTOTYPE 1
# endif
#endif /* __WIN32__ */ #endif /* __WIN32__ */
/* /*
* The following definitions set up the proper options for Macintosh * The following definitions set up the proper options for Macintosh
* compilers. We use this method because there is no autoconf equivalent. * compilers. We use this method because there is no autoconf equivalent.
*/ */
#ifdef MAC_TCL #ifdef MAC_TCL
#include <ConditionalMacros.h> #include <ConditionalMacros.h>
# ifndef HAS_STDARG
# define HAS_STDARG 1
# endif
# ifndef USE_TCLALLOC # ifndef USE_TCLALLOC
# define USE_TCLALLOC 1 # define USE_TCLALLOC 1
# endif # endif
# ifndef NO_STRERROR # ifndef NO_STRERROR
# define NO_STRERROR 1 # define NO_STRERROR 1
# endif # endif
# define INLINE # define INLINE
#endif #endif
/* /*
* Utility macros: STRINGIFY takes an argument and wraps it in "" (double * Utility macros: STRINGIFY takes an argument and wraps it in "" (double
* quotation marks), JOIN joins two arguments. * quotation marks), JOIN joins two arguments.
*/ */
#ifndef STRINGIFY
#define VERBATIM(x) x
#ifdef _MSC_VER
# define STRINGIFY(x) STRINGIFY1(x)
# define STRINGIFY1(x) #x
# define JOIN(a,b) JOIN1(a,b)
# define JOIN1(a,b) a##b
#else
# ifdef RESOURCE_INCLUDED
# define STRINGIFY(x) STRINGIFY1(x) # define STRINGIFY(x) STRINGIFY1(x)
# define STRINGIFY1(x) #x # define STRINGIFY1(x) #x
#endif
#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
# else
# ifdef __STDC__
# define STRINGIFY(x) #x
# define JOIN(a,b) a##b
# else
# define STRINGIFY(x) "x"
# define JOIN(a,b) VERBATIM(a)VERBATIM(b)
# endif
# endif
#endif #endif
/* /*
* A special definition used to allow this header file to be included
* from windows resource files so that they can obtain version
* information. RC_INVOKED is defined by default by the RC tool.
* Resource compilers don't like all the C stuff, like typedefs and
* procedure declarations, that occur below, so block them out.
*/
#ifndef RC_INVOKED
/*
* A special definition for Macintosh used to allow this header file
* to be included in resource files so that they can get obtain
* version information from this file. Resource compilers don't like
* all the C stuff, like typedefs and procedure declarations, that
* occur below.
*/
#ifndef RESOURCE_INCLUDED
/*
* Special macro to define mutexes, that doesn't do anything * Special macro to define mutexes, that doesn't do anything
* if we are not using threads. * if we are not using threads.
*/ */
#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
skipping to change at line 169 skipping to change at line 162
#ifndef TCL_THREADS #ifndef TCL_THREADS
#define Tcl_MutexLock(mutexPtr) #define Tcl_MutexLock(mutexPtr)
#define Tcl_MutexUnlock(mutexPtr) #define Tcl_MutexUnlock(mutexPtr)
#define Tcl_MutexFinalize(mutexPtr) #define Tcl_MutexFinalize(mutexPtr)
#define Tcl_ConditionNotify(condPtr) #define Tcl_ConditionNotify(condPtr)
#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) #define Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
#define Tcl_ConditionFinalize(condPtr) #define Tcl_ConditionFinalize(condPtr)
#endif /* TCL_THREADS */ #endif /* TCL_THREADS */
/*
* A special definition used to allow this header file to be included
* in resource files so that they can get obtain version information from
* this file. Resource compilers don't like all the C stuff, like typedefs
* and procedure declarations, that occur below.
*/
#ifndef RESOURCE_INCLUDED
#ifndef BUFSIZ #ifndef BUFSIZ
#include <stdio.h> # include <stdio.h>
#endif #endif
/* /*
* Definitions that allow Tcl functions with variable numbers of * Definitions that allow Tcl functions with variable numbers of
* arguments to be used with either varargs.h or stdarg.h. TCL_VARARGS * 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 * is used in procedure prototypes. TCL_VARARGS_DEF is used to declare
* the arguments in a function definiton: it takes the type and name of * the arguments in a function definiton: it takes the type and name of
* the first argument and supplies the appropriate argument declaration * the first argument and supplies the appropriate argument declaration
* string for use in the function definition. TCL_VARARGS_START * string for use in the function definition. TCL_VARARGS_START
* initializes the va_list data structure and returns the first argument. * initializes the va_list data structure and returns the first argument.
*/ */
#if !defined(NO_STDARG)
#if defined(__STDC__) || defined(HAS_STDARG)
# include <stdarg.h> # include <stdarg.h>
# define TCL_VARARGS(type, name) (type name, ...) # define TCL_VARARGS(type, name) (type name, ...)
# define TCL_VARARGS_DEF(type, name) (type name, ...) # define TCL_VARARGS_DEF(type, name) (type name, ...)
# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) # define TCL_VARARGS_START(type, name, list) (va_start(list, name), name)
#else #else
# include <varargs.h> # include <varargs.h>
# define TCL_VARARGS(type, name) ()
# ifdef __cplusplus # define TCL_VARARGS_DEF(type, name) (va_alist)
# define TCL_VARARGS(type, name) (type name, ...)
# define TCL_VARARGS_DEF(type, name) (type va_alist, ...)
# else
# define TCL_VARARGS(type, name) ()
# define TCL_VARARGS_DEF(type, name) (va_alist)
# endif
# define TCL_VARARGS_START(type, name, list) \ # define TCL_VARARGS_START(type, name, list) \
(va_start(list), va_arg(list, type)) (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 Windows, maps to no-op declarations on non-Windows systems. * Used by Windows, maps to no-op declarations on non-Windows systems.
* The default build on windows is for a DLL, which causes the DLLIMPORT * The default build on windows is for a DLL, which causes the DLLIMPORT
* and DLLEXPORT macros to be nonempty. To build a static library, the * and DLLEXPORT macros to be nonempty. To build a static library, the
* macro STATIC_BUILD should be defined. * macro STATIC_BUILD should be defined.
*/ */
#ifdef STATIC_BUILD #ifdef STATIC_BUILD
# define DLLIMPORT # define DLLIMPORT
# define DLLEXPORT # define DLLEXPORT
#else #else
# if (defined(__WIN32__) && (defined(_MSC_VER) || (defined(__GNUC__) && def # if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550
ined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) ) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && F
# define DLLIMPORT __declspec(dllimport) UNCTION_DECLSPEC)
# define DLLEXPORT __declspec(dllexport) # define DLLIMPORT __declspec(dllimport)
# else # define DLLEXPORT __declspec(dllexport)
# define DLLIMPORT # else
# define DLLEXPORT # define DLLIMPORT
# endif # define DLLEXPORT
# endif
#endif #endif
/* /*
* These macros are used to control whether functions are being declared fo r * These macros are used to control whether functions are being declared fo r
* import or export. If a function is being declared while it is being bui lt * import or export. If a function is being declared while it is being bui lt
* to be included in a shared library, then it should have the DLLEXPORT * to be included in a shared library, then it should have the DLLEXPORT
* storage class. If is being declared for use by a module that is going t o * storage class. If is being declared for use by a module that is going t o
* link against the shared library, then it should have the DLLIMPORT stora ge * link against the shared library, then it should have the DLLIMPORT stora ge
* class. If the symbol is beind declared for a static build or for use fr om a * class. If the symbol is beind declared for a static build or for use fr om a
* stub library, then the storage class should be empty. * stub library, then the storage class should be empty.
skipping to change at line 248 skipping to change at line 224
* link against the shared library, then it should have the DLLIMPORT stora ge * link against the shared library, then it should have the DLLIMPORT stora ge
* class. If the symbol is beind declared for a static build or for use fr om a * class. If the symbol is beind declared for a static build or for use fr om a
* 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 of a library we are building, is set on the compile line for source s * name of a library we are building, is set on the compile line for source s
* that are to be placed in the library. When this macro is set, the * that are to be placed in the library. When this macro is set, the
* storage class will be set to DLLEXPORT. At the end of the header file, the * storage class will be set to DLLEXPORT. At the end of the header file, the
* storage class will be reset to DLLIMPORT. * storage class will 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
* without ANSI C features like function prototypes. * without ANSI C features like function prototypes.
*/ */
#undef _ANSI_ARGS_ #undef _ANSI_ARGS_
#undef CONST #undef CONST
#ifndef INLINE #ifndef INLINE
# define INLINE # define INLINE
#endif #endif
#if ((defined(__STDC__) || defined(SABER)) && !defined(NO_PROTOTYPE)) || de #ifndef NO_CONST
fined(__cplusplus) || defined(USE_PROTOTYPE)
# define _USING_PROTOTYPES_ 1
# define _ANSI_ARGS_(x) x
# define CONST const # define CONST const
#else #else
# define _ANSI_ARGS_(x) ()
# define CONST # define CONST
#endif #endif
#ifndef NO_PROTOTYPES
# define _ANSI_ARGS_(x) x
#else
# define _ANSI_ARGS_(x) ()
#endif
#ifdef USE_NON_CONST
# ifdef USE_COMPAT_CONST
# error define at most one of USE_NON_CONST and USE_COMPAT_CONST
# endif
# define CONST84
# define CONST84_RETURN
#else
# ifdef USE_COMPAT_CONST
# define CONST84
# define CONST84_RETURN CONST
# else
# define CONST84 CONST
# define CONST84_RETURN CONST
# endif
#endif
/* /*
* Make sure EXTERN isn't defined elsewhere * Make sure EXTERN isn't defined elsewhere
*/ */
#ifdef EXTERN #ifdef EXTERN
#undef EXTERN # undef EXTERN
#endif /* EXTERN */ #endif /* EXTERN */
#ifdef __cplusplus #ifdef __cplusplus
# define EXTERN extern "C" TCL_STORAGE_CLASS # define EXTERN extern "C" TCL_STORAGE_CLASS
#else #else
# define EXTERN extern TCL_STORAGE_CLASS # define EXTERN extern TCL_STORAGE_CLASS
#endif #endif
/* /*
* Macro to use instead of "void" for arguments that must have * The following code is copied from winnt.h.
* type "void *" in ANSI C; maps them to type "char *" in * If we don't replicate it here, then <windows.h> can't be included
* non-ANSI systems. * after tcl.h, since tcl.h also defines VOID.
*/
#ifndef __WIN32__
#ifndef VOID
# ifdef __STDC__
# define VOID void
# else
# define VOID char
# endif
#endif
#else /* __WIN32__ */
/*
* The following code is copied from winnt.h
*/ */
#ifdef __WIN32__
#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__ */ #endif /* __WIN32__ */
/* /*
* Miscellaneous declarations. * Macro to use instead of "void" for arguments that must have
* type "void *" in ANSI C; maps them to type "char *" in
* non-ANSI systems.
*/ */
#ifndef NO_VOID
# define VOID void
#else
# define VOID char
#endif
/*
* Miscellaneous declarations.
*/
#ifndef NULL #ifndef NULL
#define NULL 0 # define NULL 0
#endif #endif
#ifndef _CLIENTDATA #ifndef _CLIENTDATA
# if defined(__STDC__) || defined(__cplusplus) # ifndef NO_VOID
typedef void *ClientData; typedef void *ClientData;
# else # else
typedef int *ClientData; typedef int *ClientData;
# endif /* __STDC__ */ # endif
#define _CLIENTDATA # define _CLIENTDATA
#endif
/*
* Define Tcl_WideInt to be a type that is (at least) 64-bits wide,
* and define Tcl_WideUInt to be the unsigned variant of that type
* (assuming that where we have one, we can have the other.)
*
* At the moment, this only works on Unix systems anyway...
*
* Also defines the following macros:
* TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on
* a real 64-bit system.)
* Tcl_WideAsLong - forgetful converter from wideInt to long.
* Tcl_LongAsWide - sign-extending converter from long to wideInt.
* Tcl_WideAsDouble - converter from wideInt to double.
* Tcl_DoubleAsWide - converter from double to wideInt.
*
* The following invariant should hold for any long value 'longVal':
* longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
*
* Note on converting between Tcl_WideInt and strings. This
* implementation (in tclObj.c) depends on the functions strtoull()
* and, where sprintf(...,"%lld",...) does not work, lltostr().
* Although strtoull() is fairly straight-forward, lltostr() is a most
* unusual function on Solaris8 (taking its operating buffer
* backwards) so any changes you make will need to be done
* cautiously...
*/
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
# ifdef __WIN32__
# define TCL_WIDE_INT_TYPE __int64
# ifdef __BORLANDC__
typedef struct stati64 Tcl_StatBuf;
# define TCL_LL_MODIFIER "L"
# define TCL_LL_MODIFIER_SIZE 1
# else /* __BORLANDC__ */
typedef struct _stati64 Tcl_StatBuf;
# define TCL_LL_MODIFIER "I64"
# define TCL_LL_MODIFIER_SIZE 3
# endif /* __BORLANDC__ */
# else /* __WIN32__ */
/*
* Don't know what platform it is and configure hasn't discovered what
* is going on for us. Try to guess...
*/
# ifdef NO_LIMITS_H
# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO
NG
# else /* !NO_LIMITS_H */
# include <limits.h>
# if (INT_MAX < LONG_MAX)
# define TCL_WIDE_INT_IS_LONG 1
# else
# define TCL_WIDE_INT_TYPE long long
# endif
# endif /* NO_LIMITS_H */
# endif /* __WIN32__ */
#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */
#ifdef TCL_WIDE_INT_IS_LONG
# undef TCL_WIDE_INT_TYPE
# define TCL_WIDE_INT_TYPE long
#endif /* TCL_WIDE_INT_IS_LONG */
typedef TCL_WIDE_INT_TYPE Tcl_WideInt;
typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;
#ifdef TCL_WIDE_INT_IS_LONG
typedef struct stat Tcl_StatBuf;
# define Tcl_WideAsLong(val) ((long)(val))
# define Tcl_LongAsWide(val) ((long)(val))
# define Tcl_WideAsDouble(val) ((double)((long)(val)))
# define Tcl_DoubleAsWide(val) ((long)((double)(val)))
#else /* TCL_WIDE_INT_IS_LONG */
# ifndef __WIN32__
# 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_SIZE 2
# endif /* !__WIN32__ */
# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))
# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))
# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))
# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))
#endif /* TCL_WIDE_INT_IS_LONG */
/*
* 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 #endif
/* /*
* Data structures defined opaquely in this module. The definitions below * Data structures defined opaquely in this module. The definitions below
* just provide dummy types. A few fields are made visible in Tcl_Interp * just provide dummy types. A few fields are made visible in Tcl_Interp
* structures, namely those used for returning a string result from * structures, namely those used for returning a string result from
* commands. Direct access to the result field is discouraged in Tcl 8.0. * commands. Direct access to the result field is discouraged in Tcl 8.0.
* The interpreter result is either an object or a string, and the two * The interpreter result is either an object or a string, and the two
* values are kept consistent unless some C code sets interp->result * values are kept consistent unless some C code sets interp->result
* directly. Programmers should use either the procedure Tcl_GetObjResult() * directly. Programmers should use either the procedure Tcl_GetObjResult()
skipping to change at line 386 skipping to change at line 474
typedef struct Tcl_Event Tcl_Event; typedef struct Tcl_Event Tcl_Event;
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_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
/* /*
* Definition of the interface to procedures implementing threads. * Definition of the interface to procedures implementing threads.
* A procedure following this definition is given to each call of * A procedure following this definition is given to each call of
* 'Tcl_CreateThread' and will be called as the main fuction of * 'Tcl_CreateThread' and will be called as the main fuction of
* the new thread created by that call. * the new thread created by that call.
*/ */
#ifdef MAC_TCL #ifdef MAC_TCL
typedef pascal void *(Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientD ata)); typedef pascal void *(Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientD ata));
#elif defined __WIN32__ #elif defined __WIN32__
typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData c lientData)); typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData c lientData));
#else #else
typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData));
#endif #endif
/* /*
* Threading function return types used for abstracting away platform * Threading function return types used for abstracting away platform
skipping to change at line 488 skipping to change at line 571
* pairs */ * pairs */
long extendStart; /* The offset at which a subsequent long extendStart; /* The offset at which a subsequent
* match might begin. */ * match might begin. */
long reserved; /* Reserved for later use. */ long reserved; /* Reserved for later use. */
} Tcl_RegExpInfo; } Tcl_RegExpInfo;
/* /*
* Picky compilers complain if this typdef doesn't appear before the * Picky compilers complain if this typdef doesn't appear before the
* struct's reference in tclDecls.h. * struct's reference in tclDecls.h.
*/ */
typedef Tcl_StatBuf *Tcl_Stat_;
typedef struct stat *Tcl_Stat_; typedef struct stat *Tcl_OldStat_;
/* /*
* When a TCL command returns, the interpreter contains a result from the * When a TCL command returns, the interpreter contains a result from the
* command. Programmers are strongly encouraged to use one of the * command. Programmers are strongly encouraged to use one of the
* procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the * procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the
* interpreter's result. See the SetResult man page for details. Besides * interpreter's result. See the SetResult man page for details. Besides
* this result, the command procedure returns an integer code, which is * this result, the command procedure returns an integer code, which is
* one of the following: * one of the following:
* *
* TCL_OK Command completed normally; the interpreter's * TCL_OK Command completed normally; the interpreter's
skipping to change at line 511 skipping to change at line 594
* TCL_ERROR The command couldn't be completed successfully; * TCL_ERROR The command couldn't be completed successfully;
* the interpreter's result describes what went wrong. * the interpreter's result describes what went wrong.
* TCL_RETURN The command requests that the current procedure * TCL_RETURN The command requests that the current procedure
* return; the interpreter's result contains the * return; the interpreter's result contains the
* procedure's return value. * procedure's return value.
* TCL_BREAK The command requests that the innermost loop * TCL_BREAK The command requests that the innermost loop
* be exited; the interpreter's result is meaningless. * be exited; the interpreter's result is meaningless.
* TCL_CONTINUE Go on to the next iteration of the current l oop; * TCL_CONTINUE Go on to the next iteration of the current l oop;
* the interpreter's result is meaningless. * the interpreter's result is meaningless.
*/ */
#define TCL_OK 0 #define TCL_OK 0
#define TCL_ERROR 1 #define TCL_ERROR 1
#define TCL_RETURN 2 #define TCL_RETURN 2
#define TCL_BREAK 3 #define TCL_BREAK 3
#define TCL_CONTINUE 4 #define TCL_CONTINUE 4
#define TCL_RESULT_SIZE 200 #define TCL_RESULT_SIZE 200
/* /*
* Argument descriptors for math function callbacks in expressions: * Flags to control what substitutions are performed by Tcl_SubstObj():
*/ */
#define TCL_SUBST_COMMANDS 001
#define TCL_SUBST_VARIABLES 002
#define TCL_SUBST_BACKSLASHES 004
#define TCL_SUBST_ALL 007
typedef enum {TCL_INT, TCL_DOUBLE, TCL_EITHER} Tcl_ValueType; /*
* Argument descriptors for math function callbacks in expressions:
*/
typedef enum {
TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT
#ifdef TCL_WIDE_INT_IS_LONG
= TCL_INT
#endif
} Tcl_ValueType;
typedef struct Tcl_Value { typedef struct Tcl_Value {
Tcl_ValueType type; /* Indicates intValue or doubleValue is Tcl_ValueType type; /* Indicates intValue or doubleValue is
* valid, or both. */ * valid, or both. */
long intValue; /* Integer value. */ long intValue; /* Integer value. */
double doubleValue; /* Double-precision floating value. */ double doubleValue; /* Double-precision floating value. */
#ifndef TCL_WIDE_INT_IS_LONG
Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */
#endif
} 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 procedure types declared
* below. * below.
*/ */
struct Tcl_Obj; struct Tcl_Obj;
/* /*
* Procedure types defined by Tcl: * Procedure 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 ));
skipping to change at line 551 skipping to change at line 647
* Procedure types defined by Tcl: * Procedure 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, char *argv[])); Tcl_Interp *interp, int argc, CONST84 char *argv[]));
typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc,
ClientData cmdClientData, int argc, char *argv[])); ClientData cmdClientData, int argc, CONST84 char *argv[]));
typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int level, CONST char *command,
Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv));
typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData
));
typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr,
struct Tcl_Obj *dupPtr)); struct Tcl_Obj *dupPtr));
typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData,
CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr,
char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr,
int *dstCharsPtr)); int *dstCharsPtr));
typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData));
typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags));
typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData,
int flags)); int flags));
skipping to change at line 583 skipping to change at line 683
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(char *, format)); typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(CONST char *, format)) ;
typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData,
Tcl_Channel chan, char *address, int port)); Tcl_Channel chan, char *address, int port));
typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData));
typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp,
struct Tcl_Obj *objPtr)); struct Tcl_Obj *objPtr));
typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr));
typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, char *part1, char *part2, int flags)); Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, int fl
ags));
typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, CONST char *oldName, CONST char *newName,
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_ServiceModeHookProc) _ANSI_ARGS_((int mode));
typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID));
typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)
);
typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void));
/* /*
* The following structure represents a type of object, which is a * The following structure represents a type of object, which is a
* particular internal representation for an object plus a set of * particular internal representation for an object plus a set of
* procedures that provide standard operations on objects of that type. * procedures that provide standard operations on objects of that type.
*/ */
typedef struct Tcl_ObjType { typedef struct Tcl_ObjType {
char *name; /* Name of the type, e.g. "int". */ char *name; /* Name of the type, e.g. "int". */
skipping to change at line 651 skipping to change at line 758
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
* has no internal rep (has no type). */ * has 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 */
struct { /* - internal rep as two pointers */ struct { /* - internal rep as two pointers */
VOID *ptr1; VOID *ptr1;
VOID *ptr2; VOID *ptr2;
} twoPtrValue; } twoPtrValue;
} internalRep; } internalRep;
} Tcl_Obj; } Tcl_Obj;
/* /*
* Macros to increment and decrement a Tcl_Obj's reference count, and to * Macros to increment and decrement a Tcl_Obj's reference count, and to
* test whether an object is shared (i.e. has reference count > 1). * test whether an object is shared (i.e. has reference count > 1).
skipping to change at line 712 skipping to change at line 819
# define Tcl_NewIntObj(val) \ # define Tcl_NewIntObj(val) \
Tcl_DbNewLongObj(val, __FILE__, __LINE__) Tcl_DbNewLongObj(val, __FILE__, __LINE__)
# define Tcl_NewListObj(objc, objv) \ # define Tcl_NewListObj(objc, objv) \
Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__)
# define Tcl_NewLongObj(val) \ # define Tcl_NewLongObj(val) \
Tcl_DbNewLongObj(val, __FILE__, __LINE__) Tcl_DbNewLongObj(val, __FILE__, __LINE__)
# define Tcl_NewObj() \ # define Tcl_NewObj() \
Tcl_DbNewObj(__FILE__, __LINE__) Tcl_DbNewObj(__FILE__, __LINE__)
# define Tcl_NewStringObj(bytes, len) \ # define Tcl_NewStringObj(bytes, len) \
Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
# define Tcl_NewWideIntObj(val) \
Tcl_DbNewWideIntObj(val, __FILE__, __LINE__)
#endif /* TCL_MEM_DEBUG */ #endif /* TCL_MEM_DEBUG */
/* /*
* The following structure contains the state needed by * The following structure contains the state needed by
* Tcl_SaveResult. No-one outside of Tcl should access any of these * Tcl_SaveResult. No-one outside of Tcl should access any of these
* fields. This structure is typically allocated on the stack. * 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;
skipping to change at line 828 skipping to change at line 936
* the same as clientData). */ * the same as clientData). */
Tcl_Namespace *namespacePtr; /* Points to the namespace that contains Tcl_Namespace *namespacePtr; /* Points to the namespace that contains
* this command. Note that Tcl_SetCmdInfo * this command. Note that Tcl_SetCmdInfo
* will not change a command's namespace; * will not change a command's namespace;
* use Tcl_RenameCommand to do that. */ * use Tcl_RenameCommand to do that. */
} Tcl_CmdInfo; } Tcl_CmdInfo;
/* /*
* The structure defined below is used to hold dynamic strings. The only * The structure defined below is used to hold dynamic strings. The only
* field that clients should use is the string field, and they should * field that clients should use is the string field, accessible via the
* never modify it. * macro Tcl_DStringValue.
*/ */
#define TCL_DSTRING_STATIC_SIZE 200 #define TCL_DSTRING_STATIC_SIZE 200
typedef struct Tcl_DString { typedef struct Tcl_DString {
char *string; /* Points to beginning of string: either char *string; /* Points to beginning of string: either
* staticSpace below or a malloced array. */ * staticSpace below or a malloced array. */
int length; /* Number of non-NULL characters in the int length; /* Number of non-NULL characters in the
* string. */ * string. */
int spaceAvl; /* Total number of bytes available for the int spaceAvl; /* Total number of bytes available for the
* string and its terminating NULL char. */ * string and its terminating NULL char. */
char staticSpace[TCL_DSTRING_STATIC_SIZE]; char staticSpace[TCL_DSTRING_STATIC_SIZE];
/* Space to use in common case where string /* Space to use in common case where string
skipping to change at line 854 skipping to change at line 961
#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) #define Tcl_DStringLength(dsPtr) ((dsPtr)->length)
#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) #define Tcl_DStringValue(dsPtr) ((dsPtr)->string)
#define Tcl_DStringTrunc Tcl_DStringSetLength #define Tcl_DStringTrunc Tcl_DStringSetLength
/* /*
* Definitions for the maximum number of digits of precision that may * Definitions for the maximum number of digits of precision that may
* be specified in the "tcl_precision" variable, and the number of * be specified in the "tcl_precision" variable, and the number of
* bytes of buffer space required by Tcl_PrintDouble. * bytes of buffer space required by Tcl_PrintDouble.
*/ */
#define TCL_MAX_PREC 17 #define TCL_MAX_PREC 17
#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) #define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10)
/* /*
* Definition for a number of bytes of buffer space sufficient to hold the * Definition for a number of bytes of buffer space sufficient to hold the
* string representation of an integer in base 10 (assuming the existence * string representation of an integer in base 10 (assuming the existence
* of 64-bit integers). * of 64-bit integers).
*/ */
#define TCL_INTEGER_SPACE 24 #define TCL_INTEGER_SPACE 24
/* /*
* Flag that may be passed to Tcl_ConvertElement to force it not to * Flag that may be passed to Tcl_ConvertElement to force it not to
* output braces (careful! if you change this flag be sure to change * output braces (careful! if you change this flag be sure to change
* the definitions at the front of tclUtil.c). * the definitions at the front of tclUtil.c).
*/ */
#define TCL_DONT_USE_BRACES 1 #define TCL_DONT_USE_BRACES 1
/* /*
* Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow
* abbreviated strings. * abbreviated strings.
*/ */
#define TCL_EXACT 1 #define TCL_EXACT 1
/* /*
* Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj. * Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj.
* WARNING: these bit choices must not conflict with the bit choices * WARNING: these bit choices must not conflict with the bit choices
* for evalFlag bits in tclInt.h!! * for evalFlag bits in tclInt.h!!
*/ */
#define TCL_NO_EVAL 0x10000 #define TCL_NO_EVAL 0x10000
#define TCL_EVAL_GLOBAL 0x20000 #define TCL_EVAL_GLOBAL 0x20000
#define TCL_EVAL_DIRECT 0x40000 #define TCL_EVAL_DIRECT 0x40000
#define TCL_EVAL_INVOKE 0x80000
/* /*
* Special freeProc values that may be passed to Tcl_SetResult (see * Special freeProc values that may be passed to Tcl_SetResult (see
* the man page for details): * the man page for details):
*/ */
#define TCL_VOLATILE ((Tcl_FreeProc *) 1) #define TCL_VOLATILE ((Tcl_FreeProc *) 1)
#define TCL_STATIC ((Tcl_FreeProc *) 0) #define TCL_STATIC ((Tcl_FreeProc *) 0)
#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) #define TCL_DYNAMIC ((Tcl_FreeProc *) 3)
/* /*
* Flag values passed to variable-related procedures. * Flag values passed to variable-related procedures.
*/ */
#define TCL_GLOBAL_ONLY 1 #define TCL_GLOBAL_ONLY 1
#define TCL_NAMESPACE_ONLY 2 #define TCL_NAMESPACE_ONLY 2
#define TCL_APPEND_VALUE 4 #define TCL_APPEND_VALUE 4
#define TCL_LIST_ELEMENT 8 #define TCL_LIST_ELEMENT 8
#define TCL_TRACE_READS 0x10 #define TCL_TRACE_READS 0x10
#define TCL_TRACE_WRITES 0x20 #define TCL_TRACE_WRITES 0x20
#define TCL_TRACE_UNSETS 0x40 #define TCL_TRACE_UNSETS 0x40
#define TCL_TRACE_DESTROYED 0x80 #define TCL_TRACE_DESTROYED 0x80
#define TCL_INTERP_DESTROYED 0x100 #define TCL_INTERP_DESTROYED 0x100
#define TCL_LEAVE_ERR_MSG 0x200 #define TCL_LEAVE_ERR_MSG 0x200
skipping to change at line 915 skipping to change at line 1016
#define TCL_NAMESPACE_ONLY 2 #define TCL_NAMESPACE_ONLY 2
#define TCL_APPEND_VALUE 4 #define TCL_APPEND_VALUE 4
#define TCL_LIST_ELEMENT 8 #define TCL_LIST_ELEMENT 8
#define TCL_TRACE_READS 0x10 #define TCL_TRACE_READS 0x10
#define TCL_TRACE_WRITES 0x20 #define TCL_TRACE_WRITES 0x20
#define TCL_TRACE_UNSETS 0x40 #define TCL_TRACE_UNSETS 0x40
#define TCL_TRACE_DESTROYED 0x80 #define TCL_TRACE_DESTROYED 0x80
#define TCL_INTERP_DESTROYED 0x100 #define TCL_INTERP_DESTROYED 0x100
#define TCL_LEAVE_ERR_MSG 0x200 #define TCL_LEAVE_ERR_MSG 0x200
#define TCL_TRACE_ARRAY 0x800 #define TCL_TRACE_ARRAY 0x800
#ifndef TCL_REMOVE_OBSOLETE_TRACES
/* Required to support old variable/vdelete/vinfo traces */
#define TCL_TRACE_OLD_STYLE 0x1000
#endif
/* Indicate the semantics of the result of a trace */
#define TCL_TRACE_RESULT_DYNAMIC 0x8000
#define TCL_TRACE_RESULT_OBJECT 0x10000
/*
* Flag values passed to command-related procedures.
*/
#define TCL_TRACE_RENAME 0x2000
#define TCL_TRACE_DELETE 0x4000
#define TCL_ALLOW_INLINE_COMPILATION 0x20000
/*
* Flag values passed to Tcl_CreateObjTrace, and used internally
* by command execution traces. Slots 4,8,16 and 32 are
* used internally by execution traces (see tclCmdMZ.c)
*/
#define TCL_TRACE_ENTER_EXEC 1
#define TCL_TRACE_LEAVE_EXEC 2
/* /*
* The TCL_PARSE_PART1 flag is deprecated and has no effect. * The TCL_PARSE_PART1 flag is deprecated and has no effect.
* The part1 is now always parsed whenever the part2 is NULL. * The part1 is now always parsed whenever the part2 is NULL.
* (This is to avoid a common error when converting code to * (This is to avoid a common error when converting code to
* use the new object based APIs and forgetting to give the * use the new object based APIs and forgetting to give the
* flag) * 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_READ_ONLY 0x80 #define TCL_LINK_READ_ONLY 0x80
/* /*
* Forward declaration of Tcl_HashTable. Needed by some C++ compilers * Forward declarations of Tcl_HashTable and related types.
* to prevent errors when the forward reference to Tcl_HashTable is
* encountered in the Tcl_HashEntry structure.
*/ */
typedef struct Tcl_HashKeyType Tcl_HashKeyType;
typedef struct Tcl_HashTable Tcl_HashTable;
typedef struct Tcl_HashEntry Tcl_HashEntry;
#ifdef __cplusplus typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr
struct Tcl_HashTable; ,
VOID *keyPtr));
typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr,
Tcl_HashEntry *hPtr));
typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_((
Tcl_HashTable *tablePtr, VOID *keyPtr));
typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr));
/*
* This flag controls whether the hash table stores the hash of a key, or
* recalculates it. There should be no reason for turning this flag off
* as it is completely binary and source compatible unless you directly
* access the bucketPtr member of the Tcl_HashTableEntry structure. This
* member has been removed and the space used to store the hash value.
*/
#ifndef TCL_HASH_KEY_STORE_HASH
# define TCL_HASH_KEY_STORE_HASH 1
#endif #endif
/* /*
* Structure definition for an entry in a hash table. No-one outside * Structure definition for an entry in a hash table. No-one outside
* Tcl should access any of these fields directly; use the macros * Tcl should access any of these fields directly; use the macros
* defined below. * defined below.
*/ */
typedef struct Tcl_HashEntry { struct Tcl_HashEntry {
struct Tcl_HashEntry *nextPtr; /* Pointer to next entry in this Tcl_HashEntry *nextPtr; /* Pointer to next entry in this
* hash bucket, or NULL for end of * hash bucket, or NULL for end of
* chain. */ * chain. */
struct Tcl_HashTable *tablePtr; /* Pointer to table containing entry Tcl_HashTable *tablePtr; /* Pointer to table containing entry
. */ . */
struct Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to #if TCL_HASH_KEY_STORE_HASH
# if TCL_PRESERVE_BINARY_COMPATABILITY
VOID *hash; /* Hash value, stored as poi
nter to
* ensure that the offsets of the
* fields in this structure are not
* changed. */
# else
unsigned int hash; /* Hash value. */
# endif
#else
Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to
* first entry in this entry's chain : * first entry in this entry's chain :
* used for deleting the entry. */ * used for deleting the entry. */
#endif
ClientData clientData; /* Application stores something here ClientData clientData; /* Application stores something here
* with 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. */
int words[1]; /* Multiple integer words for key. int words[1]; /* Multiple integer words for key.
* The actual size will be as large * The actual size will be as large
* as necessary for this table's * as necessary for this table's
* keys. */ * keys. */
char string[4]; /* String for key. The actual size char string[4]; /* String for key. The actual size
* will be as large as needed to hol d * will be as large as needed to hol d
* the key. */ * the key. */
} key; /* MUST BE LAST FIELD IN RECORD!! */ } key; /* MUST BE LAST FIELD IN RECORD!! */
} Tcl_HashEntry; };
/*
* Flags used in Tcl_HashKeyType.
*
* TCL_HASH_KEY_RANDOMIZE_HASH:
* There are some things, pointers for example
* which don't hash well because they do not us
e
* the lower bits. If this flag is set then the
* hash table will attempt to rectify this by
* randomising the bits and then using the uppe
r
* N bits as the index into the table.
*/
#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1
/*
* Structure definition for the methods associated with a hash table
* key type.
*/
#define TCL_HASH_KEY_TYPE_VERSION 1
struct Tcl_HashKeyType {
int version; /* Version of the table. If this structure i
s
* extended in future then the version can b
e
* used to distinguish between different
* structures.
*/
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;
/* Compares two keys and returns zero if they do not match, and non-zer
o
* if they do. If this is NULL then the pointers are compared.
*/
Tcl_CompareHashKeysProc *compareKeysProc;
/* Called to allocate memory for a new entry, i.e. if the key is a
* string then this could allocate a single block which contains enough
* space for both the entry and the string. Only the key field of the
* allocated Tcl_HashEntry structure needs to be filled in. If somethin
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;
/* Called to free memory associated with an entry. If something else ne
eds
* 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 is us
ed
* to free the Tcl_HashEntry.
*/
Tcl_FreeHashEntryProc *freeEntryProc;
};
/* /*
* 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 allocate space for these structures, but clients should never * can allocate space for these structures, but clients should never
* access any fields in this structure. * access any fields in this structure.
*/ */
#define TCL_SMALL_HASH_TABLE 4 #define TCL_SMALL_HASH_TABLE 4
typedef struct Tcl_HashTable { struct Tcl_HashTable {
Tcl_HashEntry **buckets; /* Pointer to bucket array. Each Tcl_HashEntry **buckets; /* Pointer to bucket array. Each
* element points to first entry in * element points to first entry in
* bucket's hash chain, or NULL. */ * bucket's hash chain, or NULL. */
Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE];
/* Bucket array used for small table s /* Bucket array used for small table s
* (to avoid mallocs and frees). */ * (to avoid mallocs and frees). */
int numBuckets; /* Total number of buckets allocated int numBuckets; /* Total number of buckets allocated
* at **bucketPtr. */ * at **bucketPtr. */
int numEntries; /* Total number of entries present int numEntries; /* Total number of entries present
* in table. */ * in table. */
int rebuildSize; /* Enlarge table when numEntries get s int rebuildSize; /* Enlarge table when numEntries get s
* to be this large. */ * to be this large. */
int downShift; /* Shift count used in hashing int downShift; /* Shift count used in hashing
* function. Designed to use high- * function. Designed to use high-
* order bits of randomized keys. */ * order bits of randomized keys. */
int mask; /* Mask value used in hashing int mask; /* Mask value used in hashing
* function. */ * function. */
int keyType; /* Type of keys used in this table. int keyType; /* Type of keys used in this table.
* It's either TCL_STRING_KEYS, * It's either TCL_CUSTOM_KEYS,
* TCL_ONE_WORD_KEYS, or an integer * TCL_STRING_KEYS, TCL_ONE_WORD_KEY
* giving the number of ints that S,
* is the size of the key. * or an integer giving the number o
f
* ints that is the size of the key.
*/ */
Tcl_HashEntry *(*findProc) _ANSI_ARGS_((struct Tcl_HashTable *tablePtr, #if TCL_PRESERVE_BINARY_COMPATABILITY
Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr,
CONST char *key)); CONST char *key));
Tcl_HashEntry *(*createProc) _ANSI_ARGS_((struct Tcl_HashTable *tablePt r, Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr,
CONST char *key, int *newPtr)); CONST char *key, int *newPtr));
} Tcl_HashTable; #endif
Tcl_HashKeyType *typePtr; /* Type of the keys used in the
* Tcl_HashTable. */
};
/* /*
* Structure definition for information used to keep track of searches * Structure definition for information used to keep track of searches
* through hash tables: * through 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 after present one. */ * enumerated after present one. */
Tcl_HashEntry *nextEntryPtr; /* Next entry to be enumerated in th e Tcl_HashEntry *nextEntryPtr; /* Next entry to be enumerated in th e
* the current bucket. */ * the current 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
* the entry.
* TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored
* in the entry.
* TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copie
d
* into the entry.
* TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary t
ypes, the
* pointer is stored in the entry.
*
* While maintaining binary compatability the above have to be distinct
* values as they are used to differentiate between old versions of the
* hash table which don't have a typePtr and new ones which do. Once binary
* compatability is discarded in favour of making more wide spread changes
* TCL_STRING_KEYS can be the same as TCL_CUSTOM_TYPE_KEYS, and
* TCL_ONE_WORD_KEYS can be the 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
#if TCL_PRESERVE_BINARY_COMPATABILITY
# 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: * Macros for clients to use to access fields of hash entries:
*/ */
#define Tcl_GetHashValue(h) ((h)->clientData) #define Tcl_GetHashValue(h) ((h)->clientData)
#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
#define Tcl_GetHashKey(tablePtr, h) \ #if TCL_PRESERVE_BINARY_COMPATABILITY
((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS) ? (h)->key.oneWor # define Tcl_GetHashKey(tablePtr, h) \
dValue \ ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \
: (h)->key.string)) (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \
? (h)->key.oneWordValue \
: (h)->key.string))
#else
# define Tcl_GetHashKey(tablePtr, h) \
((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 * Macros to use for clients to use to invoke find and create procedures
* for hash tables: * for hash tables:
*/ */
#define Tcl_FindHashEntry(tablePtr, key) \ #if TCL_PRESERVE_BINARY_COMPATABILITY
# define Tcl_FindHashEntry(tablePtr, key) \
(*((tablePtr)->findProc))(tablePtr, key) (*((tablePtr)->findProc))(tablePtr, key)
#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ # define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
(*((tablePtr)->createProc))(tablePtr, key, newPtr) (*((tablePtr)->createProc))(tablePtr, key, newPtr)
#else /* !TCL_PRESERVE_BINARY_COMPATABILITY */
/*
* Macro to use new extended version of Tcl_InitHashTable.
*/
# 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 * Flag values to pass to Tcl_DoOneEvent to disable searches
* for some kinds of events: * 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. These are the things that are queued in calls to Tcl_QueueEvent * system. These are the things that are queued in calls to Tcl_QueueEvent
skipping to change at line 1114 skipping to change at line 1365
long usec; /* Microseconds. */ long usec; /* Microseconds. */
} Tcl_Time; } Tcl_Time;
typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr));
typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr));
/* /*
* Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler
* to indicate what sorts of events are of interest: * 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
* disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, * disposition of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR,
* are also used in Tcl_GetStdChannel. * are also used in Tcl_GetStdChannel.
*/ */
#define TCL_STDIN (1<<1) #define TCL_STDIN (1<<1)
#define TCL_STDOUT (1<<2) #define TCL_STDOUT (1<<2)
#define TCL_STDERR (1<<3) #define TCL_STDERR (1<<3)
#define TCL_ENFORCE_MODE (1<<4) #define TCL_ENFORCE_MODE (1<<4)
/* /*
* Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel
* should be closed. * should be closed.
*/ */
#define TCL_CLOSE_READ (1<<1) #define TCL_CLOSE_READ (1<<1)
#define TCL_CLOSE_WRITE (1<<2) #define TCL_CLOSE_WRITE (1<<2)
/* /*
* Value to use as the closeProc for a channel that supports the * Value to use as the closeProc for a channel that supports the
* close2Proc interface. * close2Proc interface.
*/ */
#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1) #define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1)
/* /*
* Channel version tag. This was introduced in 8.3.2/8.4. * Channel version tag. This was introduced in 8.3.2/8.4.
*/ */
#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) #define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1)
#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) #define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2)
#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3)
/* /*
* Typedefs for the various operations in a channel type: * Typedefs for the various operations in a channel type:
*/ */
typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_((
ClientData instanceData, int mode)); ClientData instanceData, int mode));
typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData,
Tcl_Interp *interp)); Tcl_Interp *interp));
typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData,
Tcl_Interp *interp, int flags)); Tcl_Interp *interp, int flags));
typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData,
char *buf, int toRead, int *errorCodePtr)); char *buf, int toRead, int *errorCodePtr));
typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData,
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,
char *optionName, 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,
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_((
ClientData instanceData, Tcl_WideInt offset,
int mode, int *errorCodePtr));
/* /*
* The following declarations either map ckalloc and ckfree to * The following declarations either map ckalloc and ckfree to
* malloc and free, or they map them to procedures with all sorts * malloc and free, or they map them to procedures with all sorts
* of debugging hooks defined in tclCkalloc.c. * of debugging hooks defined in tclCkalloc.c.
*/ */
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) # define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) # define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__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 */ #else /* !TCL_MEM_DEBUG */
/* /*
* If we are not using the debugging allocator, we should call the * If we are not using the debugging allocator, we should call the
* Tcl_Alloc, et al. routines in order to guarantee that every module * Tcl_Alloc, et al. routines in order to guarantee that every module
* is using the same memory allocator both inside and outside of the * is using the same memory allocator both inside and outside of the
* Tcl library. * Tcl library.
*/ */
# define ckalloc(x) Tcl_Alloc(x) # define ckalloc(x) Tcl_Alloc(x)
# define ckfree(x) Tcl_Free(x) # define ckfree(x) Tcl_Free(x)
# define ckrealloc(x,y) Tcl_Realloc(x,y) # 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_InitMemory(x)
# define Tcl_DumpActiveMemory(x) # define Tcl_DumpActiveMemory(x)
# define Tcl_ValidateAllMemory(x,y) # define Tcl_ValidateAllMemory(x,y)
#endif /* !TCL_MEM_DEBUG */ #endif /* !TCL_MEM_DEBUG */
/* /*
* Enum for different end of line translation and recognition modes.
*/
typedef enum Tcl_EolTranslation {
TCL_TRANSLATE_AUTO, /* Eol == \r, \n and \r\n. *
/
TCL_TRANSLATE_CR, /* Eol == \r. */
TCL_TRANSLATE_LF, /* Eol == \n. */
TCL_TRANSLATE_CRLF /* Eol == \r\n. */
} Tcl_EolTranslation;
/*
* struct Tcl_ChannelType: * struct Tcl_ChannelType:
* *
* One such structure exists for each type (kind) of channel. * One such structure exists for each type (kind) of channel.
* It collects together in one place all the functions that are * It collects together in one place all the functions that are
* part of the specific channel type. * part of the specific channel type.
* *
* It is recommend that the Tcl_Channel* functions are used to access * It is recommend that the Tcl_Channel* functions are used to access
* elements of this structure, instead of direct accessing. * elements of this structure, instead of direct accessing.
*/ */
typedef struct Tcl_ChannelType { typedef struct Tcl_ChannelType {
char *typeName; /* The name of the channel type in T cl char *typeName; /* The name of the channel type in T cl
* commands. This storage is owned b * commands. This storage is owned
y by
* channel type. */ * channel type. */
Tcl_ChannelTypeVersion version; /* Version of the channel type. */ Tcl_ChannelTypeVersion version; /* Version of the channel type. */
Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the
* channel, or TCL_CLOSE2PROC if the * channel, or TCL_CLOSE2PROC if the
* close2Proc should be used * close2Proc should be used
* instead. */ * instead. */
Tcl_DriverInputProc *inputProc; /* Procedure to call for input Tcl_DriverInputProc *inputProc; /* Procedure to call for input
* on channel. */ * on channel. */
Tcl_DriverOutputProc *outputProc; /* Procedure to call for output Tcl_DriverOutputProc *outputProc; /* Procedure to call for output
* on channel. */ * on channel. */
Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek
skipping to change at line 1268 skipping to change at line 1506
/* Get an OS handle from the channel /* Get an OS handle from the channel
* or NULL if not supported. */ * or NULL if not supported. */
Tcl_DriverClose2Proc *close2Proc; /* Procedure to call to close the Tcl_DriverClose2Proc *close2Proc; /* Procedure to call to close the
* channel if the device supports * channel if the device supports
* closing the read & write sides * closing the read & write sides
* independently. */ * independently. */
Tcl_DriverBlockModeProc *blockModeProc; Tcl_DriverBlockModeProc *blockModeProc;
/* Set blocking mode for the /* Set blocking mode for the
* raw channel. May be NULL. */ * raw channel. May be NULL. */
/* /*
* Only valid in TCL_CHANNEL_VERSION_2 channels * Only valid in TCL_CHANNEL_VERSION_2 channels or later
*/ */
Tcl_DriverFlushProc *flushProc; /* Procedure to call to flush a Tcl_DriverFlushProc *flushProc; /* Procedure to call to flush a
* channel. May be NULL. */ * channel. May be NULL. */
Tcl_DriverHandlerProc *handlerProc; /* Procedure to call to hand le a Tcl_DriverHandlerProc *handlerProc; /* Procedure to call to hand le a
* channel event. This will be pass ed * channel event. This will be pass ed
* up the stacked channel chain. */ * up the stacked channel chain. */
/*
* Only valid in TCL_CHANNEL_VERSION_3 channels or later
*/
Tcl_DriverWideSeekProc *wideSeekProc;
/* Procedure to call to seek
* on the channel which can
* handle 64-bit offsets. May be
* NULL, and must be NULL if
* seekProc is NULL. */
} Tcl_ChannelType; } Tcl_ChannelType;
/* /*
* The following flags determine whether the blockModeProc above should * The following flags determine whether the blockModeProc above should
* set the channel into blocking or nonblocking mode. They are passed * set the channel into blocking or nonblocking mode. They are passed
* as arguments to the blockModeProc procedure in the above structure. * as arguments to the blockModeProc procedure in the above structure.
*/ */
#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. *
#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. * /
/ #define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking
#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking
* mode. */ * mode. */
/* /*
* Enum for different types of file paths. * Enum for different types of file paths.
*/ */
typedef enum Tcl_PathType { typedef enum Tcl_PathType {
TCL_PATH_ABSOLUTE, TCL_PATH_ABSOLUTE,
TCL_PATH_RELATIVE, TCL_PATH_RELATIVE,
TCL_PATH_VOLUME_RELATIVE TCL_PATH_VOLUME_RELATIVE
} Tcl_PathType; } Tcl_PathType;
/* /*
* The following structure is used to pass glob type data amongst
* the various glob routines and Tcl_FSMatchInDirectory.
*/
typedef struct Tcl_GlobTypeData {
/* Corresponds to bcdpfls as in 'find -t' */
int type;
/* Corresponds to file permissions */
int perm;
/* Acceptable mac type */
Tcl_Obj* macType;
/* Acceptable mac creator */
Tcl_Obj* macCreator;
} Tcl_GlobTypeData;
/*
* type and permission definitions for glob command
*/
#define TCL_GLOB_TYPE_BLOCK (1<<0)
#define TCL_GLOB_TYPE_CHAR (1<<1)
#define TCL_GLOB_TYPE_DIR (1<<2)
#define TCL_GLOB_TYPE_PIPE (1<<3)
#define TCL_GLOB_TYPE_FILE (1<<4)
#define TCL_GLOB_TYPE_LINK (1<<5)
#define TCL_GLOB_TYPE_SOCK (1<<6)
#define TCL_GLOB_PERM_RONLY (1<<0)
#define TCL_GLOB_PERM_HIDDEN (1<<1)
#define TCL_GLOB_PERM_R (1<<2)
#define TCL_GLOB_PERM_W (1<<3)
#define TCL_GLOB_PERM_X (1<<4)
/*
* Typedefs for the various filesystem operations:
*/
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 Tcl_Channel (Tcl_FSOpenFileChannelProc)
_ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *pathPtr,
int mode, int permissions));
typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp* interp,
Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern,
Tcl_GlobTypeData * types));
typedef Tcl_Obj* (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp));
typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_StatBuf *buf));
typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr));
typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr));
typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
int recursive, Tcl_Obj **errorPtr));
typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr,
Tcl_Obj *destPathPtr));
typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)
);
typedef Tcl_Obj* (Tcl_FSListVolumesProc) _ANSI_ARGS_((void));
/* We have to declare the utime structure here. */
struct utimbuf;
typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
struct utimbuf *tval));
typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj *pathPtr, int nextCheckpoint));
typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp,
int index, Tcl_Obj *pathPtr,
Tcl_Obj **objPtrRef));
typedef CONST char** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_((Tcl_Obj *path
Ptr,
Tcl_Obj** objPtrRef));
typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp,
int index, Tcl_Obj *pathPtr,
Tcl_Obj *objPtr));
typedef Tcl_Obj* (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
Tcl_Obj *toPtr, int linkType)
);
typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj *pathPtr,
Tcl_LoadHandle *handlePtr,
Tcl_FSUnloadFileProc **unloadProcPtr));
typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr,
ClientData *clientDataPtr));
typedef Tcl_Obj* (Tcl_FSFilesystemPathTypeProc)
_ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef Tcl_Obj* (Tcl_FSFilesystemSeparatorProc)
_ANSI_ARGS_((Tcl_Obj *pathPtr));
typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData
));
typedef ClientData (Tcl_FSDupInternalRepProc)
_ANSI_ARGS_((ClientData clientData));
typedef Tcl_Obj* (Tcl_FSInternalToNormalizedProc)
_ANSI_ARGS_((ClientData clientData));
typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_((Tcl_Obj *path
Ptr));
typedef struct Tcl_FSVersion_ *Tcl_FSVersion;
/*
*----------------------------------------------------------------
* Data structures related to hooking into the filesystem
*----------------------------------------------------------------
*/
/*
* Filesystem version tag. This was introduced in 8.4.
*/
#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1)
/*
* struct Tcl_Filesystem:
*
* One such structure exists for each type (kind) of filesystem.
* It collects together in one place all the functions that are
* part of the specific 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
* these functions. The explanations in the structure show
* the importance of each function.
*/
typedef struct Tcl_Filesystem {
CONST char *typeName; /* The name of the filesystem. */
int structureLength; /* Length of this structure, so future
* binary compatibility can be assured. */
Tcl_FSVersion version;
/* Version of the filesystem type. */
Tcl_FSPathInFilesystemProc *pathInFilesystemProc;
/* Function to check whether a path is in
* this filesystem. This is the most
* important filesystem procedure. */
Tcl_FSDupInternalRepProc *dupInternalRepProc;
/* Function to duplicate internal fs rep. May
* be NULL (but then fs is less efficient). */
Tcl_FSFreeInternalRepProc *freeInternalRepProc;
/* Function to free internal fs rep. Must
* be implemented, if internal representations
* need freeing, otherwise it can be NULL. */
Tcl_FSInternalToNormalizedProc *internalToNormalizedProc;
/* Function to convert internal representation
* to a normalized path. Only required if
* the fs creates pure path objects with no
* string/path representation. */
Tcl_FSCreateInternalRepProc *createInternalRepProc;
/* Function to create a filesystem-specific
* internal representation. May be NULL
* if paths have no internal representation,
* or if the Tcl_FSPathInFilesystemProc
* for this filesystem always immediately
* creates an internal representation for
* paths it accepts. */
Tcl_FSNormalizePathProc *normalizePathProc;
/* Function to normalize a path. Should
* be implemented for all filesystems
* which can have multiple string
* representations for the same path
* object. */
Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc;
/* Function to determine the type of a
* path in this filesystem. May be NULL. */
Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc;
/* Function to return the separator
* character(s) for this filesystem. Must
* be implemented. */
Tcl_FSStatProc *statProc;
/*
* Function to process a 'Tcl_FSStat()'
* call. Must be implemented for any
* reasonable filesystem.
*/
Tcl_FSAccessProc *accessProc;
/*
* Function to process a 'Tcl_FSAccess()'
* call. Must be implemented for any
* reasonable filesystem.
*/
Tcl_FSOpenFileChannelProc *openFileChannelProc;
/*
* Function to process a
* 'Tcl_FSOpenFileChannel()' call. Must be
* implemented for any reasonable
* filesystem.
*/
Tcl_FSMatchInDirectoryProc *matchInDirectoryProc;
/* Function to process a
* 'Tcl_FSMatchInDirectory()'. If not
* implemented, then glob and recursive
* copy functionality will be lacking in
* the filesystem. */
Tcl_FSUtimeProc *utimeProc;
/* Function to process a
* 'Tcl_FSUtime()' call. Required to
* allow setting (not reading) of times
* with 'file mtime', 'file atime' and
* the open-r/open-w/fcopy implementation
* of 'file copy'. */
Tcl_FSLinkProc *linkProc;
/* Function to process a
* 'Tcl_FSLink()' call. Should be
* implemented only if the filesystem supports
* links (reading or creating). */
Tcl_FSListVolumesProc *listVolumesProc;
/* Function to list any filesystem volumes
* added by this filesystem. Should be
* implemented only if the filesystem adds
* volumes at the head of the filesystem. */
Tcl_FSFileAttrStringsProc *fileAttrStringsProc;
/* Function to list all attributes strings
* which are valid for this filesystem.
* If not implemented the filesystem will
* not support the 'file attributes' command.
* This allows arbitrary additional information
* to be attached to files in the filesystem. */
Tcl_FSFileAttrsGetProc *fileAttrsGetProc;
/* Function to process a
* 'Tcl_FSFileAttrsGet()' call, used by
* 'file attributes'. */
Tcl_FSFileAttrsSetProc *fileAttrsSetProc;
/* Function to process a
* 'Tcl_FSFileAttrsSet()' call, used by
* 'file attributes'. */
Tcl_FSCreateDirectoryProc *createDirectoryProc;
/* Function to process a
* 'Tcl_FSCreateDirectory()' call. Should
* be implemented unless the FS is
* read-only. */
Tcl_FSRemoveDirectoryProc *removeDirectoryProc;
/* Function to process a
* 'Tcl_FSRemoveDirectory()' call. Should
* be implemented unless the FS is
* read-only. */
Tcl_FSDeleteFileProc *deleteFileProc;
/* Function to process a
* 'Tcl_FSDeleteFile()' call. Should
* be implemented unless the FS is
* read-only. */
Tcl_FSCopyFileProc *copyFileProc;
/* Function to process a
* 'Tcl_FSCopyFile()' call. If not
* implemented Tcl will fall back
* on open-r, open-w and fcopy as
* a copying mechanism, for copying
* actions initiated in Tcl (not C). */
Tcl_FSRenameFileProc *renameFileProc;
/* Function to process a
* 'Tcl_FSRenameFile()' call. If not
* implemented, Tcl will fall back on
* a copy and delete mechanism, for
* rename actions initiated in Tcl (not C). */
Tcl_FSCopyDirectoryProc *copyDirectoryProc;
/* Function to process a
* 'Tcl_FSCopyDirectory()' call. If
* not implemented, Tcl will fall back
* on a recursive create-dir, file copy
* mechanism, for copying actions
* initiated in Tcl (not C). */
Tcl_FSLstatProc *lstatProc;
/* Function to process a
* 'Tcl_FSLstat()' call. If not implemented,
* Tcl will attempt to use the 'statProc'
* defined above instead. */
Tcl_FSLoadFileProc *loadFileProc;
/* Function to process a
* 'Tcl_FSLoadFile()' call. If not
* implemented, Tcl will fall back on
* a copy to native-temp followed by a
* Tcl_FSLoadFile on that temporary copy. */
Tcl_FSGetCwdProc *getCwdProc;
/*
* Function to process a 'Tcl_FSGetCwd()'
* call. Most filesystems need not
* implement this. It will usually only be
* called once, if 'getcwd' is called
* before 'chdir'. May be NULL.
*/
Tcl_FSChdirProc *chdirProc;
/*
* Function to process a 'Tcl_FSChdir()'
* call. If filesystems do not implement
* this, it will be emulated by a series of
* directory access checks. Otherwise,
* virtual filesystems which do implement
* it need only respond with a positive
* return result if the dirName is a valid
* directory in their filesystem. They
* need not remember the result, since that
* will be automatically remembered for use
* by GetCwd. Real filesystems should
* carry out the correct action (i.e. call
* the correct system 'chdir' api). If not
* implemented, then 'cd' and 'pwd' will
* fail inside the filesystem.
*/
} Tcl_Filesystem;
/*
* The following definitions are used as values for the 'linkAction' flag
* to Tcl_FSLink, or the linkProc of any filesystem. Any combination
* of flags 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_HARD_LINK: Create a hard link.
*/
#define TCL_CREATE_SYMBOLIC_LINK 0x01
#define TCL_CREATE_HARD_LINK 0x02
/*
* The following structure represents the Notifier functions that * The following structure represents the Notifier functions that
* you can override with the Tcl_SetNotifier call. * you can override with the Tcl_SetNotifier call.
*/ */
typedef struct Tcl_NotifierProcs { typedef struct Tcl_NotifierProcs {
Tcl_SetTimerProc *setTimerProc; Tcl_SetTimerProc *setTimerProc;
Tcl_WaitForEventProc *waitForEventProc; Tcl_WaitForEventProc *waitForEventProc;
Tcl_CreateFileHandlerProc *createFileHandlerProc; Tcl_CreateFileHandlerProc *createFileHandlerProc;
Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; Tcl_DeleteFileHandlerProc *deleteFileHandlerProc;
Tcl_InitNotifierProc *initNotifierProc;
Tcl_FinalizeNotifierProc *finalizeNotifierProc;
Tcl_AlertNotifierProc *alertNotifierProc;
Tcl_ServiceModeHookProc *serviceModeHookProc;
} Tcl_NotifierProcs; } Tcl_NotifierProcs;
/* /*
* The following structure represents a user-defined encoding. It collects * The following structure represents a user-defined encoding. It collects
* together all the functions that are used by the specific encoding. * together all the functions that are used by the specific encoding.
*/ */
typedef struct Tcl_EncodingType { typedef struct Tcl_EncodingType {
CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp".
* This name is the unique key for this * This name is the unique key for this
* encoding type. */ * encoding type. */
Tcl_EncodingConvertProc *toUtfProc; Tcl_EncodingConvertProc *toUtfProc;
/* Procedure to convert from external /* Procedure to convert from external
* encoding into UTF-8. */ * encoding into UTF-8. */
Tcl_EncodingConvertProc *fromUtfProc; Tcl_EncodingConvertProc *fromUtfProc;
/* Procedure to convert from UTF-8 into /* Procedure to convert from UTF-8 into
* external encoding. */ * external encoding. */
skipping to change at line 1367 skipping to change at line 1919
* *
* 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 * immediately upon encountering an invalid
* byte sequence or a source character that has * byte sequence or a source character that has
* no mapping in the target encoding. If clear , * no mapping in the target encoding. If clear ,
* then the converter will skip the problem, * then 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 the destination buffer and then continue
* to sonvert the source. * to sonvert 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 * parser.
* Tcl parser. This stuff should all move to tcl.h eventually.
*----------------------------------------------------------------
*/ */
/* /*
* For each word of a command, and for each piece of a word such as a * For each word of a command, and for each piece of a word such as a
* variable reference, one of the following structures is created to * variable reference, one of the following structures is created to
* describe the token. * describe the token.
*/ */
typedef struct Tcl_Token { typedef struct Tcl_Token {
int type; /* Type of token, such as TCL_TOKEN_WORD; int type; /* Type of token, such as TCL_TOKEN_WORD;
* see below for valid types. */ * see below for valid types. */
char *start; /* First character in token. */ CONST char *start; /* First character in token. */
int size; /* Number of bytes in token. */ int size; /* Number of bytes in token. */
int numComponents; /* If this token is composed of other int numComponents; /* If this token is composed of other
* tokens, this field tells how many of * tokens, this field tells how many of
* them there are (including components of * them there are (including components of
* components, etc.). The component tokens * components, etc.). The component tokens
* immediately follow this one. */ * immediately follow this one. */
} Tcl_Token; } Tcl_Token;
/* /*
* Type values defined for Tcl_Token structures. These values are * Type values defined for Tcl_Token structures. These values are
skipping to change at line 1501 skipping to change at line 2047
#define TCL_PARSE_MISSING_PAREN 5 #define TCL_PARSE_MISSING_PAREN 5
#define TCL_PARSE_MISSING_QUOTE 6 #define TCL_PARSE_MISSING_QUOTE 6
#define TCL_PARSE_MISSING_VAR_BRACE 7 #define TCL_PARSE_MISSING_VAR_BRACE 7
#define TCL_PARSE_SYNTAX 8 #define TCL_PARSE_SYNTAX 8
#define TCL_PARSE_BAD_NUMBER 9 #define TCL_PARSE_BAD_NUMBER 9
/* /*
* A structure of the following type is filled in by Tcl_ParseCommand. * A structure of the following type is filled in by Tcl_ParseCommand.
* It describes a single command parsed from an input string. * It describes a single command parsed from an input string.
*/ */
#define NUM_STATIC_TOKENS 20 #define NUM_STATIC_TOKENS 20
typedef struct Tcl_Parse { typedef struct Tcl_Parse {
char *commentStart; /* Pointer to # that begins the firs t of CONST char *commentStart; /* Pointer to # that begins the first of
* one or more comments preceding the * one or more comments preceding the
* command. */ * command. */
int commentSize; /* Number of bytes in comments (up through int commentSize; /* Number of bytes in comments (up through
* newline character that terminates the * newline character that terminates the
* last comment). If there were no * last comment). If there were no
* comments, this field is 0. */ * comments, this field is 0. */
char *commandStart; /* First character in first word of command. */ CONST char *commandStart; /* First character in first word of command. */
int commandSize; /* Number of bytes in command, including int commandSize; /* Number of bytes in command, including
* first character of first word, up * first character of first word, up
* through the terminating newline, * through the terminating newline,
* close bracket, or semicolon. */ * close bracket, or semicolon. */
int numWords; /* Total number of words in command. May int numWords; /* Total number of words in command. May
* be 0. */ * be 0. */
Tcl_Token *tokenPtr; /* Pointer to first token representing Tcl_Token *tokenPtr; /* Pointer to first token representing
* the words of the command. Initially * the words of the command. Initially
* points to staticTokens, but may change * points to staticTokens, but may change
* to point to malloc-ed space if command * to point to malloc-ed space if command
skipping to change at line 1536 skipping to change at line 2081
* *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. They should not be used by procedures that invoke * parser. They should not be used by procedures that invoke
* Tcl_ParseCommand. * Tcl_ParseCommand.
*/ */
char *string; /* The original command string passed to CONST char *string; /* The original command string passe d to
* Tcl_ParseCommand. */ * Tcl_ParseCommand. */
char *end; /* Points to the character just after the CONST char *end; /* Points to the character just after the
* last one in the command string. */ * last one in the command string. */
Tcl_Interp *interp; /* Interpreter to use for error repo rting, Tcl_Interp *interp; /* Interpreter to use for error repo rting,
* or NULL. */ * or NULL. */
char *term; /* Points to character in string tha t CONST char *term; /* Points to character in string that
* terminated most recent token. Filled in * terminated most recent token. Filled in
* by ParseTokens. If an error occurs, * by ParseTokens. If an error occurs,
* points to beginning of region where the * points to beginning of region where the
* error occurred (e.g. the open brace if * error occurred (e.g. the open brace if
* the close brace is missing). */ * the close 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];
skipping to change at line 1591 skipping to change at line 2136
* input stream has been damaged or if the inpu t * input stream has been damaged or if the inpu t
* encoding method was misidentified. This err or * encoding method was misidentified. This err or
* is reported only if TCL_ENCODING_STOPONERROR * is reported only if TCL_ENCODING_STOPONERROR
* was specified. * was specified.
* *
* TCL_CONVERT_UNKNOWN: The source string contained a charac ter * TCL_CONVERT_UNKNOWN: The source string contained a charac ter
* that could not be represented in the target * that could not be represented in the target
* encoding. This error is reported only if * encoding. This error is reported only if
* TCL_ENCODING_STOPONERROR was specified. * TCL_ENCODING_STOPONERROR was specified.
*/ */
#define TCL_CONVERT_MULTIBYTE -1 #define TCL_CONVERT_MULTIBYTE -1
#define TCL_CONVERT_SYNTAX -2 #define TCL_CONVERT_SYNTAX -2
#define TCL_CONVERT_UNKNOWN -3 #define TCL_CONVERT_UNKNOWN -3
#define TCL_CONVERT_NOSPACE -4 #define TCL_CONVERT_NOSPACE -4
/* /*
* The maximum number of bytes that are necessary to represent a single * The maximum number of bytes that are necessary to represent a single
* Unicode character in UTF-8. * Unicode character in UTF-8.
*/ */
#define TCL_UTF_MAX 3 #define TCL_UTF_MAX 3
/* /*
* This represents a Unicode character. * This represents a Unicode character. Any changes to this should
* also be reflected in regcustom.h.
*/ */
typedef unsigned short Tcl_UniChar; typedef unsigned short Tcl_UniChar;
/* /*
* Deprecated Tcl procedures: * Deprecated Tcl procedures:
*/ */
#ifndef TCL_NO_DEPRECATED #ifndef TCL_NO_DEPRECATED
#define Tcl_EvalObj(interp,objPtr) Tcl_EvalObjEx((interp),(objPtr),0) # define Tcl_EvalObj(interp,objPtr) \
#define Tcl_GlobalEvalObj(interp,objPtr) \ Tcl_EvalObjEx((interp),(objPtr),0)
# define Tcl_GlobalEvalObj(interp,objPtr) \
Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
#endif #endif
/* /*
* These function have been renamed. The old names are deprecated, but we * These function have been renamed. The old names are deprecated, but we
* define these macros for backwards compatibilty. * define these macros for backwards compatibilty.
*/ */
#define Tcl_Ckalloc Tcl_Alloc #define Tcl_Ckalloc Tcl_Alloc
#define Tcl_Ckfree Tcl_Free #define Tcl_Ckfree Tcl_Free
#define Tcl_Ckrealloc Tcl_Realloc #define Tcl_Ckrealloc Tcl_Realloc
#define Tcl_Return Tcl_SetResult #define Tcl_Return Tcl_SetResult
#define Tcl_TildeSubst Tcl_TranslateFileName #define Tcl_TildeSubst Tcl_TranslateFileName
#define panic Tcl_Panic #define panic Tcl_Panic
#define panicVA Tcl_PanicVA #define panicVA Tcl_PanicVA
/* /*
* The following constant is used to test for older versions of Tcl * The following constant is used to test for older versions of Tcl
skipping to change at line 1641 skipping to change at line 2183
#define panicVA Tcl_PanicVA #define panicVA Tcl_PanicVA
/* /*
* 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 stubs tables. * in the 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 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, not the main Tcl library, although there is a trivial * library, not the main Tcl library, although there is a trivial
* implementation in the main library in case an extension is statically * implementation in the main library in case an extension is statically
* linked into an application. * linked into an application.
*/ */
EXTERN char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
char *version, int exact)); CONST char *version, int exact));
#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_PkgRequire(interp, "Tcl", version, exact)
#endif #endif
/* /*
* Include the public function declarations that are accessible via * Include the public function declarations that are accessible via
* the stubs table. * the stubs table.
*/ */
#include "tclDecls.h" #include "tclDecls.h"
/* /*
* Include platform specific public function declarations that are
* accessible via the stubs table.
*/
/*
* tclPlatDecls.h can't be included here on the Mac, as we need
* Mac specific headers to define the Mac types used in this file,
* but these Mac haders conflict with a number of tk types
* and thus can't be included in the globally read tcl.h
* This header was originally added here as a fix for bug 5241
* (stub link error for symbols in TclPlatStubs table), as a work-
* around for the bug on the mac, tclMac.h is included immediately
* after tcl.h in the tcl precompiled header (with DLLEXPORT set).
*/
#if !defined(MAC_TCL)
#include "tclPlatDecls.h"
#endif
/*
* Public functions that are not accessible via the stubs table. * Public functions that are not accessible via the stubs table.
*/ */
EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv,
Tcl_AppInitProc *appInitProc)); Tcl_AppInitProc *appInitProc));
/* /*
* Convenience declaration of Tcl_AppInit for backwards compatibility. * Convenience declaration of Tcl_AppInit for backwards compatibility.
* This function is not *implemented* by the tcl library, so the storage * This function is not *implemented* by the tcl library, so the storage
* class is neither DLLEXPORT nor DLLIMPORT * class is neither DLLEXPORT nor DLLIMPORT
skipping to change at line 1684 skipping to change at line 2246
*/ */
EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv,
Tcl_AppInitProc *appInitProc)); Tcl_AppInitProc *appInitProc));
/* /*
* Convenience declaration of Tcl_AppInit for backwards compatibility. * Convenience declaration of Tcl_AppInit for backwards compatibility.
* This function is not *implemented* by the tcl library, so the storage * This function is not *implemented* by the tcl library, so the storage
* class is neither DLLEXPORT nor DLLIMPORT * class is neither DLLEXPORT nor DLLIMPORT
*/ */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS
EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
#endif /* RESOURCE_INCLUDED */ #endif /* RC_INVOKED */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #define TCL_STORAGE_CLASS DLLIMPORT
#endif /* RESOURCE_INCLUDED */
/* /*
* end block for C++ * end block for C++
*/ */
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif /* _TCL */ #endif /* _TCL */
 End of changes. 140 change blocks. 
221 lines changed or deleted 822 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.34.2.2 2001/08/28 00:12:43 hobbs Exp $ * RCS: @(#) $Id: tclDecls.h,v 1.93 2002/08/05 15:01:04 dgp Exp $
*/ */
#ifndef _TCLDECLS #ifndef _TCLDECLS
#define _TCLDECLS #define _TCLDECLS
/* /*
* WARNING: This file is automatically generated by the tools/genStubs.tcl * WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be made * script. Any modifications to the function declarations below should be made
* in the generic/tcl.decls script. * in the generic/tcl.decls script.
*/ */
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
/* 0 */ /* 0 */
EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp* interp,
char * name, char * version, CONST char* name, CONST char* version,
ClientData clientData)); ClientData clientData));
/* 1 */ /* 1 */
EXTERN char * Tcl_PkgRequireEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_PkgRequireEx _ANSI_ARGS_((
char * name, char * version, int exact, Tcl_Interp * interp, CONST char * name,
CONST char * version, int exact,
ClientData * clientDataPtr)); ClientData * clientDataPtr));
/* 2 */ /* 2 */
EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(CONST char *,forma t));
/* 3 */ /* 3 */
EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size));
/* 4 */ /* 4 */
EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr)); EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr));
/* 5 */ /* 5 */
EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr, EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr,
unsigned int size)); unsigned int size));
/* 6 */ /* 6 */
EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,
char * file, int line)); CONST char * file, int line));
/* 7 */ /* 7 */
EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, char * file, EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr,
int line)); CONST char * file, int line));
/* 8 */ /* 8 */
EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr, EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr,
unsigned int size, char * file, int line)); unsigned int size, CONST char * file,
int line));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 9 */ /* 9 */
EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask,
Tcl_FileProc * proc, ClientData clientData)) ; Tcl_FileProc * proc, ClientData clientData)) ;
#endif /* UNIX */ #endif /* UNIX */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 10 */ /* 10 */
EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd));
#endif /* UNIX */ #endif /* UNIX */
/* 11 */ /* 11 */
skipping to change at line 76 skipping to change at line 78
/* 12 */ /* 12 */
EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms));
/* 13 */ /* 13 */
EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr));
/* 14 */ /* 14 */
EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr)); Tcl_Interp * interp, Tcl_Obj * objPtr));
/* 15 */ /* 15 */
EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_O bj *,objPtr)); EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_O bj *,objPtr));
/* 16 */ /* 16 */
EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj* objPtr,
char * bytes, int length)); CONST char* bytes, int length));
/* 17 */ /* 17 */
EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 18 */ /* 18 */
EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); Tcl_Obj * objPtr, Tcl_ObjType * typePtr));
/* 19 */ /* 19 */
EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr,
char * file, int line)); CONST char * file, int line));
/* 20 */ /* 20 */
EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr,
char * file, int line)); CONST char * file, int line));
/* 21 */ /* 21 */
EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr,
char * file, int line)); CONST char * file, int line));
/* 22 */ /* 22 */
EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue,
char * file, int line)); CONST char * file, int line));
/* 23 */ /* 23 */
EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_((
unsigned char * bytes, int length, CONST unsigned char * bytes, int length,
char * file, int line)); CONST char * file, int line));
/* 24 */ /* 24 */
EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue,
char * file, int line)); CONST char * file, int line));
/* 25 */ /* 25 */
EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc,
Tcl_Obj *CONST objv[], char * file, int line Tcl_Obj *CONST * objv, CONST char * file,
)); int line));
/* 26 */ /* 26 */
EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue,
char * file, int line)); CONST char * file, int line));
/* 27 */ /* 27 */
EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((char * file, int line)); EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((CONST char * file,
int line));
/* 28 */ /* 28 */
EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes, EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes,
int length, char * file, int line)); int length, CONST char * file, int line));
/* 29 */ /* 29 */
EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 30 */ /* 30 */
EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 31 */ /* 31 */
EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp,
char * str, int * boolPtr)); CONST char * str, int * boolPtr));
/* 32 */ /* 32 */
EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp * interp, Tcl_Obj * objPtr,
int * boolPtr)); int * boolPtr));
/* 33 */ /* 33 */
EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_(( EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_((
Tcl_Obj * objPtr, int * lengthPtr)); Tcl_Obj * objPtr, int * lengthPtr));
/* 34 */ /* 34 */
EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp,
char * str, double * doublePtr)); CONST char * str, double * doublePtr));
/* 35 */ /* 35 */
EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp * interp, Tcl_Obj * objPtr,
double * doublePtr)); double * doublePtr));
/* 36 */ /* 36 */
EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp , EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp ,
Tcl_Obj * objPtr, char ** tablePtr, Tcl_Obj * objPtr, CONST84 char ** tablePtr,
char * msg, int flags, int * indexPtr)); CONST char * msg, int flags, int * indexPtr)
);
/* 37 */ /* 37 */
EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp,
char * str, int * intPtr)); CONST char * str, int * intPtr));
/* 38 */ /* 38 */
EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, int * intPtr)); Tcl_Obj * objPtr, int * intPtr));
/* 39 */ /* 39 */
EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, long * longPtr)); Tcl_Obj * objPtr, long * longPtr));
/* 40 */ /* 40 */
EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char * typeName)); EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((CONST char * typeName));
/* 41 */ /* 41 */
EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr,
int * lengthPtr)); int * lengthPtr));
/* 42 */ /* 42 */
EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_(( EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_((
Tcl_Obj * objPtr)); Tcl_Obj * objPtr));
/* 43 */ /* 43 */
EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Interp * interp, Tcl_Obj * listPtr,
Tcl_Obj * elemListPtr)); Tcl_Obj * elemListPtr));
skipping to change at line 174 skipping to change at line 178
/* 45 */ /* 45 */
EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Interp * interp, Tcl_Obj * listPtr,
int * objcPtr, Tcl_Obj *** objvPtr)); int * objcPtr, Tcl_Obj *** objvPtr));
/* 46 */ /* 46 */
EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * listPtr, int index, Tcl_Obj * listPtr, int index,
Tcl_Obj ** objPtrPtr)); Tcl_Obj ** objPtrPtr));
/* 47 */ /* 47 */
EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * listPtr, int * intPtr)); Tcl_Obj * listPtr, int * lengthPtr));
/* 48 */ /* 48 */
EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * listPtr, int first, int count, Tcl_Obj * listPtr, int first, int count,
int objc, Tcl_Obj *CONST objv[])); int objc, Tcl_Obj *CONST objv[]));
/* 49 */ /* 49 */
EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue));
/* 50 */ /* 50 */
EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_((
unsigned char * bytes, int length)); CONST unsigned char* bytes, int length));
/* 51 */ /* 51 */
EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue));
/* 52 */ /* 52 */
EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue));
/* 53 */ /* 53 */
EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 54 */ /* 54 */
EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue));
/* 55 */ /* 55 */
skipping to change at line 206 skipping to change at line 210
EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes, EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes,
int length)); int length));
/* 57 */ /* 57 */
EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr,
int boolValue)); int boolValue));
/* 58 */ /* 58 */
EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr , EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr ,
int length)); int length));
/* 59 */ /* 59 */
EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr,
unsigned char * bytes, int length)); CONST unsigned char * bytes, int length));
/* 60 */ /* 60 */
EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr,
double doubleValue)); double doubleValue));
/* 61 */ /* 61 */
EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr,
int intValue)); int intValue));
/* 62 */ /* 62 */
EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr,
int objc, Tcl_Obj *CONST objv[])); int objc, Tcl_Obj *CONST objv[]));
/* 63 */ /* 63 */
EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr,
long longValue)); long longValue));
/* 64 */ /* 64 */
EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr,
int length)); int length));
/* 65 */ /* 65 */
EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj* objPtr,
char * bytes, int length)); CONST char* bytes, int length));
/* 66 */ /* 66 */
EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * message)); CONST char * message));
/* 67 */ /* 67 */
EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp ,
CONST char * message, int length)); CONST char * message, int length));
/* 68 */ /* 68 */
EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp )); EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp ));
/* 69 */ /* 69 */
EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp,
skipping to change at line 257 skipping to change at line 261
EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
/* 75 */ /* 75 */
EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void));
/* 76 */ /* 76 */
EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp * interp )); EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp * interp ));
/* 77 */ /* 77 */
EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char * src, EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char * src,
int * readPtr)); int * readPtr));
/* 78 */ /* 78 */
EXTERN int Tcl_BadChannelOption _ANSI_ARGS_(( EXTERN int Tcl_BadChannelOption _ANSI_ARGS_((
Tcl_Interp * interp, char * optionName, Tcl_Interp * interp, CONST char * optionName
char * optionList)); ,
CONST char * optionList));
/* 79 */ /* 79 */
EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp * interp ,
Tcl_InterpDeleteProc * proc, Tcl_InterpDeleteProc * proc,
ClientData clientData)); ClientData clientData));
/* 80 */ /* 80 */
EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_((
Tcl_IdleProc * idleProc, Tcl_IdleProc * idleProc,
ClientData clientData)); ClientData clientData));
/* 81 */ /* 81 */
EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Channel chan)); Tcl_Channel chan));
/* 82 */ /* 82 */
EXTERN int Tcl_CommandComplete _ANSI_ARGS_((char * cmd)); EXTERN int Tcl_CommandComplete _ANSI_ARGS_((CONST char * cmd));
/* 83 */ /* 83 */
EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, char ** argv)); EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc,
CONST84 char * CONST * argv));
/* 84 */ /* 84 */
EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src,
char * dst, int flags)); char * dst, int flags));
/* 85 */ /* 85 */
EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_((
CONST char * src, int length, char * dst, CONST char * src, int length, char * dst,
int flags)); int flags));
/* 86 */ /* 86 */
EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp * slave, EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp * slave,
char * slaveCmd, Tcl_Interp * target, CONST char * slaveCmd, Tcl_Interp * target,
char * targetCmd, int argc, char ** argv)); CONST char * targetCmd, int argc,
CONST84 char * CONST * argv));
/* 87 */ /* 87 */
EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp * slave, EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp * slave,
char * slaveCmd, Tcl_Interp * target, CONST char * slaveCmd, Tcl_Interp * target,
char * targetCmd, int objc, CONST char * targetCmd, int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 88 */ /* 88 */
EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_((
Tcl_ChannelType * typePtr, char * chanName, Tcl_ChannelType * typePtr,
CONST char * chanName,
ClientData instanceData, int mask)); ClientData instanceData, int mask));
/* 89 */ /* 89 */
EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_((
Tcl_Channel chan, int mask, Tcl_Channel chan, int mask,
Tcl_ChannelProc * proc, Tcl_ChannelProc * proc,
ClientData clientData)); ClientData clientData));
/* 90 */ /* 90 */
EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan , EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan ,
Tcl_CloseProc * proc, ClientData clientData) ); Tcl_CloseProc * proc, ClientData clientData) );
/* 91 */ /* 91 */
EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp,
char * cmdName, Tcl_CmdProc * proc, CONST char * cmdName, Tcl_CmdProc * proc,
ClientData clientData, ClientData clientData,
Tcl_CmdDeleteProc * deleteProc)); Tcl_CmdDeleteProc * deleteProc));
/* 92 */ /* 92 */
EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( EXTERN void Tcl_CreateEventSource _ANSI_ARGS_((
Tcl_EventSetupProc * setupProc, Tcl_EventSetupProc * setupProc,
Tcl_EventCheckProc * checkProc, Tcl_EventCheckProc * checkProc,
ClientData clientData)); ClientData clientData));
/* 93 */ /* 93 */
EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc * proc, ClientData clientData)) ;
/* 94 */ /* 94 */
EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void));
/* 95 */ /* 95 */
EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp,
char * name, int numArgs, CONST char * name, int numArgs,
Tcl_ValueType * argTypes, Tcl_ValueType * argTypes,
Tcl_MathProc * proc, ClientData clientData)) ; Tcl_MathProc * proc, ClientData clientData)) ;
/* 96 */ /* 96 */
EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_(( EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_((
Tcl_Interp * interp, char * cmdName, Tcl_Interp * interp, CONST char * cmdName,
Tcl_ObjCmdProc * proc, ClientData clientData , Tcl_ObjCmdProc * proc, ClientData clientData ,
Tcl_CmdDeleteProc * deleteProc)); Tcl_CmdDeleteProc * deleteProc));
/* 97 */ /* 97 */
EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp * interp,
char * slaveName, int isSafe)); CONST char * slaveName, int isSafe));
/* 98 */ /* 98 */
EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds , EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds ,
Tcl_TimerProc * proc, ClientData clientData) ); Tcl_TimerProc * proc, ClientData clientData) );
/* 99 */ /* 99 */
EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp * interp,
int level, Tcl_CmdTraceProc * proc, int level, Tcl_CmdTraceProc * proc,
ClientData clientData)); ClientData clientData));
/* 100 */ /* 100 */
EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp ,
char * name)); CONST char * name));
/* 101 */ /* 101 */
EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_((
Tcl_Channel chan, Tcl_ChannelProc * proc, Tcl_Channel chan, Tcl_ChannelProc * proc,
ClientData clientData)); ClientData clientData));
/* 102 */ /* 102 */
EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan , EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan ,
Tcl_CloseProc * proc, ClientData clientData) ); Tcl_CloseProc * proc, ClientData clientData) );
/* 103 */ /* 103 */
EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp,
char * cmdName)); CONST char * cmdName));
/* 104 */ /* 104 */
EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Command command)); Tcl_Interp * interp, Tcl_Command command));
/* 105 */ /* 105 */
EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( EXTERN void Tcl_DeleteEvents _ANSI_ARGS_((
Tcl_EventDeleteProc * proc, Tcl_EventDeleteProc * proc,
ClientData clientData)); ClientData clientData));
/* 106 */ /* 106 */
EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_((
Tcl_EventSetupProc * setupProc, Tcl_EventSetupProc * setupProc,
skipping to change at line 427 skipping to change at line 434
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 124 */ /* 124 */
EXTERN void Tcl_DStringSetLength _ANSI_ARGS_(( EXTERN void Tcl_DStringSetLength _ANSI_ARGS_((
Tcl_DString * dsPtr, int length)); Tcl_DString * dsPtr, int length));
/* 125 */ /* 125 */
EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_((
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 126 */ /* 126 */
EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan));
/* 127 */ /* 127 */
EXTERN char * Tcl_ErrnoId _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_ErrnoId _ANSI_ARGS_((void));
/* 128 */ /* 128 */
EXTERN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); EXTERN CONST84_RETURN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err));
/* 129 */ /* 129 */
EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp * interp,
char * string)); CONST char * string));
/* 130 */ /* 130 */
EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp * interp,
char * fileName)); CONST char * fileName));
/* 131 */ /* 131 */
EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr)); Tcl_Obj * objPtr));
/* 132 */ /* 132 */
EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( EXTERN void Tcl_EventuallyFree _ANSI_ARGS_((
ClientData clientData, ClientData clientData,
Tcl_FreeProc * freeProc)); Tcl_FreeProc * freeProc));
/* 133 */ /* 133 */
EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); EXTERN void Tcl_Exit _ANSI_ARGS_((int status));
/* 134 */ /* 134 */
EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp,
char * hiddenCmdToken, char * cmdName)); CONST char * hiddenCmdToken,
CONST char * cmdName));
/* 135 */ /* 135 */
EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp,
char * str, int * ptr)); CONST char * str, int * ptr));
/* 136 */ /* 136 */
EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, int * ptr)); Tcl_Obj * objPtr, int * ptr));
/* 137 */ /* 137 */
EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp,
char * str, double * ptr)); CONST char * str, double * ptr));
/* 138 */ /* 138 */
EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, double * ptr)); Tcl_Obj * objPtr, double * ptr));
/* 139 */ /* 139 */
EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp,
char * str, long * ptr)); CONST char * str, long * ptr));
/* 140 */ /* 140 */
EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, long * ptr)); Tcl_Obj * objPtr, long * ptr));
/* 141 */ /* 141 */
EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr));
/* 142 */ /* 142 */
EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp,
char * string)); CONST char * string));
/* 143 */ /* 143 */
EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); EXTERN void Tcl_Finalize _ANSI_ARGS_((void));
/* 144 */ /* 144 */
EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char * argv0)) ; EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char * argv0)) ;
/* 145 */ /* 145 */
EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_((
Tcl_HashTable * tablePtr, Tcl_HashTable * tablePtr,
Tcl_HashSearch * searchPtr)); Tcl_HashSearch * searchPtr));
/* 146 */ /* 146 */
EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan));
/* 147 */ /* 147 */
EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp * interp));
/* 148 */ /* 148 */
EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp * interp,
char * slaveCmd, CONST char * slaveCmd,
Tcl_Interp ** targetInterpPtr, Tcl_Interp ** targetInterpPtr,
char ** targetCmdPtr, int * argcPtr, CONST84 char ** targetCmdPtr, int * argcPtr,
char *** argvPtr)); CONST84 char *** argvPtr));
/* 149 */ /* 149 */
EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp * interp,
char * slaveCmd, CONST char * slaveCmd,
Tcl_Interp ** targetInterpPtr, Tcl_Interp ** targetInterpPtr,
char ** targetCmdPtr, int * objcPtr, CONST84 char ** targetCmdPtr, int * objcPtr,
Tcl_Obj *** objv)); Tcl_Obj *** objv));
/* 150 */ /* 150 */
EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp,
char * name, Tcl_InterpDeleteProc ** procPtr CONST char * name,
)); Tcl_InterpDeleteProc ** procPtr));
/* 151 */ /* 151 */
EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp,
char * chanName, int * modePtr)); CONST char * chanName, int * modePtr));
/* 152 */ /* 152 */
EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_((
Tcl_Channel chan)); Tcl_Channel chan));
/* 153 */ /* 153 */
EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan,
int direction, ClientData * handlePtr)); int direction, ClientData * handlePtr));
/* 154 */ /* 154 */
EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_((
Tcl_Channel chan)); Tcl_Channel chan));
/* 155 */ /* 155 */
EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan));
/* 156 */ /* 156 */
EXTERN char * Tcl_GetChannelName _ANSI_ARGS_((Tcl_Channel chan)); EXTERN CONST84_RETURN char * Tcl_GetChannelName _ANSI_ARGS_((
Tcl_Channel chan));
/* 157 */ /* 157 */
EXTERN int Tcl_GetChannelOption _ANSI_ARGS_(( EXTERN int Tcl_GetChannelOption _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Channel chan, Tcl_Interp * interp, Tcl_Channel chan,
char * optionName, Tcl_DString * dsPtr)); CONST char * optionName, Tcl_DString * dsPtr ));
/* 158 */ /* 158 */
EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)) ; EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)) ;
/* 159 */ /* 159 */
EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp,
char * cmdName, Tcl_CmdInfo * infoPtr)); CONST char * cmdName, Tcl_CmdInfo * infoPtr) );
/* 160 */ /* 160 */
EXTERN char * Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_GetCommandName _ANSI_ARGS_((
Tcl_Command command)); Tcl_Interp * interp, Tcl_Command command));
/* 161 */ /* 161 */
EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); EXTERN int Tcl_GetErrno _ANSI_ARGS_((void));
/* 162 */ /* 162 */
EXTERN char * Tcl_GetHostName _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_GetHostName _ANSI_ARGS_((void));
/* 163 */ /* 163 */
EXTERN int Tcl_GetInterpPath _ANSI_ARGS_(( EXTERN int Tcl_GetInterpPath _ANSI_ARGS_((
Tcl_Interp * askInterp, Tcl_Interp * askInterp,
Tcl_Interp * slaveInterp)); Tcl_Interp * slaveInterp));
/* 164 */ /* 164 */
EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp * interp));
/* 165 */ /* 165 */
EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void));
/* 166 */ /* 166 */
EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 167 */ /* 167 */
EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp,
char * str, int forWriting, int checkUsage, CONST char * str, int forWriting,
ClientData * filePtr)); int checkUsage, ClientData * filePtr));
#endif /* UNIX */ #endif /* UNIX */
/* 168 */ /* 168 */
EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((char * path)); EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char * path));
/* 169 */ /* 169 */
EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan,
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 170 */ /* 170 */
EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan,
Tcl_Obj * objPtr)); Tcl_Obj * objPtr));
/* 171 */ /* 171 */
EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void));
/* 172 */ /* 172 */
EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp * interp,
char * slaveName)); CONST char * slaveName));
/* 173 */ /* 173 */
EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type));
/* 174 */ /* 174 */
EXTERN char * Tcl_GetStringResult _ANSI_ARGS_((Tcl_Interp * interp EXTERN CONST84_RETURN char * Tcl_GetStringResult _ANSI_ARGS_((
)); Tcl_Interp * interp));
/* 175 */ /* 175 */
EXTERN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, int flags)); CONST char * varName, int flags));
/* 176 */ /* 176 */
EXTERN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, int flags)); CONST char * part1, CONST char * part2,
int flags));
/* 177 */ /* 177 */
EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp * interp,
char * command)); CONST char * command));
/* 178 */ /* 178 */
EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr)); Tcl_Obj * objPtr));
/* 179 */ /* 179 */
EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp,
char * cmdName, char * hiddenCmdToken)); CONST char * cmdName,
CONST char * hiddenCmdToken));
/* 180 */ /* 180 */
EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp));
/* 181 */ /* 181 */
EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( EXTERN void Tcl_InitHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr, int keyType)); Tcl_HashTable * tablePtr, int keyType));
/* 182 */ /* 182 */
EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan));
/* 183 */ /* 183 */
EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan));
/* 184 */ /* 184 */
EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp * interp)) ; EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp * interp)) ;
/* 185 */ /* 185 */
EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp * interp));
/* 186 */ /* 186 */
EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, char ** argv, EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc,
CONST84 char * CONST * argv,
Tcl_DString * resultPtr)); Tcl_DString * resultPtr));
/* 187 */ /* 187 */
EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, char * addr, int type)); CONST char * varName, char * addr, int type) );
/* Slot 188 is reserved */ /* Slot 188 is reserved */
/* 189 */ /* 189 */
EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle,
int mode)); int mode));
/* 190 */ /* 190 */
EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp * interp));
/* 191 */ /* 191 */
EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_((
ClientData tcpSocket)); ClientData tcpSocket));
/* 192 */ /* 192 */
EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, char ** argv)); EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc,
CONST84 char * CONST * argv));
/* 193 */ /* 193 */
EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_((
Tcl_HashSearch * searchPtr)); Tcl_HashSearch * searchPtr));
/* 194 */ /* 194 */
EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel,
int mask)); int mask));
/* 195 */ /* 195 */
EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
int flags)); int flags));
/* 196 */ /* 196 */
EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
Tcl_Obj * newValuePtr, int flags)); Tcl_Obj * newValuePtr, int flags));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 197 */ /* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_((
Tcl_Interp * interp, int argc, char ** argv, Tcl_Interp * interp, int argc,
int flags)); CONST84 char ** argv, int flags));
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #ifdef __WIN32__
/* 197 */ /* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_((
Tcl_Interp * interp, int argc, char ** argv, Tcl_Interp * interp, int argc,
int flags)); CONST84 char ** argv, int flags));
#endif /* __WIN32__ */ #endif /* __WIN32__ */
/* 198 */ /* 198 */
EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp , EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp ,
char * fileName, char * modeString, CONST char * fileName,
int permissions)); CONST char * modeString, int permissions));
/* 199 */ /* 199 */
EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp,
int port, char * address, char * myaddr, int port, CONST char * address,
int myport, int async)); CONST char * myaddr, int myport, int async))
;
/* 200 */ /* 200 */
EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp,
int port, char * host, int port, CONST char * host,
Tcl_TcpAcceptProc * acceptProc, Tcl_TcpAcceptProc * acceptProc,
ClientData callbackData)); ClientData callbackData));
/* 201 */ /* 201 */
EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data));
/* 202 */ /* 202 */
EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp * interp,
double value, char * dst)); double value, char * dst));
/* 203 */ /* 203 */
EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string)); EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string));
/* 204 */ /* 204 */
EXTERN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN CONST84_RETURN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * inter p));
/* 205 */ /* 205 */
EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr, EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr,
Tcl_QueuePosition position)); Tcl_QueuePosition position));
/* 206 */ /* 206 */
EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan,
char * bufPtr, int toRead)); char * bufPtr, int toRead));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 207 */ /* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #ifdef __WIN32__
/* 207 */ /* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
#endif /* __WIN32__ */ #endif /* __WIN32__ */
/* 208 */ /* 208 */
EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp,
char * cmd, int flags)); CONST char * cmd, int flags));
/* 209 */ /* 209 */
EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_(( EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * cmdPtr, Tcl_Interp * interp, Tcl_Obj * cmdPtr,
int flags)); int flags));
/* 210 */ /* 210 */
EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp ,
Tcl_Channel chan)); Tcl_Channel chan));
/* 211 */ /* 211 */
EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( EXTERN void Tcl_RegisterObjType _ANSI_ARGS_((
Tcl_ObjType * typePtr)); Tcl_ObjType * typePtr));
/* 212 */ /* 212 */
EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp * interp,
char * string)); CONST char * string));
/* 213 */ /* 213 */
EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_RegExp regexp, CONST char * str, Tcl_RegExp regexp, CONST char * str,
CONST char * start)); CONST char * start));
/* 214 */ /* 214 */
EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp * interp,
char * str, char * pattern)); CONST char * str, CONST char * pattern));
/* 215 */ /* 215 */
EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp,
int index, char ** startPtr, char ** endPtr) int index, CONST84 char ** startPtr,
); CONST84 char ** endPtr));
/* 216 */ /* 216 */
EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData));
/* 217 */ /* 217 */
EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp * interp));
/* 218 */ /* 218 */
EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * str, EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * str,
int * flagPtr)); int * flagPtr));
/* 219 */ /* 219 */
EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char * str , EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char * str ,
int length, int * flagPtr)); int length, int * flagPtr));
/* 220 */ /* 220 */
EXTERN int Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, int offset, EXTERN int Tcl_SeekOld _ANSI_ARGS_((Tcl_Channel chan,
int mode)); int offset, int mode));
/* 221 */ /* 221 */
EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void));
/* 222 */ /* 222 */
EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags));
/* 223 */ /* 223 */
EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp,
char * name, Tcl_InterpDeleteProc * proc, CONST char * name,
Tcl_InterpDeleteProc * proc,
ClientData clientData)); ClientData clientData));
/* 224 */ /* 224 */
EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_((
Tcl_Channel chan, int sz)); Tcl_Channel chan, int sz));
/* 225 */ /* 225 */
EXTERN int Tcl_SetChannelOption _ANSI_ARGS_(( EXTERN int Tcl_SetChannelOption _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Channel chan, Tcl_Interp * interp, Tcl_Channel chan,
char * optionName, char * newValue)); CONST char * optionName,
CONST char * newValue));
/* 226 */ /* 226 */
EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp,
char * cmdName, Tcl_CmdInfo * infoPtr)); CONST char * cmdName,
CONST Tcl_CmdInfo * infoPtr));
/* 227 */ /* 227 */
EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err));
/* 228 */ /* 228 */
EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp));
/* 229 */ /* 229 */
EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr) ); EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr) );
/* 230 */ /* 230 */
EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( EXTERN void Tcl_SetPanicProc _ANSI_ARGS_((
Tcl_PanicProc * panicProc)); Tcl_PanicProc * panicProc));
/* 231 */ /* 231 */
skipping to change at line 755 skipping to change at line 774
/* 234 */ /* 234 */
EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp * interp ,
Tcl_Obj * errorObjPtr)); Tcl_Obj * errorObjPtr));
/* 235 */ /* 235 */
EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * resultObjPtr)); Tcl_Obj * resultObjPtr));
/* 236 */ /* 236 */
EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel,
int type)); int type));
/* 237 */ /* 237 */
EXTERN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, char * newValue, int flags)) CONST char * varName, CONST char * newValue,
;
/* 238 */
EXTERN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, char * newValue,
int flags)); int flags));
/* 238 */
EXTERN CONST84_RETURN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * part1, CONST char * part2,
CONST char * newValue, int flags));
/* 239 */ /* 239 */
EXTERN char * Tcl_SignalId _ANSI_ARGS_((int sig)); EXTERN CONST84_RETURN char * Tcl_SignalId _ANSI_ARGS_((int sig));
/* 240 */ /* 240 */
EXTERN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); EXTERN CONST84_RETURN char * Tcl_SignalMsg _ANSI_ARGS_((int sig));
/* 241 */ /* 241 */
EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp * interp));
/* 242 */ /* 242 */
EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * listStr, int * argcPtr, CONST char * listStr, int * argcPtr,
char *** argvPtr)); CONST84 char *** argvPtr));
/* 243 */ /* 243 */
EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char * path, EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char * path,
int * argcPtr, char *** argvPtr)); int * argcPtr, CONST84 char *** argvPtr));
/* 244 */ /* 244 */
EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp * interp,
char * pkgName, CONST char * pkgName,
Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * initProc,
Tcl_PackageInitProc * safeInitProc)); Tcl_PackageInitProc * safeInitProc));
/* 245 */ /* 245 */
EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * str, EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * str,
CONST char * pattern)); CONST char * pattern));
/* 246 */ /* 246 */
EXTERN int Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_TellOld _ANSI_ARGS_((Tcl_Channel chan));
/* 247 */ /* 247 */
EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, int flags, CONST char * varName, int flags,
Tcl_VarTraceProc * proc, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData));
/* 248 */ /* 248 */
EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, int flags, CONST char * part1, CONST char * part2,
Tcl_VarTraceProc * proc, int flags, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData));
/* 249 */ /* 249 */
EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_((
Tcl_Interp * interp, char * name, Tcl_Interp * interp, CONST char * name,
Tcl_DString * bufferPtr)); Tcl_DString * bufferPtr));
/* 250 */ /* 250 */
EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, char * str EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan,
, CONST char * str, int len, int atHead));
int len, int atHead));
/* 251 */ /* 251 */
EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName)); CONST char * varName));
/* 252 */ /* 252 */
EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Channel chan)); Tcl_Interp * interp, Tcl_Channel chan));
/* 253 */ /* 253 */
EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, int flags)); CONST char * varName, int flags));
/* 254 */ /* 254 */
EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, int flags)); CONST char * part1, CONST char * part2,
int flags));
/* 255 */ /* 255 */
EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, int flags, CONST char * varName, int flags,
Tcl_VarTraceProc * proc, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData));
/* 256 */ /* 256 */
EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, int flags, CONST char * part1, CONST char * part2,
Tcl_VarTraceProc * proc, int flags, Tcl_VarTraceProc * proc,
ClientData clientData)); ClientData clientData));
/* 257 */ /* 257 */
EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp * interp ,
char * varName)); CONST char * varName));
/* 258 */ /* 258 */
EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp * interp,
char * frameName, char * varName, CONST char * frameName, CONST char * varName
char * localName, int flags)); ,
CONST char * localName, int flags));
/* 259 */ /* 259 */
EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp * interp,
char * frameName, char * part1, char * part2 CONST char * frameName, CONST char * part1,
, CONST char * part2, CONST char * localName,
char * localName, int flags)); int flags));
/* 260 */ /* 260 */
EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,int erp)); EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,int erp));
/* 261 */ /* 261 */
EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp * interp,
char * varName, int flags, CONST char * varName, int flags,
Tcl_VarTraceProc * procPtr, Tcl_VarTraceProc * procPtr,
ClientData prevClientData)); ClientData prevClientData));
/* 262 */ /* 262 */
EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, int flags, CONST char * part1, CONST char * part2,
Tcl_VarTraceProc * procPtr, int flags, Tcl_VarTraceProc * procPtr,
ClientData prevClientData)); ClientData prevClientData));
/* 263 */ /* 263 */
EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, char * s, EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan,
int slen)); CONST char * s, int slen));
/* 264 */ /* 264 */
EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp * interp,
int objc, Tcl_Obj *CONST objv[], int objc, Tcl_Obj *CONST objv[],
char * message)); CONST char * message));
/* 265 */ /* 265 */
EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((char * fileName)); EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((
CONST char * fileName));
/* 266 */ /* 266 */
EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((char * file, EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char * file ,
int line)); int line));
/* 267 */ /* 267 */
EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp,
va_list argList)); va_list argList));
/* 268 */ /* 268 */
EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_((
Tcl_Obj * objPtr, va_list argList)); Tcl_Obj * objPtr, va_list argList));
/* 269 */ /* 269 */
EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable * tablePtr) EXTERN CONST84_RETURN char * Tcl_HashStats _ANSI_ARGS_((
); Tcl_HashTable * tablePtr));
/* 270 */ /* 270 */
EXTERN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp,
char * str, char ** termPtr)); CONST char * str, CONST84 char ** termPtr));
/* 271 */ /* 271 */
EXTERN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * inter
char * name, char * version, int exact)); p,
CONST char * name, CONST char * version,
int exact));
/* 272 */ /* 272 */
EXTERN char * Tcl_PkgPresentEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_PkgPresentEx _ANSI_ARGS_((
char * name, char * version, int exact, Tcl_Interp * interp, CONST char * name,
CONST char * version, int exact,
ClientData * clientDataPtr)); ClientData * clientDataPtr));
/* 273 */ /* 273 */
EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp,
char * name, char * version)); CONST char * name, CONST char * version));
/* 274 */ /* 274 */
EXTERN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * interp, EXTERN CONST84_RETURN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * inter
char * name, char * version, int exact)); p,
CONST char * name, CONST char * version,
int exact));
/* 275 */ /* 275 */
EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp,
va_list argList)); va_list argList));
/* 276 */ /* 276 */
EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp,
va_list argList)); va_list argList));
/* 277 */ /* 277 */
EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr,
int options)); int options));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 278 */ /* 278 */
EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format, EXTERN void Tcl_PanicVA _ANSI_ARGS_((CONST char * format,
va_list argList));
#endif /* UNIX */
#ifdef __WIN32__
/* 278 */
EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format,
va_list argList)); va_list argList));
#endif /* __WIN32__ */
/* 279 */ /* 279 */
EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor , EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor ,
int * patchLevel, int * type)); int * patchLevel, int * type));
/* 280 */ /* 280 */
EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp));
/* 281 */ /* 281 */
EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_ChannelType * typePtr, Tcl_ChannelType * typePtr,
ClientData instanceData, int mask, ClientData instanceData, int mask,
Tcl_Channel prevChan)); Tcl_Channel prevChan));
skipping to change at line 936 skipping to change at line 956
EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc * proc, ClientData clientData)) ;
/* 289 */ /* 289 */
EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc * proc, ClientData clientData)) ;
/* 290 */ /* 290 */
EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( EXTERN void Tcl_DiscardResult _ANSI_ARGS_((
Tcl_SavedResult * statePtr)); Tcl_SavedResult * statePtr));
/* 291 */ /* 291 */
EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp * interp,
char * script, int numBytes, int flags)); CONST char * script, int numBytes, int flags ));
/* 292 */ /* 292 */
EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp * interp,
int objc, Tcl_Obj *CONST objv[], int flags)) ; int objc, Tcl_Obj *CONST objv[], int flags)) ;
/* 293 */ /* 293 */
EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, int flags)); Tcl_Obj * objPtr, int flags));
/* 294 */ /* 294 */
EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status));
/* 295 */ /* 295 */
EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp * interp,
skipping to change at line 969 skipping to change at line 989
EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_((
ClientData clientData)); ClientData clientData));
/* 299 */ /* 299 */
EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding) ); EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding) );
/* 300 */ /* 300 */
EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void));
/* 301 */ /* 301 */
EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * name)); CONST char * name));
/* 302 */ /* 302 */
EXTERN char * Tcl_GetEncodingName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_GetEncodingName _ANSI_ARGS_((
Tcl_Encoding encoding)); Tcl_Encoding encoding));
/* 303 */ /* 303 */
EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_(( EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_((
Tcl_Interp * interp)); Tcl_Interp * interp));
/* 304 */ /* 304 */
EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp * interp, Tcl_Obj * objPtr,
char ** tablePtr, int offset, char * msg, CONST VOID * tablePtr, int offset,
int flags, int * indexPtr)); CONST char * msg, int flags, int * indexPtr)
);
/* 305 */ /* 305 */
EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_((
Tcl_ThreadDataKey * keyPtr, int size)); Tcl_ThreadDataKey * keyPtr, int size));
/* 306 */ /* 306 */
EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, int flags)); CONST char * part1, CONST char * part2,
int flags));
/* 307 */ /* 307 */
EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void));
/* 308 */ /* 308 */
EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex * mutexPtr));
/* 309 */ /* 309 */
EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex * mutexPtr));
/* 310 */ /* 310 */
EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( EXTERN void Tcl_ConditionNotify _ANSI_ARGS_((
Tcl_Condition * condPtr)); Tcl_Condition * condPtr));
/* 311 */ /* 311 */
skipping to change at line 1016 skipping to change at line 1037
EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_SavedResult * statePtr)); Tcl_SavedResult * statePtr));
/* 315 */ /* 315 */
EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_SavedResult * statePtr)); Tcl_SavedResult * statePtr));
/* 316 */ /* 316 */
EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * name)); Tcl_Interp * interp, CONST char * name));
/* 317 */ /* 317 */
EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp,
char * part1, char * part2, CONST char * part1, CONST char * part2,
Tcl_Obj * newValuePtr, int flags)); Tcl_Obj * newValuePtr, int flags));
/* 318 */ /* 318 */
EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)) ; EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)) ;
/* 319 */ /* 319 */
EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_((
Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_ThreadId threadId, Tcl_Event* evPtr,
Tcl_QueuePosition position)); Tcl_QueuePosition position));
/* 320 */ /* 320 */
EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char * src, EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char * src,
int index)); int index));
/* 321 */ /* 321 */
EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch));
/* 322 */ /* 322 */
EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch));
/* 323 */ /* 323 */
EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch));
/* 324 */ /* 324 */
EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char * buf)); EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char * buf));
/* 325 */ /* 325 */
EXTERN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char * src,
int index)); int index));
/* 326 */ /* 326 */
EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char * src,
int len)); int len));
/* 327 */ /* 327 */
EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char * src, EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char * src,
int * readPtr, char * dst)); int * readPtr, char * dst));
/* 328 */ /* 328 */
EXTERN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char * src ,
int ch)); int ch));
/* 329 */ /* 329 */
EXTERN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char * src,
int ch)); int ch));
/* 330 */ /* 330 */
EXTERN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src)); EXTERN CONST84_RETURN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src));
/* 331 */ /* 331 */
EXTERN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char * src, EXTERN CONST84_RETURN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char * src,
CONST char * start)); CONST char * start));
/* 332 */ /* 332 */
EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Encoding encoding, CONST char * src, Tcl_Encoding encoding, CONST char * src,
int srcLen, int flags, int srcLen, int flags,
Tcl_EncodingState * statePtr, char * dst, Tcl_EncodingState * statePtr, char * dst,
int dstLen, int * srcReadPtr, int dstLen, int * srcReadPtr,
int * dstWrotePtr, int * dstCharsPtr)); int * dstWrotePtr, int * dstCharsPtr));
/* 333 */ /* 333 */
EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_((
skipping to change at line 1084 skipping to change at line 1105
EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src)); EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src));
/* 338 */ /* 338 */
EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan,
CONST char * src, int srcLen)); CONST char * src, int srcLen));
/* 339 */ /* 339 */
EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan,
Tcl_Obj * objPtr)); Tcl_Obj * objPtr));
/* 340 */ /* 340 */
EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 341 */ /* 341 */
EXTERN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void)); EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir _ANSI_ARGS_((void));
/* 342 */ /* 342 */
EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_((char * path)) EXTERN void Tcl_SetDefaultEncodingDir _ANSI_ARGS_((
; CONST char * path));
/* 343 */ /* 343 */
EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData )); EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData ));
/* 344 */ /* 344 */
EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode)); EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode));
/* 345 */ /* 345 */
EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsAlnum _ANSI_ARGS_((int ch));
/* 346 */ /* 346 */
EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsAlpha _ANSI_ARGS_((int ch));
/* 347 */ /* 347 */
EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsDigit _ANSI_ARGS_((int ch));
/* 348 */ /* 348 */
EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch));
/* 349 */ /* 349 */
EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch));
/* 350 */ /* 350 */
EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch));
/* 351 */ /* 351 */
EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch));
/* 352 */ /* 352 */
EXTERN int Tcl_UniCharLen _ANSI_ARGS_((Tcl_UniChar * str)); EXTERN int Tcl_UniCharLen _ANSI_ARGS_((CONST Tcl_UniChar * str) );
/* 353 */ /* 353 */
EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs, EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs,
CONST Tcl_UniChar * ct, unsigned long n)); CONST Tcl_UniChar * ct, unsigned long n));
/* 354 */ /* 354 */
EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_((
CONST Tcl_UniChar * string, int numChars, CONST Tcl_UniChar * string, int numChars,
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 355 */ /* 355 */
EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_(( EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_((
CONST char * string, int length, CONST char * string, int length,
skipping to change at line 1129 skipping to change at line 1151
EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_(( EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * patObj, Tcl_Interp * interp, Tcl_Obj * patObj,
int flags)); int flags));
/* 357 */ /* 357 */
EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_EvalTokens _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Token * tokenPtr, int count)); Tcl_Token * tokenPtr, int count));
/* 358 */ /* 358 */
EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse * parsePtr)); EXTERN void Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse * parsePtr));
/* 359 */ /* 359 */
EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp * interp,
char * script, char * command, int length)); CONST char * script, CONST char * command,
int length));
/* 360 */ /* 360 */
EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp * interp,
char * string, int numBytes, CONST char * string, int numBytes,
Tcl_Parse * parsePtr, int append, Tcl_Parse * parsePtr, int append,
char ** termPtr)); CONST84 char ** termPtr));
/* 361 */ /* 361 */
EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseCommand _ANSI_ARGS_((Tcl_Interp * interp,
char * string, int numBytes, int nested, CONST char * string, int numBytes,
Tcl_Parse * parsePtr)); int nested, Tcl_Parse * parsePtr));
/* 362 */ /* 362 */
EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseExpr _ANSI_ARGS_((Tcl_Interp * interp,
char * string, int numBytes, CONST char * string, int numBytes,
Tcl_Parse * parsePtr)); Tcl_Parse * parsePtr));
/* 363 */ /* 363 */
EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_(( EXTERN int Tcl_ParseQuotedString _ANSI_ARGS_((
Tcl_Interp * interp, char * string, Tcl_Interp * interp, CONST char * string,
int numBytes, Tcl_Parse * parsePtr, int numBytes, Tcl_Parse * parsePtr,
int append, char ** termPtr)); int append, CONST84 char ** termPtr));
/* 364 */ /* 364 */
EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_ParseVarName _ANSI_ARGS_((Tcl_Interp * interp,
char * string, int numBytes, CONST char * string, int numBytes,
Tcl_Parse * parsePtr, int append)); Tcl_Parse * parsePtr, int append));
/* 365 */ /* 365 */
EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp * interp, EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_DString * cwdPtr)); Tcl_DString * cwdPtr));
/* 366 */ /* 366 */
EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName)); EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName));
/* 367 */ /* 367 */
EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) ); EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) );
/* 368 */ /* 368 */
EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path, EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path,
skipping to change at line 1187 skipping to change at line 1210
/* 375 */ /* 375 */
EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch));
/* 376 */ /* 376 */
EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_RegExp regexp, Tcl_Obj * objPtr, Tcl_RegExp regexp, Tcl_Obj * objPtr,
int offset, int nmatches, int flags)); int offset, int nmatches, int flags));
/* 377 */ /* 377 */
EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp, EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp,
Tcl_RegExpInfo * infoPtr)); Tcl_RegExpInfo * infoPtr));
/* 378 */ /* 378 */
EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_((Tcl_UniChar * unicode EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_((
, CONST Tcl_UniChar * unicode, int numChars));
int numChars));
/* 379 */ /* 379 */
EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
Tcl_UniChar * unicode, int numChars)); CONST Tcl_UniChar * unicode, int numChars));
/* 380 */ /* 380 */
EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 381 */ /* 381 */
EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj * objPtr,
int index)); int index));
/* 382 */ /* 382 */
EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj * objPtr)); EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 383 */ /* 383 */
EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj * objPtr,
int first, int last)); int first, int last));
/* 384 */ /* 384 */
EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj * objPtr , EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((Tcl_Obj * objPtr ,
Tcl_UniChar * unicode, int length)); CONST Tcl_UniChar * unicode, int length));
/* 385 */ /* 385 */
EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * stringObj, Tcl_Obj * patternObj)); Tcl_Obj * stringObj, Tcl_Obj * patternObj));
/* 386 */ /* 386 */
EXTERN void Tcl_SetNotifier _ANSI_ARGS_(( EXTERN void Tcl_SetNotifier _ANSI_ARGS_((
Tcl_NotifierProcs * notifierProcPtr)); Tcl_NotifierProcs * notifierProcPtr));
/* 387 */ /* 387 */
EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void)); EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void));
/* 388 */ /* 388 */
EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp * interp )); EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp * interp ));
/* 389 */ /* 389 */
EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_(( EXTERN int Tcl_GetChannelNamesEx _ANSI_ARGS_((
Tcl_Interp * interp, char * pattern)); Tcl_Interp * interp, CONST char * pattern));
/* 390 */ /* 390 */
EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData, EXTERN int Tcl_ProcObjCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp * interp, int objc, Tcl_Interp * interp, int objc,
Tcl_Obj *CONST objv[])); Tcl_Obj *CONST objv[]));
/* 391 */ /* 391 */
EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_(( EXTERN void Tcl_ConditionFinalize _ANSI_ARGS_((
Tcl_Condition * condPtr)); Tcl_Condition * condPtr));
/* 392 */ /* 392 */
EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex * mutex)); EXTERN void Tcl_MutexFinalize _ANSI_ARGS_((Tcl_Mutex * mutex));
/* 393 */ /* 393 */
EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId * idPtr, EXTERN int Tcl_CreateThread _ANSI_ARGS_((Tcl_ThreadId * idPtr,
Tcl_ThreadCreateProc proc, Tcl_ThreadCreateProc proc,
ClientData clientData, int stackSize, ClientData clientData, int stackSize,
int flags)); int flags));
/* 394 */ /* 394 */
EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_ReadRaw _ANSI_ARGS_((Tcl_Channel chan,
char * dst, int bytesToRead)); char * dst, int bytesToRead));
/* 395 */ /* 395 */
EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_WriteRaw _ANSI_ARGS_((Tcl_Channel chan,
char * src, int srcLen)); CONST char * src, int srcLen));
/* 396 */ /* 396 */
EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan)); EXTERN Tcl_Channel Tcl_GetTopChannel _ANSI_ARGS_((Tcl_Channel chan));
/* 397 */ /* 397 */
EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan)); EXTERN int Tcl_ChannelBuffered _ANSI_ARGS_((Tcl_Channel chan));
/* 398 */ /* 398 */
EXTERN char * Tcl_ChannelName _ANSI_ARGS_(( EXTERN CONST84_RETURN char * Tcl_ChannelName _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 399 */ /* 399 */
EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_(( EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 400 */ /* 400 */
EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_(( EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 401 */ /* 401 */
EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_(( EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
skipping to change at line 1284 skipping to change at line 1307
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 409 */ /* 409 */
EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_(( EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 410 */ /* 410 */
EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_(( EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 411 */ /* 411 */
EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_(( EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 412 */
EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId id,
int* result));
/* 413 */
EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel
));
/* 414 */
EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_((
Tcl_Interp* interp, Tcl_Channel channel));
/* 415 */
EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel));
/* 416 */
EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel))
;
/* 417 */
EXTERN void Tcl_ClearChannelHandlers _ANSI_ARGS_((
Tcl_Channel channel));
/* 418 */
EXTERN int Tcl_IsChannelExisting _ANSI_ARGS_((
CONST char* channelName));
/* 419 */
EXTERN int Tcl_UniCharNcasecmp _ANSI_ARGS_((
CONST Tcl_UniChar * cs,
CONST Tcl_UniChar * ct, unsigned long n));
/* 420 */
EXTERN int Tcl_UniCharCaseMatch _ANSI_ARGS_((
CONST Tcl_UniChar * ustr,
CONST Tcl_UniChar * pattern, int nocase));
/* 421 */
EXTERN Tcl_HashEntry * Tcl_FindHashEntry _ANSI_ARGS_((
Tcl_HashTable * tablePtr, CONST char * key))
;
/* 422 */
EXTERN Tcl_HashEntry * Tcl_CreateHashEntry _ANSI_ARGS_((
Tcl_HashTable * tablePtr, CONST char * key,
int * newPtr));
/* 423 */
EXTERN void Tcl_InitCustomHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr, int keyType,
Tcl_HashKeyType * typePtr));
/* 424 */
EXTERN void Tcl_InitObjHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr));
/* 425 */
EXTERN ClientData Tcl_CommandTraceInfo _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * varName,
int flags, Tcl_CommandTraceProc * procPtr,
ClientData prevClientData));
/* 426 */
EXTERN int Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * varName, int flags,
Tcl_CommandTraceProc * proc,
ClientData clientData));
/* 427 */
EXTERN void Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * varName, int flags,
Tcl_CommandTraceProc * proc,
ClientData clientData));
/* 428 */
EXTERN char * Tcl_AttemptAlloc _ANSI_ARGS_((unsigned int size));
/* 429 */
EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size,
CONST char * file, int line));
/* 430 */
EXTERN char * Tcl_AttemptRealloc _ANSI_ARGS_((char * ptr,
unsigned int size));
/* 431 */
EXTERN char * Tcl_AttemptDbCkrealloc _ANSI_ARGS_((char * ptr,
unsigned int size, CONST char * file,
int line));
/* 432 */
EXTERN int Tcl_AttemptSetObjLength _ANSI_ARGS_((
Tcl_Obj * objPtr, int length));
/* 433 */
EXTERN Tcl_ThreadId Tcl_GetChannelThread _ANSI_ARGS_((
Tcl_Channel channel));
/* 434 */
EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj _ANSI_ARGS_((Tcl_Obj * objPtr,
int * lengthPtr));
/* 435 */
EXTERN int Tcl_GetMathFuncInfo _ANSI_ARGS_((Tcl_Interp * interp
,
CONST char * name, int * numArgsPtr,
Tcl_ValueType ** argTypesPtr,
Tcl_MathProc ** procPtr,
ClientData * clientDataPtr));
/* 436 */
EXTERN Tcl_Obj * Tcl_ListMathFuncs _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * pattern));
/* 437 */
EXTERN Tcl_Obj * Tcl_SubstObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * objPtr, int flags));
/* 438 */
EXTERN int Tcl_DetachChannel _ANSI_ARGS_((Tcl_Interp* interp,
Tcl_Channel channel));
/* 439 */
EXTERN int Tcl_IsStandardChannel _ANSI_ARGS_((
Tcl_Channel channel));
/* 440 */
EXTERN int Tcl_FSCopyFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr,
Tcl_Obj * destPathPtr));
/* 441 */
EXTERN int Tcl_FSCopyDirectory _ANSI_ARGS_((
Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr,
Tcl_Obj ** errorPtr));
/* 442 */
EXTERN int Tcl_FSCreateDirectory _ANSI_ARGS_((Tcl_Obj * pathPtr
));
/* 443 */
EXTERN int Tcl_FSDeleteFile _ANSI_ARGS_((Tcl_Obj * pathPtr));
/* 444 */
EXTERN int Tcl_FSLoadFile _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * pathPtr, CONST char * sym1,
CONST char * sym2,
Tcl_PackageInitProc ** proc1Ptr,
Tcl_PackageInitProc ** proc2Ptr,
Tcl_LoadHandle * handlePtr,
Tcl_FSUnloadFileProc ** unloadProcPtr));
/* 445 */
EXTERN int Tcl_FSMatchInDirectory _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * result,
Tcl_Obj * pathPtr, CONST char * pattern,
Tcl_GlobTypeData * types));
/* 446 */
EXTERN Tcl_Obj * Tcl_FSLink _ANSI_ARGS_((Tcl_Obj * pathPtr,
Tcl_Obj * toPtr, int linkAction));
/* 447 */
EXTERN int Tcl_FSRemoveDirectory _ANSI_ARGS_((Tcl_Obj * pathPtr
,
int recursive, Tcl_Obj ** errorPtr));
/* 448 */
EXTERN int Tcl_FSRenameFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr,
Tcl_Obj * destPathPtr));
/* 449 */
EXTERN int Tcl_FSLstat _ANSI_ARGS_((Tcl_Obj * pathPtr,
Tcl_StatBuf * buf));
/* 450 */
EXTERN int Tcl_FSUtime _ANSI_ARGS_((Tcl_Obj * pathPtr,
struct utimbuf * tval));
/* 451 */
EXTERN int Tcl_FSFileAttrsGet _ANSI_ARGS_((Tcl_Interp * interp,
int index, Tcl_Obj * pathPtr,
Tcl_Obj ** objPtrRef));
/* 452 */
EXTERN int Tcl_FSFileAttrsSet _ANSI_ARGS_((Tcl_Interp * interp,
int index, Tcl_Obj * pathPtr,
Tcl_Obj * objPtr));
/* 453 */
EXTERN CONST char ** Tcl_FSFileAttrStrings _ANSI_ARGS_((Tcl_Obj * pathPtr
,
Tcl_Obj ** objPtrRef));
/* 454 */
EXTERN int Tcl_FSStat _ANSI_ARGS_((Tcl_Obj * pathPtr,
Tcl_StatBuf * buf));
/* 455 */
EXTERN int Tcl_FSAccess _ANSI_ARGS_((Tcl_Obj * pathPtr,
int mode));
/* 456 */
EXTERN Tcl_Channel Tcl_FSOpenFileChannel _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * pathPtr,
CONST char * modeString, int permissions));
/* 457 */
EXTERN Tcl_Obj* Tcl_FSGetCwd _ANSI_ARGS_((Tcl_Interp * inter
p));
/* 458 */
EXTERN int Tcl_FSChdir _ANSI_ARGS_((Tcl_Obj * pathPtr));
/* 459 */
EXTERN int Tcl_FSConvertToPathType _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * pathPtr));
/* 460 */
EXTERN Tcl_Obj* Tcl_FSJoinPath _ANSI_ARGS_((Tcl_Obj * listOb
j,
int elements));
/* 461 */
EXTERN Tcl_Obj* Tcl_FSSplitPath _ANSI_ARGS_((Tcl_Obj* pathPt
r,
int * lenPtr));
/* 462 */
EXTERN int Tcl_FSEqualPaths _ANSI_ARGS_((Tcl_Obj* firstPtr,
Tcl_Obj* secondPtr));
/* 463 */
EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj* pathObjPtr));
/* 464 */
EXTERN Tcl_Obj* Tcl_FSJoinToPath _ANSI_ARGS_((Tcl_Obj * base
Ptr,
int objc, Tcl_Obj *CONST objv[]));
/* 465 */
EXTERN ClientData Tcl_FSGetInternalRep _ANSI_ARGS_((
Tcl_Obj* pathObjPtr, Tcl_Filesystem * fsPtr)
);
/* 466 */
EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj* pathPtr));
/* 467 */
EXTERN int Tcl_FSEvalFile _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * fileName));
/* 468 */
EXTERN Tcl_Obj* Tcl_FSNewNativePath _ANSI_ARGS_((
Tcl_Filesystem* fromFilesystem,
ClientData clientData));
/* 469 */
EXTERN CONST char* Tcl_FSGetNativePath _ANSI_ARGS_((Tcl_Obj* pathObjPtr
));
/* 470 */
EXTERN Tcl_Obj* Tcl_FSFileSystemInfo _ANSI_ARGS_((
Tcl_Obj* pathObjPtr));
/* 471 */
EXTERN Tcl_Obj* Tcl_FSPathSeparator _ANSI_ARGS_((Tcl_Obj* pa
thObjPtr));
/* 472 */
EXTERN Tcl_Obj* Tcl_FSListVolumes _ANSI_ARGS_((void));
/* 473 */
EXTERN int Tcl_FSRegister _ANSI_ARGS_((ClientData clientData,
Tcl_Filesystem * fsPtr));
/* 474 */
EXTERN int Tcl_FSUnregister _ANSI_ARGS_((Tcl_Filesystem * fsPtr
));
/* 475 */
EXTERN ClientData Tcl_FSData _ANSI_ARGS_((Tcl_Filesystem * fsPtr));
/* 476 */
EXTERN CONST char* Tcl_FSGetTranslatedStringPath _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj* pathPtr));
/* 477 */
EXTERN Tcl_Filesystem* Tcl_FSGetFileSystemForPath _ANSI_ARGS_((
Tcl_Obj* pathObjPtr));
/* 478 */
EXTERN Tcl_PathType Tcl_FSGetPathType _ANSI_ARGS_((Tcl_Obj * pathObjPtr)
);
/* 479 */
EXTERN int Tcl_OutputBuffered _ANSI_ARGS_((Tcl_Channel chan));
/* 480 */
EXTERN void Tcl_FSMountsChanged _ANSI_ARGS_((
Tcl_Filesystem * fsPtr));
/* 481 */
EXTERN int Tcl_EvalTokensStandard _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Token * tokenPtr,
int count));
/* 482 */
EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time* timeBuf));
/* 483 */
EXTERN Tcl_Trace Tcl_CreateObjTrace _ANSI_ARGS_((Tcl_Interp* interp,
int level, int flags,
Tcl_CmdObjTraceProc* objProc,
ClientData clientData,
Tcl_CmdObjTraceDeleteProc* delProc));
/* 484 */
EXTERN int Tcl_GetCommandInfoFromToken _ANSI_ARGS_((
Tcl_Command token, Tcl_CmdInfo* infoPtr));
/* 485 */
EXTERN int Tcl_SetCommandInfoFromToken _ANSI_ARGS_((
Tcl_Command token,
CONST Tcl_CmdInfo* infoPtr));
/* 486 */
EXTERN Tcl_Obj * Tcl_DbNewWideIntObj _ANSI_ARGS_((
Tcl_WideInt wideValue, CONST char * file,
int line));
/* 487 */
EXTERN int Tcl_GetWideIntFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr,
Tcl_WideInt * widePtr));
/* 488 */
EXTERN Tcl_Obj * Tcl_NewWideIntObj _ANSI_ARGS_((Tcl_WideInt wideValue
));
/* 489 */
EXTERN void Tcl_SetWideIntObj _ANSI_ARGS_((Tcl_Obj * objPtr,
Tcl_WideInt wideValue));
/* 490 */
EXTERN Tcl_StatBuf * Tcl_AllocStatBuf _ANSI_ARGS_((void));
/* 491 */
EXTERN Tcl_WideInt Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan,
Tcl_WideInt offset, int mode));
/* 492 */
EXTERN Tcl_WideInt Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan));
/* 493 */
EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr));
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, char * name, int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* na
char * version, ClientData clientData)); /* 0 */ me, CONST char* version, ClientData clientData)); /* 0 */
char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * interp, char * nam CONST84_RETURN char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * int
e, char * version, int exact, ClientData * clientDataPtr)); /* 1 */ erp, CONST char * name, CONST char * version, int exact, ClientData * clien
void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 2 */ tDataPtr)); /* 1 */
void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); /* 2 *
/
char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */
void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */ void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */
char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 5 */ char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 5 */
char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, char * file, in char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char * fi
t line)); /* 6 */ le, int line)); /* 6 */
int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, char * file, int line)); / int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, CONST char * file, int lin
* 7 */ e)); /* 7 */
char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, c char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, C
har * file, int line)); /* 8 */ ONST char * file, int line)); /* 8 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr oc * proc, ClientData clientData)); /* 9 */ void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FilePr oc * proc, ClientData clientData)); /* 9 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #ifdef __WIN32__
void *reserved9; void *reserved9;
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void *reserved9; void *reserved9;
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
skipping to change at line 1327 skipping to change at line 1610
void *reserved10; void *reserved10;
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void *reserved10; void *reserved10;
#endif /* MAC_TCL */ #endif /* MAC_TCL */
void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 11 */ void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 11 */
void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */
int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 13 */ int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 13 */
int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 14 */ int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 14 */
void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr )); /* 15 */ void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr )); /* 15 */
void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, in t length)); /* 16 */ void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj* objPtr, CONST char* bytes , int length)); /* 16 */
Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[] )); /* 17 */ Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[] )); /* 17 */
int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr, Tcl_ObjType * typePtr)); /* 18 */ int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr, Tcl_ObjType * typePtr)); /* 18 */
void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char *
int line)); /* 19 */ file, int line)); /* 19 */
void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char *
int line)); /* 20 */ file, int line)); /* 20 */
int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int l int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST char * file,
ine)); /* 21 */ int line)); /* 21 */
Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, char * fil Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, CONST char
e, int line)); /* 22 */ * file, int line)); /* 22 */
Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((CONST unsigned char * b
int length, char * file, int line)); /* 23 */ ytes, int length, CONST char * file, int line)); /* 23 */
Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, char * Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, CONST
file, int line)); /* 24 */ char * file, int line)); /* 24 */
Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST obj Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST * o
v[], char * file, int line)); /* 25 */ bjv, CONST char * file, int line)); /* 25 */
Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, char * file, Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, CONST char *
int line)); /* 26 */ file, int line)); /* 26 */
Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((char * file, int line)); /* 27 * Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((CONST char * file, int line)); /
/ * 27 */
Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int le Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int le
ngth, char * file, int line)); /* 28 */ ngth, CONST char * file, int line)); /* 28 */
Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 29 */ Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 29 */
void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 30 */ void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 30 */
int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * boolPtr)); /* 31 */ int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * st r, int * boolPtr)); /* 31 */
int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr)); /* 32 */ int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr)); /* 32 */
unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPt r, int * lengthPtr)); /* 33 */ unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPt r, int * lengthPtr)); /* 33 */
int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * str, doub le * doublePtr)); /* 34 */ int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str , double * doublePtr)); /* 34 */
int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr)); /* 35 */ int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr)); /* 35 */
int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj *
objPtr, char ** tablePtr, char * msg, int flags, int * indexPtr)); /* 36 */ objPtr, CONST84 char ** tablePtr, CONST char * msg, int flags, int * indexP
int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * i tr)); /* 36 */
ntPtr)); /* 37 */ int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, i
nt * intPtr)); /* 37 */
int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr, int * intPtr)); /* 38 */ int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr, int * intPtr)); /* 38 */
int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o bjPtr, long * longPtr)); /* 39 */ int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o bjPtr, long * longPtr)); /* 39 */
Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((char * typeName)); /* 40 * / Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((CONST char * typeName)); / * 40 */
char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * len gthPtr)); /* 41 */ char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * len gthPtr)); /* 41 */
void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */ void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */
int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */ int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */
int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_O bj * listPtr, Tcl_Obj * objPtr)); /* 44 */ int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_O bj * listPtr, Tcl_Obj * objPtr)); /* 44 */
int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 45 */ 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 * lis tPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */ int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * lis tPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */
int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * li stPtr, int * intPtr)); /* 47 */ int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * li stPtr, int * lengthPtr)); /* 47 */
int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * l istPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * l istPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */
Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */ Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */
Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, in t length)); /* 50 */ Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((CONST unsigned char* byte s, int length)); /* 50 */
Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */ Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */
Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */ Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */
Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[ ])); /* 53 */ Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[ ])); /* 53 */
Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */ Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */
Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */ Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */
Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int leng th)); /* 56 */ Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int leng th)); /* 56 */
void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue) ); /* 57 */ void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue) ); /* 57 */
unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr , int length)); /* 58 */ unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr , int length)); /* 58 */
void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, unsigned cha r * bytes, int length)); /* 59 */ void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST unsign ed char * bytes, int length)); /* 59 */
void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleVa lue)); /* 60 */ void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleVa lue)); /* 60 */
void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int intValue)); /* 61 */ 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_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_SetLongObj) _ANSI_ARGS_((Tcl_Obj * objPtr, long longValue)); /* 63 */
void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); / * 64 */ void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); / * 64 */
void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, i nt length)); /* 65 */ 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 * message)); /* 66 */ void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message)); /* 66 */
void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha r * message, int length)); /* 67 */ void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha r * message, int length)); /* 67 */
void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 68 * / void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 68 * /
void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 69 */ void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 69 */
void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 70 */ void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 70 */
Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); /* 71 */ Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); /* 71 */
void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */ void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */
int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 73 */ int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 73 */
void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */ void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */
int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */ int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */
void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 76 * / void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 76 * /
char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); / * 77 */ char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); / * 77 */
int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, char * op tionName, char * optionList)); /* 78 */ int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha r * optionName, CONST char * optionList)); /* 78 */
void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Inter pDeleteProc * proc, ClientData clientData)); /* 79 */ void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Inter pDeleteProc * proc, ClientData clientData)); /* 79 */
void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, Client Data clientData)); /* 80 */ void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, Client Data clientData)); /* 80 */
int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 81 */ int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 81 */
int (*tcl_CommandComplete) _ANSI_ARGS_((char * cmd)); /* 82 */ int (*tcl_CommandComplete) _ANSI_ARGS_((CONST char * cmd)); /* 82 */
char * (*tcl_Concat) _ANSI_ARGS_((int argc, char ** argv)); /* 83 */ char * (*tcl_Concat) _ANSI_ARGS_((int argc, CONST84 char * CONST * argv
)); /* 83 */
int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, in t flags)); /* 84 */ int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, in t flags)); /* 84 */
int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int len gth, char * dst, int flags)); /* 85 */ int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int len gth, char * dst, int flags)); /* 85 */
int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, CONST char * sl
, Tcl_Interp * target, char * targetCmd, int argc, char ** argv)); /* 86 */ aveCmd, Tcl_Interp * target, CONST char * targetCmd, int argc, CONST84 char
int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, char * slave * CONST * argv)); /* 86 */
Cmd, Tcl_Interp * target, char * targetCmd, int objc, Tcl_Obj *CONST objv[] int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, CONST char *
)); /* 87 */ slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int objc, Tcl_Obj *
Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr CONST objv[])); /* 87 */
, char * chanName, ClientData instanceData, int mask)); /* 88 */ 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_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 */ void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close Proc * proc, ClientData clientData)); /* 90 */
Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 91 */ Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONS T char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteP roc * deleteProc)); /* 91 */
void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */ void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */
void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ata clientData)); /* 93 */ void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ata clientData)); /* 93 */
Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */ Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */
void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, char * nam void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
e, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData c * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, Client
lientData)); /* 95 */ Data clientData)); /* 95 */
Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, c Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, C
har * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteP ONST char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdD
roc * deleteProc)); /* 96 */ eleteProc * deleteProc)); /* 96 */
Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, char Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, CONST
* slaveName, int isSafe)); /* 97 */ char * slaveName, int isSafe)); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */ Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */
Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int leve l, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */ Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int leve l, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */
void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * na me)); /* 100 */ void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha r * name)); /* 100 */
void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Cha nnelProc * proc, ClientData clientData)); /* 101 */ 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 */ void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close Proc * proc, ClientData clientData)); /* 102 */
int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdNa me)); /* 103 */ int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName)); /* 103 */
int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl _Command command)); /* 104 */ int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl _Command command)); /* 104 */
void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, Clien tData clientData)); /* 105 */ void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, Clien tData clientData)); /* 105 */
void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */ void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */
void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ata clientData)); /* 107 */ void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ata clientData)); /* 107 */
void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */ void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */
void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */ void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */
void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */ void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */ void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */
#endif /* UNIX */ #endif /* UNIX */
skipping to change at line 1446 skipping to change at line 1729
char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST cha r * str, int length)); /* 117 */ char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST cha r * str, int length)); /* 117 */
char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CO NST char * string)); /* 118 */ char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CO NST char * string)); /* 118 */
void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 11 9 */ void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 11 9 */
void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */ void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */
void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DStr ing * dsPtr)); /* 121 */ void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DStr ing * dsPtr)); /* 121 */
void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 122 */ void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 122 */
void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 123 */ void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 123 */
void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int leng th)); /* 124 */ void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int leng th)); /* 124 */
void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 125 */ void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 125 */
int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */ int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */
char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */ CONST84_RETURN char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */
char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */ CONST84_RETURN char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */
int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 1 int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string))
29 */ ; /* 129 */
int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName)) int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * file
; /* 130 */ Name)); /* 130 */
int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)) ; /* 131 */ 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_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_Free Proc * freeProc)); /* 132 */
void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */ void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */
int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * hidde int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char *
nCmdToken, char * cmdName)); /* 134 */ hiddenCmdToken, CONST char * cmdName)); /* 134 */
int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * str, in int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s
t * ptr)); /* 135 */ tr, int * ptr)); /* 135 */
int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o bjPtr, int * ptr)); /* 136 */ int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o bjPtr, int * ptr)); /* 136 */
int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * str, dou ble * ptr)); /* 137 */ int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * st r, double * ptr)); /* 137 */
int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr, double * ptr)); /* 138 */ int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr, double * ptr)); /* 138 */
int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * ptr)); /* 139 */ int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * ptr)); /* 139 */
int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objP tr, long * ptr)); /* 140 */ int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objP tr, long * ptr)); /* 140 */
int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */ int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */
int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, char * string)) ; /* 142 */ int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * st ring)); /* 142 */
void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */ void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */
void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */ void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */
Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tabl ePtr, Tcl_HashSearch * searchPtr)); /* 145 */ Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tabl ePtr, Tcl_HashSearch * searchPtr)); /* 145 */
int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */ int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */
void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */ void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */
int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * slav
Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char ** eCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * ar
* argvPtr)); /* 148 */ gcPtr, CONST84 char *** argvPtr)); /* 148 */
int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCm int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s
d, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_ laveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int *
Obj *** objv)); /* 149 */ objcPtr, Tcl_Obj *** objv)); /* 149 */
ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST
name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */ char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */
Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, CONST c
chanName, int * modePtr)); /* 151 */ har * chanName, int * modePtr)); /* 151 */
int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */ int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */
int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int directio n, ClientData * handlePtr)); /* 153 */ int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int directio n, ClientData * handlePtr)); /* 153 */
ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan) ); /* 154 */ ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan) ); /* 154 */
int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */ int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */
char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */ CONST84_RETURN char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel ch
int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann an)); /* 156 */
el chan, char * optionName, Tcl_DString * dsPtr)); /* 157 */ int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann
el chan, CONST char * optionName, Tcl_DString * dsPtr)); /* 157 */
Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)) ; /* 158 */ Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)) ; /* 158 */
int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdN int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
ame, Tcl_CmdInfo * infoPtr)); /* 159 */ * cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */
char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Comm CONST84_RETURN char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * i
and command)); /* 160 */ nterp, Tcl_Command command)); /* 160 */
int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */ int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */
char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */ CONST84_RETURN char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */
int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Inter p * slaveInterp)); /* 163 */ int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Inter p * slaveInterp)); /* 163 */
Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 4 */ Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 4 */
CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 6 */ Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 6 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * str, in t forWriting, int checkUsage, ClientData * filePtr)); /* 167 */ int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s tr, int forWriting, int checkUsage, ClientData * filePtr)); /* 167 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #ifdef __WIN32__
void *reserved167; void *reserved167;
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void *reserved167; void *reserved167;
#endif /* MAC_TCL */ #endif /* MAC_TCL */
Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 168 */ Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char * path)); /* 16 8 */
int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); / * 169 */ int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); / * 169 */
int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); / * 170 */ int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); / * 170 */
int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */
Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * s laveName)); /* 172 */ Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch ar * slaveName)); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */
char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 17 CONST84_RETURN char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp *
4 */ interp)); /* 174 */
char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, CONST84_RETURN char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, C
int flags)); /* 175 */ ONST char * varName, int flags)); /* 175 */
char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, c CONST84_RETURN char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp,
har * part2, int flags)); /* 176 */ CONST char * part1, CONST char * part2, int flags)); /* 176 */
int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * command) int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * co
); /* 177 */ mmand)); /* 177 */
int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr)); /* 178 */ int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ob jPtr)); /* 178 */
int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName , char * hiddenCmdToken)); /* 179 */ int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * c mdName, CONST char * hiddenCmdToken)); /* 179 */
int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */ int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */
void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int ke yType)); /* 181 */ void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int ke yType)); /* 181 */
int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */
int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */
int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 184 */ int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 184 */
int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 185 */ int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 185 */
char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, char ** argv, Tcl_DString char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, CONST84 char * CONST * ar
* resultPtr)); /* 186 */ gv, Tcl_DString * resultPtr)); /* 186 */
int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, ch int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varNa
ar * addr, int type)); /* 187 */ me, char * addr, int type)); /* 187 */
void *reserved188; void *reserved188;
Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */
int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */ int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock et)); /* 191 */ Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock et)); /* 191 */
char * (*tcl_Merge) _ANSI_ARGS_((int argc, char ** argv)); /* 192 */ char * (*tcl_Merge) _ANSI_ARGS_((int argc, CONST84 char * CONST * argv) ); /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * sear chPtr)); /* 193 */ Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * sear chPtr)); /* 193 */
void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */ void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */ Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */
Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 * / Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 * /
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 197 */ Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 197 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #ifdef __WIN32__
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 197 */ Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 197 */
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void *reserved197; void *reserved197;
#endif /* MAC_TCL */ #endif /* MAC_TCL */
Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, ch Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, CO
ar * fileName, char * modeString, int permissions)); /* 198 */ NST char * fileName, CONST char * modeString, int permissions)); /* 198 */
Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int
port, char * address, char * myaddr, int myport, int async)); /* 199 */ port, CONST char * address, CONST char * myaddr, int myport, int async)); /
Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int * 199 */
port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData) Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int
); /* 200 */ port, CONST char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbac
kData)); /* 200 */
void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */
void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */ void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */
int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */ int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */
char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 204 */ CONST84_RETURN char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * inter p)); /* 204 */
void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePositio n position)); /* 205 */ void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePositio n position)); /* 205 */
int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRea d)); /* 206 */ int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRea d)); /* 206 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ #ifdef __WIN32__
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void *reserved207; void *reserved207;
#endif /* MAC_TCL */ #endif /* MAC_TCL */
int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 208 */ int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmd, int flags)); /* 208 */
int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */ int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */
void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann el chan)); /* 210 */ void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann el chan)); /* 210 */
void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 21 1 */ void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 21 1 */
Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 212 */ Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 212 */
int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp rege xp, CONST char * str, CONST char * start)); /* 213 */ int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp rege xp, CONST char * str, CONST char * start)); /* 213 */
int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, char * str, ch int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s
ar * pattern)); /* 214 */ tr, CONST char * pattern)); /* 214 */
void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, char void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, CONS
** startPtr, char ** endPtr)); /* 215 */ T84 char ** startPtr, CONST84 char ** endPtr)); /* 215 */
void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */
void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */ void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */
int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * str, int * flagPtr)); /* 218 */ int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * str, int * flagPtr)); /* 218 */
int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * str, int length , int * flagPtr)); /* 219 */ int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * str, int length , int * flagPtr)); /* 219 */
int (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */ int (*tcl_SeekOld) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode) ); /* 220 */
int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */
int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */
void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */ void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */
void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz) ); /* 224 */ void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz) ); /* 224 */
int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann
el chan, char * optionName, char * newValue)); /* 225 */ el chan, CONST char * optionName, CONST char * newValue)); /* 225 */
int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdN int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
ame, Tcl_CmdInfo * infoPtr)); /* 226 */ * cmdName, CONST Tcl_CmdInfo * infoPtr)); /* 226 */
void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */
void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */ void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */
void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 * / void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 * /
void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 2 30 */ void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 2 30 */
int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int dept h)); /* 231 */ int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int dept h)); /* 231 */
void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * str, Tcl _FreeProc * freeProc)); /* 232 */ void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * str, Tcl _FreeProc * freeProc)); /* 232 */
int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */
void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); /* 234 */ void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); /* 234 */
void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * re sultObjPtr)); /* 235 */ void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * re sultObjPtr)); /* 235 */
void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */ void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */
char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, CONST84_RETURN char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, C
char * newValue, int flags)); /* 237 */ ONST char * varName, CONST char * newValue, int flags)); /* 237 */
char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, c CONST84_RETURN char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp,
har * part2, char * newValue, int flags)); /* 238 */ CONST char * part1, CONST char * part2, CONST char * newValue, int flags));
char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ /* 238 */
char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 */ CONST84_RETURN char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */
CONST84_RETURN char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 *
/
void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 241 */ void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 241 */
int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * lis int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * lis
tStr, int * argcPtr, char *** argvPtr)); /* 242 */ tStr, int * argcPtr, CONST84 char *** argvPtr)); /* 242 */
void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, ch void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, CO
ar *** argvPtr)); /* 243 */ NST84 char *** argvPtr)); /* 243 */
void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, char * pkgN void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
ame, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc)); * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitPr
/* 244 */ oc)); /* 244 */
int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * str, CONST char * patt ern)); /* 245 */ int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * str, CONST char * patt ern)); /* 245 */
int (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ int (*tcl_TellOld) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */
int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, i int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varN
nt flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 247 */ ame, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 247 */
int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, ch int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * par
ar * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* t1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clie
248 */ ntData)); /* 248 */
char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, char char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, CONST
* name, Tcl_DString * bufferPtr)); /* 249 */ char * name, Tcl_DString * bufferPtr)); /* 249 */
int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, char * str, int len, i int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, CONST char * str, int
nt atHead)); /* 250 */ len, int atHead)); /* 250 */
void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName) void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * va
); /* 251 */ rName)); /* 251 */
int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chan nel chan)); /* 252 */ int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chan nel chan)); /* 252 */
int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, i int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varN
nt flags)); /* 253 */ ame, int flags)); /* 253 */
int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, ch int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * par
ar * part2, int flags)); /* 254 */ t1, CONST char * part2, int flags)); /* 254 */
void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * v
, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255 */ arName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255
void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, */
char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char *
/* 256 */ part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData c
void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, char * va lientData)); /* 256 */
rName)); /* 257 */ void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST cha
int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, ch r * varName)); /* 257 */
ar * varName, char * localName, int flags)); /* 258 */ int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * frameNa
int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, c me, CONST char * varName, CONST char * localName, int flags)); /* 258 */
har * part1, char * part2, char * localName, int flags)); /* 259 */ int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * frameN
ame, CONST char * part1, CONST char * part2, CONST char * localName, int fl
ags)); /* 259 */
int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 26 0 */ int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 26 0 */
ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST
varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData) char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClien
); /* 261 */ tData)); /* 261 */
ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, char ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, CONST
* part1, char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData pr char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * procPtr, C
evClientData)); /* 262 */ lientData prevClientData)); /* 262 */
int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, char * s, int slen)); / int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, CONST char * s, int sle
* 263 */ n)); /* 263 */
void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tc void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tc
l_Obj *CONST objv[], char * message)); /* 264 */ l_Obj *CONST objv[], CONST char * message)); /* 264 */
int (*tcl_DumpActiveMemory) _ANSI_ARGS_((char * fileName)); /* 265 */ int (*tcl_DumpActiveMemory) _ANSI_ARGS_((CONST char * fileName)); /* 26
void (*tcl_ValidateAllMemory) _ANSI_ARGS_((char * file, int line)); /* 5 */
266 */ void (*tcl_ValidateAllMemory) _ANSI_ARGS_((CONST char * file, int line)
); /* 266 */
void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar gList)); /* 267 */ void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar gList)); /* 267 */
void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */ void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */
char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 269 CONST84_RETURN char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tab
*/ lePtr)); /* 269 */
char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * str, ch CONST84_RETURN char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp,
ar ** termPtr)); /* 270 */ CONST char * str, CONST84 char ** termPtr)); /* 270 */
char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, CONST84_RETURN char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * inter
char * version, int exact)); /* 271 */ p, CONST char * name, CONST char * version, int exact)); /* 271 */
char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * nam CONST84_RETURN char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * int
e, char * version, int exact, ClientData * clientDataPtr)); /* 272 */ erp, CONST char * name, CONST char * version, int exact, ClientData * clien
int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ch tDataPtr)); /* 272 */
ar * version)); /* 273 */ int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * na
char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * interp, char * name, me, CONST char * version)); /* 273 */
char * version, int exact)); /* 274 */ CONST84_RETURN char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * inter
p, CONST char * name, CONST char * version, int exact)); /* 274 */
void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar gList)); /* 275 */ void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar gList)); /* 275 */
int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList) ); /* 276 */ int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList) ); /* 276 */
Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int opt ions)); /* 277 */ Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int opt ions)); /* 277 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ void (*tcl_PanicVA) _ANSI_ARGS_((CONST char * format, va_list argList))
void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 2 ; /* 278 */
78 */
#endif /* UNIX */
#ifdef __WIN32__
void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 2
78 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
void *reserved278;
#endif /* MAC_TCL */
void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * pat chLevel, int * type)); /* 279 */ void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * pat chLevel, int * type)); /* 279 */
void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */ void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */
Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_C hannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevCh an)); /* 281 */ Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_C hannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevCh an)); /* 281 */
int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 282 */ int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 282 */
Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / * 283 */ Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / * 283 */
void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc * proc)); /* 284 */ void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc * proc)); /* 284 */
void *reserved285; void *reserved285;
void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * app endObjPtr)); /* 286 */ void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * app endObjPtr)); /* 286 */
Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * type Ptr)); /* 287 */ Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * type Ptr)); /* 287 */
void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 288 */ void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 288 */
void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 289 */ void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 289 */
void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */ void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */
int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); /* 291 */ int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * script , int numBytes, int flags)); /* 291 */
int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */ int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */
int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr , int flags)); /* 293 */ int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr , int flags)); /* 293 */
void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */
int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * sta tePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * d stCharsPtr)); /* 295 */ int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * sta tePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * d stCharsPtr)); /* 295 */
char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 296 */ char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 296 */
void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */ void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 297 */
void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 2 98 */ void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 2 98 */
void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 * / void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 299 * /
Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */ Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 300 */
Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 301 */ Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 301 */
char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */ CONST84_RETURN char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 302 */
void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 303 */ void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 303 */
int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_ Obj * objPtr, char ** tablePtr, int offset, char * msg, int flags, int * in dexPtr)); /* 304 */ int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_ Obj * objPtr, CONST VOID * tablePtr, int offset, CONST char * msg, int flag s, int * indexPtr)); /* 304 */
VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, in t size)); /* 305 */ VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, in t size)); /* 305 */
Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * par t1, char * part2, int flags)); /* 306 */ Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags)); /* 306 */
ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */ ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 307 */
void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 308 */ void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 308 */
void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 309 */ void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 309 */
void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 310 */ void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 310 */
void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mut ex * mutexPtr, Tcl_Time * timePtr)); /* 311 */ void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mut ex * mutexPtr, Tcl_Time * timePtr)); /* 311 */
int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 312 */ int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 312 */
int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr , int charsToRead, int appendFlag)); /* 313 */ int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr , int charsToRead, int appendFlag)); /* 313 */
void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedRe sult * statePtr)); /* 314 */ void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedRe sult * statePtr)); /* 314 */
void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResul t * statePtr)); /* 315 */ void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResul t * statePtr)); /* 315 */
int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch ar * name)); /* 316 */ int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch ar * name)); /* 316 */
Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * par t1, char * part2, Tcl_Obj * newValuePtr, int flags)); /* 317 */ Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, Tcl_Obj * newValuePtr, int flags)); /* 317 */
void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */ void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 318 */
void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Ev ent* evPtr, Tcl_QueuePosition position)); /* 319 */ void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Ev ent* evPtr, Tcl_QueuePosition position)); /* 319 */
Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int in dex)); /* 320 */ Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int in dex)); /* 320 */
Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */ Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 321 */
Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */ Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 322 */
Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */ Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 323 */
int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 324 */ int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 324 */
char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 325 */ CONST84_RETURN char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 325 */
int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* 326 */ int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* 326 */
int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, c har * dst)); /* 327 */ int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, c har * dst)); /* 327 */
char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src, int ch)); /* CONST84_RETURN char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src
328 */ , int ch)); /* 328 */
char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src, int ch)); /* 3 CONST84_RETURN char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src,
29 */ int ch)); /* 329 */
char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); /* 330 */ CONST84_RETURN char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); /
char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CONST char * start * 330 */
)); /* 331 */ CONST84_RETURN char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CON
ST char * start)); /* 331 */
int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * sta tePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * d stCharsPtr)); /* 332 */ int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * sta tePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * d stCharsPtr)); /* 332 */
char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 333 */ char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 333 */
int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 334 */ int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 334 */
int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 335 */ int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 335 */
int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * ch Ptr)); /* 336 */ int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * ch Ptr)); /* 336 */
int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 337 */ int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 337 */
int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 338 */ int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 338 */
int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 339 */ int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 339 */
char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 340 */ char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 340 */
char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void)); /* 341 */ CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) _ANSI_ARGS_((void));
void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((char * path)); /* 342 */ /* 341 */
void (*tcl_SetDefaultEncodingDir) _ANSI_ARGS_((CONST char * path)); /*
342 */
void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */ void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */
void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */
int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */
int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */
int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */
int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */
int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */
int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */
int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */
int (*tcl_UniCharLen) _ANSI_ARGS_((Tcl_UniChar * str)); /* 352 */ int (*tcl_UniCharLen) _ANSI_ARGS_((CONST Tcl_UniChar * str)); /* 352 */
int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_U niChar * ct, unsigned long n)); /* 353 */ int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_U niChar * ct, unsigned long n)); /* 353 */
char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri ng, int numChars, Tcl_DString * dsPtr)); /* 354 */ char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri ng, int numChars, Tcl_DString * dsPtr)); /* 354 */
Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri ng, int length, Tcl_DString * dsPtr)); /* 355 */ Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri ng, int length, Tcl_DString * dsPtr)); /* 355 */
Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc l_Obj * patObj, int flags)); /* 356 */ Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc l_Obj * patObj, int flags)); /* 356 */
Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */ Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */
void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */ void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */
void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * scr void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
ipt, char * command, int length)); /* 359 */ * script, CONST char * command, int length)); /* 359 */
int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * s
int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); /* 360 tring, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** term
*/ Ptr)); /* 360 */
int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * string int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char *
, int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */ string, int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */
int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, char * string, i int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str
nt numBytes, Tcl_Parse * parsePtr)); /* 362 */ ing, int numBytes, Tcl_Parse * parsePtr)); /* 362 */
int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, char * s int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch
tring, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); / ar * string, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char *
* 363 */ * termPtr)); /* 363 */
int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, char * string int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char *
, int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */ string, int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */
char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw dPtr)); /* 365 */ char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw dPtr)); /* 365 */
int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */ int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */
int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */ int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */
int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */ int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */
int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsig ned long n)); /* 369 */ int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsig ned long n)); /* 369 */
int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, u nsigned long n)); /* 370 */ int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, u nsigned long n)); /* 370 */
int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern, int nocase)); /* 371 */ int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern, int nocase)); /* 371 */
int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */ int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */
int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */ int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */
int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */ int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */
int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */ int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */
int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp r egexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags)); /* 376 */ int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp r egexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags)); /* 376 */
void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInf o * infoPtr)); /* 377 */ void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInf o * infoPtr)); /* 377 */
Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((Tcl_UniChar * unicode, int Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((CONST Tcl_UniChar * unicode
numChars)); /* 378 */ , int numChars)); /* 378 */
void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_UniChar * void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST Tcl_UniC
unicode, int numChars)); /* 379 */ har * unicode, int numChars)); /* 379 */
int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 380 */ int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 380 */
Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj * objPtr, int index) ); /* 381 */ Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj * objPtr, int index) ); /* 381 */
Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 382 */ Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 382 */
Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj * objPtr, int first, int last)); /* 383 */ Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj * objPtr, int first, int last)); /* 383 */
void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_UniCh ar * unicode, int length)); /* 384 */ void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, CONST Tcl _UniChar * unicode, int length)); /* 384 */
int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * s tringObj, Tcl_Obj * patternObj)); /* 385 */ int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * s tringObj, Tcl_Obj * patternObj)); /* 385 */
void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPt r)); /* 386 */ void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPt r)); /* 386 */
Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */ Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */
int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 388 * / int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 388 * /
int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp * interp, char * p attern)); /* 389 */ int (*tcl_GetChannelNamesEx) _ANSI_ARGS_((Tcl_Interp * interp, CONST ch ar * pattern)); /* 389 */
int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 390 */ int (*tcl_ProcObjCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 390 */
void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition * condPtr)); / * 391 */ void (*tcl_ConditionFinalize) _ANSI_ARGS_((Tcl_Condition * condPtr)); / * 391 */
void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex * mutex)); /* 392 */ void (*tcl_MutexFinalize) _ANSI_ARGS_((Tcl_Mutex * mutex)); /* 392 */
int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId * idPtr, Tcl_ThreadCr eateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */ int (*tcl_CreateThread) _ANSI_ARGS_((Tcl_ThreadId * idPtr, Tcl_ThreadCr eateProc proc, ClientData clientData, int stackSize, int flags)); /* 393 */
int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char * dst, int bytes ToRead)); /* 394 */ int (*tcl_ReadRaw) _ANSI_ARGS_((Tcl_Channel chan, char * dst, int bytes ToRead)); /* 394 */
int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, char * src, int srcL en)); /* 395 */ int (*tcl_WriteRaw) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, in t srcLen)); /* 395 */
Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 39 6 */ Tcl_Channel (*tcl_GetTopChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 39 6 */
int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */ int (*tcl_ChannelBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 397 */
char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 398 */ CONST84_RETURN char * (*tcl_ChannelName) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 398 */
Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelTy pe * chanTypePtr)); /* 399 */ Tcl_ChannelTypeVersion (*tcl_ChannelVersion) _ANSI_ARGS_((Tcl_ChannelTy pe * chanTypePtr)); /* 399 */
Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 400 */ Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 400 */
Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 401 */ Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 401 */
Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 402 */ Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 402 */
Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 403 */ Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 403 */
Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 404 */ Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 404 */
Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp e * chanTypePtr)); /* 405 */ Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp e * chanTypePtr)); /* 405 */
Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 406 */ Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 406 */
Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 407 */ Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 407 */
Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 408 */ Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 408 */
Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 409 */ Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 409 */
Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 410 */ Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 410 */
Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan nelType * chanTypePtr)); /* 411 */ Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan nelType * chanTypePtr)); /* 411 */
int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId id, int* result)); /* 4
12 */
int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 *
/
int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Cha
nnel channel)); /* 414 */
void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */
void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */
void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /*
417 */
int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char* channelName)); /*
418 */
int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST T
cl_UniChar * ct, unsigned long n)); /* 419 */
int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar * ustr, CONS
T Tcl_UniChar * pattern, int nocase)); /* 420 */
Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable * table
Ptr, CONST char * key)); /* 421 */
Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable * tab
lePtr, CONST char * key, int * newPtr)); /* 422 */
void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr,
int keyType, Tcl_HashKeyType * typePtr)); /* 423 */
void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /
* 424 */
ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CO
NST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData p
revClientData)); /* 425 */
int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char *
varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /
* 426 */
void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
* varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData))
; /* 427 */
char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */
char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST ch
ar * file, int line)); /* 429 */
char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char * ptr, unsigned int size
)); /* 430 */
char * (*tcl_AttemptDbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int
size, CONST char * file, int line)); /* 431 */
int (*tcl_AttemptSetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int lengt
h)); /* 432 */
Tcl_ThreadId (*tcl_GetChannelThread) _ANSI_ARGS_((Tcl_Channel channel))
; /* 433 */
Tcl_UniChar * (*tcl_GetUnicodeFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, i
nt * lengthPtr)); /* 434 */
int (*tcl_GetMathFuncInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
* name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** pr
ocPtr, ClientData * clientDataPtr)); /* 435 */
Tcl_Obj * (*tcl_ListMathFuncs) _ANSI_ARGS_((Tcl_Interp * interp, CONST
char * pattern)); /* 436 */
Tcl_Obj * (*tcl_SubstObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * o
bjPtr, int flags)); /* 437 */
int (*tcl_DetachChannel) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Channel c
hannel)); /* 438 */
int (*tcl_IsStandardChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 439
*/
int (*tcl_FSCopyFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * dest
PathPtr)); /* 440 */
int (*tcl_FSCopyDirectory) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj *
destPathPtr, Tcl_Obj ** errorPtr)); /* 441 */
int (*tcl_FSCreateDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 442 *
/
int (*tcl_FSDeleteFile) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 443 */
int (*tcl_FSLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathP
tr, CONST char * sym1, CONST char * sym2, Tcl_PackageInitProc ** proc1Ptr,
Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFi
leProc ** unloadProcPtr)); /* 444 */
int (*tcl_FSMatchInDirectory) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj
* result, Tcl_Obj * pathPtr, CONST char * pattern, Tcl_GlobTypeData * type
s)); /* 445 */
Tcl_Obj * (*tcl_FSLink) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_Obj * toPtr
, int linkAction)); /* 446 */
int (*tcl_FSRemoveDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr, int recurs
ive, Tcl_Obj ** errorPtr)); /* 447 */
int (*tcl_FSRenameFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * de
stPathPtr)); /* 448 */
int (*tcl_FSLstat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf));
/* 449 */
int (*tcl_FSUtime) _ANSI_ARGS_((Tcl_Obj * pathPtr, struct utimbuf * tva
l)); /* 450 */
int (*tcl_FSFileAttrsGet) _ANSI_ARGS_((Tcl_Interp * interp, int index,
Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef)); /* 451 */
int (*tcl_FSFileAttrsSet) _ANSI_ARGS_((Tcl_Interp * interp, int index,
Tcl_Obj * pathPtr, Tcl_Obj * objPtr)); /* 452 */
CONST char ** (*tcl_FSFileAttrStrings) _ANSI_ARGS_((Tcl_Obj * pathPtr,
Tcl_Obj ** objPtrRef)); /* 453 */
int (*tcl_FSStat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf));
/* 454 */
int (*tcl_FSAccess) _ANSI_ARGS_((Tcl_Obj * pathPtr, int mode)); /* 455
*/
Tcl_Channel (*tcl_FSOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * pathPtr, CONST char * modeString, int permissions)); /* 456 */
Tcl_Obj* (*tcl_FSGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 457 */
int (*tcl_FSChdir) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 458 */
int (*tcl_FSConvertToPathType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Ob
j * pathPtr)); /* 459 */
Tcl_Obj* (*tcl_FSJoinPath) _ANSI_ARGS_((Tcl_Obj * listObj, int elements
)); /* 460 */
Tcl_Obj* (*tcl_FSSplitPath) _ANSI_ARGS_((Tcl_Obj* pathPtr, int * lenPtr
)); /* 461 */
int (*tcl_FSEqualPaths) _ANSI_ARGS_((Tcl_Obj* firstPtr, Tcl_Obj* second
Ptr)); /* 462 */
Tcl_Obj* (*tcl_FSGetNormalizedPath) _ANSI_ARGS_((Tcl_Interp * interp, T
cl_Obj* pathObjPtr)); /* 463 */
Tcl_Obj* (*tcl_FSJoinToPath) _ANSI_ARGS_((Tcl_Obj * basePtr, int objc,
Tcl_Obj *CONST objv[])); /* 464 */
ClientData (*tcl_FSGetInternalRep) _ANSI_ARGS_((Tcl_Obj* pathObjPtr, Tc
l_Filesystem * fsPtr)); /* 465 */
Tcl_Obj* (*tcl_FSGetTranslatedPath) _ANSI_ARGS_((Tcl_Interp * interp, T
cl_Obj* pathPtr)); /* 466 */
int (*tcl_FSEvalFile) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * fileN
ame)); /* 467 */
Tcl_Obj* (*tcl_FSNewNativePath) _ANSI_ARGS_((Tcl_Filesystem* fromFilesy
stem, ClientData clientData)); /* 468 */
CONST char* (*tcl_FSGetNativePath) _ANSI_ARGS_((Tcl_Obj* pathObjPtr));
/* 469 */
Tcl_Obj* (*tcl_FSFileSystemInfo) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /*
470 */
Tcl_Obj* (*tcl_FSPathSeparator) _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /*
471 */
Tcl_Obj* (*tcl_FSListVolumes) _ANSI_ARGS_((void)); /* 472 */
int (*tcl_FSRegister) _ANSI_ARGS_((ClientData clientData, Tcl_Filesyste
m * fsPtr)); /* 473 */
int (*tcl_FSUnregister) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 474 *
/
ClientData (*tcl_FSData) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 475
*/
CONST char* (*tcl_FSGetTranslatedStringPath) _ANSI_ARGS_((Tcl_Interp *
interp, Tcl_Obj* pathPtr)); /* 476 */
Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) _ANSI_ARGS_((Tcl_Obj* pat
hObjPtr)); /* 477 */
Tcl_PathType (*tcl_FSGetPathType) _ANSI_ARGS_((Tcl_Obj * pathObjPtr));
/* 478 */
int (*tcl_OutputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 479 */
void (*tcl_FSMountsChanged) _ANSI_ARGS_((Tcl_Filesystem * fsPtr)); /* 4
80 */
int (*tcl_EvalTokensStandard) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Tok
en * tokenPtr, int count)); /* 481 */
void (*tcl_GetTime) _ANSI_ARGS_((Tcl_Time* timeBuf)); /* 482 */
Tcl_Trace (*tcl_CreateObjTrace) _ANSI_ARGS_((Tcl_Interp* interp, int le
vel, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_Cm
dObjTraceDeleteProc* delProc)); /* 483 */
int (*tcl_GetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, Tcl_
CmdInfo* infoPtr)); /* 484 */
int (*tcl_SetCommandInfoFromToken) _ANSI_ARGS_((Tcl_Command token, CONS
T Tcl_CmdInfo* infoPtr)); /* 485 */
Tcl_Obj * (*tcl_DbNewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue, CO
NST char * file, int line)); /* 486 */
int (*tcl_GetWideIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj
* objPtr, Tcl_WideInt * widePtr)); /* 487 */
Tcl_Obj * (*tcl_NewWideIntObj) _ANSI_ARGS_((Tcl_WideInt wideValue)); /*
488 */
void (*tcl_SetWideIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_WideInt wi
deValue)); /* 489 */
Tcl_StatBuf * (*tcl_AllocStatBuf) _ANSI_ARGS_((void)); /* 490 */
Tcl_WideInt (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, Tcl_WideInt offs
et, int mode)); /* 491 */
Tcl_WideInt (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 492 */
Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) _ANSI_ARGS_((Tcl_Ch
annelType * chanTypePtr)); /* 493 */
} 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 2686 skipping to change at line 3043
(tclStubsPtr->tcl_ResetResult) /* 217 */ (tclStubsPtr->tcl_ResetResult) /* 217 */
#endif #endif
#ifndef Tcl_ScanElement #ifndef Tcl_ScanElement
#define Tcl_ScanElement \ #define Tcl_ScanElement \
(tclStubsPtr->tcl_ScanElement) /* 218 */ (tclStubsPtr->tcl_ScanElement) /* 218 */
#endif #endif
#ifndef Tcl_ScanCountedElement #ifndef Tcl_ScanCountedElement
#define Tcl_ScanCountedElement \ #define Tcl_ScanCountedElement \
(tclStubsPtr->tcl_ScanCountedElement) /* 219 */ (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
#endif #endif
#ifndef Tcl_Seek #ifndef Tcl_SeekOld
#define Tcl_Seek \ #define Tcl_SeekOld \
(tclStubsPtr->tcl_Seek) /* 220 */ (tclStubsPtr->tcl_SeekOld) /* 220 */
#endif #endif
#ifndef Tcl_ServiceAll #ifndef Tcl_ServiceAll
#define Tcl_ServiceAll \ #define Tcl_ServiceAll \
(tclStubsPtr->tcl_ServiceAll) /* 221 */ (tclStubsPtr->tcl_ServiceAll) /* 221 */
#endif #endif
#ifndef Tcl_ServiceEvent #ifndef Tcl_ServiceEvent
#define Tcl_ServiceEvent \ #define Tcl_ServiceEvent \
(tclStubsPtr->tcl_ServiceEvent) /* 222 */ (tclStubsPtr->tcl_ServiceEvent) /* 222 */
#endif #endif
#ifndef Tcl_SetAssocData #ifndef Tcl_SetAssocData
skipping to change at line 2790 skipping to change at line 3147
(tclStubsPtr->tcl_SplitPath) /* 243 */ (tclStubsPtr->tcl_SplitPath) /* 243 */
#endif #endif
#ifndef Tcl_StaticPackage #ifndef Tcl_StaticPackage
#define Tcl_StaticPackage \ #define Tcl_StaticPackage \
(tclStubsPtr->tcl_StaticPackage) /* 244 */ (tclStubsPtr->tcl_StaticPackage) /* 244 */
#endif #endif
#ifndef Tcl_StringMatch #ifndef Tcl_StringMatch
#define Tcl_StringMatch \ #define Tcl_StringMatch \
(tclStubsPtr->tcl_StringMatch) /* 245 */ (tclStubsPtr->tcl_StringMatch) /* 245 */
#endif #endif
#ifndef Tcl_Tell #ifndef Tcl_TellOld
#define Tcl_Tell \ #define Tcl_TellOld \
(tclStubsPtr->tcl_Tell) /* 246 */ (tclStubsPtr->tcl_TellOld) /* 246 */
#endif #endif
#ifndef Tcl_TraceVar #ifndef Tcl_TraceVar
#define Tcl_TraceVar \ #define Tcl_TraceVar \
(tclStubsPtr->tcl_TraceVar) /* 247 */ (tclStubsPtr->tcl_TraceVar) /* 247 */
#endif #endif
#ifndef Tcl_TraceVar2 #ifndef Tcl_TraceVar2
#define Tcl_TraceVar2 \ #define Tcl_TraceVar2 \
(tclStubsPtr->tcl_TraceVar2) /* 248 */ (tclStubsPtr->tcl_TraceVar2) /* 248 */
#endif #endif
#ifndef Tcl_TranslateFileName #ifndef Tcl_TranslateFileName
skipping to change at line 2918 skipping to change at line 3275
(tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
#endif #endif
#ifndef Tcl_VarEvalVA #ifndef Tcl_VarEvalVA
#define Tcl_VarEvalVA \ #define Tcl_VarEvalVA \
(tclStubsPtr->tcl_VarEvalVA) /* 276 */ (tclStubsPtr->tcl_VarEvalVA) /* 276 */
#endif #endif
#ifndef Tcl_WaitPid #ifndef Tcl_WaitPid
#define Tcl_WaitPid \ #define Tcl_WaitPid \
(tclStubsPtr->tcl_WaitPid) /* 277 */ (tclStubsPtr->tcl_WaitPid) /* 277 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_PanicVA
#define Tcl_PanicVA \
(tclStubsPtr->tcl_PanicVA) /* 278 */
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_PanicVA #ifndef Tcl_PanicVA
#define Tcl_PanicVA \ #define Tcl_PanicVA \
(tclStubsPtr->tcl_PanicVA) /* 278 */ (tclStubsPtr->tcl_PanicVA) /* 278 */
#endif #endif
#endif /* __WIN32__ */
#ifndef Tcl_GetVersion #ifndef Tcl_GetVersion
#define Tcl_GetVersion \ #define Tcl_GetVersion \
(tclStubsPtr->tcl_GetVersion) /* 279 */ (tclStubsPtr->tcl_GetVersion) /* 279 */
#endif #endif
#ifndef Tcl_InitMemory #ifndef Tcl_InitMemory
#define Tcl_InitMemory \ #define Tcl_InitMemory \
(tclStubsPtr->tcl_InitMemory) /* 280 */ (tclStubsPtr->tcl_InitMemory) /* 280 */
#endif #endif
#ifndef Tcl_StackChannel #ifndef Tcl_StackChannel
#define Tcl_StackChannel \ #define Tcl_StackChannel \
skipping to change at line 3459 skipping to change at line 3808
(tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
#endif #endif
#ifndef Tcl_ChannelFlushProc #ifndef Tcl_ChannelFlushProc
#define Tcl_ChannelFlushProc \ #define Tcl_ChannelFlushProc \
(tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
#endif #endif
#ifndef Tcl_ChannelHandlerProc #ifndef Tcl_ChannelHandlerProc
#define Tcl_ChannelHandlerProc \ #define Tcl_ChannelHandlerProc \
(tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
#endif #endif
#ifndef Tcl_JoinThread
#define Tcl_JoinThread \
(tclStubsPtr->tcl_JoinThread) /* 412 */
#endif
#ifndef Tcl_IsChannelShared
#define Tcl_IsChannelShared \
(tclStubsPtr->tcl_IsChannelShared) /* 413 */
#endif
#ifndef Tcl_IsChannelRegistered
#define Tcl_IsChannelRegistered \
(tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
#endif
#ifndef Tcl_CutChannel
#define Tcl_CutChannel \
(tclStubsPtr->tcl_CutChannel) /* 415 */
#endif
#ifndef Tcl_SpliceChannel
#define Tcl_SpliceChannel \
(tclStubsPtr->tcl_SpliceChannel) /* 416 */
#endif
#ifndef Tcl_ClearChannelHandlers
#define Tcl_ClearChannelHandlers \
(tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
#endif
#ifndef Tcl_IsChannelExisting
#define Tcl_IsChannelExisting \
(tclStubsPtr->tcl_IsChannelExisting) /* 418 */
#endif
#ifndef Tcl_UniCharNcasecmp
#define Tcl_UniCharNcasecmp \
(tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
#endif
#ifndef Tcl_UniCharCaseMatch
#define Tcl_UniCharCaseMatch \
(tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
#endif
#ifndef Tcl_FindHashEntry
#define Tcl_FindHashEntry \
(tclStubsPtr->tcl_FindHashEntry) /* 421 */
#endif
#ifndef Tcl_CreateHashEntry
#define Tcl_CreateHashEntry \
(tclStubsPtr->tcl_CreateHashEntry) /* 422 */
#endif
#ifndef Tcl_InitCustomHashTable
#define Tcl_InitCustomHashTable \
(tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
#endif
#ifndef Tcl_InitObjHashTable
#define Tcl_InitObjHashTable \
(tclStubsPtr->tcl_InitObjHashTable) /* 424 */
#endif
#ifndef Tcl_CommandTraceInfo
#define Tcl_CommandTraceInfo \
(tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
#endif
#ifndef Tcl_TraceCommand
#define Tcl_TraceCommand \
(tclStubsPtr->tcl_TraceCommand) /* 426 */
#endif
#ifndef Tcl_UntraceCommand
#define Tcl_UntraceCommand \
(tclStubsPtr->tcl_UntraceCommand) /* 427 */
#endif
#ifndef Tcl_AttemptAlloc
#define Tcl_AttemptAlloc \
(tclStubsPtr->tcl_AttemptAlloc) /* 428 */
#endif
#ifndef Tcl_AttemptDbCkalloc
#define Tcl_AttemptDbCkalloc \
(tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
#endif
#ifndef Tcl_AttemptRealloc
#define Tcl_AttemptRealloc \
(tclStubsPtr->tcl_AttemptRealloc) /* 430 */
#endif
#ifndef Tcl_AttemptDbCkrealloc
#define Tcl_AttemptDbCkrealloc \
(tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
#endif
#ifndef Tcl_AttemptSetObjLength
#define Tcl_AttemptSetObjLength \
(tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
#endif
#ifndef Tcl_GetChannelThread
#define Tcl_GetChannelThread \
(tclStubsPtr->tcl_GetChannelThread) /* 433 */
#endif
#ifndef Tcl_GetUnicodeFromObj
#define Tcl_GetUnicodeFromObj \
(tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
#endif
#ifndef Tcl_GetMathFuncInfo
#define Tcl_GetMathFuncInfo \
(tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
#endif
#ifndef Tcl_ListMathFuncs
#define Tcl_ListMathFuncs \
(tclStubsPtr->tcl_ListMathFuncs) /* 436 */
#endif
#ifndef Tcl_SubstObj
#define Tcl_SubstObj \
(tclStubsPtr->tcl_SubstObj) /* 437 */
#endif
#ifndef Tcl_DetachChannel
#define Tcl_DetachChannel \
(tclStubsPtr->tcl_DetachChannel) /* 438 */
#endif
#ifndef Tcl_IsStandardChannel
#define Tcl_IsStandardChannel \
(tclStubsPtr->tcl_IsStandardChannel) /* 439 */
#endif
#ifndef Tcl_FSCopyFile
#define Tcl_FSCopyFile \
(tclStubsPtr->tcl_FSCopyFile) /* 440 */
#endif
#ifndef Tcl_FSCopyDirectory
#define Tcl_FSCopyDirectory \
(tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
#endif
#ifndef Tcl_FSCreateDirectory
#define Tcl_FSCreateDirectory \
(tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
#endif
#ifndef Tcl_FSDeleteFile
#define Tcl_FSDeleteFile \
(tclStubsPtr->tcl_FSDeleteFile) /* 443 */
#endif
#ifndef Tcl_FSLoadFile
#define Tcl_FSLoadFile \
(tclStubsPtr->tcl_FSLoadFile) /* 444 */
#endif
#ifndef Tcl_FSMatchInDirectory
#define Tcl_FSMatchInDirectory \
(tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
#endif
#ifndef Tcl_FSLink
#define Tcl_FSLink \
(tclStubsPtr->tcl_FSLink) /* 446 */
#endif
#ifndef Tcl_FSRemoveDirectory
#define Tcl_FSRemoveDirectory \
(tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
#endif
#ifndef Tcl_FSRenameFile
#define Tcl_FSRenameFile \
(tclStubsPtr->tcl_FSRenameFile) /* 448 */
#endif
#ifndef Tcl_FSLstat
#define Tcl_FSLstat \
(tclStubsPtr->tcl_FSLstat) /* 449 */
#endif
#ifndef Tcl_FSUtime
#define Tcl_FSUtime \
(tclStubsPtr->tcl_FSUtime) /* 450 */
#endif
#ifndef Tcl_FSFileAttrsGet
#define Tcl_FSFileAttrsGet \
(tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
#endif
#ifndef Tcl_FSFileAttrsSet
#define Tcl_FSFileAttrsSet \
(tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
#endif
#ifndef Tcl_FSFileAttrStrings
#define Tcl_FSFileAttrStrings \
(tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
#endif
#ifndef Tcl_FSStat
#define Tcl_FSStat \
(tclStubsPtr->tcl_FSStat) /* 454 */
#endif
#ifndef Tcl_FSAccess
#define Tcl_FSAccess \
(tclStubsPtr->tcl_FSAccess) /* 455 */
#endif
#ifndef Tcl_FSOpenFileChannel
#define Tcl_FSOpenFileChannel \
(tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
#endif
#ifndef Tcl_FSGetCwd
#define Tcl_FSGetCwd \
(tclStubsPtr->tcl_FSGetCwd) /* 457 */
#endif
#ifndef Tcl_FSChdir
#define Tcl_FSChdir \
(tclStubsPtr->tcl_FSChdir) /* 458 */
#endif
#ifndef Tcl_FSConvertToPathType
#define Tcl_FSConvertToPathType \
(tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
#endif
#ifndef Tcl_FSJoinPath
#define Tcl_FSJoinPath \
(tclStubsPtr->tcl_FSJoinPath) /* 460 */
#endif
#ifndef Tcl_FSSplitPath
#define Tcl_FSSplitPath \
(tclStubsPtr->tcl_FSSplitPath) /* 461 */
#endif
#ifndef Tcl_FSEqualPaths
#define Tcl_FSEqualPaths \
(tclStubsPtr->tcl_FSEqualPaths) /* 462 */
#endif
#ifndef Tcl_FSGetNormalizedPath
#define Tcl_FSGetNormalizedPath \
(tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
#endif
#ifndef Tcl_FSJoinToPath
#define Tcl_FSJoinToPath \
(tclStubsPtr->tcl_FSJoinToPath) /* 464 */
#endif
#ifndef Tcl_FSGetInternalRep
#define Tcl_FSGetInternalRep \
(tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
#endif
#ifndef Tcl_FSGetTranslatedPath
#define Tcl_FSGetTranslatedPath \
(tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
#endif
#ifndef Tcl_FSEvalFile
#define Tcl_FSEvalFile \
(tclStubsPtr->tcl_FSEvalFile) /* 467 */
#endif
#ifndef Tcl_FSNewNativePath
#define Tcl_FSNewNativePath \
(tclStubsPtr->tcl_FSNewNativePath) /* 468 */
#endif
#ifndef Tcl_FSGetNativePath
#define Tcl_FSGetNativePath \
(tclStubsPtr->tcl_FSGetNativePath) /* 469 */
#endif
#ifndef Tcl_FSFileSystemInfo
#define Tcl_FSFileSystemInfo \
(tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
#endif
#ifndef Tcl_FSPathSeparator
#define Tcl_FSPathSeparator \
(tclStubsPtr->tcl_FSPathSeparator) /* 471 */
#endif
#ifndef Tcl_FSListVolumes
#define Tcl_FSListVolumes \
(tclStubsPtr->tcl_FSListVolumes) /* 472 */
#endif
#ifndef Tcl_FSRegister
#define Tcl_FSRegister \
(tclStubsPtr->tcl_FSRegister) /* 473 */
#endif
#ifndef Tcl_FSUnregister
#define Tcl_FSUnregister \
(tclStubsPtr->tcl_FSUnregister) /* 474 */
#endif
#ifndef Tcl_FSData
#define Tcl_FSData \
(tclStubsPtr->tcl_FSData) /* 475 */
#endif
#ifndef Tcl_FSGetTranslatedStringPath
#define Tcl_FSGetTranslatedStringPath \
(tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
#endif
#ifndef Tcl_FSGetFileSystemForPath
#define Tcl_FSGetFileSystemForPath \
(tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
#endif
#ifndef Tcl_FSGetPathType
#define Tcl_FSGetPathType \
(tclStubsPtr->tcl_FSGetPathType) /* 478 */
#endif
#ifndef Tcl_OutputBuffered
#define Tcl_OutputBuffered \
(tclStubsPtr->tcl_OutputBuffered) /* 479 */
#endif
#ifndef Tcl_FSMountsChanged
#define Tcl_FSMountsChanged \
(tclStubsPtr->tcl_FSMountsChanged) /* 480 */
#endif
#ifndef Tcl_EvalTokensStandard
#define Tcl_EvalTokensStandard \
(tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
#endif
#ifndef Tcl_GetTime
#define Tcl_GetTime \
(tclStubsPtr->tcl_GetTime) /* 482 */
#endif
#ifndef Tcl_CreateObjTrace
#define Tcl_CreateObjTrace \
(tclStubsPtr->tcl_CreateObjTrace) /* 483 */
#endif
#ifndef Tcl_GetCommandInfoFromToken
#define Tcl_GetCommandInfoFromToken \
(tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
#endif
#ifndef Tcl_SetCommandInfoFromToken
#define Tcl_SetCommandInfoFromToken \
(tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
#endif
#ifndef Tcl_DbNewWideIntObj
#define Tcl_DbNewWideIntObj \
(tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
#endif
#ifndef Tcl_GetWideIntFromObj
#define Tcl_GetWideIntFromObj \
(tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
#endif
#ifndef Tcl_NewWideIntObj
#define Tcl_NewWideIntObj \
(tclStubsPtr->tcl_NewWideIntObj) /* 488 */
#endif
#ifndef Tcl_SetWideIntObj
#define Tcl_SetWideIntObj \
(tclStubsPtr->tcl_SetWideIntObj) /* 489 */
#endif
#ifndef Tcl_AllocStatBuf
#define Tcl_AllocStatBuf \
(tclStubsPtr->tcl_AllocStatBuf) /* 490 */
#endif
#ifndef Tcl_Seek
#define Tcl_Seek \
(tclStubsPtr->tcl_Seek) /* 491 */
#endif
#ifndef Tcl_Tell
#define Tcl_Tell \
(tclStubsPtr->tcl_Tell) /* 492 */
#endif
#ifndef Tcl_ChannelWideSeekProc
#define Tcl_ChannelWideSeekProc \
(tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
#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. */
#endif /* _TCLDECLS */ #endif /* _TCLDECLS */
 End of changes. 220 change blocks. 
460 lines changed or deleted 1245 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.5.12.2 2002/10/15 20:23:18 hobbs Exp $ * RCS: @(#) $Id: tclPlatDecls.h,v 1.17 2002/08/31 06:09:45 das Exp $
*/ */
#ifndef _TCLPLATDECLS #ifndef _TCLPLATDECLS
#define _TCLPLATDECLS #define _TCLPLATDECLS
/* /*
* Pull in the typedef of TCHAR for windows. * Pull in the typedef of TCHAR for windows.
*/ */
#if defined(__CYGWIN__) #if defined(__WIN32__) && !defined(_TCHAR_DEFINED)
typedef char TCHAR;
#elif defined(__WIN32__) && !defined(_TCHAR_DEFINED)
# include <tchar.h> # include <tchar.h>
# ifndef _TCHAR_DEFINED # ifndef _TCHAR_DEFINED
/* Borland seems to forget to set this. */ /* Borland seems to forget to set this. */
typedef _TCHAR TCHAR; typedef _TCHAR TCHAR;
# define _TCHAR_DEFINED # define _TCHAR_DEFINED
# endif # endif
# if defined(_MSC_VER) && defined(__STDC__) # if defined(_MSC_VER) && defined(__STDC__)
/* MSVC++ misses this. */ /* MSVC++ misses this. */
typedef _TCHAR TCHAR; typedef _TCHAR TCHAR;
# endif # endif
skipping to change at line 56 skipping to change at line 54
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
/* 0 */ /* 0 */
EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_(( EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_((
Tcl_MacConvertEventPtr procPtr)); Tcl_MacConvertEventPtr procPtr));
/* 1 */ /* 1 */
EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_(( EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_((
Handle resource)); Handle resource));
/* 2 */ /* 2 */
EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp , EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp ,
char * resourceName, int resourceNumber, CONST char * resourceName,
char * fileName)); int resourceNumber, CONST char * fileName));
/* 3 */ /* 3 */
EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp , EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp ,
long resourceType, char * resourceName, long resourceType, CONST char * resourceName
int resourceNumber, char * resFileRef, ,
int resourceNumber, CONST char * resFileRef,
int * releaseIt)); int * releaseIt));
/* 4 */ /* 4 */
EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_(( EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Interp * interp, Tcl_Obj * objPtr,
OSType * osTypePtr)); OSType * osTypePtr));
/* 5 */ /* 5 */
EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
OSType osType)); OSType osType));
/* 6 */ /* 6 */
EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType)); EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
/* 7 */ /* 7 */
EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1, EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2, size_t n)); CONST char * s2, size_t n));
/* 8 */ /* 8 */
EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1, EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2)); CONST char * s2));
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#ifdef MAC_OSX_TCL
/* 0 */
EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * bundleName
,
int hasResourceFile, int maxPathLen,
char * libraryPath));
#endif /* MAC_OSX_TCL */
typedef struct TclPlatStubs { typedef struct TclPlatStubs {
int magic; int magic;
struct TclPlatStubHooks *hooks; struct TclPlatStubHooks *hooks;
#ifdef __WIN32__ #ifdef __WIN32__
TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tc l_DString * dsPtr)); /* 0 */ TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tc l_DString * dsPtr)); /* 0 */
char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tc l_DString * dsPtr)); /* 1 */ char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tc l_DString * dsPtr)); /* 1 */
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr )); /* 0 */ void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr )); /* 0 */
char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */ char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */
int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, char * res int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
ourceName, int resourceNumber, char * fileName)); /* 2 */ * resourceName, int resourceNumber, CONST char * fileName)); /* 2 */
Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long re Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long re
sourceType, char * resourceName, int resourceNumber, char * resFileRef, int sourceType, CONST char * resourceName, int resourceNumber, CONST char * res
* releaseIt)); /* 3 */ FileRef, int * releaseIt)); /* 3 */
int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */ int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */
void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)) ; /* 5 */ void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)) ; /* 5 */
Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */ Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */
int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_ t n)); /* 7 */ int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_ t n)); /* 7 */
int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */ int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#ifdef MAC_OSX_TCL
int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * bundleName, int hasResourceFile, int maxPathLen, char * librar
yPath)); /* 0 */
#endif /* MAC_OSX_TCL */
} TclPlatStubs; } TclPlatStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclPlatStubs *tclPlatStubsPtr; extern TclPlatStubs *tclPlatStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
skipping to change at line 163 skipping to change at line 171
#endif #endif
#ifndef strncasecmp #ifndef strncasecmp
#define strncasecmp \ #define strncasecmp \
(tclPlatStubsPtr->strncasecmp) /* 7 */ (tclPlatStubsPtr->strncasecmp) /* 7 */
#endif #endif
#ifndef strcasecmp #ifndef strcasecmp
#define strcasecmp \ #define strcasecmp \
(tclPlatStubsPtr->strcasecmp) /* 8 */ (tclPlatStubsPtr->strcasecmp) /* 8 */
#endif #endif
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#ifdef MAC_OSX_TCL
#ifndef Tcl_MacOSXOpenBundleResources
#define Tcl_MacOSXOpenBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
#endif
#endif /* MAC_OSX_TCL */
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#endif /* _TCLPLATDECLS */ #endif /* _TCLPLATDECLS */
 End of changes. 8 change blocks. 
13 lines changed or deleted 31 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/