[svn-r13978] purpose:

New feature.

Description:
Added routines to report on the amount of storage for:
1) 1.6 btree and heap storage info for groups
2) 1.8 btree, fractal heap storage info for groups, attributes and SOHM table
3) btree storage for chunked datasets
4) 1.8 superblock extension size.

Platform tested:
h5committested.

1 files changed, 59 insertions, 0 deletions

diff --git a/src/H5Oattribute.c b/src/H5Oattribute.c
index ddf5a35..f0bafc9 100644
--- a/src/H5Oattribute.c
+++ b/src/H5Oattribute.c
@@ -1687,4 +1687,63 @@ done:
 
     FUNC_LEAVE_NOAPI(ret_value)
 } /* end H5O_attr_exists */
+
+/*-------------------------------------------------------------------------
+ * Function:    H5O_attr_bh_info
+ *
+ * Purpose:     For 1.8 attribute, returns storage amount for btree and fractal heap
+ *
+ * Return:      Non-negative on success/Negative on failure
+ *
+ * Programmer:  Vailin Choi
+ *              June 19, 2007
+ *
+ *-------------------------------------------------------------------------
+ */
+herr_t
+H5O_attr_bh_info(H5O_loc_t *oloc, H5O_t *oh, hid_t dxpl_id, H5_ih_info_t *bh_info)
+{
+    H5O_ainfo_t ainfo;          /* Attribute information for object */
+    herr_t      ret_value=SUCCEED;      /* Return value */
+    hsize_t     huge_bt_size=0;
 
+    FUNC_ENTER_NOAPI(H5O_attr_bh_info, FAIL)
+
+    HDassert(oloc);
+    HDassert(oh);
+    HDassert(bh_info);
+
+    /* Check for attribute info stored */
+    ainfo.nattrs = 0;
+    ainfo.fheap_addr = HADDR_UNDEF;
+    ainfo.corder_bt2_addr = HADDR_UNDEF;
+    ainfo.name_bt2_addr = HADDR_UNDEF;
+    if(oh->version > H5O_VERSION_1 && NULL == H5A_get_ainfo(oloc->file, dxpl_id, oh, &ainfo))
+        /* Clear error stack from not finding attribute info */
+       	H5E_clear_stack(NULL);
+
+    if(oh->version > H5O_VERSION_1) {
+        if (H5F_addr_defined(ainfo.corder_bt2_addr)) {
+	    if (H5B2_info_iterate(oloc->file, dxpl_id, H5A_BT2_CORDER,
+		ainfo.corder_bt2_addr, &(bh_info->index_size)) < 0)
+		    HGOTO_ERROR(H5E_BTREE, H5E_CANTGET, FAIL, "can't retrieve B-tree storage info")
+        }
+
+        if (H5F_addr_defined(ainfo.name_bt2_addr)) {
+	    if (H5B2_info_iterate(oloc->file, dxpl_id, H5A_BT2_NAME,
+		ainfo.name_bt2_addr, &(bh_info->index_size)) < 0)
+		    HGOTO_ERROR(H5E_BTREE, H5E_CANTGET, FAIL, "can't retrieve B-tree storage info")
+        }
+
+        huge_bt_size = 0;
+        if (H5F_addr_defined(ainfo.fheap_addr)) {
+	    HDassert(H5O_msg_count_real(oh, H5O_MSG_ATTR) == 0);
+	    if (H5HF_fheap_info(oloc->file, dxpl_id, ainfo.fheap_addr, &(bh_info->heap_size), &huge_bt_size) < 0)
+		HGOTO_ERROR(H5E_BTREE, H5E_CANTGET, FAIL, "can't retrieve B-tree storage info")
+	    bh_info->index_size += huge_bt_size;
+        }
+    }
+
+done:
+    FUNC_LEAVE_NOAPI(ret_value)
+}   /* H5O_attr_bh_info() */