[svn-r546] Changes since 19980724

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

./MANIFEST
./doc/html/H5.format.html
./src/H5O.c
./src/H5Oprivate.h
./src/H5Omtime.c	[NEW]
./src/H5private.h
./src/Makefile.in
	Added the modification time message.  If an object header has
	this message then it's value is updated with the current time
	whenever anything changes in the object header.

./acconfig.h
./configure.in
	Alas, there seems to be no standard way to convert a string
	time like 19980727122800 in UTC to a time_t since mktime()
	only converts local times to time_t.  So I've modified the
	configuration to check for various ways of getting the time
	zone information:

	   * Added checks for the `tm_gmtoff' field of `struct tm'.
	   * Added a check for the `timezone' global variable.
	   * Added a check for `struct timezone'.
	   * Added a check for BSDgettimeofday().
	   * Added a check for gettimeofday() although it doesn't
	     actually set the timezone argument on some systems.
	   * Added a check to see if `tm_zone' is a member of `struct tm'.
	   * Added a check to see if `tzname' is a global variable.
	   * Added a check to see if `struct tm' is defined in time.h
	     or sys/time.h.

	It's not difficult to get the right UTC modification message
	into the object header, but some systems might have problems
	getting the right time back out (Irix64 is one) and those
	systems will report zero for the H5G_stat_t.mtime from an
	H5Gstat() call as if the mtime message isn't even present.  It
	will, however, continue to be updated as normal.

./src/H5G.c
./src/H5Gpublic.h
	The H5G_stat_t struct now contains an `mtime' field which will
	hold the object modification time.  If the object has no
	object modification time then the `mtime' will be initialized
	to zero.

	Fixed a bug in H5G_stat() that caused the `objno' field of the
	H5G_stat_t to be set incorrectly on some machines.

./src/H5D.c
	Writing to external datasets fail if the hdf5 file is not open
	for writing.

	A modification time message is added to the dataset object
	header when it's created and H5O_touch() is called from
	H5D_write() to update that message.

./src/H5T.c
	Fixed a bug in H5Tget_member_dims() that caused a segmentation
	fault if one of the output array arguments was the null
	pointer.

	Relaxed the member dimension checking in H5Tinsert_array() so
	it can also be used for scalar members.

./test/Makefile.in
	Added additional file names to the `mostlyclean' target.

./tools/h5dump.c
./tools/h5tools.h
	Increased the temporary buffer size to 1MB.

	Added support for printing compound data types with array
	members.

	When printing H5T_NATIVE_CHAR and H5T_NATIVE_UCHAR we escape
	double quote characters.

./tools/h5ls.c
	Changed the output format a little because we were starting to
	get too much info to fit on a line.  Without `--verbose' each
	object occupies one line of output.  Otherwise, additional
	information is printed below the object name: object file
	address, comment, and modification time.  If `--dump' is given
	then the data is printed after the other information.

./test/cmpd_dset.c
	Changed the way the dataset is initialized to be more uniform.

1 files changed, 137 insertions, 10 deletions

diff --git a/src/H5O.c b/src/H5O.c
index dde5917..c3bb495 100644
--- a/src/H5O.c
+++ b/src/H5O.c
@@ -35,6 +35,7 @@ static intn H5O_alloc(H5F_t *f, H5O_t *oh, const H5O_class_t *type,
 		      size_t size);
 static intn H5O_alloc_extend_chunk(H5O_t *oh, intn chunkno, size_t size);
 static intn H5O_alloc_new_chunk(H5F_t *f, H5O_t *oh, size_t size);
+static herr_t H5O_touch_oh(H5F_t *f, H5O_t *oh, hbool_t force);
 
 /* H5O inherits cache-like properties from H5AC */
 static const H5AC_class_t H5AC_OHDR[1] = {{
@@ -64,7 +65,7 @@ static const H5O_class_t *const message_type_g[] = {
     H5O_COMPRESS,	/*0x000B Data storage -- compressed object	*/
     H5O_ATTR,		/*0x000C Attribute list				*/
     H5O_NAME,		/*0x000D Object name				*/
-    NULL,		/*0x000E Object modification date and time	*/
+    H5O_MTIME,		/*0x000E Object modification date and time	*/
     NULL,		/*0x000F Shared header message			*/
     H5O_CONT,		/*0x0010 Object header continuation		*/
     H5O_STAB,		/*0x0011 Symbol table				*/
@@ -1235,6 +1236,9 @@ H5O_modify(H5G_entry_t *ent, const H5O_class_t *type, intn overwrite,
 			"unable to copy message to object header");
 	}
     }
+
+    /* Update the modification time message if any */
+    H5O_touch_oh(ent->file, oh, FALSE);
     
     oh->mesg[idx].flags = flags;
     oh->mesg[idx].dirty = TRUE;
@@ -1252,6 +1256,126 @@ H5O_modify(H5G_entry_t *ent, const H5O_class_t *type, intn overwrite,
 
 
 /*-------------------------------------------------------------------------
+ * Function:	H5O_touch_oh
+ *
+ * Purpose:	If FORCE is non-zero then create a modification time message
+ *		unless one already exists.  Then update any existing
+ *		modification time message with the current time.
+ *
+ * Return:	Success:	SUCCEED
+ *
+ *		Failure:	FAIL
+ *
+ * Programmer:	Robb Matzke
+ *              Monday, July 27, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static herr_t
+H5O_touch_oh(H5F_t *f, H5O_t *oh, hbool_t force)
+{
+    intn	idx;
+    time_t	now = time(NULL);
+    size_t	size;
+    
+    FUNC_ENTER(H5O_touch_oh, FAIL);
+    assert(oh);
+
+    /* Look for existing message */
+    for (idx=0; idx<oh->nmesgs; idx++) {
+	if (H5O_MTIME==oh->mesg[idx].type) break;
+    }
+
+    /* Create a new message */
+    if (idx==oh->nmesgs) {
+	if (!force) HRETURN(SUCCEED); /*nothing to do*/
+	size = (H5O_MTIME->raw_size)(f, &now);
+	size = H5O_ALIGN(size);
+	if ((idx=H5O_alloc(f, oh, H5O_MTIME, size))<0) {
+	    HRETURN_ERROR(H5E_OHDR, H5E_CANTINIT, FAIL,
+			  "unable to allocate space for modification time "
+			  "message");
+	}
+    }
+
+    /* Update the native part */
+    if (NULL==oh->mesg[idx].native) {
+	if (NULL==(oh->mesg[idx].native = H5MM_malloc(sizeof(time_t)))) {
+	    HRETURN_ERROR(H5E_OHDR, H5E_CANTINIT, FAIL,
+			  "memory allocation failed for modification time "
+			  "message");
+	}
+    }
+    *((time_t*)(oh->mesg[idx].native)) = now;
+    oh->mesg[idx].dirty = TRUE;
+    oh->dirty = TRUE;
+
+    FUNC_LEAVE(SUCCEED);
+}
+
+
+/*-------------------------------------------------------------------------
+ * Function:	H5O_touch
+ *
+ * Purpose:	Touch an object by setting the modification time to the
+ *		current time and marking the object as dirty.  Unless FORCE
+ *		is non-zero, nothing happens if there is no MTIME message in
+ *		the object header.
+ *
+ * Return:	Success:	SUCCEED
+ *
+ *		Failure:	FAIL
+ *
+ * Programmer:	Robb Matzke
+ *              Monday, July 27, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+herr_t
+H5O_touch(H5G_entry_t *ent, hbool_t force)
+{
+    H5O_t	*oh = NULL;
+    herr_t	ret_value = FAIL;
+    
+    FUNC_ENTER(H5O_touch, FAIL);
+
+    /* check args */
+    assert(ent);
+    assert(ent->file);
+    assert(H5F_addr_defined(&(ent->header)));
+    if (0==(ent->file->intent & H5F_ACC_RDWR)) {
+	HGOTO_ERROR(H5E_OHDR, H5E_WRITEERROR, FAIL,
+		    "no write intent on file");
+    }
+
+    /* Get the object header */
+    if (NULL==(oh=H5AC_protect(ent->file, H5AC_OHDR, &(ent->header),
+			       NULL, NULL))) {
+	HGOTO_ERROR(H5E_OHDR, H5E_CANTLOAD, FAIL,
+		    "unable to load object header");
+    }
+
+    /* Create/Update the modification time message */
+    if (H5O_touch_oh(ent->file, oh, force)<0) {
+	HGOTO_ERROR(H5E_OHDR, H5E_CANTINIT, FAIL,
+		    "unable to update object modificaton time");
+    }
+    ret_value = SUCCEED;
+
+ done:
+    if (oh && H5AC_unprotect(ent->file, H5AC_OHDR, &(ent->header), oh)<0) {
+	HRETURN_ERROR(H5E_OHDR, H5E_PROTECT, FAIL,
+		      "unable to release object header");
+    }
+    FUNC_LEAVE(ret_value);
+}
+
+
+/*-------------------------------------------------------------------------
  * Function:	H5O_remove
  *
  * Purpose:	Removes the specified message from the object header.
@@ -1347,6 +1471,7 @@ H5O_remove(H5G_entry_t *ent, const H5O_class_t *type, intn sequence)
 	    oh->mesg[i].native = H5O_free (type, oh->mesg[i].native);
 	    oh->mesg[i].dirty = TRUE;
 	    oh->dirty = TRUE;
+	    H5O_touch_oh(ent->file, oh, FALSE);
 	}
     }
 
@@ -1789,6 +1914,7 @@ H5O_alloc(H5F_t *f, H5O_t *oh, const H5O_class_t *type, size_t size)
 	oh->mesg[null_idx].chunkno = oh->mesg[idx].chunkno;
 	oh->mesg[idx].raw_size = size;
     }
+
     /* initialize the new message */
     oh->mesg[idx].type = type;
     oh->mesg[idx].dirty = TRUE;
@@ -1996,16 +2122,17 @@ H5O_debug(H5F_t *f, const haddr_t *addr, FILE * stream, intn indent,
 	}
 	
 	/* decode the message */
-	if (NULL == oh->mesg[i].native && oh->mesg[i].type->decode) {
-	    if (oh->mesg[i].flags & H5O_FLAG_SHARED) {
-		decode = H5O_SHARED->decode;
-		debug = H5O_SHARED->debug;
-	    } else {
-		decode = oh->mesg[i].type->decode;
-		debug = oh->mesg[i].type->debug;
-	    }
-	    oh->mesg[i].native = (decode)(f, oh->mesg[i].raw, NULL);
+	if (oh->mesg[i].flags & H5O_FLAG_SHARED) {
+	    decode = H5O_SHARED->decode;
+	    debug = H5O_SHARED->debug;
 	} else {
+	    decode = oh->mesg[i].type->decode;
+	    debug = oh->mesg[i].type->debug;
+	}
+	if (NULL==oh->mesg[i].native && oh->mesg[i].type->decode) {
+	    oh->mesg[i].native = (decode)(f, oh->mesg[i].raw, NULL);
+	}
+	if (NULL==oh->mesg[i].native) {
 	    debug = NULL;
 	}