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