Mercurial > jwe > octave
view libinterp/parse-tree/pt.cc @ 27164:6b0c61a5a0f0
move global error configuration and status variables inside a class
* error.h, error.cc (error_system): New class.
(Vbacktrace_on_warning, Vbeep_on_error, Vdebug_on_caught,
Vdebug_on_error, Vdebug_on_warning, Vlast_error_id,
Vlast_error_message, Vlast_error_stack, Vlast_warning_id,
Vlast_warning_message, Vquiet_warning, Vverbose_warning,
buffer_error_messages, discard_error_messages,
discard_warning_messages, in_try_catch, warning_options):
Move global and file-scope static variables inside error_system class.
Change all uses.
* interpreter.h, interpreter.cc (m_error_system): New member variable.
(get_error_system): New function.
* interpreter-private.h, interpreter-private.cc
(__get_error_system__): New function.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 31 May 2019 15:49:38 +0000 |
parents | a7c570394f1d |
children | fd32c1a9b1bd |
line wrap: on
line source
/* Copyright (C) 1996-2019 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 <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& e) { interpreter& interp = tw.get_interpreter (); error_system& es = interp.get_error_system (); std::string tmp = es.last_error_message (); warning ("Error evaluating breakpoint condition:\n %s", tmp.c_str ()); } } return retval; } }