Mercurial > octave

annotate liboctave/util/lo-array-errwarn.cc @ 29358:0a5b15007766 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2021.
author John W. Eaton <jwe@octave.org>
date Wed, 10 Feb 2021 09:52:15 -0500
parents 9a965fec21c1
children 6d827dcde2b9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 //
29358
0a5b15007766 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 28012
diff changeset
3 // Copyright (C) 2016-2021 The Octave Project Developers
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
4 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
7 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
9 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
14 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
19 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ////////////////////////////////////////////////////////////////////////
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
25
21724
aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents: 21660
diff changeset
26 #if defined (HAVE_CONFIG_H)
21301
40de9f8f23a6 Use '#include "config.h"' rather than <config.h>.
Rik <rik@octave.org>
parents: 21229
diff changeset
27 # include "config.h"
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
28 #endif
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
29
26569
0e77df67b522 Add static compile-time checking of printf functions in liboctave.
Markus Mützel <markus.muetzel@gmx.de>
parents: 26376
diff changeset
30 #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
31 #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
32
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
33 #include <sstream>
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
34
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
35 #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
36 #include "lo-error.h"
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
37
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
38 namespace octave
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
39 {
27101
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
40 // Text constants used to shorten code below.
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
41
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
42 static const char *error_id_nonconformant_args
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
43 = "Octave:nonconformant-args";
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
44
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
45 static const char *error_id_index_out_of_bounds
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
46 = "Octave:index-out-of-bounds";
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
47
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
48 static const char *error_id_invalid_index = "Octave:invalid-index";
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
49
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
50 static const char *warning_id_nearly_singular_matrix
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
51 = "Octave:nearly-singular-matrix";
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
52
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
53 static const char *warning_id_singular_matrix = "Octave:singular-matrix";
097774bed4ed move some static functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 26569
diff changeset
54
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
55 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
56 err_nan_to_logical_conversion (void)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
57 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
58 (*current_liboctave_error_handler)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
59 ("invalid conversion from NaN to logical");
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
60 }
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 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
63 err_nan_to_character_conversion (void)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
64 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
65 (*current_liboctave_error_handler)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
66 ("invalid conversion from NaN to character");
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
67 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
68
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
69 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
70 err_nonconformant (const char *op,
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
71 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
72 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
73 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
74
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
75 (*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
76 (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
77 ", op2 len: % " OCTAVE_IDX_TYPE_FORMAT ")",
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
78 op, op1_len, op2_len);
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
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
81 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
82 err_nonconformant (const char *op,
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
83 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
84 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
85 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
86 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
87
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
88 (*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
89 (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
90 "(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
91 "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
92 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
93 }
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 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
96 err_nonconformant (const char *op,
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
97 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
98 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
99 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
100
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
101 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
102 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
103
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
104 (*current_liboctave_error_with_id_handler)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
105 (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
106 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
107 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
108
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
109 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
110 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
111 octave_idx_type ext)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
112 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
113 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
114
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
115 (*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
116 (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
117 " 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
118 is1d ? "I" : "..,I,..", idx, ext);
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
119 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
120
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
121 // 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
122 // "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
123 // 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
124
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
125 std::string
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
126 index_exception::expression (void) const
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
127 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
128 std::ostringstream buf;
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
129
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
130 if (m_var.empty () || m_var == "<unknown>")
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
131 buf << "index ";
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
132 else
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
133 buf << m_var;
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
134
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
135 bool show_parens = m_dim > 0;
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
136
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
137 if (show_parens)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
138 {
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
139 if (m_dim < 5)
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
140 {
23807
336f89b6208b Use character literals 'c' rather than string literals "c" when possible.
Rik <rik@octave.org>
parents: 23446
diff changeset
141 buf << '(';
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
142
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
143 for (octave_idx_type i = 1; i < m_dim; i++)
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
144 buf << "_,";
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
145 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
146 else
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
147 buf << "(...[x" << m_dim - 1 << "]...";
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
148 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
149
28012
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
150 buf << m_index;
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
151
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
152 if (show_parens)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
153 {
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
154 if (m_nd - m_dim < 5)
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
155 {
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
156 for (octave_idx_type i = 0; i < m_nd - m_dim; i++)
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
157 buf << ",_";
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
158
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
159 if (m_nd >= m_dim)
23807
336f89b6208b Use character literals 'c' rather than string literals "c" when possible.
Rik <rik@octave.org>
parents: 23446
diff changeset
160 buf << ')';
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
161 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
162 else
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
163 buf << "...[x" << m_nd - m_dim << "]...)";
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
164 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
165
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
166 return buf.str ();
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
167 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
168
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
169 class invalid_index : public index_exception
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
170 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
171 public:
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 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
174 octave_idx_type dimen)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
175 : index_exception (value, ndim, dimen)
28012
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
176 {
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
177 // Virtual, but the one we want to call is defined in this class.
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
178 update_message ();
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
179 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
180
28012
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
181 void update_message (void)
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
182 {
28012
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
183 static std::string exp
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
184 = std::to_string (std::numeric_limits<octave_idx_type>::digits);
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
185
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
186 set_message (expression ()
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
187 + ": subscripts must be either integers 1 to (2^" + exp
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
188 + ")-1 or logicals");
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
189 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
190
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
191 // 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
192 const char * err_id (void) const
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
193 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
194 return error_id_invalid_index;
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
195 }
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
196 };
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
197
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
198 // 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
199
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
200 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
201 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
202 octave_idx_type dim, const std::string&)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
203 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
204 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
205
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
206 throw e;
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
207 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
208
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
209 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
210 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
211 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
212 {
28003
60d8d6e5594d use std::to_string instead of ostringstream buffer
John W. Eaton <jwe@octave.org>
parents: 27997
diff changeset
213 err_invalid_index (std::to_string (n + 1), nd, dim, var);
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
214 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
215
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
216 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
217 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
218 const std::string& var)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
219 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
220 std::ostringstream buf;
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
221 buf << n + 1;
25807
cb775c73866d Don't print fractional part of an invalid NaN index.
Rik <rik@octave.org>
parents: 25806
diff changeset
222
cb775c73866d Don't print fractional part of an invalid NaN index.
Rik <rik@octave.org>
parents: 25806
diff changeset
223 if (! std::isnan (n))
cb775c73866d Don't print fractional part of an invalid NaN index.
Rik <rik@octave.org>
parents: 25806
diff changeset
224 {
cb775c73866d Don't print fractional part of an invalid NaN index.
Rik <rik@octave.org>
parents: 25806
diff changeset
225 // 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
226 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
227 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
228 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
229 }
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
230
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
231 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
232 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
233
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
234 // 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
235
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
236 class out_of_range : public index_exception
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
237 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
238 public:
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
239
28004
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
240 out_of_range (const std::string& value, octave_idx_type nd,
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
241 octave_idx_type dim, octave_idx_type ext,
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
242 const dim_vector& size)
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
243 : index_exception (value, nd, dim), m_size (size), m_extent (ext)
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
244 {
28012
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
245 // Virtual, but the one we want to call is defined in this class.
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
246 update_message ();
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
247 }
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
248
28012
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
249 void update_message (void)
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
250 {
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
251 set_message (expression () + ": out of bound "
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
252 + std::to_string (m_extent)
9a965fec21c1 refactor index_exception classes to accommodate std::exception::what method
John W. Eaton <jwe@octave.org>
parents: 28004
diff changeset
253 + " (dimensions are " + m_size.str ('x') + ")");
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
254 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
255
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
256 // 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
257 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
258 {
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
259 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
260 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
261
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
262 private:
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
263
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
264 // Dimension of object being accessed.
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
265 dim_vector m_size;
22327
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 // Length of dimension being accessed.
27379
3db033e86376 use m_ prefix for data members in most liboctave/util classes
John W. Eaton <jwe@octave.org>
parents: 27101
diff changeset
268 octave_idx_type m_extent;
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
269 };
21100
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 // 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
272 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
273 err_index_out_of_range (int nd, int dim, octave_idx_type idx,
28004
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
274 octave_idx_type ext, const dim_vector& dv)
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
275 {
28004
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
276 throw out_of_range (std::to_string (idx), nd, dim, ext, dv);
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
277 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
278
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
279 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
280 err_invalid_resize (void)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
281 {
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
282 (*current_liboctave_error_with_id_handler)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
283 ("Octave:invalid-resize",
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
284 "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
285 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
286
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
287 void
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
288 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
289 {
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
290 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
291 {
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
292 (*current_liboctave_warning_with_id_handler)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
293 (warning_id_singular_matrix,
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
294 "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
295 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
296 else
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
297 {
22327
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
298 (*current_liboctave_warning_with_id_handler)
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
299 (warning_id_nearly_singular_matrix,
d0562b3159c7 move more classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22022
diff changeset
300 "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
301 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
302 }
28004
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
303
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
304 // DEPRECATED in Octave 6.
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
305
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
306 // Complain of an index that is out of range, but we don't know matrix size
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
307 void
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
308 err_index_out_of_range (int nd, int dim, octave_idx_type idx,
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
309 octave_idx_type ext)
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
310 {
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
311 // The dim_vector setting here doesn't really make sense. However,
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
312 // this function has been deprecated and will be removed in version
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
313 // 8, so there's no need to attempt to fix it.
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
314
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
315 throw out_of_range (std::to_string (idx), nd, dim, ext,
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
316 dim_vector (1, 1, 1, 1, 1, 1, 1));
403df0b32204 update out_of_range error messages
John W. Eaton <jwe@octave.org>
parents: 28003
diff changeset
317 }
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
318 }
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
319
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
diff changeset
320 /* Tests in test/index.tst */