1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 2016-2025 The Octave Project Developers
//
// See the file COPYRIGHT.md in the top-level directory of this
// distribution or <https://octave.org/copyright/>.
//
// This file is part of Octave.
//
// Octave is free software: you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Octave is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Octave; see the file COPYING. If not, see
// <https://www.gnu.org/licenses/>.
//
////////////////////////////////////////////////////////////////////////
#if ! defined (octave_lo_array_errwarn_h)
#define octave_lo_array_errwarn_h 1
#include "octave-config.h"
#include "dim-vector.h"
#include "quit.h"
OCTAVE_BEGIN_NAMESPACE(octave)
// Exception thrown by err_invalid_index
// This is thrown when the invalid index is detected, at which point nd and dim
// are usually not known. It is caught at the place they are known, where a
// new err_invalid_index is called.
//
// Typically, this should be caught after any call to
// octave_value_list::index_vector()
class OCTAVE_EXCEPTION_API index_exception : public execution_exception
{
public:
index_exception () = delete;
index_exception (const std::string& index, octave_idx_type nd = 0,
octave_idx_type dim = -1, const char *var = "")
: m_index (index), m_nd (nd), m_dim (dim), m_var (var)
{
set_message (expression ());
}
OCTAVE_DEFAULT_COPY_MOVE (index_exception)
~index_exception () = default;
// ID of error to throw.
virtual const char * err_id () const = 0;
// By default, update message to show the erroneous index expression.
virtual void update_message () { set_message (expression ()); }
// Position of error: dimension in error, and number of dimensions.
void set_pos (octave_idx_type nd_arg, octave_idx_type dim_arg)
{
m_nd = nd_arg;
m_dim = dim_arg;
update_message ();
}
void set_pos_if_unset (octave_idx_type nd_arg, octave_idx_type dim_arg)
{
if (m_nd == 0)
{
m_nd = nd_arg;
m_dim = dim_arg;
update_message ();
}
}
// Name of variable being indexed. eye(2)(1,1) gives "<unknown>".
void set_var (const std::string& var_arg = "")
{
m_var = var_arg;
update_message ();
}
// Return a newly allocated copy of the index_exception object.
virtual index_exception * dup () = 0;
private:
// Value of invalid index.
std::string m_index;
protected:
// Show what's wrong, e.g., A(-1,_), A(0+1i).
OCTAVE_API std::string expression () const;
// Number of dimensions of indexed object.
octave_idx_type m_nd;
// Dimension number in which invalid index occurred.
octave_idx_type m_dim;
// Name of variable being indexed.
std::string m_var;
};
OCTAVE_NORETURN extern OCTAVE_API void
err_nan_to_logical_conversion ();
OCTAVE_NORETURN extern OCTAVE_API void
err_nan_to_character_conversion ();
OCTAVE_NORETURN extern OCTAVE_API void
err_nonconformant (const char *op, octave_idx_type op1_len,
octave_idx_type op2_len);
OCTAVE_NORETURN extern OCTAVE_API void
err_nonconformant (const char *op,
octave_idx_type op1_nr, octave_idx_type op1_nc,
octave_idx_type op2_nr, octave_idx_type op2_nc);
OCTAVE_NORETURN extern OCTAVE_API void
err_nonconformant (const char *op,
const dim_vector& op1_dims, const dim_vector& op2_dims);
OCTAVE_NORETURN extern OCTAVE_API void
err_index_out_of_range (int ndims, int dim, octave_idx_type idx,
octave_idx_type ext, const dim_vector& dv);
OCTAVE_NORETURN extern OCTAVE_API void
err_del_index_out_of_range (bool is1d, octave_idx_type iext,
octave_idx_type ext);
OCTAVE_NORETURN extern OCTAVE_API void
err_invalid_index (double n, octave_idx_type nd = 0,
octave_idx_type dim = 0,
const std::string& var = "");
OCTAVE_NORETURN extern OCTAVE_API void
err_invalid_index (octave_idx_type n, octave_idx_type nd = 0,
octave_idx_type dim = 0,
const std::string& var = "");
OCTAVE_NORETURN extern OCTAVE_API void
err_invalid_index (const std::string& idx, octave_idx_type nd = 0,
octave_idx_type dim = 0,
const std::string& var = "");
OCTAVE_NORETURN extern OCTAVE_API void
err_invalid_resize ();
extern OCTAVE_API void
warn_singular_matrix (double rcond = 0.0);
OCTAVE_END_NAMESPACE(octave)
#endif
|
