|
4905
|
1 /* |
|
|
2 |
|
7017
|
3 Copyright (C) 1996, 1997, 2004, 2005, 2006, 2007 John W. Eaton |
|
4905
|
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 the |
|
7016
|
9 Free Software Foundation; either version 3 of the License, or (at your |
|
|
10 option) any later version. |
|
4905
|
11 |
|
|
12 Octave is distributed in the hope that it will be useful, but WITHOUT |
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
|
15 for more details. |
|
|
16 |
|
|
17 You should have received a copy of the GNU General Public License |
|
7016
|
18 along with Octave; see the file COPYING. If not, see |
|
|
19 <http://www.gnu.org/licenses/>. |
|
4905
|
20 |
|
|
21 */ |
|
|
22 |
|
4952
|
23 #include "quit.h" |
|
|
24 |
|
5075
|
25 #define OCTAVE_CONCAT_FN2(T1, T2) \ |
|
|
26 DEFNDCATOP_FN2 (T1 ## _ ## T2 ## _s_s, T1 ## _scalar, T2 ## _scalar, , T1 ## NDArray, T1 ## _array, T2 ## _array, concat) \ |
|
|
27 DEFNDCATOP_FN2 (T1 ## _ ## T2 ## _s_m, T1 ## _scalar, T2 ## _matrix, , T1 ## NDArray, T1 ## _array, T2 ## _array, concat) \ |
|
|
28 DEFNDCATOP_FN2 (T1 ## _ ## T2 ## _m_s, T1 ## _matrix, T2 ## _scalar, , T1 ## NDArray, T1 ## _array, T2 ## _array, concat) \ |
|
|
29 DEFNDCATOP_FN2 (T1 ## _ ## T2 ## _m_m, T1 ## _matrix, T2 ## _matrix, , T1 ## NDArray, T1 ## _array, T2 ## _array, concat) |
|
|
30 |
|
|
31 #define OCTAVE_INSTALL_CONCAT_FN2(T1, T2) \ |
|
|
32 INSTALL_CATOP (octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, T1 ## _ ## T2 ## _s_s) \ |
|
|
33 INSTALL_CATOP (octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, T1 ## _ ## T2 ## _s_m) \ |
|
|
34 INSTALL_CATOP (octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, T1 ## _ ## T2 ## _m_s) \ |
|
|
35 INSTALL_CATOP (octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, T1 ## _ ## T2 ## _m_m) |
|
|
36 |
|
|
37 #define OCTAVE_DOUBLE_INT_CONCAT_FN(TYPE) \ |
|
|
38 DEFNDCATOP_FN2 (double ## _ ## TYPE ## _s_s, scalar, TYPE ## _scalar, TYPE ## NDArray, , array, TYPE ## _array, concat) \ |
|
|
39 DEFNDCATOP_FN2 (double ## _ ## TYPE ## _s_m, scalar, TYPE ## _matrix, TYPE ## NDArray, , array, TYPE ## _array, concat) \ |
|
|
40 DEFNDCATOP_FN2 (double ## _ ## TYPE ## _m_s, matrix, TYPE ## _scalar, TYPE ## NDArray, , array, TYPE ## _array, concat) \ |
|
|
41 DEFNDCATOP_FN2 (double ## _ ## TYPE ## _m_m, matrix, TYPE ## _matrix, TYPE ## NDArray, , array, TYPE ## _array, concat) |
|
|
42 |
|
|
43 #define OCTAVE_INSTALL_DOUBLE_INT_CONCAT_FN(TYPE) \ |
|
|
44 INSTALL_CATOP (octave_scalar, octave_ ## TYPE ## _scalar, double ## _ ## TYPE ## _s_s) \ |
|
|
45 INSTALL_CATOP (octave_scalar, octave_ ## TYPE ## _matrix, double ## _ ## TYPE ## _s_m) \ |
|
|
46 INSTALL_CATOP (octave_matrix, octave_ ## TYPE ## _scalar, double ## _ ## TYPE ## _m_s) \ |
|
|
47 INSTALL_CATOP (octave_matrix, octave_ ## TYPE ## _matrix, double ## _ ## TYPE ## _m_m) |
|
|
48 |
|
|
49 #define OCTAVE_INT_DOUBLE_CONCAT_FN(TYPE) \ |
|
|
50 DEFNDCATOP_FN2 (TYPE ## _ ## double ## _s_s, TYPE ## _scalar, scalar, , TYPE ## NDArray, TYPE ## _array, array, concat) \ |
|
|
51 DEFNDCATOP_FN2 (TYPE ## _ ## double ## _s_m, TYPE ## _scalar, matrix, , TYPE ## NDArray, TYPE ## _array, array, concat) \ |
|
|
52 DEFNDCATOP_FN2 (TYPE ## _ ## double ## _m_s, TYPE ## _matrix, scalar, , TYPE ## NDArray, TYPE ## _array, array, concat) \ |
|
|
53 DEFNDCATOP_FN2 (TYPE ## _ ## double ## _m_m, TYPE ## _matrix, matrix, , TYPE ## NDArray, TYPE ## _array, array, concat) |
|
|
54 |
|
|
55 #define OCTAVE_INSTALL_INT_DOUBLE_CONCAT_FN(TYPE) \ |
|
|
56 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_scalar, TYPE ## _ ## double ## _s_s) \ |
|
|
57 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_matrix, TYPE ## _ ## double ## _s_m) \ |
|
|
58 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_scalar, TYPE ## _ ## double ## _m_s) \ |
|
|
59 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_matrix, TYPE ## _ ## double ## _m_m) |
|
|
60 |
|
5533
|
61 // For compatibility, concatenation with a character always returns a |
|
|
62 // character. |
|
|
63 |
|
|
64 #define OCTAVE_CHAR_INT_CONCAT_FN(TYPE) \ |
|
|
65 DEFNDCHARCATOP_FN (char ## _ ## TYPE ## _m_s, char_matrix, TYPE ## _scalar, concat) \ |
|
|
66 DEFNDCHARCATOP_FN (char ## _ ## TYPE ## _m_m, char_matrix, TYPE ## _matrix, concat) |
|
|
67 |
|
|
68 #define OCTAVE_INSTALL_CHAR_INT_CONCAT_FN(TYPE) \ |
|
|
69 INSTALL_CATOP (octave_char_matrix_str, octave_ ## TYPE ## _scalar, char ## _ ## TYPE ## _m_s) \ |
|
|
70 INSTALL_CATOP (octave_char_matrix_str, octave_ ## TYPE ## _matrix, char ## _ ## TYPE ## _m_m) \ |
|
|
71 INSTALL_CATOP (octave_char_matrix_sq_str, octave_ ## TYPE ## _scalar, char ## _ ## TYPE ## _m_s) \ |
|
|
72 INSTALL_CATOP (octave_char_matrix_sq_str, octave_ ## TYPE ## _matrix, char ## _ ## TYPE ## _m_m) |
|
|
73 |
|
|
74 #define OCTAVE_INT_CHAR_CONCAT_FN(TYPE) \ |
|
|
75 DEFNDCHARCATOP_FN (TYPE ## _ ## char ## _s_m, TYPE ## _scalar, char_matrix, concat) \ |
|
|
76 DEFNDCHARCATOP_FN (TYPE ## _ ## char ## _m_m, TYPE ## _matrix, char_matrix, concat) |
|
|
77 |
|
|
78 #define OCTAVE_INSTALL_INT_CHAR_CONCAT_FN(TYPE) \ |
|
|
79 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_char_matrix_str, TYPE ## _ ## char ## _s_m) \ |
|
|
80 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_char_matrix_str, TYPE ## _ ## char ## _m_m) \ |
|
|
81 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_char_matrix_sq_str, TYPE ## _ ## char ## _s_m) \ |
|
|
82 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_char_matrix_sq_str, TYPE ## _ ## char ## _m_m) |
|
|
83 |
|
4915
|
84 #define OCTAVE_CONCAT_FN(TYPE) \ |
|
|
85 DEFNDCATOP_FN (TYPE ## _s_s, TYPE ## _scalar, TYPE ## _scalar, TYPE ## _array, TYPE ## _array, concat) \ |
|
|
86 DEFNDCATOP_FN (TYPE ## _s_m, TYPE ## _scalar, TYPE ## _matrix, TYPE ## _array, TYPE ## _array, concat) \ |
|
|
87 DEFNDCATOP_FN (TYPE ## _m_s, TYPE ## _matrix, TYPE ## _scalar, TYPE ## _array, TYPE ## _array, concat) \ |
|
|
88 DEFNDCATOP_FN (TYPE ## _m_m, TYPE ## _matrix, TYPE ## _matrix, TYPE ## _array, TYPE ## _array, concat) |
|
|
89 |
|
|
90 #define OCTAVE_INSTALL_CONCAT_FN(TYPE) \ |
|
|
91 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _scalar, TYPE ## _s_s) \ |
|
|
92 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix, TYPE ## _s_m) \ |
|
|
93 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _scalar, TYPE ## _m_s) \ |
|
|
94 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _matrix, TYPE ## _m_m) |
|
|
95 |
|
4905
|
96 #define OCTAVE_S_INT_UNOPS(TYPE) \ |
|
|
97 /* scalar unary ops. */ \ |
|
|
98 \ |
|
|
99 DEFUNOP_OP (s_not, TYPE ## _scalar, !) \ |
|
4965
|
100 DEFUNOP_OP (s_uplus, TYPE ## _scalar, /* no-op */) \ |
|
4905
|
101 DEFUNOP_OP (s_uminus, TYPE ## _scalar, -) \ |
|
|
102 DEFUNOP_OP (s_transpose, TYPE ## _scalar, /* no-op */) \ |
|
|
103 DEFUNOP_OP (s_hermitian, TYPE ## _scalar, /* no-op */) \ |
|
|
104 \ |
|
5829
|
105 DEFNCUNOP_METHOD (s_incr, TYPE ## _scalar, increment) \ |
|
|
106 DEFNCUNOP_METHOD (s_decr, TYPE ## _scalar, decrement) |
|
4905
|
107 |
|
4953
|
108 #define OCTAVE_SS_INT_ARITH_OPS(PFX, T1, T2) \ |
|
4905
|
109 /* scalar by scalar ops. */ \ |
|
|
110 \ |
|
4953
|
111 DEFBINOP_OP (PFX ## _add, T1 ## scalar, T2 ## scalar, +) \ |
|
|
112 DEFBINOP_OP (PFX ## _sub, T1 ## scalar, T2 ## scalar, -) \ |
|
|
113 DEFBINOP_OP (PFX ## _mul, T1 ## scalar, T2 ## scalar, *) \ |
|
4905
|
114 \ |
|
4953
|
115 DEFBINOP (PFX ## _div, T1 ## scalar, T2 ## scalar) \ |
|
4905
|
116 { \ |
|
4953
|
117 CAST_BINOP_ARGS (const octave_ ## T1 ## scalar&, const octave_ ## T2 ## scalar&); \ |
|
4905
|
118 \ |
|
4953
|
119 if (! v2.T2 ## scalar_value ()) \ |
|
4905
|
120 gripe_divide_by_zero (); \ |
|
|
121 \ |
|
4953
|
122 return octave_value (v1.T1 ## scalar_value () / v2.T2 ## scalar_value ()); \ |
|
4905
|
123 } \ |
|
|
124 \ |
|
4953
|
125 DEFBINOP_FN (PFX ## _pow, T1 ## scalar, T2 ## scalar, xpow) \ |
|
4905
|
126 \ |
|
4953
|
127 DEFBINOP (PFX ## _ldiv, T1 ## scalar, T2 ## scalar) \ |
|
4905
|
128 { \ |
|
4953
|
129 CAST_BINOP_ARGS (const octave_ ## T1 ## scalar&, const octave_ ## T2 ## scalar&); \ |
|
4905
|
130 \ |
|
4953
|
131 if (! v1.T1 ## scalar_value ()) \ |
|
4905
|
132 gripe_divide_by_zero (); \ |
|
|
133 \ |
|
4953
|
134 return octave_value (v2.T2 ## scalar_value () / v1.T1 ## scalar_value ()); \ |
|
|
135 } \ |
|
|
136 \ |
|
|
137 DEFBINOP_OP (PFX ## _el_mul, T1 ## scalar, T2 ## scalar, *) \ |
|
|
138 \ |
|
|
139 DEFBINOP (PFX ## _el_div, T1 ## scalar, T2 ## scalar) \ |
|
|
140 { \ |
|
|
141 CAST_BINOP_ARGS (const octave_ ## T1 ## scalar&, const octave_ ## T2 ## scalar&); \ |
|
|
142 \ |
|
|
143 if (! v2.T2 ## scalar_value ()) \ |
|
|
144 gripe_divide_by_zero (); \ |
|
|
145 \ |
|
|
146 return octave_value (v1.T1 ## scalar_value () / v2.T2 ## scalar_value ()); \ |
|
4905
|
147 } \ |
|
|
148 \ |
|
4953
|
149 DEFBINOP_FN (PFX ## _el_pow, T1 ## scalar, T2 ## scalar, xpow) \ |
|
4905
|
150 \ |
|
4953
|
151 DEFBINOP (PFX ## _el_ldiv, T1 ## scalar, T2 ## scalar) \ |
|
4905
|
152 { \ |
|
4953
|
153 CAST_BINOP_ARGS (const octave_ ## T1 ## scalar&, const octave_ ## T2 ## scalar&); \ |
|
4905
|
154 \ |
|
4953
|
155 if (! v1.T1 ## scalar_value ()) \ |
|
4905
|
156 gripe_divide_by_zero (); \ |
|
|
157 \ |
|
4953
|
158 return octave_value (v2.T2 ## scalar_value () / v1.T1 ## scalar_value ()); \ |
|
|
159 } \ |
|
|
160 |
|
5030
|
161 #define OCTAVE_SS_INT_BOOL_OPS(PFX, T1, T2, Z1, Z2) \ |
|
4964
|
162 DEFBINOP (PFX ## _el_and, T2, T2) \ |
|
|
163 { \ |
|
|
164 CAST_BINOP_ARGS (const octave_ ## T1 ## scalar&, const octave_ ## T2 ## scalar&); \ |
|
|
165 \ |
|
5030
|
166 return v1.T1 ## scalar_value () != Z1 && v2.T2 ## scalar_value () != Z2; \ |
|
4964
|
167 } \ |
|
|
168 \ |
|
|
169 DEFBINOP (PFX ## _el_or, T1, T2) \ |
|
|
170 { \ |
|
|
171 CAST_BINOP_ARGS (const octave_ ## T1 ## scalar&, const octave_ ## T2 ## scalar&); \ |
|
|
172 \ |
|
5030
|
173 return v1.T1 ## scalar_value () != Z1 || v2.T2 ## scalar_value () != Z2; \ |
|
4964
|
174 } |
|
4953
|
175 |
|
|
176 #define OCTAVE_SS_INT_CMP_OPS(PFX, T1, T2) \ |
|
|
177 DEFBINOP_OP (PFX ## _lt, T1 ## scalar, T2 ## scalar, <) \ |
|
|
178 DEFBINOP_OP (PFX ## _le, T1 ## scalar, T2 ## scalar, <=) \ |
|
|
179 DEFBINOP_OP (PFX ## _eq, T1 ## scalar, T2 ## scalar, ==) \ |
|
|
180 DEFBINOP_OP (PFX ## _ge, T1 ## scalar, T2 ## scalar, >=) \ |
|
|
181 DEFBINOP_OP (PFX ## _gt, T1 ## scalar, T2 ## scalar, >) \ |
|
|
182 DEFBINOP_OP (PFX ## _ne, T1 ## scalar, T2 ## scalar, !=) |
|
|
183 |
|
|
184 #define OCTAVE_SS_POW_OPS(T1, T2) \ |
|
|
185 octave_value \ |
|
|
186 xpow (const octave_ ## T1& a, const octave_ ## T2& b) \ |
|
|
187 { \ |
|
|
188 return pow (a, b); \ |
|
4905
|
189 } \ |
|
|
190 \ |
|
4953
|
191 octave_value \ |
|
|
192 xpow (const octave_ ## T1& a, double b) \ |
|
4905
|
193 { \ |
|
4953
|
194 return pow (a, b); \ |
|
4905
|
195 } \ |
|
4953
|
196 \ |
|
|
197 octave_value \ |
|
|
198 xpow (double a, const octave_ ## T1& b) \ |
|
|
199 { \ |
|
|
200 return pow (a, b); \ |
|
|
201 } |
|
4952
|
202 |
|
4905
|
203 #define OCTAVE_SS_INT_OPS(TYPE) \ |
|
|
204 OCTAVE_S_INT_UNOPS (TYPE) \ |
|
4952
|
205 OCTAVE_SS_POW_OPS (TYPE, TYPE) \ |
|
4953
|
206 OCTAVE_SS_INT_ARITH_OPS (ss, TYPE ## _, TYPE ## _) \ |
|
|
207 OCTAVE_SS_INT_ARITH_OPS (sx, TYPE ## _, ) \ |
|
|
208 OCTAVE_SS_INT_ARITH_OPS (xs, , TYPE ## _) \ |
|
|
209 OCTAVE_SS_INT_CMP_OPS (ss, TYPE ## _, TYPE ## _) \ |
|
|
210 OCTAVE_SS_INT_CMP_OPS (sx, TYPE ## _, ) \ |
|
|
211 OCTAVE_SS_INT_CMP_OPS (xs, , TYPE ## _) \ |
|
5030
|
212 OCTAVE_SS_INT_BOOL_OPS (ss, TYPE ## _, TYPE ## _, octave_ ## TYPE (0), octave_ ## TYPE (0)) \ |
|
|
213 OCTAVE_SS_INT_BOOL_OPS (sx, TYPE ## _, , octave_ ## TYPE (0), 0) \ |
|
|
214 OCTAVE_SS_INT_BOOL_OPS (xs, , TYPE ## _, 0, octave_ ## TYPE (0)) |
|
4905
|
215 |
|
4953
|
216 #define OCTAVE_SM_INT_ARITH_OPS(PFX, TS, TM) \ |
|
4905
|
217 /* scalar by matrix ops. */ \ |
|
|
218 \ |
|
4953
|
219 DEFNDBINOP_OP (PFX ## _add, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, +) \ |
|
|
220 DEFNDBINOP_OP (PFX ## _sub, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, -) \ |
|
|
221 DEFNDBINOP_OP (PFX ## _mul, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, *) \ |
|
4905
|
222 \ |
|
4953
|
223 /* DEFBINOP (PFX ## _div, TS ## scalar, TM ## matrix) */ \ |
|
4905
|
224 /* { */ \ |
|
4953
|
225 /* CAST_BINOP_ARGS (const octave_ ## TS ## scalar&, const octave_ ## TM ## matrix&); */ \ |
|
4905
|
226 /* */ \ |
|
4953
|
227 /* Matrix m1 = v1.TM ## matrix_value (); */ \ |
|
|
228 /* Matrix m2 = v2.TM ## matrix_value (); */ \ |
|
4905
|
229 /* */ \ |
|
|
230 /* return octave_value (xdiv (m1, m2)); */ \ |
|
|
231 /* } */ \ |
|
|
232 \ |
|
4953
|
233 /* DEFBINOP_FN (PFX ## _pow, TS ## scalar, TM ## matrix, xpow) */ \ |
|
|
234 \ |
|
|
235 DEFBINOP (PFX ## _ldiv, TS ## scalar, TM ## matrix) \ |
|
|
236 { \ |
|
|
237 CAST_BINOP_ARGS (const octave_ ## TS ## scalar&, const octave_ ## TM ## matrix&); \ |
|
4905
|
238 \ |
|
4953
|
239 if (! v1.TS ## scalar_value ()) \ |
|
|
240 gripe_divide_by_zero (); \ |
|
4905
|
241 \ |
|
4953
|
242 return octave_value (v2.TS ## scalar_value () / v1.TS ## scalar_value ()); \ |
|
|
243 } \ |
|
|
244 \ |
|
|
245 DEFNDBINOP_OP (PFX ## _el_mul, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, *) \ |
|
|
246 /* DEFNDBINOP_FN (PFX ## _el_div, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, x_el_div) */ \ |
|
|
247 DEFNDBINOP_FN (PFX ## _el_pow, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, elem_xpow) \ |
|
4905
|
248 \ |
|
4953
|
249 DEFBINOP (PFX ## _el_ldiv, TS ## scalar, TM ## matrix) \ |
|
|
250 { \ |
|
|
251 CAST_BINOP_ARGS (const octave_ ## TS ## scalar&, const octave_ ## TM ## matrix&); \ |
|
|
252 \ |
|
|
253 if (! v1.TS ## scalar_value ()) \ |
|
|
254 gripe_divide_by_zero (); \ |
|
|
255 \ |
|
|
256 return octave_value (v2.TM ## array_value () / v1.TS ## scalar_value ()); \ |
|
|
257 } |
|
4905
|
258 |
|
4953
|
259 #define OCTAVE_SM_INT_CMP_OPS(PFX, TS, TM) \ |
|
|
260 DEFNDBINOP_FN (PFX ## _lt, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_lt) \ |
|
|
261 DEFNDBINOP_FN (PFX ## _le, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_le) \ |
|
|
262 DEFNDBINOP_FN (PFX ## _eq, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_eq) \ |
|
|
263 DEFNDBINOP_FN (PFX ## _ge, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_ge) \ |
|
|
264 DEFNDBINOP_FN (PFX ## _gt, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_gt) \ |
|
|
265 DEFNDBINOP_FN (PFX ## _ne, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_ne) |
|
4905
|
266 |
|
4953
|
267 #define OCTAVE_SM_INT_BOOL_OPS(PFX, TS, TM) \ |
|
4964
|
268 DEFNDBINOP_FN (PFX ## _el_and, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_and) \ |
|
|
269 DEFNDBINOP_FN (PFX ## _el_or, TS ## scalar, TM ## matrix, TS ## scalar, TM ## array, mx_el_or) |
|
4905
|
270 |
|
4952
|
271 #define OCTAVE_SM_POW_OPS(T1, T2) \ |
|
4953
|
272 octave_value \ |
|
|
273 elem_xpow (const octave_ ## T1& a, const T2 ## NDArray& b) \ |
|
|
274 { \ |
|
|
275 T2 ## NDArray result (b.dims ()); \ |
|
|
276 for (int i = 0; i < b.length (); i++) \ |
|
|
277 { \ |
|
|
278 OCTAVE_QUIT; \ |
|
|
279 result (i) = pow (a, b(i)); \ |
|
|
280 } \ |
|
|
281 return octave_value (result); \ |
|
|
282 } |
|
4952
|
283 |
|
4963
|
284 #define OCTAVE_SM_CONV(TS, TM) \ |
|
|
285 DEFCONV (TS ## s_ ## TM ## m_conv, TM ## scalar, TM ## matrix) \ |
|
|
286 { \ |
|
|
287 CAST_CONV_ARG (const octave_ ## TS ## scalar&); \ |
|
|
288 \ |
|
|
289 return new octave_ ## TM ## matrix (v.TM ## array_value ()); \ |
|
|
290 } |
|
|
291 |
|
4905
|
292 #define OCTAVE_SM_INT_OPS(TYPE) \ |
|
4952
|
293 OCTAVE_SM_POW_OPS (TYPE, TYPE) \ |
|
4953
|
294 OCTAVE_SM_INT_ARITH_OPS (sm, TYPE ## _, TYPE ## _) \ |
|
|
295 OCTAVE_SM_INT_ARITH_OPS (xm, , TYPE ## _) \ |
|
|
296 OCTAVE_SM_INT_CMP_OPS (sm, TYPE ## _, TYPE ## _) \ |
|
|
297 OCTAVE_SM_INT_CMP_OPS (xm, , TYPE ## _) \ |
|
4964
|
298 OCTAVE_SM_INT_CMP_OPS (smx, TYPE ## _, ) \ |
|
4953
|
299 OCTAVE_SM_INT_BOOL_OPS (sm, TYPE ## _, TYPE ## _) \ |
|
|
300 OCTAVE_SM_INT_BOOL_OPS (xm, , TYPE ## _) \ |
|
4964
|
301 OCTAVE_SM_INT_BOOL_OPS (smx, TYPE ## _, ) \ |
|
4963
|
302 OCTAVE_SM_CONV (TYPE ## _, TYPE ## _) \ |
|
|
303 OCTAVE_SM_CONV (TYPE ## _, complex_) |
|
4905
|
304 |
|
4953
|
305 #define OCTAVE_MS_INT_ARITH_OPS(PFX, TM, TS) \ |
|
4905
|
306 /* matrix by scalar ops. */ \ |
|
|
307 \ |
|
4953
|
308 DEFNDBINOP_OP (PFX ## _add, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, +) \ |
|
|
309 DEFNDBINOP_OP (PFX ## _sub, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, -) \ |
|
|
310 DEFNDBINOP_OP (PFX ## _mul, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, *) \ |
|
|
311 \ |
|
|
312 DEFBINOP (PFX ## _div, TM ## matrix, TS ## scalar) \ |
|
|
313 { \ |
|
|
314 CAST_BINOP_ARGS (const octave_ ## TM ## matrix&, const octave_ ## TS ## scalar&); \ |
|
4905
|
315 \ |
|
4953
|
316 if (! v2.TS ## scalar_value ()) \ |
|
|
317 gripe_divide_by_zero (); \ |
|
|
318 \ |
|
|
319 return octave_value (v1.TM ## array_value () / v2.TS ## scalar_value ()); \ |
|
|
320 } \ |
|
|
321 \ |
|
|
322 /* DEFBINOP_FN (PFX ## _pow, TM ## matrix, TS ## scalar, xpow) */ \ |
|
|
323 \ |
|
|
324 /* DEFBINOP (PFX ## _ldiv, TM ## matrix, TS ## scalar) */ \ |
|
4905
|
325 /* { */ \ |
|
4953
|
326 /* CAST_BINOP_ARGS (const octave_ ## TM ## matrix&, const octave_ ## TS ## scalar&); */ \ |
|
4905
|
327 /* */ \ |
|
4953
|
328 /* Matrix m1 = v1.TM ## matrix_value (); */ \ |
|
|
329 /* Matrix m2 = v2.TM ## matrix_value (); */ \ |
|
4905
|
330 /* */ \ |
|
|
331 /* return octave_value (xleftdiv (m1, m2)); */ \ |
|
|
332 /* } */ \ |
|
|
333 \ |
|
4953
|
334 DEFNDBINOP_OP (PFX ## _el_mul, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, *) \ |
|
|
335 \ |
|
|
336 DEFBINOP (PFX ## _el_div, TM ## matrix, TS ## scalar) \ |
|
|
337 { \ |
|
|
338 CAST_BINOP_ARGS (const octave_ ## TM ## matrix&, const octave_ ## TS ## scalar&); \ |
|
4905
|
339 \ |
|
4953
|
340 if (! v2.TS ## scalar_value ()) \ |
|
|
341 gripe_divide_by_zero (); \ |
|
|
342 \ |
|
|
343 return octave_value (v1.TM ## array_value () / v2.TS ## scalar_value ()); \ |
|
|
344 } \ |
|
|
345 \ |
|
|
346 DEFNDBINOP_FN (PFX ## _el_pow, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, elem_xpow) \ |
|
|
347 \ |
|
|
348 /* DEFBINOP (el_ldiv, TM ## matrix, TS ## scalar) */ \ |
|
4905
|
349 /* { */ \ |
|
4953
|
350 /* CAST_BINOP_ARGS (const octave_ ## TM ## matrix&, const octave_ ## TS ## scalar&); */ \ |
|
4905
|
351 /* */ \ |
|
4953
|
352 /* return x_el_div (v2.TM ## _ ## TS ## scalar_value (), v1.TM ## array_value ()); */ \ |
|
4905
|
353 /* } */ |
|
|
354 |
|
4953
|
355 #define OCTAVE_MS_INT_CMP_OPS(PFX, TM, TS) \ |
|
|
356 DEFNDBINOP_FN (PFX ## _lt, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_lt) \ |
|
|
357 DEFNDBINOP_FN (PFX ## _le, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_le) \ |
|
|
358 DEFNDBINOP_FN (PFX ## _eq, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_eq) \ |
|
|
359 DEFNDBINOP_FN (PFX ## _ge, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_ge) \ |
|
|
360 DEFNDBINOP_FN (PFX ## _gt, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_gt) \ |
|
4964
|
361 DEFNDBINOP_FN (PFX ## _ne, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_ne) |
|
4905
|
362 |
|
4953
|
363 #define OCTAVE_MS_INT_BOOL_OPS(PFX, TM, TS) \ |
|
4964
|
364 DEFNDBINOP_FN (PFX ## _el_and, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_and) \ |
|
|
365 DEFNDBINOP_FN (PFX ## _el_or, TM ## matrix, TS ## scalar, TM ## array, TS ## scalar, mx_el_or) |
|
4905
|
366 |
|
4953
|
367 #define OCTAVE_MS_INT_ASSIGN_OPS(PFX, TM, TS, TE) \ |
|
|
368 DEFNDASSIGNOP_FN (PFX ## _assign, TM ## matrix, TS ## scalar, TE ## array, assign) |
|
4905
|
369 |
|
4952
|
370 #define OCTAVE_MS_POW_OPS(T1, T2) \ |
|
|
371 octave_value elem_xpow (T1 ## NDArray a, octave_ ## T2 b) \ |
|
|
372 { \ |
|
|
373 T1 ## NDArray result (a.dims ()); \ |
|
|
374 for (int i = 0; i < a.length (); i++) \ |
|
|
375 { \ |
|
|
376 OCTAVE_QUIT; \ |
|
|
377 result (i) = pow (a(i), b); \ |
|
|
378 } \ |
|
|
379 return octave_value (result); \ |
|
|
380 } |
|
|
381 |
|
4905
|
382 #define OCTAVE_MS_INT_OPS(TYPE) \ |
|
4952
|
383 OCTAVE_MS_POW_OPS (TYPE, TYPE) \ |
|
4953
|
384 OCTAVE_MS_INT_ARITH_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
385 OCTAVE_MS_INT_ARITH_OPS (mx, TYPE ## _, ) \ |
|
|
386 OCTAVE_MS_INT_CMP_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
387 OCTAVE_MS_INT_CMP_OPS (mx, TYPE ## _, ) \ |
|
4964
|
388 OCTAVE_MS_INT_CMP_OPS (mxs, , TYPE ## _) \ |
|
4953
|
389 OCTAVE_MS_INT_BOOL_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
390 OCTAVE_MS_INT_BOOL_OPS (mx, TYPE ## _, ) \ |
|
4964
|
391 OCTAVE_MS_INT_BOOL_OPS (mxs, , TYPE ## _) \ |
|
4953
|
392 OCTAVE_MS_INT_ASSIGN_OPS (ms, TYPE ## _, TYPE ## _, TYPE ## _) \ |
|
4963
|
393 OCTAVE_MS_INT_ASSIGN_OPS (mx, TYPE ## _, , ) |
|
4905
|
394 |
|
|
395 #define OCTAVE_M_INT_UNOPS(TYPE) \ |
|
|
396 /* matrix unary ops. */ \ |
|
|
397 \ |
|
|
398 DEFNDUNOP_OP (m_not, TYPE ## _matrix, TYPE ## _array, !) \ |
|
4965
|
399 DEFNDUNOP_OP (m_uplus, TYPE ## _matrix, TYPE ## _array, /* no-op */) \ |
|
4905
|
400 DEFNDUNOP_OP (m_uminus, TYPE ## _matrix, TYPE ## _array, -) \ |
|
|
401 \ |
|
|
402 DEFUNOP (m_transpose, TYPE ## _matrix) \ |
|
|
403 { \ |
|
|
404 CAST_UNOP_ARG (const octave_ ## TYPE ## _matrix&); \ |
|
|
405 \ |
|
|
406 if (v.ndims () > 2) \ |
|
|
407 { \ |
|
|
408 error ("transpose not defined for N-d objects"); \ |
|
|
409 return octave_value (); \ |
|
|
410 } \ |
|
|
411 else \ |
|
|
412 return octave_value (v.TYPE ## _array_value().transpose ()); \ |
|
|
413 } \ |
|
|
414 \ |
|
5829
|
415 DEFNCUNOP_METHOD (m_incr, TYPE ## _matrix, increment) \ |
|
|
416 DEFNCUNOP_METHOD (m_decr, TYPE ## _matrix, decrement) |
|
4905
|
417 |
|
|
418 #define OCTAVE_MM_INT_ARITH_OPS(T1, T2) \ |
|
|
419 /* matrix by matrix ops. */ \ |
|
|
420 \ |
|
|
421 DEFNDBINOP_OP (mm_add, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, +) \ |
|
|
422 DEFNDBINOP_OP (mm_sub, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, -) \ |
|
|
423 \ |
|
|
424 /* DEFBINOP_OP (mm_mul, T1 ## _matrix, T2 ## _matrix, *) */ \ |
|
|
425 /* DEFBINOP_FN (mm_div, T1 ## _matrix, T2 ## _matrix, xdiv) */ \ |
|
|
426 \ |
|
|
427 DEFBINOPX (mm_pow, T1 ## _matrix, T2 ## _matrix) \ |
|
|
428 { \ |
|
|
429 error ("can't do A ^ B for A and B both matrices"); \ |
|
|
430 return octave_value (); \ |
|
|
431 } \ |
|
|
432 \ |
|
|
433 /* DEFBINOP_FN (ldiv, T1 ## _matrix, T2 ## _matrix, xleftdiv) */ \ |
|
|
434 \ |
|
|
435 DEFNDBINOP_FN (mm_el_mul, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, product) \ |
|
|
436 \ |
|
|
437 DEFNDBINOP_FN (mm_el_div, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, quotient) \ |
|
|
438 \ |
|
4952
|
439 DEFNDBINOP_FN (mm_el_pow, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, elem_xpow) \ |
|
4905
|
440 \ |
|
|
441 /* DEFBINOP (mm_el_ldiv, T1 ## _matrix, T2 ## _matrix) */ \ |
|
|
442 /* { */ \ |
|
4953
|
443 /* CAST_BINOP_ARGS (const octavematrix&, const octavematrix&); */ \ |
|
4905
|
444 /* */ \ |
|
|
445 /* return octave_value (quotient (v2.array_value (), v1.array_value ())); */ \ |
|
|
446 /* } */ |
|
|
447 |
|
4964
|
448 #define OCTAVE_MM_INT_CMP_OPS(PFX, T1, T2) \ |
|
|
449 DEFNDBINOP_FN (PFX ## _lt, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_lt) \ |
|
|
450 DEFNDBINOP_FN (PFX ## _le, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_le) \ |
|
|
451 DEFNDBINOP_FN (PFX ## _eq, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_eq) \ |
|
|
452 DEFNDBINOP_FN (PFX ## _ge, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_ge) \ |
|
|
453 DEFNDBINOP_FN (PFX ## _gt, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_gt) \ |
|
|
454 DEFNDBINOP_FN (PFX ## _ne, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_ne) |
|
4905
|
455 |
|
4964
|
456 #define OCTAVE_MM_INT_BOOL_OPS(PFX, T1, T2) \ |
|
|
457 DEFNDBINOP_FN (PFX ## _el_and, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_and) \ |
|
|
458 DEFNDBINOP_FN (PFX ## _el_or, T1 ## matrix, T2 ## matrix, T1 ## array, T2 ## array, mx_el_or) |
|
4905
|
459 |
|
4953
|
460 #define OCTAVE_MM_INT_ASSIGN_OPS(PFX, TLHS, TRHS, TE) \ |
|
|
461 DEFNDASSIGNOP_FN (PFX ## _assign, TLHS ## matrix, TRHS ## matrix, TE ## array, assign) |
|
4905
|
462 |
|
4952
|
463 #define OCTAVE_MM_POW_OPS(T1, T2) \ |
|
4953
|
464 octave_value \ |
|
|
465 elem_xpow (const T1 ## NDArray& a, const T2 ## NDArray& b) \ |
|
|
466 { \ |
|
|
467 dim_vector a_dims = a.dims (); \ |
|
|
468 dim_vector b_dims = b.dims (); \ |
|
|
469 if (a_dims != b_dims) \ |
|
|
470 { \ |
|
|
471 gripe_nonconformant ("operator .^", a_dims, b_dims); \ |
|
|
472 return octave_value (); \ |
|
|
473 } \ |
|
|
474 T1 ## NDArray result (a_dims); \ |
|
|
475 for (int i = 0; i < a.length (); i++) \ |
|
|
476 { \ |
|
|
477 OCTAVE_QUIT; \ |
|
|
478 result (i) = pow (a(i), b(i)); \ |
|
|
479 } \ |
|
|
480 return octave_value (result); \ |
|
|
481 } |
|
4952
|
482 |
|
4964
|
483 #define OCTAVE_MM_CONV(T1, T2) \ |
|
|
484 DEFCONV (T1 ## m_ ## T2 ## m_conv, T1 ## matrix, T2 ## matrix) \ |
|
|
485 { \ |
|
|
486 CAST_CONV_ARG (const octave_ ## T1 ## matrix&); \ |
|
|
487 \ |
|
|
488 return new octave_ ## T2 ## matrix (v.T2 ## array_value ()); \ |
|
|
489 } |
|
|
490 |
|
4905
|
491 #define OCTAVE_MM_INT_OPS(TYPE) \ |
|
|
492 OCTAVE_M_INT_UNOPS (TYPE) \ |
|
4952
|
493 OCTAVE_MM_POW_OPS (TYPE, TYPE) \ |
|
4905
|
494 OCTAVE_MM_INT_ARITH_OPS (TYPE, TYPE) \ |
|
4964
|
495 OCTAVE_MM_INT_CMP_OPS (mm, TYPE ## _, TYPE ## _) \ |
|
|
496 OCTAVE_MM_INT_CMP_OPS (mmx, TYPE ## _, ) \ |
|
5038
|
497 OCTAVE_MM_INT_CMP_OPS (mxm, , TYPE ## _) \ |
|
4964
|
498 OCTAVE_MM_INT_BOOL_OPS (mm, TYPE ## _, TYPE ## _) \ |
|
|
499 OCTAVE_MM_INT_BOOL_OPS (mmx, TYPE ## _, ) \ |
|
5038
|
500 OCTAVE_MM_INT_BOOL_OPS (mxm, , TYPE ## _) \ |
|
4953
|
501 OCTAVE_MM_INT_ASSIGN_OPS (mm, TYPE ## _, TYPE ## _, TYPE ## _) \ |
|
4964
|
502 OCTAVE_MM_INT_ASSIGN_OPS (mmx, TYPE ## _, , ) \ |
|
|
503 OCTAVE_MM_CONV(TYPE ## _, complex_) |
|
4905
|
504 |
|
4963
|
505 #define OCTAVE_RE_INT_ASSIGN_OPS(TYPE) \ |
|
|
506 DEFNDASSIGNOP_FN (TYPE ## ms_assign, matrix, TYPE ## _scalar, array, assign) \ |
|
|
507 DEFNDASSIGNOP_FN (TYPE ## mm_assign, matrix, TYPE ## _matrix, array, assign) |
|
|
508 |
|
|
509 #define OCTAVE_CX_INT_ASSIGN_OPS(TYPE) \ |
|
|
510 DEFNDASSIGNOP_FN (TYPE ## cms_assign, complex_matrix, TYPE ## _scalar, complex_array, assign) \ |
|
|
511 DEFNDASSIGNOP_FN (TYPE ## cmm_assign, complex_matrix, TYPE ## _matrix, complex_array, assign) |
|
|
512 |
|
4905
|
513 #define OCTAVE_INT_OPS(TYPE) \ |
|
|
514 OCTAVE_SS_INT_OPS (TYPE) \ |
|
|
515 OCTAVE_SM_INT_OPS (TYPE) \ |
|
|
516 OCTAVE_MS_INT_OPS (TYPE) \ |
|
4915
|
517 OCTAVE_MM_INT_OPS (TYPE) \ |
|
4963
|
518 OCTAVE_CONCAT_FN (TYPE) \ |
|
|
519 OCTAVE_RE_INT_ASSIGN_OPS (TYPE) \ |
|
|
520 OCTAVE_CX_INT_ASSIGN_OPS (TYPE) |
|
4905
|
521 |
|
|
522 #define OCTAVE_INSTALL_S_INT_UNOPS(TYPE) \ |
|
|
523 INSTALL_UNOP (op_not, octave_ ## TYPE ## _scalar, s_not); \ |
|
4965
|
524 INSTALL_UNOP (op_uplus, octave_ ## TYPE ## _scalar, s_uplus); \ |
|
4905
|
525 INSTALL_UNOP (op_uminus, octave_ ## TYPE ## _scalar, s_uminus); \ |
|
|
526 INSTALL_UNOP (op_transpose, octave_ ## TYPE ## _scalar, s_transpose); \ |
|
|
527 INSTALL_UNOP (op_hermitian, octave_ ## TYPE ## _scalar, s_hermitian); \ |
|
|
528 \ |
|
5829
|
529 INSTALL_NCUNOP (op_incr, octave_ ## TYPE ## _scalar, s_incr); \ |
|
|
530 INSTALL_NCUNOP (op_decr, octave_ ## TYPE ## _scalar, s_decr); |
|
4905
|
531 |
|
4953
|
532 #define OCTAVE_INSTALL_SS_INT_ARITH_OPS(PFX, T1, T2) \ |
|
|
533 INSTALL_BINOP (op_add, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _add); \ |
|
|
534 INSTALL_BINOP (op_sub, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _sub); \ |
|
|
535 INSTALL_BINOP (op_mul, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _mul); \ |
|
|
536 INSTALL_BINOP (op_div, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _div); \ |
|
|
537 INSTALL_BINOP (op_pow, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _pow); \ |
|
|
538 INSTALL_BINOP (op_ldiv, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _ldiv); \ |
|
|
539 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _el_mul); \ |
|
|
540 INSTALL_BINOP (op_el_div, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _el_div); \ |
|
|
541 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _el_pow); \ |
|
|
542 INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _el_ldiv); |
|
4905
|
543 |
|
4953
|
544 #define OCTAVE_INSTALL_SS_INT_CMP_OPS(PFX, T1, T2) \ |
|
|
545 INSTALL_BINOP (op_lt, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _lt); \ |
|
|
546 INSTALL_BINOP (op_le, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _le); \ |
|
|
547 INSTALL_BINOP (op_eq, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _eq); \ |
|
|
548 INSTALL_BINOP (op_ge, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _ge); \ |
|
|
549 INSTALL_BINOP (op_gt, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _gt); \ |
|
|
550 INSTALL_BINOP (op_ne, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _ne); |
|
4905
|
551 |
|
4953
|
552 #define OCTAVE_INSTALL_SS_INT_BOOL_OPS(PFX, T1, T2) \ |
|
4964
|
553 INSTALL_BINOP (op_el_and, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _el_and); \ |
|
|
554 INSTALL_BINOP (op_el_or, octave_ ## T1 ## scalar, octave_ ## T2 ## scalar, PFX ## _el_or); |
|
4905
|
555 |
|
|
556 #define OCTAVE_INSTALL_SS_INT_OPS(TYPE) \ |
|
|
557 OCTAVE_INSTALL_S_INT_UNOPS (TYPE) \ |
|
4953
|
558 OCTAVE_INSTALL_SS_INT_ARITH_OPS (ss, TYPE ## _, TYPE ## _) \ |
|
|
559 OCTAVE_INSTALL_SS_INT_ARITH_OPS (sx, TYPE ## _, ) \ |
|
|
560 OCTAVE_INSTALL_SS_INT_ARITH_OPS (xs, , TYPE ## _) \ |
|
|
561 OCTAVE_INSTALL_SS_INT_CMP_OPS (ss, TYPE ## _, TYPE ## _) \ |
|
|
562 OCTAVE_INSTALL_SS_INT_CMP_OPS (sx, TYPE ## _, ) \ |
|
|
563 OCTAVE_INSTALL_SS_INT_CMP_OPS (xs, , TYPE ## _) \ |
|
|
564 OCTAVE_INSTALL_SS_INT_BOOL_OPS (ss, TYPE ## _, TYPE ## _) \ |
|
|
565 OCTAVE_INSTALL_SS_INT_BOOL_OPS (sx, TYPE ## _, ) \ |
|
|
566 OCTAVE_INSTALL_SS_INT_BOOL_OPS (xs, , TYPE ## _) \ |
|
4963
|
567 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix) \ |
|
|
568 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_scalar, octave_ ## TYPE ## _matrix) \ |
|
|
569 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_complex_scalar, octave_complex_matrix) |
|
4905
|
570 |
|
4953
|
571 #define OCTAVE_INSTALL_SM_INT_ARITH_OPS(PFX, T1, T2) \ |
|
|
572 INSTALL_BINOP (op_add, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _add); \ |
|
|
573 INSTALL_BINOP (op_sub, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _sub); \ |
|
|
574 INSTALL_BINOP (op_mul, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _mul); \ |
|
|
575 /* INSTALL_BINOP (op_div, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _div); */ \ |
|
|
576 /* INSTALL_BINOP (op_pow, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _pow); */ \ |
|
|
577 INSTALL_BINOP (op_ldiv, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _ldiv); \ |
|
|
578 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _el_mul); \ |
|
|
579 /* INSTALL_BINOP (op_el_div, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _el_div); */ \ |
|
|
580 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _el_pow); \ |
|
|
581 INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _el_ldiv); |
|
4905
|
582 |
|
4953
|
583 #define OCTAVE_INSTALL_SM_INT_CMP_OPS(PFX, T1, T2) \ |
|
|
584 INSTALL_BINOP (op_lt, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _lt); \ |
|
|
585 INSTALL_BINOP (op_le, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _le); \ |
|
|
586 INSTALL_BINOP (op_eq, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _eq); \ |
|
|
587 INSTALL_BINOP (op_ge, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _ge); \ |
|
|
588 INSTALL_BINOP (op_gt, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _gt); \ |
|
|
589 INSTALL_BINOP (op_ne, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _ne); |
|
4905
|
590 |
|
4953
|
591 #define OCTAVE_INSTALL_SM_INT_BOOL_OPS(PFX, T1, T2) \ |
|
4964
|
592 INSTALL_BINOP (op_el_and, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _el_and); \ |
|
|
593 INSTALL_BINOP (op_el_or, octave_ ## T1 ## scalar, octave_ ## T2 ## matrix, PFX ## _el_or); |
|
4905
|
594 |
|
|
595 #define OCTAVE_INSTALL_SM_INT_OPS(TYPE) \ |
|
4953
|
596 OCTAVE_INSTALL_SM_INT_ARITH_OPS (sm, TYPE ## _, TYPE ## _) \ |
|
|
597 OCTAVE_INSTALL_SM_INT_ARITH_OPS (xm, , TYPE ## _) \ |
|
|
598 OCTAVE_INSTALL_SM_INT_CMP_OPS (sm, TYPE ## _, TYPE ## _) \ |
|
|
599 OCTAVE_INSTALL_SM_INT_CMP_OPS (xm, , TYPE ## _) \ |
|
4964
|
600 OCTAVE_INSTALL_SM_INT_CMP_OPS (smx, TYPE ## _, ) \ |
|
4953
|
601 OCTAVE_INSTALL_SM_INT_BOOL_OPS (sm, TYPE ## _, TYPE ## _) \ |
|
|
602 OCTAVE_INSTALL_SM_INT_BOOL_OPS (xm, , TYPE ## _) \ |
|
4964
|
603 OCTAVE_INSTALL_SM_INT_BOOL_OPS (smx, TYPE ## _, ) \ |
|
|
604 INSTALL_WIDENOP (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix, TYPE ## _s_ ## TYPE ## _m_conv) \ |
|
|
605 INSTALL_WIDENOP (octave_ ## TYPE ## _scalar, octave_complex_matrix, TYPE ## _s_complex_m_conv) \ |
|
4963
|
606 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _matrix) \ |
|
|
607 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_matrix, octave_ ## TYPE ## _matrix) \ |
|
|
608 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_complex_matrix, octave_complex_matrix) |
|
4905
|
609 |
|
4953
|
610 #define OCTAVE_INSTALL_MS_INT_ARITH_OPS(PFX, T1, T2) \ |
|
|
611 INSTALL_BINOP (op_add, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _add); \ |
|
|
612 INSTALL_BINOP (op_sub, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _sub); \ |
|
|
613 INSTALL_BINOP (op_mul, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _mul); \ |
|
|
614 INSTALL_BINOP (op_div, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _div); \ |
|
|
615 /* INSTALL_BINOP (op_pow, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _pow); */ \ |
|
|
616 /* INSTALL_BINOP (op_ldiv, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _ldiv); */ \ |
|
4905
|
617 \ |
|
4953
|
618 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _el_mul); \ |
|
|
619 INSTALL_BINOP (op_el_div, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _el_div); \ |
|
|
620 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _el_pow); \ |
|
|
621 /* INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _el_ldiv); */ |
|
4905
|
622 |
|
4953
|
623 #define OCTAVE_INSTALL_MS_INT_CMP_OPS(PFX, T1, T2) \ |
|
|
624 INSTALL_BINOP (op_lt, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _lt); \ |
|
|
625 INSTALL_BINOP (op_le, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _le); \ |
|
|
626 INSTALL_BINOP (op_eq, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _eq); \ |
|
|
627 INSTALL_BINOP (op_ge, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _ge); \ |
|
|
628 INSTALL_BINOP (op_gt, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _gt); \ |
|
|
629 INSTALL_BINOP (op_ne, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _ne); |
|
|
630 |
|
|
631 #define OCTAVE_INSTALL_MS_INT_BOOL_OPS(PFX, T1, T2) \ |
|
4964
|
632 INSTALL_BINOP (op_el_and, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _el_and); \ |
|
|
633 INSTALL_BINOP (op_el_or, octave_ ## T1 ## matrix, octave_ ## T2 ## scalar, PFX ## _el_or); |
|
4953
|
634 |
|
|
635 #define OCTAVE_INSTALL_MS_INT_ASSIGN_OPS(PFX, TLHS, TRHS) \ |
|
|
636 INSTALL_ASSIGNOP (op_asn_eq, octave_ ## TLHS ## matrix, octave_ ## TRHS ## scalar, PFX ## _assign) |
|
4905
|
637 |
|
|
638 #define OCTAVE_INSTALL_MS_INT_OPS(TYPE) \ |
|
4953
|
639 OCTAVE_INSTALL_MS_INT_ARITH_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
640 OCTAVE_INSTALL_MS_INT_ARITH_OPS (mx, TYPE ## _, ) \ |
|
|
641 OCTAVE_INSTALL_MS_INT_CMP_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
642 OCTAVE_INSTALL_MS_INT_CMP_OPS (mx, TYPE ## _, ) \ |
|
4964
|
643 OCTAVE_INSTALL_MS_INT_CMP_OPS (mxs, , TYPE ## _) \ |
|
4953
|
644 OCTAVE_INSTALL_MS_INT_BOOL_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
645 OCTAVE_INSTALL_MS_INT_BOOL_OPS (mx, TYPE ## _, ) \ |
|
4964
|
646 OCTAVE_INSTALL_MS_INT_BOOL_OPS (mxs, , TYPE ## _) \ |
|
4953
|
647 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (ms, TYPE ## _, TYPE ## _) \ |
|
|
648 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mx, TYPE ## _, ) \ |
|
4963
|
649 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _matrix, octave_complex_scalar, octave_complex_matrix) |
|
4905
|
650 |
|
|
651 #define OCTAVE_INSTALL_M_INT_UNOPS(TYPE) \ |
|
|
652 INSTALL_UNOP (op_not, octave_ ## TYPE ## _matrix, m_not); \ |
|
4965
|
653 INSTALL_UNOP (op_uplus, octave_ ## TYPE ## _matrix, m_uplus); \ |
|
4905
|
654 INSTALL_UNOP (op_uminus, octave_ ## TYPE ## _matrix, m_uminus); \ |
|
|
655 INSTALL_UNOP (op_transpose, octave_ ## TYPE ## _matrix, m_transpose); \ |
|
|
656 INSTALL_UNOP (op_hermitian, octave_ ## TYPE ## _matrix, m_transpose); \ |
|
|
657 \ |
|
5829
|
658 INSTALL_NCUNOP (op_incr, octave_ ## TYPE ## _matrix, m_incr); \ |
|
|
659 INSTALL_NCUNOP (op_decr, octave_ ## TYPE ## _matrix, m_decr); |
|
4905
|
660 |
|
|
661 #define OCTAVE_INSTALL_MM_INT_ARITH_OPS(T1, T2) \ |
|
|
662 INSTALL_BINOP (op_add, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_add); \ |
|
|
663 INSTALL_BINOP (op_sub, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_sub); \ |
|
|
664 /* INSTALL_BINOP (op_mul, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_mul); */ \ |
|
|
665 /* INSTALL_BINOP (op_div, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_div); */ \ |
|
|
666 INSTALL_BINOP (op_pow, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_pow); \ |
|
|
667 /* INSTALL_BINOP (op_ldiv, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_ldiv); */ \ |
|
|
668 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_mul); \ |
|
|
669 INSTALL_BINOP (op_el_div, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_div); \ |
|
4952
|
670 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_pow); \ |
|
4905
|
671 /* INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_ldiv); */ |
|
|
672 |
|
4964
|
673 #define OCTAVE_INSTALL_MM_INT_CMP_OPS(PFX, T1, T2) \ |
|
|
674 INSTALL_BINOP (op_lt, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _lt); \ |
|
|
675 INSTALL_BINOP (op_le, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _le); \ |
|
|
676 INSTALL_BINOP (op_eq, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _eq); \ |
|
|
677 INSTALL_BINOP (op_ge, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _ge); \ |
|
|
678 INSTALL_BINOP (op_gt, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _gt); \ |
|
|
679 INSTALL_BINOP (op_ne, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _ne); |
|
4905
|
680 |
|
4964
|
681 #define OCTAVE_INSTALL_MM_INT_BOOL_OPS(PFX, T1, T2) \ |
|
|
682 INSTALL_BINOP (op_el_and, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _el_and); \ |
|
|
683 INSTALL_BINOP (op_el_or, octave_ ## T1 ## matrix, octave_ ## T2 ## matrix, PFX ## _el_or); |
|
4905
|
684 |
|
4953
|
685 #define OCTAVE_INSTALL_MM_INT_ASSIGN_OPS(PFX, TLHS, TRHS) \ |
|
|
686 INSTALL_ASSIGNOP (op_asn_eq, octave_ ## TLHS ## matrix, octave_ ## TRHS ## matrix, PFX ## _assign) |
|
4905
|
687 |
|
|
688 #define OCTAVE_INSTALL_MM_INT_OPS(TYPE) \ |
|
|
689 OCTAVE_INSTALL_M_INT_UNOPS (TYPE) \ |
|
|
690 OCTAVE_INSTALL_MM_INT_ARITH_OPS (TYPE, TYPE) \ |
|
4964
|
691 OCTAVE_INSTALL_MM_INT_CMP_OPS (mm, TYPE ## _, TYPE ## _) \ |
|
|
692 OCTAVE_INSTALL_MM_INT_CMP_OPS (mmx, TYPE ## _, ) \ |
|
5038
|
693 OCTAVE_INSTALL_MM_INT_CMP_OPS (mxm, , TYPE ## _) \ |
|
4964
|
694 OCTAVE_INSTALL_MM_INT_BOOL_OPS (mm, TYPE ## _, TYPE ## _) \ |
|
|
695 OCTAVE_INSTALL_MM_INT_BOOL_OPS (mmx, TYPE ## _, ) \ |
|
5038
|
696 OCTAVE_INSTALL_MM_INT_BOOL_OPS (mxm, , TYPE ## _) \ |
|
4953
|
697 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mm, TYPE ## _, TYPE ## _) \ |
|
|
698 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmx, TYPE ## _, ) \ |
|
4964
|
699 INSTALL_WIDENOP (octave_ ## TYPE ## _matrix, octave_complex_matrix, TYPE ## _m_complex_m_conv) \ |
|
4963
|
700 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _matrix, octave_complex_matrix, octave_complex_matrix) |
|
4905
|
701 |
|
4963
|
702 #define OCTAVE_INSTALL_RE_INT_ASSIGN_OPS(TYPE) \ |
|
|
703 INSTALL_ASSIGNOP (op_asn_eq, octave_matrix, octave_ ## TYPE ## _scalar, TYPE ## ms_assign) \ |
|
|
704 INSTALL_ASSIGNOP (op_asn_eq, octave_matrix, octave_ ## TYPE ## _matrix, TYPE ## mm_assign) \ |
|
|
705 INSTALL_ASSIGNCONV (octave_scalar, octave_ ## TYPE ## _scalar, octave_matrix) \ |
|
|
706 INSTALL_ASSIGNCONV (octave_scalar, octave_ ## TYPE ## _matrix, octave_matrix) |
|
|
707 |
|
|
708 #define OCTAVE_INSTALL_CX_INT_ASSIGN_OPS(TYPE) \ |
|
|
709 INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_ ## TYPE ## _scalar, TYPE ## cms_assign) \ |
|
|
710 INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, octave_ ## TYPE ## _matrix, TYPE ## cmm_assign) \ |
|
|
711 INSTALL_ASSIGNCONV (octave_complex_scalar, octave_ ## TYPE ## _scalar, octave_complex_matrix) \ |
|
|
712 INSTALL_ASSIGNCONV (octave_complex_scalar, octave_ ## TYPE ## _matrix, octave_complex_matrix) |
|
|
713 |
|
4905
|
714 #define OCTAVE_INSTALL_INT_OPS(TYPE) \ |
|
|
715 OCTAVE_INSTALL_SS_INT_OPS (TYPE) \ |
|
|
716 OCTAVE_INSTALL_SM_INT_OPS (TYPE) \ |
|
|
717 OCTAVE_INSTALL_MS_INT_OPS (TYPE) \ |
|
4915
|
718 OCTAVE_INSTALL_MM_INT_OPS (TYPE) \ |
|
4963
|
719 OCTAVE_INSTALL_CONCAT_FN (TYPE) \ |
|
|
720 OCTAVE_INSTALL_RE_INT_ASSIGN_OPS (TYPE) \ |
|
|
721 OCTAVE_INSTALL_CX_INT_ASSIGN_OPS (TYPE) |
|
|
722 |
|
|
723 #define OCTAVE_INSTALL_SM_INT_ASSIGNCONV(TLHS, TRHS) \ |
|
|
724 INSTALL_ASSIGNCONV (octave_ ## TLHS ## _scalar, octave_ ## TRHS ## _scalar, octave_ ## TLHS ## _matrix) \ |
|
|
725 INSTALL_ASSIGNCONV (octave_ ## TLHS ## _scalar, octave_ ## TRHS ## _matrix, octave_ ## TLHS ## _matrix) |
|
4905
|
726 |
|
4964
|
727 #define OCTAVE_MIXED_INT_CMP_OPS(T1, T2) \ |
|
|
728 OCTAVE_SS_INT_CMP_OPS (T1 ## _ ## T2 ## _ss, T1 ## _, T2 ## _) \ |
|
|
729 OCTAVE_SM_INT_CMP_OPS (T1 ## _ ## T2 ## _sm, T1 ## _, T2 ## _) \ |
|
|
730 OCTAVE_MS_INT_CMP_OPS (T1 ## _ ## T2 ## _ms, T1 ## _, T2 ## _) \ |
|
|
731 OCTAVE_MM_INT_CMP_OPS (T1 ## _ ## T2 ## _mm, T1 ## _, T2 ## _) |
|
|
732 |
|
|
733 #define OCTAVE_INSTALL_MIXED_INT_CMP_OPS(T1, T2) \ |
|
|
734 OCTAVE_INSTALL_SS_INT_CMP_OPS (T1 ## _ ## T2 ## _ss, T1 ## _, T2 ## _) \ |
|
|
735 OCTAVE_INSTALL_SM_INT_CMP_OPS (T1 ## _ ## T2 ## _sm, T1 ## _, T2 ## _) \ |
|
|
736 OCTAVE_INSTALL_MS_INT_CMP_OPS (T1 ## _ ## T2 ## _ms, T1 ## _, T2 ## _) \ |
|
|
737 OCTAVE_INSTALL_MM_INT_CMP_OPS (T1 ## _ ## T2 ## _mm, T1 ## _, T2 ## _) |
|
|
738 |
|
4905
|
739 /* |
|
|
740 ;;; Local Variables: *** |
|
|
741 ;;; mode: C++ *** |
|
|
742 ;;; End: *** |
|
|
743 */ |
