Mercurial > octave
view libinterp/corefcn/pr-output.h @ 24784:4d945f2e5914
eliminate output_max_field width; limit output precision (bug #53167)
* pr-flt-fmt.h, pr-flt-fmt.cc (Voutput_max_field_width,
output_max_field_width): Delete. Eliminate all uses.
(set_output_prec): Rename from set_output_prec_and_fw. Change all uses.
(Foutput_max_field_width): Always return 20. Don't do anything with
input. Document new behavior.
(Foutput_precision): Limit value to be in the range 0 to 16.
(class float_format): Always set width to 0.
* pr-output.h, pr-output.cc (pr_output_traits): New template.
(make_real_format): Limit output precision.
(octave_print_real_matrix_internal,
octave_print_real_diag_matrix_internal,
octave_print_complex_matrix_internal,
octave_print_complex_diag_matrix_internal): New template functions.
Use them to define float and double versions of octave_print_internal
for real and complex matrix and diag matrix functions.
(octave_print_internal): Define separate versions for float and float
complex N-d arrays.
(Fformat): Update doc string.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 21 Feb 2018 08:24:41 -0500 |
parents | 0eb41237424e |
children | 0aeef407b04e |
line wrap: on
line source
/* Copyright (C) 1993-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 (octave_pr_output_h) #define octave_pr_output_h 1 #include "octave-config.h" #include <iosfwd> #include "oct-cmplx.h" #include "oct-inttypes-fwd.h" #include "pr-flt-fmt.h" template <typename T> class Array; class ComplexMatrix; class FloatComplexMatrix; class ComplexDiagMatrix; class FloatComplexDiagMatrix; class ComplexNDArray; class FloatComplexNDArray; class Matrix; class FloatMatrix; class DiagMatrix; class FloatDiagMatrix; class NDArray; class FloatNDArray; class Range; class boolMatrix; class boolNDArray; class charMatrix; class charNDArray; class PermMatrix; class Cell; class octave_value; template <typename T> class intNDArray; extern float_display_format make_format (const Matrix& m, int& fw, double& scale); extern float_display_format make_format (const FloatMatrix& m, int& fw, float& scale); template <typename T> extern float_display_format make_format (const std::complex<T>& c, int& r_fw, int& i_fw); extern float_display_format make_format (const ComplexMatrix& cm, int& r_fw, int& i_fw, double& scale); extern float_display_format make_format (const FloatComplexMatrix& cm, int& r_fw, int& i_fw, double& scale); extern float_display_format make_format (const Range& r, int& fw, double& scale); template <typename MT> float_display_format make_format (const MT&) { return float_display_format (); } template <> float_display_format make_format (const Range& r); template <> float_display_format make_format (const NDArray& nda); template <> float_display_format make_format (const FloatNDArray& nda); template <> float_display_format make_format (const ComplexNDArray& nda); template <> float_display_format make_format (const FloatComplexNDArray& nda); template <> float_display_format make_format (const boolNDArray& nda); template <> float_display_format make_format (const intNDArray<octave_int8>& nda); template <> float_display_format make_format (const intNDArray<octave_int16>& nda); template <> float_display_format make_format (const intNDArray<octave_int32>& nda); template <> float_display_format make_format (const intNDArray<octave_int64>& nda); template <> float_display_format make_format (const intNDArray<octave_uint8>& nda); template <> float_display_format make_format (const intNDArray<octave_uint16>& nda); template <> float_display_format make_format (const intNDArray<octave_uint32>& nda); template <> float_display_format make_format (const intNDArray<octave_uint64>& nda); template <> float_display_format make_format (const double& d); template <> float_display_format make_format (const float& f); template <> float_display_format make_format (const Complex& c); template <> float_display_format make_format (const FloatComplex& c); template <> float_display_format make_format (const octave_int8& nda); template <> float_display_format make_format (const octave_int16& nda); template <> float_display_format make_format (const octave_int32& nda); template <> float_display_format make_format (const octave_int64& nda); template <> float_display_format make_format (const octave_uint8& nda); template <> float_display_format make_format (const octave_uint16& nda); template <> float_display_format make_format (const octave_uint32& nda); template <> float_display_format make_format (const octave_uint64& nda); // FIXME: templates plus specializations might help here. extern OCTINTERP_API void octave_print_internal (std::ostream& os, const float_display_format& fmt, bool d, bool pr_as_read_syntax = false); extern OCTINTERP_API void octave_print_internal (std::ostream& os, bool d, bool pr_as_read_syntax = false); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const float_display_format& fmt, char c, bool pr_as_read_syntax = false); inline void octave_print_internal (std::ostream& os, char c, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, c, pr_as_read_syntax); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const float_display_format& fmt, double d, bool pr_as_read_syntax = false); inline void octave_print_internal (std::ostream& os, double d, bool pr_as_read_syntax = false) { octave_print_internal (os, make_format (d), d, pr_as_read_syntax); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const float_display_format& fmt, float d, bool pr_as_read_syntax = false); inline void octave_print_internal (std::ostream& os, float d, bool pr_as_read_syntax = false) { octave_print_internal (os, make_format (d), d, pr_as_read_syntax); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const Matrix& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const FloatMatrix& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const DiagMatrix& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const FloatDiagMatrix& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const NDArray& nda, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const FloatNDArray& nda, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const float_display_format& fmt, const Complex& c, bool pr_as_read_syntax = false); inline void octave_print_internal (std::ostream& os, const Complex& c, bool pr_as_read_syntax = false) { octave_print_internal (os, make_format (c), c, pr_as_read_syntax); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const float_display_format& fmt, const FloatComplex& c, bool pr_as_read_syntax = false); inline void octave_print_internal (std::ostream& os, const FloatComplex& c, bool pr_as_read_syntax = false) { octave_print_internal (os, make_format (c), c, pr_as_read_syntax); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const ComplexMatrix& cm, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const ComplexDiagMatrix& cm, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const FloatComplexMatrix& cm, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const FloatComplexDiagMatrix& cm, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const ComplexNDArray& nda, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const FloatComplexNDArray& nda, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const PermMatrix& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const Range& r, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const boolMatrix& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const boolNDArray& m, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const charMatrix& chm, bool pr_as_read_syntax = false, int extra_indent = 0, bool pr_as_string = false); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const charNDArray& nda, bool pr_as_read_syntax = false, int extra_indent = 0, bool pr_as_string = false); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const std::string& s, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const Array<std::string>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_int8>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_uint8>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_int16>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_uint16>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_int32>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_uint32>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_int64>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern OCTINTERP_API void octave_print_internal (std::ostream& os, const intNDArray<octave_uint64>& sa, bool pr_as_read_syntax = false, int extra_indent = 0); extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<int8_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<int8_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<uint8_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<uint8_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<int16_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<int16_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<uint16_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<uint16_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<int32_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<int32_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<uint32_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<uint32_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<int64_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<int64_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern void octave_print_internal (std::ostream& os, const float_display_format&, const octave_int<uint64_t>& sa, bool pr_as_read_syntax = false); inline OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_int<uint64_t>& sa, bool pr_as_read_syntax = false) { float_display_format fmt (float_format (0, 0)); octave_print_internal (os, fmt, sa, pr_as_read_syntax); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const Cell& cell, bool pr_as_read_syntax = false, int extra_indent = 0, bool pr_as_string = false); inline void octave_print_internal (std::ostream& os, const float_display_format&, const Cell& cell, bool pr_as_read_syntax = false, int extra_indent = 0, bool pr_as_string = false) { octave_print_internal (os, cell, pr_as_read_syntax, extra_indent, pr_as_string); } extern OCTINTERP_API void octave_print_internal (std::ostream& os, const octave_value& ov, bool pr_as_read_syntax = false); template <typename T> class pr_engineering_float { public: const float_format m_ff; T m_val; int exponent (void) const; T mantissa (void) const; pr_engineering_float (const float_format& ff, T val) : m_ff (ff), m_val (val) { } pr_engineering_float (const float_display_format& fdf, T val) : m_ff (fdf.real_format ()), m_val (val) { } }; template <typename T> class pr_formatted_float { public: const float_format m_ff; T m_val; pr_formatted_float (const float_format& ff, T val) : m_ff (ff), m_val (val) { } pr_formatted_float (const float_display_format& fdf, T val) : m_ff (fdf.real_format ()), m_val (val) { } }; template <typename T> class pr_rational_float { public: const float_format m_ff; T m_val; pr_rational_float (const float_format& ff, T val) : m_ff (ff), m_val (val) { } pr_rational_float (const float_display_format& fdf, T val) : m_ff (fdf.real_format ()), m_val (val) { } }; template <typename T> extern std::ostream& operator << (std::ostream& os, const pr_engineering_float<T>& pef); template <typename T> extern std::ostream& operator << (std::ostream& os, const pr_formatted_float<T>& pff); template <typename T> extern std::ostream& operator << (std::ostream& os, const pr_rational_float<T>& prf); // TRUE means that the dimensions of empty objects should be printed // like this: x = [](2x0). extern bool Vprint_empty_dimensions; // TRUE means don't put empty lines in output extern bool Vcompact_format; #endif