[svn-r4696]

Purpose:
    Modify H5Fclose behavior
Description:
    The HDF5 actual file close behaves in several ways in terms of if there
    are still objects(dataset, group, datatype) opened in file.
Solution:
    Added a new file access property, file close degree.  It has four values,
	H5F_CLOSE_DEFAULT
	H5F_CLOSE_WEAK
	H5F_CLOSE_SEMI
	H5F_CLOSE_STRONG
    The way a file is closed is decided by these values.
Platforms tested:
    IRIX64 6.5, SunOS 5.6, FreeBSD 4.4

1 files changed, 32 insertions, 1 deletions

diff --git a/src/H5T.c b/src/H5T.c
index 299f98c..f0d11eb 100644
--- a/src/H5T.c
+++ b/src/H5T.c
@@ -1924,7 +1924,7 @@ done:
  *-------------------------------------------------------------------------
  */
 static int
-H5T_unlock_cb (void *_dt, const void * UNUSED key)
+H5T_unlock_cb (void *_dt, hid_t id,  const void * UNUSED key)
 {
     H5T_t	*dt = (H5T_t *)_dt;
     
@@ -7640,6 +7640,37 @@ H5T_entof (H5T_t *dt)
 }
 
 
+/*-------------------------------------------------------------------------
+ * Function:    H5T_is_immutable
+ *
+ * Purpose:     Check is a datatype is immutable. 
+ *
+ * Return:      TRUE 
+ *
+ *              FALSE 
+ *
+ * Programmer:  Raymond Lu 
+ *              Friday, Dec 7, 2001 
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+htri_t
+H5T_is_immutable(H5T_t *dt)
+{
+    htri_t ret_value = FALSE;
+
+    FUNC_ENTER(H5T_is_immutable, FAIL);
+    assert(dt);
+
+    if(dt->state == H5T_STATE_IMMUTABLE)
+	ret_value = TRUE;
+
+    FUNC_LEAVE(ret_value);
+}
+
+
 /*--------------------------------------------------------------------------
  NAME
     H5T_get_ref_type