forge: main/fixed/src/ov-fixed-complex.cc annotate

annotate main/fixed/src/ov-fixed-complex.cc @ 2394:1728eb2120ef octave-forge

First cut at reworking fixed toolbox for package manager. Probably non-working

author	adb014
date	Tue, 22 Aug 2006 20:15:42 +0000
parents	d1930f8af7ca
children	cd41a9562cee

rev	line source
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	1 /*
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	2
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	3 Copyright (C) 2003 Motorola Inc
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	4 Copyright (C) 2003 David Bateman
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	5
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	6 This program is free software; you can redistribute it and/or modify it
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	7 under the terms of the GNU General Public License as published by the
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	8 Free Software Foundation; either version 2, or (at your option) any
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	9 later version.
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	10
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	11 This program is distributed in the hope that it will be useful, but WITHOUT
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	14 for more details.
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	15
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	16 You should have received a copy of the GNU General Public License
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	17 along with this program; see the file COPYING. If not, write to the Free
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	18 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	19
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	20 In addition to the terms of the GPL, you are permitted to link
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	21 this program with any Open Source program, as defined by the
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	22 Open Source Initiative (www.opensource.org)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	23
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	24 */
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	25
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	26 #include <iostream>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	27
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	28 #include <octave/config.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	29 #include <octave/oct-obj.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	30 #include <octave/ov.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	31 #include <octave/gripes.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	32 #include <octave/parse.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	33 #include <octave/utils.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	34 #include <octave/unwind-prot.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	35 #include <octave/variables.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	36 #include <octave/data-conv.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	37 #include <octave/byte-swap.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	38 #include <octave/ls-hdf5.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	39
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	40 #include "fixed-def.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	41 #include "ov-base-fixed.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	42 #include "ov-base-fixed.cc"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	43 #include "int/fixed.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	44 #include "fixedComplex.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	45 #include "ov-fixed-complex.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	46 #include "fixed-conv.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	47
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	48 template class octave_base_fixed<FixedPointComplex>;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	49
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	50 DEFINE_OCTAVE_ALLOCATOR (octave_fixed_complex);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	51
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	52 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_fixed_complex, "fixed complex",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	53 "FixedPoint");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	54
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	55 NDArray
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	56 octave_fixed_complex::array_value (bool force_conversion) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	57 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	58 NDArray retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	59
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	60 if (! force_conversion)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	61 gripe_implicit_conversion ("Octave:imag-to-real",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	62 "fixed complex", "matrix");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	63
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	64 retval = NDArray (dim_vector (1, 1), real (scalar.fixedpoint ()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	65
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	66 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	67 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	68
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	69 ComplexNDArray
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	70 octave_fixed_complex::complex_array_value (bool) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	71 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	72 return ComplexNDArray (dim_vector (1, 1), scalar.fixedpoint ());
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	73 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	74
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	75 octave_value
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	76 octave_fixed_complex::resize (const dim_vector& dv, bool) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	77 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	78 if (dv.length() > 2)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	79 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	80 error ("Can not resize fixed point to NDArray");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	81 return octave_value ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	82 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	83 FixedComplexMatrix retval (dv(0),dv(1));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	84 if (dv.numel())
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	85 retval(0) = scalar;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	86 return new octave_fixed_complex_matrix (retval);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	87 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	88
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	89 octave_value
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	90 octave_fixed_complex::subsasgn (const std::string& type,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	91 const std::list<octave_value_list>& idx,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	92 const octave_value& rhs)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	93 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	94 octave_value retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	95
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	96 switch (type[0])
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	97 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	98 case '(':
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	99 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	100 if (type.length () == 1)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	101 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	102 if (idx.front().valid_scalar_indices ()
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	103 && rhs.is_scalar_type ()
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	104 && rhs.is_numeric_type ())
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	105 retval = rhs;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	106 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	107 retval = numeric_assign (type, idx, rhs);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	108 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	109 else if ((type.length () == 2) && idx.front().valid_scalar_indices ()
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	110 && rhs.is_scalar_type () && rhs.is_numeric_type ())
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	111 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	112 std::list<octave_value_list>::const_iterator p = idx.begin ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	113 octave_value_list key_idx = *++p;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	114
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	115 assert (key_idx.length () == 1);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	116
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	117 std::string key = key_idx(0).string_value ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	118
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	119 if (key == __FIXED_SIGN_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	120 error("can not directly change the sign in a fixed structure");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	121 else if (key == __FIXED_VALUE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	122 error("can not directly change the value of a fixed structure");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	123 else if (key == __FIXED_DECSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	124 retval = new octave_fixed_complex (scalar.chdecsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	125 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	126 else if (key == __FIXED_INTSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	127 retval = new octave_fixed_complex (scalar.chintsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	128 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	129 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	130 error ("fixed point structure has no member `%s'",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	131 key.c_str ());
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	132 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	133 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	134 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	135 std::string nm = type_name ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	136 error ("in indexed assignment of %s, illegal assignment",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	137 nm.c_str ());
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	138 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	139 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	140 break;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	141
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	142 case '.':
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	143 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	144 octave_value_list key_idx = idx.front ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	145
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	146 assert (key_idx.length () == 1);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	147
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	148 std::string key = key_idx(0).string_value ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	149
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	150 if (key == __FIXED_SIGN_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	151 error("can not directly change the sign in a fixed structure");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	152 else if (key == __FIXED_VALUE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	153 error("can not directly change the value of a fixed structure");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	154 else if (key == __FIXED_DECSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	155 retval = new octave_fixed_complex (scalar.chdecsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	156 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	157 else if (key == __FIXED_INTSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	158 retval = new octave_fixed_complex (scalar.chintsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	159 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	160 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	161 error ("fixed point structure has no member `%s'", key.c_str ());
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	162 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	163 break;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	164
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	165 case '{':
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	166 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	167 std::string nm = type_name ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	168 error ("%s cannot be indexed with %c", nm.c_str (), type[0]);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	169 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	170 break;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	171
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	172 default:
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	173 panic_impossible ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	174 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	175
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	176 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	177 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	178
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	179 OV_REP_TYPE *
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	180 octave_fixed_complex::try_narrowing_conversion (void)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	181 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	182 OV_REP_TYPE *retval = 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	183
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	184 if (imag (scalar) == FixedPoint())
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	185 retval = new octave_fixed (real (scalar));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	186
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	187 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	188 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	189
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	190 octave_value
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	191 octave_fixed_complex::do_index_op (const octave_value_list& idx, int resize_ok)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	192 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	193 octave_value retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	194
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	195 if (idx.valid_scalar_indices ())
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	196 retval = new octave_fixed_complex (scalar);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	197 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	198 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	199 // XXX FIXME XXX -- this doesn't solve the problem of
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	200 //
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	201 // a = 1; a([1,1], [1,1], [1,1])
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	202 //
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	203 // and similar constructions. Hmm...
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	204
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	205 // XXX FIXME XXX -- using this constructor avoids narrowing the
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	206 // 1x1 matrix back to a scalar value. Need a better solution
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	207 // to this problem.
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	208
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	209 octave_value tmp (new octave_complex_matrix (complex_matrix_value ()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	210
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	211 retval = tmp.do_index_op (idx, resize_ok);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	212 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	213
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	214 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	215 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	216
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	217 FixedPoint
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	218 octave_fixed_complex::fixed_value (bool force_conversion) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	219 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	220 FixedPoint retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	221
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	222 if (! force_conversion)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	223 gripe_implicit_conversion ("Octave:imag-to-real",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	224 "fixed complex", "fixed scalar");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	225
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	226 retval = FixedPoint(real (scalar));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	227
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	228 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	229 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	230
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	231 FixedMatrix
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	232 octave_fixed_complex::fixed_matrix_value (bool force_conversion) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	233 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	234 FixedMatrix retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	235
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	236 if (! force_conversion)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	237 gripe_implicit_conversion ("Octave:imag-to-real",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	238 "fixed complex", "fixed matrix");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	239
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	240 retval = FixedMatrix(1,1,real (scalar));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	241
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	242 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	243 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	244
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	245 static void
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	246 restore_precision (void *p)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	247 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	248 bind_internal_variable ("output_precision", (static_cast<int > (p)));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	249 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	250
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	251 void
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	252 octave_fixed_complex::print_raw (std::ostream& os,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	253 bool pr_as_read_syntax) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	254 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	255 double min_num = std::max(abs(real(scalar)).fixedpoint(),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	256 abs(imag(scalar)).fixedpoint());
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	257 int new_prec = (int)std::max(real(scalar.getdecsize()),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	258 imag(scalar.getdecsize()))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	259 + (min_num >= 1. ? (int)log10(min_num) + 1 : 0);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	260
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	261 octave_value_list tmp = feval ("output_precision");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	262 int prec = tmp(0).int_value ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	263 unwind_protect::add (restore_precision, &prec);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	264 bind_internal_variable ("output_precision", new_prec);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	265
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	266 indent (os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	267 octave_print_internal (os, complex_value(), pr_as_read_syntax);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	268
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	269 unwind_protect::run ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	270 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	271
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	272 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	273 octave_fixed_complex::save_ascii (std::ostream& os, bool& infnan_warned,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	274 bool strip_nan_and_inf)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	275 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	276 os << scalar.real ().getintsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	277 << scalar.imag ().getintsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	278 << scalar.real ().getdecsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	279 << scalar.imag ().getdecsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	280 << scalar.real ().getnumber () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	281 << scalar.imag ().getnumber () << "\n";
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	282
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	283 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	284 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	285
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	286 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	287 octave_fixed_complex::load_ascii (std::istream& is)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	288 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	289 unsigned int iintsize, rintsize, idecsize, rdecsize, rnumber, inumber;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	290
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	291 is >> rintsize >> iintsize >> rdecsize >> idecsize>> rnumber >> inumber;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	292 scalar = FixedPointComplex (FixedPoint (rintsize, rdecsize, rnumber),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	293 FixedPoint (iintsize, idecsize, inumber));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	294
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	295 return is;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	296 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	297
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	298 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	299 octave_fixed_complex::save_binary (std::ostream& os, bool& save_as_floats)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	300 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	301 unsigned int itmp;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	302 char tmp = (char) sizeof (unsigned int);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	303 os.write (X_CAST (char *, &tmp), 1);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	304
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	305 FixedPoint rnumber = scalar.real (), inumber = scalar.imag ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	306
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	307 // intsize and decsize are integers in the range [0:32], so store as char
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	308 tmp = rnumber.getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	309 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	310 tmp = inumber.getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	311 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	312 tmp = rnumber.getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	313 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	314 tmp = inumber.getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	315 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	316 itmp = rnumber.getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	317 LS_DO_WRITE (unsigned int, &itmp, sizeof (unsigned int), 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	318 itmp = inumber.getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	319 LS_DO_WRITE (unsigned int, &itmp, sizeof (unsigned int), 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	320
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	321 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	322 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	323
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	324 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	325 octave_fixed_complex::load_binary (std::istream& is, bool swap,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	326 oct_mach_info::float_format fmt)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	327 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	328 char size;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	329 unsigned int iintsize, rintsize, idecsize, rdecsize, inumber, rnumber;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	330
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	331 if (! is.read (X_CAST (char *, &size), 1))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	332 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	333
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	334 LS_DO_READ_1(&rintsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	335 LS_DO_READ_1(&iintsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	336 LS_DO_READ_1(&rdecsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	337 LS_DO_READ_1(&idecsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	338
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	339 if (size == 4)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	340 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	341 LS_DO_READ(unsigned int, swap, &rnumber, 4, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	342 LS_DO_READ(unsigned int, swap, &inumber, 4, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	343 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	344 else if (size == 8)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	345 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	346 LS_DO_READ(unsigned int, swap, &rnumber, 8, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	347 LS_DO_READ(unsigned int, swap, &inumber, 8, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	348 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	349 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	350 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	351
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	352 if (error_state \|\| ! is)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	353 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	354
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	355 scalar = FixedPointComplex (FixedPoint (rintsize, rdecsize, rnumber),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	356 FixedPoint (iintsize, idecsize, inumber));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	357 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	358 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	359
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	360 #if defined (HAVE_HDF5)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	361 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	362 octave_fixed_complex::save_hdf5 (hid_t loc_id, const char *name,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	363 bool save_as_floats)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	364 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	365 hid_t group_hid = -1;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	366 group_hid = H5Gcreate (loc_id, name, 0);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	367 if (group_hid < 0 ) return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	368
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	369 hsize_t dims[3];
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	370 hid_t space_hid = -1, data_hid = -1, type_hid = -1;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	371 bool retval = true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	372
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	373 space_hid = H5Screate_simple (0, dims, (hsize_t*) 0);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	374 if (space_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	375 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	376 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	377 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	378 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	379
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	380 type_hid = hdf5_make_fixed_complex_type (H5T_NATIVE_UCHAR, 1);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	381 if (type_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	382 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	383 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	384 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	385 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	386 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	387
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	388 data_hid = H5Dcreate (group_hid, "int", type_hid, space_hid, H5P_DEFAULT);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	389 if (data_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	390 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	391 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	392 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	393 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	394 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	395 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	396
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	397 OCTAVE_LOCAL_BUFFER(char, tmp, 2);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	398 tmp[0] = scalar.real ().getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	399 tmp[1] = scalar.imag ().getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	400
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	401 retval = H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL, H5P_DEFAULT,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	402 (void*) tmp) >= 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	403 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	404 if (!retval)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	405 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	406 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	407 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	408 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	409 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	410 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	411
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	412 data_hid = H5Dcreate (group_hid, "dec", type_hid, space_hid, H5P_DEFAULT);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	413 if (data_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	414 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	415 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	416 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	417 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	418 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	419 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	420
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	421 tmp[0] = scalar.real ().getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	422 tmp[1] = scalar.imag ().getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	423
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	424 retval = H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL, H5P_DEFAULT,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	425 (void*) tmp) >= 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	426 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	427 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	428 if (!retval)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	429 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	430 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	431 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	432 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	433 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	434
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	435 type_hid = hdf5_make_fixed_complex_type (H5T_NATIVE_UINT,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	436 sizeof (unsigned int));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	437 if (type_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	438 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	439 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	440 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	441 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	442 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	443
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	444 data_hid = H5Dcreate (group_hid, "num", type_hid, space_hid, H5P_DEFAULT);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	445 if (data_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	446 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	447 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	448 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	449 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	450 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	451 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	452
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	453 OCTAVE_LOCAL_BUFFER(unsigned int, num, 2);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	454 num[0] = scalar.real ().getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	455 num[1] = scalar.imag ().getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	456
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	457 retval = H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL, H5P_DEFAULT,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	458 (void*) num) >= 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	459 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	460 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	461 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	462 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	463 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	464 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	465
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	466 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	467 octave_fixed_complex::load_hdf5 (hid_t loc_id, const char *name,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	468 bool have_h5giterate_bug)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	469 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	470 char intsize[2], decsize[2];
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	471 unsigned int number[2];
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	472 hid_t group_hid, data_hid, type_hid, space_id;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	473 hsize_t rank;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	474
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	475 group_hid = H5Gopen (loc_id, name);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	476 if (group_hid < 0 ) return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	477
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	478 hid_t complex_type = hdf5_make_fixed_complex_type (H5T_NATIVE_UCHAR, 1);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	479
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	480 data_hid = H5Dopen (group_hid, "int");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	481 type_hid = H5Dget_type (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	482
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	483 if (! hdf5_types_compatible (type_hid, complex_type))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	484 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	485 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	486 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	487 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	488 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	489 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	490 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	491
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	492 space_id = H5Dget_space (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	493 rank = H5Sget_simple_extent_ndims (space_id);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	494
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	495 if (rank != 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	496 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	497 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	498 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	499 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	500 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	501 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	502 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	503
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	504 if (H5Dread (data_hid, complex_type, H5S_ALL, H5S_ALL,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	505 H5P_DEFAULT, (void *) &intsize) < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	506 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	507 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	508 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	509 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	510 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	511 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	512 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	513
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	514 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	515 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	516 data_hid = H5Dopen (group_hid, "dec");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	517 type_hid = H5Dget_type (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	518
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	519 if (! hdf5_types_compatible (type_hid, complex_type))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	520 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	521 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	522 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	523 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	524 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	525 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	526 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	527
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	528 space_id = H5Dget_space (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	529 rank = H5Sget_simple_extent_ndims (space_id);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	530
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	531 if (rank != 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	532 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	533 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	534 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	535 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	536 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	537 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	538 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	539
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	540 if (H5Dread (data_hid, complex_type, H5S_ALL, H5S_ALL,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	541 H5P_DEFAULT, (void *) &decsize) < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	542 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	543 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	544 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	545 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	546 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	547 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	548 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	549
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	550 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	551 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	552 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	553
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	554 complex_type = hdf5_make_fixed_complex_type (H5T_NATIVE_UINT,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	555 sizeof(unsigned int));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	556 data_hid = H5Dopen (group_hid, "num");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	557 type_hid = H5Dget_type (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	558
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	559 if (! hdf5_types_compatible (type_hid, complex_type))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	560 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	561 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	562 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	563 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	564 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	565 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	566 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	567
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	568 space_id = H5Dget_space (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	569 rank = H5Sget_simple_extent_ndims (space_id);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	570
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	571 if (rank != 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	572 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	573 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	574 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	575 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	576 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	577 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	578 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	579
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	580 if (H5Dread (data_hid, complex_type, H5S_ALL, H5S_ALL,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	581 H5P_DEFAULT, (void *) &number) < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	582 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	583 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	584 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	585 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	586 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	587 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	588 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	589
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	590 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	591 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	592 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	593 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	594
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	595 scalar = FixedPointComplex (FixedPoint (intsize[0], decsize[0], number[0]),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	596 FixedPoint (intsize[1], decsize[1], number[1]));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	597
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	598 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	599 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	600 #endif
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	601
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	602 /*
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	603 ;;; Local Variables: ***
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	604 ;;; mode: C++ ***
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	605 ;;; End: ***
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	606 */

Mercurial > forge

annotate main/fixed/src/ov-fixed-complex.cc @ 2394:1728eb2120ef octave-forge