summaryrefslogtreecommitdiffstats
path: root/src/H5SL.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/H5SL.c')
-rw-r--r--src/H5SL.c258
1 files changed, 218 insertions, 40 deletions
diff --git a/src/H5SL.c b/src/H5SL.c
index 4202481..2e37dc0 100644
--- a/src/H5SL.c
+++ b/src/H5SL.c
@@ -57,11 +57,12 @@
/* Local Macros */
/* Define the code template for insertions for the "OP" in the H5SL_LOCATE macro */
-#define H5SL_LOCATE_INSERT_FOUND(SLIST,X,UPDATE,I,ITEM) \
+#define H5SL_LOCATE_INSERT_FOUND(SLIST,X,UPDATE,I) \
HGOTO_ERROR(H5E_SLIST,H5E_CANTINSERT,NULL,"can't insert duplicate key");
/* Define the code template for removals for the "OP" in the H5SL_LOCATE macro */
-#define H5SL_LOCATE_REMOVE_FOUND(SLIST,X,UPDATE,I,ITEM) \
+/* (NOTE: the code in H5SL_remove_first() is largely the same, fix bugs in both places) */
+#define H5SL_LOCATE_REMOVE_FOUND(SLIST,X,UPDATE,I) \
void *tmp; \
\
for(I=0; I<=(int)SLIST->curr_level; I++) { \
@@ -81,11 +82,11 @@
HGOTO_DONE(tmp);
/* Define the code template for searches for the "OP" in the H5SL_LOCATE macro */
-#define H5SL_LOCATE_SEARCH_FOUND(SLIST,X,UPDATE,I,ITEM) \
+#define H5SL_LOCATE_SEARCH_FOUND(SLIST,X,UPDATE,I) \
HGOTO_DONE(X->item);
/* Define the code template for finds for the "OP" in the H5SL_LOCATE macro */
-#define H5SL_LOCATE_FIND_FOUND(SLIST,X,UPDATE,I,ITEM) \
+#define H5SL_LOCATE_FIND_FOUND(SLIST,X,UPDATE,I) \
HGOTO_DONE(X);
/* Define a code template for updating the "update" vector for the "DOUPDATE" in the H5SL_LOCATE macro */
@@ -112,7 +113,7 @@
(HDstrcmp(PKEY1,PKEY2)==0)
/* Macro used to find node for operation */
-#define H5SL_LOCATE(OP,DOUPDATE,CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED) \
+#define H5SL_LOCATE(OP,DOUPDATE,CMP,SLIST,X,UPDATE,I,TYPE,KEY,CHECKED) \
CHECKED=NULL; \
for(I=(int)SLIST->curr_level; I>=0; I--) { \
if(X->forward[I]!=CHECKED) { \
@@ -125,24 +126,24 @@
X=X->forward[0]; \
if(X!=NULL && H5_GLUE3(H5SL_LOCATE_,CMP,_EQ)(TYPE,X->key,KEY) ) { \
/* What to do when a node is found */ \
- H5_GLUE3(H5SL_LOCATE_,OP,_FOUND)(SLIST,X,UPDATE,I,ITEM) \
+ H5_GLUE3(H5SL_LOCATE_,OP,_FOUND)(SLIST,X,UPDATE,I) \
} /* end if */
/* Macro used to insert node */
-#define H5SL_INSERT(CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED) \
- H5SL_LOCATE(INSERT,YES,CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED)
+#define H5SL_INSERT(CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED) \
+ H5SL_LOCATE(INSERT, YES, CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED)
/* Macro used to remove node */
-#define H5SL_REMOVE(CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED) \
- H5SL_LOCATE(REMOVE,YES,CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED)
+#define H5SL_REMOVE(CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED) \
+ H5SL_LOCATE(REMOVE, YES, CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED)
/* Macro used to search for node */
-#define H5SL_SEARCH(CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED) \
- H5SL_LOCATE(SEARCH,NO,CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED)
+#define H5SL_SEARCH(CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED) \
+ H5SL_LOCATE(SEARCH, NO, CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED)
/* Macro used to find a node */
-#define H5SL_FIND(CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED) \
- H5SL_LOCATE(FIND,NO,CMP,SLIST,X,UPDATE,I,TYPE,ITEM,KEY,CHECKED)
+#define H5SL_FIND(CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED) \
+ H5SL_LOCATE(FIND, NO, CMP, SLIST, X, UPDATE, I, TYPE, KEY, CHECKED)
/* Private typedefs & structs */
@@ -363,23 +364,27 @@ H5SL_insert_common(H5SL_t *slist, void *item, const void *key)
x=slist->header;
switch(slist->type) {
case H5SL_TYPE_INT:
- H5SL_INSERT(SCALAR,slist,x,update,i,const int,item,key,checked)
+ H5SL_INSERT(SCALAR, slist, x, update, i, const int, key, checked)
break;
case H5SL_TYPE_HADDR:
- H5SL_INSERT(SCALAR,slist,x,update,i,const haddr_t,item,key,checked)
+ H5SL_INSERT(SCALAR, slist, x, update, i, const haddr_t, key, checked)
break;
case H5SL_TYPE_STR:
- H5SL_INSERT(STRING,slist,x,update,i,char *,item,key,checked)
+ H5SL_INSERT(STRING, slist, x, update, i, char *, key, checked)
break;
case H5SL_TYPE_HSIZE:
- H5SL_INSERT(SCALAR,slist,x,update,i,const hsize_t,item,key,checked)
+ H5SL_INSERT(SCALAR, slist, x, update, i, const hsize_t, key, checked)
break;
case H5SL_TYPE_UNSIGNED:
- H5SL_INSERT(SCALAR,slist,x,update,i,const unsigned,item,key,checked)
+ H5SL_INSERT(SCALAR, slist, x, update, i, const unsigned, key, checked)
+ break;
+
+ case H5SL_TYPE_SIZE:
+ H5SL_INSERT(SCALAR, slist, x, update, i, const size_t, key, checked)
break;
} /* end switch */
@@ -574,7 +579,7 @@ H5SL_create(H5SL_type_t type, double p, size_t max_level)
/* Check args */
HDassert(p>0.0 && p<1.0);
HDassert(max_level>0 && max_level<=H5SL_LEVEL_MAX);
- HDassert(type>=H5SL_TYPE_INT && type<=H5SL_TYPE_UNSIGNED);
+ HDassert(type>=H5SL_TYPE_INT && type<=H5SL_TYPE_SIZE);
/* Allocate skip list structure */
if((new_slist=H5FL_MALLOC(H5SL_t))==NULL)
@@ -789,23 +794,27 @@ H5SL_remove(H5SL_t *slist, const void *key)
x=slist->header;
switch(slist->type) {
case H5SL_TYPE_INT:
- H5SL_REMOVE(SCALAR,slist,x,update,i,const int,-,key,checked)
+ H5SL_REMOVE(SCALAR, slist, x, update, i, const int, key, checked)
break;
case H5SL_TYPE_HADDR:
- H5SL_REMOVE(SCALAR,slist,x,update,i,const haddr_t,-,key,checked)
+ H5SL_REMOVE(SCALAR, slist, x, update, i, const haddr_t, key, checked)
break;
case H5SL_TYPE_STR:
- H5SL_REMOVE(STRING,slist,x,update,i,char *,-,key,checked)
+ H5SL_REMOVE(STRING, slist, x, update, i, char *, key, checked)
break;
case H5SL_TYPE_HSIZE:
- H5SL_REMOVE(SCALAR,slist,x,update,i,const hsize_t,-,key,checked)
+ H5SL_REMOVE(SCALAR, slist, x, update, i, const hsize_t, key, checked)
break;
case H5SL_TYPE_UNSIGNED:
- H5SL_REMOVE(SCALAR,slist,x,update,i,const unsigned,-,key,checked)
+ H5SL_REMOVE(SCALAR, slist, x, update, i, const unsigned, key, checked)
+ break;
+
+ case H5SL_TYPE_SIZE:
+ H5SL_REMOVE(SCALAR, slist, x, update, i, const size_t, key, checked)
break;
} /* end switch */
@@ -816,6 +825,80 @@ done:
/*--------------------------------------------------------------------------
NAME
+ H5SL_remove_first
+ PURPOSE
+ Removes the first object from a skip list
+ USAGE
+ void *H5SL_remove_first(slist)
+ H5SL_t *slist; IN/OUT: Pointer to skip list
+
+ RETURNS
+ Returns pointer to item removed on success, NULL on failure.
+ DESCRIPTION
+ Remove first element from a skip list.
+ GLOBAL VARIABLES
+ COMMENTS, BUGS, ASSUMPTIONS
+ This algorithm is basically the same as the one in the
+ H5SL_LOCATE_REMOVE_FOUND macro, fix bugs in both places
+ EXAMPLES
+ REVISION LOG
+--------------------------------------------------------------------------*/
+void *
+H5SL_remove_first(H5SL_t *slist)
+{
+ void *ret_value = NULL; /* Return value */
+
+ FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5SL_remove_first)
+
+ /* Check args */
+ HDassert(slist);
+
+ /* Check internal consistency */
+ /* (Pre-condition) */
+
+ /* Remove item from skip list */
+
+ /* Check for empty list */
+ if(slist->last != slist->header) {
+ H5SL_node_t *x; /* Current node to examine */
+ int i; /* Local index value */
+
+ /* Get pointer to first node on the list */
+ x = slist->header->forward[0];
+
+ /* Patch forward pointers in list header around node to remove */
+ for(i = 0; i <= (int)slist->curr_level; i++) {
+ if(slist->header->forward[i] != x)
+ break;
+ slist->header->forward[i] = x->forward[i];
+ } /* end for */
+
+ /* Update tail/backward pointer */
+ if(slist->last == x)
+ slist->last = x->backward;
+ else
+ x->forward[0]->backward = x->backward;
+
+ /* Get the item to return */
+ ret_value = x->item;
+
+ /* Free the skip list node */
+ H5FL_ARR_FREE(H5SL_node_ptr_t, x);
+
+ /* Lower the level of the list, if we removed the tallest node */
+ while(slist->curr_level > 0 && slist->header->forward[slist->curr_level] == NULL)
+ slist->curr_level--;
+
+ /* Decrement the # of objects in the list */
+ slist->nobjs--;
+ } /* end if */
+
+ FUNC_LEAVE_NOAPI(ret_value)
+} /* end H5SL_remove_first() */
+
+
+/*--------------------------------------------------------------------------
+ NAME
H5SL_search
PURPOSE
Search for object in a skip list
@@ -858,23 +941,27 @@ H5SL_search(H5SL_t *slist, const void *key)
x=slist->header;
switch(slist->type) {
case H5SL_TYPE_INT:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const int,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const int, key, checked)
break;
case H5SL_TYPE_HADDR:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const haddr_t,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const haddr_t, key, checked)
break;
case H5SL_TYPE_STR:
- H5SL_SEARCH(STRING,slist,x,-,i,char *,-,key,checked)
+ H5SL_SEARCH(STRING, slist, x, -, i, char *, key, checked)
break;
case H5SL_TYPE_HSIZE:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const hsize_t,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const hsize_t, key, checked)
break;
case H5SL_TYPE_UNSIGNED:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const unsigned,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const unsigned, key, checked)
+ break;
+
+ case H5SL_TYPE_SIZE:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const size_t, key, checked)
break;
} /* end switch */
@@ -933,23 +1020,27 @@ H5SL_less(H5SL_t *slist, const void *key)
x=slist->header;
switch(slist->type) {
case H5SL_TYPE_INT:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const int,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const int, key, checked)
break;
case H5SL_TYPE_HADDR:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const haddr_t,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const haddr_t, key, checked)
break;
case H5SL_TYPE_STR:
- H5SL_SEARCH(STRING,slist,x,-,i,char *,-,key,checked)
+ H5SL_SEARCH(STRING, slist, x, -, i, char *, key, checked)
break;
case H5SL_TYPE_HSIZE:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const hsize_t,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const hsize_t, key, checked)
break;
case H5SL_TYPE_UNSIGNED:
- H5SL_SEARCH(SCALAR,slist,x,-,i,const unsigned,-,key,checked)
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const unsigned, key, checked)
+ break;
+
+ case H5SL_TYPE_SIZE:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const size_t, key, checked)
break;
} /* end switch */
@@ -976,6 +1067,89 @@ done:
/*--------------------------------------------------------------------------
NAME
+ H5SL_greater
+ PURPOSE
+ Search for object in a skip list that is greater than or equal to 'key'
+ USAGE
+ void *H5SL_greater(slist, key)
+ H5SL_t *slist; IN/OUT: Pointer to skip list
+ void *key; IN: Key for item to search for
+
+ RETURNS
+ Returns pointer to item who key is greater than or equal to 'key' on success,
+ NULL on failure
+ DESCRIPTION
+ Search for an object in a skip list, according to it's key, returning the
+ object itself (for an exact match), or the object with the next lowest
+ key that is greater than 'key'
+ GLOBAL VARIABLES
+ COMMENTS, BUGS, ASSUMPTIONS
+ EXAMPLES
+ REVISION LOG
+--------------------------------------------------------------------------*/
+void *
+H5SL_greater(H5SL_t *slist, const void *key)
+{
+ H5SL_node_t *checked; /* Pointer to last node checked */
+ H5SL_node_t *x; /* Current node to examine */
+ int i; /* Local index value */
+ void *ret_value; /* Return value */
+
+ FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5SL_greater);
+
+ /* Check args */
+ HDassert(slist);
+ HDassert(key);
+
+ /* Check internal consistency */
+ /* (Pre-condition) */
+
+ /* Insert item into skip list */
+
+ /* Work through the forward pointers for a node, finding the node at each
+ * level that is before the location to insert
+ */
+ x = slist->header;
+ switch(slist->type) {
+ case H5SL_TYPE_INT:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const int, key, checked)
+ break;
+
+ case H5SL_TYPE_HADDR:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const haddr_t, key, checked)
+ break;
+
+ case H5SL_TYPE_STR:
+ H5SL_SEARCH(STRING, slist, x, -, i, char *, key, checked)
+ break;
+
+ case H5SL_TYPE_HSIZE:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const hsize_t, key, checked)
+ break;
+
+ case H5SL_TYPE_UNSIGNED:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const unsigned, key, checked)
+ break;
+
+ case H5SL_TYPE_SIZE:
+ H5SL_SEARCH(SCALAR, slist, x, -, i, const size_t, key, checked)
+ break;
+ } /* end switch */
+
+ /* An exact match for 'key' must not have been found in list, if we get here */
+ /* ('x' must be the next node with a key greater than the 'key', or NULL) */
+ if(x)
+ ret_value = x->item;
+ else
+ ret_value = NULL;
+
+done:
+ FUNC_LEAVE_NOAPI(ret_value);
+} /* end H5SL_greater() */
+
+
+/*--------------------------------------------------------------------------
+ NAME
H5SL_find
PURPOSE
Search for _node_ in a skip list
@@ -1020,23 +1194,27 @@ H5SL_find(H5SL_t *slist, const void *key)
x=slist->header;
switch(slist->type) {
case H5SL_TYPE_INT:
- H5SL_FIND(SCALAR,slist,x,-,i,const int,-,key,checked)
+ H5SL_FIND(SCALAR, slist, x, -, i, const int, key, checked)
break;
case H5SL_TYPE_HADDR:
- H5SL_FIND(SCALAR,slist,x,-,i,const haddr_t,-,key,checked)
+ H5SL_FIND(SCALAR, slist, x, -, i, const haddr_t, key, checked)
break;
case H5SL_TYPE_STR:
- H5SL_FIND(STRING,slist,x,-,i,char *,-,key,checked)
+ H5SL_FIND(STRING, slist, x, -, i, char *, key, checked)
break;
case H5SL_TYPE_HSIZE:
- H5SL_FIND(SCALAR,slist,x,-,i,const hsize_t,-,key,checked)
+ H5SL_FIND(SCALAR, slist, x, -, i, const hsize_t, key, checked)
break;
case H5SL_TYPE_UNSIGNED:
- H5SL_FIND(SCALAR,slist,x,-,i,const unsigned,-,key,checked)
+ H5SL_FIND(SCALAR, slist, x, -, i, const unsigned, key, checked)
+ break;
+
+ case H5SL_TYPE_SIZE:
+ H5SL_FIND(SCALAR, slist, x, -, i, const size_t, key, checked)
break;
} /* end switch */