# HG changeset patch
# User jwe
# Date 1099364890 0
# Node ID 34a904ac130de742fb65d43cbf11a06ce84b1cc1
# Parent  38dd53c8935e2a4765d481961c438540967a4cf7
[project @ 2004-11-02 03:08:10 by jwe]

diff -r 38dd53c8935e -r 34a904ac130d src/ChangeLog
--- a/src/ChangeLog	Tue Nov 02 02:42:25 2004 +0000
+++ b/src/ChangeLog	Tue Nov 02 03:08:10 2004 +0000
@@ -1,3 +1,10 @@
+2004-11-01  Claude Lacoursiere  <claude@hpc2n.umu.se>a
+
+	* ls-hdf5.cc (read_hdf5_data): Expect num_obj to be in distinct group.
+	* ov-cell.cc (octave_cell::load_hdf5): Likewise.
+	* ov-list.cc (octave_list::load_hdf5): Likewise.
+	* ov-struct.cc (octave_struct::load_hdf5): Likewise.
+
 2004-11-01  David Bateman  <dbateman@free.fr>
 
 	* DLD-FUNCTIONS/filter.cc (filter (MArray<T>&, MArray<T>&,
diff -r 38dd53c8935e -r 34a904ac130d src/ls-hdf5.cc
--- a/src/ls-hdf5.cc	Tue Nov 02 02:42:25 2004 +0000
+++ b/src/ls-hdf5.cc	Tue Nov 02 03:08:10 2004 +0000
@@ -546,7 +546,9 @@
 
 #ifdef HAVE_H5GGET_NUM_OBJS
   hsize_t num_obj = 0;
-  H5Gget_num_objs (hs.file_id, &num_obj);
+  hid_t group_id = H5Gopen (hs.file_id, "/"); 
+  H5Gget_num_objs (group_id, &num_obj);
+  H5Gclose (group_id);
   if (hs.current_item < static_cast<int> (num_obj))
 #endif
     H5Giterate_retval = H5Giterate (hs.file_id, "/", &hs.current_item,
diff -r 38dd53c8935e -r 34a904ac130d src/ov-cell.cc
--- a/src/ov-cell.cc	Tue Nov 02 02:42:25 2004 +0000
+++ b/src/ov-cell.cc	Tue Nov 02 03:08:10 2004 +0000
@@ -840,7 +840,9 @@
 
 #ifdef HAVE_H5GGET_NUM_OBJS
   hsize_t num_obj = 0;
-  H5Gget_num_objs (loc_id, &num_obj);
+  group_id = H5Gopen (loc_id, name); 
+  H5Gget_num_objs (group_id, &num_obj);
+  H5Gclose (group_id);
 #endif
 
   for (int i = 0; i < dv.numel (); i++)
diff -r 38dd53c8935e -r 34a904ac130d src/ov-list.cc
--- a/src/ov-list.cc	Tue Nov 02 02:42:25 2004 +0000
+++ b/src/ov-list.cc	Tue Nov 02 03:08:10 2004 +0000
@@ -712,7 +712,9 @@
   int current_item = 0;
 #ifdef HAVE_H5GGET_NUM_OBJS
   hsize_t num_obj = 0;
-  H5Gget_num_objs (loc_id, &num_obj);
+  hid_t group_id = H5Gopen (loc_id, name); 
+  H5Gget_num_objs (group_id, &num_obj);
+  H5Gclose (group_id);
 
   while (current_item < static_cast<int> (num_obj)
 	 && (retval2 = H5Giterate (loc_id, name, &current_item,
diff -r 38dd53c8935e -r 34a904ac130d src/ov-struct.cc
--- a/src/ov-struct.cc	Tue Nov 02 02:42:25 2004 +0000
+++ b/src/ov-struct.cc	Tue Nov 02 03:08:10 2004 +0000
@@ -1172,7 +1172,9 @@
   int current_item = 0;
 #ifdef HAVE_H5GGET_NUM_OBJS
   hsize_t num_obj = 0;
-  H5Gget_num_objs (loc_id, &num_obj);
+  hid_t group_id = H5Gopen (loc_id, name); 
+  H5Gget_num_objs (group_id, &num_obj);
+  H5Gclose (group_id);
 
   while (current_item < static_cast<int> (num_obj)
 	 && (retval2 = H5Giterate (loc_id, name, &current_item,