[svn-r11686] Purpose:

    New feature

Description:
    Add in baseline "object copy" code from Peter [in the form of a new API
routine: H5Gcopy()].  There's still some work to do (like handling variable-
length datatypes and possibly support for references) and it hasn't been tested
on mounted files yet, but the core functionality is there and working
correctly.

    I've also got a set of patches to update the 1.6 branch with tweaks to
keep the branches mostly in sync, but Elena will kill me if I import them
before the 1.6.5 release is out... :-)

Platforms tested:
    FreeBSD 4.11 (sleipnir)
    h5committested

1 files changed, 101 insertions, 0 deletions

diff --git a/src/H5S.c b/src/H5S.c
index db535f6..4190ca4 100644
--- a/src/H5S.c
+++ b/src/H5S.c
@@ -39,6 +39,7 @@ static herr_t H5S_set_extent_simple (H5S_t *space, unsigned rank,
 static htri_t H5S_is_simple(const H5S_t *sdim);
 static herr_t H5S_encode(H5S_t *obj, unsigned char *buf, size_t *nalloc);
 static H5S_t *H5S_decode(const unsigned char *buf);
+static htri_t H5S_extent_equal(const H5S_t *ds1, const H5S_t *ds2);
 
 #ifdef H5S_DEBUG
 /* Names of the selection names, for debugging */
@@ -2225,6 +2226,106 @@ done:
 
 
 /*-------------------------------------------------------------------------
+ * Function:	H5Sextent_equal
+ *
+ * Purpose:	Determines if two dataspace extents are equal.
+ *
+ * Return:	Success:	TRUE if equal, FALSE if unequal
+ *
+ *		Failure:	Negative
+ *
+ * Programmer:	Quincey Koziol
+ *		Monday, October 24, 2005
+ *
+ *-------------------------------------------------------------------------
+ */
+htri_t
+H5Sextent_equal(hid_t space1_id, hid_t space2_id)
+{
+    const H5S_t	*ds1, *ds2;     /* Dataspaces to compare */
+    htri_t	ret_value;
+
+    FUNC_ENTER_API(H5Sextent_equal, FAIL)
+    H5TRACE2("t","ii",space1_id,space2_id);
+
+    /* check args */
+    if(NULL == (ds1 = H5I_object_verify(space1_id, H5I_DATASPACE)) ||
+            NULL == (ds2 = H5I_object_verify(space2_id, H5I_DATASPACE)))
+	HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a dataspace")
+
+    /* Check dataspaces for extent's equality */
+    if((ret_value = H5S_extent_equal(ds1, ds2)) < 0)
+	HGOTO_ERROR(H5E_DATASPACE, H5E_CANTCOMPARE, FAIL, "dataspace comparison failed")
+
+done:
+    FUNC_LEAVE_API(ret_value)
+} /* end H5Sextent_equal() */
+
+
+/*--------------------------------------------------------------------------
+ NAME
+    H5S_extent_equal
+ PURPOSE
+    Check if two dataspaces have equal extents
+ USAGE
+    htri_t H5S_extent_equal(ds1, ds2)
+        H5S_t *ds1, *ds2;	        IN: Dataspace objects to compare
+ RETURNS
+     TRUE if equal, FALSE if unequal on succeess/Negative on failure
+ DESCRIPTION
+	Compare two dataspaces if their extents are identical.
+--------------------------------------------------------------------------*/
+static htri_t
+H5S_extent_equal(const H5S_t *ds1, const H5S_t *ds2)
+{
+    unsigned u;                 /* Local index variable */
+    htri_t ret_value = TRUE;    /* Return value */
+
+    FUNC_ENTER_NOAPI(H5S_extent_equal, FAIL)
+
+    /* Check args */
+    HDassert(ds1);
+    HDassert(ds2);
+
+    /* Make certain the dataspaces are the same type */
+    if(ds1->extent.type != ds2->extent.type)
+        HGOTO_DONE(FALSE)
+
+    /* Make certain the dataspaces are the same rank */
+    if(ds1->extent.rank != ds2->extent.rank)
+        HGOTO_DONE(FALSE)
+
+    /* Make certain the dataspaces' current dimensions are the same size */
+    if(ds1->extent.rank > 0) {
+        HDassert(ds1->extent.size);
+        HDassert(ds2->extent.size);
+        for(u = 0; u < ds1->extent.rank; u++) {
+            if(ds1->extent.size[u] != ds2->extent.size[u])
+                HGOTO_DONE(FALSE)
+        } /* end for */
+    } /* end if */
+
+    /* Make certain the dataspaces' maximum dimensions are the same size */
+    if(ds1->extent.rank > 0) {
+        /* Check for no maximum dimensions on dataspaces */
+        if(ds1->extent.max != NULL && ds2->extent.max != NULL) {
+            for(u = 0; u < ds1->extent.rank; u++) {
+                if(ds1->extent.max[u] != ds2->extent.max[u])
+                    HGOTO_DONE(FALSE)
+            } /* end for */
+        } /* end if */
+        else
+            if((ds1->extent.max == NULL && ds2->extent.max != NULL) ||
+                    (ds1->extent.max != NULL && ds2->extent.max == NULL))
+                HGOTO_DONE(FALSE)
+    } /* end if */
+
+done:
+    FUNC_LEAVE_NOAPI(ret_value)
+} /* end H5S_extent_equal() */
+
+
+/*-------------------------------------------------------------------------
  * Function:	H5S_debug
  *
  * Purpose:	Prints debugging information about a data space.