summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r--generic/tclInt.h72
1 files changed, 35 insertions, 37 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 947d6ec..5f47fcc 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
* 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.326 2007/08/01 13:27:47 patthoyts Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.327 2007/08/03 13:51:40 dkf Exp $
*/
#ifndef _TCLINT
@@ -119,7 +119,7 @@ typedef int ptrdiff_t;
*/
#if !defined(INT2PTR) && !defined(PTR2INT)
-# if defined(HAVE_INTPTR_T) || defined(intptr_t)
+# if defined(HAVE_INTPTR_T) || defined(intptr_t)
# define INT2PTR(p) ((void*)(intptr_t)(p))
# define PTR2INT(p) ((int)(intptr_t)(p))
# else
@@ -171,14 +171,16 @@ typedef int (Tcl_ResolveCmdProc) (Tcl_Interp *interp, CONST84 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_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. */
+ /* Procedure handling variable name resolution
+ * at compile time. */
} Tcl_ResolverInfo;
/*
@@ -194,7 +196,7 @@ typedef struct NamespacePathEntry NamespacePathEntry;
* Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr
* field added at the end: in this way variables can find their namespace
* without having to copy a pointer in their struct: they can access it via
- * their hPtr->tablePtr.
+ * their hPtr->tablePtr.
*/
typedef struct TclVarHashTable {
@@ -360,7 +362,7 @@ struct NamespacePathEntry {
/*
* Flags passed to TclGetNamespaceForQualName:
*
- * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns.
+ * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns.
* TCL_NAMESPACE_ONLY - (see tcl.h) Look only in the context ns.
* TCL_CREATE_NS_IF_UNKNOWN - Create unknown namespaces.
* TCL_FIND_ONLY_NS - The name sought is a namespace name.
@@ -527,7 +529,7 @@ typedef struct Var {
} Var;
typedef struct VarInHash {
- Var var;
+ Var var;
int refCount; /* Counts number of active uses of this
* variable: 1 for the entry in the hash
* table, 1 for each additional variable whose
@@ -535,10 +537,10 @@ typedef struct VarInHash {
* trace active on variable, and 1 if the
* variable is a namespace variable. This
* record can't be deleted until refCount
- * becomes 0. */
+ * becomes 0. */
Tcl_HashEntry entry; /* The hash table entry that refers to this
* variable. This is used to find the name of
- * the variable and to delete it from its
+ * the variable and to delete it from its
* hashtable if it is no longer needed. It
* also holds the variable's name. */
} VarInHash;
@@ -610,13 +612,14 @@ typedef struct VarInHash {
* named "args".
*/
-/* FLAGS RENUMBERED: everything breaks already, make things simpler.
- *
+/*
+ * FLAGS RENUMBERED: everything breaks already, make things simpler.
+ *
* IMPORTANT: skip the values 0x10, 0x20, 0x40, 0x800 corresponding to
- * TCL_TRACE_(READS/WRITES/UNSETS/ARRAY): makes code simpler in tclTrace.c
+ * TCL_TRACE_(READS/WRITES/UNSETS/ARRAY): makes code simpler in tclTrace.c
*
* Keep the flag values for VAR_ARGUMENT and VAR_TEMPORARY so that old values
- * in precompiled scripts keep working.
+ * in precompiled scripts keep working.
*/
@@ -647,7 +650,7 @@ typedef struct VarInHash {
/* Special handling on initialisation (only CompiledLocal) */
#define VAR_ARGUMENT 0x100 /* KEEP OLD VALUE! See tclProc.c */
#define VAR_TEMPORARY 0x200 /* KEEP OLD VALUE! See tclProc.c */
-#define VAR_IS_ARGS 0x400
+#define VAR_IS_ARGS 0x400
#define VAR_RESOLVED 0x8000
/*
@@ -678,7 +681,7 @@ typedef struct VarInHash {
(varPtr)->flags &= ~(VAR_ARRAY|VAR_LINK);\
(varPtr)->value.objPtr = NULL
-#define TclClearVarUndefined(varPtr)
+#define TclClearVarUndefined(varPtr)
#define TclSetVarTraceActive(varPtr) \
(varPtr)->flags |= VAR_TRACE_ACTIVE
@@ -1188,9 +1191,8 @@ typedef void **TclHandle;
*----------------------------------------------------------------
*/
-#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so it only
- * matches at the beginning of the
- * string. */
+#define TCL_REG_BOSONLY 002000 /* Prepend \A to pattern so it only matches at
+ * the beginning of the string. */
/*
* These are a thin layer over TclpThreadKeyDataGet and TclpThreadKeyDataSet
@@ -1613,7 +1615,7 @@ typedef struct Interp {
CallFrame *varFramePtr; /* Points to the call frame whose variables
* are currently in use (same as framePtr
* unless an "uplevel" command is
- * executing). */
+ * executing). */
ActiveVarTrace *activeVarTracePtr;
/* First in list of active traces for interp,
* or NULL if no active traces. */
@@ -2321,7 +2323,7 @@ MODULE_SCOPE char tclEmptyString;
*/
MODULE_SCOPE void TclAdvanceLines(int* line, CONST char* start,
- CONST char* end);
+ CONST char* end);
MODULE_SCOPE int TclArraySet(Tcl_Interp *interp,
Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj);
MODULE_SCOPE double TclBignumToDouble(mp_int *bignum);
@@ -3009,11 +3011,10 @@ MODULE_SCOPE int TclCompileStreqOpCmd(Tcl_Interp *interp,
* the public interface.
*/
-MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp,
- Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
- int flags, CONST char * msg,
- CONST int createPart1, CONST int createPart2,
- Var ** arrayPtrPtr);
+MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp,
+ Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags,
+ CONST char * msg, CONST int createPart1,
+ CONST int createPart2, Var **arrayPtrPtr);
MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp,
Tcl_Obj *arrayNamePtr, Tcl_Obj *elNamePtr,
CONST int flags, CONST char *msg,
@@ -3035,15 +3036,12 @@ MODULE_SCOPE int TclPtrObjMakeUpvar(Tcl_Interp *interp, Var *otherPtr,
MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr);
/*
- * The new extended interface to the variable traces
+ * The new extended interface to the variable traces.
*/
-MODULE_SCOPE int TclObjCallVarTraces (Interp * iPtr, Var * arrayPtr,
- Var * varPtr, Tcl_Obj * part1Ptr,
- Tcl_Obj * part2Ptr, int flags,
- int leaveErrMsg, int index);
-
-
+MODULE_SCOPE int TclObjCallVarTraces(Interp *iPtr, Var *arrayPtr,
+ Var *varPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr,
+ int flags, int leaveErrMsg, int index);
/*
*----------------------------------------------------------------
generated by cgit v0.12 at 2024-11-19 19:48:10 (GMT)