octave: src/pr-output.cc comparison

comparison src/pr-output.cc @ 11586:12df7854fa7c

strip trailing whitespace from source files

author	John W. Eaton <jwe@octave.org>
date	Thu, 20 Jan 2011 17:24:59 -0500
parents	7d6d8c1e471f
children	c2a9fd508db4

comparison

equal deleted inserted replaced

-:1473d0cf86d2
+:12df7854fa7c
 * portability issues, we re-implement the modulo function to the desired
 * behavior (truncation).  There may be a gnulib replacement.
 *
 * ISO/IEC 14882:2003 : Programming languages -- C++. 5.6.4: ISO, IEC. 2003 .
 * "the binary % operator yields the remainder from the division of the first
 * expression by the second. .... If both operands are nonnegative then the
 * remainder is nonnegative; if not, the sign of the remainder is
 * implementation-defined".  */
 }
 static int
 engineering_exponent (const double& x)
 double absval = (x < 0.0 ? -x : x);
 int logabsval = static_cast<int> (gnulib::floor (log10 (absval)));
 /* Avoid using modulo function with negative arguments for portability.
 * See extended comment at calc_scale_exp */
 if (logabsval < 0.0)
 ex = logabsval - 2 + ((-logabsval + 2) % 3);
 else
 ex = logabsval - (logabsval % 3);
 }
 return ex;
 }
 int exponent (void) const
 {
 return engineering_exponent (val);
 }
 double mantissa (void) const
 {
 return val / std::pow (10.0, exponent ());
 }
 os << std::setw (pef.f.fw - pef.f.ex);
 if (pef.f.prec >= 0)
 os << std::setprecision (pef.f.prec);
 std::ios::fmtflags oflags =
 os.flags (static_cast<std::ios::fmtflags>
 (pef.f.fmt | pef.f.up | pef.f.sp));
 os << pef.mantissa ();
 int ex = pef.exponent ();
 ex = -ex;
 }
 else
 os << std::setw (0) << "e+";
 os << std::setw (pef.f.ex - 2) << std::setfill('0') << ex
 << std::setfill(' ');
 os.flags (oflags);
 return os;
 os << std::setw (pff.f.fw);
 if (pff.f.prec >= 0)
 os << std::setprecision (pff.f.prec);
 std::ios::fmtflags oflags =
 os.flags (static_cast<std::ios::fmtflags>
 (pff.f.fmt | pff.f.up | pff.f.sp));
 os << pff.val;
 os.flags (oflags);
 double frac = val - n;
 int m = 0;
 std::ostringstream buf2;
 buf2.flags (std::ios::fixed);
 buf2 << std::setprecision (0) << static_cast<int>(n);
 s = buf2.str();
 while (1)
 {
 double flip = 1. / frac;
 lastn = nextn;
 lastd = nextd;
 std::ostringstream buf;
 buf.flags (std::ios::fixed);
 buf << std::setprecision (0) << static_cast<int>(n)
 << "/" << static_cast<int>(d);
 m++;
 if (n < 0 && d < 0)
 {
 // Double negative, string can be two characters longer..
 if (buf.str().length() > static_cast<unsigned int>(len + 2) &&
 m > 1)
 break;
 }
 else if (buf.str().length() > static_cast<unsigned int>(len) &&
 m > 1)
 break;
 s = buf.str();
 }
 // Move sign to the top
 lastd = - lastd;
 lastn = - lastn;
 std::ostringstream buf;
 buf.flags (std::ios::fixed);
 buf << std::setprecision (0) << static_cast<int>(lastn)
 << "/" << static_cast<int>(lastd);
 s = buf.str();
 }
 }
 std::string s = rational_approx (prf.val, fw);
 if (fw >= 0)
 os << std::setw (fw);
 std::ios::fmtflags oflags =
 os.flags (static_cast<std::ios::fmtflags>
 (prf.f.fmt | prf.f.up | prf.f.sp));
 if (fw > 0 && s.length() > static_cast<unsigned int>(fw))
 os << "*";
 else
 int x_max = max_abs == 0.0 ? 0 : num_digits (max_abs);
 int x_min = min_abs == 0.0 ? 0 : num_digits (min_abs);
 scale = (x_max == 0 || int_or_inf_or_nan) ? 1.0
 : std::pow (10.0, calc_scale_exp (x_max - 1));
 set_real_matrix_format (x_max, x_min, inf_or_nan, int_or_inf_or_nan, fw);
 }
 int i_x_min = i_min_abs == 0.0 ? 0 : num_digits (i_min_abs);
 int x_max = r_x_max > i_x_max ? r_x_max : i_x_max;
 int x_min = r_x_min > i_x_min ? r_x_min : i_x_min;
 scale = (x_max == 0 || int_or_inf_or_nan) ? 1.0
 : std::pow (10.0, calc_scale_exp (x_max - 1));
 set_complex_matrix_format (x_max, x_min, r_x_max, r_x_min, inf_or_nan,
 int_or_inf_or_nan, r_fw, i_fw);
 }
 int x_max = max_abs == 0.0 ? 0 : num_digits (max_abs);
 int x_min = min_abs == 0.0 ? 0 : num_digits (min_abs);
 scale = (x_max == 0 || all_ints) ? 1.0
 : std::pow (10.0, calc_scale_exp (x_max - 1));
 set_range_format (x_max, x_min, all_ints, fw);
 }
 for (int i = sizeof (double) - 1; i >= 0; i--)
 os << std::setw (2) << static_cast<int> (tmp.i[i]);
 }
 os.fill (ofill);
 os.setf (oflags);
 }
 else if (bit_format)
 {
 equiv tmp;
 tmp.d = d;
 pr_scale_header (os, scale);
 // kluge. Get the true width of a number.
 int zero_fw;
 {
 std::ostringstream tmp_oss;
 pr_float (tmp_oss, 0.0, fw, scale);
 zero_fw = tmp_oss.str ().length ();
 }
 {
 int r_fw, i_fw;
 double scale = 1.0;
 set_format (cm, r_fw, i_fw, scale);
 int column_width = i_fw + r_fw;
 column_width += (rat_format || bank_format || hex_format
 || bit_format) ? 2 : 7;
 octave_idx_type total_width = nc * column_width;
 octave_idx_type max_width = command_editor::terminal_cols ();
 if (pr_as_read_syntax)
 os << "  ";
 pr_complex (os, cm(i,j), r_fw, i_fw, scale);
 }
 if (i < nr - 1)
 os << "\n";
 }
 }
 }
 }
 {
 int r_fw, i_fw;
 double scale = 1.0;
 set_format (ComplexMatrix (cm.diag ()), r_fw, i_fw, scale);
 int column_width = i_fw + r_fw;
 column_width += (rat_format || bank_format || hex_format
 || bit_format) ? 2 : 7;
 octave_idx_type total_width = nc * column_width;
 octave_idx_type max_width = command_editor::terminal_cols ();
 if (pr_as_read_syntax)
 pr_scale_header (os, scale);
 // kluge. Get the true width of a number.
 int zero_fw;
 {
 std::ostringstream tmp_oss;
 pr_complex (tmp_oss, Complex (0.0), r_fw, i_fw, scale);
 zero_fw = tmp_oss.str ().length ();
 }
 pr_complex (os, cm(i,j), r_fw, i_fw, scale);
 else
 os << std::setw (zero_fw) << '0';
 }
 if (i < nr - 1)
 os << "\n";
 }
 }
 }
 }
 }
 }
 void
 octave_print_internal (std::ostream& os, bool d, bool pr_as_read_syntax)
 {
 octave_print_internal (os, double (d), pr_as_read_syntax);
 }
 // FIXME -- write single precision versions of the printing functions.
 void
 octave_print_internal (std::ostream& os, float d, bool pr_as_read_syntax)
 {
 octave_print_internal (os, double (d), pr_as_read_syntax);
 }
 void
 octave_print_internal (std::ostream& os, const FloatMatrix& m,
 bool pr_as_read_syntax, int extra_indent)
 {
 octave_print_internal (os, Matrix (m), pr_as_read_syntax, extra_indent);
 }
 void
 octave_print_internal (std::ostream& os, const FloatDiagMatrix& m,
 bool pr_as_read_syntax, int extra_indent)
 {
 octave_print_internal (os, DiagMatrix (m), pr_as_read_syntax, extra_indent);
 }
 void
 octave_print_internal (std::ostream& os, const FloatNDArray& nda,
 bool pr_as_read_syntax, int extra_indent)
 {
 octave_print_internal (os, NDArray (nda), pr_as_read_syntax, extra_indent);
 }
 void
 octave_print_internal (std::ostream& os, const FloatComplex& c,
 bool pr_as_read_syntax)
 {
 octave_print_internal (os, Complex (c), pr_as_read_syntax);
 }
 void
 octave_print_internal (std::ostream& os, const FloatComplexMatrix& cm,
 bool pr_as_read_syntax, int extra_indent)
 for (int i = sz - 1; i >= 0; i--)
 os << std::setw (2) << static_cast<int> (tmpi[i]);
 }
 os.fill (ofill);
 os.setf (oflags);
 }
 else if (bit_format)
 {
 if (oct_mach_info::words_big_endian ())
 {
 bool isneg = false;
 int digits = 0;
 for (octave_idx_type i = 0; i < dims.numel (); i++)
 {
 int new_digits = static_cast<int>
 (gnulib::floor (log10 (double (abs (nda(i).value ()))) + 1.0));
 if (new_digits > digits)
 digits = new_digits;
 extra_indent);
 for (octave_idx_type ii = 0; ii < n_rows; ii++)
 {
 os << std::setw (extra_indent) << "";
 for (octave_idx_type jj = col; jj < lim; jj++)
 {
 octave_quit ();
 os << "  ";
 pr_int (os, page(ii,jj), fw);
 print_usage ();
 return retval;
 }
 /*
 %!test
 %! format short
 %! fd = tmpfile ();
 %! for r = [0, Inf -Inf, NaN]
 %!   for i = [0, Inf -Inf, NaN]
 %!     fdisp (fd, complex (r, i));
 %!   endfor
 %! endfor
 %! fclose (fd);
 */
 static void
 init_format_state (void)
 {
 free_format = false;

Mercurial > octave

comparison src/pr-output.cc @ 11586:12df7854fa7c