Mercurial > hg > octave-nkf
diff src/ov-cx-mat.cc @ 10315:57a59eae83cc
untabify src C++ source files
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 11 Feb 2010 12:41:46 -0500 |
parents | cd96d29c5efa |
children | 4d1fc073fbb7 |
line wrap: on
line diff
--- a/src/ov-cx-mat.cc +++ b/src/ov-cx-mat.cc @@ -60,7 +60,7 @@ DEFINE_OCTAVE_ALLOCATOR (octave_complex_matrix); DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_complex_matrix, - "complex matrix", "double"); + "complex matrix", "double"); static octave_base_value * default_numeric_demotion_function (const octave_base_value& a) @@ -104,12 +104,12 @@ if (! force_conversion) gripe_implicit_conversion ("Octave:imag-to-real", - "complex matrix", "real scalar"); + "complex matrix", "real scalar"); if (rows () > 0 && columns () > 0) { gripe_implicit_conversion ("Octave:array-as-scalar", - "complex matrix", "real scalar"); + "complex matrix", "real scalar"); retval = std::real (matrix (0, 0)); } @@ -126,12 +126,12 @@ if (! force_conversion) gripe_implicit_conversion ("Octave:imag-to-real", - "complex matrix", "real scalar"); + "complex matrix", "real scalar"); if (rows () > 0 && columns () > 0) { gripe_implicit_conversion ("Octave:array-as-scalar", - "complex matrix", "real scalar"); + "complex matrix", "real scalar"); retval = std::real (matrix (0, 0)); } @@ -148,7 +148,7 @@ if (! force_conversion) gripe_implicit_conversion ("Octave:imag-to-real", - "complex matrix", "real matrix"); + "complex matrix", "real matrix"); retval = ::real (matrix.matrix_value ()); @@ -162,7 +162,7 @@ if (! force_conversion) gripe_implicit_conversion ("Octave:imag-to-real", - "complex matrix", "real matrix"); + "complex matrix", "real matrix"); retval = ::real (matrix.matrix_value ()); @@ -179,7 +179,7 @@ if (rows () > 0 && columns () > 0) { gripe_implicit_conversion ("Octave:array-as-scalar", - "complex matrix", "complex scalar"); + "complex matrix", "complex scalar"); retval = matrix (0, 0); } @@ -199,7 +199,7 @@ if (rows () > 0 && columns () > 0) { gripe_implicit_conversion ("Octave:array-as-scalar", - "complex matrix", "complex scalar"); + "complex matrix", "complex scalar"); retval = matrix (0, 0); } @@ -240,14 +240,14 @@ if (! frc_str_conv) gripe_implicit_conversion ("Octave:num-to-str", - "complex matrix", "string"); + "complex matrix", "string"); else { retval = charNDArray (dims ()); octave_idx_type nel = numel (); for (octave_idx_type i = 0; i < nel; i++) - retval.elem (i) = static_cast<char>(std::real (matrix.elem (i))); + retval.elem (i) = static_cast<char>(std::real (matrix.elem (i))); } return retval; @@ -266,7 +266,7 @@ if (! force_conversion) gripe_implicit_conversion ("Octave:imag-to-real", - "complex matrix", "real matrix"); + "complex matrix", "real matrix"); retval = SparseMatrix (::real (matrix.matrix_value ())); @@ -303,7 +303,7 @@ os << "# ndims: " << d.length () << "\n"; for (int i = 0; i < d.length (); i++) - os << " " << d (i); + os << " " << d (i); os << "\n" << tmp; } @@ -312,7 +312,7 @@ // Keep this case, rather than use generic code above for backward // compatiability. Makes load_ascii much more complex!! os << "# rows: " << rows () << "\n" - << "# columns: " << columns () << "\n"; + << "# columns: " << columns () << "\n"; os << complex_matrix_value (); } @@ -336,20 +336,20 @@ if (extract_keyword (is, keywords, kw, val, true)) { if (kw == "ndims") - { - int mdims = static_cast<int> (val); + { + int mdims = static_cast<int> (val); - if (mdims >= 0) - { - dim_vector dv; - dv.resize (mdims); + if (mdims >= 0) + { + dim_vector dv; + dv.resize (mdims); - for (int i = 0; i < mdims; i++) - is >> dv(i); + for (int i = 0; i < mdims; i++) + is >> dv(i); - if (is) - { - ComplexNDArray tmp(dv); + if (is) + { + ComplexNDArray tmp(dv); is >> tmp; @@ -360,51 +360,51 @@ error ("load: failed to load matrix constant"); success = false; } - } - else - { - error ("load: failed to read dimensions"); - success = false; - } - } - else - { - error ("load: failed to extract number of dimensions"); - success = false; - } - } + } + else + { + error ("load: failed to read dimensions"); + success = false; + } + } + else + { + error ("load: failed to extract number of dimensions"); + success = false; + } + } else if (kw == "rows") - { - octave_idx_type nr = val; - octave_idx_type nc = 0; + { + octave_idx_type nr = val; + octave_idx_type nc = 0; - if (nr >= 0 && extract_keyword (is, "columns", nc) && nc >= 0) - { - if (nr > 0 && nc > 0) - { - ComplexMatrix tmp (nr, nc); - is >> tmp; - if (is) - matrix = tmp; - else - { - error ("load: failed to load matrix constant"); - success = false; - } - } - else if (nr == 0 || nc == 0) - matrix = ComplexMatrix (nr, nc); - else - panic_impossible (); - } - else - { - error ("load: failed to extract number of rows and columns"); - success = false; - } - } + if (nr >= 0 && extract_keyword (is, "columns", nc) && nc >= 0) + { + if (nr > 0 && nc > 0) + { + ComplexMatrix tmp (nr, nc); + is >> tmp; + if (is) + matrix = tmp; + else + { + error ("load: failed to load matrix constant"); + success = false; + } + } + else if (nr == 0 || nc == 0) + matrix = ComplexMatrix (nr, nc); + else + panic_impossible (); + } + else + { + error ("load: failed to extract number of rows and columns"); + success = false; + } + } else - panic_impossible (); + panic_impossible (); } else { @@ -436,18 +436,18 @@ if (save_as_floats) { if (m.too_large_for_float ()) - { - warning ("save: some values too large to save as floats --"); - warning ("save: saving as doubles instead"); - } + { + warning ("save: some values too large to save as floats --"); + warning ("save: saving as doubles instead"); + } else - st = LS_FLOAT; + st = LS_FLOAT; } else if (d.numel () > 4096) // FIXME -- make this configurable. { double max_val, min_val; if (m.all_integers (max_val, min_val)) - st = get_save_type (max_val, min_val); + st = get_save_type (max_val, min_val); } @@ -459,7 +459,7 @@ bool octave_complex_matrix::load_binary (std::istream& is, bool swap, - oct_mach_info::float_format fmt) + oct_mach_info::float_format fmt) { char tmp; int32_t mdims; @@ -475,35 +475,35 @@ dv.resize (mdims); for (int i = 0; i < mdims; i++) - { - if (! is.read (reinterpret_cast<char *> (&di), 4)) - return false; - if (swap) - swap_bytes<4> (&di); - dv(i) = di; - } + { + if (! is.read (reinterpret_cast<char *> (&di), 4)) + return false; + if (swap) + swap_bytes<4> (&di); + dv(i) = di; + } // Convert an array with a single dimension to be a row vector. // Octave should never write files like this, other software // might. if (mdims == 1) - { - mdims = 2; - dv.resize (mdims); - dv(1) = dv(0); - dv(0) = 1; - } + { + mdims = 2; + dv.resize (mdims); + dv(1) = dv(0); + dv(0) = 1; + } if (! is.read (reinterpret_cast<char *> (&tmp), 1)) - return false; + return false; ComplexNDArray m(dv); Complex *im = m.fortran_vec (); read_doubles (is, reinterpret_cast<double *> (im), - static_cast<save_type> (tmp), 2 * dv.numel (), swap, fmt); + static_cast<save_type> (tmp), 2 * dv.numel (), swap, fmt); if (error_state || ! is) - return false; + return false; matrix = m; } else @@ -511,18 +511,18 @@ int32_t nr, nc; nr = mdims; if (! is.read (reinterpret_cast<char *> (&nc), 4)) - return false; + return false; if (swap) - swap_bytes<4> (&nc); + swap_bytes<4> (&nc); if (! is.read (reinterpret_cast<char *> (&tmp), 1)) - return false; + return false; ComplexMatrix m (nr, nc); Complex *im = m.fortran_vec (); octave_idx_type len = nr * nc; read_doubles (is, reinterpret_cast<double *> (im), - static_cast<save_type> (tmp), 2*len, swap, fmt); + static_cast<save_type> (tmp), 2*len, swap, fmt); if (error_state || ! is) - return false; + return false; matrix = m; } return true; @@ -532,7 +532,7 @@ bool octave_complex_matrix::save_hdf5 (hid_t loc_id, const char *name, - bool save_as_floats) + bool save_as_floats) { dim_vector dv = dims (); int empty = save_hdf5_empty (loc_id, name, dv); @@ -558,12 +558,12 @@ if (save_as_floats) { if (m.too_large_for_float ()) - { - warning ("save: some values too large to save as floats --"); - warning ("save: saving as doubles instead"); - } + { + warning ("save: some values too large to save as floats --"); + warning ("save: saving as doubles instead"); + } else - save_type_hid = H5T_NATIVE_FLOAT; + save_type_hid = H5T_NATIVE_FLOAT; } #if HAVE_HDF5_INT2FLOAT_CONVERSIONS // hdf5 currently doesn't support float/integer conversions @@ -572,8 +572,8 @@ double max_val, min_val; if (m.all_integers (max_val, min_val)) - save_type_hid - = save_type_to_hdf5 (get_save_type (max_val, min_val)); + save_type_hid + = save_type_to_hdf5 (get_save_type (max_val, min_val)); } #endif /* HAVE_HDF5_INT2FLOAT_CONVERSIONS */ @@ -585,7 +585,7 @@ } #if HAVE_HDF5_18 data_hid = H5Dcreate (loc_id, name, type_hid, space_hid, - H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); + H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); #else data_hid = H5Dcreate (loc_id, name, type_hid, space_hid, H5P_DEFAULT); #endif @@ -603,11 +603,11 @@ { Complex *mtmp = m.fortran_vec (); if (H5Dwrite (data_hid, complex_type_hid, H5S_ALL, H5S_ALL, H5P_DEFAULT, - mtmp) < 0) - { - H5Tclose (complex_type_hid); - retval = false; - } + mtmp) < 0) + { + H5Tclose (complex_type_hid); + retval = false; + } } H5Tclose (complex_type_hid); @@ -674,13 +674,13 @@ { dv.resize (rank); for (hsize_t i = 0, j = rank - 1; i < rank; i++, j--) - dv(j) = hdims[i]; + dv(j) = hdims[i]; } ComplexNDArray m (dv); Complex *reim = m.fortran_vec (); if (H5Dread (data_hid, complex_type, H5S_ALL, H5S_ALL, H5P_DEFAULT, - reim) >= 0) + reim) >= 0) { retval = true; matrix = m; @@ -697,10 +697,10 @@ void octave_complex_matrix::print_raw (std::ostream& os, - bool pr_as_read_syntax) const + bool pr_as_read_syntax) const { octave_print_internal (os, matrix, pr_as_read_syntax, - current_print_indent_level ()); + current_print_indent_level ()); } mxArray *