namespace tcl.lang { public partial class TCL { /* * tcl.h -- * * This header file describes the externally-visible facilities * of the Tcl interpreter. * * Copyright (c) 1987-1994 The Regents of the University of California. * Copyright (c) 1993-1996 Lucent Technologies. * Copyright (c) 1994-1998 Sun Microsystems, Inc. * 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 * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * Included in SQLite3 port to C# for use in testharness only; 2008 Noah B Hart * * RCS @(#) $Id: tcl.h,v 1.153.2.34 2008/02/06 15:25:15 dgp Exp $ */ #if !_TCL //#define _TCL /* * For C++ compilers, use extern "C" */ #if __cplusplus //extern "C" { #endif /* * The following defines are used to indicate the various release levels. */ //#define TCL_ALPHA_RELEASE 0 //#define TCL_BETA_RELEASE 1 //#define TCL_FINAL_RELEASE 2 /* * When version numbers change here, must also go into the following files * and update the version numbers: * * library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) * win/configure.in (as above) * win/tcl.m4 (not patchlevel) * win/makefile.vc (not patchlevel) 2 LOC * README (sections 0 and 2) * mac/README (2 LOC, not patchlevel) * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC * win/README.binary (sections 0-4) * win/README (not patchlevel) (sections 0 and 2) * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) * tests/basic.test (1 LOC M/M, not patchlevel) * tools/tcl.hpj.in (not patchlevel, for windows installer) * tools/tcl.wse.in (for windows installer) * tools/tclSplash.bmp (not patchlevel) */ //#define TCL_MAJOR_VERSION 8 //#define TCL_MINOR_VERSION 4 //#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE //#define TCL_RELEASE_SERIAL 18 //#define TCL_VERSION "8.4" //#define TCL_PATCH_LEVEL "8.4.18" /* * The following definitions set up the proper options for Windows * compilers. We use this method because there is no autoconf equivalent. */ //#if !__WIN32__ //# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined(__BORLANDC__) //# define __WIN32__ //# ifndef WIN32 //# define WIN32 //# endif //# endif //#endif /* * STRICT: See MSDN Article Q83456 */ //#if __WIN32__ //# ifndef STRICT //# define STRICT //# endif //#endif // * __WIN32__ */ /* * The following definitions set up the proper options for Macintosh * compilers. We use this method because there is no autoconf equivalent. */ //#if MAC_TCL //#include //# ifndef USE_TCLALLOC //# define USE_TCLALLOC 1 //# endif //# ifndef NO_STRERROR //# define NO_STRERROR 1 //# endif //# define INLINE //#endif /* * Utility macros: STRINGIFY takes an argument and wraps it in "" (double * quotation marks), JOIN joins two arguments. */ //#if !STRINGIFY //# define STRINGIFY(x) STRINGIFY1(x) //# define STRINGIFY1(x) #x //#endif //#if !JOIN //# define JOIN(a,b) JOIN1(a,b) //# define JOIN1(a,b) a##b //#endif /* * A special definition used to allow this header file to be included * from windows or mac resource files so that they can obtain version * information. RC_INVOKED is defined by default by the windows RC tool * and manually set for macintosh. * * Resource compilers don't like all the C stuff, like typedefs and * procedure declarations, that occur below, so block them out. */ #if !RC_INVOKED /* * Special macro to define mutexes, that doesn't do anything * if we are not using threads. */ #if TCL_THREADS //#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; #else //#define TCL_DECLARE_MUTEX(name) #endif /* * Macros that eliminate the overhead of the thread synchronization * functions when compiling without thread support. */ #if !TCL_THREADS //#define Tcl_MutexLock(mutexPtr) //#define Tcl_MutexUnlock(mutexPtr) //#define Tcl_MutexFinalize(mutexPtr) //#define Tcl_ConditionNotify(condPtr) //#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) //#define Tcl_ConditionFinalize(condPtr) #endif // * TCL_THREADS */ //#if !BUFSIZ //# include //#endif /* * Definitions that allow Tcl functions with variable numbers of * arguments to be used with either varargs.h or stdarg.h. TCL_VARARGS * is used in procedure prototypes. TCL_VARARGS_DEF is used to declare * the arguments in a function definiton: it takes the type and name of * the first argument and supplies the appropriate argument declaration * string for use in the function definition. TCL_VARARGS_START * initializes the va_list data structure and returns the first argument. */ //#if !(NO_STDARG) //# include //# define TCL_VARARGS(type, name) (type name, ...) //# define TCL_VARARGS_DEF(type, name) (type name, ...) //# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) //#else //# include //# define TCL_VARARGS(type, name) () //# define TCL_VARARGS_DEF(type, name) (va_alist) //# define TCL_VARARGS_START(type, name, list) \ // (va_start(list), va_arg(list, type)) //#endif /* * Macros used to declare a function to be exported by a DLL. * 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 * and DLLEXPORT macros to be nonempty. To build a static library, the * macro STATIC_BUILD should be defined. */ //#if STATIC_BUILD //# define DLLIMPORT //# define DLLEXPORT //#else //# if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) //# define DLLIMPORT __declspec(dllimport) //# define DLLEXPORT __declspec(dllexport) //# else //# define DLLIMPORT //# define DLLEXPORT //# endif //#endif /* * These macros are used to control whether functions are being declared for * import or export. If a function is being declared while it is being built * 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 to * link against the shared library, then it should have the DLLIMPORT storage * class. If the symbol is beind declared for a static build or for use from a * stub library, then the storage class should be empty. * * 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 sources * 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 reset to DLLIMPORT. */ //#undef TCL_STORAGE_CLASS //#if BUILD_tcl //# define TCL_STORAGE_CLASS DLLEXPORT //#else //# ifdef USE_TCL_STUBS //# define TCL_STORAGE_CLASS //# else //# define TCL_STORAGE_CLASS DLLIMPORT //# endif //#endif /* * Definitions that allow this header file to be used either with or * without ANSI C features like function prototypes. */ //#undef _ANSI_ARGS_ //#undef CONST //#if !INLINE //# define INLINE //#endif //#if !NO_CONST //# define CONST const //#else //# define CONST //#endif //#if !NO_PROTOTYPES //# define _ANSI_ARGS_(x) x //#else //# define _ANSI_ARGS_(x) () //#endif //#if 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 */ //#if EXTERN //# undef EXTERN //#endif // * EXTERN */ //#if __cplusplus //# define EXTERN extern "C" TCL_STORAGE_CLASS //#else //# define EXTERN extern TCL_STORAGE_CLASS //#endif /* * The following code is copied from winnt.h. * If we don't replicate it here, then can't be included * after tcl.h, since tcl.h also defines VOID. * This block is skipped under Cygwin and Mingw. * * */ //#if (__WIN32__) && !HAVE_WINNT_IGNORE_VOID) //#if !VOID ////#define VOID void ////typedef char CHAR; ////typedef short SHORT; ////typedef long LONG; //#endif //#endif // * __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ /* * Macro to use instead of "void" for arguments that must have * type "void *" in ANSI C; maps them to type "char *" in * non-ANSI systems. */ //#if !NO_VOID //# define VOID void //#else //# define VOID char //#endif ///* //* Miscellaneous declarations. //*/ //#if !_CLIENTDATA //# ifndef NO_VOID //// typedef void *ClientData; //# else //// typedef int *ClientData; //# endif //# define _CLIENTDATA //#endif /* * Darwin specifc configure overrides (to support fat compiles, where * configure runs only once for multiple architectures): */ //#if __APPLE__ //# ifdef __LP64__ //# undef TCL_WIDE_INT_TYPE //# define TCL_WIDE_INT_IS_LONG 1 //# else /* !__LP64__ */ //# define TCL_WIDE_INT_TYPE long long //# undef TCL_WIDE_INT_IS_LONG //# endif /* __LP64__ */ //# undef HAVE_STRUCT_STAT64 //#endif // * __APPLE__ */ /* * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, * and define Tcl_Wideu32 to be the unsigned variant of that type * (assuming that where we have one, we can have the other.) * * 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.Tcl_WideAsLong(Tcl_LongAsWide(longVal)) * * Note on converting between Tcl_WideInt and strings. This * implementation (in tclObj.c) depends on the functions strtoull() * and sprintf(...,"%" TCL_LL_MODIFIER "d",...). TCL_LL_MODIFIER_SIZE * is the length of the modifier string, which is "ll" on most 32-bit * Unix systems. It has to be split up like this to allow for the more * complex formats sometimes needed (e.g. in the format(n) command.) */ //#if !(TCL_WIDE_INT_TYPE)&&!TCL_WIDE_INT_IS_LONG) //# if defined(__GNUC__) //# define TCL_WIDE_INT_TYPE long long //# if defined(__WIN32__) && !__CYGWIN__) //# define TCL_LL_MODIFIER "I64" //# define TCL_LL_MODIFIER_SIZE 3 //# else //# define TCL_LL_MODIFIER "L" //# define TCL_LL_MODIFIER_SIZE 1 //# endif ////typedef struct stat Tcl_StatBuf; //# elif defined(__WIN32__) //# define TCL_WIDE_INT_TYPE __int64 //# ifdef __BORLANDC__ ////typedef struct stati64 Tcl_StatBuf; //# define TCL_LL_MODIFIER "L" //# define TCL_LL_MODIFIER_SIZE 1 //# else /* __BORLANDC__ */ //# if _MSC_VER < 1400 || !_M_IX86) ////typedef struct _stati64 Tcl_StatBuf; //# else ////typedef struct _stat64 Tcl_StatBuf; //# endif /* _MSC_VER < 1400 */ //# define TCL_LL_MODIFIER "I64" //# define TCL_LL_MODIFIER_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_LONG //# else /* !NO_LIMITS_H */ //# include //# 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 */ //#if 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_Wideu32; //#if 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))) //# ifndef TCL_LL_MODIFIER //# define TCL_LL_MODIFIER "l" //# define TCL_LL_MODIFIER_SIZE 1 //# endif /* !TCL_LL_MODIFIER */ //#else /* TCL_WIDE_INT_IS_LONG */ ///* //* The next short section of defines are only done when not running on //* Windows or some other strange platform. //*/ //# ifndef TCL_LL_MODIFIER //# ifdef HAVE_STRUCT_STAT64 ////typedef struct stat64 Tcl_StatBuf; //# else ////typedef struct stat Tcl_StatBuf; //# endif /* HAVE_STRUCT_STAT64 */ //# define TCL_LL_MODIFIER "ll" //# define TCL_LL_MODIFIER_SIZE 2 //# endif /* !TCL_LL_MODIFIER */ //# 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. */ //#if !TCL_PRESERVE_BINARY_COMPATABILITY //# define TCL_PRESERVE_BINARY_COMPATABILITY 1 //#endif /* * Data structures defined opaquely in this module. The definitions below * just provide dummy types. A few fields are made visible in Tcl_Interp * structures, namely those used for returning a string result from * 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 * values are kept consistent unless some C code sets interp.result * directly. Programmers should use either the procedure Tcl_GetObjResult() * or Tcl_GetStringResult() to read the interpreter's result. See the * SetResult man page for details. * * Note: any change to the Tcl_Interp definition below must be mirrored * in the "real" definition in tclInt.h. * * Note: Tcl_ObjCmdProc procedures do not directly set result and freeProc. * Instead, they set a Tcl_Obj member in the "real" structure that can be * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). */ //typedef struct Tcl_Interp { // char *result; /* If the last command returned a string // * result, this points to it. */ // void (*freeProc) _ANSI_ARGS_((char *blockPtr)); // /* Zero means the string result is // * statically allocated. TCL_DYNAMIC means // * it was allocated with ckalloc and should // * be freed with ckfree. Other values give // * the address of procedure to invoke to // * free the result. Tcl_Eval must free it // * before executing next command. */ // int errorLine; /* When TCL_ERROR is returned, this gives // * the line number within the command where // * the error occurred (1 if first line). */ //} Tcl_Interp; //typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; //typedef struct Tcl_Channel_ *Tcl_Channel; //typedef struct Tcl_Command_ *Tcl_Command; //typedef struct Tcl_Condition_ *Tcl_Condition; //typedef struct Tcl_EncodingState_ *Tcl_EncodingState; //typedef struct Tcl_Encoding_ *Tcl_Encoding; //typedef struct Tcl_Event Tcl_Event; //typedef struct Tcl_Mutex_ *Tcl_Mutex; //typedef struct Tcl_Pid_ *Tcl_Pid; //typedef struct Tcl_RegExp_ *Tcl_RegExp; //typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; //typedef struct Tcl_ThreadId_ *Tcl_ThreadId; //typedef struct Tcl_TimerToken_ *Tcl_TimerToken; //typedef struct Tcl_Trace_ *Tcl_Trace; //typedef struct Tcl_Var_ *Tcl_Var; //typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; //typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; /* * Definition of the interface to procedures implementing threads. * A procedure following this definition is given to each call of * 'Tcl_CreateThread' and will be called as the main fuction of * the new thread created by that call. */ //#if MAC_TCL ////typedef pascal void *(Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); //#elif defined __WIN32__ ////typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); //#else ////typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); //#endif /* * Threading function return types used for abstracting away platform * differences when writing a Tcl_ThreadCreateProc. See the NewThread * function in generic/tclThreadTest.c for it's usage. */ //#if MAC_TCL //# define Tcl_ThreadCreateType pascal void * //# define TCL_THREAD_CREATE_RETURN return NULL //#elif defined __WIN32__ //# define Tcl_ThreadCreateType unsigned __stdcall //# define TCL_THREAD_CREATE_RETURN return 0 //#else //# define Tcl_ThreadCreateType void //# define TCL_THREAD_CREATE_RETURN //#endif /* * Definition of values for default stacksize and the possible flags to be * given to Tcl_CreateThread. */ //#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack */ //#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behavior */ //#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable */ /* * Flag values passed to Tcl_GetRegExpFromObj. */ //#define TCL_REG_BASIC 000000 /* BREs (convenience) */ //#define TCL_REG_EXTENDED 000001 /* EREs */ //#define TCL_REG_ADVF 000002 /* advanced features in EREs */ //#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs) */ //#define TCL_REG_QUOTE 000004 /* no special characters, none */ //#define TCL_REG_NOCASE 000010 /* ignore case */ //#define TCL_REG_NOSUB 000020 /* don't care about subexpressions */ //#define TCL_REG_EXPANDED 000040 /* expanded format, white space & // * comments */ //#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ //#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before */ //#define TCL_REG_NEWLINE 000300 /* newlines are line terminators */ //#define TCL_REG_CANMATCH 001000 /* report details on partial/limited // * matches */ /* * The following flag is experimental and only intended for use by Expect. It * will probably go away in a later release. */ //#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only // * matches at the beginning of the // * string. */ /* * Flags values passed to Tcl_RegExpExecObj. */ //#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ //#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ /* * Structures filled in by Tcl_RegExpInfo. Note that all offset values are * relative to the start of the match string, not the beginning of the * entire string. */ //typedef struct Tcl_RegExpIndices { // long start; /* character offset of first character in match */ // long end; /* character offset of first character after the // * match. */ //} Tcl_RegExpIndices; //typedef struct Tcl_RegExpInfo { // int nsubs; /* number of subexpressions in the // * compiled expression */ // Tcl_RegExpIndices *matches; /* array of nsubs match offset // * pairs */ // long extendStart; /* The offset at which a subsequent // * match might begin. */ // long reserved; /* Reserved for later use. */ //} Tcl_RegExpInfo; /* * Picky compilers complain if this typdef doesn't appear before the * struct's reference in tclDecls.h. */ //typedef Tcl_StatBuf *Tcl_Stat_; //typedef struct stat *Tcl_OldStat_; /* * When a TCL command returns, the interpreter contains a result from the * command. Programmers are strongly encouraged to use one of the * procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the * interpreter's result. See the SetResult man page for details. Besides * this result, the command procedure returns an integer code, which is * one of the following: * * TCL_OK Command completed normally; the interpreter's * result contains the command's result. * TCL_ERROR The command couldn't be completed successfully; * the interpreter's result describes what went wrong. * TCL_RETURN The command requests that the current procedure * return; the interpreter's result contains the * procedure's return value. * TCL_BREAK The command requests that the innermost loop * be exited; the interpreter's result is meaningless. * TCL_CONTINUE Go on to the next iteration of the current loop; * the interpreter's result is meaningless. */ public const int TCL_OK = 0; public const int TCL_ERROR = 1; public const int TCL_RETURN = 2; public const int TCL_BREAK = 3; public const int TCL_CONTINUE = 4; //#define TCL_RESULT_SIZE 200 /* * 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 /* * Argument descriptors for math function callbacks in expressions: */ //typedef enum { // TCL_INT, TCL.TCL_DOUBLE, TCL.TCL_EITHER, TCL.TCL_WIDE_INT //} Tcl_ValueType; //typedef struct Tcl_Value { // Tcl_ValueType type; /* Indicates intValue or doubleValue is // * valid, or both. */ // long intValue; /* Integer value. */ // double doubleValue; /* Double-precision floating value. */ // Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ //} Tcl_Value; /* * Forward declaration of Tcl_Obj to prevent an error when the forward * reference to Tcl_Obj is encountered in the procedure types declared * below. */ //struct Tcl_Obj; /* * Procedure types defined by Tcl: */ //typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp interp)); //typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, int code)); //typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); //typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); //typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); //typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, int argc, CONST84 char *argv[])); //typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, int level, char *command, TCL.TCL_CmdProc proc, // ClientData cmdClientData, int argc, CONST84 char *argv[])); //typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, int level, string 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, // struct Tcl_Obj *dupPtr)); //typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, // string src, int srcLen, int flags, TCL.TCL_EncodingState *statePtr, // char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, // int *dstCharsPtr)); //typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); //typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); //typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, // int flags)); //typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, // ClientData clientData)); //typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, // int flags)); //typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); //typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); //typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); //typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); //typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); //typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); //typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp)); //typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, TCL.TCL_Value *args, TCL.TCL_Value *resultPtr)); //typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); //typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, int objc, struct Tcl_Obj * CONST * objv)); //typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp interp)); //typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(string , format)); //typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, // Tcl_Channel chan, char *address, int port)); //typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); //typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp interp, // struct Tcl_Obj *objPtr)); //typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); //typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, CONST84 char part1, CONST84 char part2, int flags)); //typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, // Tcl_Interp interp, string oldName, string newName, // int flags)); //typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, // Tcl_FileProc proc, ClientData clientData)); //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)); /* * The following structure represents a type of object, which is a * particular internal representation for an object plus a set of * procedures that provide standard operations on objects of that type. */ //typedef struct Tcl_ObjType { // char *name; /* Name of the type, e.g. "int". */ // Tcl_FreeInternalRepProc *freeIntRepProc; // /* Called to free any storage for the type's // * internal rep. NULL if the internal rep // * does not need freeing. */ // Tcl_DupInternalRepProc *dupIntRepProc; // /* Called to create a new object as a copy // * of an existing object. */ // Tcl_UpdateStringProc *updateStringProc; // /* Called to update the string rep from the // * type's internal representation. */ // Tcl_SetFromAnyProc *setFromAnyProc; // /* Called to convert the object's internal // * rep to this type. Frees the internal rep // * of the old type. Returns TCL_ERROR on // * failure. */ //} Tcl_ObjType; /* * One of the following structures exists for each object in the Tcl * system. An object stores a value as either a string, some internal * representation, or both. */ //typedef struct Tcl_Obj { // int refCount; /* When 0 the object will be freed. */ // char *bytes; /* This points to the first byte of the // * object's string representation. The array // * must be followed by a null byte (i.e., at // * offset length) but may also contain // * embedded null characters. The array's // * storage is allocated by ckalloc. NULL // * means the string rep is invalid and must // * be regenerated from the internal rep. // * Clients should use Tcl_GetStringFromObj // * or Tcl_GetString to get a pointer to the // * byte array as a readonly value. */ // int length; /* The number of bytes at *bytes, not // * including the terminating null. */ // Tcl_ObjType *typePtr; /* Denotes the object's type. Always // * corresponds to the type of the object's // * internal rep. NULL indicates the object // * has no internal rep (has no type). */ // union { /* The internal representation: */ // long longValue; /* - an long integer value */ // double doubleValue; /* - a double-precision floating value */ // VOID *otherValuePtr; /* - another, type-specific value */ // Tcl_WideInt wideValue; /* - a long long value */ // struct { /* - internal rep as two pointers */ // VOID ptr1; // VOID ptr2; // } twoPtrValue; // } internalRep; //} Tcl_Obj; /* * 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). * Note: clients should use Tcl_DecrRefCount() when they are finished using * an object, and should never call TclFreeObj() directly. TclFreeObj() is * only defined and made public in tcl.h to support Tcl_DecrRefCount's macro * definition. Note also that Tcl_DecrRefCount() refers to the parameter * "obj" twice. This means that you should avoid calling it with an * expression that is expensive to compute or has side effects. */ //void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); //void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); //int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); //#if TCL_MEM_DEBUG //# define Tcl_IncrRefCount(objPtr) \ //// Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) //# define Tcl_DecrRefCount(objPtr) \ //// Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) //# define Tcl_IsShared(objPtr) \ //// Tcl_DbIsShared(objPtr, __FILE__, __LINE__) //#else //# define Tcl_IncrRefCount(objPtr) \ //// ++(objPtr)->refCount //// /* //// * Use do/while0 idiom for optimum correctness without compiler warnings //// * http://c2.com/cgi/wiki?TrivialDoWhileLoop //// */ //# define Tcl_DecrRefCount(objPtr) \ //// do { if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr); } while(0) //# define Tcl_IsShared(objPtr) \ //// ((objPtr)->refCount > 1) //#endif /* * Macros and definitions that help to debug the use of Tcl objects. * When TCL_MEM_DEBUG is defined, the Tcl_New declarations are * overridden to call debugging versions of the object creation procedures. */ //#if TCL_MEM_DEBUG //# define Tcl_NewBooleanObj(val) \ //// Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) //# define Tcl_NewByteArrayObj(bytes, len) \ //// Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) //# define Tcl_NewDoubleObj(val) \ //// Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) //# define Tcl_NewIntObj(val) \ //// Tcl_DbNewLongObj(val, __FILE__, __LINE__) //# define Tcl_NewListObj(objc, objv) \ //// Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) //# define Tcl_NewLongObj(val) \ //// Tcl_DbNewLongObj(val, __FILE__, __LINE__) //# define Tcl_NewObj() \ //// Tcl_DbNewObj(__FILE__, __LINE__) //# define Tcl_NewStringObj(bytes, len) \ //// Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) //# define Tcl_NewWideIntObj(val) \ //// Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) //#endif // * TCL_MEM_DEBUG */ /* * The following structure contains the state needed by * Tcl_SaveResult. No-one outside of Tcl should access any of these * fields. This structure is typically allocated on the stack. */ //typedef struct Tcl_SavedResult { // char *result; // Tcl_FreeProc *freeProc; // Tcl_Obj *objResultPtr; // char *appendResult; // int appendAvl; // int appendUsed; // char resultSpace[TCL_RESULT_SIZE+1]; //} Tcl_SavedResult; /* * The following definitions support Tcl's namespace facility. * Note: the first five fields must match exactly the fields in a * Namespace structure (see tclInt.h). */ //typedef struct Tcl_Namespace { // char *name; /* The namespace's name within its parent // * namespace. This contains no ::'s. The // * name of the global namespace is "" // * although "::" is an synonym. */ // char *fullName; /* The namespace's fully qualified name. // * This starts with ::. */ // ClientData clientData; /* Arbitrary value associated with this // * namespace. */ // Tcl_NamespaceDeleteProc* deleteProc; // /* Procedure invoked when deleting the // * namespace to, e.g., free clientData. */ // struct Tcl_Namespace* parentPtr; // /* Points to the namespace that contains // * this one. NULL if this is the global // * namespace. */ //} Tcl_Namespace; /* * The following structure represents a call frame, or activation record. * A call frame defines a naming context for a procedure call: its local * scope (for local variables) and its namespace scope (used for non-local * variables; often the global :: namespace). A call frame can also define * the naming context for a namespace eval or namespace inscope command: * the namespace in which the command's code should execute. The * Tcl_CallFrame structures exist only while procedures or namespace * eval/inscope's are being executed, and provide a Tcl call stack. * * A call frame is initialized and pushed using Tcl_PushCallFrame and * popped using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be * provided by the Tcl_PushCallFrame caller, and callers typically allocate * them on the C call stack for efficiency. For this reason, TCL.TCL_CallFrame * is defined as a structure and not as an opaque token. However, most * Tcl_CallFrame fields are hidden since applications should not access * them directly; others are declared as "dummyX". * * WARNING!! The structure definition must be kept consistent with the * CallFrame structure in tclInt.h. If you change one, change the other. */ //typedef struct Tcl_CallFrame { // Tcl_Namespace *nsPtr; // int dummy1; // int dummy2; // char *dummy3; // char *dummy4; // char *dummy5; // int dummy6; // char *dummy7; // char *dummy8; // int dummy9; // char* dummy10; //} Tcl_CallFrame; /* * Information about commands that is returned by Tcl_GetCommandInfo and * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based * command procedure while proc is a traditional Tcl argc/argv * string-based procedure. Tcl_CreateObjCommand and Tcl_CreateCommand * ensure that both objProc and proc are non-NULL and can be called to * execute the command. However, it may be faster to call one instead of * the other. The member isNativeObjectProc is set to 1 if an * object-based procedure was registered by Tcl_CreateObjCommand, and to * 0 if a string-based procedure was registered by Tcl_CreateCommand. * The other procedure is typically set to a compatibility wrapper that * does string-to-object or object-to-string argument conversions then * calls the other procedure. */ //typedef struct Tcl_CmdInfo { // int isNativeObjectProc; /* 1 if objProc was registered by a call to // * Tcl_CreateObjCommand; 0 otherwise. // * Tcl_SetCmdInfo does not modify this // * field. */ // Tcl_ObjCmdProc *objProc; /* Command's object-based procedure. */ // ClientData objClientData; /* ClientData for object proc. */ // Tcl_CmdProc proc; /* Command's string-based procedure. */ // ClientData clientData; /* ClientData for string proc. */ // Tcl_CmdDeleteProc *deleteProc; // /* Procedure to call when command is // * deleted. */ // ClientData deleteData; /* Value to pass to deleteProc (usually // * the same as clientData). */ // Tcl_Namespace *namespacePtr; /* Points to the namespace that contains // * this command. Note that Tcl_SetCmdInfo // * will not change a command's namespace; // * use Tcl_RenameCommand to do that. */ //} Tcl_CmdInfo; /* * The structure defined below is used to hold dynamic strings. The only * field that clients should use is the string field, accessible via the * macro Tcl_DStringValue. */ //#define TCL_DSTRING_STATIC_SIZE 200 //typedef struct Tcl_DString { // char *string; /* Points to beginning of string: either // * staticSpace below or a malloced array. */ // int length; /* Number of non-NULL characters in the // * string. */ // int spaceAvl; /* Total number of bytes available for the // * string and its terminating NULL char. */ // char staticSpace[TCL_DSTRING_STATIC_SIZE]; // /* Space to use in common case where string // * is small. */ //} Tcl_DString; //#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) //#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) //#define Tcl_DStringTrunc Tcl_DStringSetLength /* * Definitions for the maximum number of digits of precision that may * be specified in the "tcl_precision" variable, and the number of * bytes of buffer space required by Tcl_PrintDouble. */ //#define TCL_MAX_PREC 17 //#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) /* * Definition for a number of bytes of buffer space sufficient to hold the * string representation of an integer in base 10 (assuming the existence * of 64-bit integers). */ //#define TCL_INTEGER_SPACE 24 /* * 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 * the definitions at the front of tclUtil.c). */ //#define TCL_DONT_USE_BRACES 1 /* * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow * abbreviated strings. */ //#define TCL_EXACT 1 /* * Flag values passed to Tcl_RecordAndEval and/or Tcl_EvalObj. * WARNING: these bit choices must not conflict with the bit choices * for evalFlag bits in tclInt.h!! */ public const int TCL_NO_EVAL = 0x10000; public const int TCL_EVAL_GLOBAL = 0x20000; public const int TCL_EVAL_DIRECT = 0x40000; public const int TCL_EVAL_INVOKE = 0x80000; /* * Special freeProc values that may be passed to Tcl_SetResult (see * the man page for details): */ public const int TCL_VOLATILE = 1;//((Tcl_FreeProc ) 1) public const int TCL_STATIC = 2;//((Tcl_FreeProc ) 0) public const int TCL_DYNAMIC = 3;//((Tcl_FreeProc ) 3) /* * Flag values passed to variable-related procedures. */ public const int TCL_GLOBAL_ONLY = 1; public const int TCL_NAMESPACE_ONLY = 2; public const int TCL_APPEND_VALUE = 4; public const int TCL_LIST_ELEMENT = 8; public const int TCL_TRACE_READS = 0x10; public const int TCL_TRACE_WRITES = 0x20; public const int TCL_TRACE_UNSETS = 0x40; public const int TCL_TRACE_DESTROYED = 0x80; public const int Tcl_Interp_DESTROYED = 0x100; public const int TCL_LEAVE_ERR_MSG = 0x200; public const int TCL_TRACE_ARRAY = 0x800; #if !TCL_REMOVE_OBSOLETE_TRACES /* Required to support old variable/vdelete/vinfo traces */ public const int TCL_TRACE_OLD_STYLE = 0x1000; #endif /* Indicate the semantics of the result of a trace */ public const int TCL_TRACE_RESULT_DYNAMIC = 0x8000; public const int 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 part1 is now always parsed whenever the part2 is NULL. * (This is to avoid a common error when converting code to * use the new object based APIs and forgetting to give the * flag) */ #if !TCL_NO_DEPRECATED //# define TCL_PARSE_PART1 0x400 #endif /* * Types for linked variables: */ //const int TCL_LINK_INT = 1; //const int TCL_LINK_DOUBLE = 2; //const int TCL_LINK_BOOLEAN =3; //const int TCL_LINK_STRING = 4; //const int TCL_LINK_WIDE_INT= 5; //const int TCL_LINK_READ_ONLY= 0x80; /* * Forward declarations of Tcl_HashTable and related types. */ //typedef struct Tcl_HashKeyType Tcl_HashKeyType; //typedef struct Tcl_HashTable Tcl_HashTable; //typedef struct Tcl_HashEntry Tcl_HashEntry; //typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, // VOID *keyPtr)); //typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, // Tcl_HashEntry *hPtr)); //typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( // Tcl_HashTable *tablePtr, object *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. */ //#if !TCL_HASH_KEY_STORE_HASH //# define TCL_HASH_KEY_STORE_HASH 1 //#endif /* * Structure definition for an entry in a hash table. No-one outside * Tcl should access any of these fields directly; use the macros * defined below. */ //struct Tcl_HashEntry { // Tcl_HashEntry *nextPtr; /* Pointer to next entry in this // * hash bucket, or NULL for end of // * chain. */ // Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ #if TCL_HASH_KEY_STORE_HASH # if TCL_PRESERVE_BINARY_COMPATABILITY // VOID *hash; /* Hash value, stored as pointer 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: // * used for deleting the entry. */ #endif // ClientData clientData; /* Application stores something here // * with Tcl_SetHashValue. */ // union { /* Key has one of these forms: */ // char *oneWordValue; /* One-word value for key. */ // Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ // int words[1]; /* Multiple integer words for key. // * The actual size will be as large // * as necessary for this table's // * keys. */ // char string[4]; /* String for key. The actual size // * will be as large as needed to hold // * the key. */ // } key; /* MUST BE LAST FIELD IN RECORD!! */ //}; /* * 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 use * 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 upper * 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 is // * extended in future then the version can be // * 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 pointer // * itself is used as a hash value. // */ // Tcl_HashKeyProc *hashKeyProc; // /* Compares two keys and returns zero if they do not match, and non-zero // * 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 something // * else needs to be done to the key, i.e. incrementing a reference count // * then that should be done by this function. If this is NULL then Tcl_Alloc // * is used to allocate enough space for a Tcl_HashEntry and the key pointer // * is assigned to key.oneWordValue. // */ // Tcl_AllocHashEntryProc *allocEntryProc; // /* Called to free memory associated with an entry. If something else needs // * to be done to the key, i.e. decrementing a reference count then that // * should be done by this function. If this is NULL then Tcl_Free is used // * to free the Tcl_HashEntry. // */ // Tcl_FreeHashEntryProc *freeEntryProc; //}; /* * Structure definition for a hash table. Must be in tcl.h so clients * can allocate space for these structures, but clients should never * access any fields in this structure. */ //#define TCL_SMALL_HASH_TABLE 4 //struct Tcl_HashTable { // Tcl_HashEntry **buckets; /* Pointer to bucket array. Each // * element points to first entry in // * bucket's hash chain, or NULL. */ // Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; // /* Bucket array used for small tables // * (to avoid mallocs and frees). */ // int numBuckets; /* Total number of buckets allocated // * at **bucketPtr. */ // int numEntries; /* Total number of entries present // * in table. */ // int rebuildSize; /* Enlarge table when numEntries gets // * to be this large. */ // int downShift; /* Shift count used in hashing // * function. Designed to use high- // * order bits of randomized keys. */ // int mask; /* Mask value used in hashing // * function. */ // int keyType; /* Type of keys used in this table. // * It's either TCL_CUSTOM_KEYS, // * TCL_STRING_KEYS, TCL.TCL_ONE_WORD_KEYS, // * or an integer giving the number of // * ints that is the size of the key. // */ #if TCL_PRESERVE_BINARY_COMPATABILITY // Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, // string key)); // Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, // string key, int *newPtr)); #endif // Tcl_HashKeyType *typePtr; /* Type of the keys used in the // * Tcl_HashTable. */ //}; /* * Structure definition for information used to keep track of searches * through hash tables: */ //typedef struct Tcl_HashSearch { // Tcl_HashTable *tablePtr; /* Table being searched. */ // int nextIndex; /* Index of next bucket to be // * enumerated after present one. */ // Tcl_HashEntry *nextEntryPtr; /* Next entry to be enumerated in the // * the current bucket. */ //} Tcl_HashSearch; /* * 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 copied * into the entry. * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, 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 * behavior. */ //#define TCL_STRING_KEYS 0 //#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: */ //#define Tcl_GetHashValue(h) ((h)->clientData) //#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) #if TCL_PRESERVE_BINARY_COMPATABILITY //# define Tcl_GetHashKey(vtablePtr, h) \ // ((char ) (((vtablePtr)->keyType == TCL.Tcl_ONE_WORD_KEYS || \ // (vtablePtr)->keyType == TCL.Tcl_CUSTOM_PTR_KEYS) \ // ? (h)->key.oneWordValue \ // : (h)->key.string)) #else //# define Tcl_GetHashKey(vtablePtr, h) \ // ((char ) (((vtablePtr)->keyType == TCL.Tcl_ONE_WORD_KEYS) \ // ? (h)->key.oneWordValue \ // : (h)->key.string)) #endif /* * Macros to use for clients to use to invoke find and create procedures * for hash tables: */ #if TCL_PRESERVE_BINARY_COMPATABILITY //# define Tcl_FindHashEntry(vtablePtr, key) \ // (*((vtablePtr)->findProc))(vtablePtr, key) //# define Tcl_CreateHashEntry(vtablePtr, key, newPtr) \ // (*((vtablePtr)->createProc))(vtablePtr, key, newPtr) #else //* !TCL_PRESERVE_BINARY_COMPATABILITY */ /* * Macro to use new extended version of Tcl_InitHashTable. */ //# define Tcl_InitHashTable(vtablePtr, keyType) \ // Tcl_InitHashTableEx(vtablePtr, keyType, NULL) #endif // * TCL_PRESERVE_BINARY_COMPATABILITY */ /* * Flag values to pass to Tcl_DoOneEvent to disable searches * for some kinds of events: */ //#define TCL_DONT_WAIT (1<<1) //#define TCL_WINDOW_EVENTS (1<<2) //#define TCL_FILE_EVENTS (1<<3) //#define TCL_TIMER_EVENTS (1<<4) //#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ //#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) /* * The following structure defines a generic event for the Tcl event * system. These are the things that are queued in calls to Tcl_QueueEvent * and serviced later by Tcl_DoOneEvent. There can be many different * kinds of events with different fields, corresponding to window events, * timer events, etc. The structure for a particular event consists of * a Tcl_Event header followed by additional information specific to that * event. */ //struct Tcl_Event { // Tcl_EventProc proc; /* Procedure to call to service this event. */ // struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ //}; /* * Positions to pass to Tcl_QueueEvent: */ //typedef enum { // TCL_QUEUE_TAIL, TCL.TCL_QUEUE_HEAD, TCL.TCL_QUEUE_MARK //} Tcl_QueuePosition; /* * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier * event routines. */ //#define TCL_SERVICE_NONE 0 //#define TCL_SERVICE_ALL 1 /* * The following structure keeps is used to hold a time value, either as * an absolute time (the number of seconds from the epoch) or as an * elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. * On Macintosh systems the epoch is Midnight Jan 1, 1904 GMT. */ //typedef struct Tcl_Time { // long sec; /* Seconds. */ // long usec; /* Microseconds. */ //} Tcl_Time; //typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); //typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); /* * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler * to indicate what sorts of events are of interest: */ //#define TCL_READABLE (1<<1) //#define TCL_WRITABLE (1<<2) //#define TCL_EXCEPTION (1<<3) /* * Flag values to pass to Tcl_OpenCommandChannel to indicate the * disposition of the stdio handles. TCL_STDIN, TCL.TCL_STDOUT, TCL.TCL_STDERR, * are also used in Tcl_GetStdChannel. */ //#define TCL_STDIN (1<<1) //#define TCL_STDOUT (1<<2) //#define TCL_STDERR (1<<3) //#define TCL_ENFORCE_MODE (1<<4) /* * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel * should be closed. */ //#define TCL_CLOSE_READ (1<<1) //#define TCL_CLOSE_WRITE (1<<2) /* * Value to use as the closeProc for a channel that supports the * close2Proc interface. */ //#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc )1) /* * Channel version tag. This was introduced in 8.3.2/8.4. */ //#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) //#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) //#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) //#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) /* * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc */ //#define TCL_CHANNEL_THREAD_INSERT (0) //#define TCL_CHANNEL_THREAD_REMOVE (1) /* * Typedefs for the various operations in a channel type: */ //typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( // ClientData instanceData, int mode)); //typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, // Tcl_Interp interp)); //typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, // Tcl_Interp interp, int flags)); //typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, // char *buf, int toRead, int *errorCodePtr)); //typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, // CONST84 char *buf, int toWrite, int *errorCodePtr)); //typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, // long offset, int mode, int *errorCodePtr)); //typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( // ClientData instanceData, TCL.TCL_Interp interp, // string optionName, string value)); //typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( // ClientData instanceData, TCL.TCL_Interp interp, // CONST84 char *optionName, TCL.TCL_DString *dsPtr)); //typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( // ClientData instanceData, int mask)); //typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( // ClientData instanceData, int direction, // ClientData *handlePtr)); //typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_(( // ClientData instanceData)); //typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( // ClientData instanceData, int interestMask)); //typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( // ClientData instanceData, TCL.TCL_WideInt offset, // int mode, int *errorCodePtr)); // /* TIP #218, Channel Thread Actions */ //typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( // ClientData instanceData, int action)); /* * The following declarations either map ckalloc and ckfree to * malloc and free, or they map them to procedures with all sorts * of debugging hooks defined in tclCkalloc.c. */ #if TCL_MEM_DEBUG //# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) //# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) //# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) //# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) //# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) #else // * !TCL_MEM_DEBUG */ /* * If we are not using the debugging allocator, we should call the * Tcl_Alloc, et al. routines in order to guarantee that every module * is using the same memory allocator both inside and outside of the * Tcl library. */ //# define ckalloc(x) Tcl_Alloc(x) //# define ckfree(x) Tcl_Free(x) //# define ckrealloc(x,y) Tcl_Realloc(x,y) //# define attemptckalloc(x) Tcl_AttemptAlloc(x) //# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) //# define Tcl_InitMemory(x) //# define Tcl_DumpActiveMemory(x) //# define Tcl_ValidateAllMemory(x,y) #endif // * !TCL_MEM_DEBUG */ /* * struct Tcl_ChannelType: * * One such structure exists for each type (kind) of channel. * It collects together in one place all the functions that are * part of the specific channel type. * * It is recommend that the Tcl_Channel* functions are used to access * elements of this structure, instead of direct accessing. */ //typedef struct Tcl_ChannelType { // char *typeName; /* The name of the channel type in Tcl // * commands. This storage is owned by // * channel type. */ // Tcl_ChannelTypeVersion version; /* Version of the channel type. */ // Tcl_DriverCloseProc *closeProc; /* Procedure to call to close the // * channel, or TCL_CLOSE2PROC if the // * close2Proc should be used // * instead. */ // Tcl_DriverInputProc *inputProc; /* Procedure to call for input // * on channel. */ // Tcl_DriverOutputProc *outputProc; /* Procedure to call for output // * on channel. */ // Tcl_DriverSeekProc *seekProc; /* Procedure to call to seek // * on the channel. May be NULL. */ // Tcl_DriverSetOptionProc *setOptionProc; // /* Set an option on a channel. */ // Tcl_DriverGetOptionProc *getOptionProc; // /* Get an option from a channel. */ // Tcl_DriverWatchProc *watchProc; /* Set up the notifier to watch // * for events on this channel. */ // Tcl_DriverGetHandleProc *getHandleProc; // /* Get an OS handle from the channel // * or NULL if not supported. */ // Tcl_DriverClose2Proc *close2Proc; /* Procedure to call to close the // * channel if the device supports // * closing the read & write sides // * independently. */ // Tcl_DriverBlockModeProc *blockModeProc; // /* Set blocking mode for the // * raw channel. May be NULL. */ // /* // * Only valid in TCL_CHANNEL_VERSION_2 channels or later // */ // Tcl_DriverFlushProc *flushProc; /* Procedure to call to flush a // * channel. May be NULL. */ // Tcl_DriverHandlerProc *handlerProc; /* Procedure to call to handle a // * channel event. This will be passed // * 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. */ // /* // * Only valid in TCL_CHANNEL_VERSION_4 channels or later // * TIP #218, Channel Thread Actions // */ // Tcl_DriverThreadActionProc *threadActionProc; // /* Procedure to call to notify // * the driver of thread specific // * activity for a channel. // * May be NULL. */ //} Tcl_ChannelType; /* * The following flags determine whether the blockModeProc above should * set the channel into blocking or nonblocking mode. They are passed * as arguments to the blockModeProc procedure in the above structure. */ //#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ //#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking // * mode. */ /* * Enum for different types of file paths. */ //typedef enum Tcl_PathType { // TCL_PATH_ABSOLUTE, // TCL_PATH_RELATIVE, // TCL_PATH_VOLUME_RELATIVE //} 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_TYPE_MOUNT (1<<7) //#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.TCL_StatBuf *buf)); //typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj pathPtr, int mode)); //typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) // _ANSI_ARGS_((Tcl_Interp interp, TCL.TCL_Obj pathPtr, // int mode, int permissions)); //typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp* interp, // Tcl_Obj *result, TCL.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.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.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.TCL_Obj pathPtr, // Tcl_Obj **objPtrRef)); //typedef CONST char** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_((Tcl_Obj pathPtr, // Tcl_Obj** objPtrRef)); //typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp interp, // int index, TCL.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 pathPtr)); //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 { // string 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 * you can override with the Tcl_SetNotifier call. */ //typedef struct Tcl_NotifierProcs { // Tcl_SetTimerProc *setTimerProc; // Tcl_WaitForEventProc *waitForEventProc; // Tcl_CreateFileHandlerProc *createFileHandlerProc; // Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; // Tcl_InitNotifierProc *initNotifierProc; // Tcl_FinalizeNotifierProc *finalizeNotifierProc; // Tcl_AlertNotifierProc *alertNotifierProc; // Tcl_ServiceModeHookProc *serviceModeHookProc; //} Tcl_NotifierProcs; /* * The following structure represents a user-defined encoding. It collects * together all the functions that are used by the specific encoding. */ //typedef struct Tcl_EncodingType { // string encodingName; /* The name of the encoding, e.g. "euc-jp". // * This name is the unique key for this // * encoding type. */ // Tcl_EncodingConvertProc *toUtfProc; // /* Procedure to convert from external // * encoding into UTF-8. */ // Tcl_EncodingConvertProc *fromUtfProc; // /* Procedure to convert from UTF-8 into // * external encoding. */ // Tcl_EncodingFreeProc *freeProc; // /* If non-NULL, procedure to call when this // * encoding is deleted. */ // ClientData clientData; /* Arbitrary value associated with encoding // * type. Passed to conversion procedures. */ // int nullSize; /* Number of zero bytes that signify // * end-of-string in this encoding. This // * number is used to determine the source // * string length when the srcLen argument is // * negative. Must be 1 or 2. */ //} Tcl_EncodingType; /* * The following definitions are used as values for the conversion control * flags argument when converting text from one character set to another: * * TCL_ENCODING_START: Signifies that the source buffer is the first * block in a (potentially multi-block) input * stream. Tells the conversion procedure to * reset to an initial state and perform any * initialization that needs to occur before the * first byte is converted. If the source * buffer contains the entire input stream to be * converted, this flag should be set. * * TCL_ENCODING_END: Signifies that the source buffer is the last * block in a (potentially multi-block) input * stream. Tells the conversion routine to * perform any finalization that needs to occur * after the last byte is converted and then to * reset to an initial state. If the source * buffer contains the entire input stream to be * converted, this flag should be set. * * TCL_ENCODING_STOPONERROR: If set, then the converter will return * immediately upon encountering an invalid * byte sequence or a source character that has * no mapping in the target encoding. If clear, * then the converter will skip the problem, * substituting one or more "close" characters * in the destination buffer and then continue * to sonvert the source. */ //#define TCL_ENCODING_START 0x01 //#define TCL_ENCODING_END 0x02 //#define TCL_ENCODING_STOPONERROR 0x04 /* * The following data structures and declarations are for the new Tcl * parser. */ /* * 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 * describe the token. */ //typedef struct Tcl_Token { // int type; /* Type of token, such as TCL_TOKEN_WORD; // * see below for valid types. */ // string start; /* First character in token. */ // int size; /* Number of bytes in token. */ // int numComponents; /* If this token is composed of other // * tokens, this field tells how many of // * them there are (including components of // * components, etc.). The component tokens // * immediately follow this one. */ //} Tcl_Token; /* * Type values defined for Tcl_Token structures. These values are * defined as mask bits so that it's easy to check for collections of * types. * * TCL_TOKEN_WORD - The token describes one word of a command, * from the first non-blank character of * the word (which may be " or {) up to but * not including the space, semicolon, or * bracket that terminates the word. * NumComponents counts the total number of * sub-tokens that make up the word. This * includes, for example, sub-tokens of * TCL_TOKEN_VARIABLE tokens. * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD * except that the word is guaranteed to * consist of a single TCL_TOKEN_TEXT * sub-token. * TCL_TOKEN_TEXT - The token describes a range of literal * text that is part of a word. * NumComponents is always 0. * TCL_TOKEN_BS - The token describes a backslash sequence * that must be collapsed. NumComponents * is always 0. * TCL_TOKEN_COMMAND - The token describes a command whose result * must be substituted into the word. The * token includes the enclosing brackets. * NumComponents is always 0. * TCL_TOKEN_VARIABLE - The token describes a variable * substitution, including the dollar sign, * variable name, and array index (if there * is one) up through the right * parentheses. NumComponents tells how * many additional tokens follow to * represent the variable name. The first * token will be a TCL_TOKEN_TEXT token * that describes the variable name. If * the variable is an array reference then * there will be one or more additional * tokens, of type TCL_TOKEN_TEXT, * TCL_TOKEN_BS, TCL.TCL_TOKEN_COMMAND, and * TCL_TOKEN_VARIABLE, that describe the * array index; numComponents counts the * total number of nested tokens that make * up the variable reference, including * sub-tokens of TCL_TOKEN_VARIABLE tokens. * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of a * expression, from the first non-blank * character of the subexpression up to but not * including the space, brace, or bracket * that terminates the subexpression. * NumComponents counts the total number of * following subtokens that make up the * subexpression; this includes all subtokens * for any nested TCL_TOKEN_SUB_EXPR tokens. * For example, a numeric value used as a * primitive operand is described by a * TCL_TOKEN_SUB_EXPR token followed by a * TCL_TOKEN_TEXT token. A binary subexpression * is described by a TCL_TOKEN_SUB_EXPR token * followed by the TCL_TOKEN_OPERATOR token * for the operator, then TCL_TOKEN_SUB_EXPR * tokens for the left then the right operands. * TCL_TOKEN_OPERATOR - The token describes one expression operator. * An operator might be the name of a math * function such as "abs". A TCL_TOKEN_OPERATOR * token is always preceeded by one * TCL_TOKEN_SUB_EXPR token for the operator's * subexpression, and is followed by zero or * more TCL_TOKEN_SUB_EXPR tokens for the * operator's operands. NumComponents is * always 0. */ //#define TCL_TOKEN_WORD 1 //#define TCL_TOKEN_SIMPLE_WORD 2 //#define TCL_TOKEN_TEXT 4 //#define TCL_TOKEN_BS 8 //#define TCL_TOKEN_COMMAND 16 //#define TCL_TOKEN_VARIABLE 32 //#define TCL_TOKEN_SUB_EXPR 64 //#define TCL_TOKEN_OPERATOR 128 /* * Parsing error types. On any parsing error, one of these values * will be stored in the error field of the Tcl_Parse structure * defined below. */ //#define TCL_PARSE_SUCCESS 0 //#define TCL_PARSE_QUOTE_EXTRA 1 //#define TCL_PARSE_BRACE_EXTRA 2 //#define TCL_PARSE_MISSING_BRACE 3 //#define TCL_PARSE_MISSING_BRACKET 4 //#define TCL_PARSE_MISSING_PAREN 5 //#define TCL_PARSE_MISSING_QUOTE 6 //#define TCL_PARSE_MISSING_VAR_BRACE 7 //#define TCL_PARSE_SYNTAX 8 //#define TCL_PARSE_BAD_NUMBER 9 /* * A structure of the following type is filled in by Tcl_ParseCommand. * It describes a single command parsed from an input string. */ //#define NUM_STATIC_TOKENS 20 //typedef struct Tcl_Parse { // string commentStart; /* Pointer to # that begins the first of // * one or more comments preceding the // * command. */ // int commentSize; /* Number of bytes in comments (up through // * newline character that terminates the // * last comment). If there were no // * comments, this field is 0. */ // string commandStart; /* First character in first word of command. */ // int commandSize; /* Number of bytes in command, including // * first character of first word, up // * through the terminating newline, // * close bracket, or semicolon. */ // int numWords; /* Total number of words in command. May // * be 0. */ // Tcl_Token *tokenPtr; /* Pointer to first token representing // * the words of the command. Initially // * points to staticTokens, but may change // * to point to malloc-ed space if command // * exceeds space in staticTokens. */ // int numTokens; /* Total number of tokens in command. */ // int tokensAvailable; /* Total number of tokens available at // * *tokenPtr. */ // int errorType; /* One of the parsing error types defined // * above. */ // /* // * The fields below are intended only for the private use of the // * parser. They should not be used by procedures that invoke // * Tcl_ParseCommand. // */ // string string; /* The original command string passed to // * Tcl_ParseCommand. */ // string end; /* Points to the character just after the // * last one in the command string. */ // Tcl_Interp interp; /* Interpreter to use for error reporting, // * or NULL. */ // string term; /* Points to character in string that // * terminated most recent token. Filled in // * by ParseTokens. If an error occurs, // * points to beginning of region where the // * error occurred (e.g. the open brace if // * the close brace is missing). */ // int incomplete; /* This field is set to 1 by Tcl_ParseCommand // * if the command appears to be incomplete. // * This information is used by // * Tcl_CommandComplete. */ // Tcl_Token staticTokens[NUM_STATIC_TOKENS]; // /* Initial space for tokens for command. // * This space should be large enough to // * accommodate most commands; dynamic // * space is allocated for very large // * commands that don't fit here. */ //} Tcl_Parse; /* * The following definitions are the error codes returned by the conversion * routines: * * TCL_OK: All characters were converted. * * TCL_CONVERT_NOSPACE: The output buffer would not have been large * enough for all of the converted data; as many * characters as could fit were converted though. * * TCL_CONVERT_MULTIBYTE: The last few bytes in the source string were * the beginning of a multibyte sequence, but * more bytes were needed to complete this * sequence. A subsequent call to the conversion * routine should pass the beginning of this * unconverted sequence plus additional bytes * from the source stream to properly convert * the formerly split-up multibyte sequence. * * TCL_CONVERT_SYNTAX: The source stream contained an invalid * character sequence. This may occur if the * input stream has been damaged or if the input * encoding method was misidentified. This error * is reported only if TCL_ENCODING_STOPONERROR * was specified. * * TCL_CONVERT_UNKNOWN: The source string contained a character * that could not be represented in the target * encoding. This error is reported only if * TCL_ENCODING_STOPONERROR was specified. */ //#define TCL_CONVERT_MULTIBYTE -1 //#define TCL_CONVERT_SYNTAX -2 //#define TCL_CONVERT_UNKNOWN -3 //#define TCL_CONVERT_NOSPACE -4 /* * The maximum number of bytes that are necessary to represent a single * Unicode character in UTF-8. The valid values should be 3 or 6 (or * perhaps 1 if we want to support a non-unicode enabled core). * If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default) * If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4). * At this time UCS-2 mode is the default and recommended mode. * UCS-4 is experimental and not recommended. It works for the core, * but most extensions expect UCS-2. */ #if !TCL_UTF_MAX //#define TCL_UTF_MAX 3 #endif /* * This represents a Unicode character. Any changes to this should * also be reflected in regcustom.h. */ //#if TCL_UTF_MAX > 3 // /* // * unsigned int isn't 100% accurate as it should be a strict 4-byte // * value (perhaps wchar_t). 64-bit systems may have troubles. The // * size of this value must be reflected correctly in regcustom.h and // * in tclEncoding.c. // * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode // * XXX: string rep that Tcl_UniChar represents. Changing the size // * XXX: of Tcl_UniChar is /not/ supported. // */ //typedef unsigned int Tcl_UniChar; //#else //typedef unsigned short Tcl_UniChar; //#endif /* * Deprecated Tcl procedures: */ #if !TCL_NO_DEPRECATED //# define Tcl_EvalObj(interp,objPtr) \ // Tcl_EvalObjEx((interp),(objPtr),0) //# define Tcl_GlobalEvalObj(interp,objPtr) \ // Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) #endif /* * These function have been renamed. The old names are deprecated, but we * define these macros for backwards compatibilty. */ //#define Tcl_Ckalloc Tcl_Alloc //#define Tcl_Ckfree Tcl_Free //#define Tcl_Ckrealloc Tcl_Realloc //#define Tcl_return TCL.TCL_SetResult //#define Tcl_TildeSubst Tcl_TranslateFileName //#define panic Tcl_Panic //#define panicVA Tcl_PanicVA /* * The following constant is used to test for older versions of Tcl * in the stubs tables. * * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different * value since the stubs tables don't match. */ //#define TCL_STUB_MAGIC ((int)0xFCA3BACF) /* * The following function is required to be defined in all stubs aware * extensions. The function is actually implemented in the stub * library, not the main Tcl library, although there is a trivial * implementation in the main library in case an extension is statically * linked into an application. */ //EXTERN string Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp interp, // string version, int exact)); #if !USE_TCL_STUBS /* * When not using stubs, make it a macro. */ //#define Tcl_InitStubs(interp, version, exact) \ // Tcl_PkgRequire(interp, "Tcl", version, exact) #endif /* * Include the public function declarations that are accessible via * the stubs table. */ //#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 !(MAC_TCL) //#include "tclPlatDecls.h" //#endif /* * Public functions that are not accessible via the stubs table. */ //EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, // Tcl_AppInitProc *appInitProc)); /* * Convenience declaration of Tcl_AppInit for backwards compatibility. * This function is not *implemented* by the tcl library, so the storage * class is neither DLLEXPORT nor DLLIMPORT */ //#undef TCL_STORAGE_CLASS //#define TCL_STORAGE_CLASS //EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp interp)); //#undef TCL_STORAGE_CLASS //#define TCL_STORAGE_CLASS DLLIMPORT #endif // * RC_INVOKED */ /* * end block for C++ */ #if __cplusplus //} #endif #endif // * _TCL */ } }