Mercurial > octave
view libinterp/corefcn/error.cc @ 25103:078b795c5219 stable
maint: style check C++ ahead of 4.4 release.
* ButtonGroup.cc, Canvas.cc, Figure.cc, GLCanvas.cc, GLCanvas.h,
ListBoxControl.cc, ObjectProxy.cc, QTerminal.h, dialog.cc, documentation.cc,
files-dock-widget.cc, history-dock-widget.cc, file-editor-tab.cc,
file-editor.h, find-dialog.cc, marker.h, octave-qscintilla.cc,
octave-qscintilla.h, main-window.cc, webinfo.cc, resource-manager.h,
settings-dialog.cc, shortcut-manager.cc, shortcut-manager.h,
variable-editor.cc, workspace-view.cc, build-env.in.cc, __ilu__.cc, cellfun.cc,
data.cc, dirfns.cc, dynamic-ld.h, environment.cc, error.cc, fcn-info.cc,
gl-render.cc, gl2ps-print.cc, graphics.cc, graphics.in.h, help.cc,
interpreter.cc, load-path.cc, load-save.cc, ls-mat5.cc, mex.cc, oct-stream.cc,
oct-stream.h, qz.cc, sighandlers.cc, sparse-xpow.cc, svd.cc, symscope.h,
symtab.cc, symtab.h, sysdep.cc, url-handle-manager.h, utils.cc, variables.cc,
__init_fltk__.cc, __ode15__.cc, gzip.cc, ov-base.cc, ov-builtin.h, ov-cell.cc,
ov-class.cc, ov-dld-fcn.h, ov-fcn-handle.cc, ov-java.cc, ov-re-diag.cc,
op-b-sbm.cc, op-bm-b.cc, op-bm-bm.cc, op-bm-sbm.cc, op-cdm-cdm.cc, op-cell.cc,
op-cm-cm.cc, op-cm-cs.cc, op-cm-m.cc, op-cm-s.cc, op-cm-scm.cc, op-cm-sm.cc,
op-cs-cm.cc, op-cs-cs.cc, op-cs-m.cc, op-cs-s.cc, op-cs-scm.cc, op-cs-sm.cc,
op-dm-dm.cc, op-dm-scm.cc, op-dm-sm.cc, op-fcdm-fcdm.cc, op-fcm-fcm.cc,
op-fcm-fcs.cc, op-fcm-fm.cc, op-fcm-fs.cc, op-fcs-fcm.cc, op-fcs-fcs.cc,
op-fcs-fm.cc, op-fcs-fs.cc, op-fdm-fdm.cc, op-fm-fcm.cc, op-fm-fcs.cc,
op-fm-fm.cc, op-fm-fs.cc, op-fs-fcm.cc, op-fs-fcs.cc, op-fs-fm.cc, op-fs-fs.cc,
op-m-cm.cc, op-m-cs.cc, op-m-m.cc, op-m-s.cc, op-m-scm.cc, op-m-sm.cc,
op-pm-pm.cc, op-pm-scm.cc, op-pm-sm.cc, op-range.cc, op-s-cm.cc, op-s-cs.cc,
op-s-m.cc, op-s-s.cc, op-s-scm.cc, op-s-sm.cc, op-sbm-b.cc, op-sbm-bm.cc,
op-sbm-sbm.cc, op-scm-cm.cc, op-scm-cs.cc, op-scm-m.cc, op-scm-s.cc,
op-scm-scm.cc, op-scm-sm.cc, op-sm-cm.cc, op-sm-cs.cc, op-sm-m.cc, op-sm-s.cc,
op-sm-scm.cc, op-sm-sm.cc, op-str-m.cc, op-str-s.cc, op-str-str.cc,
bp-table.cc, comment-list.h, jit-ir.h, jit-typeinfo.cc, jit-typeinfo.h, lex.h,
parse.h, pt-binop.h, pt-decl.h, pt-eval.cc, pt-jit.cc, pt-jit.h, pt-misc.h,
token.h, CMatrix.cc, CMatrix.h, CSparse.cc, CSparse.h, dMatrix.h, fCMatrix.cc,
fCMatrix.h, fMatrix.h, Faddeeva.cc, gepbalance.cc, hess.cc, oct-fftw.cc,
oct-fftw.h, file-stat.cc, lo-sysinfo.cc, action-container.h, f77-fcn.h,
lo-regexp.cc, oct-mutex.h, oct-shlib.cc:
Use Octave coding conventions in C++ files.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 03 Apr 2018 13:52:07 -0700 |
parents | 6652d3823428 |
children | 5960fd1b56f1 09e0ddee659c |
line wrap: on
line source
/* Copyright (C) 1993-2018 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 <cstdarg> #include <cstdlib> #include <cstring> #include <iomanip> #include <iostream> #include <sstream> #include <string> #include "bp-table.h" #include "builtin-defun-decls.h" #include "call-stack.h" #include "defun.h" #include "error.h" #include "input.h" #include "interpreter-private.h" #include "interpreter.h" #include "oct-map.h" #include "octave.h" #include "ov-usr-fcn.h" #include "ov.h" #include "ovl.h" #include "pager.h" #include "pt-eval.h" #include "unwind-prot.h" #include "utils.h" #include "variables.h" // TRUE means that Octave will try to beep obnoxiously before printing // error messages. static bool Vbeep_on_error = false; // TRUE means that Octave will try to enter the debugger when an error // is encountered. This will also inhibit printing of the normal // traceback message (you will only see the top-level error message). bool Vdebug_on_error = false; // TRUE means that Octave will try to enter the debugger when an error // is encountered within the 'try' section of a 'try' / 'catch' block. bool Vdebug_on_caught = false; // TRUE means that Octave will try to enter the debugger when a warning // is encountered. bool Vdebug_on_warning = false; // TRUE means that Octave will try to display a stack trace when a // warning is encountered. static bool Vbacktrace_on_warning = true; // TRUE means that Octave will print a verbose warning. Currently unused. static bool Vverbose_warning; // TRUE means that Octave will print no warnings, but lastwarn will be updated static bool Vquiet_warning = false; // A structure containing (most of) the current state of warnings. static octave_map warning_options; // The text of the last error message. static std::string Vlast_error_message; // The text of the last warning message. static std::string Vlast_warning_message; // The last warning message id. static std::string Vlast_warning_id; // The last error message id. static std::string Vlast_error_id; // The last file in which an error occurred static octave_map Vlast_error_stack; // Current error state. // // Valid values: // // 0: no error // 1: an error has occurred // int error_state = 0; // Tell the error handler whether to print messages, or just store // them for later. Used for handling errors in eval() and // the 'unwind_protect' statement. int buffer_error_messages = 0; // The number of layers of try / catch blocks we're in. Used to print // "caught error" instead of error when "dbstop if caught error" is on. int in_try_catch = 0; // TRUE means error messages are turned off. bool discard_error_messages = false; // TRUE means warning messages are turned off. bool discard_warning_messages = false; void reset_error_handler (void) { buffer_error_messages = 0; in_try_catch = 0; discard_error_messages = false; } static void initialize_warning_options (const std::string& state) { octave_scalar_map initw; initw.setfield ("identifier", "all"); initw.setfield ("state", state); warning_options = initw; } static octave_map initialize_last_error_stack (void) { octave::call_stack& cs = octave::__get_call_stack__ ("initialize_last_error_stack"); return cs.empty_backtrace (); } static void verror (bool save_last_error, std::ostream& os, const char *name, const char *id, const char *fmt, va_list args, bool with_cfn = false) { if (discard_error_messages && ! Vdebug_on_caught) return; if (! buffer_error_messages || Vdebug_on_caught) octave::flush_stdout (); // FIXME: we really want to capture the message before it has all the // formatting goop attached to it. We probably also want just the // message, not the traceback information. std::ostringstream output_buf; octave_vformat (output_buf, fmt, args); std::string base_msg = output_buf.str (); bool to_beep_or_not_to_beep_p = Vbeep_on_error; std::string msg_string; if (to_beep_or_not_to_beep_p) msg_string = "\a"; if (name) { if (in_try_catch && ! strcmp (name, "error")) msg_string += "caught error: "; else msg_string += std::string (name) + ": "; } octave::call_stack& cs = octave::__get_call_stack__ ("verror"); // If with_fcn is specified, we'll attempt to prefix the message with the name // of the current executing function. But we'll do so only if: // 1. the name is not empty (anonymous function) // 2. it is not already there (including the following colon) if (with_cfn) { octave_function *curfcn = cs.current (); if (curfcn) { std::string cfn = curfcn->name (); if (! cfn.empty ()) { cfn += ':'; if (cfn.length () > base_msg.length () || base_msg.compare (0, cfn.length (), cfn) != 0) { msg_string += cfn + ' '; } } } } msg_string += base_msg + '\n'; if (save_last_error) { // This is the first error in a possible series. Vlast_error_id = id; Vlast_error_message = base_msg; octave_user_code *fcn = cs.caller_user_code (); if (fcn) { octave_idx_type curr_frame = -1; Vlast_error_stack = cs.backtrace (0, curr_frame); } else Vlast_error_stack = initialize_last_error_stack (); } if (! buffer_error_messages || Vdebug_on_caught) { octave_diary << msg_string; os << msg_string; } } static void pr_where_2 (std::ostream& os, const char *fmt, va_list args) { if (fmt) { if (*fmt) { size_t len = strlen (fmt); if (len > 0) { if (fmt[len - 1] == '\n') { if (len > 1) { std::string tmp_fmt (fmt, len - 1); verror (false, os, nullptr, "", tmp_fmt.c_str (), args); } } else verror (false, os, nullptr, "", fmt, args); } } } else panic ("pr_where_2: invalid format"); } static void pr_where_1 (std::ostream& os, const char *fmt, ...) { va_list args; va_start (args, fmt); pr_where_2 (os, fmt, args); va_end (args); } struct error_stack_frame { std::string name; int line; int column; }; static void pr_where (std::ostream& os, const char *who, const std::list<error_stack_frame>& frames) { size_t nframes = frames.size (); if (nframes > 0) pr_where_1 (os, "%s: called from\n", who); for (const auto& frm : frames) { std::string fcn_name = frm.name; int line = frm.line; int column = frm.column; if (line > 0) { if (column > 0) pr_where_1 (os, " %s at line %d column %d\n", fcn_name.c_str (), line, column); else pr_where_1 (os, " %s at line %d\n", fcn_name.c_str (), line); } else pr_where_1 (os, " %s\n", fcn_name.c_str ()); } } static void pr_where (std::ostream& os, const char *who) { octave::call_stack& cs = octave::__get_call_stack__ ("pr_where"); std::list<octave::call_stack::stack_frame> call_stack_frames = cs.backtrace_frames (); // Print the error message only if it is different from the previous one; // Makes the output more concise and readable. call_stack_frames.unique (); std::list<error_stack_frame> frames; for (const auto& frm : call_stack_frames) { error_stack_frame frame; frame.name = frm.fcn_name (); frame.line = frm.line (); frame.column = frm.column (); frames.push_back (frame); } pr_where (os, who, frames); } octave::execution_exception make_execution_exception (const char *who) { std::ostringstream buf; pr_where (buf, who); octave::execution_exception retval; retval.set_stack_trace (buf.str ()); return retval; } static void maybe_enter_debugger (octave::execution_exception& e, bool show_stack_trace = false) { octave::call_stack& cs = octave::__get_call_stack__ ("maybe_enter_debugger"); octave::bp_table& bptab = octave::__get_bp_table__ ("maybe_enter_debugger"); if ((octave::application::interactive () || octave::application::forced_interactive ()) && ((Vdebug_on_error && bptab.debug_on_err (last_error_id ())) || (Vdebug_on_caught && bptab.debug_on_caught (last_error_id ()))) && cs.caller_user_code ()) { octave::unwind_protect frame; frame.protect_var (Vdebug_on_error); Vdebug_on_error = false; octave::tree_evaluator::debug_mode = true; octave::tree_evaluator::current_frame = cs.current_frame (); if (show_stack_trace) { std::string stack_trace = e.info (); if (! stack_trace.empty ()) { std::cerr << stack_trace; e.set_stack_trace (); } } do_keyboard (octave_value_list ()); } } // Warning messages are never buffered. static void vwarning (const char *name, const char *id, const char *fmt, va_list args) { if (discard_warning_messages) return; octave::flush_stdout (); std::ostringstream output_buf; octave_vformat (output_buf, fmt, args); // FIXME: we really want to capture the message before it has all the // formatting goop attached to it. We probably also want just the // message, not the traceback information. std::string base_msg = output_buf.str (); std::string msg_string; if (name) msg_string = std::string (name) + ": "; msg_string += base_msg + '\n'; Vlast_warning_id = id; Vlast_warning_message = base_msg; if (! Vquiet_warning) { octave_diary << msg_string; std::cerr << msg_string; } } void vmessage (const char *name, const char *fmt, va_list args) { verror (false, std::cerr, name, "", fmt, args); } void message (const char *name, const char *fmt, ...) { va_list args; va_start (args, fmt); vmessage (name, fmt, args); va_end (args); } void vmessage_with_id (const char *name, const char *id, const char *fmt, va_list args) { verror (false, std::cerr, name, id, fmt, args); } void message_with_id (const char *name, const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); vmessage_with_id (name, id, fmt, args); va_end (args); } OCTAVE_NORETURN static void usage_1 (octave::execution_exception& e, const char *id, const char *fmt, va_list args) { verror (true, std::cerr, "usage", id, fmt, args); maybe_enter_debugger (e); throw e; } OCTAVE_NORETURN static void usage_1 (const char *id, const char *fmt, va_list args) { octave::execution_exception e = make_execution_exception ("usage"); usage_1 (e, id, fmt, args); } void vusage (const char *fmt, va_list args) { usage_1 ("", fmt, args); } void usage (const char *fmt, ...) { va_list args; va_start (args, fmt); usage_1 ("", fmt, args); va_end (args); } void vusage_with_id (const char *id, const char *fmt, va_list args) { usage_1 (id, fmt, args); } void usage_with_id (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); vusage_with_id (id, fmt, args); va_end (args); } OCTAVE_NORETURN static void error_1 (octave::execution_exception& e, std::ostream& os, const char *name, const char *id, const char *fmt, va_list args, bool with_cfn = false) { bool show_stack_trace = false; if (fmt) { if (*fmt) { size_t len = strlen (fmt); if (len > 0) { if (fmt[len - 1] == '\n') { if (len > 1) { std::string tmp_fmt (fmt, len - 1); verror (true, os, name, id, tmp_fmt.c_str (), args, with_cfn); } // If format ends with newline, suppress stack trace. e.set_stack_trace (); } else { verror (true, os, name, id, fmt, args, with_cfn); octave::call_stack& cs = octave::__get_call_stack__ ("error_1"); bool in_user_code = cs.caller_user_code () != nullptr; if (in_user_code && ! discard_error_messages) show_stack_trace = true; } } } } else panic ("error_1: invalid format"); maybe_enter_debugger (e, show_stack_trace); throw e; } OCTAVE_NORETURN static void error_1 (std::ostream& os, const char *name, const char *id, const char *fmt, va_list args, bool with_cfn = false) { octave::execution_exception e = make_execution_exception ("error"); error_1 (e, os, name, id, fmt, args, with_cfn); } void verror (const char *fmt, va_list args) { error_1 (std::cerr, "error", "", fmt, args); } void error (const char *fmt, ...) { va_list args; va_start (args, fmt); verror (fmt, args); va_end (args); } void verror (octave::execution_exception& e, const char *fmt, va_list args) { error_1 (e, std::cerr, "error", "", fmt, args); } void error (octave::execution_exception& e, const char *fmt, ...) { va_list args; va_start (args, fmt); verror (e, fmt, args); va_end (args); } void verror_with_cfn (const char *fmt, va_list args) { error_1 (std::cerr, "error", "", fmt, args, true); } void error_with_cfn (const char *fmt, ...) { va_list args; va_start (args, fmt); verror_with_cfn (fmt, args); va_end (args); } void verror_with_id (const char *id, const char *fmt, va_list args) { error_1 (std::cerr, "error", id, fmt, args); } void error_with_id (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); verror_with_id (id, fmt, args); va_end (args); } void verror_with_id_cfn (const char *id, const char *fmt, va_list args) { error_1 (std::cerr, "error", id, fmt, args, true); } void error_with_id_cfn (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); verror_with_id_cfn (id, fmt, args); va_end (args); } static int check_state (const std::string& state) { // -1: not found // 0: found, "off" // 1: found, "on" // 2: found, "error" if (state == "off") return 0; else if (state == "on") return 1; else if (state == "error") return 2; else return -1; } // For given warning ID, return 0 if warnings are disabled, 1 if // enabled, and 2 if the given ID should be an error instead of a // warning. int warning_enabled (const std::string& id) { int retval = 0; int all_state = -1; int id_state = -1; octave_idx_type nel = warning_options.numel (); if (nel > 0) { Cell identifier = warning_options.contents ("identifier"); Cell state = warning_options.contents ("state"); bool all_found = false; bool id_found = false; for (octave_idx_type i = 0; i < nel; i++) { octave_value ov = identifier(i); std::string ovs = ov.string_value (); if (! all_found && ovs == "all") { all_state = check_state (state(i).string_value ()); if (all_state >= 0) all_found = true; } if (! id_found && ovs == id) { id_state = check_state (state(i).string_value ()); if (id_state >= 0) id_found = true; } if (all_found && id_found) break; } } // If "all" is not present, assume warnings are enabled. if (all_state == -1) all_state = 1; if (all_state == 0) { if (id_state >= 0) retval = id_state; } else if (all_state == 1) { if (id_state == 0 || id_state == 2) retval = id_state; else retval = all_state; } else if (all_state == 2) { if (id_state == 0) retval= id_state; else retval = all_state; } return retval; } static void warning_1 (const char *id, const char *fmt, va_list args) { int warn_opt = warning_enabled (id); if (warn_opt == 2) { // Handle this warning as an error. error_1 (std::cerr, "error", id, fmt, args); } else if (warn_opt == 1) { bool fmt_suppresses_backtrace = false; size_t fmt_len = (fmt ? strlen (fmt) : 0); fmt_suppresses_backtrace = (fmt_len > 0 && fmt[fmt_len-1] == '\n'); if (fmt_suppresses_backtrace && fmt_len > 1) { // Strip newline before issuing warning std::string tmp_fmt (fmt, fmt_len - 1); vwarning ("warning", id, tmp_fmt.c_str (), args); } else vwarning ("warning", id, fmt, args); octave::call_stack& cs = octave::__get_call_stack__ ("warning_1"); bool in_user_code = cs.caller_user_code () != nullptr; if (! fmt_suppresses_backtrace && in_user_code && Vbacktrace_on_warning && ! discard_warning_messages) pr_where (std::cerr, "warning"); octave::bp_table& bptab = octave::__get_bp_table__ ("warning_1"); if ((octave::application::interactive () || octave::application::forced_interactive ()) && Vdebug_on_warning && in_user_code && bptab.debug_on_warn (id)) { octave::unwind_protect frame; frame.protect_var (Vdebug_on_warning); Vdebug_on_warning = false; octave::tree_evaluator::debug_mode = true; octave::tree_evaluator::current_frame = cs.current_frame (); do_keyboard (octave_value_list ()); } } } void vwarning (const char *fmt, va_list args) { warning_1 ("", fmt, args); } void warning (const char *fmt, ...) { va_list args; va_start (args, fmt); vwarning (fmt, args); va_end (args); } void vwarning_with_id (const char *id, const char *fmt, va_list args) { warning_1 (id, fmt, args); } void warning_with_id (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); vwarning_with_id (id, fmt, args); va_end (args); } void vparse_error (const char *fmt, va_list args) { error_1 (std::cerr, nullptr, "", fmt, args); } void parse_error (const char *fmt, ...) { va_list args; va_start (args, fmt); vparse_error (fmt, args); va_end (args); } void vparse_error_with_id (const char *id, const char *fmt, va_list args) { error_1 (std::cerr, nullptr, id, fmt, args); } void parse_error_with_id (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); vparse_error_with_id (id, fmt, args); va_end (args); } void rethrow_error (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); error_1 (std::cerr, nullptr, id, fmt, args); va_end (args); } static std::list<error_stack_frame> make_stack_frame_list (const octave_map& stack) { std::list<error_stack_frame> frames; Cell name = stack.contents ("name"); Cell line = stack.contents ("line"); Cell column; bool have_column = false; if (stack.contains ("column")) { have_column = true; column = stack.contents ("column"); } octave_idx_type nel = name.numel (); for (octave_idx_type i = 0; i < nel; i++) { error_stack_frame frame; frame.name = name(i).string_value (); frame.line = line(i).int_value (); frame.column = (have_column ? column(i).int_value () : -1); frames.push_back (frame); } return frames; } static void rethrow_error_1 (const char *id, const char *fmt, ...) { va_list args; va_start (args, fmt); verror (false, std::cerr, nullptr, id, fmt, args); va_end (args); } OCTAVE_NORETURN static void rethrow_error (const std::string& id, const std::string& msg, const octave_map& stack) { octave::execution_exception e = make_execution_exception ("error"); if (! stack.isempty () && ! (stack.contains ("file") && stack.contains ("name") && stack.contains ("line"))) error ("rethrow: STACK struct must contain the fields 'file', 'name', and 'line'"); Vlast_error_id = id; Vlast_error_message = msg; Vlast_error_stack = stack; size_t len = msg.length (); std::string tmp_msg (msg); if (len > 1 && tmp_msg[len-1] == '\n') { tmp_msg.erase (len - 1); rethrow_error_1 (id.c_str (), "%s\n", tmp_msg.c_str ()); } else rethrow_error_1 (id.c_str (), "%s", tmp_msg.c_str ()); if (! stack.isempty ()) { std::ostringstream buf; pr_where (buf, "error", make_stack_frame_list (stack)); e.set_stack_trace (buf.str ()); } throw e; } void panic (const char *fmt, ...) { va_list args; va_start (args, fmt); buffer_error_messages = 0; discard_error_messages = false; verror (false, std::cerr, "panic", "", fmt, args); va_end (args); abort (); } static void defun_usage_message_1 (const char *fmt, ...) { va_list args; va_start (args, fmt); error_1 (octave_stdout, nullptr, "", fmt, args); va_end (args); } void defun_usage_message (const std::string& msg) { defun_usage_message_1 ("%s", msg.c_str ()); } typedef void (*error_fun)(const char *, const char *, ...); extern octave_value_list Fsprintf (const octave_value_list&, int); static std::string handle_message (error_fun f, const char *id, const char *msg, const octave_value_list& args, bool have_fmt) { std::string retval; std::string tstr; if (args.length () > 0) { octave_value arg; if (have_fmt) { octave_value_list tmp = Fsprintf (args, 1); arg = tmp(0); } else arg = args(0); if (arg.is_defined ()) { if (arg.is_string ()) { tstr = arg.string_value (); msg = tstr.c_str (); if (! msg) return retval; } else if (arg.isempty ()) return retval; } } // Ugh. size_t len = strlen (msg); if (len > 0) { if (msg[len - 1] == '\n') { if (len > 1) { std::string tmp_msg (msg, len - 1); f (id, "%s\n", tmp_msg.c_str ()); retval = tmp_msg; } } else { f (id, "%s", msg); retval = msg; } } return retval; } DEFUN (rethrow, args, , doc: /* -*- texinfo -*- @deftypefn {} {} rethrow (@var{err}) Reissue a previous error as defined by @var{err}. @var{err} is a structure that must contain at least the @qcode{"message"} and @qcode{"identifier"} fields. @var{err} can also contain a field @qcode{"stack"} that gives information on the assumed location of the error. Typically @var{err} is returned from @code{lasterror}. @seealso{lasterror, lasterr, error} @end deftypefn */) { if (args.length () != 1) print_usage (); const octave_scalar_map err = args(0).scalar_map_value (); if (! (err.contains ("message") && err.contains ("identifier"))) error ("rethrow: ERR struct must contain the fields 'message' and 'identifier'"); std::string msg = err.contents ("message").string_value (); std::string id = err.contents ("identifier").string_value (); octave_map err_stack = initialize_last_error_stack (); if (err.contains ("stack")) err_stack = err.contents ("stack").xmap_value ("ERR.STACK must be a struct"); rethrow_error (id, msg, err_stack); return ovl (); } // Determine whether the first argument to error or warning function // should be handled as the message identifier or as the format string. static bool maybe_extract_message_id (const std::string& caller, const octave_value_list& args, octave_value_list& nargs, std::string& id) { nargs = args; id = ""; int nargin = args.length (); bool have_fmt = nargin > 1; if (nargin > 0) { std::string arg1 = args(0).string_value (); // For compatibility with Matlab, an identifier must contain ':', // but not at the beginning or the end, and it must not contain '%' // (even if it is not a valid conversion operator) or whitespace. if (arg1.find_first_of ("% \f\n\r\t\v") == std::string::npos && arg1.find (':') != std::string::npos && arg1[0] != ':' && arg1.back () != ':') { if (nargin > 1) { id = arg1; nargs.resize (nargin-1); for (int i = 1; i < nargin; i++) nargs(i-1) = args(i); } else nargs(0) = "call to " + caller + " with message identifier '" + arg1 + "' requires message"; } } return have_fmt; } DEFUN (error, args, , doc: /* -*- texinfo -*- @deftypefn {} {} error (@var{template}, @dots{}) @deftypefnx {} {} error (@var{id}, @var{template}, @dots{}) Display an error message and stop m-file execution. Format the optional arguments under the control of the template string @var{template} using the same rules as the @code{printf} family of functions (@pxref{Formatted Output}) and print the resulting message on the @code{stderr} stream. The message is prefixed by the character string @samp{error: }. Calling @code{error} also sets Octave's internal error state such that control will return to the top level without evaluating any further commands. This is useful for aborting from functions or scripts. If the error message does not end with a newline character, Octave will print a traceback of all the function calls leading to the error. For example, given the following function definitions: @example @group function f () g (); end function g () h (); end function h () nargin == 1 || error ("nargin != 1"); end @end group @end example @noindent calling the function @code{f} will result in a list of messages that can help you to quickly find the exact location of the error: @example @group f () error: nargin != 1 error: called from: error: h at line 1, column 27 error: g at line 1, column 15 error: f at line 1, column 15 @end group @end example If the error message ends in a newline character, Octave will print the message but will not display any traceback messages as it returns control to the top level. For example, modifying the error message in the previous example to end in a newline causes Octave to only print a single message: @example @group function h () nargin == 1 || error ("nargin != 1\n"); end f () error: nargin != 1 @end group @end example A null string ("") input to @code{error} will be ignored and the code will continue running as if the statement were a NOP@. This is for compatibility with @sc{matlab}. It also makes it possible to write code such as @example @group err_msg = ""; if (CONDITION 1) err_msg = "CONDITION 1 found"; elseif (CONDITION2) err_msg = "CONDITION 2 found"; @dots{} endif error (err_msg); @end group @end example @noindent which will only stop execution if an error has been found. Implementation Note: For compatibility with @sc{matlab}, escape sequences in @var{template} (e.g., @qcode{"@xbackslashchar{}n"} => newline) are processed regardless of whether @var{template} has been defined with single quotes, as long as there are two or more input arguments. To disable escape sequence expansion use a second backslash before the sequence (e.g., @qcode{"@xbackslashchar{}@xbackslashchar{}n"}) or use the @code{regexptranslate} function. @seealso{warning, lasterror} @end deftypefn */) { int nargin = args.length (); if (nargin == 0) print_usage (); octave_value retval; octave_value_list nargs = args; std::string id; bool have_fmt = false; if (nargin == 1 && args(0).isstruct ()) { // empty struct is not an error. return and resume calling function. if (args(0).isempty ()) return retval; octave_scalar_map m = args(0).scalar_map_value (); // empty struct is not an error. return and resume calling function. if (m.nfields () == 0) return retval; if (m.contains ("message")) { octave_value c = m.getfield ("message"); if (c.is_string ()) nargs(0) = c.string_value (); } if (m.contains ("identifier")) { octave_value c = m.getfield ("identifier"); if (c.is_string ()) id = c.string_value (); } // FIXME: also need to handle "stack" field in error structure, // but that will require some more significant surgery on // handle_message, error_with_id, etc. } else have_fmt = maybe_extract_message_id ("error", args, nargs, id); handle_message (error_with_id, id.c_str (), "unspecified error", nargs, have_fmt); return retval; } static octave_scalar_map warning_query (const std::string& id_arg) { octave_scalar_map retval; std::string id = id_arg; if (id == "last") id = Vlast_warning_id; Cell ident = warning_options.contents ("identifier"); Cell state = warning_options.contents ("state"); octave_idx_type nel = ident.numel (); assert (nel != 0); bool found = false; std::string val; for (octave_idx_type i = 0; i < nel; i++) { if (ident(i).string_value () == id) { val = state(i).string_value (); found = true; break; } } if (! found) { for (octave_idx_type i = 0; i < nel; i++) { if (ident(i).string_value () == "all") { val = state(i).string_value (); found = true; break; } } } // The warning state "all" is always supposed to remain in the list, // so we should always find a state, either explicitly or by using the // state for "all". assert (found); retval.assign ("identifier", id); retval.assign ("state", val); return retval; } static std::string default_warning_state (void) { std::string retval = "on"; Cell ident = warning_options.contents ("identifier"); Cell state = warning_options.contents ("state"); octave_idx_type nel = ident.numel (); for (octave_idx_type i = 0; i < nel; i++) { if (ident(i).string_value () == "all") { retval = state(i).string_value (); break; } } return retval; } static void display_warning_options (std::ostream& os) { Cell ident = warning_options.contents ("identifier"); Cell state = warning_options.contents ("state"); octave_idx_type nel = ident.numel (); std::string all_state = default_warning_state (); if (all_state == "on") os << "By default, warnings are enabled."; else if (all_state == "off") os << "By default, warnings are disabled."; else if (all_state == "error") os << "By default, warnings are treated as errors."; else panic_impossible (); if (nel > 1) os << "\n\n"; // The state for all is always supposed to be first in the list. for (octave_idx_type i = 1; i < nel; i++) { std::string tid = ident(i).string_value (); std::string tst = state(i).string_value (); os << std::setw (7) << tst << " " << tid << "\n"; } os << std::endl; } static void set_warning_option (const std::string& state, const std::string& ident) { std::string all_state = default_warning_state (); if (state != "on" && state != "off" && state != "error") error ("invalid warning state: %s", state.c_str ()); Cell tid = warning_options.contents ("identifier"); Cell tst = warning_options.contents ("state"); octave_idx_type nel = tid.numel (); for (octave_idx_type i = 0; i < nel; i++) { if (tid(i).string_value () == ident) { // We found it in the current list of options. If the state // for "all" is same as arg1, we can simply remove the item // from the list. if (state == all_state && ident != "all") { for (i = i + 1; i < nel; i++) { tid(i-1) = tid(i); tst(i-1) = tst(i); } tid.resize (dim_vector (1, nel-1)); tst.resize (dim_vector (1, nel-1)); } else tst(i) = state; warning_options.clear (); warning_options.assign ("identifier", tid); warning_options.assign ("state", tst); return; } } // The option wasn't already in the list. Append it. tid.resize (dim_vector (1, nel+1)); tst.resize (dim_vector (1, nel+1)); tid(nel) = ident; tst(nel) = state; warning_options.clear (); warning_options.assign ("identifier", tid); warning_options.assign ("state", tst); } DEFMETHOD (warning, interp, args, nargout, doc: /* -*- texinfo -*- @deftypefn {} {} warning (@var{template}, @dots{}) @deftypefnx {} {} warning (@var{id}, @var{template}, @dots{}) @deftypefnx {} {} warning ("on", @var{id}) @deftypefnx {} {} warning ("off", @var{id}) @deftypefnx {} {} warning ("error", @var{id}) @deftypefnx {} {} warning ("query", @var{id}) @deftypefnx {} {} warning (@var{state}, @var{id}, "local") @deftypefnx {} {} warning (@var{stin}) @deftypefnx {} {@var{stout} =} warning (@dots{}) @deftypefnx {} {@var{mode_st} =} warning (@var{state}, @var{mode}) @deftypefnx {} {} warning (@var{mode_st}) Display a warning message or control the behavior of Octave's warning system. The first call form uses a template @var{template} and optional additional arguments to display a message on the @code{stderr} stream. The message is formatted using the same rules as the @code{printf} family of functions (@pxref{Formatted Output}) and prefixed by the character string @samp{warning: }. You should use this function when you want to notify the user of an unusual condition, but only when it makes sense for your program to go on. For example: @example @group warning ("foo: maybe something wrong here"); @end group @end example The optional warning identifier @var{id} allows users to enable or disable warnings tagged by this identifier. A message identifier is a string of the form @qcode{"NAMESPACE:WARNING-NAME"}. Octave's own warnings use the @qcode{"Octave"} namespace (@pxref{XREFwarning_ids,,warning_ids}). For example: @example @group warning ("MyNameSpace:check-something", "foo: maybe something wrong here"); @end group @end example The second call form is meant to change and/or query the state of warnings. The first input argument must be a string @var{state} (@qcode{"on"}, @qcode{"off"}, @qcode{"error"}, or @qcode{"query"}) followed by an optional warning identifier @var{id} or @qcode{"all"} (default). The optional output argument @var{stout} is a structure or structure array with fields @qcode{"state"} and @qcode{"identifier"}. The @var{state} argument may have the following values: @table @asis @item @qcode{"on"}|@qcode{"off"}: Enable or disable the display of warnings identified by @var{id} and optionally return their previous state @var{stout}. @item @qcode{"error"}: Turn warnings identified by @var{id} into errors and optionally return their previous state @var{stout}. @item @qcode{"query"}: Return the current state of warnings identified by @var{id}. @end table A structure or structure array @var{stin}, with fields @qcode{"state"} and @qcode{"identifier"}, may be passed to achieve equivalent results. The following example shows how to temporarily disable a warning and then restore its original state: @example @group loglog (-1:10); ## Disable the previous warning and save its original state [~, id] = lastwarn (); warnstate = warning ("off", id); loglog (-1:10); ## Restore its original state warning (warnstate); @end group @end example If a final argument @qcode{"local"} is provided then the warning state will be set temporarily until the end of the current function. Changes to warning states that are set locally affect the current function and all functions called from the current scope. The previous warning state is restored on return from the current function. The @qcode{"local"} option is ignored if used in the top-level workspace. With no input argument @code{warning ()} is equivalent to @code{warning ("query", "all")} except that in the absence of an output argument, the state of warnings is displayed on @code{stderr}. The level of verbosity of the warning system may also be controlled by two modes @var{mode}: @table @asis @item @qcode{"backtrace"}: enable/disable the display of the stack trace after the warning message @item @qcode{"verbose"}: enable/disable the display of additional information after the warning message @end table In this case the @var{state} argument may only be @qcode{"on"} or @qcode{"off"}. Implementation Note: For compatibility with @sc{matlab}, escape sequences in @var{template} (e.g., @qcode{"@xbackslashchar{}n"} => newline) are processed regardless of whether @var{template} has been defined with single quotes, as long as there are two or more input arguments. To disable escape sequence expansion use a second backslash before the sequence (e.g., @qcode{"@xbackslashchar{}@xbackslashchar{}n"}) or use the @code{regexptranslate} function. @seealso{warning_ids, lastwarn, error} @end deftypefn */) { octave_value retval; int nargin = args.length (); bool done = false; if (nargin > 0 && args.all_strings_p ()) { string_vector argv = args.make_argv ("warning"); std::string arg1 = argv[1]; std::string arg2 = "all"; if (nargin >= 2) arg2 = argv[2]; if (arg1 == "on" || arg1 == "off" || arg1 == "error") { // Prepare output structure octave_map old_warning_options; if (arg2 == "all") old_warning_options = warning_options; else old_warning_options = octave_map (warning_query (arg2)); octave::symbol_table& symtab = interp.get_symbol_table (); if (nargin == 3 && argv[3] == "local" && ! symtab.at_top_level ()) { octave::symbol_scope scope = symtab.require_current_scope ("warning"); octave_scalar_map val = warning_query (arg2); octave_value curr_state = val.contents ("state"); // FIXME: this might be better with a dictionary object. octave_value curr_warning_states = scope.varval (".saved_warning_states."); octave_map m; if (curr_warning_states.is_defined ()) m = curr_warning_states.map_value (); else { string_vector fields (2); fields(0) = "identifier"; fields(1) = "state"; m = octave_map (dim_vector (0, 1), fields); } Cell ids = m.contents ("identifier"); Cell states = m.contents ("state"); octave_idx_type nel = states.numel (); bool found = false; octave_idx_type i; for (i = 0; i < nel; i++) { std::string id = ids(i).string_value (); if (id == arg2) { states(i) = curr_state; found = true; break; } } if (! found) { m.resize (dim_vector (nel+1, 1)); ids.resize (dim_vector (nel+1, 1)); states.resize (dim_vector (nel+1, 1)); ids(nel) = arg2; states(nel) = curr_state; } m.contents ("identifier") = ids; m.contents ("state") = states; scope.force_assign (".saved_warning_states.", m); // Now ignore the "local" argument and continue to // handle the current setting. nargin--; } if (nargin >= 2 && arg2 == "all") { // If "all" is explicitly given as ID. octave_map tmp; int is_error = (arg1 == "error"); Cell id (1, 1 + 2*is_error); Cell st (1, 1 + 2*is_error); id(0) = arg2; st(0) = arg1; // Since internal Octave functions are not compatible, // and "all"=="error" causes any "on" to throw an error, // turning all warnings into errors should disable // Octave:language-extension. if (is_error) { id(1) = "Octave:language-extension"; st(1) = "off"; id(2) = "Octave:single-quote-string"; st(2) = "off"; } tmp.assign ("identifier", id); tmp.assign ("state", st); warning_options = tmp; done = true; } else if (arg2 == "backtrace") { if (arg1 != "error") { Vbacktrace_on_warning = (arg1 == "on"); done = true; } } else if (arg2 == "debug") { if (arg1 != "error") { Vdebug_on_warning = (arg1 == "on"); done = true; } } else if (arg2 == "verbose") { if (arg1 != "error") { Vverbose_warning = (arg1 == "on"); done = true; } } else if (arg2 == "quiet") { if (arg1 != "error") { Vquiet_warning = (arg1 == "on"); done = true; } } else { if (arg2 == "last") arg2 = Vlast_warning_id; set_warning_option (arg1, arg2); done = true; } if (done && nargout > 0) retval = old_warning_options; } else if (arg1 == "query") { if (arg2 == "all") retval = warning_options; else if (arg2 == "backtrace" || arg2 == "debug" || arg2 == "verbose" || arg2 == "quiet") { octave_scalar_map tmp; tmp.assign ("identifier", arg2); if (arg2 == "backtrace") tmp.assign ("state", Vbacktrace_on_warning ? "on" : "off"); else if (arg2 == "debug") tmp.assign ("state", Vdebug_on_warning ? "on" : "off"); else if (arg2 == "verbose") tmp.assign ("state", Vverbose_warning ? "on" : "off"); else tmp.assign ("state", Vquiet_warning ? "on" : "off"); retval = tmp; } else retval = warning_query (arg2); done = true; } } else if (nargin == 0) { if (nargout > 0) retval = warning_options; else display_warning_options (octave_stdout); done = true; } else if (nargin == 1) { octave_value arg = args(0); octave_map old_warning_options; if (arg.isstruct ()) { octave_map m = arg.map_value (); if (! m.contains ("identifier") || ! m.contains ("state")) error ("warning: STATE structure must have fields 'identifier' and 'state'"); // Simply step through the struct elements one at a time. Cell ident = m.contents ("identifier"); Cell state = m.contents ("state"); octave_idx_type nel = ident.numel (); // Prepare output structure old_warning_options = octave_map (m); Cell oldstate (state); for (octave_idx_type i = 0; i < nel; i++) { std::string tid = ident(i).string_value (); oldstate(i) = warning_query (tid).getfield ("state"); } old_warning_options.setfield ("state", oldstate); // Set new values for (octave_idx_type i = 0; i < nel; i++) { std::string tst = state(i).string_value (); std::string tid = ident(i).string_value (); set_warning_option (tst, tid); } done = true; if (nargout > 0) retval = old_warning_options; } } if (! done) { octave_value_list nargs = args; std::string id; bool have_fmt = maybe_extract_message_id ("warning", args, nargs, id); std::string prev_msg = Vlast_warning_message; std::string curr_msg = handle_message (warning_with_id, id.c_str (), "unspecified warning", nargs, have_fmt); if (nargout > 0) retval = prev_msg; } return retval; } /* %!test <*45753> %! warning ("error"); %! assert (! isempty (help ("warning"))); */ /* %!test <*51997> %! id = "Octave:divide-by-zero"; %! current = warning ("query", id); %! current_all = warning (); %! previous = warning (current_all); %! assert (previous, current_all); %! previous = warning (current); %! assert (previous, current); %! previous = warning (current.state, id); %! assert (previous, current); */ octave_value_list set_warning_state (const std::string& id, const std::string& state) { octave_value_list args; args(1) = id; args(0) = state; octave::interpreter& interp = octave::__get_interpreter__ ("set_warning_state"); return Fwarning (interp, args, 1); } octave_value_list set_warning_state (const octave_value_list& args) { octave::interpreter& interp = octave::__get_interpreter__ ("set_warning_state"); return Fwarning (interp, args, 1); } void disable_warning (const std::string& id) { set_warning_option ("off", id); } void initialize_default_warning_state (void) { initialize_warning_options ("on"); // Most people will want to have the following disabled. disable_warning ("Octave:array-as-logical"); disable_warning ("Octave:array-to-scalar"); disable_warning ("Octave:array-to-vector"); disable_warning ("Octave:imag-to-real"); disable_warning ("Octave:language-extension"); disable_warning ("Octave:missing-semicolon"); disable_warning ("Octave:neg-dim-as-zero"); disable_warning ("Octave:resize-on-range-error"); disable_warning ("Octave:separator-insert"); disable_warning ("Octave:single-quote-string"); disable_warning ("Octave:str-to-num"); disable_warning ("Octave:mixed-string-concat"); disable_warning ("Octave:variable-switch-label"); } DEFMETHOD (lasterror, interp, args, , doc: /* -*- texinfo -*- @deftypefn {} {@var{lasterr} =} lasterror () @deftypefnx {} {} lasterror (@var{err}) @deftypefnx {} {} lasterror ("reset") Query or set the last error message structure. When called without arguments, return a structure containing the last error message and other information related to this error. The elements of the structure are: @table @code @item message The text of the last error message @item identifier The message identifier of this error message @item stack A structure containing information on where the message occurred. This may be an empty structure if the information cannot be obtained. The fields of the structure are: @table @code @item file The name of the file where the error occurred @item name The name of function in which the error occurred @item line The line number at which the error occurred @item column An optional field with the column number at which the error occurred @end table @end table The last error structure may be set by passing a scalar structure, @var{err}, as input. Any fields of @var{err} that match those above are set while any unspecified fields are initialized with default values. If @code{lasterror} is called with the argument @qcode{"reset"}, all fields are set to their default values. @seealso{lasterr, error, lastwarn} @end deftypefn */) { int nargin = args.length (); if (nargin > 1) print_usage (); octave_scalar_map err; err.assign ("message", Vlast_error_message); err.assign ("identifier", Vlast_error_id); err.assign ("stack", octave_value (Vlast_error_stack)); if (nargin == 1) { if (args(0).is_string ()) { if (args(0).string_value () != "reset") error ("lasterror: unrecognized string argument"); Vlast_error_message = ""; Vlast_error_id = ""; Vlast_error_stack = initialize_last_error_stack (); } else if (args(0).isstruct ()) { octave_scalar_map new_err = args(0).scalar_map_value (); octave_scalar_map new_err_stack; std::string new_error_message; std::string new_error_id; std::string new_error_file; std::string new_error_name; int new_error_line = -1; int new_error_column = -1; bool initialize_stack = false; if (new_err.contains ("message")) { const std::string tmp = new_err.getfield ("message").string_value (); new_error_message = tmp; } if (new_err.contains ("identifier")) { const std::string tmp = new_err.getfield ("identifier").string_value (); new_error_id = tmp; } if (new_err.contains ("stack")) { if (new_err.getfield ("stack").isempty ()) initialize_stack = true; else { new_err_stack = new_err.getfield ("stack").scalar_map_value (); if (new_err_stack.contains ("file")) { const std::string tmp = new_err_stack.getfield ("file").string_value (); new_error_file = tmp; } if (new_err_stack.contains ("name")) { const std::string tmp = new_err_stack.getfield ("name").string_value (); new_error_name = tmp; } if (new_err_stack.contains ("line")) { const int tmp = new_err_stack.getfield ("line").nint_value (); new_error_line = tmp; } if (new_err_stack.contains ("column")) { const int tmp = new_err_stack.getfield ("column").nint_value (); new_error_column = tmp; } } } Vlast_error_message = new_error_message; Vlast_error_id = new_error_id; if (initialize_stack) Vlast_error_stack = initialize_last_error_stack (); else if (new_err.contains ("stack")) { new_err_stack.setfield ("file", new_error_file); new_err_stack.setfield ("name", new_error_name); new_err_stack.setfield ("line", new_error_line); new_err_stack.setfield ("column", new_error_column); Vlast_error_stack = new_err_stack; } else { // No stack field. Fill it in with backtrace info. octave_idx_type curr_frame = -1; octave::call_stack& cs = interp.get_call_stack (); Vlast_error_stack = cs.backtrace (0, curr_frame); } } else error ("lasterror: argument must be a structure or a string"); } return ovl (err); } /* ## Test lasterror with empty error state %!test %! lasterror ("reset"); %! x = lasterror (); %! assert (x.identifier, "") %! assert (x.message, "") %! assert (isempty (x.stack)) %! lasterror (x); %! y = lasterror (); %! assert (y, x); */ DEFUN (lasterr, args, nargout, doc: /* -*- texinfo -*- @deftypefn {} {[@var{msg}, @var{msgid}] =} lasterr () @deftypefnx {} {} lasterr (@var{msg}) @deftypefnx {} {} lasterr (@var{msg}, @var{msgid}) Query or set the last error message. When called without input arguments, return the last error message and message identifier. With one argument, set the last error message to @var{msg}. With two arguments, also set the last message identifier. @seealso{lasterror, error, lastwarn} @end deftypefn */) { int nargin = args.length (); if (nargin > 2) print_usage (); string_vector argv = args.make_argv ("lasterr"); std::string prev_error_id = Vlast_error_id; std::string prev_error_message = Vlast_error_message; if (nargin == 2) { Vlast_error_id = argv[2]; Vlast_error_message = argv[1]; } else if (nargin == 1) { Vlast_error_id = ""; Vlast_error_message = argv[1]; } if (nargin == 0 || nargout > 0) return ovl (prev_error_message, prev_error_id); else return ovl (); } DEFUN (lastwarn, args, nargout, doc: /* -*- texinfo -*- @deftypefn {} {[@var{msg}, @var{msgid}] =} lastwarn () @deftypefnx {} {} lastwarn (@var{msg}) @deftypefnx {} {} lastwarn (@var{msg}, @var{msgid}) Query or set the last warning message. When called without input arguments, return the last warning message and message identifier. With one argument, set the last warning message to @var{msg}. With two arguments, also set the last message identifier. @seealso{warning, lasterror, lasterr} @end deftypefn */) { int nargin = args.length (); if (nargin > 2) print_usage (); string_vector argv = args.make_argv ("lastwarn"); std::string prev_warning_id = Vlast_warning_id; std::string prev_warning_message = Vlast_warning_message; if (nargin == 2) { Vlast_warning_id = argv[2]; Vlast_warning_message = argv[1]; } else if (nargin == 1) { Vlast_warning_id = ""; Vlast_warning_message = argv[1]; } if (nargin == 0 || nargout > 0) return ovl (prev_warning_message, prev_warning_id); else return ovl (); } // FIXME: Deprecated in 4.0 and scheduled for removal in 4.4. DEFUN (__usage__, args, , doc: /* -*- texinfo -*- @deftypefn {} {} usage (@var{msg}) Print the message @var{msg}, prefixed by the string @samp{usage: }, and set Octave's internal error state such that control will return to the top level without evaluating any more commands. This is useful for aborting from functions. After @code{usage} is evaluated, Octave will print a traceback of all the function calls leading to the usage message. You should use this function for reporting problems errors that result from an improper call to a function, such as calling a function with an incorrect number of arguments, or with arguments of the wrong type. For example, most functions distributed with Octave begin with code like this @example @group if (nargin != 2) usage ("foo (a, b)"); endif @end group @end example @noindent to check for the proper number of arguments. @end deftypefn */) { handle_message (usage_with_id, "", "unknown", args, true); return ovl (); } DEFUN (beep_on_error, args, nargout, doc: /* -*- texinfo -*- @deftypefn {} {@var{val} =} beep_on_error () @deftypefnx {} {@var{old_val} =} beep_on_error (@var{new_val}) @deftypefnx {} {} beep_on_error (@var{new_val}, "local") Query or set the internal variable that controls whether Octave will try to ring the terminal bell before printing an error message. When called from inside a function with the @qcode{"local"} option, the variable is changed locally for the function and any subroutines it calls. The original variable value is restored when exiting the function. @end deftypefn */) { return SET_INTERNAL_VARIABLE (beep_on_error); } DEFUN (debug_on_error, args, nargout, doc: /* -*- texinfo -*- @deftypefn {} {@var{val} =} debug_on_error () @deftypefnx {} {@var{old_val} =} debug_on_error (@var{new_val}) @deftypefnx {} {} debug_on_error (@var{new_val}, "local") Query or set the internal variable that controls whether Octave will try to enter the debugger when an error is encountered. This will also inhibit printing of the normal traceback message (you will only see the top-level error message). When called from inside a function with the @qcode{"local"} option, the variable is changed locally for the function and any subroutines it calls. The original variable value is restored when exiting the function. @seealso{debug_on_warning, debug_on_interrupt} @end deftypefn */) { return SET_INTERNAL_VARIABLE (debug_on_error); } DEFUN (debug_on_warning, args, nargout, doc: /* -*- texinfo -*- @deftypefn {} {@var{val} =} debug_on_warning () @deftypefnx {} {@var{old_val} =} debug_on_warning (@var{new_val}) @deftypefnx {} {} debug_on_warning (@var{new_val}, "local") Query or set the internal variable that controls whether Octave will try to enter the debugger when a warning is encountered. When called from inside a function with the @qcode{"local"} option, the variable is changed locally for the function and any subroutines it calls. The original variable value is restored when exiting the function. @seealso{debug_on_error, debug_on_interrupt} @end deftypefn */) { return SET_INTERNAL_VARIABLE (debug_on_warning); } std::string last_error_message (void) { return Vlast_error_message; } std::string last_error_id (void) { return Vlast_error_id; } octave_map last_error_stack (void) { return Vlast_error_stack; } std::string last_warning_message (void) { return Vlast_warning_message; } std::string last_warning_id (void) { return Vlast_warning_id; } void interpreter_try (octave::unwind_protect& frame) { frame.protect_var (buffer_error_messages); frame.protect_var (Vdebug_on_error); frame.protect_var (Vdebug_on_warning); buffer_error_messages++; Vdebug_on_error = false; Vdebug_on_warning = false; // leave Vdebug_on_caught as it was, so errors in try/catch are still caught }