GNU Octave 10.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 
Loading...
Searching...
No Matches
op-str-str.cc
Go to the documentation of this file.
1////////////////////////////////////////////////////////////////////////
2//
3// Copyright (C) 1996-2025 The Octave Project Developers
4//
5// See the file COPYRIGHT.md in the top-level directory of this
6// distribution or <https://octave.org/copyright/>.
7//
8// This file is part of Octave.
9//
10// Octave is free software: you can redistribute it and/or modify it
11// under the terms of the GNU General Public License as published by
12// the Free Software Foundation, either version 3 of the License, or
13// (at your option) any later version.
14//
15// Octave is distributed in the hope that it will be useful, but
16// WITHOUT ANY WARRANTY; without even the implied warranty of
17// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18// GNU General Public License for more details.
19//
20// You should have received a copy of the GNU General Public License
21// along with Octave; see the file COPYING. If not, see
22// <https://www.gnu.org/licenses/>.
23//
24////////////////////////////////////////////////////////////////////////
25
26#if defined (HAVE_CONFIG_H)
27# include "config.h"
28#endif
29
30#include "errwarn.h"
31#include "ovl.h"
32#include "ov.h"
33#include "ov-str-mat.h"
34#include "ov-typeinfo.h"
35#include "ov-null-mat.h"
36#include "ops.h"
37
38OCTAVE_BEGIN_NAMESPACE(octave)
39
40// string unary ops.
41
42DEFUNOP (transpose, char_matrix_str)
43{
44 OCTAVE_CAST_BASE_VALUE (const octave_char_matrix_str&, v, a);
45
46 if (v.ndims () > 2)
47 error ("transpose not defined for N-D objects");
48
49 return octave_value (v.char_matrix_value ().transpose (),
50 a.is_sq_string () ? '\'' : '"');
51}
52
53// string by string ops.
54
55#define DEFCHARNDBINOP_FN(name, op, t1, t2, e1, e2, f) \
56 static octave_value \
57 CONCAT2(oct_binop_, name) (const octave_base_value& a1, \
58 const octave_base_value& a2) \
59 { \
60 const dim_vector& a1_dims = a1.dims (); \
61 const dim_vector& a2_dims = a2.dims (); \
62 \
63 bool a1_is_scalar = a1_dims.all_ones (); \
64 bool a2_is_scalar = a2_dims.all_ones (); \
65 \
66 OCTAVE_CAST_BASE_VALUE (const octave_ ## t1&, v1, a1); \
67 OCTAVE_CAST_BASE_VALUE (const octave_ ## t2&, v2, a2); \
68 \
69 if (a1_is_scalar) \
70 { \
71 if (a2_is_scalar) \
72 return octave_value ((v1.e1 ## _value ())(0) \
73 op (v2.e2 ## _value ())(0)); \
74 else \
75 return octave_value (f ((v1.e1 ## _value ())(0), \
76 v2.e2 ## _value ())); \
77 } \
78 else \
79 { \
80 if (a2_is_scalar) \
81 return octave_value (f (v1.e1 ## _value (), \
82 (v2.e2 ## _value ())(0))); \
83 else \
84 return octave_value (f (v1.e1 ## _value (), \
85 v2.e2 ## _value ())); \
86 } \
87 }
88
89DEFCHARNDBINOP_FN (lt, <, char_matrix_str, char_matrix_str, char_array,
90 char_array, mx_el_lt)
91DEFCHARNDBINOP_FN (le, <=, char_matrix_str, char_matrix_str, char_array,
92 char_array, mx_el_le)
93DEFCHARNDBINOP_FN (eq, ==, char_matrix_str, char_matrix_str, char_array,
94 char_array, mx_el_eq)
95DEFCHARNDBINOP_FN (ge, >=, char_matrix_str, char_matrix_str, char_array,
96 char_array, mx_el_ge)
97DEFCHARNDBINOP_FN (gt, >, char_matrix_str, char_matrix_str, char_array,
98 char_array, mx_el_gt)
99DEFCHARNDBINOP_FN (ne, !=, char_matrix_str, char_matrix_str, char_array,
100 char_array, mx_el_ne)
101
102DEFASSIGNOP (assign, char_matrix_str, char_matrix_str)
103{
104 OCTAVE_CAST_BASE_VALUE (octave_char_matrix_str&, v1, a1);
105 OCTAVE_CAST_BASE_VALUE (const octave_char_matrix_str&, v2, a2);
106
107 v1.assign (idx, v2.char_array_value ());
108 return octave_value ();
109}
110
111DEFNULLASSIGNOP_FN (null_assign, char_matrix_str, delete_elements)
112
113DEFNDCHARCATOP_FN (str_str, char_matrix_str, char_matrix_str, concat)
114
115void
116install_str_str_ops (octave::type_info& ti)
117{
118 INSTALL_UNOP_TI (ti, op_transpose, octave_char_matrix_str, transpose);
119 INSTALL_UNOP_TI (ti, op_transpose, octave_char_matrix_sq_str, transpose);
120
121 INSTALL_UNOP_TI (ti, op_hermitian, octave_char_matrix_str, transpose);
122 INSTALL_UNOP_TI (ti, op_hermitian, octave_char_matrix_sq_str, transpose);
123
124 INSTALL_BINOP_TI (ti, op_lt, octave_char_matrix_str, octave_char_matrix_str,
125 lt);
126 INSTALL_BINOP_TI (ti, op_lt, octave_char_matrix_str, octave_char_matrix_sq_str,
127 lt);
128 INSTALL_BINOP_TI (ti, op_lt, octave_char_matrix_sq_str, octave_char_matrix_str,
129 lt);
130 INSTALL_BINOP_TI (ti, op_lt, octave_char_matrix_sq_str,
131 octave_char_matrix_sq_str,
132 lt);
133
134 INSTALL_BINOP_TI (ti, op_le, octave_char_matrix_str, octave_char_matrix_str,
135 le);
136 INSTALL_BINOP_TI (ti, op_le, octave_char_matrix_str, octave_char_matrix_sq_str,
137 le);
138 INSTALL_BINOP_TI (ti, op_le, octave_char_matrix_sq_str, octave_char_matrix_str,
139 le);
140 INSTALL_BINOP_TI (ti, op_le, octave_char_matrix_sq_str,
141 octave_char_matrix_sq_str,
142 le);
143
144 INSTALL_BINOP_TI (ti, op_eq, octave_char_matrix_str, octave_char_matrix_str,
145 eq);
146 INSTALL_BINOP_TI (ti, op_eq, octave_char_matrix_str, octave_char_matrix_sq_str,
147 eq);
148 INSTALL_BINOP_TI (ti, op_eq, octave_char_matrix_sq_str, octave_char_matrix_str,
149 eq);
150 INSTALL_BINOP_TI (ti, op_eq, octave_char_matrix_sq_str,
151 octave_char_matrix_sq_str,
152 eq);
153
154 INSTALL_BINOP_TI (ti, op_ge, octave_char_matrix_str, octave_char_matrix_str,
155 ge);
156 INSTALL_BINOP_TI (ti, op_ge, octave_char_matrix_str, octave_char_matrix_sq_str,
157 ge);
158 INSTALL_BINOP_TI (ti, op_ge, octave_char_matrix_sq_str, octave_char_matrix_str,
159 ge);
160 INSTALL_BINOP_TI (ti, op_ge, octave_char_matrix_sq_str,
161 octave_char_matrix_sq_str,
162 ge);
163
164 INSTALL_BINOP_TI (ti, op_gt, octave_char_matrix_str, octave_char_matrix_str,
165 gt);
166 INSTALL_BINOP_TI (ti, op_gt, octave_char_matrix_str, octave_char_matrix_sq_str,
167 gt);
168 INSTALL_BINOP_TI (ti, op_gt, octave_char_matrix_sq_str, octave_char_matrix_str,
169 gt);
170 INSTALL_BINOP_TI (ti, op_gt, octave_char_matrix_sq_str,
171 octave_char_matrix_sq_str,
172 gt);
173
174 INSTALL_BINOP_TI (ti, op_ne, octave_char_matrix_str, octave_char_matrix_str,
175 ne);
176 INSTALL_BINOP_TI (ti, op_ne, octave_char_matrix_str, octave_char_matrix_sq_str,
177 ne);
178 INSTALL_BINOP_TI (ti, op_ne, octave_char_matrix_sq_str, octave_char_matrix_str,
179 ne);
180 INSTALL_BINOP_TI (ti, op_ne, octave_char_matrix_sq_str,
181 octave_char_matrix_sq_str,
182 ne);
183
184 INSTALL_CATOP_TI (ti, octave_char_matrix_str, octave_char_matrix_str, str_str);
185 INSTALL_CATOP_TI (ti, octave_char_matrix_str, octave_char_matrix_sq_str,
186 str_str);
187 INSTALL_CATOP_TI (ti, octave_char_matrix_sq_str, octave_char_matrix_str,
188 str_str);
189 INSTALL_CATOP_TI (ti, octave_char_matrix_sq_str, octave_char_matrix_sq_str,
190 str_str);
191
192 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_str,
193 octave_char_matrix_str,
194 assign);
195 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_str,
196 octave_char_matrix_sq_str,
197 assign);
198 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_sq_str,
199 octave_char_matrix_str,
200 assign);
201 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_sq_str,
202 octave_char_matrix_sq_str, assign);
203
204 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_str, octave_null_matrix,
205 null_assign);
206 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_str, octave_null_str,
207 null_assign);
208 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_str, octave_null_sq_str,
209 null_assign);
210 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_sq_str,
211 octave_null_matrix,
212 null_assign);
213 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_sq_str, octave_null_str,
214 null_assign);
215 INSTALL_ASSIGNOP_TI (ti, op_asn_eq, octave_char_matrix_sq_str,
216 octave_null_sq_str,
217 null_assign);
218
219}
220
221OCTAVE_END_NAMESPACE(octave)
concat
ComplexNDArray concat(NDArray &ra, ComplexNDArray &rb, const Array< octave_idx_type > &ra_idx)
Definition CNDArray.cc:418
mx_el_le
boolMatrix mx_el_le(const boolMatrix &m1, const boolMatrix &m2)
Definition boolMatrix.cc:91
mx_el_ne
boolMatrix mx_el_ne(const boolMatrix &m1, const boolMatrix &m2)
Definition boolMatrix.cc:91
mx_el_gt
boolMatrix mx_el_gt(const boolMatrix &m1, const boolMatrix &m2)
Definition boolMatrix.cc:91
mx_el_eq
boolMatrix mx_el_eq(const boolMatrix &m1, const boolMatrix &m2)
Definition boolMatrix.cc:91
mx_el_lt
boolMatrix mx_el_lt(const boolMatrix &m1, const boolMatrix &m2)
Definition boolMatrix.cc:91
mx_el_ge
boolMatrix mx_el_ge(const boolMatrix &m1, const boolMatrix &m2)
Definition boolMatrix.cc:91
octave_char_matrix_sq_str
Definition ov-str-mat.h:188
octave_char_matrix_str
Definition ov-str-mat.h:52
octave_char_matrix::char_array_value
charNDArray char_array_value(bool=false) const
Definition ov-ch-mat.h:146
octave_null_matrix
Definition ov-null-mat.h:45
octave_null_sq_str
Definition ov-null-mat.h:87
octave_null_str
Definition ov-null-mat.h:65
octave_value
Definition ov.h:75
OCTAVE_BEGIN_NAMESPACE
OCTAVE_BEGIN_NAMESPACE(octave) static octave_value daspk_fcn
error
void error(const char *fmt,...)
Definition error.cc:1003
a2
const octave_base_value & a2
Definition op-int-concat.cc:170
v2
const octave_char_matrix & v2
Definition op-int-concat.cc:170
DEFCHARNDBINOP_FN
#define DEFCHARNDBINOP_FN(name, op, t1, t2, e1, e2, f)
Definition op-str-str.cc:55
install_str_str_ops
void install_str_str_ops(octave::type_info &ti)
Definition op-str-str.cc:116
DEFNULLASSIGNOP_FN
#define DEFNULLASSIGNOP_FN(name, t, f)
Definition ops.h:115
DEFASSIGNOP
#define DEFASSIGNOP(name, t1, t2)
Definition ops.h:96
OCTAVE_CAST_BASE_VALUE
#define OCTAVE_CAST_BASE_VALUE(T, T_VAL, BASE_VAL)
Definition ops.h:52
INSTALL_BINOP_TI
#define INSTALL_BINOP_TI(ti, op, t1, t2, f)
Definition ops.h:70
DEFUNOP
#define DEFUNOP(name, t)
Definition ops.h:197
INSTALL_CATOP_TI
#define INSTALL_CATOP_TI(ti, t1, t2, f)
Definition ops.h:75
INSTALL_UNOP_TI
#define INSTALL_UNOP_TI(ti, op, t, f)
Definition ops.h:62
INSTALL_ASSIGNOP_TI
#define INSTALL_ASSIGNOP_TI(ti, op, t1, t2, f)
Definition ops.h:79
DEFNDCHARCATOP_FN
#define DEFNDCHARCATOP_FN(name, t1, t2, f)
Definition ops.h:379
op_ne
octave_value op_ne(const octave_value &a1, const octave_value &a2)
Definition ov.h:1691
op_gt
octave_value op_gt(const octave_value &a1, const octave_value &a2)
Definition ov.h:1690
op_transpose
octave_value op_transpose(const octave_value &a)
Definition ov.h:1652
op_hermitian
octave_value op_hermitian(const octave_value &a)
Definition ov.h:1653
op_le
octave_value op_le(const octave_value &a1, const octave_value &a2)
Definition ov.h:1687
op_eq
octave_value op_eq(const octave_value &a1, const octave_value &a2)
Definition ov.h:1688
op_ge
octave_value op_ge(const octave_value &a1, const octave_value &a2)
Definition ov.h:1689
op_lt
octave_value op_lt(const octave_value &a1, const octave_value &a2)
Definition ov.h:1686