Mercurial > octave
comparison src/ov-cell.cc @ 5850:426b94346d70
[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 } |