summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-02-25 15:37:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-02-25 15:37:41 (GMT)
commit113655197374d84515e37514a5caefeb9b5bc341 (patch)
tree6f813fde4d882835b9c7091194a027df3a02e1a1 /generic/tclVar.c
parentcf7969886b99c16a6755f8c9c6ff2e8336705974 (diff)
downloadtcl-113655197374d84515e37514a5caefeb9b5bc341.zip
tcl-113655197374d84515e37514a5caefeb9b5bc341.tar.gz
tcl-113655197374d84515e37514a5caefeb9b5bc341.tar.bz2
ArraySearch struct used only locally. Remove from tclInt.h.
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c24
1 files changed, 24 insertions, 0 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index d000296..f4f83a4 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -142,6 +142,30 @@ static const char *isArrayElement =
#define HasLocalVars(framePtr) ((framePtr)->isProcCallFrame & FRAME_IS_PROC)
/*
+ * 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;
+
+/*
* Forward references to functions defined later in this file:
*/