Mercurial > octave-nkf
annotate libinterp/octave-value/ov-bool-sparse.cc @ 17199:9deb214ae9d5
Use 2-D, not 2D, in error messages.
* libinterp/corefcn/cellfun.cc, libinterp/corefcn/ls-oct-ascii.cc,
libinterp/octave-value/ov-bool-sparse.cc,
libinterp/octave-value/ov-cx-sparse.cc, libinterp/octave-value/ov-re-sparse.cc,
scripts/plot/private/__go_draw_axes__.m,
scripts/polynomial/private/__splinefit__.m, scripts/sparse/svds.m,
scripts/special-matrix/gallery.m: Use 2-D, not 2D, in error messages.
| author | Rik <rik@octave.org> |
|---|---|
| date | Wed, 07 Aug 2013 13:42:49 -0700 |
| parents | 9020dddc925a |
| children | d63878346099 |
| rev | line source |
|---|---|
| 5164 | 1 /* |
| 2 | |
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
3 Copyright (C) 2004-2012 David Bateman |
| 11523 | 4 Copyright (C) 1998-2004 Andy Adler |
| 7016 | 5 |
| 6 This file is part of Octave. | |
| 5164 | 7 |
| 8 Octave is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
| 11 option) any later version. | |
| 5164 | 12 |
| 13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 7016 | 19 along with Octave; see the file COPYING. If not, see |
| 20 <http://www.gnu.org/licenses/>. | |
| 5164 | 21 |
| 22 */ | |
| 23 | |
| 24 #ifdef HAVE_CONFIG_H | |
| 25 #include <config.h> | |
| 26 #endif | |
| 27 | |
| 28 #include <iostream> | |
|
15215
9020dddc925a
use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents:
15195
diff
changeset
|
29 #include <limits> |
| 5164 | 30 #include <vector> |
| 31 | |
|
15149
62a35ae7d6a2
use forward decls for mxArray in ov.h and ov-base.h
John W. Eaton <jwe@octave.org>
parents:
15057
diff
changeset
|
32 #include "dim-vector.h" |
|
62a35ae7d6a2
use forward decls for mxArray in ov.h and ov-base.h
John W. Eaton <jwe@octave.org>
parents:
15057
diff
changeset
|
33 |
|
62a35ae7d6a2
use forward decls for mxArray in ov.h and ov-base.h
John W. Eaton <jwe@octave.org>
parents:
15057
diff
changeset
|
34 #include "mxarray.h" |
| 5164 | 35 #include "ov-base.h" |
| 36 #include "ov-scalar.h" | |
| 37 #include "ov-bool.h" | |
| 38 #include "ov-bool-mat.h" | |
| 39 #include "gripes.h" | |
| 40 #include "ops.h" | |
|
8377
25bc2d31e1bf
improve OCTAVE_LOCAL_BUFFER
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
41 #include "oct-locbuf.h" |
| 5164 | 42 |
| 43 #include "ov-re-sparse.h" | |
| 44 #include "ov-cx-sparse.h" | |
| 45 #include "ov-bool-sparse.h" | |
| 46 | |
| 47 #include "ov-base-sparse.h" | |
| 48 #include "ov-base-sparse.cc" | |
| 49 | |
| 6109 | 50 template class OCTINTERP_API octave_base_sparse<SparseBoolMatrix>; |
| 5164 | 51 |
| 52 DEFINE_OCTAVE_ALLOCATOR (octave_sparse_bool_matrix); | |
| 53 | |
| 6823 | 54 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_sparse_bool_matrix, "sparse bool matrix", "logical"); |
| 5164 | 55 |
| 5759 | 56 static octave_base_value * |
| 57 default_numeric_conversion_function (const octave_base_value& a) | |
| 5164 | 58 { |
| 59 CAST_CONV_ARG (const octave_sparse_bool_matrix&); | |
| 60 | |
| 61 return new octave_sparse_matrix (SparseMatrix (v.sparse_bool_matrix_value ())); | |
| 62 } | |
| 63 | |
|
8345
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7503
diff
changeset
|
64 octave_base_value::type_conv_info |
| 5164 | 65 octave_sparse_bool_matrix::numeric_conversion_function (void) const |
| 66 { | |
|
8345
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7503
diff
changeset
|
67 return octave_base_value::type_conv_info (default_numeric_conversion_function, |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7503
diff
changeset
|
68 octave_sparse_matrix::static_type_id ()); |
| 5164 | 69 } |
| 70 | |
| 5759 | 71 octave_base_value * |
| 5164 | 72 octave_sparse_bool_matrix::try_narrowing_conversion (void) |
| 73 { | |
| 5759 | 74 octave_base_value *retval = 0; |
| 5164 | 75 |
| 7193 | 76 if (Vsparse_auto_mutate) |
| 5164 | 77 { |
| 7193 | 78 // Don't use numel, since it can overflow for very large matrices |
| 79 // Note that for the second test, this means it becomes approximative | |
| 80 // since it involves a cast to double to avoid issues of overflow | |
| 81 if (matrix.rows () == 1 && matrix.cols () == 1) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
82 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
83 // Const copy of the matrix, so the right version of () operator used |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
84 const SparseBoolMatrix tmp (matrix); |
| 5164 | 85 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
86 retval = new octave_bool (tmp (0)); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
87 } |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
88 else if (matrix.cols () > 0 && matrix.rows () > 0 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
89 && (double (matrix.byte_size ()) > double (matrix.rows ()) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
90 * double (matrix.cols ()) * sizeof (bool))) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
91 retval = new octave_bool_matrix (matrix.matrix_value ()); |
| 5164 | 92 } |
| 93 | |
| 94 return retval; | |
| 95 } | |
| 96 | |
| 97 double | |
| 98 octave_sparse_bool_matrix::double_value (bool) const | |
| 99 { | |
| 100 double retval = lo_ieee_nan_value (); | |
| 101 | |
| 102 if (numel () > 0) | |
| 103 { | |
| 6221 | 104 if (numel () > 1) |
|
14469
29aabe9b37a2
Rename array-as-vector, array-as-scalar warning IDs to match documentation (bug #35838)
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
105 gripe_implicit_conversion ("Octave:array-to-scalar", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
106 "bool sparse matrix", "real scalar"); |
| 5164 | 107 |
| 108 retval = matrix (0, 0); | |
| 109 } | |
| 110 else | |
| 111 gripe_invalid_conversion ("bool sparse matrix", "real scalar"); | |
| 112 | |
| 113 return retval; | |
| 114 } | |
| 115 | |
| 116 Complex | |
| 117 octave_sparse_bool_matrix::complex_value (bool) const | |
| 118 { | |
| 119 double tmp = lo_ieee_nan_value (); | |
| 120 | |
| 121 Complex retval (tmp, tmp); | |
| 122 | |
| 123 if (rows () > 0 && columns () > 0) | |
| 124 { | |
| 6221 | 125 if (numel () > 1) |
|
14469
29aabe9b37a2
Rename array-as-vector, array-as-scalar warning IDs to match documentation (bug #35838)
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
126 gripe_implicit_conversion ("Octave:array-to-scalar", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
127 "bool sparse matrix", "complex scalar"); |
| 5164 | 128 |
| 129 retval = matrix (0, 0); | |
| 130 } | |
| 131 else | |
| 132 gripe_invalid_conversion ("bool sparse matrix", "complex scalar"); | |
| 133 | |
| 134 return retval; | |
| 135 } | |
| 136 | |
| 137 octave_value | |
| 5279 | 138 octave_sparse_bool_matrix::convert_to_str_internal (bool pad, bool force, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
139 char type) const |
| 5164 | 140 { |
| 141 octave_value tmp = octave_value (array_value ()); | |
| 5279 | 142 return tmp.convert_to_str (pad, force, type); |
| 5164 | 143 } |
| 144 | |
| 5775 | 145 // FIXME These are inefficient ways of creating full matrices |
| 5164 | 146 |
| 147 Matrix | |
| 148 octave_sparse_bool_matrix::matrix_value (bool) const | |
| 149 { | |
| 150 return Matrix (matrix.matrix_value ()); | |
| 151 } | |
| 152 | |
| 153 ComplexMatrix | |
| 154 octave_sparse_bool_matrix::complex_matrix_value (bool) const | |
| 155 { | |
| 156 return ComplexMatrix (matrix.matrix_value ()); | |
| 157 } | |
| 158 | |
| 159 ComplexNDArray | |
| 160 octave_sparse_bool_matrix::complex_array_value (bool) const | |
| 161 { | |
| 162 return ComplexNDArray (ComplexMatrix (matrix.matrix_value ())); | |
| 163 } | |
| 164 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
165 NDArray |
| 5164 | 166 octave_sparse_bool_matrix::array_value (bool) const |
| 167 { | |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
168 return NDArray (Matrix (matrix.matrix_value ())); |
| 5164 | 169 } |
| 170 | |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
171 charNDArray |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
172 octave_sparse_bool_matrix::char_array_value (bool) const |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
173 { |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
174 charNDArray retval (dims (), 0); |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
175 octave_idx_type nc = matrix.cols (); |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
176 octave_idx_type nr = matrix.rows (); |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
177 |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
178 for (octave_idx_type j = 0; j < nc; j++) |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
179 for (octave_idx_type i = matrix.cidx (j); i < matrix.cidx (j+1); i++) |
|
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
180 retval(matrix.ridx (i) + nr * j) = static_cast<char>(matrix.data (i)); |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
181 |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
182 return retval; |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
183 } |
|
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7193
diff
changeset
|
184 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
185 boolMatrix |
| 5944 | 186 octave_sparse_bool_matrix::bool_matrix_value (bool) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
187 { |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
188 return matrix.matrix_value (); |
| 5164 | 189 } |
| 190 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
191 boolNDArray |
| 5944 | 192 octave_sparse_bool_matrix::bool_array_value (bool) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
193 { |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
194 return boolNDArray (matrix.matrix_value ()); |
| 5164 | 195 } |
| 196 | |
| 197 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
198 SparseMatrix |
| 5188 | 199 octave_sparse_bool_matrix::sparse_matrix_value (bool) const |
| 5164 | 200 { |
| 201 return SparseMatrix (this->matrix); | |
| 202 } | |
| 203 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
204 SparseComplexMatrix |
| 5188 | 205 octave_sparse_bool_matrix::sparse_complex_matrix_value (bool) const |
| 5164 | 206 { |
| 207 return SparseComplexMatrix (this->matrix); | |
| 208 } | |
| 209 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
210 bool |
| 5164 | 211 octave_sparse_bool_matrix::save_binary (std::ostream& os, bool&) |
| 212 { | |
| 213 dim_vector d = this->dims (); | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14469
diff
changeset
|
214 if (d.length () < 1) |
| 5164 | 215 return false; |
| 216 | |
| 217 // Ensure that additional memory is deallocated | |
| 218 matrix.maybe_compress (); | |
| 219 | |
| 220 int nr = d(0); | |
| 221 int nc = d(1); | |
|
10527
b4d2080b6df7
Replace nzmax by nnz as needed
David Bateman <dbateman@free.fr>
parents:
10315
diff
changeset
|
222 int nz = nnz (); |
| 5164 | 223 |
| 5828 | 224 int32_t itmp; |
| 5164 | 225 // Use negative value for ndims to be consistent with other formats |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
226 itmp= -2; |
| 5760 | 227 os.write (reinterpret_cast<char *> (&itmp), 4); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
228 |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
229 itmp= nr; |
| 5760 | 230 os.write (reinterpret_cast<char *> (&itmp), 4); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
231 |
| 5164 | 232 itmp= nc; |
| 5760 | 233 os.write (reinterpret_cast<char *> (&itmp), 4); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
234 |
| 5164 | 235 itmp= nz; |
| 5760 | 236 os.write (reinterpret_cast<char *> (&itmp), 4); |
| 5164 | 237 |
| 238 // add one to the printed indices to go from | |
| 239 // zero-based to one-based arrays | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
240 for (int i = 0; i < nc+1; i++) |
| 5164 | 241 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
9892
diff
changeset
|
242 octave_quit (); |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
243 itmp = matrix.cidx (i); |
| 5760 | 244 os.write (reinterpret_cast<char *> (&itmp), 4); |
| 5164 | 245 } |
| 246 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
247 for (int i = 0; i < nz; i++) |
| 5164 | 248 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
9892
diff
changeset
|
249 octave_quit (); |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
250 itmp = matrix.ridx (i); |
| 5760 | 251 os.write (reinterpret_cast<char *> (&itmp), 4); |
| 5164 | 252 } |
| 253 | |
| 254 OCTAVE_LOCAL_BUFFER (char, htmp, nz); | |
| 255 | |
| 256 for (int i = 0; i < nz; i++) | |
| 257 htmp[i] = (matrix.data (i) ? 1 : 0); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
258 |
| 5164 | 259 os.write (htmp, nz); |
| 260 | |
| 261 return true; | |
| 262 } | |
| 263 | |
| 264 bool | |
| 265 octave_sparse_bool_matrix::load_binary (std::istream& is, bool swap, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
266 oct_mach_info::float_format /* fmt */) |
| 5164 | 267 { |
| 5828 | 268 int32_t nz, nc, nr, tmp; |
| 5760 | 269 if (! is.read (reinterpret_cast<char *> (&tmp), 4)) |
| 5164 | 270 return false; |
| 271 | |
| 272 if (swap) | |
| 273 swap_bytes<4> (&tmp); | |
| 274 | |
| 275 if (tmp != -2) { | |
| 17199 | 276 error ("load: only 2-D sparse matrices are supported"); |
| 5164 | 277 return false; |
| 278 } | |
| 279 | |
| 5760 | 280 if (! is.read (reinterpret_cast<char *> (&nr), 4)) |
| 5164 | 281 return false; |
| 5760 | 282 if (! is.read (reinterpret_cast<char *> (&nc), 4)) |
| 5164 | 283 return false; |
| 5760 | 284 if (! is.read (reinterpret_cast<char *> (&nz), 4)) |
| 5164 | 285 return false; |
| 286 | |
| 287 if (swap) | |
| 288 { | |
| 289 swap_bytes<4> (&nr); | |
| 290 swap_bytes<4> (&nc); | |
| 291 swap_bytes<4> (&nz); | |
| 292 } | |
| 293 | |
| 5275 | 294 SparseBoolMatrix m (static_cast<octave_idx_type> (nr), |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
295 static_cast<octave_idx_type> (nc), |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
296 static_cast<octave_idx_type> (nz)); |
| 5164 | 297 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
298 for (int i = 0; i < nc+1; i++) |
| 5164 | 299 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
9892
diff
changeset
|
300 octave_quit (); |
| 5760 | 301 if (! is.read (reinterpret_cast<char *> (&tmp), 4)) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
302 return false; |
| 5164 | 303 if (swap) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
304 swap_bytes<4> (&tmp); |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
305 m.cidx (i) = tmp; |
| 5164 | 306 } |
| 307 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
308 for (int i = 0; i < nz; i++) |
| 5164 | 309 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
9892
diff
changeset
|
310 octave_quit (); |
| 5760 | 311 if (! is.read (reinterpret_cast<char *> (&tmp), 4)) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
312 return false; |
| 5164 | 313 if (swap) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
314 swap_bytes<4> (&tmp); |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
315 m.ridx (i) = tmp; |
| 5164 | 316 } |
| 317 | |
| 318 if (error_state || ! is) | |
| 319 return false; | |
| 320 | |
| 321 OCTAVE_LOCAL_BUFFER (char, htmp, nz); | |
| 322 | |
| 323 if (! is.read (htmp, nz)) | |
| 324 return false; | |
| 325 | |
| 326 for (int i = 0; i < nz; i++) | |
| 327 m.data(i) = (htmp[i] ? 1 : 0); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
328 |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
329 if (! m.indices_ok ()) |
|
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
330 return false; |
|
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
331 |
| 5164 | 332 matrix = m; |
| 333 | |
| 334 return true; | |
| 335 } | |
| 336 | |
| 337 #if defined (HAVE_HDF5) | |
| 5900 | 338 |
| 5164 | 339 bool |
| 340 octave_sparse_bool_matrix::save_hdf5 (hid_t loc_id, const char *name, bool) | |
| 341 { | |
| 342 dim_vector dv = dims (); | |
| 343 int empty = save_hdf5_empty (loc_id, name, dv); | |
| 344 if (empty) | |
| 345 return (empty > 0); | |
| 346 | |
| 347 // Ensure that additional memory is deallocated | |
| 348 matrix.maybe_compress (); | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
349 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
350 hid_t group_hid = H5Gcreate (loc_id, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
351 #else |
| 5164 | 352 hid_t group_hid = H5Gcreate (loc_id, name, 0); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
353 #endif |
| 5164 | 354 if (group_hid < 0) |
| 355 return false; | |
| 356 | |
| 357 hid_t space_hid = -1, data_hid = -1; | |
| 358 bool retval = true; | |
| 359 SparseBoolMatrix m = sparse_bool_matrix_value (); | |
| 5351 | 360 octave_idx_type tmp; |
| 5164 | 361 hsize_t hdims[2]; |
| 362 | |
| 5760 | 363 space_hid = H5Screate_simple (0, hdims, 0); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
364 if (space_hid < 0) |
| 5164 | 365 { |
| 366 H5Gclose (group_hid); | |
| 367 return false; | |
| 368 } | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
369 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
370 data_hid = H5Dcreate (group_hid, "nr", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
371 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
372 #else |
| 5760 | 373 data_hid = H5Dcreate (group_hid, "nr", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
374 H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
375 #endif |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
376 if (data_hid < 0) |
| 5164 | 377 { |
| 378 H5Sclose (space_hid); | |
| 379 H5Gclose (group_hid); | |
| 380 return false; | |
| 381 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
382 |
| 5164 | 383 tmp = m.rows (); |
| 5760 | 384 retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &tmp) >= 0; |
| 5164 | 385 H5Dclose (data_hid); |
| 386 if (!retval) | |
| 387 { | |
| 388 H5Sclose (space_hid); | |
| 389 H5Gclose (group_hid); | |
| 390 return false; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
391 } |
| 5164 | 392 |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
393 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
394 data_hid = H5Dcreate (group_hid, "nc", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
395 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
396 #else |
| 5760 | 397 data_hid = H5Dcreate (group_hid, "nc", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
398 H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
399 #endif |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
400 if (data_hid < 0) |
| 5164 | 401 { |
| 402 H5Sclose (space_hid); | |
| 403 H5Gclose (group_hid); | |
| 404 return false; | |
| 405 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
406 |
| 5164 | 407 tmp = m.cols (); |
| 5351 | 408 retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
409 H5P_DEFAULT, &tmp) >= 0; |
| 5164 | 410 H5Dclose (data_hid); |
| 411 if (!retval) | |
| 412 { | |
| 413 H5Sclose (space_hid); | |
| 414 H5Gclose (group_hid); | |
| 415 return false; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
416 } |
| 5164 | 417 |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
418 #if HAVE_HDF5_18 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
419 data_hid = H5Dcreate (group_hid, "nz", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
420 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
421 #else |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
422 data_hid = H5Dcreate (group_hid, "nz", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
423 H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
424 #endif |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
425 if (data_hid < 0) |
| 5164 | 426 { |
| 427 H5Sclose (space_hid); | |
| 428 H5Gclose (group_hid); | |
| 429 return false; | |
| 430 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
431 |
|
10527
b4d2080b6df7
Replace nzmax by nnz as needed
David Bateman <dbateman@free.fr>
parents:
10315
diff
changeset
|
432 tmp = m.nnz (); |
| 5351 | 433 retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
434 H5P_DEFAULT, &tmp) >= 0; |
| 5164 | 435 H5Dclose (data_hid); |
| 436 if (!retval) | |
| 437 { | |
| 438 H5Sclose (space_hid); | |
| 439 H5Gclose (group_hid); | |
| 440 return false; | |
| 441 } | |
| 442 | |
| 443 H5Sclose (space_hid); | |
| 444 | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14469
diff
changeset
|
445 hdims[0] = m.cols () + 1; |
| 5164 | 446 hdims[1] = 1; |
| 447 | |
| 448 space_hid = H5Screate_simple (2, hdims, 0); | |
| 449 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
450 if (space_hid < 0) |
| 5164 | 451 { |
| 452 H5Gclose (group_hid); | |
| 453 return false; | |
| 454 } | |
| 455 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
456 #if HAVE_HDF5_18 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
457 data_hid = H5Dcreate (group_hid, "cidx", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
458 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
459 #else |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
460 data_hid = H5Dcreate (group_hid, "cidx", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
461 H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
462 #endif |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
463 if (data_hid < 0) |
| 5164 | 464 { |
| 465 H5Sclose (space_hid); | |
| 466 H5Gclose (group_hid); | |
| 467 return false; | |
| 468 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
469 |
| 5351 | 470 octave_idx_type * itmp = m.xcidx (); |
| 471 retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
472 H5P_DEFAULT, itmp) >= 0; |
| 5164 | 473 H5Dclose (data_hid); |
| 474 if (!retval) | |
| 475 { | |
| 476 H5Sclose (space_hid); | |
| 477 H5Gclose (group_hid); | |
| 478 return false; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
479 } |
| 5164 | 480 |
| 481 H5Sclose (space_hid); | |
| 482 | |
|
10527
b4d2080b6df7
Replace nzmax by nnz as needed
David Bateman <dbateman@free.fr>
parents:
10315
diff
changeset
|
483 hdims[0] = m.nnz (); |
| 5164 | 484 hdims[1] = 1; |
| 485 | |
| 486 space_hid = H5Screate_simple (2, hdims, 0); | |
| 487 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
488 if (space_hid < 0) |
| 5164 | 489 { |
| 490 H5Gclose (group_hid); | |
| 491 return false; | |
| 492 } | |
| 493 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
494 #if HAVE_HDF5_18 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
495 data_hid = H5Dcreate (group_hid, "ridx", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
496 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
497 #else |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
498 data_hid = H5Dcreate (group_hid, "ridx", H5T_NATIVE_IDX, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
499 H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
500 #endif |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
501 if (data_hid < 0) |
| 5164 | 502 { |
| 503 H5Sclose (space_hid); | |
| 504 H5Gclose (group_hid); | |
| 505 return false; | |
| 506 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
507 |
| 5164 | 508 itmp = m.xridx (); |
| 5351 | 509 retval = H5Dwrite (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
510 H5P_DEFAULT, itmp) >= 0; |
| 5164 | 511 H5Dclose (data_hid); |
| 512 if (!retval) | |
| 513 { | |
| 514 H5Sclose (space_hid); | |
| 515 H5Gclose (group_hid); | |
| 516 return false; | |
| 517 } | |
| 518 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
519 #if HAVE_HDF5_18 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
520 data_hid = H5Dcreate (group_hid, "data", H5T_NATIVE_HBOOL, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
521 H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
522 #else |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
523 data_hid = H5Dcreate (group_hid, "data", H5T_NATIVE_HBOOL, space_hid, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
524 H5P_DEFAULT); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
525 #endif |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
526 if (data_hid < 0) |
| 5164 | 527 { |
| 528 H5Sclose (space_hid); | |
| 529 H5Gclose (group_hid); | |
| 530 return false; | |
| 531 } | |
| 6276 | 532 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
533 OCTAVE_LOCAL_BUFFER (hbool_t, htmp, m.nnz ()); |
|
10527
b4d2080b6df7
Replace nzmax by nnz as needed
David Bateman <dbateman@free.fr>
parents:
10315
diff
changeset
|
534 for (int i = 0; i < m.nnz (); i++) |
| 5164 | 535 htmp[i] = m.xdata(i); |
| 536 | |
| 537 retval = H5Dwrite (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
538 H5P_DEFAULT, htmp) >= 0; |
| 5164 | 539 H5Dclose (data_hid); |
| 540 H5Sclose (space_hid); | |
| 541 H5Gclose (group_hid); | |
| 542 | |
| 543 return retval; | |
| 544 } | |
| 545 | |
| 546 bool | |
|
9881
b3089dba88bf
Remove HDF5 cruft for older versions of HDF5
Kacper Kowalik
parents:
9469
diff
changeset
|
547 octave_sparse_bool_matrix::load_hdf5 (hid_t loc_id, const char *name) |
| 5164 | 548 { |
| 5351 | 549 octave_idx_type nr, nc, nz; |
| 5164 | 550 hid_t group_hid, data_hid, space_hid; |
| 551 hsize_t rank; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
552 |
| 5164 | 553 dim_vector dv; |
| 554 int empty = load_hdf5_empty (loc_id, name, dv); | |
| 555 if (empty > 0) | |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
556 matrix.resize (dv); |
| 5164 | 557 if (empty) |
| 558 return (empty > 0); | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
559 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
560 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
561 group_hid = H5Gopen (loc_id, name, H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
562 #else |
| 5164 | 563 group_hid = H5Gopen (loc_id, name); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
564 #endif |
| 5164 | 565 if (group_hid < 0 ) return false; |
| 566 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
567 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
568 data_hid = H5Dopen (group_hid, "nr", H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
569 #else |
| 5164 | 570 data_hid = H5Dopen (group_hid, "nr"); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
571 #endif |
| 5164 | 572 space_hid = H5Dget_space (data_hid); |
| 573 rank = H5Sget_simple_extent_ndims (space_hid); | |
| 574 | |
| 575 if (rank != 0) | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
576 { |
| 5164 | 577 H5Dclose (data_hid); |
| 578 H5Gclose (group_hid); | |
| 579 return false; | |
| 580 } | |
| 581 | |
| 5760 | 582 if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nr) < 0) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
583 { |
| 5164 | 584 H5Dclose (data_hid); |
| 585 H5Gclose (group_hid); | |
| 586 return false; | |
| 587 } | |
| 588 | |
| 589 H5Dclose (data_hid); | |
| 590 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
591 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
592 data_hid = H5Dopen (group_hid, "nc", H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
593 #else |
| 5164 | 594 data_hid = H5Dopen (group_hid, "nc"); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
595 #endif |
| 5164 | 596 space_hid = H5Dget_space (data_hid); |
| 597 rank = H5Sget_simple_extent_ndims (space_hid); | |
| 598 | |
| 599 if (rank != 0) | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
600 { |
| 5164 | 601 H5Dclose (data_hid); |
| 602 H5Gclose (group_hid); | |
| 603 return false; | |
| 604 } | |
| 605 | |
| 5760 | 606 if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nc) < 0) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
607 { |
| 5164 | 608 H5Dclose (data_hid); |
| 609 H5Gclose (group_hid); | |
| 610 return false; | |
| 611 } | |
| 612 | |
| 613 H5Dclose (data_hid); | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
614 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
615 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
616 data_hid = H5Dopen (group_hid, "nz", H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
617 #else |
| 5164 | 618 data_hid = H5Dopen (group_hid, "nz"); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
619 #endif |
| 5164 | 620 space_hid = H5Dget_space (data_hid); |
| 621 rank = H5Sget_simple_extent_ndims (space_hid); | |
| 622 | |
| 623 if (rank != 0) | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
624 { |
| 5164 | 625 H5Dclose (data_hid); |
| 626 H5Gclose (group_hid); | |
| 627 return false; | |
| 628 } | |
| 629 | |
| 5760 | 630 if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, &nz) < 0) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
631 { |
| 5164 | 632 H5Dclose (data_hid); |
| 633 H5Gclose (group_hid); | |
| 634 return false; | |
| 635 } | |
| 636 | |
| 637 H5Dclose (data_hid); | |
| 638 | |
| 5275 | 639 SparseBoolMatrix m (static_cast<octave_idx_type> (nr), |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
640 static_cast<octave_idx_type> (nc), |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
641 static_cast<octave_idx_type> (nz)); |
| 5164 | 642 |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
643 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
644 data_hid = H5Dopen (group_hid, "cidx", H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
645 #else |
| 5164 | 646 data_hid = H5Dopen (group_hid, "cidx"); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
647 #endif |
| 5164 | 648 space_hid = H5Dget_space (data_hid); |
| 649 rank = H5Sget_simple_extent_ndims (space_hid); | |
| 650 | |
| 651 if (rank != 2) | |
| 652 { | |
| 653 H5Sclose (space_hid); | |
| 654 H5Dclose (data_hid); | |
| 655 H5Gclose (group_hid); | |
| 656 return false; | |
| 657 } | |
| 658 | |
| 659 OCTAVE_LOCAL_BUFFER (hsize_t, hdims, rank); | |
| 660 OCTAVE_LOCAL_BUFFER (hsize_t, maxdims, rank); | |
| 661 | |
| 662 H5Sget_simple_extent_dims (space_hid, hdims, maxdims); | |
| 663 | |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
664 if (static_cast<int> (hdims[0]) != nc + 1 |
|
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
665 || static_cast<int> (hdims[1]) != 1) |
| 5164 | 666 { |
| 667 H5Sclose (space_hid); | |
| 668 H5Dclose (data_hid); | |
| 669 H5Gclose (group_hid); | |
| 670 return false; | |
| 671 } | |
| 672 | |
| 5351 | 673 octave_idx_type *itmp = m.xcidx (); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
674 if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, H5P_DEFAULT, itmp) < 0) |
| 5164 | 675 { |
| 676 H5Sclose (space_hid); | |
| 677 H5Dclose (data_hid); | |
| 678 H5Gclose (group_hid); | |
| 679 return false; | |
| 680 } | |
| 681 | |
| 682 H5Sclose (space_hid); | |
| 683 H5Dclose (data_hid); | |
| 684 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
685 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
686 data_hid = H5Dopen (group_hid, "ridx", H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
687 #else |
| 5164 | 688 data_hid = H5Dopen (group_hid, "ridx"); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
689 #endif |
| 5164 | 690 space_hid = H5Dget_space (data_hid); |
| 691 rank = H5Sget_simple_extent_ndims (space_hid); | |
| 692 | |
| 693 if (rank != 2) | |
| 694 { | |
| 695 H5Sclose (space_hid); | |
| 696 H5Dclose (data_hid); | |
| 697 H5Gclose (group_hid); | |
| 698 return false; | |
| 699 } | |
| 700 | |
| 701 H5Sget_simple_extent_dims (space_hid, hdims, maxdims); | |
| 702 | |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
703 if (static_cast<int> (hdims[0]) != nz |
|
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
704 || static_cast<int> (hdims[1]) != 1) |
| 5164 | 705 { |
| 706 H5Sclose (space_hid); | |
| 707 H5Dclose (data_hid); | |
| 708 H5Gclose (group_hid); | |
| 709 return false; | |
| 710 } | |
| 711 | |
| 712 itmp = m.xridx (); | |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
713 if (H5Dread (data_hid, H5T_NATIVE_IDX, H5S_ALL, H5S_ALL, |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
714 H5P_DEFAULT, itmp) < 0) |
| 5164 | 715 { |
| 716 H5Sclose (space_hid); | |
| 717 H5Dclose (data_hid); | |
| 718 H5Gclose (group_hid); | |
| 719 return false; | |
| 720 } | |
| 721 | |
| 722 H5Sclose (space_hid); | |
| 723 H5Dclose (data_hid); | |
| 724 | |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
725 #if HAVE_HDF5_18 |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
726 data_hid = H5Dopen (group_hid, "data", H5P_DEFAULT); |
|
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
727 #else |
| 5164 | 728 data_hid = H5Dopen (group_hid, "data"); |
|
9892
ac69e6f4b33d
Add HDF5-1.8 compatibility while maintaining compatibility with HDF5-1.6 versions
Kacper Kowalik <xarthisius.kk@gmail.com>
parents:
9881
diff
changeset
|
729 #endif |
| 5164 | 730 space_hid = H5Dget_space (data_hid); |
| 731 rank = H5Sget_simple_extent_ndims (space_hid); | |
| 732 | |
| 733 if (rank != 2) | |
| 734 { | |
| 735 H5Sclose (space_hid); | |
| 736 H5Dclose (data_hid); | |
| 737 H5Gclose (group_hid); | |
| 738 return false; | |
| 739 } | |
| 740 | |
| 741 H5Sget_simple_extent_dims (space_hid, hdims, maxdims); | |
| 742 | |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
743 if (static_cast<int> (hdims[0]) != nz |
|
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
744 || static_cast<int> (hdims[1]) != 1) |
| 5164 | 745 { |
| 746 H5Sclose (space_hid); | |
| 747 H5Dclose (data_hid); | |
| 748 H5Gclose (group_hid); | |
| 749 return false; | |
| 750 } | |
| 751 | |
| 6775 | 752 OCTAVE_LOCAL_BUFFER (hbool_t, htmp, nz); |
| 5164 | 753 bool retval = false; |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
754 if (H5Dread (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
755 H5P_DEFAULT, htmp) >= 0 |
|
9469
c6edba80dfae
sanity checks for loading sparse matrices
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
756 && m.indices_ok ()) |
| 5164 | 757 { |
| 758 retval = true; | |
| 759 | |
| 760 for (int i = 0; i < nz; i++) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
761 m.xdata(i) = htmp[i]; |
| 5164 | 762 |
| 763 matrix = m; | |
| 764 } | |
| 765 | |
| 766 H5Sclose (space_hid); | |
| 767 H5Dclose (data_hid); | |
| 768 H5Gclose (group_hid); | |
| 769 | |
| 770 return retval; | |
| 771 } | |
| 5900 | 772 |
| 5164 | 773 #endif |
| 774 | |
| 5900 | 775 mxArray * |
| 776 octave_sparse_bool_matrix::as_mxArray (void) const | |
| 777 { | |
| 6686 | 778 mwSize nz = nzmax (); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
779 mxArray *retval = new mxArray (mxLOGICAL_CLASS, rows (), columns (), |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10160
diff
changeset
|
780 nz, mxREAL); |
| 5903 | 781 bool *pr = static_cast<bool *> (retval->get_data ()); |
| 6686 | 782 mwIndex *ir = retval->get_ir (); |
| 783 mwIndex *jc = retval->get_jc (); | |
| 5903 | 784 |
| 6686 | 785 for (mwIndex i = 0; i < nz; i++) |
| 5903 | 786 { |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
787 pr[i] = matrix.data (i); |
|
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
788 ir[i] = matrix.ridx (i); |
| 5903 | 789 } |
| 790 | |
| 6686 | 791 for (mwIndex i = 0; i < columns () + 1; i++) |
|
14861
f7afecdd87ef
maint: Use Octave coding conventions for cuddling parentheses in src/ directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
792 jc[i] = matrix.cidx (i); |
| 5903 | 793 |
| 794 return retval; | |
| 5900 | 795 } |