Mercurial > hg > octave-lyh

diff src/ls-hdf5.cc @ 4696:fcab389ad291

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-01-15 02:11:59 by jwe]
author jwe
date Thu, 15 Jan 2004 02:11:59 +0000
parents e95c86d48732
children 14dc2267c343
line wrap: on
line diff
--- a/src/ls-hdf5.cc
+++ b/src/ls-hdf5.cc
@@ -444,8 +444,15 @@
        || (vers_major == 1 && (vers_minor < 2
 			       || (vers_minor == 2 && vers_release < 2))));
 
-  herr_t H5Giterate_retval = H5Giterate (hs.file_id, "/", &hs.current_item,
-					 hdf5_read_next_data, &d);
+  herr_t H5Giterate_retval = -1;
+
+#ifdef HAVE_H5GGET_NUM_OBJS
+  hsize_t num_obj = 0;
+  H5Gget_num_objs (hs.file_id, &num_obj);
+  if (hs.current_item < static_cast<int> (num_obj))
+#endif
+    H5Giterate_retval = H5Giterate (hs.file_id, "/", &hs.current_item,
+				    hdf5_read_next_data, &d);
 
   if (have_h5giterate_bug)
     {