octave-jordi: libinterp/octave-value/ov-base-int.cc annotate

annotate libinterp/octave-value/ov-base-int.cc @ 20954:77f5591878bf

maint: Use '! expr' rather than '!expr' to conform to coding guidelines. * dialog.h, documentation-dock-widget.cc, files-dock-widget.cc, find-files-dialog.cc, file-editor-tab.cc, file-editor.cc, find-dialog.cc, octave-qscintilla.cc, main-window.cc, parser.cc, resource-manager.cc, workspace-view.cc, data.cc, dlmread.cc, gl-render.cc, gl2ps-renderer.cc, graphics.cc, graphics.in.h, ls-hdf5.cc, ls-mat5.cc, ls-oct-binary.cc, lsode.cc, mappers.cc, pt-jit.cc, regexp.cc, spparms.cc, symtab.h, utils.cc, zfstream.cc, __eigs__.cc, __glpk__.cc, __init_fltk__.cc, ccolamd.cc, colamd.cc, ov-base-diag.cc, ov-base-int.cc, ov-base-sparse.cc, ov-bool-mat.cc, ov-bool-sparse.cc, ov-bool.cc, ov-class.cc, ov-cx-sparse.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-java.cc, ov-perm.cc, ov-re-sparse.cc, ov-str-mat.cc, ov-struct.cc, ov.cc, pt-mat.cc, Array.cc, Array.h, CMatrix.cc, CSparse.cc, MatrixType.cc, PermMatrix.cc, Sparse.h, dMatrix.cc, dSparse.cc, fCMatrix.cc, fMatrix.cc, idx-vector.cc, CollocWt.h, SparseCmplxLU.cc, SparseCmplxQR.cc, SparseQR.cc, SparsedbleLU.cc, base-qr.cc, eigs-base.cc, oct-fftw.cc, randmtzig.c, sparse-dmsolve.cc, kpse.cc, lo-regexp.cc, oct-locbuf.h, url-transfer.cc, url-transfer.h, bitset.m, interp2.m, __isequal__.m, inpolygon.m, questdlg.m, help.m, compare_versions.m, substruct.m, configure_make.m, whitebg.m, __marching_cube__.m, struct2hdl.m, polyfit.m, spline.m, unique.m, svds.m, ellipke.m, binoinv.m, hygepdf.m, nbininv.m, poissinv.m, tcdf.m, unidcdf.m, unidpdf.m, dec2base.m, assert.m, weekday.m, mkoctfile.in.cc: maint: Use '! expr' rather than '!expr' to conform to coding guidelines.

author	Rik <rik@octave.org>
date	Sun, 20 Dec 2015 10:15:02 -0800
parents	758b71e964ce
children	3aa293be0e8d

rev	line source
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	1 /*
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	2
19696 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 18677 diff changeset	3 Copyright (C) 2004-2015 John W. Eaton
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	4
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	6
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6974 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6974 diff changeset	10 option) any later version.
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	11
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	15 for more details.
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	16
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6974 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6974 diff changeset	19 <http://www.gnu.org/licenses/>.
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	20
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	21 */
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	22
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	23 #ifdef HAVE_CONFIG_H
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	24 #include <config.h>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	25 #endif
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	26
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	27 #include <iostream>
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	28 #include <limits>
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	29 #include <vector>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	30
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	31 #include "lo-ieee.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	32 #include "lo-utils.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	33 #include "mx-base.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	34 #include "quit.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7534 diff changeset	35 #include "oct-locbuf.h"
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	36
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	37 #include "defun.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	38 #include "gripes.h"
20939 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20892 diff changeset	39 #include "ovl.h"
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	40 #include "oct-lvalue.h"
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	41 #include "oct-hdf5.h"
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4932 diff changeset	42 #include "oct-stream.h"
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	43 #include "ops.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	44 #include "ov-base.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	45 #include "ov-base-mat.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	46 #include "ov-base-mat.cc"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	47 #include "ov-base-scalar.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	48 #include "ov-base-scalar.cc"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	49 #include "ov-base-int.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	50 #include "ov-int-traits.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	51 #include "pr-output.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	52 #include "variables.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	53
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	54 #include "byte-swap.h"
20446 c6224b4e7774 maint: Rename instances of LS_ASCII to LS_TEXT for clarity. Rik <rik@octave.org> parents: 20227 diff changeset	55 #include "ls-oct-text.h"
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	56 #include "ls-utils.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	57 #include "ls-hdf5.h"
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	58
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	59 // We have all the machinery below (octave_base_int_helper and
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	60 // octave_base_int_helper_traits) to avoid a few warnings from GCC
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	61 // about comparisons always false due to limited range of data types.
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	62 // Ugh. The cure may be worse than the disease.
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	63
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	64 template <class T, bool is_signed = true, bool can_be_too_big = true>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	65 struct octave_base_int_helper
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	66 {
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	67 static bool
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	68 char_value_out_of_range (T val)
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	69 {
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	70 return val < 0 \|\| val > std::numeric_limits<unsigned char>::max ();
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	71 }
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	72 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	73
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	74 template <class T>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	75 struct octave_base_int_helper<T, false, false>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	76 {
9149 7120fbbecf97 ov-base-int.cc: correct result for template specialization John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	77 static bool char_value_out_of_range (T) { return false; }
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	78 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	79
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	80 template <class T>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	81 struct octave_base_int_helper<T, false, true>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	82 {
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	83 static bool char_value_out_of_range (T val)
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	84 {
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	85 return val > std::numeric_limits<unsigned char>::max ();
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	86 }
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	87 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	88
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	89 template <class T>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	90 struct octave_base_int_helper<T, true, false>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	91 {
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	92 static bool char_value_out_of_range (T val) { return val < 0; }
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	93 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	94
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	95 // For all types other than char, signed char, and unsigned char, we
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	96 // assume that the upper limit for the range of allowable values is
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	97 // larger than the range for unsigned char. If that's not true, we
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	98 // are still OK, but will see the warnings again for any other types
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	99 // that do not meet this assumption.
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	100
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	101 template <class T>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	102 struct octave_base_int_helper_traits
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	103 {
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	104 static const bool can_be_larger_than_uchar_max = true;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	105 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	106
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	107 template <>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	108 struct octave_base_int_helper_traits<char>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	109 {
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	110 static const bool can_be_larger_than_uchar_max = false;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	111 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	112
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	113 template <>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	114 struct octave_base_int_helper_traits<signed char>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	115 {
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	116 static const bool can_be_larger_than_uchar_max = false;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	117 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	118
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	119 template <>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	120 struct octave_base_int_helper_traits<unsigned char>
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	121 {
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	122 static const bool can_be_larger_than_uchar_max = false;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	123 };
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	124
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	125
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	126 template <class T>
5759 ce79d238f142 [project @ 2006-04-13 13:04:32 by jwe] jwe parents: 5307 diff changeset	127 octave_base_value *
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	128 octave_base_int_matrix<T>::try_narrowing_conversion (void)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	129 {
5759 ce79d238f142 [project @ 2006-04-13 13:04:32 by jwe] jwe parents: 5307 diff changeset	130 octave_base_value *retval = 0;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	131
20227 00cf2847355d Deprecate Array::nelem() and Range::nelem() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20217 diff changeset	132 if (this->matrix.numel () == 1)
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	133 retval = new typename octave_value_int_traits<T>::scalar_type
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	134 (this->matrix (0));
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	135
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	136 return retval;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	137 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	138
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	139 template <class T>
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	140 octave_value
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	141 octave_base_int_matrix<T>::convert_to_str_internal (bool, bool, char type) const
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	142 {
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	143 octave_value retval;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	144 dim_vector dv = this->dims ();
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	145 octave_idx_type nel = dv.numel ();
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	146
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	147 charNDArray chm (dv);
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	148
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	149 bool warned = false;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	150
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	151 for (octave_idx_type i = 0; i < nel; i++)
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	152 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9892 diff changeset	153 octave_quit ();
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	154
8918 f5408862892f Consistently use element_type in the array classes. Jason Riedy <jason@acm.org> parents: 8377 diff changeset	155 typename T::element_type tmp = this->matrix(i);
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	156
8918 f5408862892f Consistently use element_type in the array classes. Jason Riedy <jason@acm.org> parents: 8377 diff changeset	157 typedef typename T::element_type::val_type val_type;
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	158
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	159 val_type ival = tmp.value ();
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	160
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	161 static const bool is_signed = std::numeric_limits<val_type>::is_signed;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	162 static const bool can_be_larger_than_uchar_max
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	163 = octave_base_int_helper_traits<val_type>::can_be_larger_than_uchar_max;
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	164
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	165 if (octave_base_int_helper<val_type, is_signed,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	166 can_be_larger_than_uchar_max>::char_value_out_of_range (ival))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	167 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	168 // FIXME: is there something better we could do?
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	169
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	170 ival = 0;
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	171
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	172 if (! warned)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	173 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	174 ::warning ("range error for conversion to character value");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	175 warned = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	176 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	177 }
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	178 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	179 chm (i) = static_cast<char> (ival);
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	180 }
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	181
9689 34d6f005db4b eliminate is_string argument from octave_value character array constructors John W. Eaton <jwe@octave.org> parents: 9149 diff changeset	182 retval = octave_value (chm, type);
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	183
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	184 return retval;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	185 }
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	186
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	187 template <class T>
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	188 bool
6974 9e32bb109980 [project @ 2007-10-08 11:06:47 by jwe] jwe parents: 6959 diff changeset	189 octave_base_int_matrix<T>::save_ascii (std::ostream& os)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	190 {
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	191 dim_vector d = this->dims ();
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	192
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	193 os << "# ndims: " << d.length () << "\n";
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	194
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	195 for (int i = 0; i < d.length (); i++)
20217 b2100e1659ac maint: Use cuddled parentheses when indexing dimension_vectors. Rik <rik@octave.org> parents: 19874 diff changeset	196 os << " " << d(i);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	197
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	198 os << "\n" << this->matrix;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	199
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	200 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	201 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	202
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	203 template <class T>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	204 bool
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	205 octave_base_int_matrix<T>::load_ascii (std::istream& is)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	206 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	207 int mdims = 0;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	208 bool success = true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	209
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	210 if (extract_keyword (is, "ndims", mdims, true))
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	211 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	212 if (mdims >= 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	213 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	214 dim_vector dv;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	215 dv.resize (mdims);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	216
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	217 for (int i = 0; i < mdims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	218 is >> dv(i);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	219
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	220 T tmp(dv);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	221
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	222 is >> tmp;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	223
20954 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20952 diff changeset	224 if (! is)
20952 758b71e964ce maint: Eliminate more useless statements after error(). Rik <rik@octave.org> parents: 20951 diff changeset	225 error ("load: failed to load matrix constant");
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	226
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	227 this->matrix = tmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	228 }
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	229 else
20951 072559bd31f2 maint: Eliminate useless statements after error(). Rik <rik@octave.org> parents: 20939 diff changeset	230 error ("load: failed to extract number of rows and columns");
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	231 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	232 else
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	233 error ("load: failed to extract number of dimensions");
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	234
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	235 return success;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	236 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	237
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	238 template <class T>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	239 bool
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	240 octave_base_int_matrix<T>::save_binary (std::ostream& os, bool&)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	241 {
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	242 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: 14138 diff changeset	243 if (d.length () < 1)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	244 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	245
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	246 // Use negative value for ndims to differentiate with old format!!
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	247 int32_t tmp = - d.length ();
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5759 diff changeset	248 os.write (reinterpret_cast<char *> (&tmp), 4);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	249 for (int i=0; i < d.length (); i++)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	250 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	251 tmp = d(i);
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5759 diff changeset	252 os.write (reinterpret_cast<char *> (&tmp), 4);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	253 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	254
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	255 os.write (reinterpret_cast<const char *> (this->matrix.data ()),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	256 this->byte_size ());
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	257
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	258 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	259 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	260
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	261 template <class T>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	262 bool
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	263 octave_base_int_matrix<T>::load_binary (std::istream& is, bool swap,
18677 6113e0c6920b maint: Clean up extra spaces before/after parentheses. Rik <rik@octave.org> parents: 18099 diff changeset	264 oct_mach_info::float_format)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	265 {
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5760 diff changeset	266 int32_t mdims;
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5759 diff changeset	267 if (! is.read (reinterpret_cast<char *> (&mdims), 4))
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	268 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	269 if (swap)
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4932 diff changeset	270 swap_bytes<4> (&mdims);
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	271 if (mdims >= 0)
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	272 return false;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	273
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	274 mdims = - mdims;
5828 22e23bee74c8 [project @ 2006-05-23 06:05:14 by jwe] jwe parents: 5760 diff changeset	275 int32_t di;
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	276 dim_vector dv;
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	277 dv.resize (mdims);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	278
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	279 for (int i = 0; i < mdims; i++)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	280 {
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5759 diff changeset	281 if (! is.read (reinterpret_cast<char *> (&di), 4))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	282 return false;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	283 if (swap)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	284 swap_bytes<4> (&di);
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	285 dv(i) = di;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	286 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	287
5157 8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	288 // Convert an array with a single dimension to be a row vector.
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	289 // Octave should never write files like this, other software
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	290 // might.
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	291
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	292 if (mdims == 1)
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	293 {
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	294 mdims = 2;
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	295 dv.resize (mdims);
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	296 dv(1) = dv(0);
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	297 dv(0) = 1;
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	298 }
8ca032643f55 [project @ 2005-02-23 00:18:58 by jwe] jwe parents: 5105 diff changeset	299
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	300 T m (dv);
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	301
5760 8d7162924bd3 [project @ 2006-04-14 04:01:37 by jwe] jwe parents: 5759 diff changeset	302 if (! is.read (reinterpret_cast<char *> (m.fortran_vec ()), m.byte_size ()))
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	303 return false;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	304
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	305 if (swap)
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	306 {
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	307 int nel = dv.numel ();
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	308 int bytes = nel / m.byte_size ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	309 for (int i = 0; i < nel; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	310 switch (bytes)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	311 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	312 case 8:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	313 swap_bytes<8> (&m(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	314 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	315 case 4:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	316 swap_bytes<4> (&m(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	317 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	318 case 2:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	319 swap_bytes<2> (&m(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	320 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	321 case 1:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	322 default:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	323 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	324 }
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	325 }
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	326
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	327 this->matrix = m;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	328 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	329 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	330
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	331 template <class T>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	332 bool
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	333 octave_base_int_matrix<T>::save_hdf5 (octave_hdf5_id loc_id, const char *name, bool)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	334 {
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	335 bool retval = false;
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	336
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	337 #if defined (HAVE_HDF5)
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	338
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	339 hid_t save_type_hid = HDF5_SAVE_TYPE;
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	340 dim_vector dv = this->dims ();
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	341 int empty = save_hdf5_empty (loc_id, name, dv);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	342 if (empty)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	343 return (empty > 0);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	344
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	345 int rank = dv.length ();
18099 6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	346 hid_t space_hid, data_hid;
6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	347 space_hid = data_hid = -1;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	348 OCTAVE_LOCAL_BUFFER (hsize_t, hdims, rank);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	349
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	350 // Octave uses column-major, while HDF5 uses row-major ordering
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	351 for (int i = 0; i < rank; i++)
20217 b2100e1659ac maint: Use cuddled parentheses when indexing dimension_vectors. Rik <rik@octave.org> parents: 19874 diff changeset	352 hdims[i] = dv(rank-i-1);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	353
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	354 space_hid = H5Screate_simple (rank, hdims, 0);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	355
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	356 if (space_hid < 0) return false;
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	357 #if HAVE_HDF5_18
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	358 data_hid = H5Dcreate (loc_id, name, save_type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	359 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	360 #else
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	361 data_hid = H5Dcreate (loc_id, name, save_type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	362 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	363 #endif
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	364 if (data_hid < 0)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	365 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	366 H5Sclose (space_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	367 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	368 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	369
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	370 retval = H5Dwrite (data_hid, save_type_hid, H5S_ALL, H5S_ALL,
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	371 H5P_DEFAULT, this->matrix.data ()) >= 0;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	372
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	373 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	374 H5Sclose (space_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	375
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	376 #else
19874 2f2220bfd379 ov-base-int.cc, ov-float.cc: Fix build without HDF5 Andreas Weber <andy.weber.aw@gmail.com> parents: 19862 diff changeset	377 this->gripe_save ("hdf5");
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	378 #endif
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	379
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	380 return retval;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	381 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	382
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	383 template <class T>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	384 bool
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	385 octave_base_int_matrix<T>::load_hdf5 (octave_hdf5_id loc_id, const char *name)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	386 {
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	387 bool retval = false;
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	388
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	389 #if defined (HAVE_HDF5)
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	390
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	391 hid_t save_type_hid = HDF5_SAVE_TYPE;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	392 dim_vector dv;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	393 int empty = load_hdf5_empty (loc_id, name, dv);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	394 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	395 this->matrix.resize (dv);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	396 if (empty)
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	397 return (empty > 0);
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	398
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 #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	400 hid_t data_hid = H5Dopen (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	401 #else
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	402 hid_t data_hid = H5Dopen (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	403 #endif
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	404 hid_t space_id = H5Dget_space (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	405
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	406 hsize_t rank = H5Sget_simple_extent_ndims (space_id);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	407
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	408 if (rank < 1)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	409 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	410 H5Sclose (space_id);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	411 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	412 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	413 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	414
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	415 OCTAVE_LOCAL_BUFFER (hsize_t, hdims, rank);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	416 OCTAVE_LOCAL_BUFFER (hsize_t, maxdims, rank);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	417
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	418 H5Sget_simple_extent_dims (space_id, hdims, maxdims);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	419
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	420 // Octave uses column-major, while HDF5 uses row-major ordering
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	421 if (rank == 1)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	422 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	423 dv.resize (2);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	424 dv(0) = 1;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	425 dv(1) = hdims[0];
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	426 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	427 else
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	428 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	429 dv.resize (rank);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	430 for (hsize_t i = 0, j = rank - 1; i < rank; i++, j--)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	431 dv(j) = hdims[i];
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	432 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	433
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	434 T m (dv);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	435 if (H5Dread (data_hid, save_type_hid, H5S_ALL, H5S_ALL,
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	436 H5P_DEFAULT, m.fortran_vec ()) >= 0)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	437 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	438 retval = true;
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	439 this->matrix = m;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	440 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	441
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	442 H5Sclose (space_id);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	443 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	444
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	445 #else
19874 2f2220bfd379 ov-base-int.cc, ov-float.cc: Fix build without HDF5 Andreas Weber <andy.weber.aw@gmail.com> parents: 19862 diff changeset	446 this->gripe_load ("hdf5");
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	447 #endif
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	448
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	449 return retval;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	450 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	451
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	452 template <class T>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	453 void
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	454 octave_base_int_matrix<T>::print_raw (std::ostream& os,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	455 bool pr_as_read_syntax) const
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	456 {
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	457 octave_print_internal (os, this->matrix, pr_as_read_syntax,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	458 this->current_print_indent_level ());
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	459 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	460
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	461 template <class T>
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	462 octave_value
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	463 octave_base_int_scalar<T>::convert_to_str_internal (bool, bool, char type) const
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	464 {
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	465 octave_value retval;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	466
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	467 T tmp = this->scalar;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	468
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	469 typedef typename T::val_type val_type;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	470
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	471 val_type ival = tmp.value ();
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	472
7534 ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	473 static const bool is_signed = std::numeric_limits<val_type>::is_signed;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	474 static const bool can_be_larger_than_uchar_max
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	475 = octave_base_int_helper_traits<val_type>::can_be_larger_than_uchar_max;
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	476
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	477 if (octave_base_int_helper<val_type, is_signed,
ef755c763b62 avoid more "comparison is always false due to limited range of data type" warnings from GCC John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	478 can_be_larger_than_uchar_max>::char_value_out_of_range (ival))
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	479 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	480 // FIXME: is there something better we could do?
5992 4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	481
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	482 ival = 0;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	483
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	484 ::warning ("range error for conversion to character value");
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	485 }
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	486 else
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	487 retval = octave_value (std::string (1, static_cast<char> (ival)), type);
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	488
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	489 return retval;
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	490 }
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	491
4289ed95dde8 [project @ 2006-09-15 20:29:18 by jwe] jwe parents: 5958 diff changeset	492 template <class T>
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	493 bool
6974 9e32bb109980 [project @ 2007-10-08 11:06:47 by jwe] jwe parents: 6959 diff changeset	494 octave_base_int_scalar<T>::save_ascii (std::ostream& os)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	495 {
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	496 os << this->scalar << "\n";
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	497 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	498 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	499
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	500 template <class T>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	501 bool
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	502 octave_base_int_scalar<T>::load_ascii (std::istream& is)
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	503 {
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	504 is >> this->scalar;
20892 384ff5aa9437 2015 Code Sprint: Eliminate useless return statements after error (). Rik <rik@octave.org> parents: 20446 diff changeset	505 if (! is)
384ff5aa9437 2015 Code Sprint: Eliminate useless return statements after error (). Rik <rik@octave.org> parents: 20446 diff changeset	506 error ("load: failed to load scalar constant");
384ff5aa9437 2015 Code Sprint: Eliminate useless return statements after error (). Rik <rik@octave.org> parents: 20446 diff changeset	507
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	508 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	509 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	510
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	511 template <class T>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	512 bool
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	513 octave_base_int_scalar<T>::save_binary (std::ostream& os, bool&)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	514 {
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	515 os.write (reinterpret_cast<char *> (&(this->scalar)), this->byte_size ());
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	516 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	517 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	518
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	519 template <class T>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	520 bool
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	521 octave_base_int_scalar<T>::load_binary (std::istream& is, bool swap,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	522 oct_mach_info::float_format)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	523 {
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	524 T tmp;
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	525 if (! is.read (reinterpret_cast<char *> (&tmp), this->byte_size ()))
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	526 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	527
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	528 if (swap)
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	529 switch (this->byte_size ())
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	530 {
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	531 case 8:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	532 swap_bytes<8> (&tmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	533 break;
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	534 case 4:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	535 swap_bytes<4> (&tmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	536 break;
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	537 case 2:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	538 swap_bytes<2> (&tmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	539 break;
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	540 case 1:
f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	541 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	542 break;
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	543 }
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	544 this->scalar = tmp;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	545 return true;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	546 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	547
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	548 template <class T>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	549 bool
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	550 octave_base_int_scalar<T>::save_hdf5 (octave_hdf5_id loc_id, const char *name, bool)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	551 {
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	552 bool retval = false;
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	553
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	554 #if defined (HAVE_HDF5)
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	555
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	556 hid_t save_type_hid = HDF5_SAVE_TYPE;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	557 hsize_t dimens[3];
18099 6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	558 hid_t space_hid, data_hid;
6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	559 space_hid = data_hid = -1;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	560
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	561 space_hid = H5Screate_simple (0, dimens, 0);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	562 if (space_hid < 0) return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	563
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 #if HAVE_HDF5_18
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	565 data_hid = H5Dcreate (loc_id, name, save_type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	566 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	567 #else
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	568 data_hid = H5Dcreate (loc_id, name, save_type_hid, space_hid,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	569 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	570 #endif
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	571 if (data_hid < 0)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	572 {
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	573 H5Sclose (space_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	574 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	575 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	576
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	577 retval = H5Dwrite (data_hid, save_type_hid, H5S_ALL, H5S_ALL,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	578 H5P_DEFAULT, &(this->scalar)) >= 0;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	579
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	580 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	581 H5Sclose (space_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	582
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	583 #else
19874 2f2220bfd379 ov-base-int.cc, ov-float.cc: Fix build without HDF5 Andreas Weber <andy.weber.aw@gmail.com> parents: 19862 diff changeset	584 this->gripe_save ("hdf5");
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	585 #endif
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	586
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	587 return retval;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	588 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	589
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	590 template <class T>
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	591 bool
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	592 octave_base_int_scalar<T>::load_hdf5 (octave_hdf5_id loc_id, const char *name)
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	593 {
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	594 #if defined (HAVE_HDF5)
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	595
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	596 hid_t save_type_hid = HDF5_SAVE_TYPE;
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	597 #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	598 hid_t data_hid = H5Dopen (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	599 #else
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	600 hid_t data_hid = H5Dopen (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	601 #endif
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	602 hid_t space_id = H5Dget_space (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	603
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	604 hsize_t rank = H5Sget_simple_extent_ndims (space_id);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	605
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	606 if (rank != 0)
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	607 {
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	608 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	609 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	610 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	611
4917 f69e95587ba3 [project @ 2004-07-27 14:03:03 by jwe] jwe parents: 4903 diff changeset	612 T tmp;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	613 if (H5Dread (data_hid, save_type_hid, H5S_ALL, H5S_ALL,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	614 H5P_DEFAULT, &tmp) < 0)
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	615 {
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	616 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	617 return false;
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	618 }
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	619
4932 43f4ebd2704c [project @ 2004-08-05 13:26:10 by jwe] jwe parents: 4917 diff changeset	620 this->scalar = tmp;
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	621
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	622 H5Dclose (data_hid);
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	623
bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	624 return true;
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	625
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	626 #else
19874 2f2220bfd379 ov-base-int.cc, ov-float.cc: Fix build without HDF5 Andreas Weber <andy.weber.aw@gmail.com> parents: 19862 diff changeset	627 this->gripe_load ("hdf5");
19862 09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	628 return false;
09ed6f7538dd avoid needing to include hdf5 in public header files (bug #44370, #43180) John W. Eaton <jwe@octave.org> and Mike Miller <mtmiller@ieee.org> parents: 19696 diff changeset	629 #endif
4903 bfe64e459ce3 [project @ 2004-06-14 19:20:26 by jwe] jwe parents: diff changeset	630 }
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4932 diff changeset	631

Mercurial > hg > octave-jordi

annotate libinterp/octave-value/ov-base-int.cc @ 20954:77f5591878bf