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
169
170
171
172
173
|
////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 1999-2021 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_Cell_h)
#define octave_Cell_h 1
#include "octave-config.h"
#include <list>
#include <string>
#include "Array.h"
#include "str-vec.h"
#include "ov.h"
class octave_value_list;
class
OCTINTERP_API
Cell : public Array<octave_value>
{
public:
Cell (void) = default;
Cell (const Cell& c) = default;
Cell& operator = (const Cell& c) = default;
~Cell (void) = default;
Cell (const octave_value& val)
: Array<octave_value> (dim_vector (1, 1), val) { }
Cell (const octave_value_list& ovl);
Cell (octave_idx_type n, octave_idx_type m,
const octave_value& val = Matrix ())
: Array<octave_value> (dim_vector (n, m), val) { }
Cell (const dim_vector& dv, const octave_value& val = Matrix ())
: Array<octave_value> (dv, val) { }
Cell (const Array<octave_value>& c)
: Array<octave_value> (c) { }
Cell (const Array<octave_value>& c, octave_idx_type nr, octave_idx_type nc)
: Array<octave_value> (c, dim_vector (nr, nc)) { }
Cell (const string_vector& sv, bool trim = false);
// Constructor for standard containers. V must be convertible to an
// octave_value object.
template <typename V, template <typename...> class C>
explicit
Cell (const C<V>& container)
: Array<octave_value> ()
{
size_t n = container.size ();
if (n > 0)
{
resize (dim_vector (n, 1));
octave_idx_type i = 0;
for (const auto& val : container)
elem(i++,0) = val;
}
}
Cell (const std::list<std::string>& sl);
Cell (const Array<std::string>& sa);
Cell (const dim_vector& dv, const string_vector& sv, bool trim = false);
bool iscellstr (void) const;
Array<std::string> cellstr_value (void) const;
string_vector string_vector_value (void) const;
using Array<octave_value>::index;
Cell index (const octave_value_list& idx, bool resize_ok = false) const;
using Array<octave_value>::delete_elements;
void delete_elements (const octave_value_list& idx);
using Array<octave_value>::assign;
void assign (const octave_value_list& idx, const Cell& rhs,
const octave_value& fill_val = Matrix ());
Cell reshape (const dim_vector& new_dims) const
{ return Array<octave_value>::reshape (new_dims); }
octave_idx_type nnz (void) const;
Cell column (octave_idx_type i) const;
// FIXME
boolMatrix all (int /* dim */ = 0) const { return boolMatrix (); }
// FIXME
boolMatrix any (int /* dim */ = 0) const { return boolMatrix (); }
Cell concat (const Cell& rb, const Array<octave_idx_type>& ra_idx);
Cell& insert (const Cell& a, octave_idx_type r, octave_idx_type c);
Cell& insert (const Cell& a, const Array<octave_idx_type>& ra_idx);
// FIXME
bool any_element_is_nan (void) const { return false; }
bool is_true (void) const { return false; }
octave_value resize_fill_value (void) const;
Cell diag (octave_idx_type k = 0) const;
Cell diag (octave_idx_type m, octave_idx_type n) const;
Cell xisalnum (void) const { return map (&octave_value::xisalnum); }
Cell xisalpha (void) const { return map (&octave_value::xisalpha); }
Cell xisascii (void) const { return map (&octave_value::xisascii); }
Cell xiscntrl (void) const { return map (&octave_value::xiscntrl); }
Cell xisdigit (void) const { return map (&octave_value::xisdigit); }
Cell xisgraph (void) const { return map (&octave_value::xisgraph); }
Cell xislower (void) const { return map (&octave_value::xislower); }
Cell xisprint (void) const { return map (&octave_value::xisprint); }
Cell xispunct (void) const { return map (&octave_value::xispunct); }
Cell xisspace (void) const { return map (&octave_value::xisspace); }
Cell xisupper (void) const { return map (&octave_value::xisupper); }
Cell xisxdigit (void) const { return map (&octave_value::xisxdigit); }
Cell xtolower (void) const { return map (&octave_value::xtolower); }
Cell xtoupper (void) const { return map (&octave_value::xtoupper); }
private:
typedef octave_value (octave_value::*ctype_mapper) (void) const;
Cell map (ctype_mapper) const;
};
template <>
inline Cell octave_value_extract<Cell> (const octave_value& v)
{ return v.cell_value (); }
#endif
|
