1 files changed, 102 insertions, 0 deletions
diff --git a/src/h5ls.c b/src/h5ls.c
new file mode 100644
index 0000000..e8ac70c
--- /dev/null
+++ b/src/h5ls.c
@@ -0,0 +1,102 @@
+/*
+ * Copyright (C) 1998 NCSA
+ *                    All rights reserved.
+ *
+ * Programmer:  Robb Matzke <matzke@llnl.gov>
+ *              Monday, March 23, 1998
+ */
+#include <assert.h>
+#include <hdf5.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+
+
+/*-------------------------------------------------------------------------
+ * 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 *op_data)
+{
+    hid_t	obj;
+    hid_t	(*func)(void*);
+    void	*edata;
+    int		i;
+
+    /* Disable error reporting */
+    H5Eget_auto (&func, &edata);
+    H5Eset_auto (NULL, NULL);
+
+    /* Print info about each name */
+    printf ("%-30s", name);
+    if ((obj=H5Dopen (group, name))>=0) {
+	size_t size[64];
+	hid_t space = H5Dget_space (obj);
+	int ndims = H5Sget_dims (space, size);
+	printf (" Dataset {");
+	for (i=0; i<ndims; i++) {
+	    printf ("%s%lu", i?", ":"", (unsigned long)size[i]);
+	}
+	printf ("}\n");
+	H5Dclose (space);
+	H5Dclose (obj);
+    } else if ((obj=H5Gopen (group, name))>=0) {
+	printf (" Group\n");
+	H5Gclose (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;
+    herr_t	status;
+    
+    assert (3==argc);
+
+    file = H5Fopen (argv[1], H5F_ACC_RDONLY, H5P_DEFAULT);
+    assert (file>=0);
+
+    status = H5Giterate (file, argv[2], NULL, list, NULL);
+    assert (status>=0);
+
+    H5Fclose (file);
+    return 0;
+}