Parent Directory
| 
Revision Log
| 
Patch
| sf_code/esrgpcpj/shared/tcl_base/tclint.h revision 25 by dashley, Sat Oct 8 06:43:03 2016 UTC | projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclint.h revision 71 by dashley, Sat Nov 5 11:07:06 2016 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclint.h,v 1.1.1.1 2001/06/13 04:40:00 dtashley Exp $ */ | ||
| /* | ||
| * tclInt.h -- | ||
| * | ||
| * Declarations of things used internally by the Tcl interpreter. | ||
| * | ||
| * Copyright (c) 1987-1993 The Regents of the University of California. | ||
| * Copyright (c) 1993-1997 Lucent Technologies. | ||
| * Copyright (c) 1994-1998 Sun Microsystems, Inc. | ||
| * Copyright (c) 1998-1999 by Scriptics Corporation. | ||
| * | ||
| * See the file "license.terms" for information on usage and redistribution | ||
| * of this file, and for a DISCLAIMER OF ALL WARRANTIES. | ||
| * | ||
| * RCS: @(#) $Id: tclint.h,v 1.1.1.1 2001/06/13 04:40:00 dtashley Exp $ | ||
| */ | ||
| #ifndef _TCLINT | ||
| #define _TCLINT | ||
| /* | ||
| * Common include files needed by most of the Tcl source files are | ||
| * included here, so that system-dependent personalizations for the | ||
| * include files only have to be made in once place. This results | ||
| * in a few extra includes, but greater modularity. The order of | ||
| * the three groups of #includes is important. For example, stdio.h | ||
| * is needed by tcl.h, and the _ANSI_ARGS_ declaration in tcl.h is | ||
| * needed by stdlib.h in some configurations. | ||
| */ | ||
| #include <stdio.h> | ||
| #ifndef _TCL | ||
| #include "tcl.h" | ||
| #endif | ||
| #include <ctype.h> | ||
| #ifdef NO_LIMITS_H | ||
| # include "../compat/limits.h" | ||
| #else | ||
| # include <limits.h> | ||
| #endif | ||
| #ifdef NO_STDLIB_H | ||
| # include "../compat/stdlib.h" | ||
| #else | ||
| # include <stdlib.h> | ||
| #endif | ||
| #ifdef NO_STRING_H | ||
| #include "../compat/string.h" | ||
| #else | ||
| #include <string.h> | ||
| #endif | ||
| #undef TCL_STORAGE_CLASS | ||
| #ifdef BUILD_tcl | ||
| # define TCL_STORAGE_CLASS DLLEXPORT | ||
| #else | ||
| # ifdef USE_TCL_STUBS | ||
| # define TCL_STORAGE_CLASS | ||
| # else | ||
| # define TCL_STORAGE_CLASS DLLIMPORT | ||
| # endif | ||
| #endif | ||
| /* | ||
| * The following procedures allow namespaces to be customized to | ||
| * support special name resolution rules for commands/variables. | ||
| * | ||
| */ | ||
| struct Tcl_ResolvedVarInfo; | ||
| typedef Tcl_Var (Tcl_ResolveRuntimeVarProc) _ANSI_ARGS_(( | ||
| Tcl_Interp* interp, struct Tcl_ResolvedVarInfo *vinfoPtr)); | ||
| typedef void (Tcl_ResolveVarDeleteProc) _ANSI_ARGS_(( | ||
| struct Tcl_ResolvedVarInfo *vinfoPtr)); | ||
| /* | ||
| * The following structure encapsulates the routines needed to resolve a | ||
| * variable reference at runtime. Any variable specific state will typically | ||
| * be appended to this structure. | ||
| */ | ||
| typedef struct Tcl_ResolvedVarInfo { | ||
| Tcl_ResolveRuntimeVarProc *fetchProc; | ||
| Tcl_ResolveVarDeleteProc *deleteProc; | ||
| } Tcl_ResolvedVarInfo; | ||
| typedef int (Tcl_ResolveCompiledVarProc) _ANSI_ARGS_(( | ||
| Tcl_Interp* interp, char* name, int length, | ||
| Tcl_Namespace *context, Tcl_ResolvedVarInfo **rPtr)); | ||
| typedef int (Tcl_ResolveVarProc) _ANSI_ARGS_(( | ||
| Tcl_Interp* interp, char* name, Tcl_Namespace *context, | ||
| int flags, Tcl_Var *rPtr)); | ||
| typedef int (Tcl_ResolveCmdProc) _ANSI_ARGS_((Tcl_Interp* interp, | ||
| char* name, Tcl_Namespace *context, int flags, | ||
| Tcl_Command *rPtr)); | ||
| typedef struct Tcl_ResolverInfo { | ||
| Tcl_ResolveCmdProc *cmdResProc; /* Procedure handling command name | ||
| * resolution. */ | ||
| Tcl_ResolveVarProc *varResProc; /* Procedure handling variable name | ||
| * resolution for variables that | ||
| * can only be handled at runtime. */ | ||
| Tcl_ResolveCompiledVarProc *compiledVarResProc; | ||
| /* Procedure handling variable name | ||
| * resolution at compile time. */ | ||
| } Tcl_ResolverInfo; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to namespaces. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * The structure below defines a namespace. | ||
| * Note: the first five fields must match exactly the fields in a | ||
| * Tcl_Namespace structure (see tcl.h). If you change one, be sure to | ||
| * change the other. | ||
| */ | ||
| typedef struct Namespace { | ||
| char *name; /* The namespace's simple (unqualified) | ||
| * name. 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; /* An arbitrary value associated with this | ||
| * namespace. */ | ||
| Tcl_NamespaceDeleteProc *deleteProc; | ||
| /* Procedure invoked when deleting the | ||
| * namespace to, e.g., free clientData. */ | ||
| struct Namespace *parentPtr; /* Points to the namespace that contains | ||
| * this one. NULL if this is the global | ||
| * namespace. */ | ||
| Tcl_HashTable childTable; /* Contains any child namespaces. Indexed | ||
| * by strings; values have type | ||
| * (Namespace *). */ | ||
| long nsId; /* Unique id for the namespace. */ | ||
| Tcl_Interp *interp; /* The interpreter containing this | ||
| * namespace. */ | ||
| int flags; /* OR-ed combination of the namespace | ||
| * status flags NS_DYING and NS_DEAD | ||
| * listed below. */ | ||
| int activationCount; /* Number of "activations" or active call | ||
| * frames for this namespace that are on | ||
| * the Tcl call stack. The namespace won't | ||
| * be freed until activationCount becomes | ||
| * zero. */ | ||
| int refCount; /* Count of references by namespaceName * | ||
| * objects. The namespace can't be freed | ||
| * until refCount becomes zero. */ | ||
| Tcl_HashTable cmdTable; /* Contains all the commands currently | ||
| * registered in the namespace. Indexed by | ||
| * strings; values have type (Command *). | ||
| * Commands imported by Tcl_Import have | ||
| * Command structures that point (via an | ||
| * ImportedCmdRef structure) to the | ||
| * Command structure in the source | ||
| * namespace's command table. */ | ||
| Tcl_HashTable varTable; /* Contains all the (global) variables | ||
| * currently in this namespace. Indexed | ||
| * by strings; values have type (Var *). */ | ||
| char **exportArrayPtr; /* Points to an array of string patterns | ||
| * specifying which commands are exported. | ||
| * A pattern may include "string match" | ||
| * style wildcard characters to specify | ||
| * multiple commands; however, no namespace | ||
| * qualifiers are allowed. NULL if no | ||
| * export patterns are registered. */ | ||
| int numExportPatterns; /* Number of export patterns currently | ||
| * registered using "namespace export". */ | ||
| int maxExportPatterns; /* Mumber of export patterns for which | ||
| * space is currently allocated. */ | ||
| int cmdRefEpoch; /* Incremented if a newly added command | ||
| * shadows a command for which this | ||
| * namespace has already cached a Command * | ||
| * pointer; this causes all its cached | ||
| * Command* pointers to be invalidated. */ | ||
| int resolverEpoch; /* Incremented whenever the name resolution | ||
| * rules change for this namespace; this | ||
| * invalidates all byte codes compiled in | ||
| * the namespace, causing the code to be | ||
| * recompiled under the new rules. */ | ||
| Tcl_ResolveCmdProc *cmdResProc; | ||
| /* If non-null, this procedure overrides | ||
| * the usual command resolution mechanism | ||
| * in Tcl. This procedure is invoked | ||
| * within Tcl_FindCommand to resolve all | ||
| * command references within the namespace. */ | ||
| Tcl_ResolveVarProc *varResProc; | ||
| /* If non-null, this procedure overrides | ||
| * the usual variable resolution mechanism | ||
| * in Tcl. This procedure is invoked | ||
| * within Tcl_FindNamespaceVar to resolve all | ||
| * variable references within the namespace | ||
| * at runtime. */ | ||
| Tcl_ResolveCompiledVarProc *compiledVarResProc; | ||
| /* If non-null, this procedure overrides | ||
| * the usual variable resolution mechanism | ||
| * in Tcl. This procedure is invoked | ||
| * within LookupCompiledLocal to resolve | ||
| * variable references within the namespace | ||
| * at compile time. */ | ||
| } Namespace; | ||
| /* | ||
| * Flags used to represent the status of a namespace: | ||
| * | ||
| * NS_DYING - 1 means Tcl_DeleteNamespace has been called to delete the | ||
| * namespace but there are still active call frames on the Tcl | ||
| * stack that refer to the namespace. When the last call frame | ||
| * referring to it has been popped, it's variables and command | ||
| * will be destroyed and it will be marked "dead" (NS_DEAD). | ||
| * The namespace can no longer be looked up by name. | ||
| * NS_DEAD - 1 means Tcl_DeleteNamespace has been called to delete the | ||
| * namespace and no call frames still refer to it. Its | ||
| * variables and command have already been destroyed. This bit | ||
| * allows the namespace resolution code to recognize that the | ||
| * namespace is "deleted". When the last namespaceName object | ||
| * in any byte code code unit that refers to the namespace has | ||
| * been freed (i.e., when the namespace's refCount is 0), the | ||
| * namespace's storage will be freed. | ||
| */ | ||
| #define NS_DYING 0x01 | ||
| #define NS_DEAD 0x02 | ||
| /* | ||
| * Flag passed to TclGetNamespaceForQualName to have it create all namespace | ||
| * components of a namespace-qualified name that cannot be found. The new | ||
| * namespaces are created within their specified parent. Note that this | ||
| * flag's value must not conflict with the values of the flags | ||
| * TCL_GLOBAL_ONLY, TCL_NAMESPACE_ONLY, and FIND_ONLY_NS (defined in | ||
| * tclNamesp.c). | ||
| */ | ||
| #define CREATE_NS_IF_UNKNOWN 0x800 | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to variables. These are used primarily | ||
| * in tclVar.c | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * The following structure defines a variable trace, which is used to | ||
| * invoke a specific C procedure whenever certain operations are performed | ||
| * on a variable. | ||
| */ | ||
| typedef struct VarTrace { | ||
| Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given | ||
| * by flags are performed on variable. */ | ||
| ClientData clientData; /* Argument to pass to proc. */ | ||
| int flags; /* What events the trace procedure is | ||
| * interested in: OR-ed combination of | ||
| * TCL_TRACE_READS, TCL_TRACE_WRITES, | ||
| * TCL_TRACE_UNSETS and TCL_TRACE_ARRAY. */ | ||
| struct VarTrace *nextPtr; /* Next in list of traces associated with | ||
| * a particular variable. */ | ||
| } VarTrace; | ||
| /* | ||
| * When a variable trace is active (i.e. its associated procedure is | ||
| * executing), one of the following structures is linked into a list | ||
| * associated with the variable's interpreter. The information in | ||
| * the structure is needed in order for Tcl to behave reasonably | ||
| * if traces are deleted while traces are active. | ||
| */ | ||
| typedef struct ActiveVarTrace { | ||
| struct Var *varPtr; /* Variable that's being traced. */ | ||
| struct ActiveVarTrace *nextPtr; | ||
| /* Next in list of all active variable | ||
| * traces for the interpreter, or NULL | ||
| * if no more. */ | ||
| VarTrace *nextTracePtr; /* Next trace to check after current | ||
| * trace procedure returns; if this | ||
| * trace gets deleted, must update pointer | ||
| * to avoid using free'd memory. */ | ||
| } ActiveVarTrace; | ||
| /* | ||
| * The following structure describes an enumerative search in progress on | ||
| * an array variable; this are invoked with options to the "array" | ||
| * command. | ||
| */ | ||
| typedef struct ArraySearch { | ||
| int id; /* Integer id used to distinguish among | ||
| * multiple concurrent searches for the | ||
| * same array. */ | ||
| struct Var *varPtr; /* Pointer to array variable that's being | ||
| * searched. */ | ||
| Tcl_HashSearch search; /* Info kept by the hash module about | ||
| * progress through the array. */ | ||
| Tcl_HashEntry *nextEntry; /* Non-null means this is the next element | ||
| * to be enumerated (it's leftover from | ||
| * the Tcl_FirstHashEntry call or from | ||
| * an "array anymore" command). NULL | ||
| * means must call Tcl_NextHashEntry | ||
| * to get value to return. */ | ||
| struct ArraySearch *nextPtr;/* Next in list of all active searches | ||
| * for this variable, or NULL if this is | ||
| * the last one. */ | ||
| } ArraySearch; | ||
| /* | ||
| * The structure below defines a variable, which associates a string name | ||
| * with a Tcl_Obj value. These structures are kept in procedure call frames | ||
| * (for local variables recognized by the compiler) or in the heap (for | ||
| * global variables and any variable not known to the compiler). For each | ||
| * Var structure in the heap, a hash table entry holds the variable name and | ||
| * a pointer to the Var structure. | ||
| */ | ||
| typedef struct Var { | ||
| union { | ||
| Tcl_Obj *objPtr; /* The variable's object value. Used for | ||
| * scalar variables and array elements. */ | ||
| Tcl_HashTable *tablePtr;/* For array variables, this points to | ||
| * information about the hash table used | ||
| * to implement the associative array. | ||
| * Points to malloc-ed data. */ | ||
| struct Var *linkPtr; /* If this is a global variable being | ||
| * referred to in a procedure, or a variable | ||
| * created by "upvar", this field points to | ||
| * the referenced variable's Var struct. */ | ||
| } value; | ||
| char *name; /* NULL if the variable is in a hashtable, | ||
| * otherwise points to the variable's | ||
| * name. It is used, e.g., by TclLookupVar | ||
| * and "info locals". The storage for the | ||
| * characters of the name is not owned by | ||
| * the Var and must not be freed when | ||
| * freeing the Var. */ | ||
| Namespace *nsPtr; /* Points to the namespace that contains | ||
| * this variable or NULL if the variable is | ||
| * a local variable in a Tcl procedure. */ | ||
| Tcl_HashEntry *hPtr; /* If variable is in a hashtable, either the | ||
| * hash table entry that refers to this | ||
| * variable or NULL if the variable has been | ||
| * detached from its hash table (e.g. an | ||
| * array is deleted, but some of its | ||
| * elements are still referred to in | ||
| * upvars). NULL if the variable is not in a | ||
| * hashtable. This is used to delete an | ||
| * variable from its hashtable if it is no | ||
| * longer needed. */ | ||
| int refCount; /* Counts number of active uses of this | ||
| * variable, not including its entry in the | ||
| * call frame or the hash table: 1 for each | ||
| * additional variable whose linkPtr points | ||
| * here, 1 for each nested trace active on | ||
| * variable, and 1 if the variable is a | ||
| * namespace variable. This record can't be | ||
| * deleted until refCount becomes 0. */ | ||
| VarTrace *tracePtr; /* First in list of all traces set for this | ||
| * variable. */ | ||
| ArraySearch *searchPtr; /* First in list of all searches active | ||
| * for this variable, or NULL if none. */ | ||
| int flags; /* Miscellaneous bits of information about | ||
| * variable. See below for definitions. */ | ||
| } Var; | ||
| /* | ||
| * Flag bits for variables. The first three (VAR_SCALAR, VAR_ARRAY, and | ||
| * VAR_LINK) are mutually exclusive and give the "type" of the variable. | ||
| * VAR_UNDEFINED is independent of the variable's type. | ||
| * | ||
| * VAR_SCALAR - 1 means this is a scalar variable and not | ||
| * an array or link. The "objPtr" field points | ||
| * to the variable's value, a Tcl object. | ||
| * VAR_ARRAY - 1 means this is an array variable rather | ||
| * than a scalar variable or link. The | ||
| * "tablePtr" field points to the array's | ||
| * hashtable for its elements. | ||
| * VAR_LINK - 1 means this Var structure contains a | ||
| * pointer to another Var structure that | ||
| * either has the real value or is itself | ||
| * another VAR_LINK pointer. Variables like | ||
| * this come about through "upvar" and "global" | ||
| * commands, or through references to variables | ||
| * in enclosing namespaces. | ||
| * VAR_UNDEFINED - 1 means that the variable is in the process | ||
| * of being deleted. An undefined variable | ||
| * logically does not exist and survives only | ||
| * while it has a trace, or if it is a global | ||
| * variable currently being used by some | ||
| * procedure. | ||
| * VAR_IN_HASHTABLE - 1 means this variable is in a hashtable and | ||
| * the Var structure is malloced. 0 if it is | ||
| * a local variable that was assigned a slot | ||
| * in a procedure frame by the compiler so the | ||
| * Var storage is part of the call frame. | ||
| * VAR_TRACE_ACTIVE - 1 means that trace processing is currently | ||
| * underway for a read or write access, so | ||
| * new read or write accesses should not cause | ||
| * trace procedures to be called and the | ||
| * variable can't be deleted. | ||
| * VAR_ARRAY_ELEMENT - 1 means that this variable is an array | ||
| * element, so it is not legal for it to be | ||
| * an array itself (the VAR_ARRAY flag had | ||
| * better not be set). | ||
| * VAR_NAMESPACE_VAR - 1 means that this variable was declared | ||
| * as a namespace variable. This flag ensures | ||
| * it persists until its namespace is | ||
| * destroyed or until the variable is unset; | ||
| * it will persist even if it has not been | ||
| * initialized and is marked undefined. | ||
| * The variable's refCount is incremented to | ||
| * reflect the "reference" from its namespace. | ||
| * | ||
| * The following additional flags are used with the CompiledLocal type | ||
| * defined below: | ||
| * | ||
| * VAR_ARGUMENT - 1 means that this variable holds a procedure | ||
| * argument. | ||
| * VAR_TEMPORARY - 1 if the local variable is an anonymous | ||
| * temporary variable. Temporaries have a NULL | ||
| * name. | ||
| * VAR_RESOLVED - 1 if name resolution has been done for this | ||
| * variable. | ||
| */ | ||
| #define VAR_SCALAR 0x1 | ||
| #define VAR_ARRAY 0x2 | ||
| #define VAR_LINK 0x4 | ||
| #define VAR_UNDEFINED 0x8 | ||
| #define VAR_IN_HASHTABLE 0x10 | ||
| #define VAR_TRACE_ACTIVE 0x20 | ||
| #define VAR_ARRAY_ELEMENT 0x40 | ||
| #define VAR_NAMESPACE_VAR 0x80 | ||
| #define VAR_ARGUMENT 0x100 | ||
| #define VAR_TEMPORARY 0x200 | ||
| #define VAR_RESOLVED 0x400 | ||
| /* | ||
| * Macros to ensure that various flag bits are set properly for variables. | ||
| * The ANSI C "prototypes" for these macros are: | ||
| * | ||
| * EXTERN void TclSetVarScalar _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN void TclSetVarArray _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN void TclSetVarLink _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN void TclSetVarArrayElement _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN void TclSetVarUndefined _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN void TclClearVarUndefined _ANSI_ARGS_((Var *varPtr)); | ||
| */ | ||
| #define TclSetVarScalar(varPtr) \ | ||
| (varPtr)->flags = ((varPtr)->flags & ~(VAR_ARRAY|VAR_LINK)) | VAR_SCALAR | ||
| #define TclSetVarArray(varPtr) \ | ||
| (varPtr)->flags = ((varPtr)->flags & ~(VAR_SCALAR|VAR_LINK)) | VAR_ARRAY | ||
| #define TclSetVarLink(varPtr) \ | ||
| (varPtr)->flags = ((varPtr)->flags & ~(VAR_SCALAR|VAR_ARRAY)) | VAR_LINK | ||
| #define TclSetVarArrayElement(varPtr) \ | ||
| (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_ARRAY_ELEMENT | ||
| #define TclSetVarUndefined(varPtr) \ | ||
| (varPtr)->flags |= VAR_UNDEFINED | ||
| #define TclClearVarUndefined(varPtr) \ | ||
| (varPtr)->flags &= ~VAR_UNDEFINED | ||
| /* | ||
| * Macros to read various flag bits of variables. | ||
| * The ANSI C "prototypes" for these macros are: | ||
| * | ||
| * EXTERN int TclIsVarScalar _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarLink _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarArray _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarUndefined _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarArrayElement _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarTemporary _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarArgument _ANSI_ARGS_((Var *varPtr)); | ||
| * EXTERN int TclIsVarResolved _ANSI_ARGS_((Var *varPtr)); | ||
| */ | ||
| #define TclIsVarScalar(varPtr) \ | ||
| ((varPtr)->flags & VAR_SCALAR) | ||
| #define TclIsVarLink(varPtr) \ | ||
| ((varPtr)->flags & VAR_LINK) | ||
| #define TclIsVarArray(varPtr) \ | ||
| ((varPtr)->flags & VAR_ARRAY) | ||
| #define TclIsVarUndefined(varPtr) \ | ||
| ((varPtr)->flags & VAR_UNDEFINED) | ||
| #define TclIsVarArrayElement(varPtr) \ | ||
| ((varPtr)->flags & VAR_ARRAY_ELEMENT) | ||
| #define TclIsVarTemporary(varPtr) \ | ||
| ((varPtr)->flags & VAR_TEMPORARY) | ||
| #define TclIsVarArgument(varPtr) \ | ||
| ((varPtr)->flags & VAR_ARGUMENT) | ||
| #define TclIsVarResolved(varPtr) \ | ||
| ((varPtr)->flags & VAR_RESOLVED) | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to procedures. These are used primarily | ||
| * in tclProc.c, tclCompile.c, and tclExecute.c. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * Forward declaration to prevent an error when the forward reference to | ||
| * Command is encountered in the Proc and ImportRef types declared below. | ||
| */ | ||
| struct Command; | ||
| /* | ||
| * The variable-length structure below describes a local variable of a | ||
| * procedure that was recognized by the compiler. These variables have a | ||
| * name, an element in the array of compiler-assigned local variables in the | ||
| * procedure's call frame, and various other items of information. If the | ||
| * local variable is a formal argument, it may also have a default value. | ||
| * The compiler can't recognize local variables whose names are | ||
| * expressions (these names are only known at runtime when the expressions | ||
| * are evaluated) or local variables that are created as a result of an | ||
| * "upvar" or "uplevel" command. These other local variables are kept | ||
| * separately in a hash table in the call frame. | ||
| */ | ||
| typedef struct CompiledLocal { | ||
| struct CompiledLocal *nextPtr; | ||
| /* Next compiler-recognized local variable | ||
| * for this procedure, or NULL if this is | ||
| * the last local. */ | ||
| int nameLength; /* The number of characters in local | ||
| * variable's name. Used to speed up | ||
| * variable lookups. */ | ||
| int frameIndex; /* Index in the array of compiler-assigned | ||
| * variables in the procedure call frame. */ | ||
| int flags; /* Flag bits for the local variable. Same as | ||
| * the flags for the Var structure above, | ||
| * although only VAR_SCALAR, VAR_ARRAY, | ||
| * VAR_LINK, VAR_ARGUMENT, VAR_TEMPORARY, and | ||
| * VAR_RESOLVED make sense. */ | ||
| Tcl_Obj *defValuePtr; /* Pointer to the default value of an | ||
| * argument, if any. NULL if not an argument | ||
| * or, if an argument, no default value. */ | ||
| Tcl_ResolvedVarInfo *resolveInfo; | ||
| /* Customized variable resolution info | ||
| * supplied by the Tcl_ResolveCompiledVarProc | ||
| * associated with a namespace. Each variable | ||
| * is marked by a unique ClientData tag | ||
| * during compilation, and that same tag | ||
| * is used to find the variable at runtime. */ | ||
| char name[4]; /* Name of the local variable starts here. | ||
| * If the name is NULL, this will just be | ||
| * '\0'. The actual size of this field will | ||
| * be large enough to hold the name. MUST | ||
| * BE THE LAST FIELD IN THE STRUCTURE! */ | ||
| } CompiledLocal; | ||
| /* | ||
| * The structure below defines a command procedure, which consists of a | ||
| * collection of Tcl commands plus information about arguments and other | ||
| * local variables recognized at compile time. | ||
| */ | ||
| typedef struct Proc { | ||
| struct Interp *iPtr; /* Interpreter for which this command | ||
| * is defined. */ | ||
| int refCount; /* Reference count: 1 if still present | ||
| * in command table plus 1 for each call | ||
| * to the procedure that is currently | ||
| * active. This structure can be freed | ||
| * when refCount becomes zero. */ | ||
| struct Command *cmdPtr; /* Points to the Command structure for | ||
| * this procedure. This is used to get | ||
| * the namespace in which to execute | ||
| * the procedure. */ | ||
| Tcl_Obj *bodyPtr; /* Points to the ByteCode object for | ||
| * procedure's body command. */ | ||
| int numArgs; /* Number of formal parameters. */ | ||
| int numCompiledLocals; /* Count of local variables recognized by | ||
| * the compiler including arguments and | ||
| * temporaries. */ | ||
| CompiledLocal *firstLocalPtr; /* Pointer to first of the procedure's | ||
| * compiler-allocated local variables, or | ||
| * NULL if none. The first numArgs entries | ||
| * in this list describe the procedure's | ||
| * formal arguments. */ | ||
| CompiledLocal *lastLocalPtr; /* Pointer to the last allocated local | ||
| * variable or NULL if none. This has | ||
| * frame index (numCompiledLocals-1). */ | ||
| } Proc; | ||
| /* | ||
| * The structure below defines a command trace. This is used to allow Tcl | ||
| * clients to find out whenever a command is about to be executed. | ||
| */ | ||
| typedef struct Trace { | ||
| int level; /* Only trace commands at nesting level | ||
| * less than or equal to this. */ | ||
| Tcl_CmdTraceProc *proc; /* Procedure to call to trace command. */ | ||
| ClientData clientData; /* Arbitrary value to pass to proc. */ | ||
| struct Trace *nextPtr; /* Next in list of traces for this interp. */ | ||
| } Trace; | ||
| /* | ||
| * The structure below defines an entry in the assocData hash table which | ||
| * is associated with an interpreter. The entry contains a pointer to a | ||
| * function to call when the interpreter is deleted, and a pointer to | ||
| * a user-defined piece of data. | ||
| */ | ||
| typedef struct AssocData { | ||
| Tcl_InterpDeleteProc *proc; /* Proc to call when deleting. */ | ||
| ClientData clientData; /* Value to pass to proc. */ | ||
| } AssocData; | ||
| /* | ||
| * The structure below defines a call frame. A call frame defines a naming | ||
| * context for a procedure call: its local naming scope (for local | ||
| * variables) and its global naming scope (a namespace, perhaps 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 kind of Tcl call stack. | ||
| * | ||
| * WARNING!! The structure definition must be kept consistent with the | ||
| * Tcl_CallFrame structure in tcl.h. If you change one, change the other. | ||
| */ | ||
| typedef struct CallFrame { | ||
| Namespace *nsPtr; /* Points to the namespace used to resolve | ||
| * commands and global variables. */ | ||
| int isProcCallFrame; /* If nonzero, the frame was pushed to | ||
| * execute a Tcl procedure and may have | ||
| * local vars. If 0, the frame was pushed | ||
| * to execute a namespace command and var | ||
| * references are treated as references to | ||
| * namespace vars; varTablePtr and | ||
| * compiledLocals are ignored. */ | ||
| int objc; /* This and objv below describe the | ||
| * arguments for this procedure call. */ | ||
| Tcl_Obj *CONST *objv; /* Array of argument objects. */ | ||
| struct CallFrame *callerPtr; | ||
| /* Value of interp->framePtr when this | ||
| * procedure was invoked (i.e. next higher | ||
| * in stack of all active procedures). */ | ||
| struct CallFrame *callerVarPtr; | ||
| /* Value of interp->varFramePtr when this | ||
| * procedure was invoked (i.e. determines | ||
| * variable scoping within caller). Same | ||
| * as callerPtr unless an "uplevel" command | ||
| * or something equivalent was active in | ||
| * the caller). */ | ||
| int level; /* Level of this procedure, for "uplevel" | ||
| * purposes (i.e. corresponds to nesting of | ||
| * callerVarPtr's, not callerPtr's). 1 for | ||
| * outermost procedure, 0 for top-level. */ | ||
| Proc *procPtr; /* Points to the structure defining the | ||
| * called procedure. Used to get information | ||
| * such as the number of compiled local | ||
| * variables (local variables assigned | ||
| * entries ["slots"] in the compiledLocals | ||
| * array below). */ | ||
| Tcl_HashTable *varTablePtr; /* Hash table containing local variables not | ||
| * recognized by the compiler, or created at | ||
| * execution time through, e.g., upvar. | ||
| * Initially NULL and created if needed. */ | ||
| int numCompiledLocals; /* Count of local variables recognized by | ||
| * the compiler including arguments. */ | ||
| Var* compiledLocals; /* Points to the array of local variables | ||
| * recognized by the compiler. The compiler | ||
| * emits code that refers to these variables | ||
| * using an index into this array. */ | ||
| } CallFrame; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures and procedures related to TclHandles, which | ||
| * are a very lightweight method of preserving enough information | ||
| * to determine if an arbitrary malloc'd block has been deleted. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| typedef VOID **TclHandle; | ||
| EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID *ptr)); | ||
| EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle)); | ||
| EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle)); | ||
| EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle)); | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to history. These are used primarily | ||
| * in tclHistory.c | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * The structure below defines one history event (a previously-executed | ||
| * command that can be re-executed in whole or in part). | ||
| */ | ||
| typedef struct { | ||
| char *command; /* String containing previously-executed | ||
| * command. */ | ||
| int bytesAvl; /* Total # of bytes available at *event (not | ||
| * all are necessarily in use now). */ | ||
| } HistoryEvent; | ||
| /* | ||
| * The structure below defines a pending revision to the most recent | ||
| * history event. Changes are linked together into a list and applied | ||
| * during the next call to Tcl_RecordHistory. See the comments at the | ||
| * beginning of tclHistory.c for information on revisions. | ||
| */ | ||
| typedef struct HistoryRev { | ||
| int firstIndex; /* Index of the first byte to replace in | ||
| * current history event. */ | ||
| int lastIndex; /* Index of last byte to replace in | ||
| * current history event. */ | ||
| int newSize; /* Number of bytes in newBytes. */ | ||
| char *newBytes; /* Replacement for the range given by | ||
| * firstIndex and lastIndex (malloced). */ | ||
| struct HistoryRev *nextPtr; /* Next in chain of revisions to apply, or | ||
| * NULL for end of list. */ | ||
| } HistoryRev; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to expressions. These are used only in | ||
| * tclExpr.c. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * The data structure below defines a math function (e.g. sin or hypot) | ||
| * for use in Tcl expressions. | ||
| */ | ||
| #define MAX_MATH_ARGS 5 | ||
| typedef struct MathFunc { | ||
| int builtinFuncIndex; /* If this is a builtin math function, its | ||
| * index in the array of builtin functions. | ||
| * (tclCompilation.h lists these indices.) | ||
| * The value is -1 if this is a new function | ||
| * defined by Tcl_CreateMathFunc. The value | ||
| * is also -1 if a builtin function is | ||
| * replaced by a Tcl_CreateMathFunc call. */ | ||
| int numArgs; /* Number of arguments for function. */ | ||
| Tcl_ValueType argTypes[MAX_MATH_ARGS]; | ||
| /* Acceptable types for each argument. */ | ||
| Tcl_MathProc *proc; /* Procedure that implements this function. | ||
| * NULL if isBuiltinFunc is 1. */ | ||
| ClientData clientData; /* Additional argument to pass to the | ||
| * function when invoking it. NULL if | ||
| * isBuiltinFunc is 1. */ | ||
| } MathFunc; | ||
| /* | ||
| * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet | ||
| * when threads are used, or an emulation if there are no threads. These | ||
| * are really internal and Tcl clients should use Tcl_GetThreadData. | ||
| */ | ||
| EXTERN VOID *TclThreadDataKeyGet _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr)); | ||
| EXTERN void TclThreadDataKeySet _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr, VOID *data)); | ||
| /* | ||
| * This is a convenience macro used to initialize a thread local storage ptr. | ||
| */ | ||
| #define TCL_TSD_INIT(keyPtr) (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to bytecode compilation and execution. | ||
| * These are used primarily in tclCompile.c, tclExecute.c, and | ||
| * tclBasic.c. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * Forward declaration to prevent errors when the forward references to | ||
| * Tcl_Parse and CompileEnv are encountered in the procedure type | ||
| * CompileProc declared below. | ||
| */ | ||
| struct CompileEnv; | ||
| /* | ||
| * The type of procedures called by the Tcl bytecode compiler to compile | ||
| * commands. Pointers to these procedures are kept in the Command structure | ||
| * describing each command. When a CompileProc returns, the interpreter's | ||
| * result is set to error information, if any. In addition, the CompileProc | ||
| * returns an integer value, which is one of the following: | ||
| * | ||
| * TCL_OK Compilation completed normally. | ||
| * TCL_ERROR Compilation failed because of an error; | ||
| * the interpreter's result describes what went wrong. | ||
| * TCL_OUT_LINE_COMPILE Compilation failed because, e.g., the command is | ||
| * too complex for effective inline compilation. The | ||
| * CompileProc believes the command is legal but | ||
| * should be compiled "out of line" by emitting code | ||
| * to invoke its command procedure at runtime. | ||
| */ | ||
| #define TCL_OUT_LINE_COMPILE (TCL_CONTINUE + 1) | ||
| typedef int (CompileProc) _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *compEnvPtr)); | ||
| /* | ||
| * The type of procedure called from the compilation hook point in | ||
| * SetByteCodeFromAny. | ||
| */ | ||
| typedef int (CompileHookProc) _ANSI_ARGS_((Tcl_Interp *interp, | ||
| struct CompileEnv *compEnvPtr, ClientData clientData)); | ||
| /* | ||
| * The data structure defining the execution environment for ByteCode's. | ||
| * There is one ExecEnv structure per Tcl interpreter. It holds the | ||
| * evaluation stack that holds command operands and results. The stack grows | ||
| * towards increasing addresses. The "stackTop" member is cached by | ||
| * TclExecuteByteCode in a local variable: it must be set before calling | ||
| * TclExecuteByteCode and will be restored by TclExecuteByteCode before it | ||
| * returns. | ||
| */ | ||
| typedef struct ExecEnv { | ||
| Tcl_Obj **stackPtr; /* Points to the first item in the | ||
| * evaluation stack on the heap. */ | ||
| int stackTop; /* Index of current top of stack; -1 when | ||
| * the stack is empty. */ | ||
| int stackEnd; /* Index of last usable item in stack. */ | ||
| } ExecEnv; | ||
| /* | ||
| * The definitions for the LiteralTable and LiteralEntry structures. Each | ||
| * interpreter contains a LiteralTable. It is used to reduce the storage | ||
| * needed for all the Tcl objects that hold the literals of scripts compiled | ||
| * by the interpreter. A literal's object is shared by all the ByteCodes | ||
| * that refer to the literal. Each distinct literal has one LiteralEntry | ||
| * entry in the LiteralTable. A literal table is a specialized hash table | ||
| * that is indexed by the literal's string representation, which may contain | ||
| * null characters. | ||
| * | ||
| * Note that we reduce the space needed for literals by sharing literal | ||
| * objects both within a ByteCode (each ByteCode contains a local | ||
| * LiteralTable) and across all an interpreter's ByteCodes (with the | ||
| * interpreter's global LiteralTable). | ||
| */ | ||
| typedef struct LiteralEntry { | ||
| struct LiteralEntry *nextPtr; /* Points to next entry in this | ||
| * hash bucket or NULL if end of | ||
| * chain. */ | ||
| Tcl_Obj *objPtr; /* Points to Tcl object that | ||
| * holds the literal's bytes and | ||
| * length. */ | ||
| int refCount; /* If in an interpreter's global | ||
| * literal table, the number of | ||
| * ByteCode structures that share | ||
| * the literal object; the literal | ||
| * entry can be freed when refCount | ||
| * drops to 0. If in a local literal | ||
| * table, -1. */ | ||
| } LiteralEntry; | ||
| typedef struct LiteralTable { | ||
| LiteralEntry **buckets; /* Pointer to bucket array. Each | ||
| * element points to first entry in | ||
| * bucket's hash chain, or NULL. */ | ||
| LiteralEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; | ||
| /* Bucket array used for small | ||
| * tables to avoid mallocs and | ||
| * frees. */ | ||
| int numBuckets; /* Total number of buckets allocated | ||
| * at **buckets. */ | ||
| int numEntries; /* Total number of entries present | ||
| * in table. */ | ||
| int rebuildSize; /* Enlarge table when numEntries | ||
| * gets to be this large. */ | ||
| int mask; /* Mask value used in hashing | ||
| * function. */ | ||
| } LiteralTable; | ||
| /* | ||
| * The following structure defines for each Tcl interpreter various | ||
| * statistics-related information about the bytecode compiler and | ||
| * interpreter's operation in that interpreter. | ||
| */ | ||
| #ifdef TCL_COMPILE_STATS | ||
| typedef struct ByteCodeStats { | ||
| long numExecutions; /* Number of ByteCodes executed. */ | ||
| long numCompilations; /* Number of ByteCodes created. */ | ||
| long numByteCodesFreed; /* Number of ByteCodes destroyed. */ | ||
| long instructionCount[256]; /* Number of times each instruction was | ||
| * executed. */ | ||
| double totalSrcBytes; /* Total source bytes ever compiled. */ | ||
| double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ | ||
| double currentSrcBytes; /* Src bytes for all current ByteCodes. */ | ||
| double currentByteCodeBytes; /* Code bytes in all current ByteCodes. */ | ||
| long srcCount[32]; /* Source size distribution: # of srcs of | ||
| * size [2**(n-1)..2**n), n in [0..32). */ | ||
| long byteCodeCount[32]; /* ByteCode size distribution. */ | ||
| long lifetimeCount[32]; /* ByteCode lifetime distribution (ms). */ | ||
| double currentInstBytes; /* Instruction bytes-current ByteCodes. */ | ||
| double currentLitBytes; /* Current literal bytes. */ | ||
| double currentExceptBytes; /* Current exception table bytes. */ | ||
| double currentAuxBytes; /* Current auxiliary information bytes. */ | ||
| double currentCmdMapBytes; /* Current src<->code map bytes. */ | ||
| long numLiteralsCreated; /* Total literal objects ever compiled. */ | ||
| double totalLitStringBytes; /* Total string bytes in all literals. */ | ||
| double currentLitStringBytes; /* String bytes in current literals. */ | ||
| long literalCount[32]; /* Distribution of literal string sizes. */ | ||
| } ByteCodeStats; | ||
| #endif /* TCL_COMPILE_STATS */ | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to commands. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * An imported command is created in an namespace when it imports a "real" | ||
| * command from another namespace. An imported command has a Command | ||
| * structure that points (via its ClientData value) to the "real" Command | ||
| * structure in the source namespace's command table. The real command | ||
| * records all the imported commands that refer to it in a list of ImportRef | ||
| * structures so that they can be deleted when the real command is deleted. */ | ||
| typedef struct ImportRef { | ||
| struct Command *importedCmdPtr; | ||
| /* Points to the imported command created in | ||
| * an importing namespace; this command | ||
| * redirects its invocations to the "real" | ||
| * command. */ | ||
| struct ImportRef *nextPtr; /* Next element on the linked list of | ||
| * imported commands that refer to the | ||
| * "real" command. The real command deletes | ||
| * these imported commands on this list when | ||
| * it is deleted. */ | ||
| } ImportRef; | ||
| /* | ||
| * Data structure used as the ClientData of imported commands: commands | ||
| * created in an namespace when it imports a "real" command from another | ||
| * namespace. | ||
| */ | ||
| typedef struct ImportedCmdData { | ||
| struct Command *realCmdPtr; /* "Real" command that this imported command | ||
| * refers to. */ | ||
| struct Command *selfPtr; /* Pointer to this imported command. Needed | ||
| * only when deleting it in order to remove | ||
| * it from the real command's linked list of | ||
| * imported commands that refer to it. */ | ||
| } ImportedCmdData; | ||
| /* | ||
| * A Command structure exists for each command in a namespace. The | ||
| * Tcl_Command opaque type actually refers to these structures. | ||
| */ | ||
| typedef struct Command { | ||
| Tcl_HashEntry *hPtr; /* Pointer to the hash table entry that | ||
| * refers to this command. The hash table is | ||
| * either a namespace's command table or an | ||
| * interpreter's hidden command table. This | ||
| * pointer is used to get a command's name | ||
| * from its Tcl_Command handle. NULL means | ||
| * that the hash table entry has been | ||
| * removed already (this can happen if | ||
| * deleteProc causes the command to be | ||
| * deleted or recreated). */ | ||
| Namespace *nsPtr; /* Points to the namespace containing this | ||
| * command. */ | ||
| int refCount; /* 1 if in command hashtable plus 1 for each | ||
| * reference from a CmdName Tcl object | ||
| * representing a command's name in a | ||
| * ByteCode instruction sequence. This | ||
| * structure can be freed when refCount | ||
| * becomes zero. */ | ||
| int cmdEpoch; /* Incremented to invalidate any references | ||
| * that point to this command when it is | ||
| * renamed, deleted, hidden, or exposed. */ | ||
| CompileProc *compileProc; /* Procedure called to compile command. NULL | ||
| * if no compile proc exists for command. */ | ||
| Tcl_ObjCmdProc *objProc; /* Object-based command procedure. */ | ||
| ClientData objClientData; /* Arbitrary value passed to object proc. */ | ||
| Tcl_CmdProc *proc; /* String-based command procedure. */ | ||
| ClientData clientData; /* Arbitrary value passed to string proc. */ | ||
| Tcl_CmdDeleteProc *deleteProc; | ||
| /* Procedure invoked when deleting command | ||
| * to, e.g., free all client data. */ | ||
| ClientData deleteData; /* Arbitrary value passed to deleteProc. */ | ||
| int deleted; /* Means that the command is in the process | ||
| * of being deleted (its deleteProc is | ||
| * currently executing). Other attempts to | ||
| * delete the command should be ignored. */ | ||
| ImportRef *importRefPtr; /* List of each imported Command created in | ||
| * another namespace when this command is | ||
| * imported. These imported commands | ||
| * redirect invocations back to this | ||
| * command. The list is used to remove all | ||
| * those imported commands when deleting | ||
| * this "real" command. */ | ||
| } Command; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to name resolution procedures. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * The interpreter keeps a linked list of name resolution schemes. | ||
| * The scheme for a namespace is consulted first, followed by the | ||
| * list of schemes in an interpreter, followed by the default | ||
| * name resolution in Tcl. Schemes are added/removed from the | ||
| * interpreter's list by calling Tcl_AddInterpResolver and | ||
| * Tcl_RemoveInterpResolver. | ||
| */ | ||
| typedef struct ResolverScheme { | ||
| char *name; /* Name identifying this scheme. */ | ||
| Tcl_ResolveCmdProc *cmdResProc; | ||
| /* Procedure handling command name | ||
| * resolution. */ | ||
| Tcl_ResolveVarProc *varResProc; | ||
| /* Procedure handling variable name | ||
| * resolution for variables that | ||
| * can only be handled at runtime. */ | ||
| Tcl_ResolveCompiledVarProc *compiledVarResProc; | ||
| /* Procedure handling variable name | ||
| * resolution at compile time. */ | ||
| struct ResolverScheme *nextPtr; | ||
| /* Pointer to next record in linked list. */ | ||
| } ResolverScheme; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * This structure defines an interpreter, which is a collection of | ||
| * commands plus other state information related to interpreting | ||
| * commands, such as variable storage. Primary responsibility for | ||
| * this data structure is in tclBasic.c, but almost every Tcl | ||
| * source file uses something in here. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| typedef struct Interp { | ||
| /* | ||
| * Note: the first three fields must match exactly the fields in | ||
| * a Tcl_Interp struct (see tcl.h). If you change one, be sure to | ||
| * change the other. | ||
| * | ||
| * The interpreter's result is held in both the string and the | ||
| * objResultPtr fields. These fields hold, respectively, the result's | ||
| * string or object value. The interpreter's result is always in the | ||
| * result field if that is non-empty, otherwise it is in objResultPtr. | ||
| * The two fields are kept consistent unless some C code sets | ||
| * interp->result directly. Programs should not access result and | ||
| * objResultPtr directly; instead, they should always get and set the | ||
| * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, | ||
| * and Tcl_GetStringResult. See the SetResult man page for details. | ||
| */ | ||
| char *result; /* If the last command returned a string | ||
| * result, this points to it. Should not be | ||
| * accessed directly; see comment above. */ | ||
| Tcl_FreeProc *freeProc; /* Zero means a string result is statically | ||
| * allocated. TCL_DYNAMIC means string | ||
| * result was allocated with ckalloc and | ||
| * should be freed with ckfree. Other values | ||
| * give address of procedure to invoke to | ||
| * free the string result. Tcl_Eval must | ||
| * free it before executing next command. */ | ||
| int errorLine; /* When TCL_ERROR is returned, this gives | ||
| * the line number in the command where the | ||
| * error occurred (1 means first line). */ | ||
| struct TclStubs *stubTable; | ||
| /* Pointer to the exported Tcl stub table. | ||
| * On previous versions of Tcl this is a | ||
| * pointer to the objResultPtr or a pointer | ||
| * to a buckets array in a hash table. We | ||
| * therefore have to do some careful checking | ||
| * before we can use this. */ | ||
| TclHandle handle; /* Handle used to keep track of when this | ||
| * interp is deleted. */ | ||
| Namespace *globalNsPtr; /* The interpreter's global namespace. */ | ||
| Tcl_HashTable *hiddenCmdTablePtr; | ||
| /* Hash table used by tclBasic.c to keep | ||
| * track of hidden commands on a per-interp | ||
| * basis. */ | ||
| ClientData interpInfo; /* Information used by tclInterp.c to keep | ||
| * track of master/slave interps on | ||
| * a per-interp basis. */ | ||
| Tcl_HashTable mathFuncTable;/* Contains all the math functions currently | ||
| * defined for the interpreter. Indexed by | ||
| * strings (function names); values have | ||
| * type (MathFunc *). */ | ||
| /* | ||
| * Information related to procedures and variables. See tclProc.c | ||
| * and tclvar.c for usage. | ||
| */ | ||
| int numLevels; /* Keeps track of how many nested calls to | ||
| * Tcl_Eval are in progress for this | ||
| * interpreter. It's used to delay deletion | ||
| * of the table until all Tcl_Eval | ||
| * invocations are completed. */ | ||
| int maxNestingDepth; /* If numLevels exceeds this value then Tcl | ||
| * assumes that infinite recursion has | ||
| * occurred and it generates an error. */ | ||
| CallFrame *framePtr; /* Points to top-most in stack of all nested | ||
| * procedure invocations. NULL means there | ||
| * are no active procedures. */ | ||
| CallFrame *varFramePtr; /* Points to the call frame whose variables | ||
| * are currently in use (same as framePtr | ||
| * unless an "uplevel" command is | ||
| * executing). NULL means no procedure is | ||
| * active or "uplevel 0" is executing. */ | ||
| ActiveVarTrace *activeTracePtr; | ||
| /* First in list of active traces for | ||
| * interp, or NULL if no active traces. */ | ||
| int returnCode; /* Completion code to return if current | ||
| * procedure exits with TCL_RETURN code. */ | ||
| char *errorInfo; /* Value to store in errorInfo if returnCode | ||
| * is TCL_ERROR. Malloc'ed, may be NULL */ | ||
| char *errorCode; /* Value to store in errorCode if returnCode | ||
| * is TCL_ERROR. Malloc'ed, may be NULL */ | ||
| /* | ||
| * Information used by Tcl_AppendResult to keep track of partial | ||
| * results. See Tcl_AppendResult code for details. | ||
| */ | ||
| char *appendResult; /* Storage space for results generated | ||
| * by Tcl_AppendResult. Malloc-ed. NULL | ||
| * means not yet allocated. */ | ||
| int appendAvl; /* Total amount of space available at | ||
| * partialResult. */ | ||
| int appendUsed; /* Number of non-null bytes currently | ||
| * stored at partialResult. */ | ||
| /* | ||
| * Information about packages. Used only in tclPkg.c. | ||
| */ | ||
| Tcl_HashTable packageTable; /* Describes all of the packages loaded | ||
| * in or available to this interpreter. | ||
| * Keys are package names, values are | ||
| * (Package *) pointers. */ | ||
| char *packageUnknown; /* Command to invoke during "package | ||
| * require" commands for packages that | ||
| * aren't described in packageTable. | ||
| * Malloc'ed, may be NULL. */ | ||
| /* | ||
| * Miscellaneous information: | ||
| */ | ||
| int cmdCount; /* Total number of times a command procedure | ||
| * has been called for this interpreter. */ | ||
| int evalFlags; /* Flags to control next call to Tcl_Eval. | ||
| * Normally zero, but may be set before | ||
| * calling Tcl_Eval. See below for valid | ||
| * values. */ | ||
| int termOffset; /* Offset of character just after last one | ||
| * compiled or executed by Tcl_EvalObj. */ | ||
| LiteralTable literalTable; /* Contains LiteralEntry's describing all | ||
| * Tcl objects holding literals of scripts | ||
| * compiled by the interpreter. Indexed by | ||
| * the string representations of literals. | ||
| * Used to avoid creating duplicate | ||
| * objects. */ | ||
| int compileEpoch; /* Holds the current "compilation epoch" | ||
| * for this interpreter. This is | ||
| * incremented to invalidate existing | ||
| * ByteCodes when, e.g., a command with a | ||
| * compile procedure is redefined. */ | ||
| Proc *compiledProcPtr; /* If a procedure is being compiled, a | ||
| * pointer to its Proc structure; otherwise, | ||
| * this is NULL. Set by ObjInterpProc in | ||
| * tclProc.c and used by tclCompile.c to | ||
| * process local variables appropriately. */ | ||
| ResolverScheme *resolverPtr; | ||
| /* Linked list of name resolution schemes | ||
| * added to this interpreter. Schemes | ||
| * are added/removed by calling | ||
| * Tcl_AddInterpResolvers and | ||
| * Tcl_RemoveInterpResolver. */ | ||
| char *scriptFile; /* NULL means there is no nested source | ||
| * command active; otherwise this points to | ||
| * the name of the file being sourced (it's | ||
| * not malloc-ed: it points to an argument | ||
| * to Tcl_EvalFile. */ | ||
| int flags; /* Various flag bits. See below. */ | ||
| long randSeed; /* Seed used for rand() function. */ | ||
| Trace *tracePtr; /* List of traces for this interpreter. */ | ||
| Tcl_HashTable *assocData; /* Hash table for associating data with | ||
| * this interpreter. Cleaned up when | ||
| * this interpreter is deleted. */ | ||
| struct ExecEnv *execEnvPtr; /* Execution environment for Tcl bytecode | ||
| * execution. Contains a pointer to the | ||
| * Tcl evaluation stack. */ | ||
| Tcl_Obj *emptyObjPtr; /* Points to an object holding an empty | ||
| * string. Returned by Tcl_ObjSetVar2 when | ||
| * variable traces change a variable in a | ||
| * gross way. */ | ||
| char resultSpace[TCL_RESULT_SIZE+1]; | ||
| /* Static space holding small results. */ | ||
| Tcl_Obj *objResultPtr; /* If the last command returned an object | ||
| * result, this points to it. Should not be | ||
| * accessed directly; see comment above. */ | ||
| Tcl_ThreadId threadId; /* ID of thread that owns the interpreter */ | ||
| /* | ||
| * Statistical information about the bytecode compiler and interpreter's | ||
| * operation. | ||
| */ | ||
| #ifdef TCL_COMPILE_STATS | ||
| ByteCodeStats stats; /* Holds compilation and execution | ||
| * statistics for this interpreter. */ | ||
| #endif /* TCL_COMPILE_STATS */ | ||
| } Interp; | ||
| /* | ||
| * EvalFlag bits for Interp structures: | ||
| * | ||
| * TCL_BRACKET_TERM 1 means that the current script is terminated by | ||
| * a close bracket rather than the end of the string. | ||
| * TCL_ALLOW_EXCEPTIONS 1 means it's OK for the script to terminate with | ||
| * a code other than TCL_OK or TCL_ERROR; 0 means | ||
| * codes other than these should be turned into errors. | ||
| */ | ||
| #define TCL_BRACKET_TERM 1 | ||
| #define TCL_ALLOW_EXCEPTIONS 4 | ||
| /* | ||
| * Flag bits for Interp structures: | ||
| * | ||
| * DELETED: Non-zero means the interpreter has been deleted: | ||
| * don't process any more commands for it, and destroy | ||
| * the structure as soon as all nested invocations of | ||
| * Tcl_Eval are done. | ||
| * ERR_IN_PROGRESS: Non-zero means an error unwind is already in | ||
| * progress. Zero means a command proc has been | ||
| * invoked since last error occured. | ||
| * ERR_ALREADY_LOGGED: Non-zero means information has already been logged | ||
| * in $errorInfo for the current Tcl_Eval instance, | ||
| * so Tcl_Eval needn't log it (used to implement the | ||
| * "error message log" command). | ||
| * ERROR_CODE_SET: Non-zero means that Tcl_SetErrorCode has been | ||
| * called to record information for the current | ||
| * error. Zero means Tcl_Eval must clear the | ||
| * errorCode variable if an error is returned. | ||
| * EXPR_INITIALIZED: Non-zero means initialization specific to | ||
| * expressions has been carried out. | ||
| * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler | ||
| * should not compile any commands into an inline | ||
| * sequence of instructions. This is set 1, for | ||
| * example, when command traces are requested. | ||
| * RAND_SEED_INITIALIZED: Non-zero means that the randSeed value of the | ||
| * interp has not be initialized. This is set 1 | ||
| * when we first use the rand() or srand() functions. | ||
| * SAFE_INTERP: Non zero means that the current interp is a | ||
| * safe interp (ie it has only the safe commands | ||
| * installed, less priviledge than a regular interp). | ||
| * USE_EVAL_DIRECT: Non-zero means don't use the compiler or byte-code | ||
| * interpreter; instead, have Tcl_EvalObj call | ||
| * Tcl_EvalEx. Used primarily for testing the | ||
| * new parser. | ||
| */ | ||
| #define DELETED 1 | ||
| #define ERR_IN_PROGRESS 2 | ||
| #define ERR_ALREADY_LOGGED 4 | ||
| #define ERROR_CODE_SET 8 | ||
| #define EXPR_INITIALIZED 0x10 | ||
| #define DONT_COMPILE_CMDS_INLINE 0x20 | ||
| #define RAND_SEED_INITIALIZED 0x40 | ||
| #define SAFE_INTERP 0x80 | ||
| #define USE_EVAL_DIRECT 0x100 | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to command parsing. These are used in | ||
| * tclParse.c and its clients. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| /* | ||
| * The following data structure is used by various parsing procedures | ||
| * to hold information about where to store the results of parsing | ||
| * (e.g. the substituted contents of a quoted argument, or the result | ||
| * of a nested command). At any given time, the space available | ||
| * for output is fixed, but a procedure may be called to expand the | ||
| * space available if the current space runs out. | ||
| */ | ||
| typedef struct ParseValue { | ||
| char *buffer; /* Address of first character in | ||
| * output buffer. */ | ||
| char *next; /* Place to store next character in | ||
| * output buffer. */ | ||
| char *end; /* Address of the last usable character | ||
| * in the buffer. */ | ||
| void (*expandProc) _ANSI_ARGS_((struct ParseValue *pvPtr, int needed)); | ||
| /* Procedure to call when space runs out; | ||
| * it will make more space. */ | ||
| ClientData clientData; /* Arbitrary information for use of | ||
| * expandProc. */ | ||
| } ParseValue; | ||
| /* | ||
| * Maximum number of levels of nesting permitted in Tcl commands (used | ||
| * to catch infinite recursion). | ||
| */ | ||
| #define MAX_NESTING_DEPTH 1000 | ||
| /* | ||
| * The macro below is used to modify a "char" value (e.g. by casting | ||
| * it to an unsigned character) so that it can be used safely with | ||
| * macros such as isspace. | ||
| */ | ||
| #define UCHAR(c) ((unsigned char) (c)) | ||
| /* | ||
| * This macro is used to determine the offset needed to safely allocate any | ||
| * data structure in memory. Given a starting offset or size, it "rounds up" | ||
| * or "aligns" the offset to the next 8-byte boundary so that any data | ||
| * structure can be placed at the resulting offset without fear of an | ||
| * alignment error. | ||
| * | ||
| * WARNING!! DO NOT USE THIS MACRO TO ALIGN POINTERS: it will produce | ||
| * the wrong result on platforms that allocate addresses that are divisible | ||
| * by 4 or 2. Only use it for offsets or sizes. | ||
| */ | ||
| #define TCL_ALIGN(x) (((int)(x) + 7) & ~7) | ||
| /* | ||
| * The following macros are used to specify the runtime platform | ||
| * setting of the tclPlatform variable. | ||
| */ | ||
| typedef enum { | ||
| TCL_PLATFORM_UNIX, /* Any Unix-like OS. */ | ||
| TCL_PLATFORM_MAC, /* MacOS. */ | ||
| TCL_PLATFORM_WINDOWS /* Any Microsoft Windows OS. */ | ||
| } TclPlatformType; | ||
| /* | ||
| * Flags for TclInvoke: | ||
| * | ||
| * TCL_INVOKE_HIDDEN Invoke a hidden command; if not set, | ||
| * invokes an exposed command. | ||
| * TCL_INVOKE_NO_UNKNOWN If set, "unknown" is not invoked if | ||
| * the command to be invoked is not found. | ||
| * Only has an effect if invoking an exposed | ||
| * command, i.e. if TCL_INVOKE_HIDDEN is not | ||
| * also set. | ||
| * TCL_INVOKE_NO_TRACEBACK Does not record traceback information if | ||
| * the invoked command returns an error. Used | ||
| * if the caller plans on recording its own | ||
| * traceback information. | ||
| */ | ||
| #define TCL_INVOKE_HIDDEN (1<<0) | ||
| #define TCL_INVOKE_NO_UNKNOWN (1<<1) | ||
| #define TCL_INVOKE_NO_TRACEBACK (1<<2) | ||
| /* | ||
| * The structure used as the internal representation of Tcl list | ||
| * objects. This is an array of pointers to the element objects. This array | ||
| * is grown (reallocated and copied) as necessary to hold all the list's | ||
| * element pointers. The array might contain more slots than currently used | ||
| * to hold all element pointers. This is done to make append operations | ||
| * faster. | ||
| */ | ||
| typedef struct List { | ||
| int maxElemCount; /* Total number of element array slots. */ | ||
| int elemCount; /* Current number of list elements. */ | ||
| Tcl_Obj **elements; /* Array of pointers to element objects. */ | ||
| } List; | ||
| /* | ||
| * The following types are used for getting and storing platform-specific | ||
| * file attributes in tclFCmd.c and the various platform-versions of | ||
| * that file. This is done to have as much common code as possible | ||
| * in the file attributes code. For more information about the callbacks, | ||
| * see TclFileAttrsCmd in tclFCmd.c. | ||
| */ | ||
| typedef int (TclGetFileAttrProc) _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int objIndex, CONST char *fileName, Tcl_Obj **attrObjPtrPtr)); | ||
| typedef int (TclSetFileAttrProc) _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int objIndex, CONST char *fileName, Tcl_Obj *attrObjPtr)); | ||
| typedef struct TclFileAttrProcs { | ||
| TclGetFileAttrProc *getProc; /* The procedure for getting attrs. */ | ||
| TclSetFileAttrProc *setProc; /* The procedure for setting attrs. */ | ||
| } TclFileAttrProcs; | ||
| /* | ||
| * Opaque handle used in pipeline routines to encapsulate platform-dependent | ||
| * state. | ||
| */ | ||
| typedef struct TclFile_ *TclFile; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Data structures related to hooking 'TclStat(...)' and | ||
| * 'TclAccess(...)'. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| typedef int (TclStatProc_) _ANSI_ARGS_((CONST char *path, struct stat *buf)); | ||
| typedef int (TclAccessProc_) _ANSI_ARGS_((CONST char *path, int mode)); | ||
| typedef Tcl_Channel (TclOpenFileChannelProc_) _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *fileName, char *modeString, | ||
| int permissions)); | ||
| typedef int (*TclCmdProcType) _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int argc, char *argv[])); | ||
| typedef int (*TclObjCmdProcType) _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST objv[])); | ||
| /* | ||
| * Opaque names for platform specific types. | ||
| */ | ||
| typedef struct TclpTime_t_ *TclpTime_t; | ||
| /* | ||
| * The following structure is used to pass glob type data amongst | ||
| * the various glob routines and TclpMatchFilesTypes. Currently | ||
| * most of the fields are ignored. However they will be used in | ||
| * a future release to implement glob's ability to find files | ||
| * of particular types/permissions/etc only. | ||
| */ | ||
| typedef struct 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; | ||
| } 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) | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Variables shared among Tcl modules but not used by the outside world. | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| extern Tcl_Time tclBlockTime; | ||
| extern int tclBlockTimeSet; | ||
| extern char * tclExecutableName; | ||
| extern char * tclNativeExecutableName; | ||
| extern char * tclDefaultEncodingDir; | ||
| extern Tcl_ChannelType tclFileChannelType; | ||
| extern char * tclMemDumpFileName; | ||
| extern TclPlatformType tclPlatform; | ||
| extern char * tclpFileAttrStrings[]; | ||
| extern CONST TclFileAttrProcs tclpFileAttrProcs[]; | ||
| /* | ||
| * Variables denoting the Tcl object types defined in the core. | ||
| */ | ||
| extern Tcl_ObjType tclBooleanType; | ||
| extern Tcl_ObjType tclByteArrayType; | ||
| extern Tcl_ObjType tclByteCodeType; | ||
| extern Tcl_ObjType tclDoubleType; | ||
| extern Tcl_ObjType tclIntType; | ||
| extern Tcl_ObjType tclListType; | ||
| extern Tcl_ObjType tclProcBodyType; | ||
| extern Tcl_ObjType tclStringType; | ||
| /* | ||
| * The head of the list of free Tcl objects, and the total number of Tcl | ||
| * objects ever allocated and freed. | ||
| */ | ||
| extern Tcl_Obj * tclFreeObjList; | ||
| #ifdef TCL_COMPILE_STATS | ||
| extern long tclObjsAlloced; | ||
| extern long tclObjsFreed; | ||
| #endif /* TCL_COMPILE_STATS */ | ||
| /* | ||
| * Pointer to a heap-allocated string of length zero that the Tcl core uses | ||
| * as the value of an empty string representation for an object. This value | ||
| * is shared by all new objects allocated by Tcl_NewObj. | ||
| */ | ||
| extern char * tclEmptyStringRep; | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Procedures shared among Tcl modules but not used by the outside | ||
| * world: | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| EXTERN int TclAccess _ANSI_ARGS_((CONST char *path, | ||
| int mode)); | ||
| EXTERN int TclAccessDeleteProc _ANSI_ARGS_((TclAccessProc_ *proc)); | ||
| EXTERN int TclAccessInsertProc _ANSI_ARGS_((TclAccessProc_ *proc)); | ||
| EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); | ||
| EXTERN int TclArraySet _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj)); | ||
| EXTERN int TclCheckBadOctal _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *value)); | ||
| EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int numPids, Tcl_Pid *pidPtr, | ||
| Tcl_Channel errorChan)); | ||
| EXTERN void TclCleanupCommand _ANSI_ARGS_((Command *cmdPtr)); | ||
| EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Channel inChan, Tcl_Channel outChan, | ||
| int toRead, Tcl_Obj *cmdPtr)); | ||
| /* | ||
| * TclCreatePipeline unofficially exported for use by BLT. | ||
| */ | ||
| EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv, Tcl_Pid **pidArrayPtr, | ||
| TclFile *inPipePtr, TclFile *outPipePtr, | ||
| TclFile *errFilePtr)); | ||
| EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Namespace *nsPtr, char *procName, | ||
| Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, | ||
| Proc **procPtrPtr)); | ||
| EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( | ||
| Interp *iPtr, CallFrame *framePtr)); | ||
| EXTERN void TclDeleteVars _ANSI_ARGS_((Interp *iPtr, | ||
| Tcl_HashTable *tablePtr)); | ||
| EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *separators, Tcl_DString *headPtr, | ||
| char *tail, GlobTypeData *types)); | ||
| EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE *outFile)); | ||
| EXTERN void TclExpandTokenArray _ANSI_ARGS_(( | ||
| Tcl_Parse *parsePtr)); | ||
| EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp *interp, | ||
| double value)); | ||
| EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv)) ; | ||
| EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv)); | ||
| EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv)) ; | ||
| EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv)) ; | ||
| EXTERN void TclFinalizeAllocSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeCompExecEnv _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeCompilation _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeEncodingSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeEnvironment _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeExecution _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeIOSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeLoad _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeMemorySubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeNotifier _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeSynchronization _ANSI_ARGS_((void)); | ||
| EXTERN void TclFinalizeThreadData _ANSI_ARGS_((void)); | ||
| EXTERN void TclFindEncodings _ANSI_ARGS_((CONST char *argv0)); | ||
| EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp *iPtr, | ||
| char *procName)); | ||
| EXTERN int TclFormatInt _ANSI_ARGS_((char *buffer, long n)); | ||
| EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp *iPtr)); | ||
| EXTERN int TclGetDate _ANSI_ARGS_((char *p, | ||
| unsigned long now, long zone, | ||
| unsigned long *timePtr)); | ||
| EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, int localIndex, | ||
| Tcl_Obj *elemPtr, int leaveErrorMsg)); | ||
| EXTERN char * TclGetExtension _ANSI_ARGS_((char *name)); | ||
| EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *string, CallFrame **framePtrPtr)); | ||
| EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); | ||
| EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Obj *objPtr, int endValue, int *indexPtr)); | ||
| EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int localIndex, int leaveErrorMsg)); | ||
| EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *string, long *longPtr)); | ||
| EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, char *targetName)); | ||
| EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, char *qualName, | ||
| Namespace *cxtNsPtr, int flags, | ||
| Namespace **nsPtrPtr, Namespace **altNsPtrPtr, | ||
| Namespace **actualCxtPtrPtr, | ||
| char **simpleNamePtr)); | ||
| EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); | ||
| EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *string, int *seekFlagPtr)); | ||
| EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( | ||
| Tcl_Command command)); | ||
| EXTERN int TclGlob _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *pattern, char *unquotedPrefix, | ||
| int globFlags, GlobTypeData* types)); | ||
| EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv, int flags)); | ||
| EXTERN int TclGuessPackageName _ANSI_ARGS_((char *fileName, | ||
| Tcl_DString *bufPtr)); | ||
| EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( | ||
| Tcl_Interp *interp)); | ||
| EXTERN int TclInExit _ANSI_ARGS_((void)); | ||
| EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, int localIndex, | ||
| Tcl_Obj *elemPtr, long incrAmount)); | ||
| EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, int localIndex, | ||
| long incrAmount)); | ||
| EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, | ||
| long incrAmount, int flags)); | ||
| EXTERN void TclInitAlloc _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, CallFrame *framePtr, | ||
| Namespace *nsPtr)); | ||
| EXTERN void TclInitDbCkalloc _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitEncodingSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitIOSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitNamespaceSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitNotifier _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitObjSubsystem _ANSI_ARGS_((void)); | ||
| EXTERN void TclInitSubsystems _ANSI_ARGS_((CONST char *argv0)); | ||
| EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int argc, char **argv, int flags)); | ||
| EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( | ||
| ClientData clientData, Tcl_Interp *interp, | ||
| int argc, char **argv)); | ||
| EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( | ||
| ClientData clientData, Tcl_Interp *interp, | ||
| int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int TclIsLocalScalar _ANSI_ARGS_((CONST char *src, | ||
| int len)); | ||
| EXTERN Proc * TclIsProc _ANSI_ARGS_((Command *cmdPtr)); | ||
| EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *part1, char *part2, int flags, char *msg, | ||
| int createPart1, int createPart2, | ||
| Var **arrayPtrPtr)); | ||
| EXTERN int TclMathInProgress _ANSI_ARGS_((void)); | ||
| EXTERN int TclNeedSpace _ANSI_ARGS_((char *start, char *end)); | ||
| EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc *procPtr)); | ||
| EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj *cmdPtr)); | ||
| EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, | ||
| Tcl_Obj *CONST objv[])); | ||
| EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int objc, Tcl_Obj *CONST objv[], int flags)); | ||
| EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int objc, Tcl_Obj *CONST objv[], int flags)); | ||
| EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( | ||
| TclOpenFileChannelProc_ *proc)); | ||
| EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( | ||
| TclOpenFileChannelProc_ *proc)); | ||
| EXTERN int TclpAccess _ANSI_ARGS_((CONST char *filename, | ||
| int mode)); | ||
| EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); | ||
| EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); | ||
| EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char *source, | ||
| CONST char *dest)); | ||
| EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char *source, | ||
| CONST char *dest, Tcl_DString *errorPtr)); | ||
| EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char *path)); | ||
| EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char *path)); | ||
| EXTERN void TclpExit _ANSI_ARGS_((int status)); | ||
| EXTERN void TclpFinalizeCondition _ANSI_ARGS_(( | ||
| Tcl_Condition *condPtr)); | ||
| EXTERN void TclpFinalizeMutex _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); | ||
| EXTERN void TclpFinalizeThreadData _ANSI_ARGS_(( | ||
| Tcl_ThreadDataKey *keyPtr)); | ||
| EXTERN void TclpFinalizeThreadDataKey _ANSI_ARGS_(( | ||
| Tcl_ThreadDataKey *keyPtr)); | ||
| EXTERN char * TclpFindExecutable _ANSI_ARGS_(( | ||
| CONST char *argv0)); | ||
| EXTERN int TclpFindVariable _ANSI_ARGS_((CONST char *name, | ||
| int *lengthPtr)); | ||
| EXTERN void TclpFree _ANSI_ARGS_((char *ptr)); | ||
| EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); | ||
| EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type)); | ||
| EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); | ||
| EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); | ||
| EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); | ||
| EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char *name, | ||
| Tcl_DString *bufferPtr)); | ||
| EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp *interp)); | ||
| EXTERN void TclpInitLibraryPath _ANSI_ARGS_((CONST char *argv0)); | ||
| EXTERN void TclpInitLock _ANSI_ARGS_((void)); | ||
| EXTERN void TclpInitPlatform _ANSI_ARGS_((void)); | ||
| EXTERN void TclpInitUnlock _ANSI_ARGS_((void)); | ||
| EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp *interp)); | ||
| EXTERN void TclpMasterLock _ANSI_ARGS_((void)); | ||
| EXTERN void TclpMasterUnlock _ANSI_ARGS_((void)); | ||
| EXTERN int TclpMatchFiles _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *separators, Tcl_DString *dirPtr, | ||
| char *pattern, char *tail)); | ||
| EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *fileName, char *modeString, | ||
| int permissions)); | ||
| EXTERN char * TclpReadlink _ANSI_ARGS_((CONST char *fileName, | ||
| Tcl_DString *linkPtr)); | ||
| EXTERN char * TclpRealloc _ANSI_ARGS_((char *ptr, | ||
| unsigned int size)); | ||
| EXTERN void TclpReleaseFile _ANSI_ARGS_((TclFile file)); | ||
| EXTERN int TclpRemoveDirectory _ANSI_ARGS_((CONST char *path, | ||
| int recursive, Tcl_DString *errorPtr)); | ||
| EXTERN int TclpRenameFile _ANSI_ARGS_((CONST char *source, | ||
| CONST char *dest)); | ||
| EXTERN void TclpSetInitialEncodings _ANSI_ARGS_((void)); | ||
| EXTERN void TclpSetVariables _ANSI_ARGS_((Tcl_Interp *interp)); | ||
| EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); | ||
| EXTERN void TclpSysFree _ANSI_ARGS_((VOID *ptr)); | ||
| EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID *cp, | ||
| unsigned int size)); | ||
| EXTERN void TclpUnloadFile _ANSI_ARGS_((ClientData clientData)); | ||
| EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, char *name1, char *name2, | ||
| int flags)); | ||
| EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Interp *cmdInterp, Tcl_Command cmd)); | ||
| EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc *procPtr)); | ||
| EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, | ||
| CONST char *description, CONST char *procName)); | ||
| EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); | ||
| EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int argc, char **argv)); | ||
| EXTERN VOID * TclpThreadDataKeyGet _ANSI_ARGS_(( | ||
| Tcl_ThreadDataKey *keyPtr)); | ||
| EXTERN void TclpThreadDataKeyInit _ANSI_ARGS_(( | ||
| Tcl_ThreadDataKey *keyPtr)); | ||
| EXTERN void TclpThreadDataKeySet _ANSI_ARGS_(( | ||
| Tcl_ThreadDataKey *keyPtr, VOID *data)); | ||
| EXTERN void TclpThreadExit _ANSI_ARGS_((int status)); | ||
| EXTERN void TclRememberCondition _ANSI_ARGS_((Tcl_Condition *mutex)); | ||
| EXTERN void TclRememberDataKey _ANSI_ARGS_((Tcl_ThreadDataKey *mutex)); | ||
| EXTERN void TclRememberMutex _ANSI_ARGS_((Tcl_Mutex *mutex)); | ||
| EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *oldName, char *newName)) ; | ||
| EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, Command *newCmdPtr)); | ||
| EXTERN int TclServiceIdle _ANSI_ARGS_((void)); | ||
| EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_(( | ||
| Tcl_Interp *interp, int localIndex, | ||
| Tcl_Obj *elemPtr, Tcl_Obj *objPtr, | ||
| int leaveErrorMsg)); | ||
| EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp *interp, | ||
| int localIndex, Tcl_Obj *objPtr, | ||
| int leaveErrorMsg)); | ||
| EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char *string)); | ||
| EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp *interp)); | ||
| EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp *interp, | ||
| char *string, char *proto, int *portPtr)); | ||
| EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, | ||
| int size)); | ||
| EXTERN int TclStat _ANSI_ARGS_((CONST char *path, | ||
| struct stat *buf)); | ||
| EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ *proc)); | ||
| EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ *proc)); | ||
| EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace *nsPtr)); | ||
| EXTERN void TclTransferResult _ANSI_ARGS_((Tcl_Interp *sourceInterp, | ||
| int result, Tcl_Interp *targetInterp)); | ||
| EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp *iPtr)); | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Command procedures in the generic core: | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| EXTERN int Tcl_AfterObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_AppendObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ArrayObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_BinaryObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_BreakObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_CaseObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_CatchObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_CdObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ClockObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_CloseObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ConcatObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ContinueObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_EncodingObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_EofObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ErrorObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_EvalObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ExecObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ExitObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ExprObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FblockedObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FconfigureObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FcopyObjCmd _ANSI_ARGS_((ClientData dummy, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FileObjCmd _ANSI_ARGS_((ClientData dummy, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FileEventObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FlushObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ForObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ForeachObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_FormatObjCmd _ANSI_ARGS_((ClientData dummy, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_GetsObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_GlobalObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_GlobObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_IfObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_IncrObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_InfoObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_InterpObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_JoinObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LappendObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LindexObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LinsertObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LlengthObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ListObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LoadObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LrangeObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LreplaceObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LsearchObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_LsortObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_NamespaceObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_OpenObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_PackageObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_PidObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_PutsObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_PwdObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ReadObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_RegexpObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_RegsubObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_RenameObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ReturnObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ScanObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SeekObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SetObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SplitObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SocketObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SourceObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_StringObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SubstObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_SwitchObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_TellObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_TimeObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_TraceObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_UnsetObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_UpdateObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_UplevelObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_UpvarObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_VariableObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_VwaitObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_WhileObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Command procedures found only in the Mac version of the core: | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| #ifdef MAC_TCL | ||
| EXTERN int Tcl_EchoCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int argc, char **argv)); | ||
| EXTERN int Tcl_LsObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_BeepObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_MacSourceObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| EXTERN int Tcl_ResourceObjCmd _ANSI_ARGS_((ClientData clientData, | ||
| Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); | ||
| #endif | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Compilation procedures for commands in the generic core: | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| EXTERN int TclCompileBreakCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileCatchCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileContinueCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileExprCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileForCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileForeachCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileIfCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileIncrCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileSetCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| EXTERN int TclCompileWhileCmd _ANSI_ARGS_((Tcl_Interp *interp, | ||
| Tcl_Parse *parsePtr, struct CompileEnv *envPtr)); | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Macros used by the Tcl core to create and release Tcl objects. | ||
| * TclNewObj(objPtr) creates a new object denoting an empty string. | ||
| * TclDecrRefCount(objPtr) decrements the object's reference count, | ||
| * and frees the object if its reference count is zero. | ||
| * These macros are inline versions of Tcl_NewObj() and | ||
| * Tcl_DecrRefCount(). Notice that the names differ in not having | ||
| * a "_" after the "Tcl". Notice also that these macros reference | ||
| * their argument more than once, so you should avoid calling them | ||
| * with an expression that is expensive to compute or has | ||
| * side effects. The ANSI C "prototypes" for these macros are: | ||
| * | ||
| * EXTERN void TclNewObj _ANSI_ARGS_((Tcl_Obj *objPtr)); | ||
| * EXTERN void TclDecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| #ifdef TCL_COMPILE_STATS | ||
| # define TclIncrObjsAllocated() \ | ||
| tclObjsAlloced++ | ||
| # define TclIncrObjsFreed() \ | ||
| tclObjsFreed++ | ||
| #else | ||
| # define TclIncrObjsAllocated() | ||
| # define TclIncrObjsFreed() | ||
| #endif /* TCL_COMPILE_STATS */ | ||
| #ifdef TCL_MEM_DEBUG | ||
| # define TclNewObj(objPtr) \ | ||
| (objPtr) = (Tcl_Obj *) \ | ||
| Tcl_DbCkalloc(sizeof(Tcl_Obj), __FILE__, __LINE__); \ | ||
| (objPtr)->refCount = 0; \ | ||
| (objPtr)->bytes = tclEmptyStringRep; \ | ||
| (objPtr)->length = 0; \ | ||
| (objPtr)->typePtr = NULL; \ | ||
| TclIncrObjsAllocated() | ||
| # define TclDbNewObj(objPtr, file, line) \ | ||
| (objPtr) = (Tcl_Obj *) Tcl_DbCkalloc(sizeof(Tcl_Obj), (file), (line)); \ | ||
| (objPtr)->refCount = 0; \ | ||
| (objPtr)->bytes = tclEmptyStringRep; \ | ||
| (objPtr)->length = 0; \ | ||
| (objPtr)->typePtr = NULL; \ | ||
| TclIncrObjsAllocated() | ||
| # define TclDecrRefCount(objPtr) \ | ||
| if (--(objPtr)->refCount <= 0) { \ | ||
| if ((objPtr)->refCount < -1) \ | ||
| panic("Reference count for %lx was negative: %s line %d", \ | ||
| (objPtr), __FILE__, __LINE__); \ | ||
| if (((objPtr)->bytes != NULL) \ | ||
| && ((objPtr)->bytes != tclEmptyStringRep)) { \ | ||
| ckfree((char *) (objPtr)->bytes); \ | ||
| } \ | ||
| if (((objPtr)->typePtr != NULL) \ | ||
| && ((objPtr)->typePtr->freeIntRepProc != NULL)) { \ | ||
| (objPtr)->typePtr->freeIntRepProc(objPtr); \ | ||
| } \ | ||
| ckfree((char *) (objPtr)); \ | ||
| TclIncrObjsFreed(); \ | ||
| } | ||
| #else /* not TCL_MEM_DEBUG */ | ||
| #ifdef TCL_THREADS | ||
| extern Tcl_Mutex tclObjMutex; | ||
| #endif | ||
| # define TclNewObj(objPtr) \ | ||
| Tcl_MutexLock(&tclObjMutex); \ | ||
| if (tclFreeObjList == NULL) { \ | ||
| TclAllocateFreeObjects(); \ | ||
| } \ | ||
| (objPtr) = tclFreeObjList; \ | ||
| tclFreeObjList = (Tcl_Obj *) \ | ||
| tclFreeObjList->internalRep.otherValuePtr; \ | ||
| (objPtr)->refCount = 0; \ | ||
| (objPtr)->bytes = tclEmptyStringRep; \ | ||
| (objPtr)->length = 0; \ | ||
| (objPtr)->typePtr = NULL; \ | ||
| TclIncrObjsAllocated(); \ | ||
| Tcl_MutexUnlock(&tclObjMutex) | ||
| # define TclDecrRefCount(objPtr) \ | ||
| if (--(objPtr)->refCount <= 0) { \ | ||
| if (((objPtr)->bytes != NULL) \ | ||
| && ((objPtr)->bytes != tclEmptyStringRep)) { \ | ||
| ckfree((char *) (objPtr)->bytes); \ | ||
| } \ | ||
| if (((objPtr)->typePtr != NULL) \ | ||
| && ((objPtr)->typePtr->freeIntRepProc != NULL)) { \ | ||
| (objPtr)->typePtr->freeIntRepProc(objPtr); \ | ||
| } \ | ||
| Tcl_MutexLock(&tclObjMutex); \ | ||
| (objPtr)->internalRep.otherValuePtr = (VOID *) tclFreeObjList; \ | ||
| tclFreeObjList = (objPtr); \ | ||
| TclIncrObjsFreed(); \ | ||
| Tcl_MutexUnlock(&tclObjMutex); \ | ||
| } | ||
| #endif /* TCL_MEM_DEBUG */ | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Macro used by the Tcl core to set a Tcl_Obj's string representation | ||
| * to a copy of the "len" bytes starting at "bytePtr". This code | ||
| * works even if the byte array contains NULLs as long as the length | ||
| * is correct. Because "len" is referenced multiple times, it should | ||
| * be as simple an expression as possible. The ANSI C "prototype" for | ||
| * this macro is: | ||
| * | ||
| * EXTERN void TclInitStringRep _ANSI_ARGS_((Tcl_Obj *objPtr, | ||
| * char *bytePtr, int len)); | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| #define TclInitStringRep(objPtr, bytePtr, len) \ | ||
| if ((len) == 0) { \ | ||
| (objPtr)->bytes = tclEmptyStringRep; \ | ||
| (objPtr)->length = 0; \ | ||
| } else { \ | ||
| (objPtr)->bytes = (char *) ckalloc((unsigned) ((len) + 1)); \ | ||
| memcpy((VOID *) (objPtr)->bytes, (VOID *) (bytePtr), \ | ||
| (unsigned) (len)); \ | ||
| (objPtr)->bytes[len] = '\0'; \ | ||
| (objPtr)->length = (len); \ | ||
| } | ||
| /* | ||
| *---------------------------------------------------------------- | ||
| * Macro used by the Tcl core to get the string representation's | ||
| * byte array pointer from a Tcl_Obj. This is an inline version | ||
| * of Tcl_GetString(). The macro's expression result is the string | ||
| * rep's byte pointer which might be NULL. The bytes referenced by | ||
| * this pointer must not be modified by the caller. | ||
| * The ANSI C "prototype" for this macro is: | ||
| * | ||
| * EXTERN char * TclGetString _ANSI_ARGS_((Tcl_Obj *objPtr)); | ||
| *---------------------------------------------------------------- | ||
| */ | ||
| #define TclGetString(objPtr) \ | ||
| ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr))) | ||
| #include "tclIntDecls.h" | ||
| # undef TCL_STORAGE_CLASS | ||
| # define TCL_STORAGE_CLASS DLLIMPORT | ||
| #endif /* _TCLINT */ | ||
| /* $History: tclint.h $ | ||
| * | ||
| * ***************** Version 1 ***************** | ||
| * User: Dtashley Date: 1/02/01 Time: 1:29a | ||
| * Created in $/IjuScripter, IjuConsole/Source/Tcl Base | ||
| * Initial check-in. | ||
| */ | ||
| /* End of TCLINT.H */ | ||
| 1 | /* $Header$ */ | |
| 2 | /* | |
| 3 | * tclInt.h -- | |
| 4 | * | |
| 5 | * Declarations of things used internally by the Tcl interpreter. | |
| 6 | * | |
| 7 | * Copyright (c) 1987-1993 The Regents of the University of California. | |
| 8 | * Copyright (c) 1993-1997 Lucent Technologies. | |
| 9 | * Copyright (c) 1994-1998 Sun Microsystems, Inc. | |
| 10 | * Copyright (c) 1998-1999 by Scriptics Corporation. | |
| 11 | * | |
| 12 | * See the file "license.terms" for information on usage and redistribution | |
| 13 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. | |
| 14 | * | |
| 15 | * RCS: @(#) $Id: tclint.h,v 1.1.1.1 2001/06/13 04:40:00 dtashley Exp $ | |
| 16 | */ | |
| 17 | ||
| 18 | #ifndef _TCLINT | |
| 19 | #define _TCLINT | |
| 20 | ||
| 21 | /* | |
| 22 | * Common include files needed by most of the Tcl source files are | |
| 23 | * included here, so that system-dependent personalizations for the | |
| 24 | * include files only have to be made in once place. This results | |
| 25 | * in a few extra includes, but greater modularity. The order of | |
| 26 | * the three groups of #includes is important. For example, stdio.h | |
| 27 | * is needed by tcl.h, and the _ANSI_ARGS_ declaration in tcl.h is | |
| 28 | * needed by stdlib.h in some configurations. | |
| 29 | */ | |
| 30 | ||
| 31 | #include <stdio.h> | |
| 32 | ||
| 33 | #ifndef _TCL | |
| 34 | #include "tcl.h" | |
| 35 | #endif | |
| 36 | ||
| 37 | #include <ctype.h> | |
| 38 | #ifdef NO_LIMITS_H | |
| 39 | # include "../compat/limits.h" | |
| 40 | #else | |
| 41 | # include <limits.h> | |
| 42 | #endif | |
| 43 | #ifdef NO_STDLIB_H | |
| 44 | # include "../compat/stdlib.h" | |
| 45 | #else | |
| 46 | # include <stdlib.h> | |
| 47 | #endif | |
| 48 | #ifdef NO_STRING_H | |
| 49 | #include "../compat/string.h" | |
| 50 | #else | |
| 51 | #include <string.h> | |
| 52 | #endif | |
| 53 | ||
| 54 | #undef TCL_STORAGE_CLASS | |
| 55 | #ifdef BUILD_tcl | |
| 56 | # define TCL_STORAGE_CLASS DLLEXPORT | |
| 57 | #else | |
| 58 | # ifdef USE_TCL_STUBS | |
| 59 | # define TCL_STORAGE_CLASS | |
| 60 | # else | |
| 61 | # define TCL_STORAGE_CLASS DLLIMPORT | |
| 62 | # endif | |
| 63 | #endif | |
| 64 | ||
| 65 | /* | |
| 66 | * The following procedures allow namespaces to be customized to | |
| 67 | * support special name resolution rules for commands/variables. | |
| 68 | * | |
| 69 | */ | |
| 70 | ||
| 71 | struct Tcl_ResolvedVarInfo; | |
| 72 | ||
| 73 | typedef Tcl_Var (Tcl_ResolveRuntimeVarProc) _ANSI_ARGS_(( | |
| 74 | Tcl_Interp* interp, struct Tcl_ResolvedVarInfo *vinfoPtr)); | |
| 75 | ||
| 76 | typedef void (Tcl_ResolveVarDeleteProc) _ANSI_ARGS_(( | |
| 77 | struct Tcl_ResolvedVarInfo *vinfoPtr)); | |
| 78 | ||
| 79 | /* | |
| 80 | * The following structure encapsulates the routines needed to resolve a | |
| 81 | * variable reference at runtime. Any variable specific state will typically | |
| 82 | * be appended to this structure. | |
| 83 | */ | |
| 84 | ||
| 85 | ||
| 86 | typedef struct Tcl_ResolvedVarInfo { | |
| 87 | Tcl_ResolveRuntimeVarProc *fetchProc; | |
| 88 | Tcl_ResolveVarDeleteProc *deleteProc; | |
| 89 | } Tcl_ResolvedVarInfo; | |
| 90 | ||
| 91 | ||
| 92 | ||
| 93 | typedef int (Tcl_ResolveCompiledVarProc) _ANSI_ARGS_(( | |
| 94 | Tcl_Interp* interp, char* name, int length, | |
| 95 | Tcl_Namespace *context, Tcl_ResolvedVarInfo **rPtr)); | |
| 96 | ||
| 97 | typedef int (Tcl_ResolveVarProc) _ANSI_ARGS_(( | |
| 98 | Tcl_Interp* interp, char* name, Tcl_Namespace *context, | |
| 99 | int flags, Tcl_Var *rPtr)); | |
| 100 | ||
| 101 | typedef int (Tcl_ResolveCmdProc) _ANSI_ARGS_((Tcl_Interp* interp, | |
| 102 | char* name, Tcl_Namespace *context, int flags, | |
| 103 | Tcl_Command *rPtr)); | |
| 104 | ||
| 105 | typedef struct Tcl_ResolverInfo { | |
| 106 | Tcl_ResolveCmdProc *cmdResProc; /* Procedure handling command name | |
| 107 | * resolution. */ | |
| 108 | Tcl_ResolveVarProc *varResProc; /* Procedure handling variable name | |
| 109 | * resolution for variables that | |
| 110 | * can only be handled at runtime. */ | |
| 111 | Tcl_ResolveCompiledVarProc *compiledVarResProc; | |
| 112 | /* Procedure handling variable name | |
| 113 | * resolution at compile time. */ | |
| 114 | } Tcl_ResolverInfo; | |
| 115 | ||
| 116 | /* | |
| 117 | *---------------------------------------------------------------- | |
| 118 | * Data structures related to namespaces. | |
| 119 | *---------------------------------------------------------------- | |
| 120 | */ | |
| 121 | ||
| 122 | /* | |
| 123 | * The structure below defines a namespace. | |
| 124 | * Note: the first five fields must match exactly the fields in a | |
| 125 | * Tcl_Namespace structure (see tcl.h). If you change one, be sure to | |
| 126 | * change the other. | |
| 127 | */ | |
| 128 | ||
| 129 | typedef struct Namespace { | |
| 130 | char *name; /* The namespace's simple (unqualified) | |
| 131 | * name. This contains no ::'s. The name of | |
| 132 | * the global namespace is "" although "::" | |
| 133 | * is an synonym. */ | |
| 134 | char *fullName; /* The namespace's fully qualified name. | |
| 135 | * This starts with ::. */ | |
| 136 | ClientData clientData; /* An arbitrary value associated with this | |
| 137 | * namespace. */ | |
| 138 | Tcl_NamespaceDeleteProc *deleteProc; | |
| 139 | /* Procedure invoked when deleting the | |
| 140 | * namespace to, e.g., free clientData. */ | |
| 141 | struct Namespace *parentPtr; /* Points to the namespace that contains | |
| 142 | * this one. NULL if this is the global | |
| 143 | * namespace. */ | |
| 144 | Tcl_HashTable childTable; /* Contains any child namespaces. Indexed | |
| 145 | * by strings; values have type | |
| 146 | * (Namespace *). */ | |
| 147 | long nsId; /* Unique id for the namespace. */ | |
| 148 | Tcl_Interp *interp; /* The interpreter containing this | |
| 149 | * namespace. */ | |
| 150 | int flags; /* OR-ed combination of the namespace | |
| 151 | * status flags NS_DYING and NS_DEAD | |
| 152 | * listed below. */ | |
| 153 | int activationCount; /* Number of "activations" or active call | |
| 154 | * frames for this namespace that are on | |
| 155 | * the Tcl call stack. The namespace won't | |
| 156 | * be freed until activationCount becomes | |
| 157 | * zero. */ | |
| 158 | int refCount; /* Count of references by namespaceName * | |
| 159 | * objects. The namespace can't be freed | |
| 160 | * until refCount becomes zero. */ | |
| 161 | Tcl_HashTable cmdTable; /* Contains all the commands currently | |
| 162 | * registered in the namespace. Indexed by | |
| 163 | * strings; values have type (Command *). | |
| 164 | * Commands imported by Tcl_Import have | |
| 165 | * Command structures that point (via an | |
| 166 | * ImportedCmdRef structure) to the | |
| 167 | * Command structure in the source | |
| 168 | * namespace's command table. */ | |
| 169 | Tcl_HashTable varTable; /* Contains all the (global) variables | |
| 170 | * currently in this namespace. Indexed | |
| 171 | * by strings; values have type (Var *). */ | |
| 172 | char **exportArrayPtr; /* Points to an array of string patterns | |
| 173 | * specifying which commands are exported. | |
| 174 | * A pattern may include "string match" | |
| 175 | * style wildcard characters to specify | |
| 176 | * multiple commands; however, no namespace | |
| 177 | * qualifiers are allowed. NULL if no | |
| 178 | * export patterns are registered. */ | |
| 179 | int numExportPatterns; /* Number of export patterns currently | |
| 180 | * registered using "namespace export". */ | |
| 181 | int maxExportPatterns; /* Mumber of export patterns for which | |
| 182 | * space is currently allocated. */ | |
| 183 | int cmdRefEpoch; /* Incremented if a newly added command | |
| 184 | * shadows a command for which this | |
| 185 | * namespace has already cached a Command * | |
| 186 | * pointer; this causes all its cached | |
| 187 | * Command* pointers to be invalidated. */ | |
| 188 | int resolverEpoch; /* Incremented whenever the name resolution | |
| 189 | * rules change for this namespace; this | |
| 190 | * invalidates all byte codes compiled in | |
| 191 | * the namespace, causing the code to be | |
| 192 | * recompiled under the new rules. */ | |
| 193 | Tcl_ResolveCmdProc *cmdResProc; | |
| 194 | /* If non-null, this procedure overrides | |
| 195 | * the usual command resolution mechanism | |
| 196 | * in Tcl. This procedure is invoked | |
| 197 | * within Tcl_FindCommand to resolve all | |
| 198 | * command references within the namespace. */ | |
| 199 | Tcl_ResolveVarProc *varResProc; | |
| 200 | /* If non-null, this procedure overrides | |
| 201 | * the usual variable resolution mechanism | |
| 202 | * in Tcl. This procedure is invoked | |
| 203 | * within Tcl_FindNamespaceVar to resolve all | |
| 204 | * variable references within the namespace | |
| 205 | * at runtime. */ | |
| 206 | Tcl_ResolveCompiledVarProc *compiledVarResProc; | |
| 207 | /* If non-null, this procedure overrides | |
| 208 | * the usual variable resolution mechanism | |
| 209 | * in Tcl. This procedure is invoked | |
| 210 | * within LookupCompiledLocal to resolve | |
| 211 | * variable references within the namespace | |
| 212 | * at compile time. */ | |
| 213 | } Namespace; | |
| 214 | ||
| 215 | /* | |
| 216 | * Flags used to represent the status of a namespace: | |
| 217 | * | |
| 218 | * NS_DYING - 1 means Tcl_DeleteNamespace has been called to delete the | |
| 219 | * namespace but there are still active call frames on the Tcl | |
| 220 | * stack that refer to the namespace. When the last call frame | |
| 221 | * referring to it has been popped, it's variables and command | |
| 222 | * will be destroyed and it will be marked "dead" (NS_DEAD). | |
| 223 | * The namespace can no longer be looked up by name. | |
| 224 | * NS_DEAD - 1 means Tcl_DeleteNamespace has been called to delete the | |
| 225 | * namespace and no call frames still refer to it. Its | |
| 226 | * variables and command have already been destroyed. This bit | |
| 227 | * allows the namespace resolution code to recognize that the | |
| 228 | * namespace is "deleted". When the last namespaceName object | |
| 229 | * in any byte code code unit that refers to the namespace has | |
| 230 | * been freed (i.e., when the namespace's refCount is 0), the | |
| 231 | * namespace's storage will be freed. | |
| 232 | */ | |
| 233 | ||
| 234 | #define NS_DYING 0x01 | |
| 235 | #define NS_DEAD 0x02 | |
| 236 | ||
| 237 | /* | |
| 238 | * Flag passed to TclGetNamespaceForQualName to have it create all namespace | |
| 239 | * components of a namespace-qualified name that cannot be found. The new | |
| 240 | * namespaces are created within their specified parent. Note that this | |
| 241 | * flag's value must not conflict with the values of the flags | |
| 242 | * TCL_GLOBAL_ONLY, TCL_NAMESPACE_ONLY, and FIND_ONLY_NS (defined in | |
| 243 | * tclNamesp.c). | |
| 244 | */ | |
| 245 | ||
| 246 | #define CREATE_NS_IF_UNKNOWN 0x800 | |
| 247 | ||
| 248 | /* | |
| 249 | *---------------------------------------------------------------- | |
| 250 | * Data structures related to variables. These are used primarily | |
| 251 | * in tclVar.c | |
| 252 | *---------------------------------------------------------------- | |
| 253 | */ | |
| 254 | ||
| 255 | /* | |
| 256 | * The following structure defines a variable trace, which is used to | |
| 257 | * invoke a specific C procedure whenever certain operations are performed | |
| 258 | * on a variable. | |
| 259 | */ | |
| 260 | ||
| 261 | typedef struct VarTrace { | |
| 262 | Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given | |
| 263 | * by flags are performed on variable. */ | |
| 264 | ClientData clientData; /* Argument to pass to proc. */ | |
| 265 | int flags; /* What events the trace procedure is | |
| 266 | * interested in: OR-ed combination of | |
| 267 | * TCL_TRACE_READS, TCL_TRACE_WRITES, | |
| 268 | * TCL_TRACE_UNSETS and TCL_TRACE_ARRAY. */ | |
| 269 | struct VarTrace *nextPtr; /* Next in list of traces associated with | |
| 270 | * a particular variable. */ | |
| 271 | } VarTrace; | |
| 272 | ||
| 273 | /* | |
| 274 | * When a variable trace is active (i.e. its associated procedure is | |
| 275 | * executing), one of the following structures is linked into a list | |
| 276 | * associated with the variable's interpreter. The information in | |
| 277 | * the structure is needed in order for Tcl to behave reasonably | |
| 278 | * if traces are deleted while traces are active. | |
| 279 | */ | |
| 280 | ||
| 281 | typedef struct ActiveVarTrace { | |
| 282 | struct Var *varPtr; /* Variable that's being traced. */ | |
| 283 | struct ActiveVarTrace *nextPtr; | |
| 284 | /* Next in list of all active variable | |
| 285 | * traces for the interpreter, or NULL | |
| 286 | * if no more. */ | |
| 287 | VarTrace *nextTracePtr; /* Next trace to check after current | |
| 288 | * trace procedure returns; if this | |
| 289 | * trace gets deleted, must update pointer | |
| 290 | * to avoid using free'd memory. */ | |
| 291 | } ActiveVarTrace; | |
| 292 | ||
| 293 | /* | |
| 294 | * The following structure describes an enumerative search in progress on | |
| 295 | * an array variable; this are invoked with options to the "array" | |
| 296 | * command. | |
| 297 | */ | |
| 298 | ||
| 299 | typedef struct ArraySearch { | |
| 300 | int id; /* Integer id used to distinguish among | |
| 301 | * multiple concurrent searches for the | |
| 302 | * same array. */ | |
| 303 | struct Var *varPtr; /* Pointer to array variable that's being | |
| 304 | * searched. */ | |
| 305 | Tcl_HashSearch search; /* Info kept by the hash module about | |
| 306 | * progress through the array. */ | |
| 307 | Tcl_HashEntry *nextEntry; /* Non-null means this is the next element | |
| 308 | * to be enumerated (it's leftover from | |
| 309 | * the Tcl_FirstHashEntry call or from | |
| 310 | * an "array anymore" command). NULL | |
| 311 | * means must call Tcl_NextHashEntry | |
| 312 | * to get value to return. */ | |
| 313 | struct ArraySearch *nextPtr;/* Next in list of all active searches | |
| 314 | * for this variable, or NULL if this is | |
| 315 | * the last one. */ | |
| 316 | } ArraySearch; | |
| 317 | ||
| 318 | /* | |
| 319 | * The structure below defines a variable, which associates a string name | |
| 320 | * with a Tcl_Obj value. These structures are kept in procedure call frames | |
| 321 | * (for local variables recognized by the compiler) or in the heap (for | |
| 322 | * global variables and any variable not known to the compiler). For each | |
| 323 | * Var structure in the heap, a hash table entry holds the variable name and | |
| 324 | * a pointer to the Var structure. | |
| 325 | */ | |
| 326 | ||
| 327 | typedef struct Var { | |
| 328 | union { | |
| 329 | Tcl_Obj *objPtr; /* The variable's object value. Used for | |
| 330 | * scalar variables and array elements. */ | |
| 331 | Tcl_HashTable *tablePtr;/* For array variables, this points to | |
| 332 | * information about the hash table used | |
| 333 | * to implement the associative array. | |
| 334 | * Points to malloc-ed data. */ | |
| 335 | struct Var *linkPtr; /* If this is a global variable being | |
| 336 | * referred to in a procedure, or a variable | |
| 337 | * created by "upvar", this field points to | |
| 338 | * the referenced variable's Var struct. */ | |
| 339 | } value; | |
| 340 | char *name; /* NULL if the variable is in a hashtable, | |
| 341 | * otherwise points to the variable's | |
| 342 | * name. It is used, e.g., by TclLookupVar | |
| 343 | * and "info locals". The storage for the | |
| 344 | * characters of the name is not owned by | |
| 345 | * the Var and must not be freed when | |
| 346 | * freeing the Var. */ | |
| 347 | Namespace *nsPtr; /* Points to the namespace that contains | |
| 348 | * this variable or NULL if the variable is | |
| 349 | * a local variable in a Tcl procedure. */ | |
| 350 | Tcl_HashEntry *hPtr; /* If variable is in a hashtable, either the | |
| 351 | * hash table entry that refers to this | |
| 352 | * variable or NULL if the variable has been | |
| 353 | * detached from its hash table (e.g. an | |
| 354 | * array is deleted, but some of its | |
| 355 | * elements are still referred to in | |
| 356 | * upvars). NULL if the variable is not in a | |
| 357 | * hashtable. This is used to delete an | |
| 358 | * variable from its hashtable if it is no | |
| 359 | * longer needed. */ | |
| 360 | int refCount; /* Counts number of active uses of this | |
| 361 | * variable, not including its entry in the | |
| 362 | * call frame or the hash table: 1 for each | |
| 363 | * additional variable whose linkPtr points | |
| 364 | * here, 1 for each nested trace active on | |
| 365 | * variable, and 1 if the variable is a | |
| 366 | * namespace variable. This record can't be | |
| 367 | * deleted until refCount becomes 0. */ | |
| 368 | VarTrace *tracePtr; /* First in list of all traces set for this | |
| 369 | * variable. */ | |
| 370 | ArraySearch *searchPtr; /* First in list of all searches active | |
| 371 | * for this variable, or NULL if none. */ | |
| 372 | int flags; /* Miscellaneous bits of information about | |
| 373 | * variable. See below for definitions. */ | |
| 374 | } Var; | |
| 375 | ||
| 376 | /* | |
| 377 | * Flag bits for variables. The first three (VAR_SCALAR, VAR_ARRAY, and | |
| 378 | * VAR_LINK) are mutually exclusive and give the "type" of the variable. | |
| 379 | * VAR_UNDEFINED is independent of the variable's type. | |
| 380 | * | |
| 381 | * VAR_SCALAR - 1 means this is a scalar variable and not | |
| 382 | * an array or link. The "objPtr" field points | |
| 383 | * to the variable's value, a Tcl object. | |
| 384 | * VAR_ARRAY - 1 means this is an array variable rather | |
| 385 | * than a scalar variable or link. The | |
| 386 | * "tablePtr" field points to the array's | |
| 387 | * hashtable for its elements. | |
| 388 | * VAR_LINK - 1 means this Var structure contains a | |
| 389 | * pointer to another Var structure that | |
| 390 | * either has the real value or is itself | |
| 391 | * another VAR_LINK pointer. Variables like | |
| 392 | * this come about through "upvar" and "global" | |
| 393 | * commands, or through references to variables | |
| 394 | * in enclosing namespaces. | |
| 395 | * VAR_UNDEFINED - 1 means that the variable is in the process | |
| 396 | * of being deleted. An undefined variable | |
| 397 | * logically does not exist and survives only | |
| 398 | * while it has a trace, or if it is a global | |
| 399 | * variable currently being used by some | |
| 400 | * procedure. | |
| 401 | * VAR_IN_HASHTABLE - 1 means this variable is in a hashtable and | |
| 402 | * the Var structure is malloced. 0 if it is | |
| 403 | * a local variable that was assigned a slot | |
| 404 | * in a procedure frame by the compiler so the | |
| 405 | * Var storage is part of the call frame. | |
| 406 | * VAR_TRACE_ACTIVE - 1 means that trace processing is currently | |
| 407 | * underway for a read or write access, so | |
| 408 | * new read or write accesses should not cause | |
| 409 | * trace procedures to be called and the | |
| 410 | * variable can't be deleted. | |
| 411 | * VAR_ARRAY_ELEMENT - 1 means that this variable is an array | |
| 412 | * element, so it is not legal for it to be | |
| 413 | * an array itself (the VAR_ARRAY flag had | |
| 414 | * better not be set). | |
| 415 | * VAR_NAMESPACE_VAR - 1 means that this variable was declared | |
| 416 | * as a namespace variable. This flag ensures | |
| 417 | * it persists until its namespace is | |
| 418 | * destroyed or until the variable is unset; | |
| 419 | * it will persist even if it has not been | |
| 420 | * initialized and is marked undefined. | |
| 421 | * The variable's refCount is incremented to | |
| 422 | * reflect the "reference" from its namespace. | |
| 423 | * | |
| 424 | * The following additional flags are used with the CompiledLocal type | |
| 425 | * defined below: | |
| 426 | * | |
| 427 | * VAR_ARGUMENT - 1 means that this variable holds a procedure | |
| 428 | * argument. | |
| 429 | * VAR_TEMPORARY - 1 if the local variable is an anonymous | |
| 430 | * temporary variable. Temporaries have a NULL | |
| 431 | * name. | |
| 432 | * VAR_RESOLVED - 1 if name resolution has been done for this | |
| 433 | * variable. | |
| 434 | */ | |
| 435 | ||
| 436 | #define VAR_SCALAR 0x1 | |
| 437 | #define VAR_ARRAY 0x2 | |
| 438 | #define VAR_LINK 0x4 | |
| 439 | #define VAR_UNDEFINED 0x8 | |
| 440 | #define VAR_IN_HASHTABLE 0x10 | |
| 441 | #define VAR_TRACE_ACTIVE 0x20 | |
| 442 | #define VAR_ARRAY_ELEMENT 0x40 | |
| 443 | #define VAR_NAMESPACE_VAR 0x80 | |
| 444 | ||
| 445 | #define VAR_ARGUMENT 0x100 | |
| 446 | #define VAR_TEMPORARY 0x200 | |
| 447 | #define VAR_RESOLVED 0x400 | |
| 448 | ||
| 449 | /* | |
| 450 | * Macros to ensure that various flag bits are set properly for variables. | |
| 451 | * The ANSI C "prototypes" for these macros are: | |
| 452 | * | |
| 453 | * EXTERN void TclSetVarScalar _ANSI_ARGS_((Var *varPtr)); | |
| 454 | * EXTERN void TclSetVarArray _ANSI_ARGS_((Var *varPtr)); | |
| 455 | * EXTERN void TclSetVarLink _ANSI_ARGS_((Var *varPtr)); | |
| 456 | * EXTERN void TclSetVarArrayElement _ANSI_ARGS_((Var *varPtr)); | |
| 457 | * EXTERN void TclSetVarUndefined _ANSI_ARGS_((Var *varPtr)); | |
| 458 | * EXTERN void TclClearVarUndefined _ANSI_ARGS_((Var *varPtr)); | |
| 459 | */ | |
| 460 | ||
| 461 | #define TclSetVarScalar(varPtr) \ | |
| 462 | (varPtr)->flags = ((varPtr)->flags & ~(VAR_ARRAY|VAR_LINK)) | VAR_SCALAR | |
| 463 | ||
| 464 | #define TclSetVarArray(varPtr) \ | |
| 465 | (varPtr)->flags = ((varPtr)->flags & ~(VAR_SCALAR|VAR_LINK)) | VAR_ARRAY | |
| 466 | ||
| 467 | #define TclSetVarLink(varPtr) \ | |
| 468 | (varPtr)->flags = ((varPtr)->flags & ~(VAR_SCALAR|VAR_ARRAY)) | VAR_LINK | |
| 469 | ||
| 470 | #define TclSetVarArrayElement(varPtr) \ | |
| 471 | (varPtr)->flags = ((varPtr)->flags & ~VAR_ARRAY) | VAR_ARRAY_ELEMENT | |
| 472 | ||
| 473 | #define TclSetVarUndefined(varPtr) \ | |
| 474 | (varPtr)->flags |= VAR_UNDEFINED | |
| 475 | ||
| 476 | #define TclClearVarUndefined(varPtr) \ | |
| 477 | (varPtr)->flags &= ~VAR_UNDEFINED | |
| 478 | ||
| 479 | /* | |
| 480 | * Macros to read various flag bits of variables. | |
| 481 | * The ANSI C "prototypes" for these macros are: | |
| 482 | * | |
| 483 | * EXTERN int TclIsVarScalar _ANSI_ARGS_((Var *varPtr)); | |
| 484 | * EXTERN int TclIsVarLink _ANSI_ARGS_((Var *varPtr)); | |
| 485 | * EXTERN int TclIsVarArray _ANSI_ARGS_((Var *varPtr)); | |
| 486 | * EXTERN int TclIsVarUndefined _ANSI_ARGS_((Var *varPtr)); | |
| 487 | * EXTERN int TclIsVarArrayElement _ANSI_ARGS_((Var *varPtr)); | |
| 488 | * EXTERN int TclIsVarTemporary _ANSI_ARGS_((Var *varPtr)); | |
| 489 | * EXTERN int TclIsVarArgument _ANSI_ARGS_((Var *varPtr)); | |
| 490 | * EXTERN int TclIsVarResolved _ANSI_ARGS_((Var *varPtr)); | |
| 491 | */ | |
| 492 | ||
| 493 | #define TclIsVarScalar(varPtr) \ | |
| 494 | ((varPtr)->flags & VAR_SCALAR) | |
| 495 | ||
| 496 | #define TclIsVarLink(varPtr) \ | |
| 497 | ((varPtr)->flags & VAR_LINK) | |
| 498 | ||
| 499 | #define TclIsVarArray(varPtr) \ | |
| 500 | ((varPtr)->flags & VAR_ARRAY) | |
| 501 | ||
| 502 | #define TclIsVarUndefined(varPtr) \ | |
| 503 | ((varPtr)->flags & VAR_UNDEFINED) | |
| 504 | ||
| 505 | #define TclIsVarArrayElement(varPtr) \ | |
| 506 | ((varPtr)->flags & VAR_ARRAY_ELEMENT) | |
| 507 | ||
| 508 | #define TclIsVarTemporary(varPtr) \ | |
| 509 | ((varPtr)->flags & VAR_TEMPORARY) | |
| 510 | ||
| 511 | #define TclIsVarArgument(varPtr) \ | |
| 512 | ((varPtr)->flags & VAR_ARGUMENT) | |
| 513 | ||
| 514 | #define TclIsVarResolved(varPtr) \ | |
| 515 | ((varPtr)->flags & VAR_RESOLVED) | |
| 516 | ||
| 517 | /* | |
| 518 | *---------------------------------------------------------------- | |
| 519 | * Data structures related to procedures. These are used primarily | |
| 520 | * in tclProc.c, tclCompile.c, and tclExecute.c. | |
| 521 | *---------------------------------------------------------------- | |
| 522 | */ | |
| 523 | ||
| 524 | /* | |
| 525 | * Forward declaration to prevent an error when the forward reference to | |
| 526 | * Command is encountered in the Proc and ImportRef types declared below. | |
| 527 | */ | |
| 528 | ||
| 529 | struct Command; | |
| 530 | ||
| 531 | /* | |
| 532 | * The variable-length structure below describes a local variable of a | |
| 533 | * procedure that was recognized by the compiler. These variables have a | |
| 534 | * name, an element in the array of compiler-assigned local variables in the | |
| 535 | * procedure's call frame, and various other items of information. If the | |
| 536 | * local variable is a formal argument, it may also have a default value. | |
| 537 | * The compiler can't recognize local variables whose names are | |
| 538 | * expressions (these names are only known at runtime when the expressions | |
| 539 | * are evaluated) or local variables that are created as a result of an | |
| 540 | * "upvar" or "uplevel" command. These other local variables are kept | |
| 541 | * separately in a hash table in the call frame. | |
| 542 | */ | |
| 543 | ||
| 544 | typedef struct CompiledLocal { | |
| 545 | struct CompiledLocal *nextPtr; | |
| 546 | /* Next compiler-recognized local variable | |
| 547 | * for this procedure, or NULL if this is | |
| 548 | * the last local. */ | |
| 549 | int nameLength; /* The number of characters in local | |
| 550 | * variable's name. Used to speed up | |
| 551 | * variable lookups. */ | |
| 552 | int frameIndex; /* Index in the array of compiler-assigned | |
| 553 | * variables in the procedure call frame. */ | |
| 554 | int flags; /* Flag bits for the local variable. Same as | |
| 555 | * the flags for the Var structure above, | |
| 556 | * although only VAR_SCALAR, VAR_ARRAY, | |
| 557 | * VAR_LINK, VAR_ARGUMENT, VAR_TEMPORARY, and | |
| 558 | * VAR_RESOLVED make sense. */ | |
| 559 | Tcl_Obj *defValuePtr; /* Pointer to the default value of an | |
| 560 | * argument, if any. NULL if not an argument | |
| 561 | * or, if an argument, no default value. */ | |
| 562 | Tcl_ResolvedVarInfo *resolveInfo; | |
| 563 | /* Customized variable resolution info | |
| 564 | * supplied by the Tcl_ResolveCompiledVarProc | |
| 565 | * associated with a namespace. Each variable | |
| 566 | * is marked by a unique ClientData tag | |
| 567 | * during compilation, and that same tag | |
| 568 | * is used to find the variable at runtime. */ | |
| 569 | char name[4]; /* Name of the local variable starts here. | |
| 570 | * If the name is NULL, this will just be | |
| 571 | * '\0'. The actual size of this field will | |
| 572 | * be large enough to hold the name. MUST | |
| 573 | * BE THE LAST FIELD IN THE STRUCTURE! */ | |
| 574 | } CompiledLocal; | |
| 575 | ||
| 576 | /* | |
| 577 | * The structure below defines a command procedure, which consists of a | |
| 578 | * collection of Tcl commands plus information about arguments and other | |
| 579 | * local variables recognized at compile time. | |
| 580 | */ | |
| 581 | ||
| 582 | typedef struct Proc { | |
| 583 | struct Interp *iPtr; /* Interpreter for which this command | |
| 584 | * is defined. */ | |
| 585 | int refCount; /* Reference count: 1 if still present | |
| 586 | * in command table plus 1 for each call | |
| 587 | * to the procedure that is currently | |
| 588 | * active. This structure can be freed | |
| 589 | * when refCount becomes zero. */ | |
| 590 | struct Command *cmdPtr; /* Points to the Command structure for | |
| 591 | * this procedure. This is used to get | |
| 592 | * the namespace in which to execute | |
| 593 | * the procedure. */ | |
| 594 | Tcl_Obj *bodyPtr; /* Points to the ByteCode object for | |
| 595 | * procedure's body command. */ | |
| 596 | int numArgs; /* Number of formal parameters. */ | |
| 597 | int numCompiledLocals; /* Count of local variables recognized by | |
| 598 | * the compiler including arguments and | |
| 599 | * temporaries. */ | |
| 600 | CompiledLocal *firstLocalPtr; /* Pointer to first of the procedure's | |
| 601 | * compiler-allocated local variables, or | |
| 602 | * NULL if none. The first numArgs entries | |
| 603 | * in this list describe the procedure's | |
| 604 | * formal arguments. */ | |
| 605 | CompiledLocal *lastLocalPtr; /* Pointer to the last allocated local | |
| 606 | * variable or NULL if none. This has | |
| 607 | * frame index (numCompiledLocals-1). */ | |
| 608 | } Proc; | |
| 609 | ||
| 610 | /* | |
| 611 | * The structure below defines a command trace. This is used to allow Tcl | |
| 612 | * clients to find out whenever a command is about to be executed. | |
| 613 | */ | |
| 614 | ||
| 615 | typedef struct Trace { | |
| 616 | int level; /* Only trace commands at nesting level | |
| 617 | * less than or equal to this. */ | |
| 618 | Tcl_CmdTraceProc *proc; /* Procedure to call to trace command. */ | |
| 619 | ClientData clientData; /* Arbitrary value to pass to proc. */ | |
| 620 | struct Trace *nextPtr; /* Next in list of traces for this interp. */ | |
| 621 | } Trace; | |
| 622 | ||
| 623 | /* | |
| 624 | * The structure below defines an entry in the assocData hash table which | |
| 625 | * is associated with an interpreter. The entry contains a pointer to a | |
| 626 | * function to call when the interpreter is deleted, and a pointer to | |
| 627 | * a user-defined piece of data. | |
| 628 | */ | |
| 629 | ||
| 630 | typedef struct AssocData { | |
| 631 | Tcl_InterpDeleteProc *proc; /* Proc to call when deleting. */ | |
| 632 | ClientData clientData; /* Value to pass to proc. */ | |
| 633 | } AssocData; | |
| 634 | ||
| 635 | /* | |
| 636 | * The structure below defines a call frame. A call frame defines a naming | |
| 637 | * context for a procedure call: its local naming scope (for local | |
| 638 | * variables) and its global naming scope (a namespace, perhaps the global | |
| 639 | * :: namespace). A call frame can also define the naming context for a | |
| 640 | * namespace eval or namespace inscope command: the namespace in which the | |
| 641 | * command's code should execute. The Tcl_CallFrame structures exist only | |
| 642 | * while procedures or namespace eval/inscope's are being executed, and | |
| 643 | * provide a kind of Tcl call stack. | |
| 644 | * | |
| 645 | * WARNING!! The structure definition must be kept consistent with the | |
| 646 | * Tcl_CallFrame structure in tcl.h. If you change one, change the other. | |
| 647 | */ | |
| 648 | ||
| 649 | typedef struct CallFrame { | |
| 650 | Namespace *nsPtr; /* Points to the namespace used to resolve | |
| 651 | * commands and global variables. */ | |
| 652 | int isProcCallFrame; /* If nonzero, the frame was pushed to | |
| 653 | * execute a Tcl procedure and may have | |
| 654 | * local vars. If 0, the frame was pushed | |
| 655 | * to execute a namespace command and var | |
| 656 | * references are treated as references to | |
| 657 | * namespace vars; varTablePtr and | |
| 658 | * compiledLocals are ignored. */ | |
| 659 | int objc; /* This and objv below describe the | |
| 660 | * arguments for this procedure call. */ | |
| 661 | Tcl_Obj *CONST *objv; /* Array of argument objects. */ | |
| 662 | struct CallFrame *callerPtr; | |
| 663 | /* Value of interp->framePtr when this | |
| 664 | * procedure was invoked (i.e. next higher | |
| 665 | * in stack of all active procedures). */ | |
| 666 | struct CallFrame *callerVarPtr; | |
| 667 | /* Value of interp->varFramePtr when this | |
| 668 | * procedure was invoked (i.e. determines | |
| 669 | * variable scoping within caller). Same | |
| 670 | * as callerPtr unless an "uplevel" command | |
| 671 | * or something equivalent was active in | |
| 672 | * the caller). */ | |
| 673 | int level; /* Level of this procedure, for "uplevel" | |
| 674 | * purposes (i.e. corresponds to nesting of | |
| 675 | * callerVarPtr's, not callerPtr's). 1 for | |
| 676 | * outermost procedure, 0 for top-level. */ | |
| 677 | Proc *procPtr; /* Points to the structure defining the | |
| 678 | * called procedure. Used to get information | |
| 679 | * such as the number of compiled local | |
| 680 | * variables (local variables assigned | |
| 681 | * entries ["slots"] in the compiledLocals | |
| 682 | * array below). */ | |
| 683 | Tcl_HashTable *varTablePtr; /* Hash table containing local variables not | |
| 684 | * recognized by the compiler, or created at | |
| 685 | * execution time through, e.g., upvar. | |
| 686 | * Initially NULL and created if needed. */ | |
| 687 | int numCompiledLocals; /* Count of local variables recognized by | |
| 688 | * the compiler including arguments. */ | |
| 689 | Var* compiledLocals; /* Points to the array of local variables | |
| 690 | * recognized by the compiler. The compiler | |
| 691 | * emits code that refers to these variables | |
| 692 | * using an index into this array. */ | |
| 693 | } CallFrame; | |
| 694 | ||
| 695 | /* | |
| 696 | *---------------------------------------------------------------- | |
| 697 | * Data structures and procedures related to TclHandles, which | |
| 698 | * are a very lightweight method of preserving enough information | |
| 699 | * to determine if an arbitrary malloc'd block has been deleted. | |
| 700 | *---------------------------------------------------------------- | |
| 701 | */ | |
| 702 | ||
| 703 | typedef VOID **TclHandle; | |
| 704 | ||
| 705 | EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID *ptr)); | |
| 706 | EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle)); | |
| 707 | EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle)); | |
| 708 | EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle)); | |
| 709 | ||
| 710 | /* | |
| 711 | *---------------------------------------------------------------- | |
| 712 | * Data structures related to history. These are used primarily | |
| 713 | * in tclHistory.c | |
| 714 | *---------------------------------------------------------------- | |
| 715 | */ | |
| 716 | ||
| 717 | /* | |
| 718 | * The structure below defines one history event (a previously-executed | |
| 719 | * command that can be re-executed in whole or in part). | |
| 720 | */ | |
| 721 | ||
| 722 | typedef struct { | |
| 723 | char *command; /* String containing previously-executed | |
| 724 | * command. */ | |
| 725 | int bytesAvl; /* Total # of bytes available at *event (not | |
| 726 | * all are necessarily in use now). */ | |
| 727 | } HistoryEvent; | |
| 728 | ||
| 729 | /* | |
| 730 | * The structure below defines a pending revision to the most recent | |
| 731 | * history event. Changes are linked together into a list and applied | |
| 732 | * during the next call to Tcl_RecordHistory. See the comments at the | |
| 733 | * beginning of tclHistory.c for information on revisions. | |
| 734 | */ | |
| 735 | ||
| 736 | typedef struct HistoryRev { | |
| 737 | int firstIndex; /* Index of the first byte to replace in | |
| 738 | * current history event. */ | |
| 739 | int lastIndex; /* Index of last byte to replace in | |
| 740 | * current history event. */ | |
| 741 | int newSize; /* Number of bytes in newBytes. */ | |
| 742 | char *newBytes; /* Replacement for the range given by | |
| 743 | * firstIndex and lastIndex (malloced). */ | |
| 744 | struct HistoryRev *nextPtr; /* Next in chain of revisions to apply, or | |
| 745 | * NULL for end of list. */ | |
| 746 | } HistoryRev; | |
| 747 | ||
| 748 | /* | |
| 749 | *---------------------------------------------------------------- | |
| 750 | * Data structures related to expressions. These are used only in | |
| 751 | * tclExpr.c. | |
| 752 | *---------------------------------------------------------------- | |
| 753 | */ | |
| 754 | ||
| 755 | /* | |
| 756 | * The data structure below defines a math function (e.g. sin or hypot) | |
| 757 | * for use in Tcl expressions. | |
| 758 | */ | |
| 759 | ||
| 760 | #define MAX_MATH_ARGS 5 | |
| 761 | typedef struct MathFunc { | |
| 762 | int builtinFuncIndex; /* If this is a builtin math function, its | |
| 763 | * index in the array of builtin functions. | |
| 764 | * (tclCompilation.h lists these indices.) | |
| 765 | * The value is -1 if this is a new function | |
| 766 | * defined by Tcl_CreateMathFunc. The value | |
| 767 | * is also -1 if a builtin function is | |
| 768 | * replaced by a Tcl_CreateMathFunc call. */ | |
| 769 | int numArgs; /* Number of arguments for function. */ | |
| 770 | Tcl_ValueType argTypes[MAX_MATH_ARGS]; | |
| 771 | /* Acceptable types for each argument. */ | |
| 772 | Tcl_MathProc *proc; /* Procedure that implements this function. | |
| 773 | * NULL if isBuiltinFunc is 1. */ | |
| 774 | ClientData clientData; /* Additional argument to pass to the | |
| 775 | * function when invoking it. NULL if | |
| 776 | * isBuiltinFunc is 1. */ | |
| 777 | } MathFunc; | |
| 778 | ||
| 779 | /* | |
| 780 | * These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet | |
| 781 | * when threads are used, or an emulation if there are no threads. These | |
| 782 | * are really internal and Tcl clients should use Tcl_GetThreadData. | |
| 783 | */ | |
| 784 | ||
| 785 | EXTERN VOID *TclThreadDataKeyGet _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr)); | |
| 786 | EXTERN void TclThreadDataKeySet _ANSI_ARGS_((Tcl_ThreadDataKey *keyPtr, VOID *data)); | |
| 787 | ||
| 788 | /* | |
| 789 | * This is a convenience macro used to initialize a thread local storage ptr. | |
| 790 | */ | |
| 791 | #define TCL_TSD_INIT(keyPtr) (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData)) | |
| 792 | ||
| 793 | ||
| 794 | /* | |
| 795 | *---------------------------------------------------------------- | |
| 796 | * Data structures related to bytecode compilation and execution. | |
| 797 | * These are used primarily in tclCompile.c, tclExecute.c, and | |
| 798 | * tclBasic.c. | |
| 799 | *---------------------------------------------------------------- | |
| 800 | */ | |
| 801 | ||
| 802 | /* | |
| 803 | * Forward declaration to prevent errors when the forward references to | |
| 804 | * Tcl_Parse and CompileEnv are encountered in the procedure type | |
| 805 | * CompileProc declared below. | |
| 806 | */ | |
| 807 | ||
| 808 | struct CompileEnv; | |
| 809 | ||
| 810 | /* | |
| 811 | * The type of procedures called by the Tcl bytecode compiler to compile | |
| 812 | * commands. Pointers to these procedures are kept in the Command structure | |
| 813 | * describing each command. When a CompileProc returns, the interpreter's | |
| 814 | * result is set to error information, if any. In addition, the CompileProc | |
| 815 | * returns an integer value, which is one of the following: | |
| 816 | * | |
| 817 | * TCL_OK Compilation completed normally. | |
| 818 | * TCL_ERROR Compilation failed because of an error; | |
| 819 | * the interpreter's result describes what went wrong. | |
| 820 | * TCL_OUT_LINE_COMPILE Compilation failed because, e.g., the command is | |
| 821 | * too complex for effective inline compilation. The | |
| 822 | * CompileProc believes the command is legal but | |
| 823 | * should be compiled "out of line" by emitting code | |
| 824 | * to invoke its command procedure at runtime. | |
| 825 | */ | |
| 826 | ||
| 827 | #define TCL_OUT_LINE_COMPILE (TCL_CONTINUE + 1) | |
| 828 | ||
| 829 | typedef int (CompileProc) _ANSI_ARGS_((Tcl_Interp *interp, | |
| 830 | Tcl_Parse *parsePtr, struct CompileEnv *compEnvPtr)); | |
| 831 | ||
| 832 | /* | |
| 833 | * The type of procedure called from the compilation hook point in | |
| 834 | * SetByteCodeFromAny. | |
| 835 | */ | |
| 836 | ||
| 837 | typedef int (CompileHookProc) _ANSI_ARGS_((Tcl_Interp *interp, | |
| 838 | struct CompileEnv *compEnvPtr, ClientData clientData)); | |
| 839 | ||
| 840 | /* | |
| 841 | * The data structure defining the execution environment for ByteCode's. | |
| 842 | * There is one ExecEnv structure per Tcl interpreter. It holds the | |
| 843 | * evaluation stack that holds command operands and results. The stack grows | |
| 844 | * towards increasing addresses. The "stackTop" member is cached by | |
| 845 | * TclExecuteByteCode in a local variable: it must be set before calling | |
| 846 | * TclExecuteByteCode and will be restored by TclExecuteByteCode before it | |
| 847 | * returns. | |
| 848 | */ | |
| 849 | ||
| 850 | typedef struct ExecEnv { | |
| 851 | Tcl_Obj **stackPtr; /* Points to the first item in the | |
| 852 | * evaluation stack on the heap. */ | |
| 853 | int stackTop; /* Index of current top of stack; -1 when | |
| 854 | * the stack is empty. */ | |
| 855 | int stackEnd; /* Index of last usable item in stack. */ | |
| 856 | } ExecEnv; | |
| 857 | ||
| 858 | /* | |
| 859 | * The definitions for the LiteralTable and LiteralEntry structures. Each | |
| 860 | * interpreter contains a LiteralTable. It is used to reduce the storage | |
| 861 | * needed for all the Tcl objects that hold the literals of scripts compiled | |
| 862 | * by the interpreter. A literal's object is shared by all the ByteCodes | |
| 863 | * that refer to the literal. Each distinct literal has one LiteralEntry | |
| 864 | * entry in the LiteralTable. A literal table is a specialized hash table | |
| 865 | * that is indexed by the literal's string representation, which may contain | |
| 866 | * null characters. | |
| 867 | * | |
| 868 | * Note that we reduce the space needed for literals by sharing literal | |
| 869 | * objects both within a ByteCode (each ByteCode contains a local | |
| 870 | * LiteralTable) and across all an interpreter's ByteCodes (with the | |
| 871 | * interpreter's global LiteralTable). | |
| 872 | */ | |
| 873 | ||
| 874 | typedef struct LiteralEntry { | |
| 875 | struct LiteralEntry *nextPtr; /* Points to next entry in this | |
| 876 | * hash bucket or NULL if end of | |
| 877 | * chain. */ | |
| 878 | Tcl_Obj *objPtr; /* Points to Tcl object that | |
| 879 | * holds the literal's bytes and | |
| 880 | * length. */ | |
| 881 | int refCount; /* If in an interpreter's global | |
| 882 | * literal table, the number of | |
| 883 | * ByteCode structures that share | |
| 884 | * the literal object; the literal | |
| 885 | * entry can be freed when refCount | |
| 886 | * drops to 0. If in a local literal | |
| 887 | * table, -1. */ | |
| 888 | } LiteralEntry; | |
| 889 | ||
| 890 | typedef struct LiteralTable { | |
| 891 | LiteralEntry **buckets; /* Pointer to bucket array. Each | |
| 892 | * element points to first entry in | |
| 893 | * bucket's hash chain, or NULL. */ | |
| 894 | LiteralEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; | |
| 895 | /* Bucket array used for small | |
| 896 | * tables to avoid mallocs and | |
| 897 | * frees. */ | |
| 898 | int numBuckets; /* Total number of buckets allocated | |
| 899 | * at **buckets. */ | |
| 900 | int numEntries; /* Total number of entries present | |
| 901 | * in table. */ | |
| 902 | int rebuildSize; /* Enlarge table when numEntries | |
| 903 | * gets to be this large. */ | |
| 904 | int mask; /* Mask value used in hashing | |
| 905 | * function. */ | |
| 906 | } LiteralTable; | |
| 907 | ||
| 908 | /* | |
| 909 | * The following structure defines for each Tcl interpreter various | |
| 910 | * statistics-related information about the bytecode compiler and | |
| 911 | * interpreter's operation in that interpreter. | |
| 912 | */ | |
| 913 | ||
| 914 | #ifdef TCL_COMPILE_STATS | |
| 915 | typedef struct ByteCodeStats { | |
| 916 | long numExecutions; /* Number of ByteCodes executed. */ | |
| 917 | long numCompilations; /* Number of ByteCodes created. */ | |
| 918 | long numByteCodesFreed; /* Number of ByteCodes destroyed. */ | |
| 919 | long instructionCount[256]; /* Number of times each instruction was | |
| 920 | * executed. */ | |
| 921 | ||
| 922 | double totalSrcBytes; /* Total source bytes ever compiled. */ | |
| 923 | double totalByteCodeBytes; /* Total bytes for all ByteCodes. */ | |
| 924 | double currentSrcBytes; /* Src bytes for all current ByteCodes. */ | |
| 925 | double currentByteCodeBytes; /* Code bytes in all current ByteCodes. */ | |
| 926 | ||
| 927 | long srcCount[32]; /* Source size distribution: # of srcs of | |
| 928 | * size [2**(n-1)..2**n), n in [0..32). */ | |
| 929 | long byteCodeCount[32]; /* ByteCode size distribution. */ | |
| 930 | long lifetimeCount[32]; /* ByteCode lifetime distribution (ms). */ | |
| 931 | ||
| 932 | double currentInstBytes; /* Instruction bytes-current ByteCodes. */ | |
| 933 | double currentLitBytes; /* Current literal bytes. */ | |
| 934 | double currentExceptBytes; /* Current exception table bytes. */ | |
| 935 | double currentAuxBytes; /* Current auxiliary information bytes. */ | |
| 936 | double currentCmdMapBytes; /* Current src<->code map bytes. */ | |
| 937 | ||
| 938 | long numLiteralsCreated; /* Total literal objects ever compiled. */ | |
| 939 | double totalLitStringBytes; /* Total string bytes in all literals. */ | |
| 940 | double currentLitStringBytes; /* String bytes in current literals. */ | |
| 941 | long literalCount[32]; /* Distribution of literal string sizes. */ | |
| 942 | } ByteCodeStats; | |
| 943 | #endif /* TCL_COMPILE_STATS */ | |
| 944 | ||
| 945 | /* | |
| 946 | *---------------------------------------------------------------- | |
| 947 | * Data structures related to commands. | |
| 948 | *---------------------------------------------------------------- | |
| 949 | */ | |
| 950 | ||
| 951 | /* | |
| 952 | * An imported command is created in an namespace when it imports a "real" | |
| 953 | * command from another namespace. An imported command has a Command | |
| 954 | * structure that points (via its ClientData value) to the "real" Command | |
| 955 | * structure in the source namespace's command table. The real command | |
| 956 | * records all the imported commands that refer to it in a list of ImportRef | |
| 957 | * structures so that they can be deleted when the real command is deleted. */ | |
| 958 | ||
| 959 | typedef struct ImportRef { | |
| 960 | struct Command *importedCmdPtr; | |
| 961 | /* Points to the imported command created in | |
| 962 | * an importing namespace; this command | |
| 963 | * redirects its invocations to the "real" | |
| 964 | * command. */ | |
| 965 | struct ImportRef *nextPtr; /* Next element on the linked list of | |
| 966 | * imported commands that refer to the | |
| 967 | * "real" command. The real command deletes | |
| 968 | * these imported commands on this list when | |
| 969 | * it is deleted. */ | |
| 970 | } ImportRef; | |
| 971 | ||
| 972 | /* | |
| 973 | * Data structure used as the ClientData of imported commands: commands | |
| 974 | * created in an namespace when it imports a "real" command from another | |
| 975 | * namespace. | |
| 976 | */ | |
| 977 | ||
| 978 | typedef struct ImportedCmdData { | |
| 979 | struct Command *realCmdPtr; /* "Real" command that this imported command | |
| 980 | * refers to. */ | |
| 981 | struct Command *selfPtr; /* Pointer to this imported command. Needed | |
| 982 | * only when deleting it in order to remove | |
| 983 | * it from the real command's linked list of | |
| 984 | * imported commands that refer to it. */ | |
| 985 | } ImportedCmdData; | |
| 986 | ||
| 987 | /* | |
| 988 | * A Command structure exists for each command in a namespace. The | |
| 989 | * Tcl_Command opaque type actually refers to these structures. | |
| 990 | */ | |
| 991 | ||
| 992 | typedef struct Command { | |
| 993 | Tcl_HashEntry *hPtr; /* Pointer to the hash table entry that | |
| 994 | * refers to this command. The hash table is | |
| 995 | * either a namespace's command table or an | |
| 996 | * interpreter's hidden command table. This | |
| 997 | * pointer is used to get a command's name | |
| 998 | * from its Tcl_Command handle. NULL means | |
| 999 | * that the hash table entry has been | |
| 1000 | * removed already (this can happen if | |
| 1001 | * deleteProc causes the command to be | |
| 1002 | * deleted or recreated). */ | |
| 1003 | Namespace *nsPtr; /* Points to the namespace containing this | |
| 1004 | * command. */ | |
| 1005 | int refCount; /* 1 if in command hashtable plus 1 for each | |
| 1006 | * reference from a CmdName Tcl object | |
| 1007 | * representing a command's name in a | |
| 1008 | * ByteCode instruction sequence. This | |
| 1009 | * structure can be freed when refCount | |
| 1010 | * becomes zero. */ | |
| 1011 | int cmdEpoch; /* Incremented to invalidate any references | |
| 1012 | * that point to this command when it is | |
| 1013 | * renamed, deleted, hidden, or exposed. */ | |
| 1014 | CompileProc *compileProc; /* Procedure called to compile command. NULL | |
| 1015 | * if no compile proc exists for command. */ | |
| 1016 | Tcl_ObjCmdProc *objProc; /* Object-based command procedure. */ | |
| 1017 | ClientData objClientData; /* Arbitrary value passed to object proc. */ | |
| 1018 | Tcl_CmdProc *proc; /* String-based command procedure. */ | |
| 1019 | ClientData clientData; /* Arbitrary value passed to string proc. */ | |
| 1020 | Tcl_CmdDeleteProc *deleteProc; | |
| 1021 | /* Procedure invoked when deleting command | |
| 1022 | * to, e.g., free all client data. */ | |
| 1023 | ClientData deleteData; /* Arbitrary value passed to deleteProc. */ | |
| 1024 | int deleted; /* Means that the command is in the process | |
| 1025 | * of being deleted (its deleteProc is | |
| 1026 | * currently executing). Other attempts to | |
| 1027 | * delete the command should be ignored. */ | |
| 1028 | ImportRef *importRefPtr; /* List of each imported Command created in | |
| 1029 | * another namespace when this command is | |
| 1030 | * imported. These imported commands | |
| 1031 | * redirect invocations back to this | |
| 1032 | * command. The list is used to remove all | |
| 1033 | * those imported commands when deleting | |
| 1034 | * this "real" command. */ | |
| 1035 | } Command; | |
| 1036 | ||
| 1037 | /* | |
| 1038 | *---------------------------------------------------------------- | |
| 1039 | * Data structures related to name resolution procedures. | |
| 1040 | *---------------------------------------------------------------- | |
| 1041 | */ | |
| 1042 | ||
| 1043 | /* | |
| 1044 | * The interpreter keeps a linked list of name resolution schemes. | |
| 1045 | * The scheme for a namespace is consulted first, followed by the | |
| 1046 | * list of schemes in an interpreter, followed by the default | |
| 1047 | * name resolution in Tcl. Schemes are added/removed from the | |
| 1048 | * interpreter's list by calling Tcl_AddInterpResolver and | |
| 1049 | * Tcl_RemoveInterpResolver. | |
| 1050 | */ | |
| 1051 | ||
| 1052 | typedef struct ResolverScheme { | |
| 1053 | char *name; /* Name identifying this scheme. */ | |
| 1054 | Tcl_ResolveCmdProc *cmdResProc; | |
| 1055 | /* Procedure handling command name | |
| 1056 | * resolution. */ | |
| 1057 | Tcl_ResolveVarProc *varResProc; | |
| 1058 | /* Procedure handling variable name | |
| 1059 | * resolution for variables that | |
| 1060 | * can only be handled at runtime. */ | |
| 1061 | Tcl_ResolveCompiledVarProc *compiledVarResProc; | |
| 1062 | /* Procedure handling variable name | |
| 1063 | * resolution at compile time. */ | |
| 1064 | ||
| 1065 | struct ResolverScheme *nextPtr; | |
| 1066 | /* Pointer to next record in linked list. */ | |
| 1067 | } ResolverScheme; | |
| 1068 | ||
| 1069 | /* | |
| 1070 | *---------------------------------------------------------------- | |
| 1071 | * This structure defines an interpreter, which is a collection of | |
| 1072 | * commands plus other state information related to interpreting | |
| 1073 | * commands, such as variable storage. Primary responsibility for | |
| 1074 | * this data structure is in tclBasic.c, but almost every Tcl | |
| 1075 | * source file uses something in here. | |
| 1076 | *---------------------------------------------------------------- | |
| 1077 | */ | |
| 1078 | ||
| 1079 | typedef struct Interp { | |
| 1080 | ||
| 1081 | /* | |
| 1082 | * Note: the first three fields must match exactly the fields in | |
| 1083 | * a Tcl_Interp struct (see tcl.h). If you change one, be sure to | |
| 1084 | * change the other. | |
| 1085 | * | |
| 1086 | * The interpreter's result is held in both the string and the | |
| 1087 | * objResultPtr fields. These fields hold, respectively, the result's | |
| 1088 | * string or object value. The interpreter's result is always in the | |
| 1089 | * result field if that is non-empty, otherwise it is in objResultPtr. | |
| 1090 | * The two fields are kept consistent unless some C code sets | |
| 1091 | * interp->result directly. Programs should not access result and | |
| 1092 | * objResultPtr directly; instead, they should always get and set the | |
| 1093 | * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, | |
| 1094 | * and Tcl_GetStringResult. See the SetResult man page for details. | |
| 1095 | */ | |
| 1096 | ||
| 1097 | char *result; /* If the last command returned a string | |
| 1098 | * result, this points to it. Should not be | |
| 1099 | * accessed directly; see comment above. */ | |
| 1100 | Tcl_FreeProc *freeProc; /* Zero means a string result is statically | |
| 1101 | * allocated. TCL_DYNAMIC means string | |
| 1102 | * result was allocated with ckalloc and | |
| 1103 | * should be freed with ckfree. Other values | |
| 1104 | * give address of procedure to invoke to | |
| 1105 | * free the string result. Tcl_Eval must | |
| 1106 | * free it before executing next command. */ | |
| 1107 | int errorLine; /* When TCL_ERROR is returned, this gives | |
| 1108 | * the line number in the command where the | |
| 1109 | * error occurred (1 means first line). */ | |
| 1110 | struct TclStubs *stubTable; | |
| 1111 | /* Pointer to the exported Tcl stub table. | |
| 1112 | * On previous versions of Tcl this is a | |
| 1113 | * pointer to the objResultPtr or a pointer | |
| 1114 | * to a buckets array in a hash table. We | |
| 1115 | * therefore have to do some careful checking | |
| 1116 | * before we can use this. */ | |
| 1117 | ||
| 1118 | TclHandle handle; /* Handle used to keep track of when this | |
| 1119 | * interp is deleted. */ | |
| 1120 | ||
| 1121 | Namespace *globalNsPtr; /* The interpreter's global namespace. */ | |
| 1122 | Tcl_HashTable *hiddenCmdTablePtr; | |
| 1123 | /* Hash table used by tclBasic.c to keep | |
| 1124 | * track of hidden commands on a per-interp | |
| 1125 | * basis. */ | |
| 1126 | ClientData interpInfo; /* Information used by tclInterp.c to keep | |
| 1127 | * track of master/slave interps on | |
| 1128 | * a per-interp basis. */ | |
| 1129 | Tcl_HashTable mathFuncTable;/* Contains all the math functions currently | |
| 1130 | * defined for the interpreter. Indexed by | |
| 1131 | * strings (function names); values have | |
| 1132 | * type (MathFunc *). */ | |
| 1133 | ||
| 1134 | ||
| 1135 | ||
| 1136 | /* | |
| 1137 | * Information related to procedures and variables. See tclProc.c | |
| 1138 | * and tclvar.c for usage. | |
| 1139 | */ | |
| 1140 | ||
| 1141 | int numLevels; /* Keeps track of how many nested calls to | |
| 1142 | * Tcl_Eval are in progress for this | |
| 1143 | * interpreter. It's used to delay deletion | |
| 1144 | * of the table until all Tcl_Eval | |
| 1145 | * invocations are completed. */ | |
| 1146 | int maxNestingDepth; /* If numLevels exceeds this value then Tcl | |
| 1147 | * assumes that infinite recursion has | |
| 1148 | * occurred and it generates an error. */ | |
| 1149 | CallFrame *framePtr; /* Points to top-most in stack of all nested | |
| 1150 | * procedure invocations. NULL means there | |
| 1151 | * are no active procedures. */ | |
| 1152 | CallFrame *varFramePtr; /* Points to the call frame whose variables | |
| 1153 | * are currently in use (same as framePtr | |
| 1154 | * unless an "uplevel" command is | |
| 1155 | * executing). NULL means no procedure is | |
| 1156 | * active or "uplevel 0" is executing. */ | |
| 1157 | ActiveVarTrace *activeTracePtr; | |
| 1158 | /* First in list of active traces for | |
| 1159 | * interp, or NULL if no active traces. */ | |
| 1160 | int returnCode; /* Completion code to return if current | |
| 1161 | * procedure exits with TCL_RETURN code. */ | |
| 1162 | char *errorInfo; /* Value to store in errorInfo if returnCode | |
| 1163 | * is TCL_ERROR. Malloc'ed, may be NULL */ | |
| 1164 | char *errorCode; /* Value to store in errorCode if returnCode | |
| 1165 | * is TCL_ERROR. Malloc'ed, may be NULL */ | |
| 1166 | ||
| 1167 | /* | |
| 1168 | * Information used by Tcl_AppendResult to keep track of partial | |
| 1169 | * results. See Tcl_AppendResult code for details. | |
| 1170 | */ | |
| 1171 | ||
| 1172 | char *appendResult; /* Storage space for results generated | |
| 1173 | * by Tcl_AppendResult. Malloc-ed. NULL | |
| 1174 | * means not yet allocated. */ | |
| 1175 | int appendAvl; /* Total amount of space available at | |
| 1176 | * partialResult. */ | |
| 1177 | int appendUsed; /* Number of non-null bytes currently | |
| 1178 | * stored at partialResult. */ | |
| 1179 | ||
| 1180 | /* | |
| 1181 | * Information about packages. Used only in tclPkg.c. | |
| 1182 | */ | |
| 1183 | ||
| 1184 | Tcl_HashTable packageTable; /* Describes all of the packages loaded | |
| 1185 | * in or available to this interpreter. | |
| 1186 | * Keys are package names, values are | |
| 1187 | * (Package *) pointers. */ | |
| 1188 | char *packageUnknown; /* Command to invoke during "package | |
| 1189 | * require" commands for packages that | |
| 1190 | * aren't described in packageTable. | |
| 1191 | * Malloc'ed, may be NULL. */ | |
| 1192 | ||
| 1193 | /* | |
| 1194 | * Miscellaneous information: | |
| 1195 | */ | |
| 1196 | ||
| 1197 | int cmdCount; /* Total number of times a command procedure | |
| 1198 | * has been called for this interpreter. */ | |
| 1199 | int evalFlags; /* Flags to control next call to Tcl_Eval. | |
| 1200 | * Normally zero, but may be set before | |
| 1201 | * calling Tcl_Eval. See below for valid | |
| 1202 | * values. */ | |
| 1203 | int termOffset; /* Offset of character just after last one | |
| 1204 | * compiled or executed by Tcl_EvalObj. */ | |
| 1205 | LiteralTable literalTable; /* Contains LiteralEntry's describing all | |
| 1206 | * Tcl objects holding literals of scripts | |
| 1207 | * compiled by the interpreter. Indexed by | |
| 1208 | * the string representations of literals. | |
| 1209 | * Used to avoid creating duplicate | |
| 1210 | * objects. */ | |
| 1211 | int compileEpoch; /* Holds the current "compilation epoch" | |
| 1212 | * for this interpreter. This is | |
| 1213 | * incremented to invalidate existing | |
| 1214 | * ByteCodes when, e.g., a command with a | |
| 1215 | * compile procedure is redefined. */ | |
| 1216 | Proc *compiledProcPtr; /* If a procedure is being compiled, a | |
| 1217 | * pointer to its Proc structure; otherwise, | |
| 1218 | * this is NULL. Set by ObjInterpProc in | |
| 1219 | * tclProc.c and used by tclCompile.c to | |
| 1220 | * process local variables appropriately. */ | |
| 1221 | ResolverScheme *resolverPtr; | |
| 1222 | /* Linked list of name resolution schemes | |
| 1223 | * added to this interpreter. Schemes | |
| 1224 | * are added/removed by calling | |
| 1225 | * Tcl_AddInterpResolvers and | |
| 1226 | * Tcl_RemoveInterpResolver. */ | |
| 1227 | char *scriptFile; /* NULL means there is no nested source | |
| 1228 | * command active; otherwise this points to | |
| 1229 | * the name of the file being sourced (it's | |
| 1230 | * not malloc-ed: it points to an argument | |
| 1231 | * to Tcl_EvalFile. */ | |
| 1232 | int flags; /* Various flag bits. See below. */ | |
| 1233 | long randSeed; /* Seed used for rand() function. */ | |
| 1234 | Trace *tracePtr; /* List of traces for this interpreter. */ | |
| 1235 | Tcl_HashTable *assocData; /* Hash table for associating data with | |
| 1236 | * this interpreter. Cleaned up when | |
| 1237 | * this interpreter is deleted. */ | |
| 1238 | struct ExecEnv *execEnvPtr; /* Execution environment for Tcl bytecode | |
| 1239 | * execution. Contains a pointer to the | |
| 1240 | * Tcl evaluation stack. */ | |
| 1241 | Tcl_Obj *emptyObjPtr; /* Points to an object holding an empty | |
| 1242 | * string. Returned by Tcl_ObjSetVar2 when | |
| 1243 | * variable traces change a variable in a | |
| 1244 | * gross way. */ | |
| 1245 | char resultSpace[TCL_RESULT_SIZE+1]; | |
| 1246 | /* Static space holding small results. */ | |
| 1247 | Tcl_Obj *objResultPtr; /* If the last command returned an object | |
| 1248 | * result, this points to it. Should not be | |
| 1249 | * accessed directly; see comment above. */ | |
| 1250 | Tcl_ThreadId threadId; /* ID of thread that owns the interpreter */ | |
| 1251 | ||
| 1252 | /* | |
| 1253 | * Statistical information about the bytecode compiler and interpreter's | |
| 1254 | * operation. | |
| 1255 | */ | |
| 1256 | ||
| 1257 | #ifdef TCL_COMPILE_STATS | |
| 1258 | ByteCodeStats stats; /* Holds compilation and execution | |
| 1259 | * statistics for this interpreter. */ | |
| 1260 | #endif /* TCL_COMPILE_STATS */ | |
| 1261 | } Interp; | |
| 1262 | ||
| 1263 | /* | |
| 1264 | * EvalFlag bits for Interp structures: | |
| 1265 | * | |
| 1266 | * TCL_BRACKET_TERM 1 means that the current script is terminated by | |
| 1267 | * a close bracket rather than the end of the string. | |
| 1268 | * TCL_ALLOW_EXCEPTIONS 1 means it's OK for the script to terminate with | |
| 1269 | * a code other than TCL_OK or TCL_ERROR; 0 means | |
| 1270 | * codes other than these should be turned into errors. | |
| 1271 | */ | |
| 1272 | ||
| 1273 | #define TCL_BRACKET_TERM 1 | |
| 1274 | #define TCL_ALLOW_EXCEPTIONS 4 | |
| 1275 | ||
| 1276 | /* | |
| 1277 | * Flag bits for Interp structures: | |
| 1278 | * | |
| 1279 | * DELETED: Non-zero means the interpreter has been deleted: | |
| 1280 | * don't process any more commands for it, and destroy | |
| 1281 | * the structure as soon as all nested invocations of | |
| 1282 | * Tcl_Eval are done. | |
| 1283 | * ERR_IN_PROGRESS: Non-zero means an error unwind is already in | |
| 1284 | * progress. Zero means a command proc has been | |
| 1285 | * invoked since last error occured. | |
| 1286 | * ERR_ALREADY_LOGGED: Non-zero means information has already been logged | |
| 1287 | * in $errorInfo for the current Tcl_Eval instance, | |
| 1288 | * so Tcl_Eval needn't log it (used to implement the | |
| 1289 | * "error message log" command). | |
| 1290 | * ERROR_CODE_SET: Non-zero means that Tcl_SetErrorCode has been | |
| 1291 | * called to record information for the current | |
| 1292 | * error. Zero means Tcl_Eval must clear the | |
| 1293 | * errorCode variable if an error is returned. | |
| 1294 | * EXPR_INITIALIZED: Non-zero means initialization specific to | |
| 1295 | * expressions has been carried out. | |
| 1296 | * DONT_COMPILE_CMDS_INLINE: Non-zero means that the bytecode compiler | |
| 1297 | * should not compile any commands into an inline | |
| 1298 | * sequence of instructions. This is set 1, for | |
| 1299 | * example, when command traces are requested. | |
| 1300 | * RAND_SEED_INITIALIZED: Non-zero means that the randSeed value of the | |
| 1301 | * interp has not be initialized. This is set 1 | |
| 1302 | * when we first use the rand() or srand() functions. | |
| 1303 | * SAFE_INTERP: Non zero means that the current interp is a | |
| 1304 | * safe interp (ie it has only the safe commands | |
| 1305 | * installed, less priviledge than a regular interp). | |
| 1306 | * USE_EVAL_DIRECT: Non-zero means don't use the compiler or byte-code | |
| 1307 | * interpreter; instead, have Tcl_EvalObj call | |
| 1308 | * Tcl_EvalEx. Used primarily for testing the | |
| 1309 | * new parser. | |
| 1310 | */ | |
| 1311 | ||
| 1312 | #define DELETED 1 | |
| 1313 | #define ERR_IN_PROGRESS 2 | |
| 1314 | #define ERR_ALREADY_LOGGED 4 | |
| 1315 | #define ERROR_CODE_SET 8 | |
| 1316 | #define EXPR_INITIALIZED 0x10 | |
| 1317 | #define DONT_COMPILE_CMDS_INLINE 0x20 | |
| 1318 | #define RAND_SEED_INITIALIZED 0x40 | |
| 1319 | #define SAFE_INTERP 0x80 | |
| 1320 | #define USE_EVAL_DIRECT 0x100 | |
| 1321 | ||
| 1322 | /* | |
| 1323 | *---------------------------------------------------------------- | |
| 1324 | * Data structures related to command parsing. These are used in | |
| 1325 | * tclParse.c and its clients. | |
| 1326 | *---------------------------------------------------------------- | |
| 1327 | */ | |
| 1328 | ||
| 1329 | /* | |
| 1330 | * The following data structure is used by various parsing procedures | |
| 1331 | * to hold information about where to store the results of parsing | |
| 1332 | * (e.g. the substituted contents of a quoted argument, or the result | |
| 1333 | * of a nested command). At any given time, the space available | |
| 1334 | * for output is fixed, but a procedure may be called to expand the | |
| 1335 | * space available if the current space runs out. | |
| 1336 | */ | |
| 1337 | ||
| 1338 | typedef struct ParseValue { | |
| 1339 | char *buffer; /* Address of first character in | |
| 1340 | * output buffer. */ | |
| 1341 | char *next; /* Place to store next character in | |
| 1342 | * output buffer. */ | |
| 1343 | char *end; /* Address of the last usable character | |
| 1344 | * in the buffer. */ | |
| 1345 | void (*expandProc) _ANSI_ARGS_((struct ParseValue *pvPtr, int needed)); | |
| 1346 | /* Procedure to call when space runs out; | |
| 1347 | * it will make more space. */ | |
| 1348 | ClientData clientData; /* Arbitrary information for use of | |
| 1349 | * expandProc. */ | |
| 1350 | } ParseValue; | |
| 1351 | ||
| 1352 | ||
| 1353 | /* | |
| 1354 | * Maximum number of levels of nesting permitted in Tcl commands (used | |
| 1355 | * to catch infinite recursion). | |
| 1356 | */ | |
| 1357 | ||
| 1358 | #define MAX_NESTING_DEPTH 1000 | |
| 1359 | ||
| 1360 | /* | |
| 1361 | * The macro below is used to modify a "char" value (e.g. by casting | |
| 1362 | * it to an unsigned character) so that it can be used safely with | |
| 1363 | * macros such as isspace. | |
| 1364 | */ | |
| 1365 | ||
| 1366 | #define UCHAR(c) ((unsigned char) (c)) | |
| 1367 | ||
| 1368 | /* | |
| 1369 | * This macro is used to determine the offset needed to safely allocate any | |
| 1370 | * data structure in memory. Given a starting offset or size, it "rounds up" | |
| 1371 | * or "aligns" the offset to the next 8-byte boundary so that any data | |
| 1372 | * structure can be placed at the resulting offset without fear of an | |
| 1373 | * alignment error. | |
| 1374 | * | |
| 1375 | * WARNING!! DO NOT USE THIS MACRO TO ALIGN POINTERS: it will produce | |
| 1376 | * the wrong result on platforms that allocate addresses that are divisible | |
| 1377 | * by 4 or 2. Only use it for offsets or sizes. | |
| 1378 | */ | |
| 1379 | ||
| 1380 | #define TCL_ALIGN(x) (((int)(x) + 7) & ~7) | |
| 1381 | ||
| 1382 | /* | |
| 1383 | * The following macros are used to specify the runtime platform | |
| 1384 | * setting of the tclPlatform variable. | |
| 1385 | */ | |
| 1386 | ||
| 1387 | typedef enum { | |
| 1388 | TCL_PLATFORM_UNIX, /* Any Unix-like OS. */ | |
| 1389 | TCL_PLATFORM_MAC, /* MacOS. */ | |
| 1390 | TCL_PLATFORM_WINDOWS /* Any Microsoft Windows OS. */ | |
| 1391 | } TclPlatformType; | |
| 1392 | ||
| 1393 | /* | |
| 1394 | * Flags for TclInvoke: | |
| 1395 | * | |
| 1396 | * TCL_INVOKE_HIDDEN Invoke a hidden command; if not set, | |
| 1397 | * invokes an exposed command. | |
| 1398 | * TCL_INVOKE_NO_UNKNOWN If set, "unknown" is not invoked if | |
| 1399 | * the command to be invoked is not found. | |
| 1400 | * Only has an effect if invoking an exposed | |
| 1401 | * command, i.e. if TCL_INVOKE_HIDDEN is not | |
| 1402 | * also set. | |
| 1403 | * TCL_INVOKE_NO_TRACEBACK Does not record traceback information if | |
| 1404 | * the invoked command returns an error. Used | |
| 1405 | * if the caller plans on recording its own | |
| 1406 | * traceback information. | |
| 1407 | */ | |
| 1408 | ||
| 1409 | #define TCL_INVOKE_HIDDEN (1<<0) | |
| 1410 | #define TCL_INVOKE_NO_UNKNOWN (1<<1) | |
| 1411 | #define TCL_INVOKE_NO_TRACEBACK (1<<2) | |
| 1412 | ||
| 1413 | /* | |
| 1414 | * The structure used as the internal representation of Tcl list | |
| 1415 | * objects. This is an array of pointers to the element objects. This array | |
| 1416 | * is grown (reallocated and copied) as necessary to hold all the list's | |
| 1417 | * element pointers. The array might contain more slots than currently used | |
| 1418 | * to hold all element pointers. This is done to make append operations | |
| 1419 | * faster. | |
| 1420 | */ | |
| 1421 | ||
| 1422 | typedef struct List { | |
| 1423 | int maxElemCount; /* Total number of element array slots. */ | |
| 1424 | int elemCount; /* Current number of list elements. */ | |
| 1425 | Tcl_Obj **elements; /* Array of pointers to element objects. */ | |
| 1426 | } List; | |
| 1427 | ||
| 1428 | ||
| 1429 | /* | |
| 1430 | * The following types are used for getting and storing platform-specific | |
| 1431 | * file attributes in tclFCmd.c and the various platform-versions of | |
| 1432 | * that file. This is done to have as much common code as possible | |
| 1433 | * in the file attributes code. For more information about the callbacks, | |
| 1434 | * see TclFileAttrsCmd in tclFCmd.c. | |
| 1435 | */ | |
| 1436 | ||
| 1437 | typedef int (TclGetFileAttrProc) _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1438 | int objIndex, CONST char *fileName, Tcl_Obj **attrObjPtrPtr)); | |
| 1439 | typedef int (TclSetFileAttrProc) _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1440 | int objIndex, CONST char *fileName, Tcl_Obj *attrObjPtr)); | |
| 1441 | ||
| 1442 | typedef struct TclFileAttrProcs { | |
| 1443 | TclGetFileAttrProc *getProc; /* The procedure for getting attrs. */ | |
| 1444 | TclSetFileAttrProc *setProc; /* The procedure for setting attrs. */ | |
| 1445 | } TclFileAttrProcs; | |
| 1446 | ||
| 1447 | /* | |
| 1448 | * Opaque handle used in pipeline routines to encapsulate platform-dependent | |
| 1449 | * state. | |
| 1450 | */ | |
| 1451 | ||
| 1452 | typedef struct TclFile_ *TclFile; | |
| 1453 | ||
| 1454 | /* | |
| 1455 | *---------------------------------------------------------------- | |
| 1456 | * Data structures related to hooking 'TclStat(...)' and | |
| 1457 | * 'TclAccess(...)'. | |
| 1458 | *---------------------------------------------------------------- | |
| 1459 | */ | |
| 1460 | ||
| 1461 | typedef int (TclStatProc_) _ANSI_ARGS_((CONST char *path, struct stat *buf)); | |
| 1462 | typedef int (TclAccessProc_) _ANSI_ARGS_((CONST char *path, int mode)); | |
| 1463 | typedef Tcl_Channel (TclOpenFileChannelProc_) _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1464 | char *fileName, char *modeString, | |
| 1465 | int permissions)); | |
| 1466 | ||
| 1467 | typedef int (*TclCmdProcType) _ANSI_ARGS_((ClientData clientData, | |
| 1468 | Tcl_Interp *interp, int argc, char *argv[])); | |
| 1469 | typedef int (*TclObjCmdProcType) _ANSI_ARGS_((ClientData clientData, | |
| 1470 | Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST objv[])); | |
| 1471 | ||
| 1472 | /* | |
| 1473 | * Opaque names for platform specific types. | |
| 1474 | */ | |
| 1475 | ||
| 1476 | typedef struct TclpTime_t_ *TclpTime_t; | |
| 1477 | ||
| 1478 | /* | |
| 1479 | * The following structure is used to pass glob type data amongst | |
| 1480 | * the various glob routines and TclpMatchFilesTypes. Currently | |
| 1481 | * most of the fields are ignored. However they will be used in | |
| 1482 | * a future release to implement glob's ability to find files | |
| 1483 | * of particular types/permissions/etc only. | |
| 1484 | */ | |
| 1485 | typedef struct GlobTypeData { | |
| 1486 | /* Corresponds to bcdpfls as in 'find -t' */ | |
| 1487 | int type; | |
| 1488 | /* Corresponds to file permissions */ | |
| 1489 | int perm; | |
| 1490 | /* Acceptable mac type */ | |
| 1491 | Tcl_Obj* macType; | |
| 1492 | /* Acceptable mac creator */ | |
| 1493 | Tcl_Obj* macCreator; | |
| 1494 | } GlobTypeData; | |
| 1495 | ||
| 1496 | /* | |
| 1497 | * type and permission definitions for glob command | |
| 1498 | */ | |
| 1499 | #define TCL_GLOB_TYPE_BLOCK (1<<0) | |
| 1500 | #define TCL_GLOB_TYPE_CHAR (1<<1) | |
| 1501 | #define TCL_GLOB_TYPE_DIR (1<<2) | |
| 1502 | #define TCL_GLOB_TYPE_PIPE (1<<3) | |
| 1503 | #define TCL_GLOB_TYPE_FILE (1<<4) | |
| 1504 | #define TCL_GLOB_TYPE_LINK (1<<5) | |
| 1505 | #define TCL_GLOB_TYPE_SOCK (1<<6) | |
| 1506 | ||
| 1507 | #define TCL_GLOB_PERM_RONLY (1<<0) | |
| 1508 | #define TCL_GLOB_PERM_HIDDEN (1<<1) | |
| 1509 | #define TCL_GLOB_PERM_R (1<<2) | |
| 1510 | #define TCL_GLOB_PERM_W (1<<3) | |
| 1511 | #define TCL_GLOB_PERM_X (1<<4) | |
| 1512 | ||
| 1513 | /* | |
| 1514 | *---------------------------------------------------------------- | |
| 1515 | * Variables shared among Tcl modules but not used by the outside world. | |
| 1516 | *---------------------------------------------------------------- | |
| 1517 | */ | |
| 1518 | ||
| 1519 | extern Tcl_Time tclBlockTime; | |
| 1520 | extern int tclBlockTimeSet; | |
| 1521 | extern char * tclExecutableName; | |
| 1522 | extern char * tclNativeExecutableName; | |
| 1523 | extern char * tclDefaultEncodingDir; | |
| 1524 | extern Tcl_ChannelType tclFileChannelType; | |
| 1525 | extern char * tclMemDumpFileName; | |
| 1526 | extern TclPlatformType tclPlatform; | |
| 1527 | extern char * tclpFileAttrStrings[]; | |
| 1528 | extern CONST TclFileAttrProcs tclpFileAttrProcs[]; | |
| 1529 | ||
| 1530 | /* | |
| 1531 | * Variables denoting the Tcl object types defined in the core. | |
| 1532 | */ | |
| 1533 | ||
| 1534 | extern Tcl_ObjType tclBooleanType; | |
| 1535 | extern Tcl_ObjType tclByteArrayType; | |
| 1536 | extern Tcl_ObjType tclByteCodeType; | |
| 1537 | extern Tcl_ObjType tclDoubleType; | |
| 1538 | extern Tcl_ObjType tclIntType; | |
| 1539 | extern Tcl_ObjType tclListType; | |
| 1540 | extern Tcl_ObjType tclProcBodyType; | |
| 1541 | extern Tcl_ObjType tclStringType; | |
| 1542 | ||
| 1543 | /* | |
| 1544 | * The head of the list of free Tcl objects, and the total number of Tcl | |
| 1545 | * objects ever allocated and freed. | |
| 1546 | */ | |
| 1547 | ||
| 1548 | extern Tcl_Obj * tclFreeObjList; | |
| 1549 | ||
| 1550 | #ifdef TCL_COMPILE_STATS | |
| 1551 | extern long tclObjsAlloced; | |
| 1552 | extern long tclObjsFreed; | |
| 1553 | #endif /* TCL_COMPILE_STATS */ | |
| 1554 | ||
| 1555 | /* | |
| 1556 | * Pointer to a heap-allocated string of length zero that the Tcl core uses | |
| 1557 | * as the value of an empty string representation for an object. This value | |
| 1558 | * is shared by all new objects allocated by Tcl_NewObj. | |
| 1559 | */ | |
| 1560 | ||
| 1561 | extern char * tclEmptyStringRep; | |
| 1562 | ||
| 1563 | /* | |
| 1564 | *---------------------------------------------------------------- | |
| 1565 | * Procedures shared among Tcl modules but not used by the outside | |
| 1566 | * world: | |
| 1567 | *---------------------------------------------------------------- | |
| 1568 | */ | |
| 1569 | ||
| 1570 | EXTERN int TclAccess _ANSI_ARGS_((CONST char *path, | |
| 1571 | int mode)); | |
| 1572 | EXTERN int TclAccessDeleteProc _ANSI_ARGS_((TclAccessProc_ *proc)); | |
| 1573 | EXTERN int TclAccessInsertProc _ANSI_ARGS_((TclAccessProc_ *proc)); | |
| 1574 | EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); | |
| 1575 | EXTERN int TclArraySet _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1576 | Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj)); | |
| 1577 | EXTERN int TclCheckBadOctal _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1578 | char *value)); | |
| 1579 | EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1580 | int numPids, Tcl_Pid *pidPtr, | |
| 1581 | Tcl_Channel errorChan)); | |
| 1582 | EXTERN void TclCleanupCommand _ANSI_ARGS_((Command *cmdPtr)); | |
| 1583 | EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1584 | Tcl_Channel inChan, Tcl_Channel outChan, | |
| 1585 | int toRead, Tcl_Obj *cmdPtr)); | |
| 1586 | /* | |
| 1587 | * TclCreatePipeline unofficially exported for use by BLT. | |
| 1588 | */ | |
| 1589 | EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1590 | int argc, char **argv, Tcl_Pid **pidArrayPtr, | |
| 1591 | TclFile *inPipePtr, TclFile *outPipePtr, | |
| 1592 | TclFile *errFilePtr)); | |
| 1593 | EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1594 | Namespace *nsPtr, char *procName, | |
| 1595 | Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, | |
| 1596 | Proc **procPtrPtr)); | |
| 1597 | EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( | |
| 1598 | Interp *iPtr, CallFrame *framePtr)); | |
| 1599 | EXTERN void TclDeleteVars _ANSI_ARGS_((Interp *iPtr, | |
| 1600 | Tcl_HashTable *tablePtr)); | |
| 1601 | EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1602 | char *separators, Tcl_DString *headPtr, | |
| 1603 | char *tail, GlobTypeData *types)); | |
| 1604 | EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE *outFile)); | |
| 1605 | EXTERN void TclExpandTokenArray _ANSI_ARGS_(( | |
| 1606 | Tcl_Parse *parsePtr)); | |
| 1607 | EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1608 | double value)); | |
| 1609 | EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1610 | int objc, Tcl_Obj *CONST objv[])); | |
| 1611 | EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1612 | int argc, char **argv)) ; | |
| 1613 | EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1614 | int argc, char **argv)); | |
| 1615 | EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1616 | int argc, char **argv)) ; | |
| 1617 | EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1618 | int argc, char **argv)) ; | |
| 1619 | EXTERN void TclFinalizeAllocSubsystem _ANSI_ARGS_((void)); | |
| 1620 | EXTERN void TclFinalizeCompExecEnv _ANSI_ARGS_((void)); | |
| 1621 | EXTERN void TclFinalizeCompilation _ANSI_ARGS_((void)); | |
| 1622 | EXTERN void TclFinalizeEncodingSubsystem _ANSI_ARGS_((void)); | |
| 1623 | EXTERN void TclFinalizeEnvironment _ANSI_ARGS_((void)); | |
| 1624 | EXTERN void TclFinalizeExecution _ANSI_ARGS_((void)); | |
| 1625 | EXTERN void TclFinalizeIOSubsystem _ANSI_ARGS_((void)); | |
| 1626 | EXTERN void TclFinalizeLoad _ANSI_ARGS_((void)); | |
| 1627 | EXTERN void TclFinalizeMemorySubsystem _ANSI_ARGS_((void)); | |
| 1628 | EXTERN void TclFinalizeNotifier _ANSI_ARGS_((void)); | |
| 1629 | EXTERN void TclFinalizeSynchronization _ANSI_ARGS_((void)); | |
| 1630 | EXTERN void TclFinalizeThreadData _ANSI_ARGS_((void)); | |
| 1631 | EXTERN void TclFindEncodings _ANSI_ARGS_((CONST char *argv0)); | |
| 1632 | EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp *iPtr, | |
| 1633 | char *procName)); | |
| 1634 | EXTERN int TclFormatInt _ANSI_ARGS_((char *buffer, long n)); | |
| 1635 | EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp *iPtr)); | |
| 1636 | EXTERN int TclGetDate _ANSI_ARGS_((char *p, | |
| 1637 | unsigned long now, long zone, | |
| 1638 | unsigned long *timePtr)); | |
| 1639 | EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( | |
| 1640 | Tcl_Interp *interp, int localIndex, | |
| 1641 | Tcl_Obj *elemPtr, int leaveErrorMsg)); | |
| 1642 | EXTERN char * TclGetExtension _ANSI_ARGS_((char *name)); | |
| 1643 | EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1644 | char *string, CallFrame **framePtrPtr)); | |
| 1645 | EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); | |
| 1646 | EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1647 | Tcl_Obj *objPtr, int endValue, int *indexPtr)); | |
| 1648 | EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1649 | int localIndex, int leaveErrorMsg)); | |
| 1650 | EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1651 | char *string, long *longPtr)); | |
| 1652 | EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( | |
| 1653 | Tcl_Interp *interp, char *targetName)); | |
| 1654 | EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( | |
| 1655 | Tcl_Interp *interp, char *qualName, | |
| 1656 | Namespace *cxtNsPtr, int flags, | |
| 1657 | Namespace **nsPtrPtr, Namespace **altNsPtrPtr, | |
| 1658 | Namespace **actualCxtPtrPtr, | |
| 1659 | char **simpleNamePtr)); | |
| 1660 | EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); | |
| 1661 | EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1662 | char *string, int *seekFlagPtr)); | |
| 1663 | EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( | |
| 1664 | Tcl_Command command)); | |
| 1665 | EXTERN int TclGlob _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1666 | char *pattern, char *unquotedPrefix, | |
| 1667 | int globFlags, GlobTypeData* types)); | |
| 1668 | EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1669 | int argc, char **argv, int flags)); | |
| 1670 | EXTERN int TclGuessPackageName _ANSI_ARGS_((char *fileName, | |
| 1671 | Tcl_DString *bufPtr)); | |
| 1672 | EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( | |
| 1673 | Tcl_Interp *interp)); | |
| 1674 | EXTERN int TclInExit _ANSI_ARGS_((void)); | |
| 1675 | EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( | |
| 1676 | Tcl_Interp *interp, int localIndex, | |
| 1677 | Tcl_Obj *elemPtr, long incrAmount)); | |
| 1678 | EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( | |
| 1679 | Tcl_Interp *interp, int localIndex, | |
| 1680 | long incrAmount)); | |
| 1681 | EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1682 | Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, | |
| 1683 | long incrAmount, int flags)); | |
| 1684 | EXTERN void TclInitAlloc _ANSI_ARGS_((void)); | |
| 1685 | EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( | |
| 1686 | Tcl_Interp *interp, CallFrame *framePtr, | |
| 1687 | Namespace *nsPtr)); | |
| 1688 | EXTERN void TclInitDbCkalloc _ANSI_ARGS_((void)); | |
| 1689 | EXTERN void TclInitEncodingSubsystem _ANSI_ARGS_((void)); | |
| 1690 | EXTERN void TclInitIOSubsystem _ANSI_ARGS_((void)); | |
| 1691 | EXTERN void TclInitNamespaceSubsystem _ANSI_ARGS_((void)); | |
| 1692 | EXTERN void TclInitNotifier _ANSI_ARGS_((void)); | |
| 1693 | EXTERN void TclInitObjSubsystem _ANSI_ARGS_((void)); | |
| 1694 | EXTERN void TclInitSubsystems _ANSI_ARGS_((CONST char *argv0)); | |
| 1695 | EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1696 | int argc, char **argv, int flags)); | |
| 1697 | EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( | |
| 1698 | ClientData clientData, Tcl_Interp *interp, | |
| 1699 | int argc, char **argv)); | |
| 1700 | EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( | |
| 1701 | ClientData clientData, Tcl_Interp *interp, | |
| 1702 | int objc, Tcl_Obj *CONST objv[])); | |
| 1703 | EXTERN int TclIsLocalScalar _ANSI_ARGS_((CONST char *src, | |
| 1704 | int len)); | |
| 1705 | EXTERN Proc * TclIsProc _ANSI_ARGS_((Command *cmdPtr)); | |
| 1706 | EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1707 | char *part1, char *part2, int flags, char *msg, | |
| 1708 | int createPart1, int createPart2, | |
| 1709 | Var **arrayPtrPtr)); | |
| 1710 | EXTERN int TclMathInProgress _ANSI_ARGS_((void)); | |
| 1711 | EXTERN int TclNeedSpace _ANSI_ARGS_((char *start, char *end)); | |
| 1712 | EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc *procPtr)); | |
| 1713 | EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj *cmdPtr)); | |
| 1714 | EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, | |
| 1715 | Tcl_Interp *interp, int objc, | |
| 1716 | Tcl_Obj *CONST objv[])); | |
| 1717 | EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1718 | int objc, Tcl_Obj *CONST objv[], int flags)); | |
| 1719 | EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp *interp, | |
| 1720 | int objc, Tcl_Obj *CONST objv[], int flags)); | |
| 1721 | EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( | |
| 1722 | TclOpenFileChannelProc_ *proc)); | |
| 1723 | EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( | |
| 1724 | TclOpenFileChannelProc_ *proc)); | |
| 1725 | EXTERN int TclpAccess _ANSI_ARGS_((CONST char *filename, | |
| 1726 | int mode)); | |
| 1727 | EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); | |
| 1728 | EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); | |
| 1729 | EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char *source, | |
| 1730 | CONST char *dest)); | |
| 1731 | EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char *source, | |
| 1732 | CONST char *dest, Tcl_DString *errorPtr)); | |
| 1733 | EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char *path)); | |
| 1734 | EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char *path)); | |
| 1735 | EXTERN void TclpExit _ANSI_ARGS_((int status)); | |
| 1736 | EXTERN void TclpFinalizeCondition _ANSI_ARGS_(( | |
| 1737 | Tcl_Condition *condPtr)); | |
| 1738 | EXTERN void TclpFinalizeMutex _ANSI_ARGS_((Tcl_Mutex *mutexPtr)); | |
| 1739 | EXTERN void TclpFinalizeThreadData _ANSI_ARGS_(( | |
| 1740 | Tcl_ThreadDataKey *keyPtr)); | |
| 1741 | EXTERN void TclpFinalizeThreadDataKey _ANSI_ARGS_(( | |
| 1742 | Tcl_ThreadDataKey *keyPtr)); | |
| 1743 | EXTERN char * TclpFindExecutable _ANSI_ARGS_(( | |
| 1744 | CONST char *argv0)); | |
| 1745 | EXTERN int TclpFindVariable _ANSI_ARGS_((CONST char *name, | |
| 1746 | int *lengthPtr)); | |
| 1747 | EXTERN void TclpFree _ANSI_ARGS_((char *ptr)); | |