octave: libinterp/corefcn/error.cc annotate

annotate libinterp/corefcn/error.cc @ 20918:6f0bd96f93c0

maint: Use new C++ archetype in more files. Place input validation first in files. Move declaration of retval down in function to be closer to point of usage. Eliminate else clause after if () error. Use "return ovl()" where it makes sense. * __dispatch__.cc, __dsearchn__.cc, __ichol__.cc, __lin_interpn__.cc, balance.cc, betainc.cc, bitfcns.cc, bsxfun.cc, cellfun.cc, colloc.cc, conv2.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc, debug.cc, dirfns.cc, dlmread.cc, dot.cc, eig.cc, error.cc, fft.cc, fft2.cc, fftn.cc, file-io.cc, ov-type-conv.h: Use new C++ archetype in more files.

author	Rik <rik@octave.org>
date	Wed, 16 Dec 2015 15:00:31 -0800
parents	9aad16a799c9
children	48b2ad5ee801

rev	line source
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	2
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19597 diff changeset	3 Copyright (C) 1993-2015 John W. Eaton
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	4
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	6
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	10 option) any later version.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	11
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	15 for more details.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	16
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	19 <http://www.gnu.org/licenses/>.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	20
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	21 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	22
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 189 diff changeset	23 #ifdef HAVE_CONFIG_H
1192 b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe] jwe parents: 1165 diff changeset	24 #include <config.h>
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	25 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	26
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	27 #include <cstdarg>
1633 4a4440aa1262 [project @ 1995-11-14 23:01:31 by jwe] jwe parents: 1489 diff changeset	28 #include <cstring>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	29
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	30 #include <iomanip>
8950 d865363208d6 include <iosfwd> instead of <iostream> in header files John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	31 #include <iostream>
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5744 diff changeset	32 #include <sstream>
1728 42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1633 diff changeset	33 #include <string>
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1633 diff changeset	34
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	35 #include "defun.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	36 #include "error.h"
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	37 #include "input.h"
1742 a02f140ed897 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: 1728 diff changeset	38 #include "pager.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	39 #include "oct-obj.h"
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	40 #include "oct-map.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	41 #include "utils.h"
2370 a45c7d64b5e3 [project @ 1996-10-11 23:51:15 by jwe] jwe parents: 2200 diff changeset	42 #include "ov.h"
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	43 #include "ov-usr-fcn.h"
18742 bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	44 #include "pt-eval.h"
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	45 #include "pt-pr-code.h"
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	46 #include "pt-stmt.h"
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	47 #include "toplev.h"
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	48 #include "unwind-prot.h"
2370 a45c7d64b5e3 [project @ 1996-10-11 23:51:15 by jwe] jwe parents: 2200 diff changeset	49 #include "variables.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	50
2174 68b02495a5ac [project @ 1996-05-13 16:08:39 by jwe] jwe parents: 2095 diff changeset	51 // TRUE means that Octave will try to beep obnoxiously before printing
68b02495a5ac [project @ 1996-05-13 16:08:39 by jwe] jwe parents: 2095 diff changeset	52 // error messages.
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	53 static bool Vbeep_on_error = false;
2174 68b02495a5ac [project @ 1996-05-13 16:08:39 by jwe] jwe parents: 2095 diff changeset	54
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	55 // TRUE means that Octave will try to enter the debugger when an error
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	56 // is encountered. This will also inhibit printing of the normal
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	57 // traceback message (you will only see the top-level error message).
7353 516ddd88e45a [project @ 2008-01-07 19:32:40 by jwe] jwe parents: 7336 diff changeset	58 bool Vdebug_on_error = false;
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	59
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	60 // TRUE means that Octave will try to enter the debugger when a warning
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	61 // is encountered.
7353 516ddd88e45a [project @ 2008-01-07 19:32:40 by jwe] jwe parents: 7336 diff changeset	62 bool Vdebug_on_warning = false;
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	63
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	64 // TRUE means that Octave will try to display a stack trace when a
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	65 // warning is encountered.
18128 d96747f74b1e enable "backtrace" warning by default and document option John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	66 static bool Vbacktrace_on_warning = true;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	67
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	68 // TRUE means that Octave will print a verbose warning. Currently unused.
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	69 static bool Vverbose_warning;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	70
18742 bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	71 // TRUE means that Octave will print no warnings, but lastwarn will be updated
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: 5567 diff changeset	72 static bool Vquiet_warning = false;
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: 5567 diff changeset	73
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	74 // A structure containing (most of) the current state of warnings.
11058 3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	75 static octave_map warning_options;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	76
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	77 // The text of the last error message.
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	78 static std::string Vlast_error_message;
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	79
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	80 // The text of the last warning message.
31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	81 static std::string Vlast_warning_message;
31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	82
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	83 // The last warning message id.
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	84 static std::string Vlast_warning_id;
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	85
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	86 // The last error message id.
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	87 static std::string Vlast_error_id;
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	88
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	89 // The last file in which an error occured
10767 2b041d3995a3 modernize some map usage on toplev.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 10605 diff changeset	90 static octave_map Vlast_error_stack;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	91
143 7849db4b6dbc [project @ 1993-10-04 02:36:45 by jwe] jwe parents: 103 diff changeset	92 // Current error state.
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	93 //
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	94 // Valid values:
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	95 //
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	96 // 0: no error
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	97 // 1: an error has occurred
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	98 //
672 066e1551639c [project @ 1994-09-07 21:10:32 by jwe] jwe parents: 610 diff changeset	99 int error_state = 0;
066e1551639c [project @ 1994-09-07 21:10:32 by jwe] jwe parents: 610 diff changeset	100
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	101 // Tell the error handler whether to print messages, or just store
3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	102 // them for later. Used for handling errors in eval() and
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	103 // the 'unwind_protect' statement.
4699 5e2c68946f30 [project @ 2004-01-20 23:04:46 by jwe] jwe parents: 4452 diff changeset	104 int buffer_error_messages = 0;
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	105
3815 c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	106 // TRUE means error messages are turned off.
c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	107 bool discard_error_messages = false;
c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	108
4452 f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe] jwe parents: 4324 diff changeset	109 // TRUE means warning messages are turned off.
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe] jwe parents: 4324 diff changeset	110 bool discard_warning_messages = false;
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe] jwe parents: 4324 diff changeset	111
4318 115bffcecfd3 [project @ 2003-02-13 05:52:16 by jwe] jwe parents: 4233 diff changeset	112 void
115bffcecfd3 [project @ 2003-02-13 05:52:16 by jwe] jwe parents: 4233 diff changeset	113 reset_error_handler (void)
115bffcecfd3 [project @ 2003-02-13 05:52:16 by jwe] jwe parents: 4233 diff changeset	114 {
4699 5e2c68946f30 [project @ 2004-01-20 23:04:46 by jwe] jwe parents: 4452 diff changeset	115 buffer_error_messages = 0;
4318 115bffcecfd3 [project @ 2003-02-13 05:52:16 by jwe] jwe parents: 4233 diff changeset	116 discard_error_messages = false;
115bffcecfd3 [project @ 2003-02-13 05:52:16 by jwe] jwe parents: 4233 diff changeset	117 }
115bffcecfd3 [project @ 2003-02-13 05:52:16 by jwe] jwe parents: 4233 diff changeset	118
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	119 static void
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	120 initialize_warning_options (const std::string& state)
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	121 {
11058 3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	122 octave_scalar_map initw;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	123
11058 3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	124 initw.setfield ("identifier", "all");
3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	125 initw.setfield ("state", state);
3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	126
3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	127 warning_options = initw;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	128 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	129
10767 2b041d3995a3 modernize some map usage on toplev.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 10605 diff changeset	130 static octave_map
9166 69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	131 initialize_last_error_stack (void)
69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	132 {
10767 2b041d3995a3 modernize some map usage on toplev.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 10605 diff changeset	133 return octave_call_stack::empty_backtrace ();
9166 69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	134 }
69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	135
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	136 static void
4732 b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	137 verror (bool save_last_error, std::ostream& os,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	138 const char name, const char id, const char *fmt, va_list args,
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	139 bool with_cfn = false)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	140 {
3815 c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	141 if (discard_error_messages)
c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	142 return;
c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	143
3585 d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3548 diff changeset	144 if (! buffer_error_messages)
d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3548 diff changeset	145 flush_octave_stdout ();
914 6a10b90623ea [project @ 1994-11-10 21:53:10 by jwe] jwe parents: 905 diff changeset	146
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	147 // FIXME: we really want to capture the message before it has all the
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	148 // formatting goop attached to it. We probably also want just the
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	149 // message, not the traceback information.
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	150
7877 59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	151 std::ostringstream output_buf;
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	152
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	153 octave_vformat (output_buf, fmt, args);
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	154
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	155 std::string base_msg = output_buf.str ();
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	156
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	157 bool to_beep_or_not_to_beep_p = Vbeep_on_error;
7877 59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	158
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	159 std::string msg_string;
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	160
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	161 if (to_beep_or_not_to_beep_p)
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	162 msg_string = "\a";
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	163
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	164 if (name)
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	165 msg_string += std::string (name) + ": ";
59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	166
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	167 // If with_fcn is specified, we'll attempt to prefix the message with the name
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	168 // of the current executing function. But we'll do so only if:
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	169 // 1. the name is not empty (anonymous function)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	170 // 2. it is not already there (including the following colon)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	171 if (with_cfn)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	172 {
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	173 octave_function *curfcn = octave_call_stack::current ();
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	174 if (curfcn)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	175 {
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	176 std::string cfn = curfcn->name ();
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	177 if (! cfn.empty ())
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	178 {
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	179 cfn += ':';
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	180 if (cfn.length () > base_msg.length ()
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	181 \|\| base_msg.compare (0, cfn.length (), cfn) != 0)
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	182 {
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	183 msg_string += cfn + ' ';
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	184 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	185 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	186 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	187 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	188
7880 7609a985a052 verror fixes John W. Eaton <jwe@octave.org> parents: 7877 diff changeset	189 msg_string += base_msg + "\n";
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	190
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	191 if (save_last_error)
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	192 {
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	193 // This is the first error in a possible series.
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	194
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	195 Vlast_error_id = id;
7877 59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	196 Vlast_error_message = base_msg;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	197
7877 59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	198 octave_user_code *fcn = octave_call_stack::caller_user_code ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	199
7877 59031cfe331b lasterror fixes John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	200 if (fcn)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	201 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	202 octave_idx_type curr_frame = -1;
9166 69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	203
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	204 Vlast_error_stack = octave_call_stack::backtrace (0, curr_frame);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	205 }
9166 69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	206 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	207 Vlast_error_stack = initialize_last_error_stack ();
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	208 }
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	209
13987 2c0765c14e4f eliminate unused error message buffer John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	210 if (! buffer_error_messages)
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	211 {
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	212 octave_diary << msg_string;
4732 b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	213 os << msg_string;
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	214 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	215 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	216
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	217 static void
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	218 pr_where_2 (std::ostream& os, const char *fmt, va_list args)
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	219 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	220 if (fmt)
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	221 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	222 if (*fmt)
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	223 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	224 size_t len = strlen (fmt);
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	225
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	226 if (len > 0)
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	227 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	228 if (fmt[len - 1] == '\n')
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	229 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	230 if (len > 1)
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	231 {
20827 b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	232 std::string tmp_fmt (fmt, len - 1);
b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	233 verror (false, os, 0, "", tmp_fmt.c_str (), args);
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	234 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	235 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	236 else
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	237 verror (false, os, 0, "", fmt, args);
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	238 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	239 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	240 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	241 else
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	242 panic ("pr_where_2: invalid format");
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	243 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	244
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	245 static void
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	246 pr_where_1 (std::ostream& os, const char *fmt, ...)
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	247 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	248 va_list args;
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	249 va_start (args, fmt);
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	250 pr_where_2 (os, fmt, args);
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	251 va_end (args);
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	252 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	253
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	254 static void
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	255 pr_where (std::ostream& os, const char *who)
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	256 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	257 std::list<octave_call_stack::stack_frame> frames
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	258 = octave_call_stack::backtrace_frames ();
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	259
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	260 size_t nframes = frames.size ();
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	261
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	262 if (nframes > 0)
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	263 pr_where_1 (os, "%s: called from\n", who);
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	264
20511 9502e0142c19 Simplify error output if max_recursion_depth is exceeded (Bug #45843). Stefan Miereis <stefan.miereis@gmx.de> parents: 20181 diff changeset	265 // Print the error message only if it is different from the previous one;
9502e0142c19 Simplify error output if max_recursion_depth is exceeded (Bug #45843). Stefan Miereis <stefan.miereis@gmx.de> parents: 20181 diff changeset	266 // Makes the output more concise and readable.
9502e0142c19 Simplify error output if max_recursion_depth is exceeded (Bug #45843). Stefan Miereis <stefan.miereis@gmx.de> parents: 20181 diff changeset	267 frames.unique ();
9502e0142c19 Simplify error output if max_recursion_depth is exceeded (Bug #45843). Stefan Miereis <stefan.miereis@gmx.de> parents: 20181 diff changeset	268
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	269 for (std::list<octave_call_stack::stack_frame>::const_iterator p = frames.begin ();
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	270 p != frames.end (); p++)
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	271 {
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	272 const octave_call_stack::stack_frame& elt = *p;
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	273
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	274 std::string fcn_name = elt.fcn_name ();
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	275 int line = elt.line ();
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	276 int column = elt.column ();
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	277
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	278 pr_where_1 (os, " %s at line %d column %d\n",
19421 8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	279 fcn_name.c_str (), line, column);
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	280 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	281 }
8b785ca93de7 don't print stack trace on errors if error_state is -2 John W. Eaton <jwe@octave.org> parents: 19415 diff changeset	282
20780 92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	283 static octave_execution_exception
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	284 make_execution_exception (const char *who)
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	285 {
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	286 std::ostringstream buf;
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	287
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	288 pr_where (buf, who);
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	289
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	290 octave_execution_exception retval;
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	291
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	292 retval.set_stack_trace (buf.str ());
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	293
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	294 return retval;
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	295 }
92958b1ee100 restore stack traces to error messages John W. Eaton <jwe@octave.org> parents: 20777 diff changeset	296
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	297 static void
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	298 maybe_enter_debugger (octave_execution_exception& e,
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	299 bool show_stack_trace = false)
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	300 {
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	301 if ((interactive \|\| forced_interactive)
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	302 && Vdebug_on_error && octave_call_stack::caller_user_code ())
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	303 {
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	304 unwind_protect frame;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	305 frame.protect_var (Vdebug_on_error);
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	306 Vdebug_on_error = false;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	307
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	308 tree_evaluator::debug_mode = true;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	309
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	310 tree_evaluator::current_frame = octave_call_stack::current_frame ();
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	311
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	312 if (show_stack_trace)
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	313 {
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	314 std::string stack_trace = e.info ();
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	315
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	316 if (! stack_trace.empty ())
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	317 {
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	318 std::cerr << stack_trace;
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	319
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	320 e.set_stack_trace ();
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	321 }
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	322 }
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	323
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	324 do_keyboard (octave_value_list ());
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	325 }
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	326 }
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	327
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	328 // Warning messages are never buffered.
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	329
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	330 static void
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	331 vwarning (const char name, const char id, const char *fmt, va_list args)
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	332 {
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	333 if (discard_warning_messages)
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	334 return;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	335
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	336 flush_octave_stdout ();
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	337
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	338 std::ostringstream output_buf;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	339
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	340 octave_vformat (output_buf, fmt, args);
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	341
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	342 // FIXME: we really want to capture the message before it has all the
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	343 // formatting goop attached to it. We probably also want just the
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	344 // message, not the traceback information.
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	345
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	346 std::string base_msg = output_buf.str ();
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	347 std::string msg_string;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	348
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	349 if (name)
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	350 msg_string = std::string (name) + ": ";
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	351
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	352 msg_string += base_msg + "\n";
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	353
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	354 Vlast_warning_id = id;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	355 Vlast_warning_message = base_msg;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	356
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	357 if (! Vquiet_warning)
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	358 {
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	359 octave_diary << msg_string;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	360
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	361 std::cerr << msg_string;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	362 }
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	363 }
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	364
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	365 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	366 vmessage (const char name, const char fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	367 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	368 verror (false, std::cerr, name, "", fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	369 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	370
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	371 void
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	372 message (const char name, const char fmt, ...)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	373 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	374 va_list args;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	375 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	376 vmessage (name, fmt, args);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	377 va_end (args);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	378 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	379
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	380 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	381 vmessage_with_id (const char name, const char id, const char *fmt,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	382 va_list args)
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	383 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	384 verror (false, std::cerr, name, id, fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	385 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	386
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	387 void
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	388 message_with_id (const char name, const char id, const char *fmt, ...)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	389 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	390 va_list args;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	391 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	392 vmessage_with_id (name, id, fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	393 va_end (args);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	394 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	395
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	396 static void
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	397 usage_1 (octave_execution_exception& e, const char *id,
20826 779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	398 const char *fmt, va_list args) GCC_ATTR_NORETURN;
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	399
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	400 static void
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	401 usage_1 (octave_execution_exception& e, const char *id,
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	402 const char *fmt, va_list args)
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	403 {
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	404 verror (true, std::cerr, "usage", id, fmt, args);
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	405
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	406 maybe_enter_debugger (e);
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	407
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	408 throw e;
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	409 }
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	410
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	411 static void
20826 779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	412 usage_1 (const char id, const char fmt, va_list args) GCC_ATTR_NORETURN;
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	413
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	414 static void
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	415 usage_1 (const char id, const char fmt, va_list args)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	416 {
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	417 octave_execution_exception e = make_execution_exception ("usage");
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	418
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	419 usage_1 (e, id, fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	420 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	421
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	422 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	423 vusage (const char *fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	424 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	425 usage_1 ("", fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	426 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	427
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	428 void
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	429 usage (const char *fmt, ...)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	430 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	431 va_list args;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	432 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	433 vusage (fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	434 va_end (args);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	435 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	436
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	437 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	438 vusage_with_id (const char id, const char fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	439 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	440 usage_1 (id, fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	441 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	442
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	443 void
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	444 usage_with_id (const char id, const char fmt, ...)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	445 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	446 va_list args;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	447 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	448 vusage_with_id (id, fmt, args);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	449 va_end (args);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	450 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	451
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	452 static void
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	453 error_1 (octave_execution_exception& e, std::ostream& os,
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	454 const char name, const char id, const char *fmt,
20826 779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	455 va_list args, bool with_cfn = false) GCC_ATTR_NORETURN;
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	456
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	457 static void
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	458 error_1 (octave_execution_exception& e, std::ostream& os,
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	459 const char name, const char id, const char *fmt,
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	460 va_list args, bool with_cfn)
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	461 {
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	462 bool show_stack_trace = false;
e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	463
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	464 if (fmt)
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	465 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	466 if (*fmt)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	467 {
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	468 size_t len = strlen (fmt);
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	469
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	470 if (len > 0)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	471 {
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	472 if (fmt[len - 1] == '\n')
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	473 {
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	474 if (len > 1)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	475 {
20827 b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	476 std::string tmp_fmt (fmt, len - 1);
b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	477 verror (true, os, name, id, tmp_fmt.c_str (),
b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	478 args, with_cfn);
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	479 }
20822 40fc94a24a97 if error format ends with newline, suppress stack trace (bug #46608) John W. Eaton <jwe@octave.org> parents: 20819 diff changeset	480
40fc94a24a97 if error format ends with newline, suppress stack trace (bug #46608) John W. Eaton <jwe@octave.org> parents: 20819 diff changeset	481 // If format ends with newline, suppress stack trace.
40fc94a24a97 if error format ends with newline, suppress stack trace (bug #46608) John W. Eaton <jwe@octave.org> parents: 20819 diff changeset	482 e.set_stack_trace ();
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	483 }
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	484 else
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	485 {
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	486 verror (true, os, name, id, fmt, args, with_cfn);
18742 bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	487
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	488 bool in_user_code = octave_call_stack::caller_user_code () != 0;
18742 bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	489
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	490 if (in_user_code && ! discard_error_messages)
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	491 show_stack_trace = true;
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	492 }
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	493 }
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	494 }
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	495 }
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	496 else
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	497 panic ("error_1: invalid format");
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	498
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	499 maybe_enter_debugger (e, show_stack_trace);
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	500
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	501 throw e;
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	502 }
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	503
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	504 static void
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	505 error_1 (std::ostream& os, const char name, const char id,
20826 779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	506 const char *fmt, va_list args,
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	507 bool with_cfn = false) GCC_ATTR_NORETURN;
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	508
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	509 static void
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	510 error_1 (std::ostream& os, const char name, const char id,
779898f2a02a tag error and usage functions with noreturn attribute John W. Eaton <jwe@octave.org> parents: 20822 diff changeset	511 const char *fmt, va_list args, bool with_cfn)
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	512 {
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	513 octave_execution_exception e = make_execution_exception ("error");
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	514
b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	515 error_1 (e, os, name, id, fmt, args, with_cfn);
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	516 }
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	517
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	518 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	519 verror (const char *fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	520 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	521 error_1 (std::cerr, "error", "", fmt, args);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	522 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	523
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	524 void
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	525 error (const char *fmt, ...)
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	526 {
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	527 va_list args;
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	528 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	529 verror (fmt, args);
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	530 va_end (args);
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	531 }
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	532
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	533 void
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	534 verror (octave_execution_exception& e, const char *fmt, va_list args)
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	535 {
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	536 error_1 (e, std::cerr, "error", "", fmt, args);
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	537 }
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	538
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	539 void
20785 b6f2909e7f94 always throw exception after debugging with debug_on_error John W. Eaton <jwe@octave.org> parents: 20780 diff changeset	540 error (octave_execution_exception& e, const char *fmt, ...)
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	541 {
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	542 va_list args;
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	543 va_start (args, fmt);
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	544 verror (e, fmt, args);
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	545 va_end (args);
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	546 }
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	547
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20711 diff changeset	548 void
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	549 verror_with_cfn (const char *fmt, va_list args)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	550 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	551 error_1 (std::cerr, "error", "", fmt, args, true);
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	552 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	553
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	554 void
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	555 error_with_cfn (const char *fmt, ...)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	556 {
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	557 va_list args;
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	558 va_start (args, fmt);
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	559 verror_with_cfn (fmt, args);
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	560 va_end (args);
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	561 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	562
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	563 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	564 verror_with_id (const char id, const char fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	565 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	566 error_1 (std::cerr, "error", id, fmt, args);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	567 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	568
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	569 void
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	570 error_with_id (const char id, const char fmt, ...)
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	571 {
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	572 va_list args;
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	573 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	574 verror_with_id (id, fmt, args);
6000 fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	575 va_end (args);
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	576 }
fbe7ccb47f62 [project @ 2006-09-26 15:43:44 by jwe] jwe parents: 5998 diff changeset	577
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	578 void
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	579 verror_with_id_cfn (const char id, const char fmt, va_list args)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	580 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	581 error_1 (std::cerr, "error", id, fmt, args, true);
9753 892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	582 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	583
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	584 void
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	585 error_with_id_cfn (const char id, const char fmt, ...)
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	586 {
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	587 va_list args;
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	588 va_start (args, fmt);
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	589 verror_with_id_cfn (id, fmt, args);
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	590 va_end (args);
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	591 }
892e2aa7bc75 improve error messages by auto-prepending current function name Jaroslav Hajek <highegg@gmail.com> parents: 9675 diff changeset	592
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	593 static int
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	594 check_state (const std::string& state)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	595 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	596 // -1: not found
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	597 // 0: found, "off"
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	598 // 1: found, "on"
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	599 // 2: found, "error"
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	600
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	601 if (state == "off")
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	602 return 0;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	603 else if (state == "on")
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	604 return 1;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	605 else if (state == "error")
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	606 return 2;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	607 else
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	608 return -1;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	609 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	610
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	611 // For given warning ID, return 0 if warnings are disabled, 1 if
14042 57e19c30b7d6 assume "all" "on" if "all" is not present in warning_state structure (bug #35050) John W. Eaton <jwe@octave.org> parents: 13987 diff changeset	612 // enabled, and 2 if the given ID should be an error instead of a
57e19c30b7d6 assume "all" "on" if "all" is not present in warning_state structure (bug #35050) John W. Eaton <jwe@octave.org> parents: 13987 diff changeset	613 // warning.
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	614
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	615 int
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	616 warning_enabled (const std::string& id)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	617 {
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	618 int retval = 0;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	619
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	620 int all_state = -1;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	621 int id_state = -1;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	622
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	623 octave_idx_type nel = warning_options.numel ();
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	624
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	625 if (nel > 0)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	626 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	627 Cell identifier = warning_options.contents ("identifier");
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	628 Cell state = warning_options.contents ("state");
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	629
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	630 bool all_found = false;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	631 bool id_found = false;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	632
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	633 for (octave_idx_type i = 0; i < nel; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	634 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	635 octave_value ov = identifier(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	636 std::string ovs = ov.string_value ();
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	637
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	638 if (! all_found && ovs == "all")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	639 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	640 all_state = check_state (state(i).string_value ());
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	641
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	642 if (all_state >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	643 all_found = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	644 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	645
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	646 if (! id_found && ovs == id)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	647 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	648 id_state = check_state (state(i).string_value ());
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	649
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	650 if (id_state >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	651 id_found = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	652 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	653
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	654 if (all_found && id_found)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	655 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	656 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	657 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	658
14042 57e19c30b7d6 assume "all" "on" if "all" is not present in warning_state structure (bug #35050) John W. Eaton <jwe@octave.org> parents: 13987 diff changeset	659 // If "all" is not present, assume warnings are enabled.
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	660 if (all_state == -1)
14042 57e19c30b7d6 assume "all" "on" if "all" is not present in warning_state structure (bug #35050) John W. Eaton <jwe@octave.org> parents: 13987 diff changeset	661 all_state = 1;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	662
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	663 if (all_state == 0)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	664 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	665 if (id_state >= 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	666 retval = id_state;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	667 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	668 else if (all_state == 1)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	669 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	670 if (id_state == 0 \|\| id_state == 2)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	671 retval = id_state;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	672 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	673 retval = all_state;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	674 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	675 else if (all_state == 2)
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7202 diff changeset	676 {
6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7202 diff changeset	677 if (id_state == 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	678 retval= id_state;
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7202 diff changeset	679 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	680 retval = all_state;
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7202 diff changeset	681 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	682
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	683 return retval;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	684 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	685
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	686 static void
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	687 warning_1 (const char id, const char fmt, va_list args)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	688 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	689 int warn_opt = warning_enabled (id);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	690
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	691 if (warn_opt == 2)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	692 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	693 // Handle this warning as an error.
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	694
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	695 error_1 (std::cerr, "error", id, fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	696 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	697 else if (warn_opt == 1)
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	698 {
20140 64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	699 bool fmt_suppresses_backtrace = false;
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	700 size_t fmt_len = fmt ? strlen (fmt) : 0;
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	701 fmt_suppresses_backtrace = (fmt_len > 0 && fmt[fmt_len-1] == '\n');
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	702
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	703 if (fmt_suppresses_backtrace && fmt_len > 1)
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	704 {
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	705 // Strip newline before issuing warning
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	706 std::string tmp_fmt (fmt, fmt_len - 1);
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	707 vwarning ("warning", id, tmp_fmt.c_str (), args);
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	708 }
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	709 else
64a2d4c87ecb Don't save "warning: " prefix in lastwarn() message. Rik <rik@octave.org> parents: 20130 diff changeset	710 vwarning ("warning", id, fmt, args);
8973 ddea8b06ed7c fix warning backtrace John W. Eaton <jwe@octave.org> parents: 8950 diff changeset	711
20127 a42de4173533 also provide stack traces for errors in script files (bug #44862) John W. Eaton <jwe@octave.org> parents: 20101 diff changeset	712 bool in_user_code = octave_call_stack::caller_user_code () != 0;
a42de4173533 also provide stack traces for errors in script files (bug #44862) John W. Eaton <jwe@octave.org> parents: 20101 diff changeset	713
20130 0aed244dbdb3 don't print stack trace if warning format ends with newline character John W. Eaton <jwe@octave.org> parents: 20127 diff changeset	714 if (! fmt_suppresses_backtrace && in_user_code
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	715 && Vbacktrace_on_warning
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	716 && ! discard_warning_messages)
20666 e0e2c2ce7e94 defer stack trace until back at top level John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	717 pr_where (std::cerr, "warning");
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	718
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	719 if ((interactive \|\| forced_interactive)
20127 a42de4173533 also provide stack traces for errors in script files (bug #44862) John W. Eaton <jwe@octave.org> parents: 20101 diff changeset	720 && Vdebug_on_warning && in_user_code)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	721 {
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9753 diff changeset	722 unwind_protect frame;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	723 frame.protect_var (Vdebug_on_warning);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	724 Vdebug_on_warning = false;
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	725
18742 bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	726 tree_evaluator::debug_mode = true;
bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	727
bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	728 tree_evaluator::current_frame = octave_call_stack::current_frame ();
bd334b6af257 Enter true debug mode after debug_on_(warning\|error) (bug #37574). Rik <rik@octave.org> parents: 18222 diff changeset	729
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	730 do_keyboard (octave_value_list ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	731 }
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	732 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	733 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	734
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	735 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	736 vwarning (const char *fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	737 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	738 warning_1 ("", fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	739 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	740
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	741 void
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	742 warning (const char *fmt, ...)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	743 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	744 va_list args;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	745 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	746 vwarning (fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	747 va_end (args);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	748 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	749
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	750 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	751 vwarning_with_id (const char id, const char fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	752 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	753 warning_1 (id, fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	754 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	755
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	756 void
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	757 warning_with_id (const char id, const char fmt, ...)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	758 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	759 va_list args;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	760 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	761 vwarning_with_id (id, fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	762 va_end (args);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	763 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	764
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	765 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	766 vparse_error (const char *fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	767 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	768 error_1 (std::cerr, 0, "", fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	769 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	770
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	771 void
1005 46a2983cb297 [project @ 1995-01-03 02:08:32 by jwe] jwe parents: 914 diff changeset	772 parse_error (const char *fmt, ...)
46a2983cb297 [project @ 1995-01-03 02:08:32 by jwe] jwe parents: 914 diff changeset	773 {
46a2983cb297 [project @ 1995-01-03 02:08:32 by jwe] jwe parents: 914 diff changeset	774 va_list args;
46a2983cb297 [project @ 1995-01-03 02:08:32 by jwe] jwe parents: 914 diff changeset	775 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	776 vparse_error (fmt, args);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	777 va_end (args);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	778 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	779
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	780 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	781 vparse_error_with_id (const char id, const char fmt, va_list args)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	782 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	783 error_1 (std::cerr, 0, id, fmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	784 }
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	785
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	786 void
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	787 parse_error_with_id (const char id, const char fmt, ...)
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	788 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	789 va_list args;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	790 va_start (args, fmt);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6000 diff changeset	791 vparse_error_with_id (id, fmt, args);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	792 va_end (args);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	793 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	794
189 de0e58f9b064 [project @ 1993-10-28 08:52:15 by jwe] jwe parents: 169 diff changeset	795 void
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	796 rethrow_error (const char id, const char fmt, ...)
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	797 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	798 va_list args;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	799 va_start (args, fmt);
6640 379244420c72 [project @ 2007-05-21 19:50:45 by jwe] jwe parents: 6483 diff changeset	800 error_1 (std::cerr, 0, id, fmt, args);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	801 va_end (args);
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	802 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	803
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	804 void
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	805 panic (const char *fmt, ...)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	806 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	807 va_list args;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	808 va_start (args, fmt);
4699 5e2c68946f30 [project @ 2004-01-20 23:04:46 by jwe] jwe parents: 4452 diff changeset	809 buffer_error_messages = 0;
3815 c554ad71bafc [project @ 2001-04-19 19:50:52 by jwe] jwe parents: 3811 diff changeset	810 discard_error_messages = false;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	811 verror (false, std::cerr, "panic", "", fmt, args);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	812 va_end (args);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	813 abort ();
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	814 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	815
4732 b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	816 static void
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	817 defun_usage_message_1 (const char *fmt, ...)
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	818 {
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	819 va_list args;
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	820 va_start (args, fmt);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	821 error_1 (octave_stdout, 0, "", fmt, args);
4732 b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	822 va_end (args);
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	823 }
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	824
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	825 void
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	826 defun_usage_message (const std::string& msg)
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	827 {
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	828 defun_usage_message_1 ("%s", msg.c_str ());
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	829 }
b484cdca27be [project @ 2004-02-04 04:32:48 by jwe] jwe parents: 4731 diff changeset	830
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	831 typedef void (error_fun)(const char , const char *, ...);
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	832
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	833 extern octave_value_list Fsprintf (const octave_value_list&, int);
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	834
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	835 static std::string
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	836 handle_message (error_fun f, const char id, const char msg,
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	837 const octave_value_list& args, bool have_fmt)
528 e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	838 {
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	839 std::string retval;
528 e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	840
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	841 std::string tstr;
1728 42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1633 diff changeset	842
20819 f428cbe7576f eliminate unnecessary uses of nargin John W. Eaton <jwe@octave.org> parents: 20817 diff changeset	843 if (args.length () > 0)
528 e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	844 {
3066 2d485faf2fa3 [project @ 1997-07-02 21:48:29 by jwe] jwe parents: 3018 diff changeset	845 octave_value arg;
2d485faf2fa3 [project @ 1997-07-02 21:48:29 by jwe] jwe parents: 3018 diff changeset	846
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	847 if (have_fmt)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	848 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	849 octave_value_list tmp = Fsprintf (args, 1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	850 arg = tmp(0);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	851 }
3066 2d485faf2fa3 [project @ 1997-07-02 21:48:29 by jwe] jwe parents: 3018 diff changeset	852 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	853 arg = args(0);
2745 76411ce43c05 [project @ 1997-02-26 07:52:14 by jwe] jwe parents: 2620 diff changeset	854
76411ce43c05 [project @ 1997-02-26 07:52:14 by jwe] jwe parents: 2620 diff changeset	855 if (arg.is_defined ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	856 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	857 if (arg.is_string ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	858 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	859 tstr = arg.string_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	860 msg = tstr.c_str ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	861
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	862 if (! msg)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	863 return retval;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	864 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	865 else if (arg.is_empty ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	866 return retval;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	867 }
528 e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	868 }
e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	869
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	870 // Ugh.
3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	871
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	872 size_t len = strlen (msg);
ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	873
ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	874 if (len > 0)
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	875 {
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	876 if (msg[len - 1] == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	877 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	878 if (len > 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	879 {
20827 b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	880 std::string tmp_msg (msg, len - 1);
b3f985199f3f eliminate memory leaks in error functions John W. Eaton <jwe@octave.org> parents: 20826 diff changeset	881 f (id, "%s\n", tmp_msg.c_str ());
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	882 retval = tmp_msg;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	883 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	884 }
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	885 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	886 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	887 f (id, "%s", msg);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	888 retval = msg;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	889 }
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	890 }
528 e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	891
e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	892 return retval;
e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	893 }
e1e6e33e26f8 [project @ 1994-07-20 18:53:50 by jwe] jwe parents: 514 diff changeset	894
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	895 DEFUN (rethrow, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	896 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	897 @deftypefn {} {} rethrow (@var{err})\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	898 Reissue a previous error as defined by @var{err}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	899 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	900 @var{err} is a structure that must contain at least the @qcode{\"message\"}\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	901 and @qcode{\"identifier\"} fields. @var{err} can also contain a field\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	902 @qcode{\"stack\"} that gives information on the assumed location of the\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	903 error. Typically @var{err} is returned from @code{lasterror}.\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	904 @seealso{lasterror, lasterr, error}\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	905 @end deftypefn")
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	906 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	907 octave_value retval;
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	908
20819 f428cbe7576f eliminate unnecessary uses of nargin John W. Eaton <jwe@octave.org> parents: 20817 diff changeset	909 if (args.length () != 1)
6959 47f4f4e88166 [project @ 2007-10-04 20:43:32 by jwe] jwe parents: 6671 diff changeset	910 print_usage ();
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	911
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	912 const octave_scalar_map err = args(0).scalar_map_value ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	913
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	914 if (! err.contains ("message") \|\| ! err.contains ("identifier"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	915 error ("rethrow: ERR structure must contain the fields 'message and 'identifier'");
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	916
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	917 std::string msg = err.contents ("message").string_value ();
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	918 std::string id = err.contents ("identifier").string_value ();
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	919 int len = msg.length ();
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	920
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	921 std::string file;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	922 std::string nm;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	923 int l = -1;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	924 int c = -1;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	925
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	926 octave_map err_stack = initialize_last_error_stack ();
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	927
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	928 if (err.contains ("stack"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	929 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	930 err_stack = err.contents ("stack").map_value ();
6483 d00da2148c53 [project @ 2007-04-04 02:58:48 by jwe] jwe parents: 6427 diff changeset	931
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	932 if (err_stack.numel () > 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	933 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	934 if (err_stack.contains ("file"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	935 file = err_stack.contents ("file")(0).string_value ();
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	936
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	937 if (err_stack.contains ("name"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	938 nm = err_stack.contents ("name")(0).string_value ();
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	939
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	940 if (err_stack.contains ("line"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	941 l = err_stack.contents ("line")(0).nint_value ();
6483 d00da2148c53 [project @ 2007-04-04 02:58:48 by jwe] jwe parents: 6427 diff changeset	942
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	943 if (err_stack.contains ("column"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	944 c = err_stack.contents ("column")(0).nint_value ();
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	945 }
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	946 }
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	947
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	948 // Ugh.
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	949 std::string tmp_msg (msg);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	950 if (tmp_msg[len-1] == '\n')
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	951 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	952 if (len > 1)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	953 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	954 tmp_msg.erase (len - 1);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	955 rethrow_error (id.c_str (), "%s\n", tmp_msg.c_str ());
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	956 }
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	957 }
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	958 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	959 rethrow_error (id.c_str (), "%s", tmp_msg.c_str ());
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	960
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	961 // FIXME: is this the right thing to do for Vlast_error_stack?
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	962 // Should it be saved and restored with unwind_protect?
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	963
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	964 Vlast_error_stack = err_stack;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	965
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	966 if (err.contains ("stack"))
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	967 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	968 if (file.empty ())
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	969 {
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	970 if (nm.empty ())
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	971 {
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	972 if (l > 0)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	973 {
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	974 if (c > 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	975 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	976 "error: near line %d, column %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	977 l, c);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	978 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	979 pr_where_1 (std::cerr, "error: near line %d", l);
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	980 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	981 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	982 else
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	983 {
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	984 if (l > 0)
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	985 {
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	986 if (c > 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	987 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	988 "error: called from '%s' near line %d, column %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	989 nm.c_str (), l, c);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	990 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	991 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	992 "error: called from '%d' near line %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	993 nm.c_str (), l);
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	994 }
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	995 }
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	996 }
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	997 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	998 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	999 if (nm.empty ())
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1000 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1001 if (l > 0)
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1002 {
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1003 if (c > 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1004 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1005 "error: in file %s near line %d, column %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1006 file.c_str (), l, c);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1007 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1008 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1009 "error: in file %s near line %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1010 file.c_str (), l);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1011 }
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1012 }
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1013 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1014 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1015 if (l > 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1016 {
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1017 if (c > 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1018 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1019 "error: called from '%s' in file %s near line %d, column %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1020 nm.c_str (), file.c_str (), l, c);
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1021 else
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1022 pr_where_1 (std::cerr,
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1023 "error: called from '%d' in file %s near line %d",
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1024 nm.c_str (), file.c_str (), l);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1025 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1026 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1027 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1028 }
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1029
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1030 return retval;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1031 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1032
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1033 // Determine whether the first argument to error or warning function
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1034 // should be handled as the message identifier or as the format string.
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1035
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1036 static bool
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1037 maybe_extract_message_id (const std::string& caller,
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1038 const octave_value_list& args,
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1039 octave_value_list& nargs,
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1040 std::string& id)
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1041 {
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1042 nargs = args;
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1043 id = std::string ();
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1044
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1045 int nargin = args.length ();
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1046
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1047 bool have_fmt = nargin > 1;
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1048
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1049 if (nargin > 0)
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1050 {
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1051 std::string arg1 = args(0).string_value ();
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1052
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1053 // For compatibility with Matlab, an identifier must contain
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1054 // ':', but not at the beginning or the end, and it must not
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1055 // contain '%' (even if it is not a valid conversion
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1056 // operator) or whitespace.
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1057
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1058 if (arg1.find_first_of ("% \f\n\r\t\v") == std::string::npos
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1059 && arg1.find (':') != std::string::npos
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1060 && arg1[0] != ':'
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1061 && arg1[arg1.length ()-1] != ':')
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1062 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1063 if (nargin > 1)
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1064 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1065 id = arg1;
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1066
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1067 nargs.resize (nargin-1);
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1068
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1069 for (int i = 1; i < nargin; i++)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1070 nargs(i-1) = args(i);
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1071 }
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1072 else
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1073 nargs(0) = "call to " + caller
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1074 + " with message identifier requires message";
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1075 }
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1076 }
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1077
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1078 return have_fmt;
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1079 }
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1080
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	1081 DEFUN (error, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1082 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1083 @deftypefn {} {} error (@var{template}, @dots{})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1084 @deftypefnx {} {} error (@var{id}, @var{template}, @dots{})\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1085 Display an error message and stop m-file execution.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1086 \n\
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1087 Format the optional arguments under the control of the template string\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1088 @var{template} using the same rules as the @code{printf} family of\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1089 functions (@pxref{Formatted Output}) and print the resulting message\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1090 on the @code{stderr} stream. The message is prefixed by the character\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1091 string @samp{error: }.\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1092 \n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1093 Calling @code{error} also sets Octave's internal error state such that\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1094 control will return to the top level without evaluating any further\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1095 commands. This is useful for aborting from functions or scripts.\n\
897 54921d080295 [project @ 1994-11-09 18:01:33 by jwe] jwe parents: 729 diff changeset	1096 \n\
19334 1213af866a89 doc: Fix backslash not showing in error/warning docs due to escape processing. Rik <rik@octave.org> parents: 18126 diff changeset	1097 If the error message does not end with a newline character, Octave will\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1098 print a traceback of all the function calls leading to the error. For\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1099 example, given the following function definitions:\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1100 \n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1101 @example\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1102 @group\n\
6671 9042b00fc45e [project @ 2007-05-30 06:33:29 by jwe] jwe parents: 6653 diff changeset	1103 function f () g (); end\n\
9042b00fc45e [project @ 2007-05-30 06:33:29 by jwe] jwe parents: 6653 diff changeset	1104 function g () h (); end\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1105 function h () nargin == 1 \|\| error (\"nargin != 1\"); end\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1106 @end group\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1107 @end example\n\
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	1108 \n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1109 @noindent\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1110 calling the function @code{f} will result in a list of messages that\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1111 can help you to quickly locate the exact location of the error:\n\
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	1112 \n\
9153 5247e89688e1 Eliminate most overfull errors when running texi2pdf for generating pdf documentation Rik <rdrider0-list@yahoo.com> parents: 9039 diff changeset	1113 @example\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1114 @group\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1115 f ()\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1116 error: nargin != 1\n\
8015 30629059b72d Update the manual to reflect the changes in error output sh@sh-laptop parents: 7977 diff changeset	1117 error: called from:\n\
30629059b72d Update the manual to reflect the changes in error output sh@sh-laptop parents: 7977 diff changeset	1118 error: error at line -1, column -1\n\
30629059b72d Update the manual to reflect the changes in error output sh@sh-laptop parents: 7977 diff changeset	1119 error: h at line 1, column 27\n\
30629059b72d Update the manual to reflect the changes in error output sh@sh-laptop parents: 7977 diff changeset	1120 error: g at line 1, column 15\n\
30629059b72d Update the manual to reflect the changes in error output sh@sh-laptop parents: 7977 diff changeset	1121 error: f at line 1, column 15\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1122 @end group\n\
9153 5247e89688e1 Eliminate most overfull errors when running texi2pdf for generating pdf documentation Rik <rdrider0-list@yahoo.com> parents: 9039 diff changeset	1123 @end example\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1124 \n\
19334 1213af866a89 doc: Fix backslash not showing in error/warning docs due to escape processing. Rik <rik@octave.org> parents: 18126 diff changeset	1125 If the error message ends in a newline character, Octave will print the\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1126 message but will not display any traceback messages as it returns\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1127 control to the top level. For example, modifying the error message\n\
19334 1213af866a89 doc: Fix backslash not showing in error/warning docs due to escape processing. Rik <rik@octave.org> parents: 18126 diff changeset	1128 in the previous example to end in a newline causes Octave to only print\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1129 a single message:\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1130 \n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1131 @example\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1132 @group\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1133 function h () nargin == 1 \|\| error (\"nargin != 1\\n\"); end\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1134 f ()\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1135 error: nargin != 1\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1136 @end group\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1137 @end example\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1138 \n\
16770 2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1139 A null string (\"\") input to @code{error} will be ignored and the code\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1140 will continue running as if the statement were a NOP@. This is for\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1141 compatibility with @sc{matlab}. It also makes it possible to write code such\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1142 as\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1143 \n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1144 @example\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1145 @group\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1146 err_msg = \"\";\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1147 if (CONDITION 1)\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1148 err_msg = \"CONDITION 1 found\";\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1149 elseif (CONDITION2)\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1150 err_msg = \"CONDITION 2 found\";\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1151 @dots{}\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1152 endif\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1153 error (err_msg);\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1154 @end group\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1155 @end example\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1156 \n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1157 @noindent\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1158 which will only stop execution if an error has been found.\n\
2b86cb4e172b doc: clarify docstring regarding null input to error() (bug #39271). Rik <rik@octave.org> parents: 16492 diff changeset	1159 \n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1160 Implementation Note: For compatibility with @sc{matlab}, escape\n\
20101 e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1161 sequences in @var{template} (e.g., @qcode{\"@xbackslashchar{}n\"} =>\n\
e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1162 newline) are processed regardless of whether @var{template} has been defined\n\
e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1163 with single quotes, as long as there are two or more input arguments. To\n\
e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1164 disable escape sequence expansion use a second backslash before the sequence\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1165 (e.g., @qcode{\"@xbackslashchar{}@xbackslashchar{}n\"}) or use the\n\
20101 e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1166 @code{regexptranslate} function.\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1167 @seealso{warning, lasterror}\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1168 @end deftypefn")
897 54921d080295 [project @ 1994-11-09 18:01:33 by jwe] jwe parents: 729 diff changeset	1169 {
7252 d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1170
d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1171 int nargin = args.length ();
d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1172
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1173 if (nargin == 0)
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1174 print_usage ();
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1175
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1176 octave_value retval;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20897 diff changeset	1177
7252 d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1178 octave_value_list nargs = args;
d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1179
d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1180 std::string id;
d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1181
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1182 bool have_fmt = false;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1183
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1184 if (nargin == 1 && args(0).is_map ())
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1185 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1186 // empty struct is not an error. return and resume calling function.
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1187 if (args(0).is_empty ())
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1188 return retval;
13709 a0875c6cab7e error.cc: Don't complain if error struct input is empty (Matlab compatability) Rik <octave@nomad.inbox5.com> parents: 12705 diff changeset	1189
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1190 octave_value_list tmp;
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	1191
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1192 octave_scalar_map m = args(0).scalar_map_value ();
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	1193
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1194 // empty struct is not an error. return and resume calling function.
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1195 if (m.nfields () == 0)
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1196 return retval;
12705 4972eb61c6d6 Fix bug with error() not accepting an empty struct input (Bug #33428). Rik <octave@nomad.inbox5.com> parents: 12704 diff changeset	1197
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1198 if (m.contains ("message"))
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1199 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1200 octave_value c = m.getfield ("message");
7252 d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1201
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1202 if (c.is_string ())
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1203 nargs(0) = c.string_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1204 }
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	1205
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1206 if (m.contains ("identifier"))
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1207 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1208 octave_value c = m.getfield ("identifier");
7252 d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1209
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1210 if (c.is_string ())
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1211 id = c.string_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1212 }
9675 ef45d191d833 error: improve compatibility for calls with no arguments or empty format John W. Eaton <jwe@octave.org> parents: 9588 diff changeset	1213
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1214 // FIXME: also need to handle "stack" field in error structure,
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1215 // but that will require some more significant surgery on
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1216 // handle_message, error_with_id, etc.
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1217 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1218 else
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1219 have_fmt = maybe_extract_message_id ("error", args, nargs, id);
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1220
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1221 handle_message (error_with_id, id.c_str (), "unspecified error",
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1222 nargs, have_fmt);
7252 d35fa45980c6 [project @ 2007-12-04 19:02:46 by jwe] jwe parents: 7206 diff changeset	1223
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1224 return retval;
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	1225 }
897 54921d080295 [project @ 1994-11-09 18:01:33 by jwe] jwe parents: 729 diff changeset	1226
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1227 static octave_scalar_map
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1228 warning_query (const std::string& id_arg)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1229 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1230 octave_scalar_map retval;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1231
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1232 std::string id = id_arg;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1233
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1234 if (id == "last")
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1235 id = Vlast_warning_id;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1236
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1237 Cell ident = warning_options.contents ("identifier");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1238 Cell state = warning_options.contents ("state");
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1239
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1240 octave_idx_type nel = ident.numel ();
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1241
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1242 assert (nel != 0);
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1243
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1244 bool found = false;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1245
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1246 std::string val;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1247
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1248 for (octave_idx_type i = 0; i < nel; i++)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1249 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1250 if (ident(i).string_value () == id)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1251 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1252 val = state(i).string_value ();
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1253 found = true;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1254 break;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1255 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1256 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1257
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1258 if (! found)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1259 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1260 for (octave_idx_type i = 0; i < nel; i++)
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1261 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1262 if (ident(i).string_value () == "all")
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1263 {
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1264 val = state(i).string_value ();
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1265 found = true;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1266 break;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1267 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1268 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1269 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1270
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1271 // The warning state "all" is always supposed to remain in the list,
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1272 // so we should always find a state, either explicitly or by using the
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1273 // state for "all".
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1274
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1275 assert (found);
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1276
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1277 retval.assign ("identifier", id);
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1278 retval.assign ("state", val);
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1279
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1280 return retval;
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1281 }
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1282
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1283 static std::string
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1284 default_warning_state (void)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1285 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1286 std::string retval = "on";
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1287
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1288 Cell ident = warning_options.contents ("identifier");
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1289 Cell state = warning_options.contents ("state");
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1290
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1291 octave_idx_type nel = ident.numel ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1292
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1293 for (octave_idx_type i = 0; i < nel; i++)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1294 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1295 if (ident(i).string_value () == "all")
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1296 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1297 retval = state(i).string_value ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1298 break;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1299 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1300 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1301
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1302 return retval;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1303 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1304
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1305 static void
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1306 display_warning_options (std::ostream& os)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1307 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1308 Cell ident = warning_options.contents ("identifier");
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1309 Cell state = warning_options.contents ("state");
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1310
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1311 octave_idx_type nel = ident.numel ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1312
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1313 std::string all_state = default_warning_state ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1314
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1315 if (all_state == "on")
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1316 os << "By default, warnings are enabled.";
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1317 else if (all_state == "off")
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1318 os << "By default, warnings are disabled.";
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1319 else if (all_state == "error")
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1320 os << "By default, warnings are treated as errors.";
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1321 else
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1322 panic_impossible ();
19597 db92e7e28e1f strip trailing whitespace from most source files John W. Eaton <jwe@octave.org> parents: 19444 diff changeset	1323
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1324 if (nel > 1)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1325 os << "\n\n";
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1326
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1327 // The state for all is always supposed to be first in the list.
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1328
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1329 for (octave_idx_type i = 1; i < nel; i++)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1330 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1331 std::string tid = ident(i).string_value ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1332 std::string tst = state(i).string_value ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1333
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1334 os << std::setw (7) << tst << " " << tid << "\n";
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1335 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1336
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1337 os << std::endl;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1338 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1339
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1340 static void
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1341 set_warning_option (const std::string& state, const std::string& ident)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1342 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1343 if (ident == "all")
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1344 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1345 initialize_warning_options (state);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1346 return;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1347 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1348
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1349 std::string all_state = default_warning_state ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1350
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1351 if (state != "on" && state != "off" && state != "error")
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1352 error ("invalid warning state: %s", state.c_str ());
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1353
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1354 Cell tid = warning_options.contents ("identifier");
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1355 Cell tst = warning_options.contents ("state");
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1356
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1357 octave_idx_type nel = tid.numel ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1358
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1359 for (octave_idx_type i = 0; i < nel; i++)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1360 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1361 if (tid(i).string_value () == ident)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1362 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1363 // We found it in the current list of options. If the state
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1364 // for "all" is same as arg1, we can simply remove the item
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1365 // from the list.
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1366
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1367 if (state == all_state)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1368 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1369 for (i = i + 1; i < nel; i++)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1370 {
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1371 tid(i-1) = tid(i);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1372 tst(i-1) = tst(i);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1373 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1374
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1375 tid.resize (dim_vector (1, nel-1));
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1376 tst.resize (dim_vector (1, nel-1));
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1377 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1378 else
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1379 tst(i) = state;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1380
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1381 warning_options.clear ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1382
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1383 warning_options.assign ("identifier", tid);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1384 warning_options.assign ("state", tst);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1385
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1386 return;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1387 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1388 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1389
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1390 // The option wasn't already in the list. Append it.
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1391
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1392 tid.resize (dim_vector (1, nel+1));
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1393 tst.resize (dim_vector (1, nel+1));
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1394
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1395 tid(nel) = ident;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1396 tst(nel) = state;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1397
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1398 warning_options.clear ();
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1399
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1400 warning_options.assign ("identifier", tid);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1401 warning_options.assign ("state", tst);
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1402 }
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1403
8746 5dd06f19e9be handle commands in the lexer John W. Eaton <jwe@octave.org> parents: 8347 diff changeset	1404 DEFUN (warning, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1405 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1406 @deftypefn {} {} warning (@var{template}, @dots{})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1407 @deftypefnx {} {} warning (@var{id}, @var{template}, @dots{})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1408 @deftypefnx {} {} warning (\"on\", @var{id})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1409 @deftypefnx {} {} warning (\"off\", @var{id})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1410 @deftypefnx {} {} warning (\"query\", @var{id})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1411 @deftypefnx {} {} warning (\"error\", @var{id})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1412 @deftypefnx {} {} warning (@var{state}, \"backtrace\")\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1413 @deftypefnx {} {} warning (@var{state}, @var{id}, \"local\")\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1414 Display a warning message or control the behavior of Octave's warning system.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1415 \n\
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1416 Format the optional arguments under the control of the template string\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1417 @var{template} using the same rules as the @code{printf} family of\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1418 functions (@pxref{Formatted Output}) and print the resulting message\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1419 on the @code{stderr} stream. The message is prefixed by the character\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1420 string @samp{warning: }.\n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1421 You should use this function when you want to notify the user\n\
3600 c11d138d654a [project @ 2000-02-24 03:55:32 by jwe] jwe parents: 3585 diff changeset	1422 of an unusual condition, but only when it makes sense for your program\n\
c11d138d654a [project @ 2000-02-24 03:55:32 by jwe] jwe parents: 3585 diff changeset	1423 to go on.\n\
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1424 \n\
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1425 The optional message identifier allows users to enable or disable\n\
15524 15628a84a4fa Document form of warning IDs is NAMESPACE:WARNING-NAME (bug #37559) Rik <rik@octave.org> parents: 15466 diff changeset	1426 warnings tagged by @var{id}. A message identifier is of the form\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1427 \"NAMESPACE:WARNING-NAME\". Octave's own warnings use the @qcode{\"Octave\"}\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1428 namespace (@pxref{XREFwarning_ids}). The special identifier @qcode{\"all\"}\n\
15524 15628a84a4fa Document form of warning IDs is NAMESPACE:WARNING-NAME (bug #37559) Rik <rik@octave.org> parents: 15466 diff changeset	1429 may be used to set the state of all warnings.\n\
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	1430 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1431 If the first argument is @qcode{\"on\"} or @qcode{\"off\"},\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1432 set the state of a particular warning using the identifier @var{id}. If the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1433 first argument is @qcode{\"query\"}, query the state of this warning\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1434 instead. If the identifier is omitted, a value of @qcode{\"all\"} is\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1435 assumed. If you set the state of a warning to @qcode{\"error\"}, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1436 warning named by @var{id} is handled as if it were an error instead. So,\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1437 for example, the following handles all warnings as errors:\n\
14072 d0d9c5d2e434 doc: Reformat and clarify warning's docstring Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14055 diff changeset	1438 \n\
d0d9c5d2e434 doc: Reformat and clarify warning's docstring Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14055 diff changeset	1439 @example\n\
d0d9c5d2e434 doc: Reformat and clarify warning's docstring Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14055 diff changeset	1440 @group\n\
d0d9c5d2e434 doc: Reformat and clarify warning's docstring Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14055 diff changeset	1441 warning (\"error\");\n\
d0d9c5d2e434 doc: Reformat and clarify warning's docstring Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14055 diff changeset	1442 @end group\n\
d0d9c5d2e434 doc: Reformat and clarify warning's docstring Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14055 diff changeset	1443 @end example\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1444 \n\
18128 d96747f74b1e enable "backtrace" warning by default and document option John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1445 If the state is @qcode{\"on\"} or @qcode{\"off\"} and the third argument\n\
d96747f74b1e enable "backtrace" warning by default and document option John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1446 is @qcode{\"backtrace\"}, then a stack trace is printed along with the\n\
d96747f74b1e enable "backtrace" warning by default and document option John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1447 warning message when warnings occur inside function calls. This option\n\
d96747f74b1e enable "backtrace" warning by default and document option John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1448 is enabled by default.\n\
d96747f74b1e enable "backtrace" warning by default and document option John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1449 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1450 If the state is @qcode{\"on\"}, @qcode{\"off\"}, or @qcode{\"error\"}\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1451 and the third argument is @qcode{\"local\"}, then the warning state\n\
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1452 will be set temporarily, until the end of the current function.\n\
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1453 Changes to warning states that are set locally affect the current\n\
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1454 function and all functions called from the current scope. The\n\
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1455 previous warning state is restored on return from the current\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1456 function. The @qcode{\"local\"} option is ignored if used in the top-level\n\
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1457 workspace.\n\
6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1458 \n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1459 Implementation Note: For compatibility with @sc{matlab}, escape\n\
20101 e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1460 sequences in @var{template} (e.g., @qcode{\"@xbackslashchar{}n\"} =>\n\
e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1461 newline) are processed regardless of whether @var{template} has been defined\n\
e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1462 with single quotes, as long as there are two or more input arguments. To\n\
e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1463 disable escape sequence expansion use a second backslash before the sequence\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1464 (e.g., @qcode{\"@xbackslashchar{}@xbackslashchar{}n\"}) or use the\n\
20101 e51473fdb622 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 20041 diff changeset	1465 @code{regexptranslate} function.\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1466 @seealso{warning_ids, lastwarn, error}\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	1467 @end deftypefn")
1489 3e705c864019 [project @ 1995-09-28 05:38:26 by jwe] jwe parents: 1488 diff changeset	1468 {
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1469 octave_value retval;
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1470
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1471 int nargin = args.length ();
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1472 bool done = false;
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1473
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1474 if (nargin > 0 && args.all_strings_p ())
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1475 {
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1476 string_vector argv = args.make_argv ("warning");
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1477
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1478 std::string arg1 = argv(1);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1479 std::string arg2 = "all";
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1480
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1481 if (nargin >= 2)
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1482 arg2 = argv(2);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1483
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1484 if (arg1 == "on" \|\| arg1 == "off" \|\| arg1 == "error")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1485 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1486 octave_map old_warning_options = warning_options;
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1487
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1488 if (nargin == 3 && argv(3) == "local"
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1489 && ! symbol_table::at_top_level ())
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1490 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1491 symbol_table::scope_id scope
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1492 = octave_call_stack::current_scope ();
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1493
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1494 symbol_table::context_id context
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1495 = octave_call_stack::current_context ();
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1496
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1497 octave_scalar_map val = warning_query (arg2);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1498
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1499 octave_value curr_state = val.contents ("state");
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1500
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1501 // FIXME: this might be better with a dictionary object.
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1502
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1503 octave_value curr_warning_states
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1504 = symbol_table::varval (".saved_warning_states.",
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1505 scope, context);
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1506
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1507 octave_map m;
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1508
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1509 if (curr_warning_states.is_defined ())
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1510 m = curr_warning_states.map_value ();
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1511 else
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1512 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1513 string_vector fields (2);
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1514
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1515 fields(0) = "identifier";
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1516 fields(1) = "state";
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1517
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1518 m = octave_map (dim_vector (0, 1), fields);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1519 }
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1520
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1521 Cell ids = m.contents ("identifier");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1522 Cell states = m.contents ("state");
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1523
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1524 octave_idx_type nel = states.numel ();
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1525 bool found = false;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1526 octave_idx_type i;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1527 for (i = 0; i < nel; i++)
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1528 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1529 std::string id = ids(i).string_value ();
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1530
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1531 if (id == arg2)
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1532 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1533 states(i) = curr_state;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1534 found = true;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1535 break;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1536 }
15427 6823ad7a25b1 implement local option for warnings John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1537 }
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1538
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1539 if (! found)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1540 {
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1541 m.resize (dim_vector (nel+1, 1));
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1542
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1543 ids.resize (dim_vector (nel+1, 1));
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1544 states.resize (dim_vector (nel+1, 1));
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1545
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1546 ids(nel) = arg2;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1547 states(nel) = curr_state;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1548 }
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1549
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1550 m.contents ("identifier") = ids;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1551 m.contents ("state") = states;
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1552
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1553 symbol_table::assign
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1554 (".saved_warning_states.", m, scope, context);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1555
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1556 // Now ignore the "local" argument and continue to
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1557 // handle the current setting.
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1558 nargin--;
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1559 }
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1560
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1561 if (arg2 == "all")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1562 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1563 octave_map tmp;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1564
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1565 Cell id (1, 1);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1566 Cell st (1, 1);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1567
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1568 id(0) = arg2;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1569 st(0) = arg1;
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7202 diff changeset	1570
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1571 // Since internal Octave functions are not compatible,
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1572 // turning all warnings into errors should leave the state of
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1573 // Octave:language-extension alone.
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1574
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1575 if (arg1 == "error" && warning_options.contains ("identifier"))
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1576 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1577 octave_idx_type n = 1;
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1578
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1579 Cell tid = warning_options.contents ("identifier");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1580 Cell tst = warning_options.contents ("state");
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1581
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1582 for (octave_idx_type i = 0; i < tid.numel (); i++)
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1583 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1584 octave_value vid = tid(i);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1585
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1586 if (vid.is_string ())
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1587 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1588 std::string key = vid.string_value ();
7202 ffdbdf53665c [project @ 2007-11-27 20:14:41 by jwe] jwe parents: 7031 diff changeset	1589
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1590 if (key == "Octave:language-extension"
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1591 \|\| key == "Octave:single-quote-string")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1592 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1593 id.resize (dim_vector (1, n+1));
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1594 st.resize (dim_vector (1, n+1));
7206 6e4ceeeb1940 [project @ 2007-11-27 22:40:20 by jwe] jwe parents: 7202 diff changeset	1595
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1596 id(n) = tid(i);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1597 st(n) = tst(i);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1598
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1599 n++;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1600 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1601 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1602 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1603 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1604
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1605 tmp.assign ("identifier", id);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1606 tmp.assign ("state", st);
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: 5567 diff changeset	1607
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1608 warning_options = tmp;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1609
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1610 done = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1611 }
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1612 else if (arg2 == "backtrace")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1613 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1614 if (arg1 != "error")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1615 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1616 Vbacktrace_on_warning = (arg1 == "on");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1617 done = true;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1618 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1619 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1620 else if (arg2 == "debug")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1621 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1622 if (arg1 != "error")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1623 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1624 Vdebug_on_warning = (arg1 == "on");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1625 done = true;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1626 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1627 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1628 else if (arg2 == "verbose")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1629 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1630 if (arg1 != "error")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1631 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1632 Vverbose_warning = (arg1 == "on");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1633 done = true;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1634 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1635 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1636 else if (arg2 == "quiet")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1637 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1638 if (arg1 != "error")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1639 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1640 Vquiet_warning = (arg1 == "on");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1641 done = true;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1642 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1643 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1644 else
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1645 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1646 if (arg2 == "last")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1647 arg2 = Vlast_warning_id;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1648
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1649 set_warning_option (arg1, arg2);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1650
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1651 done = true;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1652 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1653
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1654 if (done && nargout > 0)
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1655 retval = old_warning_options;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1656 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1657 else if (arg1 == "query")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1658 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1659 if (arg2 == "all")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1660 retval = warning_options;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1661 else if (arg2 == "backtrace" \|\| arg2 == "debug"
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1662 \|\| arg2 == "verbose" \|\| arg2 == "quiet")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1663 {
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1664 octave_scalar_map tmp;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1665 tmp.assign ("identifier", arg2);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1666 if (arg2 == "backtrace")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1667 tmp.assign ("state", Vbacktrace_on_warning ? "on" : "off");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1668 else if (arg2 == "debug")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1669 tmp.assign ("state", Vdebug_on_warning ? "on" : "off");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1670 else if (arg2 == "verbose")
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1671 tmp.assign ("state", Vverbose_warning ? "on" : "off");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1672 else
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1673 tmp.assign ("state", Vquiet_warning ? "on" : "off");
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1674
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1675 retval = tmp;
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1676 }
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1677 else
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1678 retval = warning_query (arg2);
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1679
4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1680 done = true;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1681 }
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1682 }
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1683 else if (nargin == 0)
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1684 {
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1685 if (nargout > 0)
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1686 retval = warning_options;
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1687 else
93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1688 display_warning_options (octave_stdout);
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1689
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1690 done = true;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1691 }
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1692 else if (nargin == 1)
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1693 {
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1694 octave_value arg = args(0);
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1695
11058 3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	1696 octave_map old_warning_options = warning_options;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1697
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1698 if (arg.is_map ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1699 {
11058 3329616444f0 replace Octave_map in debug.cc and error.cc Jaroslav Hajek <highegg@gmail.com> parents: 11029 diff changeset	1700 octave_map m = arg.map_value ();
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1701
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1702 if (! m.contains ("identifier") \|\| ! m.contains ("state"))
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1703 error ("warning: STATE structure must have fields 'identifier' and 'state'");
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1704
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1705 // Simply step through the struct elements one at a time.
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1706
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1707 Cell ident = m.contents ("identifier");
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1708 Cell state = m.contents ("state");
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1709
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1710 octave_idx_type nel = ident.numel ();
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1711
20897 9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1712 for (octave_idx_type i = 0; i < nel; i++)
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1713 {
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1714 std::string tst = state(i).string_value ();
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1715 std::string tid = ident(i).string_value ();
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1716
9aad16a799c9 maint: Replace argc variable name with nargin in C++ code. Rik <rik@octave.org> parents: 20853 diff changeset	1717 set_warning_option (tst, tid);
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1718 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1719
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1720 done = true;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1721
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1722 if (nargout > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1723 retval = old_warning_options;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1724 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1725 }
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1726
20678 4b00afb5e9c3 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20666 diff changeset	1727 if (! done)
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1728 {
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1729 octave_value_list nargs = args;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1730
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1731 std::string id;
80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1732
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1733 bool have_fmt = maybe_extract_message_id ("warning", args, nargs, id);
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1734
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1735 std::string prev_msg = Vlast_warning_message;
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1736
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1737 std::string curr_msg = handle_message (warning_with_id, id.c_str (),
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1738 "unspecified warning", nargs,
0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	1739 have_fmt);
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1740
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1741 if (nargout > 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1742 retval = prev_msg;
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1743 }
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1744
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1745 return retval;
31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1746 }
31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	1747
10605 1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1748 octave_value_list
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1749 set_warning_state (const std::string& id, const std::string& state)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1750 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1751 octave_value_list args;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1752
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1753 args(1) = id;
10605 1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1754 args(0) = state;
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1755
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1756 return Fwarning (args, 1);
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1757 }
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1758
10605 1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1759 octave_value_list
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1760 set_warning_state (const octave_value_list& args)
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1761 {
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1762 return Fwarning (args, 1);
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1763 }
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1764
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1765 void
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1766 disable_warning (const std::string& id)
1834132fb50b allow non-integer ranges as indices conditionally John W. Eaton <jwe@octave.org> parents: 10405 diff changeset	1767 {
19439 93fbdbcb3349 fix handling of options struct passed to warning function (bug #36393) John W. Eaton <jwe@octave.org> parents: 19421 diff changeset	1768 set_warning_option ("off", id);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1769 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1770
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1771 void
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1772 initialize_default_warning_state (void)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1773 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1774 initialize_warning_options ("on");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1775
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1776 // Most people will want to have the following disabled.
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1777
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1778 disable_warning ("Octave:array-to-scalar");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1779 disable_warning ("Octave:array-to-vector");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1780 disable_warning ("Octave:imag-to-real");
19852 e9a0bd0b125c Rename 'matlab-incompatible' warning to 'language-extension'. Carnë Draug <carandraug@octave.org> parents: 19849 diff changeset	1781 disable_warning ("Octave:language-extension");
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1782 disable_warning ("Octave:missing-semicolon");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1783 disable_warning ("Octave:neg-dim-as-zero");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1784 disable_warning ("Octave:resize-on-range-error");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1785 disable_warning ("Octave:separator-insert");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1786 disable_warning ("Octave:single-quote-string");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1787 disable_warning ("Octave:str-to-num");
13841 0a158dbdb04a Remove 3 unused warning ids Rik <octave@nomad.inbox5.com> parents: 13709 diff changeset	1788 disable_warning ("Octave:mixed-string-concat");
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1789 disable_warning ("Octave:variable-switch-label");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1790 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	1791
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1792 DEFUN (lasterror, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1793 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1794 @deftypefn {} {@var{lasterr} =} lasterror ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1795 @deftypefnx {} {} lasterror (@var{err})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1796 @deftypefnx {} {} lasterror (\"reset\")\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1797 Query or set the last error message structure.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1798 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1799 When called without arguments, return a structure containing the last error\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1800 message and other information related to this error. The elements of the\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1801 structure are:\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1802 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1803 @table @code\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1804 @item message\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1805 The text of the last error message\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10767 diff changeset	1806 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1807 @item identifier\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1808 The message identifier of this error message\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10767 diff changeset	1809 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1810 @item stack\n\
12692 e7b03b8662a2 doc: Update docstrings for a few functions Rik <octave@nomad.inbox5.com> parents: 12483 diff changeset	1811 A structure containing information on where the message occurred. This may\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1812 be an empty structure if the information cannot be obtained. The fields of\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1813 the structure are:\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1814 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1815 @table @code\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1816 @item file\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1817 The name of the file where the error occurred\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10767 diff changeset	1818 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1819 @item name\n\
7001 8b0cfeb06365 [project @ 2007-10-10 18:02:59 by jwe] jwe parents: 6959 diff changeset	1820 The name of function in which the error occurred\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10767 diff changeset	1821 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1822 @item line\n\
7001 8b0cfeb06365 [project @ 2007-10-10 18:02:59 by jwe] jwe parents: 6959 diff changeset	1823 The line number at which the error occurred\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10767 diff changeset	1824 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1825 @item column\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1826 An optional field with the column number at which the error occurred\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1827 @end table\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1828 @end table\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1829 \n\
12692 e7b03b8662a2 doc: Update docstrings for a few functions Rik <octave@nomad.inbox5.com> parents: 12483 diff changeset	1830 The last error structure may be set by passing a scalar structure, @var{err},\n\
e7b03b8662a2 doc: Update docstrings for a few functions Rik <octave@nomad.inbox5.com> parents: 12483 diff changeset	1831 as input. Any fields of @var{err} that match those above are set while any\n\
e7b03b8662a2 doc: Update docstrings for a few functions Rik <octave@nomad.inbox5.com> parents: 12483 diff changeset	1832 unspecified fields are initialized with default values.\n\
e7b03b8662a2 doc: Update docstrings for a few functions Rik <octave@nomad.inbox5.com> parents: 12483 diff changeset	1833 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1834 If @code{lasterror} is called with the argument @qcode{\"reset\"}, all\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	1835 fields are set to their default values.\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1836 @seealso{lasterr, error, lastwarn}\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1837 @end deftypefn")
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1838 {
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14559 diff changeset	1839 int nargin = args.length ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1840
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1841 if (nargin > 1)
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1842 print_usage ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1843
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1844 octave_scalar_map err;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1845
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1846 err.assign ("message", Vlast_error_message);
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1847 err.assign ("identifier", Vlast_error_id);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1848
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1849 err.assign ("stack", octave_value (Vlast_error_stack));
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1850
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1851 if (nargin == 1)
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1852 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1853 if (args(0).is_string ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1854 {
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1855 if (args(0).string_value () == "reset")
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1856 {
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1857 Vlast_error_message = std::string ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1858 Vlast_error_id = std::string ();
9166 69088b7b139c use complete stack trace information for lasterror John W. Eaton <jwe@octave.org> parents: 9153 diff changeset	1859
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1860 Vlast_error_stack = initialize_last_error_stack ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1861 }
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1862 else
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1863 error ("lasterror: unrecognized string argument");
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1864 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1865 else if (args(0).is_map ())
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1866 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1867 octave_scalar_map new_err = args(0).scalar_map_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1868 octave_scalar_map new_err_stack;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1869 std::string new_error_message;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1870 std::string new_error_id;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1871 std::string new_error_file;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1872 std::string new_error_name;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1873 int new_error_line = -1;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1874 int new_error_column = -1;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1875
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1876 if (new_err.contains ("message"))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1877 {
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1878 const std::string tmp =
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1879 new_err.getfield ("message").string_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1880 new_error_message = tmp;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1881 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1882
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1883 if (new_err.contains ("identifier"))
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1884 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1885 const std::string tmp =
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1886 new_err.getfield ("identifier").string_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1887 new_error_id = tmp;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1888 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1889
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1890 if (new_err.contains ("stack"))
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1891 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1892 new_err_stack =
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1893 new_err.getfield ("stack").scalar_map_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1894
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1895 if (new_err_stack.contains ("file"))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1896 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	1897 const std::string tmp =
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1898 new_err_stack.getfield ("file").string_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1899 new_error_file = tmp;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1900 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1901
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1902 if (new_err_stack.contains ("name"))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1903 {
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1904 const std::string tmp =
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1905 new_err_stack.getfield ("name").string_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1906 new_error_name = tmp;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1907 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1908
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1909 if (new_err_stack.contains ("line"))
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1910 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1911 const int tmp =
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1912 new_err_stack.getfield ("line").nint_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1913 new_error_line = tmp;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1914 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1915
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1916 if (new_err_stack.contains ("column"))
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20511 diff changeset	1917 {
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1918 const int tmp =
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1919 new_err_stack.getfield ("column").nint_value ();
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1920 new_error_column = tmp;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1921 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1922 }
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1923
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1924 Vlast_error_message = new_error_message;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1925 Vlast_error_id = new_error_id;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1926
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1927 if (new_err.contains ("stack"))
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1928 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1929 new_err_stack.setfield ("file", new_error_file);
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1930 new_err_stack.setfield ("name", new_error_name);
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1931 new_err_stack.setfield ("line", new_error_line);
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1932 new_err_stack.setfield ("column", new_error_column);
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1933 Vlast_error_stack = new_err_stack;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1934 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1935 else
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1936 {
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1937 // No stack field. Fill it in with backtrace info.
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1938 octave_idx_type curr_frame = -1;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1939
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1940 Vlast_error_stack
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1941 = octave_call_stack::backtrace (0, curr_frame);
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1942 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1943 }
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1944 else
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1945 error ("lasterror: argument must be a structure or a string");
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1946 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1947
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1948 return octave_value (err);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1949 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 6338 diff changeset	1950
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1951 DEFUN (lasterr, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1952 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1953 @deftypefn {} {[@var{msg}, @var{msgid}] =} lasterr ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1954 @deftypefnx {} {} lasterr (@var{msg})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1955 @deftypefnx {} {} lasterr (@var{msg}, @var{msgid})\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1956 Query or set the last error message.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1957 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1958 When called without input arguments, return the last error message and\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1959 message identifier.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1960 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1961 With one argument, set the last error message to @var{msg}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1962 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1963 With two arguments, also set the last message identifier.\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	1964 @seealso{lasterror, error, lastwarn}\n\
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1965 @end deftypefn")
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1966 {
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	1967 int nargin = args.length ();
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1968
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	1969 if (nargin > 2)
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1970 print_usage ();
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1971
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1972 string_vector argv = args.make_argv ("lasterr");
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1973
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1974 std::string prev_error_id = Vlast_error_id;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	1975 std::string prev_error_message = Vlast_error_message;
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1976
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	1977 if (nargin == 2)
20828 7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1978 {
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1979 Vlast_error_id = argv(2);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1980 Vlast_error_message = argv(1);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1981 }
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1982 else if (nargin == 1)
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1983 {
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1984 Vlast_error_id = "";
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1985 Vlast_error_message = argv(1);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1986 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1987
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	1988 if (nargin == 0 \|\| nargout > 0)
20828 7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1989 return ovl (prev_error_message, prev_error_id);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1990 else
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	1991 return octave_value_list ();
3935 1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1992 }
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe] jwe parents: 3934 diff changeset	1993
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	1994 DEFUN (lastwarn, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1995 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1996 @deftypefn {} {[@var{msg}, @var{msgid}] =} lastwarn ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1997 @deftypefnx {} {} lastwarn (@var{msg})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	1998 @deftypefnx {} {} lastwarn (@var{msg}, @var{msgid})\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	1999 Query or set the last warning message.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2000 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2001 When called without input arguments, return the last warning message and\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2002 message identifier.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2003 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2004 With one argument, set the last warning message to @var{msg}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2005 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2006 With two arguments, also set the last message identifier.\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15088 diff changeset	2007 @seealso{warning, lasterror, lasterr}\n\
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	2008 @end deftypefn")
31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	2009 {
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	2010 int nargin = args.length ();
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	2011
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	2012 if (nargin > 2)
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	2013 print_usage ();
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	2014
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	2015 string_vector argv = args.make_argv ("lastwarn");
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	2016
20803 c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	2017 std::string prev_warning_id = Vlast_warning_id;
c22206c1a88f eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20785 diff changeset	2018 std::string prev_warning_message = Vlast_warning_message;
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	2019
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	2020 if (nargin == 2)
20828 7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2021 {
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2022 Vlast_warning_id = argv(2);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2023 Vlast_warning_message = argv(1);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2024 }
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2025 else if (nargin == 1)
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2026 {
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2027 Vlast_warning_id = "";
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2028 Vlast_warning_message = argv(1);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2029 }
5567 80e629357483 [project @ 2005-12-07 06:31:28 by jwe] jwe parents: 5335 diff changeset	2030
20817 3d551b2ae928 Use variable name nargin consistently in C++ code. Rik <rik@octave.org> parents: 20803 diff changeset	2031 if (nargin == 0 \|\| nargout > 0)
20828 7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2032 return ovl (prev_warning_message, prev_warning_id);
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2033 else
7883f240d8ea Clear error/warning ID when lasterror/lastwarning called with just a message. Rik <rik@octave.org> parents: 20827 diff changeset	2034 return octave_value_list ();
897 54921d080295 [project @ 1994-11-09 18:01:33 by jwe] jwe parents: 729 diff changeset	2035 }
54921d080295 [project @ 1994-11-09 18:01:33 by jwe] jwe parents: 729 diff changeset	2036
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2037 /* FIXME: Deprecated in 4.0 and scheduled for removal in 4.4 */
19111 d4a920d28242 Depecrate usage() function. Rik <rik@octave.org> parents: 18742 diff changeset	2038 DEFUN (__usage__, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2039 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2040 @deftypefn {} {} usage (@var{msg})\n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2041 Print the message @var{msg}, prefixed by the string @samp{usage: }, and\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2042 set Octave's internal error state such that control will return to the\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2043 top level without evaluating any more commands. This is useful for\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2044 aborting from functions.\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2045 \n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2046 After @code{usage} is evaluated, Octave will print a traceback of all\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2047 the function calls leading to the usage message.\n\
899 00e903c95534 [project @ 1994-11-09 18:06:56 by jwe] jwe parents: 897 diff changeset	2048 \n\
3373 36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2049 You should use this function for reporting problems errors that result\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2050 from an improper call to a function, such as calling a function with an\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2051 incorrect number of arguments, or with arguments of the wrong type. For\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2052 example, most functions distributed with Octave begin with code like\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2053 this\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2054 \n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2055 @example\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2056 @group\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2057 if (nargin != 2)\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2058 usage (\"foo (a, b)\");\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2059 endif\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2060 @end group\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2061 @end example\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2062 \n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2063 @noindent\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2064 to check for the proper number of arguments.\n\
36405da8e173 [project @ 1999-11-23 20:54:17 by jwe] jwe parents: 3259 diff changeset	2065 @end deftypefn")
899 00e903c95534 [project @ 1994-11-09 18:06:56 by jwe] jwe parents: 897 diff changeset	2066 {
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	2067 octave_value_list retval;
14558 0c9c85e702ca better compatibility for error/warning message IDs and format specifiers John W. Eaton <jwe@octave.org> parents: 14361 diff changeset	2068 handle_message (usage_with_id, "", "unknown", args, true);
3934 31393822395b [project @ 2002-05-15 19:18:09 by jwe] jwe parents: 3815 diff changeset	2069 return retval;
899 00e903c95534 [project @ 1994-11-09 18:06:56 by jwe] jwe parents: 897 diff changeset	2070 }
00e903c95534 [project @ 1994-11-09 18:06:56 by jwe] jwe parents: 897 diff changeset	2071
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2072 DEFUN (beep_on_error, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2073 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2074 @deftypefn {} {@var{val} =} beep_on_error ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2075 @deftypefnx {} {@var{old_val} =} beep_on_error (@var{new_val})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2076 @deftypefnx {} {} beep_on_error (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2077 Query or set the internal variable that controls whether Octave will try\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2078 to ring the terminal bell before printing an error message.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13841 diff changeset	2079 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	2080 When called from inside a function with the @qcode{\"local\"} option, the\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2081 variable is changed locally for the function and any subroutines it calls.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	2082 The original variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2083 @end deftypefn")
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	2084 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2085 return SET_INTERNAL_VARIABLE (beep_on_error);
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	2086 }
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	2087
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2088 DEFUN (debug_on_error, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2089 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2090 @deftypefn {} {@var{val} =} debug_on_error ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2091 @deftypefnx {} {@var{old_val} =} debug_on_error (@var{new_val})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2092 @deftypefnx {} {} debug_on_error (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2093 Query or set the internal variable that controls whether Octave will try\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2094 to enter the debugger when an error is encountered.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2095 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2096 This will also inhibit printing of the normal traceback message (you will\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2097 only see the top-level error message).\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13841 diff changeset	2098 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	2099 When called from inside a function with the @qcode{\"local\"} option, the\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2100 variable is changed locally for the function and any subroutines it calls.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	2101 The original variable value is restored when exiting the function.\n\
15573 63d024333bee doc: Add seealso links between debug_on_XXX functions (bug #37576) Rik <rik@octave.org> parents: 15524 diff changeset	2102 @seealso{debug_on_warning, debug_on_interrupt}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2103 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2104 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2105 return SET_INTERNAL_VARIABLE (debug_on_error);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2106 }
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3620 diff changeset	2107
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2108 DEFUN (debug_on_warning, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2109 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2110 @deftypefn {} {@var{val} =} debug_on_warning ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2111 @deftypefnx {} {@var{old_val} =} debug_on_warning (@var{new_val})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20829 diff changeset	2112 @deftypefnx {} {} debug_on_warning (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2113 Query or set the internal variable that controls whether Octave will try\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2114 to enter the debugger when a warning is encountered.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13841 diff changeset	2115 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	2116 When called from inside a function with the @qcode{\"local\"} option, the\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20140 diff changeset	2117 variable is changed locally for the function and any subroutines it calls.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17097 diff changeset	2118 The original variable value is restored when exiting the function.\n\
15573 63d024333bee doc: Add seealso links between debug_on_XXX functions (bug #37576) Rik <rik@octave.org> parents: 15524 diff changeset	2119 @seealso{debug_on_error, debug_on_interrupt}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2120 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2121 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5783 diff changeset	2122 return SET_INTERNAL_VARIABLE (debug_on_warning);
2174 68b02495a5ac [project @ 1996-05-13 16:08:39 by jwe] jwe parents: 2095 diff changeset	2123 }
68b02495a5ac [project @ 1996-05-13 16:08:39 by jwe] jwe parents: 2095 diff changeset	2124
7977 065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2125 std::string
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2126 last_error_message (void)
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2127 {
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2128 return Vlast_error_message;
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2129 }
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2130
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2131 std::string
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2132 last_error_id (void)
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2133 {
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2134 return Vlast_error_id;
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2135 }
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2136
18222 6ef8b920a7d6 include stack in exception variable (bug #41117) Stefan Mahr <dac922@gmx.de> parents: 18130 diff changeset	2137 octave_map
6ef8b920a7d6 include stack in exception variable (bug #41117) Stefan Mahr <dac922@gmx.de> parents: 18130 diff changeset	2138 last_error_stack (void)
6ef8b920a7d6 include stack in exception variable (bug #41117) Stefan Mahr <dac922@gmx.de> parents: 18130 diff changeset	2139 {
6ef8b920a7d6 include stack in exception variable (bug #41117) Stefan Mahr <dac922@gmx.de> parents: 18130 diff changeset	2140 return Vlast_error_stack;
6ef8b920a7d6 include stack in exception variable (bug #41117) Stefan Mahr <dac922@gmx.de> parents: 18130 diff changeset	2141 }
6ef8b920a7d6 include stack in exception variable (bug #41117) Stefan Mahr <dac922@gmx.de> parents: 18130 diff changeset	2142
7977 065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2143 std::string
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2144 last_warning_message (void)
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2145 {
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2146 return Vlast_warning_message;
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2147 }
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2148
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2149 std::string
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2150 last_warning_id (void)
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2151 {
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2152 return Vlast_warning_id;
065c28e1c368 Modify Fcellfun to directly access the error message/id rather than use a call to Flasterr David Bateman <dbateman@free.fr> parents: 7976 diff changeset	2153 }
11029 4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2154
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2155 void
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2156 interpreter_try (unwind_protect& frame)
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2157 {
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2158 frame.protect_var (buffer_error_messages);
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2159 frame.protect_var (Vdebug_on_error);
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2160 frame.protect_var (Vdebug_on_warning);
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2161
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2162 buffer_error_messages++;
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2163 Vdebug_on_error = false;
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2164 Vdebug_on_warning = false;
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2165 }
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2166
4ab04ea74b08 make an internal function for try simulation Jaroslav Hajek <highegg@gmail.com> parents: 10840 diff changeset	2167

Mercurial > octave

annotate libinterp/corefcn/error.cc @ 20918:6f0bd96f93c0