Mercurial > octave
view libinterp/corefcn/ls-utils.cc @ 24785:504869574c89
restore auto switch to E formats octave_print_internal functions
* pr-output.cc (pr_output_traits::max_field_width): New variable.
(make_real_format, make_real_matrix_format, make_complex_format,
make_complex_matrix_format, make_range_format): Switch to E format if
computed field width exceeds max field width for type or if computed
number of digits to display exceeds max meaningful digits for type.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 21 Feb 2018 15:41:52 -0500 |
parents | 194eb4bd202b |
children | 6652d3823428 |
line wrap: on
line source
/* Copyright (C) 2003-2017 John W. Eaton This file is part of Octave. Octave is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <https://www.gnu.org/licenses/>. */ #if defined (HAVE_CONFIG_H) # include "config.h" #endif #include "data-conv.h" #include "ls-utils.h" // MAX_VAL and MIN_VAL are assumed to have integral values even though // they are stored in doubles. save_type get_save_type (double /* max_val */, double /* min_val */) { save_type st = LS_DOUBLE; // Matlab doesn't seem to load the UINT32 type correctly, so let's // avoid it (and the other unsigned types, even though they may not // have the same problem. And apparently, there are problems with // other smaller types as well. If we avoid them all, then maybe we // will avoid problems. Unfortunately, we won't be able to save // space... // if (max_val < 256 && min_val > -1) // st = LS_U_CHAR; // else if (max_val < 65536 && min_val > -1) // st = LS_U_SHORT; // else if (max_val < 4294967295UL && min_val > -1) // st = LS_U_INT; // else if (max_val < 128 && min_val >= -128) // st = LS_CHAR; // else if (max_val < 32768 && min_val >= -32768) // st = LS_SHORT; // else if (max_val <= 2147483647L && min_val >= -2147483647L) // st = LS_INT; return st; } save_type get_save_type (float /* max_val */, float /* min_val */) { save_type st = LS_FLOAT; // Matlab doesn't seem to load the UINT32 type correctly, so let's // avoid it (and the other unsigned types, even though they may not // have the same problem. And apparently, there are problems with // other smaller types as well. If we avoid them all, then maybe we // will avoid problems. Unfortunately, we won't be able to save // space... // if (max_val < 256 && min_val > -1) // st = LS_U_CHAR; // else if (max_val < 65536 && min_val > -1) // st = LS_U_SHORT; // else if (max_val < 4294967295UL && min_val > -1) // st = LS_U_INT; // else if (max_val < 128 && min_val >= -128) // st = LS_CHAR; // else if (max_val < 32768 && min_val >= -32768) // st = LS_SHORT; // else if (max_val <= 2147483647L && min_val >= -2147483647L) // st = LS_INT; return st; }