Mercurial > hg > octave-lyh

comparison src/ov-list.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 aef1e2d57055
comparison
equal deleted inserted replaced
4695:f31b93ef2ca0 4696:fcab389ad291
675 { 675 {
676 bool retval = false; 676 bool retval = false;
677 677
678 hdf5_callback_data dsub; 678 hdf5_callback_data dsub;
679 679
680 herr_t retval2; 680 herr_t retval2 = -1;
681 octave_value_list lst; 681 octave_value_list lst;
682 int current_item = 0; 682 int current_item = 0;
683 #ifdef HAVE_H5GGET_NUM_OBJS
684 hsize_t num_obj = 0;
685 H5Gget_num_objs (loc_id, &num_obj);
686
687 while (current_item < static_cast<int> (num_obj)
688 && (retval2 = H5Giterate (loc_id, name, &current_item,
689 hdf5_read_next_data, &dsub)) > 0)
690 #else
683 while ((retval2 = H5Giterate (loc_id, name, &current_item, 691 while ((retval2 = H5Giterate (loc_id, name, &current_item,
684 hdf5_read_next_data, &dsub)) > 0) 692 hdf5_read_next_data, &dsub)) > 0)
693 #endif
685 { 694 {
686 lst.append (dsub.tc); 695 lst.append (dsub.tc);
687 696
688 if (have_h5giterate_bug) 697 if (have_h5giterate_bug)
689 current_item++; // H5Giterate returned the last index processed 698 current_item++; // H5Giterate returned the last index processed