summaryrefslogtreecommitdiffstats
path: root/tools/h5ls.c
diff options
context:
space:
mode:
authorRobb Matzke <matzke@llnl.gov>1998-07-13 15:35:21 (GMT)
committerRobb Matzke <matzke@llnl.gov>1998-07-13 15:35:21 (GMT)
commit614ae2dce6086a8966a26074f48644aa3c92f93c (patch)
tree9f7ddbf622c6403dd61ae4bb977dda94e75ac915 /tools/h5ls.c
parentb5189f738df7043790a254ed55263b08386dece8 (diff)
downloadhdf5-614ae2dce6086a8966a26074f48644aa3c92f93c.zip
hdf5-614ae2dce6086a8966a26074f48644aa3c92f93c.tar.gz
hdf5-614ae2dce6086a8966a26074f48644aa3c92f93c.tar.bz2
[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.
Diffstat (limited to 'tools/h5ls.c')
-rw-r--r--tools/h5ls.c197
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;
+}