Mercurial > octave
view libinterp/corefcn/display.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) 2009-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 "singleton-cleanup.h" #include "cdisplay.h" #include "defun.h" #include "display.h" #include "error.h" #include "ov.h" #include "ovl.h" namespace octave { display_info *display_info::instance = nullptr; void display_info::init (const std::string& dpy_name, bool query) { if (query) { int avail = 0; const char *display_name = dpy_name.empty () ? nullptr : dpy_name.c_str (); const char *msg = octave_get_display_info (display_name, &m_ht, &m_wd, &m_dp, &m_rx, &m_ry, &avail); m_dpy_avail = avail; if (msg) m_err_msg = msg; } } bool display_info::instance_ok (bool query) { bool retval = true; if (! instance) { instance = new display_info (query); if (instance) singleton_cleanup_list::add (cleanup_instance); } if (! instance) error ("unable to create display_info object!"); return retval; } } DEFUN (have_window_system, , , doc: /* -*- texinfo -*- @deftypefn {} {} have_window_system () Return true if a window system is available (X11, Windows, or Apple OS X) and false otherwise. @seealso{isguirunning} @end deftypefn */) { return ovl (octave::display_info::display_available ()); }