Mercurial > octave-libtiff
view libinterp/parse-tree/pt.cc @ 29163:8f67ad8b3103
maint: Updating naming conventions for exceptions and use const where possible.
* GLCanvas.cc, interpreter-qobject.cc, file-editor-tab.cc,
octave-qscintilla.cc, octave-qobject.cc, Cell.cc, __eigs__.cc,
__magick_read__.cc, __qp__.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc,
file-io.cc, graphics.cc, graphics.in.h, input.cc, interpreter.cc,
ls-mat-ascii.cc, lsode.cc, oct-handle.h, oct-map.cc, quad.cc, rand.cc,
sparse.cc, sub2ind.cc, toplev.cc, utils.cc, __init_gnuplot__.cc, __ode15__.cc,
cdef-object.cc, ov-base-diag.cc, ov-base-mat.cc, ov-base-sparse.cc,
ov-base.cc, ov-fcn-handle.cc, ov-java.cc, ov-perm.cc, ov-range.cc,
ov-re-diag.cc, ov-str-mat.cc, ov.cc, pt-assign.cc, pt-eval.cc, pt-idx.cc,
pt-jit.cc, pt.cc, Array-util.cc, randmtzig.cc:
Update naming conventions for exceptions to use initial letter of exception
type. For example, "execution_exception" is named "ee", "index_exception" is
"ie". Catch "const" exceptions where possible.
* gzip.cc: Add block to catch and throw interrupt_exceptions before having
a catch block "(...)" for everything else.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 08 Dec 2020 13:25:03 -0800 |
parents | bd51beb6205e |
children | 7854d5752dd2 |
line wrap: on
line source
//////////////////////////////////////////////////////////////////////// // // Copyright (C) 1996-2020 The Octave Project Developers // // See the file COPYRIGHT.md in the top-level directory of this // distribution or <https://octave.org/copyright/>. // // 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 <sstream> #include <string> #include "interpreter.h" #include "ov-fcn.h" #include "pt.h" #include "pt-eval.h" #include "pt-pr-code.h" #include "unwind-prot.h" namespace octave { // Hide the details of the string buffer so that we are less likely to // create a memory leak. std::string tree::str_print_code (void) { std::ostringstream buf; tree_print_code tpc (buf); accept (tpc); std::string retval = buf.str (); return retval; } // Is the current breakpoint condition met? bool tree::meets_bp_condition (tree_evaluator& tw) const { bool retval; if (m_bp_cond == nullptr) retval = false; else if (m_bp_cond->empty ()) // empty condition always met retval = true; else { int parse_status = 0; unwind_protect frame; interpreter_try (frame); retval = true; // default to stopping if any error try { octave_value_list val = tw.eval_string (*m_bp_cond, 1, parse_status, 1); if (parse_status == 0) { if (! val(0).is_scalar_type ()) warning ("Breakpoint condition must be a scalar, not size %s", val(0).dims ().str ('x').c_str ()); else retval = val(0).bool_value (); } else warning ("Error parsing breakpoint condition"); } catch (const execution_exception& ee) { interpreter& interp = tw.get_interpreter (); interp.recover_from_exception (); std::string tmp = ee.message (); warning ("Error evaluating breakpoint condition:\n %s", tmp.c_str ()); } } return retval; } }