[svn-r178] Changes since 19980127

----------------------

./Makefile.in
./config/commence.in
	With GNU make you can now use `-j' and `-l' options and things
	get built correctly.  I can do a `make -j -l6 test' from a
	clean hdf5 source tree (after configure) in 45 seconds (8 to
	build dependencies, 26 to compile everything, and 11 to run
	the tests).

./src/H5Gnode.c
	Removed a comment that no longer applies.

./src/H5P.c
./src/H5Pprivate.h
./src/H5Ppublic.h
	Changed H5Pselect_hyperslab() to H5Pset_hyperslab() and added
	H5Pget_hyperslab() and H5P_get_hyperslab().

	Replaced a couple short memset() calls with a for loop.

	Removed `if (foo!=NULL)' from around H5MM_xfree() calls.

	Clear hslab_def when the hyperslab disappears.

./src/H5Tpublic.h
	Removed trailing enum comma.

7 files changed, 681 insertions, 580 deletions

diff --git a/src/H5B.c b/src/H5B.c
index f737798..063ed3f 100644
--- a/src/H5B.c
+++ b/src/H5B.c
@@ -772,7 +772,7 @@ H5B_insert(H5F_t *f, const H5B_class_t *type, const haddr_t *addr,
 
     if ((my_ins = H5B_insert_helper(f, addr, type, lt_key, &lt_key_changed,
                                     md_key, udata, rt_key, &rt_key_changed,
-                                    &child /*out */ )) < 0 || my_ins < 0) {
+                                    &child/*out*/ )) < 0 || my_ins < 0) {
         HRETURN_ERROR(H5E_BTREE, H5E_CANTINIT, FAIL,
                       "unable to insert key");
     }
@@ -1094,9 +1094,9 @@ H5B_insert_helper(H5F_t *f, const haddr_t *addr, const H5B_class_t *type,
                                           bt->key[idx].nkey, lt_key_changed,
                                           md_key, udata,
                                       bt->key[idx + 1].nkey, rt_key_changed,
-                                          &child_addr /*out */ )) < 0) {
+                                          &child_addr/*out*/)) < 0) {
                 HGOTO_ERROR(H5E_BTREE, H5E_CANTINSERT, H5B_INS_ERROR,
-                            "can't insert first leaf node");
+                            "unable to insert first leaf node");
             }
         } else {
             my_ins = H5B_INS_NOOP;
diff --git a/src/H5G.c b/src/H5G.c
index 2a5086e..d8726c0 100644
--- a/src/H5G.c
+++ b/src/H5G.c
@@ -1,36 +1,36 @@
 /*-------------------------------------------------------------------------
- * Copyright (C) 1997   National Center for Supercomputing Applications.
- *                      All rights reserved.
+ * Copyright (C) 1997	National Center for Supercomputing Applications.
+ *			All rights reserved.
  *
  *-------------------------------------------------------------------------
  *
- * Created:             H5G.c
- *                      Jul 18 1997
- *                      Robb Matzke <matzke@llnl.gov>
+ * Created:		H5G.c
+ *			Jul 18 1997
+ *			Robb Matzke <matzke@llnl.gov>
  *
- * Purpose:             Symbol table functions.  The functions that
- *                      begin with `H5G_stab_' don't understand the
- *                      naming system; they operate on a single
- *                      symbol table at a time.
+ * Purpose:		Symbol table functions.	 The functions that
+ *			begin with `H5G_stab_' don't understand the
+ *			naming system; they operate on a single
+ *			symbol table at a time.
  *
- *                      The functions that begin with `H5G_node_' operate
- *                      on the leaf nodes of a symbol table B-tree.  They
- *                      should be defined in the H5Gnode.c file.
+ *			The functions that begin with `H5G_node_' operate
+ *			on the leaf nodes of a symbol table B-tree.  They
+ *			should be defined in the H5Gnode.c file.
  *
- *                      The remaining functions know how to traverse the
- *                      group directed graph
+ *			The remaining functions know how to traverse the
+ *			group directed graph
  *
  * Modifications:
  *
- *      Robb Matzke, 5 Aug 1997
- *      Added calls to H5E.
+ *	Robb Matzke, 5 Aug 1997
+ *	Added calls to H5E.
  *
- *      Robb Matzke, 30 Aug 1997
- *      Added `Errors:' field to function prologues.
+ *	Robb Matzke, 30 Aug 1997
+ *	Added `Errors:' field to function prologues.
  *
  *-------------------------------------------------------------------------
  */
-#define H5G_PACKAGE             /*suppress error message about including H5Gpkg.h */
+#define H5G_PACKAGE		/*suppress error message about including H5Gpkg.h */
 
 /* Packages needed by this file... */
 #include <H5private.h>
@@ -42,43 +42,43 @@
 #include <H5MMprivate.h>
 #include <H5Oprivate.h>
 
-#define H5G_INIT_HEAP           8192
-#define H5G_RESERVED_ATOMS      0
-#define PABLO_MASK              H5G_mask
+#define H5G_INIT_HEAP		8192
+#define H5G_RESERVED_ATOMS	0
+#define PABLO_MASK		H5G_mask
 
 /* Interface initialization */
-static hbool_t          interface_initialize_g = FALSE;
-#define INTERFACE_INIT          H5G_init_interface
-static herr_t           H5G_init_interface(void);
-static void             H5G_term_interface(void);
+static hbool_t		interface_initialize_g = FALSE;
+#define INTERFACE_INIT		H5G_init_interface
+static herr_t		H5G_init_interface(void);
+static void		H5G_term_interface(void);
 
 static H5G_entry_t     *H5G_getcwg(H5F_t *f);
 
 /*-------------------------------------------------------------------------
- * Function:    H5Gcreate
+ * Function:	H5Gcreate
  *
- * Purpose:     Creates a new group in FILE and gives it the specified
- *              NAME. Unless NAME begins with `/' it is relative to the
- *              current working group.  The group is opened for write access
- *              and it's object ID is returned.
+ * Purpose:	Creates a new group in FILE and gives it the specified
+ *		NAME. Unless NAME begins with `/' it is relative to the
+ *		current working group.	The group is opened for write access
+ *		and it's object ID is returned.
  *
- *              The optional SIZE_HINT specifies how much file space to
- *              reserve to store the names that will appear in this
- *              group. If a non-positive value is supplied for the SIZE_HINT
- *              then a default size is chosen.
+ *		The optional SIZE_HINT specifies how much file space to
+ *		reserve to store the names that will appear in this
+ *		group. If a non-positive value is supplied for the SIZE_HINT
+ *		then a default size is chosen.
  *
- * See also:    H5Gset(), H5Gpush(), H5Gpop()
+ * See also:	H5Gset(), H5Gpush(), H5Gpop()
  *
  * Errors:
  *
- * Return:      Success:        The object ID of a new, empty group open for
- *                              writing.  Call H5Gclose() when finished with
- *                              the group.
+ * Return:	Success:	The object ID of a new, empty group open for
+ *				writing.  Call H5Gclose() when finished with
+ *				the group.
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, September 24, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, September 24, 1997
  *
  * Modifications:
  *
@@ -87,47 +87,47 @@ static H5G_entry_t     *H5G_getcwg(H5F_t *f);
 hid_t
 H5Gcreate(hid_t file_id, const char *name, size_t size_hint)
 {
-    H5F_t                  *f = NULL;
-    H5G_t                  *grp;
-    hid_t                   ret_value = FAIL;
+    H5F_t		   *f = NULL;
+    H5G_t		   *grp;
+    hid_t		    ret_value = FAIL;
 
     FUNC_ENTER(H5Gcreate, FAIL);
     H5ECLEAR;
 
     /* Check arguments */
     if (H5_FILE != H5A_group(file_id) ||
-        NULL == (f = H5A_object(file_id))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
+	NULL == (f = H5A_object(file_id))) {
+	HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
     }
     if (!name || !*name) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name given");
+	HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name given");
     }
     /* Create the group */
     if (NULL == (grp = H5G_create(f, name, size_hint))) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to create group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to create group");
     }
     if ((ret_value = H5A_register(H5_GROUP, grp)) < 0) {
-        H5G_close(grp);
-        HRETURN_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL,
-                      "unable to register group");
+	H5G_close(grp);
+	HRETURN_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL,
+		      "unable to register group");
     }
     FUNC_LEAVE(ret_value);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5Gopen
+ * Function:	H5Gopen
  *
- * Purpose:     Opens an existing group for modification.  When finished,
- *              call H5Gclose() to close it and release resources.
+ * Purpose:	Opens an existing group for modification.  When finished,
+ *		call H5Gclose() to close it and release resources.
  *
  * Errors:
  *
- * Return:      Success:        Object ID of the group.
+ * Return:	Success:	Object ID of the group.
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, December 31, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, December 31, 1997
  *
  * Modifications:
  *
@@ -136,46 +136,46 @@ H5Gcreate(hid_t file_id, const char *name, size_t size_hint)
 hid_t
 H5Gopen(hid_t file_id, const char *name)
 {
-    hid_t                   ret_value = FAIL;
-    H5F_t                  *f = NULL;
-    H5G_t                  *grp = NULL;
+    hid_t		    ret_value = FAIL;
+    H5F_t		   *f = NULL;
+    H5G_t		   *grp = NULL;
 
     FUNC_ENTER(H5Gopen, FAIL);
     H5ECLEAR;
 
     /* Check args */
     if (H5_FILE != H5A_group(file_id) ||
-        NULL == (f = H5A_object(file_id))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
+	NULL == (f = H5A_object(file_id))) {
+	HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
     }
     if (!name || !*name) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name");
+	HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name");
     }
     /* Open the group */
     if (NULL == (grp = H5G_open(f, name))) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTOPENOBJ, FAIL, "unable to open group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTOPENOBJ, FAIL, "unable to open group");
     }
     /* Register an atom for the group */
     if ((ret_value = H5A_register(H5_GROUP, grp)) < 0) {
-        H5G_close(grp);
-        HRETURN_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL,
-                      "unable to register group");
+	H5G_close(grp);
+	HRETURN_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL,
+		      "unable to register group");
     }
     FUNC_LEAVE(ret_value);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5Gclose
+ * Function:	H5Gclose
  *
- * Purpose:     Closes the specified group.  The group ID will no longer be
- *              valid for accessing the group.
+ * Purpose:	Closes the specified group.  The group ID will no longer be
+ *		valid for accessing the group.
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, December 31, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, December 31, 1997
  *
  * Modifications:
  *
@@ -184,48 +184,48 @@ H5Gopen(hid_t file_id, const char *name)
 herr_t
 H5Gclose(hid_t grp_id)
 {
-    H5G_t                  *grp = NULL;
+    H5G_t		   *grp = NULL;
 
     FUNC_ENTER(H5Gclose, FAIL);
     H5ECLEAR;
 
     /* Check args */
     if (H5_GROUP != H5A_group(grp_id) ||
-        NULL == (grp = H5A_object(grp_id))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a group");
+	NULL == (grp = H5A_object(grp_id))) {
+	HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a group");
     }
     /*
-     * Decrement the counter on the group atom.  It will be freed if the count
+     * Decrement the counter on the group atom.	 It will be freed if the count
      * reaches zero.
      */
     if (H5A_dec_ref(grp_id) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close group");
     }
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5Gset
+ * Function:	H5Gset
  *
- * Purpose:     Sets the working group for file handle FILE to the
- *              specified group.
+ * Purpose:	Sets the working group for file handle FILE to the
+ *		specified group.
  *
- *              Each file handle maintains its own notion of the current
- *              working group.  That is, if a single file is opened with
- *              multiple calls to H5Fopen(), which returns multiple file
- *              handles, then each handle's current working group can be
- *              set independently of the other file handles for that file.
+ *		Each file handle maintains its own notion of the current
+ *		working group.	That is, if a single file is opened with
+ *		multiple calls to H5Fopen(), which returns multiple file
+ *		handles, then each handle's current working group can be
+ *		set independently of the other file handles for that file.
  *
- * See also:    H5Gpush(), H5Gpop()
+ * See also:	H5Gpush(), H5Gpop()
  *
  * Errors:
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, September 24, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, September 24, 1997
  *
  * Modifications:
  *
@@ -234,57 +234,57 @@ H5Gclose(hid_t grp_id)
 herr_t
 H5Gset(hid_t file_id, const char *name)
 {
-    H5F_t                  *f = NULL;
-    H5G_t                  *grp;
+    H5F_t		   *f = NULL;
+    H5G_t		   *grp;
 
     FUNC_ENTER(H5Gset, FAIL);
     H5ECLEAR;
 
     /* Check/fix arguments */
     if (H5_FILE != H5A_group(file_id) ||
-        NULL == (f = H5A_object(file_id))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
+	NULL == (f = H5A_object(file_id))) {
+	HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
     }
     if (!name || !*name) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name");
+	HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name");
     }
     if (NULL == (grp = H5G_open(f, name))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_NOTFOUND, FAIL, "no such group");
+	HRETURN_ERROR(H5E_ARGS, H5E_NOTFOUND, FAIL, "no such group");
     }
     /* Set the current working group */
     if (H5G_set(f, grp) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
-                      "unable to change current working group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
+		      "unable to change current working group");
     }
     /* Close the handle */
     if (H5G_close(grp) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close group");
     }
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5Gpush
+ * Function:	H5Gpush
  *
- * Purpose:     Similar to H5Gset() except the new working group is pushed
- *              on a stack.
+ * Purpose:	Similar to H5Gset() except the new working group is pushed
+ *		on a stack.
  *
- *              Each file handle maintains its own notion of the current
- *              working group.  That is, if a single file is opened with
- *              multiple calls to H5Fopen(), which returns multiple file
- *              handles, then each handle's current working group can be
- *              set independently of the other file handles for that file.
+ *		Each file handle maintains its own notion of the current
+ *		working group.	That is, if a single file is opened with
+ *		multiple calls to H5Fopen(), which returns multiple file
+ *		handles, then each handle's current working group can be
+ *		set independently of the other file handles for that file.
  *
- * See also:    H5Gset(), H5Gpop()
+ * See also:	H5Gset(), H5Gpop()
  *
  * Errors:
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, September 24, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, September 24, 1997
  *
  * Modifications:
  *
@@ -293,59 +293,59 @@ H5Gset(hid_t file_id, const char *name)
 herr_t
 H5Gpush(hid_t file_id, const char *name)
 {
-    H5F_t                  *f = NULL;
-    H5G_t                  *grp;
+    H5F_t		   *f = NULL;
+    H5G_t		   *grp;
 
     FUNC_ENTER(H5Gpush, FAIL);
     H5ECLEAR;
 
     /* Check arguments */
     if (H5_FILE != H5A_group(file_id) ||
-        NULL == (f = H5A_object(file_id))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
+	NULL == (f = H5A_object(file_id))) {
+	HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
     }
     if (!name || !*name) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name");
+	HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name");
     }
     if (NULL == (grp = H5G_open(f, name))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_NOTFOUND, FAIL, "no such group");
+	HRETURN_ERROR(H5E_ARGS, H5E_NOTFOUND, FAIL, "no such group");
     }
     /* Push group onto stack */
     if (H5G_push(f, grp) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
-                      "can't change current working group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
+		      "can't change current working group");
     }
     /* Close the handle */
     if (H5G_close(grp) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close group");
     }
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5Gpop
+ * Function:	H5Gpop
  *
- * Purpose:     Removes the top (latest) entry from the working group stack
- *              and sets the current working group to the previous value.
+ * Purpose:	Removes the top (latest) entry from the working group stack
+ *		and sets the current working group to the previous value.
  *
- *              Each file handle maintains its own notion of the current
- *              working group.  That is, if a single file is opened with
- *              multiple calls to H5Fopen(), which returns multiple file
- *              handles, then each handle's current working group can be
- *              set independently of the other file handles for that file.
+ *		Each file handle maintains its own notion of the current
+ *		working group.	That is, if a single file is opened with
+ *		multiple calls to H5Fopen(), which returns multiple file
+ *		handles, then each handle's current working group can be
+ *		set independently of the other file handles for that file.
  *
- * See also:    H5Gset(), H5Gpush()
+ * See also:	H5Gset(), H5Gpush()
  *
  * Errors:
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL.  The final entry cannot be popped from
- *                              the group stack (but it can be changed
- *                              with H5Gset()).
+ *		Failure:	FAIL.  The final entry cannot be popped from
+ *				the group stack (but it can be changed
+ *				with H5Gset()).
  *
- * Programmer:  Robb Matzke
- *              Wednesday, September 24, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, September 24, 1997
  *
  * Modifications:
  *
@@ -354,20 +354,20 @@ H5Gpush(hid_t file_id, const char *name)
 herr_t
 H5Gpop(hid_t file_id)
 {
-    H5F_t                  *f = NULL;
+    H5F_t		   *f = NULL;
 
     FUNC_ENTER(H5Gpop, FAIL);
     H5ECLEAR;
 
     /* Check arguments */
     if (H5_FILE != H5A_group(file_id) ||
-        NULL == (f = H5A_object(file_id))) {
-        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
+	NULL == (f = H5A_object(file_id))) {
+	HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a file");
     }
     /* pop */
     if (H5G_pop(f) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
-                      "stack is empty");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
+		      "stack is empty");
     }
     FUNC_LEAVE(SUCCEED);
 }
@@ -381,16 +381,16 @@ H5Gpop(hid_t file_id)
  */
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_init_interface
+ * Function:	H5G_init_interface
  *
- * Purpose:     Initializes the H5G interface.
+ * Purpose:	Initializes the H5G interface.
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Monday, January  5, 1998
+ * Programmer:	Robb Matzke
+ *		Monday, January	 5, 1998
  *
  * Modifications:
  *
@@ -404,22 +404,22 @@ H5G_init_interface(void)
     /* Initialize the atom group for the group IDs */
     if (H5A_init_group(H5_GROUP, H5A_GROUPID_HASHSIZE, H5G_RESERVED_ATOMS,
 		       (herr_t (*)(void *)) H5G_close) < 0 ||
-        H5_add_exit(H5G_term_interface) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
-                      "unable to initialize interface");
+	H5_add_exit(H5G_term_interface) < 0) {
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
+		      "unable to initialize interface");
     }
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_term_interface
+ * Function:	H5G_term_interface
  *
- * Purpose:     Terminates the H5G interface
+ * Purpose:	Terminates the H5G interface
  *
- * Return:      void
+ * Return:	void
  *
- * Programmer:  Robb Matzke
- *              Monday, January  5, 1998
+ * Programmer:	Robb Matzke
+ *		Monday, January	 5, 1998
  *
  * Modifications:
  *
@@ -432,22 +432,22 @@ H5G_term_interface(void)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_component
+ * Function:	H5G_component
  *
- * Purpose:     Returns the pointer to the first component of the
- *              specified name by skipping leading slashes.  Returns
- *              the size in characters of the component through SIZE_P not
- *              counting leading slashes or the null terminator.
+ * Purpose:	Returns the pointer to the first component of the
+ *		specified name by skipping leading slashes.  Returns
+ *		the size in characters of the component through SIZE_P not
+ *		counting leading slashes or the null terminator.
  *
  * Errors:
  *
- * Return:      Success:        Ptr into NAME.
+ * Return:	Success:	Ptr into NAME.
  *
- *              Failure:        Ptr to the null terminator of NAME.
+ *		Failure:	Ptr to the null terminator of NAME.
  *
- * Programmer:  Robb Matzke
- *              matzke@llnl.gov
- *              Aug 11 1997
+ * Programmer:	Robb Matzke
+ *		matzke@llnl.gov
+ *		Aug 11 1997
  *
  * Modifications:
  *
@@ -459,71 +459,71 @@ H5G_component(const char *name, size_t *size_p)
     assert(name);
 
     while ('/' == *name)
-        name++;
+	name++;
     if (size_p)
-        *size_p = HDstrcspn(name, "/");
+	*size_p = HDstrcspn(name, "/");
     return name;
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_namei
- *
- * Purpose:     Translates a name to a symbol table entry.
- *
- *              If the specified name can be fully resolved, then this
- *              function returns the symbol table entry for the named object
- *              through the OBJ_ENT argument. The symbol table entry for the
- *              group containing the named object is returned through the
- *              GRP_ENT argument if it is non-null.  However, if the name
- *              refers to the root object then the GRP_ENT will be
- *              initialized with an undefined object header address.  The
- *              REST argument, if present, will point to the null terminator
- *              of NAME.
- *
- *              If the specified name cannot be fully resolved, then OBJ_ENT
- *              is initialized with the undefined object header address. The
- *              REST argument will point into the NAME argument to the start
- *              of the component that could not be located.  The GRP_ENT will
- *              contain the entry for the symbol table that was being
- *              searched at the time of the failure and will have an
- *              undefined object header address if the search failed at the
- *              root object. For instance, if NAME is `/foo/bar/baz' and the
- *              root directory exists and contains an entry for `foo', and
- *              foo is a group that contains an entry for baz, but baz is not
- *              a group, then the results will be that REST points to `baz',
- *              GRP_ENT has an undefined object header address, and GRP_ENT
- *              is the symbol table entry for `bar' in `/foo'.
- *
- *              If a file contains more than one object, then `/' is the name
- *              of the root object which is a group.  Otherwise, a file can
- *              consist of a single object, not necessarily a group, whose
- *              name is `/foo' where `foo' is the value of the name messsage
- *              in the object header.  A file can also contain no objects in
- *              which case the function returns so REST points to the
- *              beginning of NAME and OBJ_ENT and GRP_ENT contain undefined
- *              header addresses.
- *
- *              Components of a name are separated from one another by one or
- *              more slashes (/).  Slashes at the end of a name are ignored.
- *              If the name begins with a slash then the search begins at the
- *              root object, otherwise it begins at the group CWG, otherwise
- *              it begins at the current working group of file F. The
- *              component `.' is a no-op, but `..' is not understood by this
- *              function (unless it appears as an entry in the symbol table).
- *              
+ * Function:	H5G_namei
+ *
+ * Purpose:	Translates a name to a symbol table entry.
+ *
+ *		If the specified name can be fully resolved, then this
+ *		function returns the symbol table entry for the named object
+ *		through the OBJ_ENT argument. The symbol table entry for the
+ *		group containing the named object is returned through the
+ *		GRP_ENT argument if it is non-null.  However, if the name
+ *		refers to the root object then the GRP_ENT will be
+ *		initialized with an undefined object header address.  The
+ *		REST argument, if present, will point to the null terminator
+ *		of NAME.
+ *
+ *		If the specified name cannot be fully resolved, then OBJ_ENT
+ *		is initialized with the undefined object header address. The
+ *		REST argument will point into the NAME argument to the start
+ *		of the component that could not be located.  The GRP_ENT will
+ *		contain the entry for the symbol table that was being
+ *		searched at the time of the failure and will have an
+ *		undefined object header address if the search failed at the
+ *		root object. For instance, if NAME is `/foo/bar/baz' and the
+ *		root directory exists and contains an entry for `foo', and
+ *		foo is a group that contains an entry for baz, but baz is not
+ *		a group, then the results will be that REST points to `baz',
+ *		GRP_ENT has an undefined object header address, and GRP_ENT
+ *		is the symbol table entry for `bar' in `/foo'.
+ *
+ *		If a file contains more than one object, then `/' is the name
+ *		of the root object which is a group.  Otherwise, a file can
+ *		consist of a single object, not necessarily a group, whose
+ *		name is `/foo' where `foo' is the value of the name messsage
+ *		in the object header.  A file can also contain no objects in
+ *		which case the function returns so REST points to the
+ *		beginning of NAME and OBJ_ENT and GRP_ENT contain undefined
+ *		header addresses.
+ *
+ *		Components of a name are separated from one another by one or
+ *		more slashes (/).  Slashes at the end of a name are ignored.
+ *		If the name begins with a slash then the search begins at the
+ *		root object, otherwise it begins at the group CWG, otherwise
+ *		it begins at the current working group of file F. The
+ *		component `.' is a no-op, but `..' is not understood by this
+ *		function (unless it appears as an entry in the symbol table).
+ *		
  * Errors:
  *
- * Return:      Success:        SUCCEED if name can be fully resolved.  See
- *                              above for values of REST, GRP_ENT, and
- *                              OBJ_ENT.
+ * Return:	Success:	SUCCEED if name can be fully resolved.	See
+ *				above for values of REST, GRP_ENT, and
+ *				OBJ_ENT.
  *
- *              Failure:        FAIL if the name could not be fully resolved.
- *                              See above for values of REST, GRP_ENT, and
- *                              OBJ_ENT.
+ *		Failure:	FAIL if the name could not be fully resolved.
+ *				See above for values of REST, GRP_ENT, and
+ *				OBJ_ENT.
  *
- * Programmer:  Robb Matzke
- *              matzke@llnl.gov
- *              Aug 11 1997
+ * Programmer:	Robb Matzke
+ *		matzke@llnl.gov
+ *		Aug 11 1997
  *
  * Modifications:
  *
@@ -531,22 +531,22 @@ H5G_component(const char *name, size_t *size_p)
  */
 static herr_t
 H5G_namei(H5F_t *f, H5G_entry_t *cwg, const char *name,
-          const char **rest /*out */ , H5G_entry_t *grp_ent /*out */ ,
-          H5G_entry_t *obj_ent /*out */ )
+	  const char **rest /*out */ , H5G_entry_t *grp_ent /*out */ ,
+	  H5G_entry_t *obj_ent /*out */ )
 {
-    H5G_entry_t             _grp_ent;   /*entry for current group       */
-    H5G_entry_t             _obj_ent;   /*entry found                   */
-    size_t                  nchars;     /*component name length         */
-    char                    comp[1024];         /*component name buffer         */
-    hbool_t                 aside = FALSE;      /*did we look at a name message? */
+    H5G_entry_t		    _grp_ent;	/*entry for current group	*/
+    H5G_entry_t		    _obj_ent;	/*entry found			*/
+    size_t		    nchars;	/*component name length		*/
+    char		    comp[1024];		/*component name buffer		*/
+    hbool_t		    aside = FALSE;	/*did we look at a name message? */
 
     /* clear output args before FUNC_ENTER() in case it fails */
     if (rest)
-        *rest = name;
+	*rest = name;
     if (!grp_ent)
-        grp_ent = &_grp_ent;
+	grp_ent = &_grp_ent;
     if (!obj_ent)
-        obj_ent = &_obj_ent;
+	obj_ent = &_obj_ent;
     memset(grp_ent, 0, sizeof(H5G_entry_t));
     H5F_addr_undef(&(grp_ent->header));
     memset(obj_ent, 0, sizeof(H5G_entry_t));
@@ -560,104 +560,104 @@ H5G_namei(H5F_t *f, H5G_entry_t *cwg, const char *name,
 
     /* If the file contains no objects then return failure */
     if (!f->shared->root_ent) {
-        HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "no root group");
+	HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "no root group");
     }
     /* starting point */
     if ('/' == *name) {
-        *obj_ent = *(f->shared->root_ent);
+	*obj_ent = *(f->shared->root_ent);
     } else if (cwg) {
-        *obj_ent = *cwg;
+	*obj_ent = *cwg;
     } else if ((cwg = H5G_getcwg(f))) {
-        *obj_ent = *cwg;
+	*obj_ent = *cwg;
     } else {
-        HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "no current working group");
+	HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "no current working group");
     }
     assert(H5F_addr_defined(&(obj_ent->header)));
 
     /* traverse the name */
     while ((name = H5G_component(name, &nchars)) && *name) {
-        if (rest)
-            *rest = name;
-
-        /*
-         * The special name `.' is a no-op.
-         */
-        if ('.' == name[0] && !name[1])
-            continue;
-
-        /*
-         * Advance to the next component of the name.
-         */
-        *grp_ent = *obj_ent;
-        HDmemset(obj_ent, 0, sizeof(H5G_entry_t));
-        H5F_addr_undef(&(obj_ent->header));
-
-        /*
-         * Copy the component name into a null-terminated buffer so
-         * we can pass it down to the other symbol table functions.
-         */
-        if (nchars + 1 > sizeof(comp)) {
-            HRETURN_ERROR(H5E_SYM, H5E_COMPLEN, FAIL, "component is too long");
-        }
-        HDmemcpy(comp, name, nchars);
-        comp[nchars] = '\0';
-
-        if (H5G_stab_find(grp_ent, comp, obj_ent /*out */ ) < 0) {
-            /*
-             * Component was not found in the current symbol table, possibly
-             * because GRP_ENT isn't a symbol table.  If it is the root symbol
-             * then see if it has the appropriate name field.  The ASIDE
-             * variable prevents us from saying `/foo/foo' where the root object
-             * has the name `foo'.
-             */
-            H5O_name_t              mesg =
-            {0};
-            if (!aside &&
-                H5F_addr_eq(&(grp_ent->header),
-                            &(f->shared->root_ent->header)) &&
-                H5O_read(grp_ent, H5O_NAME, 0, &mesg) &&
-                !HDstrcmp(mesg.s, comp)) {
-                H5O_reset(H5O_NAME, &mesg);
-                *obj_ent = *grp_ent;
-                HDmemset(grp_ent, 0, sizeof(H5G_entry_t));
-                H5F_addr_undef(&(grp_ent->header));
-                aside = TRUE;
-            } else {
-                H5O_reset(H5O_NAME, &mesg);
-                HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "component not found");
-            }
-        }
-        /* next component */
-        name += nchars;
+	if (rest)
+	    *rest = name;
+
+	/*
+	 * The special name `.' is a no-op.
+	 */
+	if ('.' == name[0] && !name[1])
+	    continue;
+
+	/*
+	 * Advance to the next component of the name.
+	 */
+	*grp_ent = *obj_ent;
+	HDmemset(obj_ent, 0, sizeof(H5G_entry_t));
+	H5F_addr_undef(&(obj_ent->header));
+
+	/*
+	 * Copy the component name into a null-terminated buffer so
+	 * we can pass it down to the other symbol table functions.
+	 */
+	if (nchars + 1 > sizeof(comp)) {
+	    HRETURN_ERROR(H5E_SYM, H5E_COMPLEN, FAIL, "component is too long");
+	}
+	HDmemcpy(comp, name, nchars);
+	comp[nchars] = '\0';
+
+	if (H5G_stab_find(grp_ent, comp, obj_ent /*out */ ) < 0) {
+	    /*
+	     * Component was not found in the current symbol table, possibly
+	     * because GRP_ENT isn't a symbol table.  If it is the root symbol
+	     * then see if it has the appropriate name field.  The ASIDE
+	     * variable prevents us from saying `/foo/foo' where the root object
+	     * has the name `foo'.
+	     */
+	    H5O_name_t		    mesg =
+	    {0};
+	    if (!aside &&
+		H5F_addr_eq(&(grp_ent->header),
+			    &(f->shared->root_ent->header)) &&
+		H5O_read(grp_ent, H5O_NAME, 0, &mesg) &&
+		!HDstrcmp(mesg.s, comp)) {
+		H5O_reset(H5O_NAME, &mesg);
+		*obj_ent = *grp_ent;
+		HDmemset(grp_ent, 0, sizeof(H5G_entry_t));
+		H5F_addr_undef(&(grp_ent->header));
+		aside = TRUE;
+	    } else {
+		H5O_reset(H5O_NAME, &mesg);
+		HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "component not found");
+	    }
+	}
+	/* next component */
+	name += nchars;
     }
     if (rest)
-        *rest = name;           /*final null */
+	*rest = name;		/*final null */
 
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_mkroot
+ * Function:	H5G_mkroot
  *
- * Purpose:     Creates the root group if it doesn't exist; otherwise
- *              nothing happens.  If the root symbol table entry previously
- *              pointed to something other than a group, then that object
- *              is made a member of the root group and is given a name
- *              corresponding to the object's name message (the name message
- *              is removed).  If the root object doesn't have a name message
- *              then the name `Root Object' is used.
+ * Purpose:	Creates the root group if it doesn't exist; otherwise
+ *		nothing happens.  If the root symbol table entry previously
+ *		pointed to something other than a group, then that object
+ *		is made a member of the root group and is given a name
+ *		corresponding to the object's name message (the name message
+ *		is removed).  If the root object doesn't have a name message
+ *		then the name `Root Object' is used.
  *
  * Errors:
  * 
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL.  This function returns -2 if the
- *                              failure is because a root group already
- *                              exists.
+ *		Failure:	FAIL.  This function returns -2 if the
+ *				failure is because a root group already
+ *				exists.
  *
- * Programmer:  Robb Matzke
- *              matzke@llnl.gov
- *              Aug 11 1997
+ * Programmer:	Robb Matzke
+ *		matzke@llnl.gov
+ *		Aug 11 1997
  *
  * Modifications:
  *
@@ -666,12 +666,12 @@ H5G_namei(H5F_t *f, H5G_entry_t *cwg, const char *name,
 static herr_t
 H5G_mkroot(H5F_t *f, size_t size_hint)
 {
-    herr_t                  ret_value = FAIL;   /*return value                  */
-    H5O_name_t              name =
-    {NULL};                     /*object name                   */
-    H5O_stab_t              stab;       /*symbol table message          */
-    H5G_entry_t             new_root;   /*new root object               */
-    const char             *obj_name = NULL;    /*name of old root object       */
+    herr_t		    ret_value = FAIL;	/*return value			*/
+    H5O_name_t		    name =
+    {NULL};			/*object name			*/
+    H5O_stab_t		    stab;	/*symbol table message		*/
+    H5G_entry_t		    new_root;	/*new root object		*/
+    const char		   *obj_name = NULL;	/*name of old root object	*/
 
     FUNC_ENTER(H5G_mkroot, FAIL);
 
@@ -682,23 +682,23 @@ H5G_mkroot(H5F_t *f, size_t size_hint)
      * If we already have a root object, then get it's name.
      */
     if (f->shared->root_ent) {
-        if (H5O_read(f->shared->root_ent, H5O_STAB, 0, &stab)) {
-            HGOTO_ERROR(H5E_SYM, H5E_EXISTS, -2, "root group already exists");
-        } else if (NULL == H5O_read(f->shared->root_ent, H5O_NAME, 0, &name)) {
-            obj_name = "Root Object";
-        } else {
-            obj_name = name.s;  /*don't reset message until the end! */
-        }
+	if (H5O_read(f->shared->root_ent, H5O_STAB, 0, &stab)) {
+	    HGOTO_ERROR(H5E_SYM, H5E_EXISTS, -2, "root group already exists");
+	} else if (NULL == H5O_read(f->shared->root_ent, H5O_NAME, 0, &name)) {
+	    obj_name = "Root Object";
+	} else {
+	    obj_name = name.s;	/*don't reset message until the end! */
+	}
     }
     /*
      * Create the new root group.  Set the link count to 1.
      */
     if (H5G_stab_create(f, size_hint, &new_root /*out */ ) < 0) {
-        HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "cant create root");
+	HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "cant create root");
     }
     if (1 != H5O_link(&new_root, 1)) {
-        HGOTO_ERROR(H5E_SYM, H5E_LINK, FAIL,
-                    "internal error (wrong link count)");
+	HGOTO_ERROR(H5E_SYM, H5E_LINK, FAIL,
+		    "internal error (wrong link count)");
     }
     /*
      * If there was a previous root object then insert it into the new root
@@ -706,24 +706,24 @@ H5G_mkroot(H5F_t *f, size_t size_hint)
      * new symbol table.
      */
     if (f->shared->root_ent) {
-        assert(1 == H5O_link(f->shared->root_ent, 0));
-
-        if (H5G_stab_insert(&new_root, obj_name, f->shared->root_ent) < 0) {
-            HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
-                        "can't reinsert old root object");
-        }
-        /*
-         * Remove all `name' messages from the old root object.  The only time
-         * a name message should ever appear is to give the root object a name,
-         * but the old root object is no longer the root object.
-         */
-        H5O_remove(f->shared->root_ent, H5O_NAME, H5O_ALL);
-        H5ECLEAR;               /*who really cares? */
-
-        *(f->shared->root_ent) = new_root;
+	assert(1 == H5O_link(f->shared->root_ent, 0));
+
+	if (H5G_stab_insert(&new_root, obj_name, f->shared->root_ent) < 0) {
+	    HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
+			"can't reinsert old root object");
+	}
+	/*
+	 * Remove all `name' messages from the old root object.	 The only time
+	 * a name message should ever appear is to give the root object a name,
+	 * but the old root object is no longer the root object.
+	 */
+	H5O_remove(f->shared->root_ent, H5O_NAME, H5O_ALL);
+	H5ECLEAR;		/*who really cares? */
+
+	*(f->shared->root_ent) = new_root;
 
     } else {
-        f->shared->root_ent = H5G_ent_calloc(&new_root);
+	f->shared->root_ent = H5G_ent_calloc(&new_root);
     }
 
     H5O_close(&new_root);
@@ -735,42 +735,42 @@ H5G_mkroot(H5F_t *f, size_t size_hint)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_create
+ * Function:	H5G_create
  *
- * Purpose:     Creates a new empty group with the specified name. The name
- *              is either an absolute name or is relative to the current
- *              working group.
+ * Purpose:	Creates a new empty group with the specified name. The name
+ *		is either an absolute name or is relative to the current
+ *		working group.
  *
- *              A root group is created implicitly by this function
- *              when necessary.  Calling this function with the name "/"
- *              (or any equivalent name) will result in an H5E_EXISTS
- *              failure.
+ *		A root group is created implicitly by this function
+ *		when necessary.	 Calling this function with the name "/"
+ *		(or any equivalent name) will result in an H5E_EXISTS
+ *		failure.
  *
  * Errors:
  *
- * Return:      Success:        A handle for the group.  The group is opened
- *                              and should eventually be close by calling
- *                              H5G_close().
+ * Return:	Success:	A handle for the group.	 The group is opened
+ *				and should eventually be close by calling
+ *				H5G_close().
  *
- *              Failure:        NULL
+ *		Failure:	NULL
  *
- * Programmer:  Robb Matzke
- *              matzke@llnl.gov
- *              Aug 11 1997
+ * Programmer:	Robb Matzke
+ *		matzke@llnl.gov
+ *		Aug 11 1997
  *
  * Modifications:
  *
  *-------------------------------------------------------------------------
  */
-H5G_t                  *
+H5G_t		       *
 H5G_create(H5F_t *f, const char *name, size_t size_hint)
 {
-    const char             *rest = NULL;        /*the base name                 */
-    H5G_entry_t             grp_ent;    /*group containing new group    */
-    char                    _comp[1024];        /*name component                */
-    size_t                  nchars;     /*number of characters in compon */
-    herr_t                  status;     /*function return status        */
-    H5G_t                  *grp = NULL;         /*new group                     */
+    const char		   *rest = NULL;	/*the base name			*/
+    H5G_entry_t		    grp_ent;	/*group containing new group	*/
+    char		    _comp[1024];	/*name component		*/
+    size_t		    nchars;	/*number of characters in compon */
+    herr_t		    status;	/*function return status	*/
+    H5G_t		   *grp = NULL;		/*new group			*/
 
     FUNC_ENTER(H5G_create, NULL);
 
@@ -783,70 +783,70 @@ H5G_create(H5F_t *f, const char *name, size_t size_hint)
      * fails because the root group already exists.
      */
     if ((status = H5G_mkroot(f, H5G_SIZE_HINT)) < 0 && -2 != status) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, NULL, "can't create root group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, NULL, "can't create root group");
     }
     H5ECLEAR;
 
     /* lookup name */
     if (0 == H5G_namei(f, NULL, name, &rest, &grp_ent, NULL)) {
-        HRETURN_ERROR(H5E_SYM, H5E_EXISTS, NULL, "already exists");
+	HRETURN_ERROR(H5E_SYM, H5E_EXISTS, NULL, "already exists");
     }
-    H5ECLEAR;                   /*it's OK that we didn't find it */
+    H5ECLEAR;			/*it's OK that we didn't find it */
     assert(H5F_addr_defined(&(grp_ent.header)));
 
     /* should be one null-terminated component left */
     rest = H5G_component(rest, &nchars);
     assert(rest && *rest);
     if (rest[nchars]) {
-        if (H5G_component(rest + nchars, NULL)) {
-            HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, NULL, "missing component");
-        } else if (nchars + 1 > sizeof _comp) {
-            HRETURN_ERROR(H5E_SYM, H5E_COMPLEN, NULL, "component is too long");
-        } else {
-            /* null terminate */
-            HDmemcpy(_comp, rest, nchars);
-            _comp[nchars] = '\0';
-            rest = _comp;
-        }
+	if (H5G_component(rest + nchars, NULL)) {
+	    HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, NULL, "missing component");
+	} else if (nchars + 1 > sizeof _comp) {
+	    HRETURN_ERROR(H5E_SYM, H5E_COMPLEN, NULL, "component is too long");
+	} else {
+	    /* null terminate */
+	    HDmemcpy(_comp, rest, nchars);
+	    _comp[nchars] = '\0';
+	    rest = _comp;
+	}
     }
     /* create an open group */
     grp = H5MM_xcalloc(1, sizeof(H5G_t));
     if (H5G_stab_create(f, size_hint, &(grp->ent) /*out */ ) < 0) {
-        grp = H5MM_xfree(grp);
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, NULL, "can't create grp");
+	grp = H5MM_xfree(grp);
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, NULL, "can't create grp");
     }
     /* insert child name into parent */
     if (H5G_stab_insert(&grp_ent, rest, &(grp->ent)) < 0) {
-        H5O_close(&(grp->ent));
-        grp = H5MM_xfree(grp);
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, NULL, "can't insert");
+	H5O_close(&(grp->ent));
+	grp = H5MM_xfree(grp);
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, NULL, "can't insert");
     }
     grp->nref = 1;
     FUNC_LEAVE(grp);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_open
+ * Function:	H5G_open
  *
- * Purpose:     Opens an existing group.  The group should eventually be
- *              closed by calling H5G_close().
+ * Purpose:	Opens an existing group.  The group should eventually be
+ *		closed by calling H5G_close().
  *
- * Return:      Success:        Ptr to a new group.
+ * Return:	Success:	Ptr to a new group.
  *
- *              Failure:        NULL
+ *		Failure:	NULL
  *
- * Programmer:  Robb Matzke
- *              Monday, January  5, 1998
+ * Programmer:	Robb Matzke
+ *		Monday, January	 5, 1998
  *
  * Modifications:
  *
  *-------------------------------------------------------------------------
  */
-H5G_t                  *
+H5G_t		       *
 H5G_open(H5F_t *f, const char *name)
 {
-    H5G_t                  *grp = NULL;
-    H5G_t                  *ret_value = NULL;
+    H5G_t		   *grp = NULL;
+    H5G_t		   *ret_value = NULL;
 
     FUNC_ENTER(H5G_open, NULL);
 
@@ -857,38 +857,38 @@ H5G_open(H5F_t *f, const char *name)
     /* Open the group */
     grp = H5MM_xcalloc(1, sizeof(H5G_t));
     if (H5G_find(f, name, NULL, &(grp->ent)) < 0) {
-        HGOTO_ERROR(H5E_SYM, H5E_NOTFOUND, NULL, "group not found");
+	HGOTO_ERROR(H5E_SYM, H5E_NOTFOUND, NULL, "group not found");
     }
     if (H5O_open(f, &(grp->ent)) < 0) {
-        HGOTO_ERROR(H5E_SYM, H5E_CANTOPENOBJ, NULL, "unable to open group");
+	HGOTO_ERROR(H5E_SYM, H5E_CANTOPENOBJ, NULL, "unable to open group");
     }
     grp->nref = 1;
     ret_value = grp;
 
   done:
     if (!ret_value && grp) {
-        H5MM_xfree(grp);
+	H5MM_xfree(grp);
     }
     FUNC_LEAVE(ret_value);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_reopen
+ * Function:	H5G_reopen
  *
- * Purpose:     Reopens a group by incrementing the open count.
+ * Purpose:	Reopens a group by incrementing the open count.
  *
- * Return:      Success:        The GRP argument.
+ * Return:	Success:	The GRP argument.
  *
- *              Failure:        NULL
+ *		Failure:	NULL
  *
- * Programmer:  Robb Matzke
- *              Monday, January  5, 1998
+ * Programmer:	Robb Matzke
+ *		Monday, January	 5, 1998
  *
  * Modifications:
  *
  *-------------------------------------------------------------------------
  */
-H5G_t                  *
+H5G_t		       *
 H5G_reopen(H5G_t *grp)
 {
     FUNC_ENTER(H5G_reopen, NULL);
@@ -902,16 +902,16 @@ H5G_reopen(H5G_t *grp)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_close
+ * Function:	H5G_close
  *
- * Purpose:     Closes the specified group.
+ * Purpose:	Closes the specified group.
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Monday, January  5, 1998
+ * Programmer:	Robb Matzke
+ *		Monday, January	 5, 1998
  *
  * Modifications:
  *
@@ -927,9 +927,9 @@ H5G_close(H5G_t *grp)
     assert(grp->nref > 0);
 
     if (1 == grp->nref) {
-        if (H5O_close(&(grp->ent)) < 0) {
-            HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close");
-        }
+	if (H5O_close(&(grp->ent)) < 0) {
+	    HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to close");
+	}
     }
     --grp->nref;
 
@@ -937,28 +937,28 @@ H5G_close(H5G_t *grp)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_set
+ * Function:	H5G_set
  *
- * Purpose:     Sets the current working group to be the specified group.
- *              This affects only the top item on the group stack for the
- *              specified file as accessed through this file handle.  If the
- *              file is opened multiple times, then the current working group
- *              for this file handle is the only one that is changed.
+ * Purpose:	Sets the current working group to be the specified group.
+ *		This affects only the top item on the group stack for the
+ *		specified file as accessed through this file handle.  If the
+ *		file is opened multiple times, then the current working group
+ *		for this file handle is the only one that is changed.
  *
- * Note:        The group is re-opened and held open until it is removed from
- *              the current working group stack.
+ * Note:	The group is re-opened and held open until it is removed from
+ *		the current working group stack.
  *
  * Errors:
- *              SYM       CWG           Can't open group. 
- *              SYM       CWG           Couldn't close previous c.w.g. 
- *              SYM       CWG           Not a group. 
+ *		SYM	  CWG		Can't open group. 
+ *		SYM	  CWG		Couldn't close previous c.w.g. 
+ *		SYM	  CWG		Not a group. 
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, September 24, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, September 24, 1997
  *
  * Modifications:
  *
@@ -978,9 +978,9 @@ H5G_set(H5F_t *f, H5G_t *grp)
      * working group.
      */
     if (!f->cwg_stack) {
-        f->cwg_stack = H5MM_xcalloc(1, sizeof(H5G_cwgstk_t));
+	f->cwg_stack = H5MM_xcalloc(1, sizeof(H5G_cwgstk_t));
     } else if (H5G_close(f->cwg_stack->grp) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CWG, FAIL, "couldn't close previous c.w.g.");
+	HRETURN_ERROR(H5E_SYM, H5E_CWG, FAIL, "couldn't close previous c.w.g.");
     }
     f->cwg_stack->grp = H5G_reopen(grp);
 
@@ -988,22 +988,22 @@ H5G_set(H5F_t *f, H5G_t *grp)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_getcwg
+ * Function:	H5G_getcwg
  *
- * Purpose:     Returns a ptr to the symbol table entry for the current
- *              working group.  If there is no current working group then a
- *              pointer to the root symbol is returned.  If there is no root
- *              symbol then the null pointer is returned.
+ * Purpose:	Returns a ptr to the symbol table entry for the current
+ *		working group.	If there is no current working group then a
+ *		pointer to the root symbol is returned.	 If there is no root
+ *		symbol then the null pointer is returned.
  *
- * Return:      Success:        Ptr to the current working group or root
- *                              object. The pointer is valid only until the
- *                              root object changes or the current working
- *                              group changes.
+ * Return:	Success:	Ptr to the current working group or root
+ *				object. The pointer is valid only until the
+ *				root object changes or the current working
+ *				group changes.
  *
- *              Failure:        NULL
+ *		Failure:	NULL
  *
- * Programmer:  Robb Matzke
- *              Wednesday, September 24, 1997
+ * Programmer:	Robb Matzke
+ *		Wednesday, September 24, 1997
  *
  * Modifications:
  *
@@ -1012,7 +1012,7 @@ H5G_set(H5F_t *f, H5G_t *grp)
 static H5G_entry_t     *
 H5G_getcwg(H5F_t *f)
 {
-    H5G_entry_t            *ret_value = NULL;
+    H5G_entry_t		   *ret_value = NULL;
 
     FUNC_ENTER(H5G_getcwg, NULL);
 
@@ -1021,30 +1021,30 @@ H5G_getcwg(H5F_t *f)
 
     /* return a pointer directly into the stack */
     if (f->cwg_stack && f->cwg_stack->grp) {
-        ret_value = &(f->cwg_stack->grp->ent);
+	ret_value = &(f->cwg_stack->grp->ent);
     } else {
-        ret_value = f->shared->root_ent;
+	ret_value = f->shared->root_ent;
     }
 
     FUNC_LEAVE(ret_value);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_push
+ * Function:	H5G_push
  *
- * Purpose:     Pushes a new current working group onto the stack.  The GRP
- *              is reopened and held open until it is removed from the stack.
+ * Purpose:	Pushes a new current working group onto the stack.  The GRP
+ *		is reopened and held open until it is removed from the stack.
  *
  * Errors:
- *              SYM       CWG           Can't open group. 
- *              SYM       CWG           Not a group. 
+ *		SYM	  CWG		Can't open group. 
+ *		SYM	  CWG		Not a group. 
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Friday, September 19, 1997
+ * Programmer:	Robb Matzke
+ *		Friday, September 19, 1997
  *
  * Modifications:
  *
@@ -1053,7 +1053,7 @@ H5G_getcwg(H5F_t *f)
 herr_t
 H5G_push(H5F_t *f, H5G_t *grp)
 {
-    H5G_cwgstk_t           *stack = NULL;
+    H5G_cwgstk_t	   *stack = NULL;
 
     FUNC_ENTER(H5G_push, FAIL);
 
@@ -1073,20 +1073,20 @@ H5G_push(H5F_t *f, H5G_t *grp)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_pop
+ * Function:	H5G_pop
  *
- * Purpose:     Pops the top current working group off the stack.
+ * Purpose:	Pops the top current working group off the stack.
  *
  * Errors:
- *              SYM       CWG           Can't close current working group. 
- *              SYM       CWG           Stack is empty. 
+ *		SYM	  CWG		Can't close current working group. 
+ *		SYM	  CWG		Stack is empty. 
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL if the stack is empty.
+ *		Failure:	FAIL if the stack is empty.
  *
- * Programmer:  Robb Matzke
- *              Friday, September 19, 1997
+ * Programmer:	Robb Matzke
+ *		Friday, September 19, 1997
  *
  * Modifications:
  *
@@ -1095,7 +1095,7 @@ H5G_push(H5F_t *f, H5G_t *grp)
 herr_t
 H5G_pop(H5F_t *f)
 {
-    H5G_cwgstk_t           *stack = NULL;
+    H5G_cwgstk_t	   *stack = NULL;
 
     FUNC_ENTER(H5G_pop, FAIL);
 
@@ -1103,34 +1103,34 @@ H5G_pop(H5F_t *f)
     assert(f);
 
     if ((stack = f->cwg_stack)) {
-        if (H5G_close(stack->grp) < 0) {
-            HRETURN_ERROR(H5E_SYM, H5E_CWG, FAIL,
-                          "can't close current working group");
-        }
-        f->cwg_stack = stack->next;
-        stack->grp = NULL;
-        H5MM_xfree(stack);
+	if (H5G_close(stack->grp) < 0) {
+	    HRETURN_ERROR(H5E_SYM, H5E_CWG, FAIL,
+			  "can't close current working group");
+	}
+	f->cwg_stack = stack->next;
+	stack->grp = NULL;
+	H5MM_xfree(stack);
     } else {
-        HRETURN_ERROR(H5E_SYM, H5E_CWG, FAIL, "stack is empty");
+	HRETURN_ERROR(H5E_SYM, H5E_CWG, FAIL, "stack is empty");
     }
 
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_insert
+ * Function:	H5G_insert
  *
- * Purpose:     Inserts a symbol table entry into the group graph.  The file
- *              that is used is contained in the ENT argument.
+ * Purpose:	Inserts a symbol table entry into the group graph.  The file
+ *		that is used is contained in the ENT argument.
  *
  * Errors:
  *
- * Return:      Success:        SUCCEED
+ * Return:	Success:	SUCCEED
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              Friday, September 19, 1997
+ * Programmer:	Robb Matzke
+ *		Friday, September 19, 1997
  *
  * Modifications:
  *
@@ -1139,12 +1139,12 @@ H5G_pop(H5F_t *f)
 herr_t
 H5G_insert(const char *name, H5G_entry_t *ent)
 {
-    const char             *rest = NULL;        /*part of name not existing yet */
-    H5G_entry_t             grp;        /*entry for group to contain obj */
-    size_t                  nchars;     /*number of characters in name  */
-    char                    _comp[1024];        /*name component                */
-    hbool_t                 update_grp;
-    herr_t                  status;
+    const char	*rest = NULL;	/*part of name not existing yet */
+    H5G_entry_t	grp;		/*entry for group to contain obj */
+    size_t	nchars;		/*number of characters in name	*/
+    char	_comp[1024];	/*name component		*/
+    hbool_t	update_grp;
+    herr_t	status;
 
     FUNC_ENTER(H5G_insert, FAIL);
 
@@ -1156,114 +1156,114 @@ H5G_insert(const char *name, H5G_entry_t *ent)
      * Look up the name -- it shouldn't exist yet.
      */
     if (H5G_namei(ent->file, NULL, name, &rest, &grp, NULL) >= 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_EXISTS, FAIL, "already exists");
+	HRETURN_ERROR(H5E_SYM, H5E_EXISTS, FAIL, "already exists");
     }
-    H5ECLEAR;                   /*it's OK that we didn't find it */
+    H5ECLEAR;			/*it's OK that we didn't find it */
     rest = H5G_component(rest, &nchars);
 
     if (!rest || !*rest) {
-        /*
-         * The caller is attempting to insert a root object that either
-         * doesn't have a name or we shouldn't interfere with the name
-         * it already has as a message.
-         */
-        if (ent->file->shared->root_ent) {
-            HRETURN_ERROR(H5E_SYM, H5E_EXISTS, FAIL, "root exists");
-        }
-        if (1 != H5O_link(ent, 1)) {
-            HRETURN_ERROR(H5E_SYM, H5E_LINK, FAIL, "bad link count");
-        }
-        ent->name_off = 0;
-        ent->file->shared->root_ent = H5G_ent_calloc(ent);
-        HRETURN(SUCCEED);
+	/*
+	 * The caller is attempting to insert a root object that either
+	 * doesn't have a name or we shouldn't interfere with the name
+	 * it already has as a message.
+	 */
+	if (ent->file->shared->root_ent) {
+	    HRETURN_ERROR(H5E_SYM, H5E_EXISTS, FAIL, "root exists");
+	}
+	if (1 != H5O_link(ent, 1)) {
+	    HRETURN_ERROR(H5E_SYM, H5E_LINK, FAIL, "bad link count");
+	}
+	ent->name_off = 0;
+	ent->file->shared->root_ent = H5G_ent_calloc(ent);
+	HRETURN(SUCCEED);
     }
     /*
      * There should be one component left.  Make sure it's null
      * terminated.
      */
     if (rest[nchars]) {
-        if (H5G_component(rest + nchars, NULL)) {
-            HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "component not found");
-        } else if (nchars + 1 > sizeof _comp) {
-            HRETURN_ERROR(H5E_SYM, H5E_COMPLEN, FAIL, "component is too long");
-        } else {
-            /* null terminate */
-            HDmemcpy(_comp, rest, nchars);
-            _comp[nchars] = '\0';
-            rest = _comp;
-        }
+	if (H5G_component(rest + nchars, NULL)) {
+	    HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "component not found");
+	} else if (nchars + 1 > sizeof _comp) {
+	    HRETURN_ERROR(H5E_SYM, H5E_COMPLEN, FAIL, "component is too long");
+	} else {
+	    /* null terminate */
+	    HDmemcpy(_comp, rest, nchars);
+	    _comp[nchars] = '\0';
+	    rest = _comp;
+	}
     }
     if (!ent->file->shared->root_ent) {
-        /*
-         * This will be the only object in the file. Insert it as the root
-         * object and add a name messaage to the object header (or modify
-         * the first one we find).
-         */
-        H5O_name_t              name_mesg;
-        name_mesg.s = rest;
-        if (H5O_modify(ent, H5O_NAME, 0, 0, &name_mesg) < 0) {
-            HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
-                          "cannot add/change name message");
-        }
-        if (1 != H5O_link(ent, 1)) {
-            HRETURN_ERROR(H5E_SYM, H5E_LINK, FAIL, "bad link count");
-        }
-        ent->file->shared->root_ent = H5G_ent_calloc(ent);
-        HRETURN(SUCCEED);
+	/*
+	 * This will be the only object in the file. Insert it as the root
+	 * object and add a name messaage to the object header (or modify
+	 * the first one we find).
+	 */
+	H5O_name_t		name_mesg;
+	name_mesg.s = rest;
+	if (H5O_modify(ent, H5O_NAME, 0, 0, &name_mesg) < 0) {
+	    HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL,
+			  "cannot add/change name message");
+	}
+	if (1 != H5O_link(ent, 1)) {
+	    HRETURN_ERROR(H5E_SYM, H5E_LINK, FAIL, "bad link count");
+	}
+	ent->file->shared->root_ent = H5G_ent_calloc(ent);
+	HRETURN(SUCCEED);
     }
     /*
-     * Make sure the root group exists.  Ignore the failure if it's
+     * Make sure the root group exists.	 Ignore the failure if it's
      * because the group already exists.
      */
     update_grp = H5F_addr_eq(&(grp.header),
-                             &(ent->file->shared->root_ent->header));
+			     &(ent->file->shared->root_ent->header));
     if ((status = H5G_mkroot(ent->file, H5G_SIZE_HINT)) < 0 && -2 != status) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "can't create root group");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "can't create root group");
     }
     H5ECLEAR;
     if (update_grp)
-        grp = *(ent->file->shared->root_ent);
+	grp = *(ent->file->shared->root_ent);
 
     /*
-     * This is the normal case.  The object is just being inserted as a normal
+     * This is the normal case.	 The object is just being inserted as a normal
      * entry into a symbol table.
      */
     if (H5O_link(ent, 1) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_LINK, FAIL, "link inc failure");
+	HRETURN_ERROR(H5E_SYM, H5E_LINK, FAIL, "link inc failure");
     }
     if (H5G_stab_insert(&grp, rest, ent) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "can't insert");
+	HRETURN_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "can't insert");
     }
     FUNC_LEAVE(SUCCEED);
 }
 
 /*-------------------------------------------------------------------------
- * Function:    H5G_find
- *
- * Purpose:     Finds an object with the specified NAME in file F.  If
- *              the name is relative then it is interpretted relative
- *              to the current working group.  On successful return,
- *              GRP_ENT (if non-null) will be initialized with the symbol
- *              table information for the group in which the object
- *              appears (it will have an undefined object header address if
- *              the object is the root object) and OBJ_ENT will be
- *              initialized with the symbol table entry for the object
- *              (OBJ_ENT is optional when the caller is interested only in
- *              the existence of the object).
- *
- *              This function will fail if the root object is requested and
- *              there is none.
+ * Function:	H5G_find
+ *
+ * Purpose:	Finds an object with the specified NAME in file F.  If
+ *		the name is relative then it is interpretted relative
+ *		to the current working group.  On successful return,
+ *		GRP_ENT (if non-null) will be initialized with the symbol
+ *		table information for the group in which the object
+ *		appears (it will have an undefined object header address if
+ *		the object is the root object) and OBJ_ENT will be
+ *		initialized with the symbol table entry for the object
+ *		(OBJ_ENT is optional when the caller is interested only in
+ *		the existence of the object).
+ *
+ *		This function will fail if the root object is requested and
+ *		there is none.
  *
  * Errors:
  *
- * Return:      Success:        SUCCEED, see above for values of GRP_ENT and
- *                              OBJ_ENT.
+ * Return:	Success:	SUCCEED, see above for values of GRP_ENT and
+ *				OBJ_ENT.
  *
- *              Failure:        FAIL
+ *		Failure:	FAIL
  *
- * Programmer:  Robb Matzke
- *              matzke@llnl.gov
- *              Aug 12 1997
+ * Programmer:	Robb Matzke
+ *		matzke@llnl.gov
+ *		Aug 12 1997
  *
  * Modifications:
  *
@@ -1271,7 +1271,7 @@ H5G_insert(const char *name, H5G_entry_t *ent)
  */
 herr_t
 H5G_find(H5F_t *f, const char *name,
-         H5G_entry_t *grp_ent /*out */ , H5G_entry_t *obj_ent /*out */ )
+	 H5G_entry_t *grp_ent /*out */ , H5G_entry_t *obj_ent /*out */ )
 {
     FUNC_ENTER(H5G_find, FAIL);
 
@@ -1280,7 +1280,7 @@ H5G_find(H5F_t *f, const char *name,
     assert(name && *name);
 
     if (H5G_namei(f, NULL, name, NULL, grp_ent, obj_ent) < 0) {
-        HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "object not found");
+	HRETURN_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "object not found");
     }
     FUNC_LEAVE(SUCCEED);
 }
diff --git a/src/H5Gnode.c b/src/H5Gnode.c
index d1d53ea..be021dd 100644
--- a/src/H5Gnode.c
+++ b/src/H5Gnode.c
@@ -753,11 +753,9 @@ H5G_node_insert(H5F_t *f, const haddr_t *addr,
     idx += cmp > 0 ? 1 : 0;
 
     /*
-     * Add the new name to the heap.  The caller will check if the
-     * heap address changed and update the symbol table object header
-     * with the new heap address.
+     * Add the new name to the heap.
      */
-    offset = H5H_insert(f, &(bt_udata->heap_addr), HDstrlen(bt_udata->name) + 1,
+    offset = H5H_insert(f, &(bt_udata->heap_addr), HDstrlen(bt_udata->name)+1,
                         bt_udata->name);
     bt_udata->ent.name_off = offset;
     if (offset <= 0) {
diff --git a/src/H5P.c b/src/H5P.c
index 6fb604f..28ab537 100644
--- a/src/H5P.c
+++ b/src/H5P.c
@@ -961,11 +961,11 @@ H5Pset_space(hid_t sid, intn rank, const size_t *dims)
 
 /*--------------------------------------------------------------------------
  NAME
-    H5Pselect_hyperslab
+    H5Pset_hyperslab
  PURPOSE
     Select a hyperslab from a simple dataspace
  USAGE
-    herr_t H5Pselect_hyperslab(sid, start, count, stride)
+    herr_t H5Pset_hyperslab(sid, start, count, stride)
         hid_t sid;            IN: Dataspace object to select hyperslab from
         const size_t *start;  IN: Starting location for hyperslab to select
         const size_t *count;  IN: Number of elements in hyperslab
@@ -982,14 +982,14 @@ H5Pset_space(hid_t sid, intn rank, const size_t *dims)
     datasets which extend in arbitrary directions.
 --------------------------------------------------------------------------*/
 herr_t
-H5Pselect_hyperslab(hid_t sid, const size_t *start, const size_t *count, const size_t *stride)
+H5Pset_hyperslab(hid_t sid, const size_t *start, const size_t *count, const size_t *stride)
 {
     H5P_t                  *space = NULL;       /* dataspace to modify */
     size_t                 *tmp_stride=NULL;    /* temp. copy of stride */
     intn                    u;  /* local counting variable */
     herr_t                  ret_value = SUCCEED;
 
-    FUNC_ENTER(H5Pselect_hyperslab, FAIL);
+    FUNC_ENTER(H5Pset_hyperslab, FAIL);
 
     /* Clear errors and check args and all the boring stuff. */
     H5ECLEAR;
@@ -1006,15 +1006,16 @@ H5Pselect_hyperslab(hid_t sid, const size_t *start, const size_t *count, const s
 
     /* Set up stride values for later use */
     tmp_stride= H5MM_xmalloc(space->u.simple.rank*sizeof(size_t));
-    if(stride==NULL)
-        HDmemset(tmp_stride,1,space->u.simple.rank);
-    else
-        HDmemcpy(tmp_stride,stride,space->u.simple.rank);
+    for (u=0; u<space->u.simple.rank; u++) {
+	tmp_stride[u] = stride ? stride[u] : 1;
+    }
 
     /* Allocate space for the hyperslab information */
-    space->h.start= H5MM_xcalloc(space->u.simple.rank,sizeof(size_t));
-    space->h.count= H5MM_xcalloc(space->u.simple.rank,sizeof(size_t));
-    space->h.stride= H5MM_xcalloc(space->u.simple.rank,sizeof(size_t));
+    if (NULL==space->h.start) {
+	space->h.start= H5MM_xcalloc(space->u.simple.rank,sizeof(size_t));
+	space->h.count= H5MM_xcalloc(space->u.simple.rank,sizeof(size_t));
+	space->h.stride= H5MM_xcalloc(space->u.simple.rank,sizeof(size_t));
+    }
 
     /* Build hyperslab */
     for(u=0; u<space->u.simple.rank; u++)
@@ -1033,18 +1034,115 @@ H5Pselect_hyperslab(hid_t sid, const size_t *start, const size_t *count, const s
 done:
     if (ret_value == FAIL) {    /* Error condition cleanup */
         /* Free hyperslab arrays if we encounter an error */
-        if(space->h.start!=NULL)
-            H5MM_xfree(space->h.start);
-        if(space->h.count!=NULL)
-            H5MM_xfree(space->h.count);
-        if(space->h.stride!=NULL)
-            H5MM_xfree(space->h.stride);
+	H5MM_xfree(space->h.start);
+	H5MM_xfree(space->h.count);
+	H5MM_xfree(space->h.stride);
+	space->hslab_def = FALSE;
     }                           /* end if */
 
     /* Normal function cleanup */
     H5MM_xfree(tmp_stride);
     FUNC_LEAVE(ret_value);
 }
+
+/*-------------------------------------------------------------------------
+ * Function:	H5Pget_hyperslab
+ *
+ * Purpose:	Retrieves information about the hyperslab from a simple data
+ *		space.  If no hyperslab has been defined then the hyperslab
+ *		is the same as the entire array.
+ *
+ * Return:	Success:	SUCCEED
+ *
+ *		Failure:	FAIL
+ *
+ * Programmer:	Robb Matzke
+ *              Wednesday, January 28, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+herr_t
+H5Pget_hyperslab (hid_t sid, size_t offset[]/*out*/, size_t size[]/*out*/,
+		  size_t stride[]/*out*/)
+{
+    H5P_t	*ds = NULL;
+    
+    FUNC_ENTER (H5Pget_hyperslab, FAIL);
+    H5ECLEAR;
+
+    /* Check args */
+    if (H5_DATASPACE!=H5A_group (sid) || NULL==(ds=H5A_object (sid))) {
+	HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data space");
+    }
+
+    /* Get hyperslab info */
+    if (H5P_get_hyperslab (ds, offset, size, stride)<0) {
+	HRETURN_ERROR (H5E_DATASPACE, H5E_CANTINIT, FAIL,
+		       "unable to retrieve hyperslab information");
+    }
+
+    FUNC_LEAVE (SUCCEED);
+}
+
+/*-------------------------------------------------------------------------
+ * Function:	H5P_get_hyperslab
+ *
+ * Purpose:	Retrieves information about the hyperslab from a simple data
+ *		space.  If no hyperslab has been defined then the hyperslab
+ *		is the same as the entire array.
+ *
+ * Return:	Success:	SUCCEED
+ *
+ *		Failure:	FAIL
+ *
+ * Programmer:	Robb Matzke
+ *              Wednesday, January 28, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+herr_t
+H5P_get_hyperslab (H5P_t *ds, size_t offset[]/*out*/, size_t size[]/*out*/,
+		   size_t stride[]/*out*/)
+{
+    intn		i;
+    
+    FUNC_ENTER (H5P_get_hyperslab, FAIL);
+
+    /* Check args */
+    assert (ds);
+    switch (ds->type) {
+    case H5P_SCALAR:
+	break;
+
+    case H5P_SIMPLE:
+	if (ds->hslab_def) {
+	    for (i=0; i<ds->u.simple.rank; i++) {
+		if (offset) offset[i] = ds->h.start[i];
+		if (size) size[i] = ds->h.count[i];
+		if (stride) stride[i] = ds->h.stride[i];
+	    }
+	} else {
+	    for (i=0; i<ds->u.simple.rank; i++) {
+		if (offset) offset[i] = 0;
+		if (size) size[i] = ds->u.simple.size[i];
+		if (stride) stride[i] = 1;
+	    }
+	}
+	break;
+
+    case H5P_COMPLEX:	/*fall through*/
+    default:
+	HRETURN_ERROR (H5E_DATASPACE, H5E_UNSUPPORTED, FAIL,
+		       "hyperslabs not supported for this type of space");
+    }
+
+    FUNC_LEAVE (SUCCEED);
+}
+
 
 /*-------------------------------------------------------------------------
  * Function:	H5P_find
diff --git a/src/H5Pprivate.h b/src/H5Pprivate.h
index 6273fe9..26e9673 100644
--- a/src/H5Pprivate.h
+++ b/src/H5Pprivate.h
@@ -102,6 +102,8 @@ intn H5P_cmp (const H5P_t *ds1, const H5P_t *ds2);
 hbool_t H5P_is_simple (const H5P_t *sdim);
 uintn H5P_nelem (const H5P_t *space);
 const H5P_conv_t *H5P_find (const H5P_t *mem_space, const H5P_t *file_space);
+herr_t H5P_get_hyperslab (H5P_t *ds, size_t offset[]/*out*/,
+			  size_t size[]/*out*/, size_t stride[]/*out*/);
 
 /* Conversion functions for simple data spaces */
 size_t H5P_simp_init (const struct H5O_layout_t *layout,
diff --git a/src/H5Ppublic.h b/src/H5Ppublic.h
index 2efb6cb..ddcfb04 100644
--- a/src/H5Ppublic.h
+++ b/src/H5Ppublic.h
@@ -46,7 +46,10 @@ intn H5Pget_ndims (hid_t space_id);
 intn H5Pget_dims (hid_t space_id, size_t dims[]);
 hbool_t H5Pis_simple (hid_t space_id);
 herr_t H5Pset_space (hid_t space_id, intn rank, const size_t *dims);
-herr_t H5Pselect_hyperslab(hid_t sid, const size_t *start, const size_t *count, const size_t *stride);
+herr_t H5Pset_hyperslab(hid_t sid, const size_t *start, const size_t *count,
+			const size_t *stride);
+herr_t H5Pget_hyperslab (hid_t sid, size_t offset[]/*out*/,
+			 size_t size[]/*out*/, size_t stride[]/*out*/);
 
 #ifdef __cplusplus
 }
diff --git a/src/H5Tpublic.h b/src/H5Tpublic.h
index aebf33c..1f40151 100644
--- a/src/H5Tpublic.h
+++ b/src/H5Tpublic.h
@@ -99,7 +99,7 @@ typedef enum H5T_pad_t {
 typedef enum H5T_bkg_t {
     H5T_BKG_NONE	= 0, 	/*background buffer is not needed, send NULL */
     H5T_BKG_TEMP	= 1, 	/*bkg buffer used as temp storage only	     */
-    H5T_BKG_YES		= 2,	/*init bkg buf with data before conversion   */
+    H5T_BKG_YES		= 2	/*init bkg buf with data before conversion   */
 } H5T_bkg_t;
 
 /* Type conversion client data */