Mercurial > octave-nkf

comparison src/ov-cell.cc @ 5850:426b94346d70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-06-09 15:44:35 by jwe]
author jwe
date Fri, 09 Jun 2006 15:46:10 +0000
parents db0598f94c0f
children c20eb7330d13
comparison
equal deleted inserted replaced
5849:e89f8bae317b 5850:426b94346d70
23 23
24 #ifdef HAVE_CONFIG_H 24 #ifdef HAVE_CONFIG_H
25 #include <config.h> 25 #include <config.h>
26 #endif 26 #endif
27 27
28 #include <iomanip>
28 #include <iostream> 29 #include <iostream>
29 #include <sstream> 30 #include <sstream>
30 #include <vector> 31 #include <vector>
31 32
32 #include "Array-util.h" 33 #include "Array-util.h"
789 H5Sclose (space_hid); 790 H5Sclose (space_hid);
790 791
791 // Recursively add each element of the cell to this group. 792 // Recursively add each element of the cell to this group.
792 793
793 Cell tmp = cell_value (); 794 Cell tmp = cell_value ();
794 795
795 for (octave_idx_type i = 0; i < dv.numel (); i++) 796 octave_idx_type nel = dv.numel ();
797
798 for (octave_idx_type i = 0; i < nel; i++)
796 { 799 {
797 std::ostringstream buf; 800 std::ostringstream buf;
798 buf << "_" << i; 801 int digits = static_cast<int> (floor (log10 (nel) + 1.0));
802 buf << "_" << std::setw (digits) << std::setfill ('0') << i;
799 std::string s = buf.str (); 803 std::string s = buf.str ();
800 804
801 if (! add_hdf5_data(data_hid, tmp.elem (i), s.c_str (), "", false, 805 if (! add_hdf5_data (data_hid, tmp.elem (i), s.c_str (), "", false,
802 save_as_floats)) 806 save_as_floats))
803 { 807 {
804 H5Gclose (data_hid); 808 H5Gclose (data_hid);
805 return false; 809 return false;
806 } 810 }
807 } 811 }