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

annotate main/fixed/src/ov-fixed-complex.cc @ 9481:d84d2fea3c90 octave-forge

Re-enable compilation of fixed package

author	jordigh
date	Wed, 22 Feb 2012 22:07:33 +0000
parents	0924c374b60d
children	58d36e8880db

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
4404 2de537641f94 More copyright updates adb014 parents: 3935 diff changeset	17 along with this program; see the file COPYING. If not, see
2de537641f94 More copyright updates adb014 parents: 3935 diff changeset	18 <http://www.gnu.org/licenses/>.
2383 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>
5248 f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	32 #include <octave/symtab.h>
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	33 #include <octave/parse.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	34 #include <octave/utils.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	35 #include <octave/unwind-prot.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	36 #include <octave/variables.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	37 #include <octave/data-conv.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	38 #include <octave/byte-swap.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	39 #include <octave/ls-hdf5.h>
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	40
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	41 #include "fixed-def.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	42 #include "ov-base-fixed.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	43 #include "ov-base-fixed.cc"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	44 #include "int/fixed.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	45 #include "fixedComplex.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	46 #include "ov-fixed-complex.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	47 #include "fixed-conv.h"
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	48
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	49 template class octave_base_fixed<FixedPointComplex>;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	50
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	51 DEFINE_OCTAVE_ALLOCATOR (octave_fixed_complex);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	52
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	53 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	54 "FixedPoint");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	55
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	56 NDArray
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	57 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	58 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	59 NDArray retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	60
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	61 if (! force_conversion)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	62 gripe_implicit_conversion ("Octave:imag-to-real",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	63 "fixed complex", "matrix");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	64
5248 f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	65 retval = NDArray (dim_vector (1, 1), std::real (scalar.fixedpoint ()));
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	66
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	67 return retval;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	70 ComplexNDArray
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	71 octave_fixed_complex::complex_array_value (bool) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	72 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	73 return ComplexNDArray (dim_vector (1, 1), scalar.fixedpoint ());
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	76 octave_value
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	77 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	78 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	79 if (dv.length() > 2)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	80 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	81 error ("Can not resize fixed point to NDArray");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	82 return octave_value ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	83 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	84 FixedComplexMatrix retval (dv(0),dv(1));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	85 if (dv.numel())
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	86 retval(0) = scalar;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	87 return new octave_fixed_complex_matrix (retval);
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	90 octave_value
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	91 octave_fixed_complex::subsasgn (const std::string& type,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	92 const std::list<octave_value_list>& idx,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	93 const octave_value& rhs)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	94 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	95 octave_value retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	96
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	97 switch (type[0])
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	98 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	99 case '(':
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	100 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	101 if (type.length () == 1)
5655 0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	102 retval = numeric_assign (type, idx, rhs);
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	103 else if ((type.length () == 2) && rhs.is_scalar_type () &&
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	104 rhs.is_numeric_type ())
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	105 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	106 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	107 octave_value_list key_idx = *++p;
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 assert (key_idx.length () == 1);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	110
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	111 std::string key = key_idx(0).string_value ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	112
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	113 if (key == __FIXED_SIGN_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	114 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	115 else if (key == __FIXED_VALUE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	116 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	117 else if (key == __FIXED_DECSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	118 retval = new octave_fixed_complex (scalar.chdecsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	119 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	120 else if (key == __FIXED_INTSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	121 retval = new octave_fixed_complex (scalar.chintsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	122 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	123 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	124 error ("fixed point structure has no member `%s'",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	125 key.c_str ());
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	126 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	127 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	128 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	129 std::string nm = type_name ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	130 error ("in indexed assignment of %s, illegal assignment",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	131 nm.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 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	134 break;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	135
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	136 case '.':
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	137 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	138 octave_value_list key_idx = idx.front ();
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 assert (key_idx.length () == 1);
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 std::string key = key_idx(0).string_value ();
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 if (key == __FIXED_SIGN_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	145 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	146 else if (key == __FIXED_VALUE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	147 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	148 else if (key == __FIXED_DECSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	149 retval = new octave_fixed_complex (scalar.chdecsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	150 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	151 else if (key == __FIXED_INTSIZE_STR)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	152 retval = new octave_fixed_complex (scalar.chintsize(
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	153 rhs.complex_value()));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	154 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	155 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	156 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	157 break;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	158
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	159 case '{':
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	160 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	161 std::string nm = type_name ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	162 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	163 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	164 break;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	165
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	166 default:
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	167 panic_impossible ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	168 }
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 return retval;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	173 OV_REP_TYPE *
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	174 octave_fixed_complex::try_narrowing_conversion (void)
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 OV_REP_TYPE *retval = 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	177
5248 f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	178 if (::imag (scalar) == FixedPoint())
f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	179 retval = new octave_fixed (::real (scalar));
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	180
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	181 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	182 }
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 octave_value
2419 cd41a9562cee Fix for 2.9.x change to do_index method adb014 parents: 2394 diff changeset	185 octave_fixed_complex::do_index_op (const octave_value_list& idx, bool resize_ok)
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	186 {
5655 0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	187 // XXX FIXME XXX -- this doesn't solve the problem of
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	188 //
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	189 // a = 1; a([1,1], [1,1], [1,1])
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	190 //
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	191 // and similar constructions. Hmm...
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	192
5655 0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	193 // XXX FIXME XXX -- using this constructor avoids narrowing the
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	194 // 1x1 matrix back to a scalar value. Need a better solution
0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	195 // to this problem.
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	196
5655 0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	197 octave_value tmp (new octave_fixed_complex_matrix (fixed_complex_matrix_value ()));
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	198
5655 0924c374b60d Update fixed point code for 3.1.x. Minor bug in test code still present though code seems to work fine adb014 parents: 5248 diff changeset	199 return tmp.do_index_op (idx, resize_ok);
2383 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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	202 FixedPoint
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	203 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	204 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	205 FixedPoint retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	206
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	207 if (! force_conversion)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	208 gripe_implicit_conversion ("Octave:imag-to-real",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	209 "fixed complex", "fixed scalar");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	210
5248 f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	211 retval = FixedPoint(::real (scalar));
2383 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 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	214 }
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 FixedMatrix
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	217 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	218 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	219 FixedMatrix retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	220
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	221 if (! force_conversion)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	222 gripe_implicit_conversion ("Octave:imag-to-real",
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	223 "fixed complex", "fixed matrix");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	224
5248 f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	225 retval = FixedMatrix(1,1,::real (scalar));
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	226
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	227 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	228 }
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 static void
9481 d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	231 restore_precision (int *p)
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	232 {
9481 d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	233 bind_internal_variable ("output_precision", *p);
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	234 }
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 void
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	237 octave_fixed_complex::print_raw (std::ostream& os,
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	238 bool pr_as_read_syntax) const
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	239 {
5248 f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	240 double min_num = std::max(::abs(::real(scalar)).fixedpoint(),
f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	241 ::abs(::imag(scalar)).fixedpoint());
f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	242 int new_prec = (int)std::max(std::real(scalar.getdecsize()),
f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	243 std::imag(scalar.getdecsize()))
f8d77845533f Changes for compilation with 3.1.51+ adb014 parents: 4404 diff changeset	244 + (min_num >= 1. ? (int)::log10(min_num) + 1 : 0);
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	245
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	246 octave_value_list tmp = feval ("output_precision");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	247 int prec = tmp(0).int_value ();
9481 d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	248
d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	249 unwind_protect frame;
d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	250
d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	251 frame.add_fcn (restore_precision, &prec);
d84d2fea3c90 Re-enable compilation of fixed package jordigh parents: 5655 diff changeset	252
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	253 bind_internal_variable ("output_precision", new_prec);
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 indent (os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	256 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	257 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	258
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	259 bool
3935 283f38d1e7eb remove strip_nan_and_inf arg from save_ascii functions (For John Eaton) adb014 parents: 3272 diff changeset	260 octave_fixed_complex::save_ascii (std::ostream& os)
2383 d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	261 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	262 os << scalar.real ().getintsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	263 << scalar.imag ().getintsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	264 << scalar.real ().getdecsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	265 << scalar.imag ().getdecsize () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	266 << scalar.real ().getnumber () << " "
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	267 << scalar.imag ().getnumber () << "\n";
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 return true;
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::load_ascii (std::istream& is)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	274 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	275 unsigned int iintsize, rintsize, idecsize, rdecsize, rnumber, inumber;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	276
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	277 is >> rintsize >> iintsize >> rdecsize >> idecsize>> rnumber >> inumber;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	278 scalar = FixedPointComplex (FixedPoint (rintsize, rdecsize, rnumber),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	279 FixedPoint (iintsize, idecsize, inumber));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	280
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	281 return is;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	284 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	285 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	286 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	287 unsigned int itmp;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	288 char tmp = (char) sizeof (unsigned int);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	289 os.write (X_CAST (char *, &tmp), 1);
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 FixedPoint rnumber = scalar.real (), inumber = scalar.imag ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	292
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	293 // 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	294 tmp = rnumber.getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	295 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	296 tmp = inumber.getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	297 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	298 tmp = rnumber.getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	299 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	300 tmp = inumber.getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	301 LS_DO_WRITE (char, &tmp, 1, 1, os);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	302 itmp = rnumber.getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	303 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	304 itmp = inumber.getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	305 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	306
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	307 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	308 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	309
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	310 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	311 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	312 oct_mach_info::float_format fmt)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	313 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	314 char size;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	315 unsigned int iintsize, rintsize, idecsize, rdecsize, inumber, rnumber;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	316
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	317 if (! is.read (X_CAST (char *, &size), 1))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	318 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	319
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	320 LS_DO_READ_1(&rintsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	321 LS_DO_READ_1(&iintsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	322 LS_DO_READ_1(&rdecsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	323 LS_DO_READ_1(&idecsize, 1, is);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	324
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	325 if (size == 4)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	326 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	327 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	328 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	329 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	330 else if (size == 8)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	331 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	332 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	333 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	334 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	335 else
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	336 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	337
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	338 if (error_state \|\| ! is)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	339 return false;
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 scalar = FixedPointComplex (FixedPoint (rintsize, rdecsize, rnumber),
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	342 FixedPoint (iintsize, idecsize, inumber));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	343 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	344 }
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 #if defined (HAVE_HDF5)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	347 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	348 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	349 bool save_as_floats)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	350 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	351 hid_t group_hid = -1;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	352 group_hid = H5Gcreate (loc_id, name, 0);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	353 if (group_hid < 0 ) 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 hsize_t dims[3];
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	356 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	357 bool retval = 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 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	360 if (space_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	361 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	362 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	363 return false;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	366 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	367 if (type_hid < 0)
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 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	370 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	371 return false;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	374 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	375 if (data_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	376 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	377 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	378 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	379 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	380 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	381 }
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 OCTAVE_LOCAL_BUFFER(char, tmp, 2);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	384 tmp[0] = scalar.real ().getintsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	385 tmp[1] = scalar.imag ().getintsize ();
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 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	388 (void*) tmp) >= 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	389 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	390 if (!retval)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	391 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	392 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	393 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	394 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	395 return false;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	398 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	399 if (data_hid < 0)
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 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	402 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	403 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	404 return false;
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
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	407 tmp[0] = scalar.real ().getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	408 tmp[1] = scalar.imag ().getdecsize ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	409
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	410 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	411 (void*) tmp) >= 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	412 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	413 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	414 if (!retval)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	415 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	416 H5Sclose (space_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 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	422 sizeof (unsigned int));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	423 if (type_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	424 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	425 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	426 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	427 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	428 }
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 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	431 if (data_hid < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	432 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	433 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	434 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	435 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	436 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	437 }
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 OCTAVE_LOCAL_BUFFER(unsigned int, num, 2);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	440 num[0] = scalar.real ().getnumber ();
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	441 num[1] = scalar.imag ().getnumber ();
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 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	444 (void*) num) >= 0;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	445 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	446 H5Sclose (space_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	447 H5Tclose (type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	448 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	449 return retval;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	450 }
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 bool
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	453 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	454 bool have_h5giterate_bug)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	455 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	456 char intsize[2], decsize[2];
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	457 unsigned int number[2];
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	458 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	459 hsize_t rank;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	460
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	461 group_hid = H5Gopen (loc_id, name);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	462 if (group_hid < 0 ) return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	463
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	464 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	465
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	466 data_hid = H5Dopen (group_hid, "int");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	467 type_hid = H5Dget_type (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	468
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	469 if (! hdf5_types_compatible (type_hid, complex_type))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	470 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	471 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	472 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	473 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	474 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	475 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	476 }
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 space_id = H5Dget_space (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	479 rank = H5Sget_simple_extent_ndims (space_id);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	480
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	481 if (rank != 0)
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 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	484 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	485 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	486 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	487 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	488 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	489
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	490 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	491 H5P_DEFAULT, (void *) &intsize) < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	492 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	493 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	494 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	495 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	496 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	497 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	498 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	499
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	500 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	501 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	502 data_hid = H5Dopen (group_hid, "dec");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	503 type_hid = H5Dget_type (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	504
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	505 if (! hdf5_types_compatible (type_hid, complex_type))
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 space_id = H5Dget_space (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	515 rank = H5Sget_simple_extent_ndims (space_id);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	516
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	517 if (rank != 0)
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 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	520 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	521 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	522 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	523 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	524 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	525
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	526 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	527 H5P_DEFAULT, (void *) &decsize) < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	528 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	529 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	530 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	531 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	532 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	533 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	534 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	535
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	536 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	537 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	538 H5Dclose (data_hid);
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 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	541 sizeof(unsigned int));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	542 data_hid = H5Dopen (group_hid, "num");
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	543 type_hid = H5Dget_type (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	544
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	545 if (! hdf5_types_compatible (type_hid, complex_type))
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	546 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	547 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	548 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	549 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	550 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	551 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	552 }
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 space_id = H5Dget_space (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	555 rank = H5Sget_simple_extent_ndims (space_id);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	556
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	557 if (rank != 0)
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 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	560 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	561 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	562 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	563 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	564 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	565
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	566 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	567 H5P_DEFAULT, (void *) &number) < 0)
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	568 {
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	569 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	570 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	571 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	572 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	573 return false;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	574 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	575
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	576 H5Tclose(complex_type);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	577 H5Tclose(type_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	578 H5Dclose (data_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	579 H5Gclose (group_hid);
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	580
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	581 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	582 FixedPoint (intsize[1], decsize[1], number[1]));
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	583
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	584 return true;
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	585 }
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	586 #endif
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	587
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 ;;; Local Variables: ***
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	590 ;;; mode: C++ ***
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	591 ;;; End: ***
d1930f8af7ca Changed the directory structure of fixed to match the package system hauberg parents: diff changeset	592 */

Mercurial > forge

annotate main/fixed/src/ov-fixed-complex.cc @ 9481:d84d2fea3c90 octave-forge