octave: liboctave/util/lo-array-errwarn.cc annotate

annotate liboctave/util/lo-array-errwarn.cc @ 26569:0e77df67b522 stable

Add static compile-time checking of printf functions in liboctave. * util/lo-error.h: Use macro OCTAVE_FORMAT_PRINTF for printf functions. * array/Array.h: Use format specifier "z" for type size_t. * array/Array-util.cc, numeric/oct-norm.cc: Supply a format string of "%s" when printing a single string. * array/idx-vector.cc, array/MatrixType.cc, array/Sparse.cc, numeric/DASPK.cc, numeric/DASRT.cc, numeric/DASSL.cc, numeric/LSODE.cc, util/lo-array-errwarn.cc, util/sparse-util.cc: Use preprocessor macro OCTAVE_IDX_TYPE_FORMAT as the format identifier for octave_idx_type. * util/f77-fcn.c: Cast width argument to int. * util/lo-utils.cc: Pass missing argument c0.

author	Markus Mützel <markus.muetzel@gmx.de>
date	Thu, 17 Jan 2019 19:25:55 +0100
parents	00f796120a6d
children	097774bed4ed

rev	line source
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	1 /*
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	2
26376 00f796120a6d maint: Update copyright dates in all source files. John W. Eaton <jwe@octave.org> parents: 25807 diff changeset	3 Copyright (C) 2016-2019 Rik Wehbring
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	4
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	5 This file is part of Octave.
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	6
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23807 diff changeset	7 Octave is free software: you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	8 under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23807 diff changeset	9 the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	10 (at your option) any later version.
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	15 GNU General Public License for more details.
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	16
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	17 You should have received a copy of the GNU General Public License
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	18 along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23807 diff changeset	19 <https://www.gnu.org/licenses/>.
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	20
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	21 */
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	22
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	23 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21229 diff changeset	24 # include "config.h"
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	25 #endif
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	26
26569 0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	27 #include <cinttypes>
25806 0360ed7c39a8 Always print non-integer part of non-integer indices in invalid index message (bug #46859). Lachlan Andrew <lachlanbis@gmail.com> parents: 25054 diff changeset	28 #include <cmath>
0360ed7c39a8 Always print non-integer part of non-integer indices in invalid index message (bug #46859). Lachlan Andrew <lachlanbis@gmail.com> parents: 25054 diff changeset	29
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	30 #include <sstream>
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	31
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	32 #include "lo-array-errwarn.h"
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	33 #include "lo-error.h"
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	34
21111 7bb96a8df912 lo-array-errwarn.h: Don't export string constants unnecessarily. Rik <rik@octave.org> parents: 21100 diff changeset	35 // Text constants used to shorten code below.
7bb96a8df912 lo-array-errwarn.h: Don't export string constants unnecessarily. Rik <rik@octave.org> parents: 21100 diff changeset	36 static const char *error_id_nonconformant_args = "Octave:nonconformant-args";
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	37
21111 7bb96a8df912 lo-array-errwarn.h: Don't export string constants unnecessarily. Rik <rik@octave.org> parents: 21100 diff changeset	38 static const char *error_id_index_out_of_bounds = "Octave:index-out-of-bounds";
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	39
21111 7bb96a8df912 lo-array-errwarn.h: Don't export string constants unnecessarily. Rik <rik@octave.org> parents: 21100 diff changeset	40 static const char *error_id_invalid_index = "Octave:invalid-index";
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	41
22402 4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22327 diff changeset	42 static const char *warning_id_nearly_singular_matrix =
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22327 diff changeset	43 "Octave:nearly-singular-matrix";
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	44
21111 7bb96a8df912 lo-array-errwarn.h: Don't export string constants unnecessarily. Rik <rik@octave.org> parents: 21100 diff changeset	45 static const char *warning_id_singular_matrix = "Octave:singular-matrix";
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	46
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	47 namespace octave
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	48 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	49 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	50 err_nan_to_logical_conversion (void)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	51 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	52 (*current_liboctave_error_handler)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	53 ("invalid conversion from NaN to logical");
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	54 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	55
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	56 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	57 err_nan_to_character_conversion (void)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	58 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	59 (*current_liboctave_error_handler)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	60 ("invalid conversion from NaN to character");
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	61 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	62
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	63 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	64 err_nonconformant (const char *op,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	65 octave_idx_type op1_len, octave_idx_type op2_len)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	66 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	67 const char *err_id = error_id_nonconformant_args;
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	68
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	69 (*current_liboctave_error_with_id_handler)
26569 0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	70 (err_id, "%s: nonconformant arguments (op1 len: %" OCTAVE_IDX_TYPE_FORMAT
0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	71 ", op2 len: % " OCTAVE_IDX_TYPE_FORMAT ")",
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	72 op, op1_len, op2_len);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	73 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	74
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	75 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	76 err_nonconformant (const char *op,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	77 octave_idx_type op1_nr, octave_idx_type op1_nc,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	78 octave_idx_type op2_nr, octave_idx_type op2_nc)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	79 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	80 const char *err_id = error_id_nonconformant_args;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	81
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	82 (*current_liboctave_error_with_id_handler)
26569 0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	83 (err_id, "%s: nonconformant arguments "
0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	84 "(op1 is %" OCTAVE_IDX_TYPE_FORMAT "x%" OCTAVE_IDX_TYPE_FORMAT ", "
0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	85 "op2 is %" OCTAVE_IDX_TYPE_FORMAT"x%" OCTAVE_IDX_TYPE_FORMAT ")",
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	86 op, op1_nr, op1_nc, op2_nr, op2_nc);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	87 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	88
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	89 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	90 err_nonconformant (const char *op,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	91 const dim_vector& op1_dims, const dim_vector& op2_dims)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	92 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	93 const char *err_id = error_id_nonconformant_args;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	94
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	95 std::string op1_dims_str = op1_dims.str ();
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	96 std::string op2_dims_str = op2_dims.str ();
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	97
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	98 (*current_liboctave_error_with_id_handler)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	99 (err_id, "%s: nonconformant arguments (op1 is %s, op2 is %s)",
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	100 op, op1_dims_str.c_str (), op2_dims_str.c_str ());
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	101 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	102
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	103 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	104 err_del_index_out_of_range (bool is1d, octave_idx_type idx,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	105 octave_idx_type ext)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	106 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	107 const char *err_id = error_id_index_out_of_bounds;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	108
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	109 (*current_liboctave_error_with_id_handler)
26569 0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	110 (err_id, "A(%s) = []: index out of bounds: value %" OCTAVE_IDX_TYPE_FORMAT
0e77df67b522 Add static compile-time checking of printf functions in liboctave. Markus Mützel <markus.muetzel@gmx.de> parents: 26376 diff changeset	111 " out of bound %" OCTAVE_IDX_TYPE_FORMAT,
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	112 is1d ? "I" : "..,I,..", idx, ext);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	113 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	114
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	115 // Common procedures of base class index_exception, thrown whenever an
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	116 // object is indexed incorrectly, such as by an index that is out of
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	117 // range, negative, fractional, complex, or of a non-numeric type.
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	118
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	119 std::string
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	120 index_exception::message (void) const
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	121 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	122 std::string msg = expression () + ": " + details ();
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	123 return msg.c_str ();
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	124 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	125
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	126 // Show the expression that caused the error, e.g., "A(-1,_)",
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	127 // "A(0+1i)", "A(_,3)". Show how many indices come before/after the
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	128 // offending one, e.g., (<error>), (<error>,_), or (_,<error>,...[x5]...)
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	129
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	130 std::string
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	131 index_exception::expression (void) const
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	132 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	133 std::ostringstream buf;
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	134
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	135 if (var.empty () \|\| var == "<unknown>")
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	136 buf << "index ";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	137 else
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	138 buf << var;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	139
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	140 bool show_parens = dim > 0;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	141
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	142 if (show_parens)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	143 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	144 if (dim < 5)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	145 {
23807 336f89b6208b Use character literals 'c' rather than string literals "c" when possible. Rik <rik@octave.org> parents: 23446 diff changeset	146 buf << '(';
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	147
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	148 for (octave_idx_type i = 1; i < dim; i++)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	149 buf << "_,";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	150 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	151 else
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	152 buf << "(...[x" << dim - 1 << "]...";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	153 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	154
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	155 buf << idx ();
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	156
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	157 if (show_parens)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	158 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	159 if (nd - dim < 5)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	160 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	161 for (octave_idx_type i = 0; i < nd - dim; i++)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	162 buf << ",_";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	163
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	164 if (nd >= dim)
23807 336f89b6208b Use character literals 'c' rather than string literals "c" when possible. Rik <rik@octave.org> parents: 23446 diff changeset	165 buf << ')';
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	166 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	167 else
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	168 buf << "...[x" << nd - dim << "]...)";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	169 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	170
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	171 return buf.str ();
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	172 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	173
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	174 class invalid_index : public index_exception
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	175 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	176 public:
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	177
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	178 invalid_index (const std::string& value, octave_idx_type ndim,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	179 octave_idx_type dimen)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	180 : index_exception (value, ndim, dimen)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	181 { }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	182
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	183 std::string details (void) const
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	184 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	185 #if defined (OCTAVE_ENABLE_64)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	186 return "subscripts must be either integers 1 to (2^63)-1 or logicals";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	187 #else
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	188 return "subscripts must be either integers 1 to (2^31)-1 or logicals";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	189 #endif
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	190 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	191
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	192 // ID of error to throw
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23220 diff changeset	193 const char * err_id (void) const
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	194 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	195 return error_id_invalid_index;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	196 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	197 };
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	198
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	199 // Complain if an index is negative, fractional, or too big.
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	200
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	201 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	202 err_invalid_index (const std::string& idx, octave_idx_type nd,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	203 octave_idx_type dim, const std::string&)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	204 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	205 invalid_index e (idx, nd, dim);
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	206
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	207 throw e;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	208 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	209
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	210 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	211 err_invalid_index (octave_idx_type n, octave_idx_type nd,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	212 octave_idx_type dim, const std::string& var)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	213 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	214 std::ostringstream buf;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	215 buf << n + 1;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	216 err_invalid_index (buf.str (), nd, dim, var);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	217 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	218
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	219 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	220 err_invalid_index (double n, octave_idx_type nd, octave_idx_type dim,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	221 const std::string& var)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	222 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	223 std::ostringstream buf;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	224 buf << n + 1;
25807 cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	225
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	226 if (! std::isnan (n))
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	227 {
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	228 // if n not an integer, but would be printed as one, show diff
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	229 double nearest = std::floor (n + 1.5);
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	230 if (n + 1 != nearest && (buf.str ().find ('.') == std::string::npos))
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	231 buf << std::showpos << (n + 1 - nearest);
cb775c73866d Don't print fractional part of an invalid NaN index. Rik <rik@octave.org> parents: 25806 diff changeset	232 }
25806 0360ed7c39a8 Always print non-integer part of non-integer indices in invalid index message (bug #46859). Lachlan Andrew <lachlanbis@gmail.com> parents: 25054 diff changeset	233
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	234 err_invalid_index (buf.str (), nd, dim, var);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	235 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	236
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	237 // Complain for read access beyond the bounds of an array.
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	238
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	239 class out_of_range : public index_exception
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	240 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	241 public:
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	242
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	243 out_of_range (const std::string& value, octave_idx_type nd_in,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	244 octave_idx_type dim_in)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	245 : index_exception (value, nd_in, dim_in), extent (0)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	246 { }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	247
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	248 std::string details (void) const
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	249 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	250 std::string expl;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	251
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	252 if (nd >= size.ndims ()) // if not an index slice
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	253 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	254 if (var != "")
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	255 expl = "but " + var + " has size ";
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	256 else
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	257 expl = "but object has size ";
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	258
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	259 expl = expl + size.str ('x');
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	260 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	261 else
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	262 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	263 std::ostringstream buf;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	264 buf << extent;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	265 expl = "out of bound " + buf.str ();
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	266 }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	267
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	268 return expl;
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	269 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	270
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	271 // ID of error to throw.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23220 diff changeset	272 const char * err_id (void) const
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	273 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	274 return error_id_index_out_of_bounds;
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	275 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	276
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	277 void set_size (const dim_vector& size_in) { size = size_in; }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	278
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	279 void set_extent (octave_idx_type ext) { extent = ext; }
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	280
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	281 private:
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	282
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	283 // Dimension of object being accessed.
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	284 dim_vector size;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	285
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	286 // Length of dimension being accessed.
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	287 octave_idx_type extent;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	288 };
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	289
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	290 // Complain of an index that is out of range, but we don't know matrix size
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	291 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	292 err_index_out_of_range (int nd, int dim, octave_idx_type idx,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	293 octave_idx_type ext)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	294 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	295 std::ostringstream buf;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	296 buf << idx;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	297 out_of_range e (buf.str (), nd, dim);
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	298
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	299 e.set_extent (ext);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	300 // ??? Make details method give extent not size.
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	301 e.set_size (dim_vector (1, 1, 1, 1, 1, 1,1));
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	302
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	303 throw e;
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	304 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	305
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	306 // Complain of an index that is out of range
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	307 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	308 err_index_out_of_range (int nd, int dim, octave_idx_type idx,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	309 octave_idx_type ext, const dim_vector& d)
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	310 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	311 std::ostringstream buf;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	312 buf << idx;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	313 out_of_range e (buf.str (), nd, dim);
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	314
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	315 e.set_extent (ext);
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	316 e.set_size (d);
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	317
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	318 throw e;
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	319 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	320
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	321 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	322 err_invalid_resize (void)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	323 {
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	324 (*current_liboctave_error_with_id_handler)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	325 ("Octave:invalid-resize",
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	326 "Invalid resizing operation or ambiguous assignment to an out-of-bounds array element");
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	327 }
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	328
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	329 void
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	330 warn_singular_matrix (double rcond)
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	331 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	332 if (rcond == 0.0)
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	333 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	334 (*current_liboctave_warning_with_id_handler)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	335 (warning_id_singular_matrix,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	336 "matrix singular to machine precision");
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	337 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	338 else
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	339 {
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	340 (*current_liboctave_warning_with_id_handler)
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	341 (warning_id_nearly_singular_matrix,
d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	342 "matrix singular to machine precision, rcond = %g", rcond);
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	343 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	344 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	345 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	346
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: diff changeset	347 /* Tests in test/index.tst */

Mercurial > octave

annotate liboctave/util/lo-array-errwarn.cc @ 26569:0e77df67b522 stable