[svn-r485] Changes since 19980710

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

./Makefile.in
./config/commence.in
./config/conclude.in
./config/depend.in
./src/Makefile.in
./test/Makefile.in
	Tests are no longer installed for `make install'.  Added a new
	target `make tests' that builds the tests but doesn't run them.

./configure.in
./configure		[REGENERATED]
./src/H5config.h.in	[REGENERATED]
	Added detection of fork() and waitpid().  If present the
	contants HAVE_FORK and HAVE_WAITPID will be defined in
	H5config.h.

./test/dtypes.c
	Minor tweaks for systems that don't have fork() or waitpid().

./MANIFEST
./tools			[NEW]
./tools/Makefile.in	[NEW]
./tools/h5debug.c	[NEW]
./tools/h5import.c	[NEW]
./tools/h5ls.c		[NEW]
./tools/h5repart.c	[NEW]
	Added a tools directory and moved tools from the src directory
	to here.

1 files changed, 197 insertions, 0 deletions

diff --git a/tools/h5ls.c b/tools/h5ls.c
new file mode 100644
index 0000000..4b0ea75
--- /dev/null
+++ b/tools/h5ls.c
@@ -0,0 +1,197 @@
+/*
+ * Copyright (C) 1998 NCSA
+ *                    All rights reserved.
+ *
+ * Programmer:  Robb Matzke <matzke@llnl.gov>
+ *              Monday, March 23, 1998
+ */
+#include <hdf5.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <H5private.h>
+#ifndef HAVE_ATTRIBUTE
+#   undef __attribute__
+#   define __attribute__(X) /*void*/
+#   define __unused__ /*void*/
+#else
+#   define __unused__ __attribute__((unused))
+#endif
+
+static void
+usage (const char *progname)
+{
+    fprintf (stderr, "usage: %s FILE [GROUP]\n", progname);
+    fprintf (stderr, "   The file name may contain a printf integer format "
+	     "to open a file family.\n");
+    exit (1);
+}
+
+
+/*-------------------------------------------------------------------------
+ * Function:	list_attr
+ *
+ * Purpose:	Prints information about attributes.
+ *
+ * Return:	Success:	0
+ *
+ *		Failure:	-1
+ *
+ * Programmer:	Robb Matzke
+ *              Friday, June  5, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static herr_t
+list_attr (hid_t obj, const char *attr_name, void __unused__ *op_data)
+{
+    hid_t	attr;
+    int		i;
+    
+    printf ("%*s%s", 26, "", attr_name);
+    if ((attr = H5Aopen_name (obj, attr_name))) {
+	hid_t space = H5Aget_space (attr);
+	hsize_t size[64];
+	int ndims = H5Sget_dims (space, size, NULL);
+	H5Sclose (space);
+	printf (" {");
+	for (i=0; i<ndims; i++) {
+	    HDfprintf (stdout, "%s%Hu", i?", ":"", size[i]);
+	}
+	putchar ('}');
+	H5Aclose (attr);
+    }
+    
+    putchar ('\n');
+    return 0;
+}
+
+
+/*-------------------------------------------------------------------------
+ * Function:	list
+ *
+ * Purpose:	Prints the group member name.
+ *
+ * Return:	Success:	0
+ *
+ *		Failure:	-1
+ *
+ * Programmer:	Robb Matzke
+ *              Monday, March 23, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static herr_t
+list (hid_t group, const char *name, void __unused__ *op_data)
+{
+    hid_t	obj;
+    hid_t	(*func)(void*);
+    void	*edata;
+    int		i;
+    char	buf[512];
+    H5G_stat_t	statbuf;
+    
+    /* Disable error reporting */
+    H5Eget_auto (&func, &edata);
+    H5Eset_auto (NULL, NULL);
+
+    /* Print info about each name */
+    printf ("%-25s ", name);
+
+    if (H5Gstat (group, name, TRUE, &statbuf)>=0) {
+	sprintf (buf, "%lu:%lu:%lu:%lu",
+		 statbuf.fileno[1], statbuf.fileno[0],
+		 statbuf.objno[1], statbuf.objno[0]);
+	printf ("%-20s ", buf);
+    }
+
+    if ((obj=H5Dopen (group, name))>=0) {
+	hsize_t size[64];
+	hsize_t maxsize[64];
+	hid_t space = H5Dget_space (obj);
+	int ndims = H5Sget_dims(space, size, maxsize);
+	printf ("Dataset {");
+	for (i=0; i<ndims; i++) {
+		HDfprintf (stdout, "%s%Hu", i?", ":"", size[i]);
+	    if (maxsize[i]==H5S_UNLIMITED)
+		HDfprintf (stdout, "/%s", "Inf");
+	    else
+		HDfprintf (stdout, "/%Hu", maxsize[i]);
+	}
+	printf ("}\n");
+	H5Dclose (space);
+	H5Aiterate (obj, NULL, list_attr, NULL);
+	H5Dclose (obj);
+    } else if ((obj=H5Gopen (group, name))>=0) {
+	printf ("Group\n");
+	H5Aiterate (obj, NULL, list_attr, NULL);
+	H5Gclose (obj);
+    } else if (H5Gget_linkval (group, name, sizeof(buf), buf)>=0) {
+	if (NULL==HDmemchr (buf, 0, sizeof(buf))) {
+	    strcpy (buf+sizeof(buf)-4, "...");
+	}
+	printf (" -> %s\n", buf);
+    } else if ((obj=H5Topen (group, name))>=0) {
+	printf ("Data type\n");
+	H5Aiterate (obj, NULL, list_attr, NULL);
+	H5Tclose (obj);
+    } else {
+	printf ("Unknown Type\n");
+    }
+
+    /* Restore error reporting */
+    H5Eset_auto (func, edata);
+    return 0;
+}
+
+
+
+/*-------------------------------------------------------------------------
+ * Function:	main
+ *
+ * Purpose:	Opens a file and lists the specified group
+ *
+ * Return:	Success:	0
+ *
+ *		Failure:	1
+ *
+ * Programmer:	Robb Matzke
+ *              Monday, March 23, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+int
+main (int argc, char *argv[])
+{
+    hid_t	file, plist=H5P_DEFAULT;
+    const char	*fname = NULL;
+    const char	*gname = "/";
+    const char	*progname;
+
+    /* Arguments */
+    if ((progname=strrchr (argv[0], '/'))) progname++;
+    else progname = argv[0];
+    if (argc<2 || argc>3) usage (progname);
+    fname = argv[1];
+    if (argc>=3) gname = argv[2];
+
+    /*
+     * Open the file.  If the file name contains a `%' then assume that a
+     * file family is being opened.
+     */
+    if (strchr (fname, '%')) {
+	plist = H5Pcreate (H5P_FILE_ACCESS);
+	H5Pset_family (plist, 0, H5P_DEFAULT);
+    }
+    if ((file = H5Fopen (fname, H5F_ACC_RDONLY, plist))<0) exit (1);
+    if (H5Giterate (file, gname, NULL, list, NULL)<0) exit (1);
+    if (H5Fclose (file)<0) exit (1);
+    return 0;
+}