[svn-r7784] *** empty log message ***

1 files changed, 33 insertions, 0 deletions

diff --git a/src/H5F.c b/src/H5F.c
index b01cbff..dd9a3d6 100644
--- a/src/H5F.c
+++ b/src/H5F.c
@@ -2137,6 +2137,9 @@ H5Fcreate(const char *filename, unsigned flags, hid_t fcpl_id, hid_t fapl_id)
     if ((ret_value = H5I_register(H5I_FILE, new_file))<0)
 	HGOTO_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL, "unable to atomize file")
 
+    /* Keep this ID in file object structure */
+    new_file->file_id = ret_value;
+            
 done:
     if (ret_value<0 && new_file)
         if(H5F_close(new_file)<0)
@@ -4164,6 +4167,36 @@ done:
 
 
 /*-------------------------------------------------------------------------
+ * Function:	H5F_get_id
+ *
+ * Purpose:	Quick and dirty routine to retrieve the file's 'file id'
+ *              (Mainly added to stop non-file routines from poking about 
+ *              in the H5F_t data structure)
+ *
+ * Return:	Non-negative on success/Negative on failure
+ *
+ * Programmer:	Raymond Lu
+ *		Oct 29, 2003
+ *
+ * Modifications:
+ *-------------------------------------------------------------------------
+ */
+hid_t
+H5F_get_id(H5F_t *file)
+{
+    hid_t       ret_value;
+    
+    FUNC_ENTER_NOINIT(H5F_get_id)
+
+    assert(file);
+    ret_value = file->file_id;
+    
+done:
+    FUNC_LEAVE_NOAPI(ret_value)
+} /* end H5F_get_id() */
+
+
+/*-------------------------------------------------------------------------
  * Function:	H5F_get_base_addr
  *
  * Purpose:	Quick and dirty routine to retrieve the file's 'base_addr' value