Mercurial > octave-nkf
diff src/ov-re-sparse.cc @ 9892:ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
| author | Kacper Kowalik <xarthisius.kk@gmail.com> |
|---|---|
| date | Tue, 01 Dec 2009 00:49:07 +0100 |
| parents | b3089dba88bf |
| children | 829e69ec3110 |
line wrap: on
line diff
--- a/src/ov-re-sparse.cc Mon Nov 30 14:32:10 2009 -0500 +++ b/src/ov-re-sparse.cc Tue Dec 01 00:49:07 2009 +0100 @@ -410,7 +410,11 @@ // Ensure that additional memory is deallocated matrix.maybe_compress (); +#if HAVE_HDF5_18 + hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else hid_t group_hid = H5Gcreate (loc_id, name, 0); +#endif if (group_hid < 0) return false; @@ -426,9 +430,13 @@ H5Gclose (group_hid); return false; } - +#if HAVE_HDF5_18 + data_hid = H5Dcreate (group_hid, "nr", H5T_NATIVE_IDX, space_hid, + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else data_hid = H5Dcreate (group_hid, "nr", H5T_NATIVE_IDX, space_hid, H5P_DEFAULT); +#endif if (data_hid < 0) { H5Sclose (space_hid); @@ -446,9 +454,13 @@ H5Gclose (group_hid); return false; } - +#if HAVE_HDF5_18 + data_hid = H5Dcreate (group_hid, "nc", H5T_NATIVE_IDX, space_hid, + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else data_hid = H5Dcreate (group_hid, "nc", H5T_NATIVE_IDX, space_hid, H5P_DEFAULT); +#endif if (data_hid < 0) { H5Sclose (space_hid); @@ -467,8 +479,13 @@ return false; } +#if HAVE_HDF5_18 + data_hid = H5Dcreate (group_hid, "nz", H5T_NATIVE_IDX, space_hid, + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else data_hid = H5Dcreate (group_hid, "nz", H5T_NATIVE_IDX, space_hid, H5P_DEFAULT); +#endif if (data_hid < 0) { H5Sclose (space_hid); @@ -500,8 +517,13 @@ return false; } +#if HAVE_HDF5_18 + data_hid = H5Dcreate (group_hid, "cidx", H5T_NATIVE_IDX, space_hid, + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else data_hid = H5Dcreate (group_hid, "cidx", H5T_NATIVE_IDX, space_hid, H5P_DEFAULT); +#endif if (data_hid < 0) { H5Sclose (space_hid); @@ -532,9 +554,13 @@ H5Gclose (group_hid); return false; } - +#if HAVE_HDF5_18 + data_hid = H5Dcreate (group_hid, "ridx", H5T_NATIVE_IDX, space_hid, + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else data_hid = H5Dcreate (group_hid, "ridx", H5T_NATIVE_IDX, space_hid, H5P_DEFAULT); +#endif if (data_hid < 0) { H5Sclose (space_hid); @@ -577,8 +603,13 @@ } #endif /* HAVE_HDF5_INT2FLOAT_CONVERSIONS */ +#if HAVE_HDF5_18 + data_hid = H5Dcreate (group_hid, "data", save_type_hid, space_hid, + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); +#else data_hid = H5Dcreate (group_hid, "data", save_type_hid, space_hid, H5P_DEFAULT); +#endif if (data_hid < 0) { H5Sclose (space_hid); @@ -610,10 +641,18 @@ if (empty) return (empty > 0); +#if HAVE_HDF5_18 + group_hid = H5Gopen (loc_id, name, H5P_DEFAULT); +#else group_hid = H5Gopen (loc_id, name); +#endif if (group_hid < 0) return false; +#if HAVE_HDF5_18 + data_hid = H5Dopen (group_hid, "nr", H5P_DEFAULT); +#else data_hid = H5Dopen (group_hid, "nr"); +#endif space_hid = H5Dget_space (data_hid); rank = H5Sget_simple_extent_ndims (space_hid); @@ -634,7 +673,11 @@ H5Dclose (data_hid); +#if HAVE_HDF5_18 + data_hid = H5Dopen (group_hid, "nc", H5P_DEFAULT); +#else data_hid = H5Dopen (group_hid, "nc"); +#endif space_hid = H5Dget_space (data_hid); rank = H5Sget_simple_extent_ndims (space_hid); @@ -655,7 +698,11 @@ H5Dclose (data_hid); +#if HAVE_HDF5_18 + data_hid = H5Dopen (group_hid, "nz", H5P_DEFAULT); +#else data_hid = H5Dopen (group_hid, "nz"); +#endif space_hid = H5Dget_space (data_hid); rank = H5Sget_simple_extent_ndims (space_hid); @@ -680,7 +727,11 @@ static_cast<octave_idx_type> (nc), static_cast<octave_idx_type> (nz)); +#if HAVE_HDF5_18 + data_hid = H5Dopen (group_hid, "cidx", H5P_DEFAULT); +#else data_hid = H5Dopen (group_hid, "cidx"); +#endif space_hid = H5Dget_space (data_hid); rank = H5Sget_simple_extent_ndims (space_hid); @@ -719,7 +770,11 @@ H5Sclose (space_hid); H5Dclose (data_hid); +#if HAVE_HDF5_18 + data_hid = H5Dopen (group_hid, "ridx", H5P_DEFAULT); +#else data_hid = H5Dopen (group_hid, "ridx"); +#endif space_hid = H5Dget_space (data_hid); rank = H5Sget_simple_extent_ndims (space_hid); @@ -754,7 +809,11 @@ H5Sclose (space_hid); H5Dclose (data_hid); +#if HAVE_HDF5_18 + data_hid = H5Dopen (group_hid, "data", H5P_DEFAULT); +#else data_hid = H5Dopen (group_hid, "data"); +#endif space_hid = H5Dget_space (data_hid); rank = H5Sget_simple_extent_ndims (space_hid);