|
4905
|
1 /* |
|
|
2 |
|
|
3 Copyright (C) 1996, 1997 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 the |
|
|
9 Free Software Foundation; either version 2, or (at your option) any |
|
|
10 later version. |
|
|
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 |
|
|
18 along with Octave; see the file COPYING. If not, write to the Free |
|
|
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
|
|
20 |
|
|
21 */ |
|
|
22 |
|
4952
|
23 #include "quit.h" |
|
|
24 |
|
4915
|
25 #define OCTAVE_CONCAT_FN(TYPE) \ |
|
|
26 DEFNDCATOP_FN (TYPE ## _s_s, TYPE ## _scalar, TYPE ## _scalar, TYPE ## _array, TYPE ## _array, concat) \ |
|
|
27 DEFNDCATOP_FN (TYPE ## _s_m, TYPE ## _scalar, TYPE ## _matrix, TYPE ## _array, TYPE ## _array, concat) \ |
|
|
28 DEFNDCATOP_FN (TYPE ## _m_s, TYPE ## _matrix, TYPE ## _scalar, TYPE ## _array, TYPE ## _array, concat) \ |
|
|
29 DEFNDCATOP_FN (TYPE ## _m_m, TYPE ## _matrix, TYPE ## _matrix, TYPE ## _array, TYPE ## _array, concat) |
|
|
30 |
|
|
31 #define OCTAVE_INSTALL_CONCAT_FN(TYPE) \ |
|
|
32 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _scalar, TYPE ## _s_s) \ |
|
|
33 INSTALL_CATOP (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix, TYPE ## _s_m) \ |
|
|
34 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _scalar, TYPE ## _m_s) \ |
|
|
35 INSTALL_CATOP (octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _matrix, TYPE ## _m_m) |
|
|
36 |
|
4905
|
37 #define OCTAVE_S_INT_UNOPS(TYPE) \ |
|
|
38 /* scalar unary ops. */ \ |
|
|
39 \ |
|
|
40 DEFUNOP_OP (s_not, TYPE ## _scalar, !) \ |
|
|
41 DEFUNOP_OP (s_uminus, TYPE ## _scalar, -) \ |
|
|
42 DEFUNOP_OP (s_transpose, TYPE ## _scalar, /* no-op */) \ |
|
|
43 DEFUNOP_OP (s_hermitian, TYPE ## _scalar, /* no-op */) \ |
|
|
44 \ |
|
|
45 /* DEFNCUNOP_METHOD (s_incr, TYPE ## _scalar, increment) */ \ |
|
|
46 /* DEFNCUNOP_METHOD (s_decr, TYPE ## _scalar, decrement) */ |
|
|
47 |
|
|
48 #define OCTAVE_SS_INT_ARITH_OPS(T1, T2) \ |
|
|
49 /* scalar by scalar ops. */ \ |
|
|
50 \ |
|
|
51 DEFBINOP_OP (ss_add, T1 ## _scalar, T2 ## _scalar, +) \ |
|
|
52 DEFBINOP_OP (ss_sub, T1 ## _scalar, T2 ## _scalar, -) \ |
|
|
53 DEFBINOP_OP (ss_mul, T1 ## _scalar, T2 ## _scalar, *) \ |
|
|
54 \ |
|
|
55 DEFBINOP (ss_div, T1 ## _scalar, T2 ## _scalar) \ |
|
|
56 { \ |
|
|
57 CAST_BINOP_ARGS (const octave_ ## T1 ## _scalar&, const octave_ ## T2 ## _scalar&); \ |
|
|
58 \ |
|
|
59 double d = v2.T2 ## _scalar_value (); \ |
|
|
60 \ |
|
|
61 if (d == 0.0) \ |
|
|
62 gripe_divide_by_zero (); \ |
|
|
63 \ |
|
|
64 return octave_value (v1.T1 ## _scalar_value () / d); \ |
|
|
65 } \ |
|
|
66 \ |
|
4952
|
67 DEFBINOP_FN (ss_pow, T1 ## _scalar, T2 ## _scalar, xpow) \ |
|
4905
|
68 \ |
|
|
69 DEFBINOP (ss_ldiv, T1 ## _scalar, T2 ## _scalar) \ |
|
|
70 { \ |
|
|
71 CAST_BINOP_ARGS (const octave_ ## T1 ## _scalar&, const octave_ ## T2 ## _scalar&); \ |
|
|
72 \ |
|
|
73 double d = v1.T1 ## _scalar_value (); \ |
|
|
74 \ |
|
|
75 if (d == 0.0) \ |
|
|
76 gripe_divide_by_zero (); \ |
|
|
77 \ |
|
|
78 return octave_value (v2.T2 ## _scalar_value () / d); \ |
|
|
79 } \ |
|
|
80 \ |
|
|
81 DEFBINOP_OP (ss_el_mul, T1 ## _scalar, T2 ## _scalar, *) \ |
|
|
82 \ |
|
|
83 DEFBINOP (ss_el_div, T1 ## _scalar, T2 ## _scalar) \ |
|
|
84 { \ |
|
|
85 CAST_BINOP_ARGS (const octave_ ## T1 ## _scalar&, const octave_ ## T2 ## _scalar&); \ |
|
|
86 \ |
|
|
87 double d = v2.T2 ## _scalar_value (); \ |
|
|
88 \ |
|
|
89 if (d == 0.0) \ |
|
|
90 gripe_divide_by_zero (); \ |
|
|
91 \ |
|
|
92 return octave_value (v1.T1 ## _scalar_value () / d); \ |
|
|
93 } \ |
|
|
94 \ |
|
|
95 DEFBINOP_FN (ss_el_pow, T1 ## _scalar, T2 ## _scalar, xpow) \ |
|
|
96 \ |
|
|
97 DEFBINOP (ss_el_ldiv, T1 ## _scalar, T2 ## _scalar) \ |
|
|
98 { \ |
|
|
99 CAST_BINOP_ARGS (const octave_ ## T1 ## _scalar&, const octave_ ## T2 ## _scalar&); \ |
|
|
100 \ |
|
|
101 double d = v1.T1 ## _scalar_value (); \ |
|
|
102 \ |
|
|
103 if (d == 0.0) \ |
|
|
104 gripe_divide_by_zero (); \ |
|
|
105 \ |
|
|
106 return octave_value (v2.T2 ## _scalar_value () / d); \ |
|
|
107 } \ |
|
|
108 |
|
|
109 #define OCTAVE_SS_INT_BOOL_OPS(T1, T2) \ |
|
|
110 /* DEFBINOP_OP (ss_el_and, T1 ## _scalar, T2 ## _scalar, &&) */ \ |
|
|
111 /* DEFBINOP_OP (ss_el_or, T1 ## _scalar, T2 ## _scalar, ||) */ |
|
|
112 |
|
|
113 #define OCTAVE_SS_INT_CMP_OPS(T1, T2) \ |
|
|
114 DEFBINOP_OP (ss_lt, T1 ## _scalar, T2 ## _scalar, <) \ |
|
|
115 DEFBINOP_OP (ss_le, T1 ## _scalar, T2 ## _scalar, <=) \ |
|
|
116 DEFBINOP_OP (ss_eq, T1 ## _scalar, T2 ## _scalar, ==) \ |
|
|
117 DEFBINOP_OP (ss_ge, T1 ## _scalar, T2 ## _scalar, >=) \ |
|
|
118 DEFBINOP_OP (ss_gt, T1 ## _scalar, T2 ## _scalar, >) \ |
|
|
119 DEFBINOP_OP (ss_ne, T1 ## _scalar, T2 ## _scalar, !=) |
|
|
120 |
|
4952
|
121 #define OCTAVE_SS_POW_OPS(T1, T2) \ |
|
|
122 octave_value xpow (octave_ ## T1 a, octave_ ## T2 b) {return pow (a, b);} |
|
|
123 |
|
4905
|
124 #define OCTAVE_SS_INT_OPS(TYPE) \ |
|
|
125 OCTAVE_S_INT_UNOPS (TYPE) \ |
|
4952
|
126 OCTAVE_SS_POW_OPS (TYPE, TYPE) \ |
|
4905
|
127 OCTAVE_SS_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
128 OCTAVE_SS_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
129 OCTAVE_SS_INT_BOOL_OPS (TYPE, TYPE) |
|
|
130 |
|
|
131 #define OCTAVE_SS_INT_OPS2(T1, T2) \ |
|
|
132 OCTAVE_SS_INT_ARITH_OPS (T1, T2) \ |
|
|
133 OCTAVE_SS_INT_CMP_OPS (T1, T2) \ |
|
|
134 OCTAVE_SS_INT_BOOL_OPS (T1, T2) |
|
|
135 |
|
|
136 #define OCTAVE_SM_INT_ARITH_OPS(TS, TM) \ |
|
|
137 /* scalar by matrix ops. */ \ |
|
|
138 \ |
|
|
139 DEFNDBINOP_OP (sm_add, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, +) \ |
|
|
140 DEFNDBINOP_OP (sm_sub, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, -) \ |
|
|
141 DEFNDBINOP_OP (sm_mul, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, *) \ |
|
|
142 \ |
|
|
143 /* DEFBINOP (sm_div, TS ## _scalar, TM ## _matrix) */ \ |
|
|
144 /* { */ \ |
|
|
145 /* CAST_BINOP_ARGS (const octave_ ## TS ## _scalar&, const octave_ ## TM ## _matrix&); */ \ |
|
|
146 /* */ \ |
|
|
147 /* Matrix m1 = v1.TM ## _matrix_value (); */ \ |
|
|
148 /* Matrix m2 = v2.TM ## _matrix_value (); */ \ |
|
|
149 /* */ \ |
|
|
150 /* return octave_value (xdiv (m1, m2)); */ \ |
|
|
151 /* } */ \ |
|
|
152 \ |
|
|
153 /* DEFBINOP_FN (sm_pow, TS ## _scalar, TM ## _matrix, xpow) */ \ |
|
|
154 \ |
|
|
155 /* DEFBINOP (sm_ldiv, TS ## _scalar, TM ## _matrix) */ \ |
|
|
156 /* { */ \ |
|
|
157 /* CAST_BINOP_ARGS (const octave_ ## TS ## _scalar&, const octave_ ## TM ## _matrix&); */ \ |
|
|
158 /* */ \ |
|
|
159 /* double d = v1.TS ## _scalar_value (); */ \ |
|
|
160 /* */ \ |
|
|
161 /* if (d == 0) */ \ |
|
|
162 /* gripe_divide_by_zero (); */ \ |
|
|
163 /* */ \ |
|
|
164 /* return octave_value (v2.TS ## _scalar_value () / d); */ \ |
|
|
165 /* } */ \ |
|
|
166 \ |
|
|
167 DEFNDBINOP_OP (sm_el_mul, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, *) \ |
|
|
168 /* DEFNDBINOP_FN (sm_el_div, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, x_el_div) */ \ |
|
4952
|
169 DEFNDBINOP_FN (sm_el_pow, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, elem_xpow) \ |
|
4905
|
170 \ |
|
|
171 /* DEFBINOP (sm_el_ldiv, TS ## _scalar, TM ## _matrix) */ \ |
|
|
172 /* { */ \ |
|
|
173 /* CAST_BINOP_ARGS (const octave_ ## TS ## _scalar&, const octave_ ## TM ## _matrix&); */ \ |
|
|
174 /* */ \ |
|
|
175 /* double d = v1.TS ## _scalar_value (); */ \ |
|
|
176 /* */ \ |
|
|
177 /* if (d == 0) */ \ |
|
|
178 /* gripe_divide_by_zero (); */ \ |
|
|
179 /* */ \ |
|
|
180 /* return octave_value (v2.TM ## _array_value () / d); */ \ |
|
|
181 /* } */ \ |
|
|
182 |
|
|
183 #define OCTAVE_SM_INT_CMP_OPS(TS, TM) \ |
|
|
184 DEFNDBINOP_FN (sm_lt, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, mx_el_lt) \ |
|
|
185 DEFNDBINOP_FN (sm_le, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, mx_el_le) \ |
|
|
186 DEFNDBINOP_FN (sm_eq, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, mx_el_eq) \ |
|
|
187 DEFNDBINOP_FN (sm_ge, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, mx_el_ge) \ |
|
|
188 DEFNDBINOP_FN (sm_gt, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, mx_el_gt) \ |
|
|
189 DEFNDBINOP_FN (sm_ne, TS ## _scalar, TM ## _matrix, TS ## _scalar, TM ## _array, mx_el_ne) |
|
|
190 |
|
|
191 #define OCTAVE_SM_INT_BOOL_OPS(TS, TM) \ |
|
|
192 /* DEFNDBINOP_FN (sm_el_and, TS ## _scalar, TYPE ## _matrix, TS ## _scalar, TYPE ## _array, mx_el_and) */ \ |
|
|
193 /* DEFNDBINOP_FN (sm_el_or, TS ## _scalar, TYPE ## _matrix, TS ## _scalar, TYPE ## _array, mx_el_or) */ |
|
|
194 |
|
4952
|
195 #define OCTAVE_SM_POW_OPS(T1, T2) \ |
|
|
196 octave_value elem_xpow (octave_ ## T1 a, T2 ## NDArray b) \ |
|
|
197 { \ |
|
|
198 T2 ## NDArray result (b.dims ()); \ |
|
|
199 for (int i = 0; i < b.length (); i++) \ |
|
|
200 { \ |
|
|
201 OCTAVE_QUIT; \ |
|
|
202 result (i) = pow (a, b(i)); \ |
|
|
203 } \ |
|
|
204 return octave_value (result); \ |
|
|
205 } |
|
|
206 |
|
4905
|
207 #define OCTAVE_SM_INT_OPS(TYPE) \ |
|
4952
|
208 OCTAVE_SM_POW_OPS (TYPE, TYPE) \ |
|
4905
|
209 OCTAVE_SM_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
210 OCTAVE_SM_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
211 OCTAVE_SM_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
212 \ |
|
|
213 /* DEFCONV (TYPE ## _matrix_conv, TYPE ## _scalar, TYPE ## _matrix) */ \ |
|
|
214 /* { */ \ |
|
|
215 /* CAST_CONV_ARG (const octave_ ## TYPE ## _scalar&); */ \ |
|
|
216 /* */ \ |
|
|
217 /* return new octave_ ## TYPE ## _matrix (v.TYPE ## _matrix_value ()); */ \ |
|
|
218 /* } */ |
|
|
219 |
|
|
220 #define OCTAVE_SM_INT_OPS2(TS, TM) \ |
|
|
221 OCTAVE_SM_INT_ARITH_OPS (TS, TM) \ |
|
|
222 OCTAVE_SM_INT_CMP_OPS (TS, TM) \ |
|
|
223 OCTAVE_SM_INT_BOOL_OPS (TS, TM) |
|
|
224 |
|
|
225 #define OCTAVE_MS_INT_ARITH_OPS(TM, TS) \ |
|
|
226 /* matrix by scalar ops. */ \ |
|
|
227 \ |
|
|
228 DEFNDBINOP_OP (ms_add, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, +) \ |
|
|
229 DEFNDBINOP_OP (ms_sub, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, -) \ |
|
|
230 DEFNDBINOP_OP (ms_mul, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, *) \ |
|
|
231 \ |
|
|
232 /* DEFBINOP (ms_div, TM ## _matrix, TS ## _scalar) */ \ |
|
|
233 /* { */ \ |
|
|
234 /* CAST_BINOP_ARGS (const octave_ ## TM ## _matrix&, const octave_ ## TS ## _scalar&); */ \ |
|
|
235 /* */ \ |
|
|
236 /* double d = v2.TM ## _ ## TS ## _scalar_value (); */ \ |
|
|
237 /* */ \ |
|
|
238 /* if (d == 0.0) */ \ |
|
|
239 /* gripe_divide_by_zero (); */ \ |
|
|
240 /* */ \ |
|
|
241 /* return octave_value (v1.TM ## _array_value () / d); */ \ |
|
|
242 /* } */ \ |
|
|
243 \ |
|
|
244 /* DEFBINOP_FN (ms_pow, TM ## _matrix, TS ## _scalar, xpow) */ \ |
|
|
245 \ |
|
|
246 /* DEFBINOP (ms_ldiv, TM ## _matrix, TS ## _scalar) */ \ |
|
|
247 /* { */ \ |
|
|
248 /* CAST_BINOP_ARGS (const octave_ ## TM ## _matrix&, const octave_ ## TS ## _scalar&); */ \ |
|
|
249 /* */ \ |
|
|
250 /* Matrix m1 = v1.TM ## _matrix_value (); */ \ |
|
|
251 /* Matrix m2 = v2.TM ## _matrix_value (); */ \ |
|
|
252 /* */ \ |
|
|
253 /* return octave_value (xleftdiv (m1, m2)); */ \ |
|
|
254 /* } */ \ |
|
|
255 \ |
|
|
256 DEFNDBINOP_OP (ms_el_mul, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, *) \ |
|
|
257 \ |
|
|
258 /* DEFBINOP (ms_el_div, TM ## _matrix, TS ## _scalar) */ \ |
|
|
259 /* { */ \ |
|
|
260 /* CAST_BINOP_ARGS (const octave_ ## TM ## _matrix&, const octave_ ## TS ## _scalar&); */ \ |
|
|
261 /* */ \ |
|
|
262 /* double d = v2.TM ## _ ## TS ## _scalar_value (); */ \ |
|
|
263 /* */ \ |
|
|
264 /* if (d == 0.0) */ \ |
|
|
265 /* gripe_divide_by_zero (); */ \ |
|
|
266 /* */ \ |
|
|
267 /* return octave_value (v1.TM ## _array_value () / d); */ \ |
|
|
268 /* } */ \ |
|
|
269 \ |
|
4952
|
270 DEFNDBINOP_FN (ms_el_pow, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, elem_xpow) \ |
|
4905
|
271 \ |
|
|
272 /* DEFBINOP (el_ldiv, TM ## _matrix, TS ## _scalar) */ \ |
|
|
273 /* { */ \ |
|
|
274 /* CAST_BINOP_ARGS (const octave_ ## TM ## _matrix&, const octave_ ## TS ## _scalar&); */ \ |
|
|
275 /* */ \ |
|
|
276 /* return x_el_div (v2.TM ## _ ## TS ## _scalar_value (), v1.TM ## _array_value ()); */ \ |
|
|
277 /* } */ |
|
|
278 |
|
|
279 #define OCTAVE_MS_INT_CMP_OPS(TM, TS) \ |
|
|
280 DEFNDBINOP_FN (ms_lt, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_lt) \ |
|
|
281 DEFNDBINOP_FN (ms_le, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_le) \ |
|
|
282 DEFNDBINOP_FN (ms_eq, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_eq) \ |
|
|
283 DEFNDBINOP_FN (ms_ge, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_ge) \ |
|
|
284 DEFNDBINOP_FN (ms_gt, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_gt) \ |
|
|
285 DEFNDBINOP_FN (ms_ne, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_ne) \ |
|
|
286 |
|
|
287 #define OCTAVE_MS_INT_BOOL_OPS(TM, TS) \ |
|
|
288 /* DEFNDBINOP_FN (ms_el_and, TM ## _matrix, TS ## _scalar, TM ## _array, TS ## _scalar, mx_el_and) */ \ |
|
|
289 /* DEFNDBINOP_FN (ms_el_or, TM ## _matrix, TS ## _scalar, TM |
|
|
290 ## _array, TS ## _scalar, mx_el_or) */ |
|
|
291 |
|
|
292 #define OCTAVE_MS_INT_ASSIGN_OPS(TM, TS) \ |
|
|
293 DEFNDASSIGNOP_FN (ms_assign, TM ## _matrix, TS ## _scalar, TS ## _array, assign) |
|
|
294 |
|
4952
|
295 #define OCTAVE_MS_POW_OPS(T1, T2) \ |
|
|
296 octave_value elem_xpow (T1 ## NDArray a, octave_ ## T2 b) \ |
|
|
297 { \ |
|
|
298 T1 ## NDArray result (a.dims ()); \ |
|
|
299 for (int i = 0; i < a.length (); i++) \ |
|
|
300 { \ |
|
|
301 OCTAVE_QUIT; \ |
|
|
302 result (i) = pow (a(i), b); \ |
|
|
303 } \ |
|
|
304 return octave_value (result); \ |
|
|
305 } |
|
|
306 |
|
4905
|
307 #define OCTAVE_MS_INT_OPS(TYPE) \ |
|
4952
|
308 OCTAVE_MS_POW_OPS (TYPE, TYPE) \ |
|
4905
|
309 OCTAVE_MS_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
310 OCTAVE_MS_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
311 OCTAVE_MS_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
312 OCTAVE_MS_INT_ASSIGN_OPS (TYPE, TYPE) |
|
|
313 |
|
|
314 #define OCTAVE_M_INT_UNOPS(TYPE) \ |
|
|
315 /* matrix unary ops. */ \ |
|
|
316 \ |
|
|
317 DEFNDUNOP_OP (m_not, TYPE ## _matrix, TYPE ## _array, !) \ |
|
|
318 DEFNDUNOP_OP (m_uminus, TYPE ## _matrix, TYPE ## _array, -) \ |
|
|
319 \ |
|
|
320 DEFUNOP (m_transpose, TYPE ## _matrix) \ |
|
|
321 { \ |
|
|
322 CAST_UNOP_ARG (const octave_ ## TYPE ## _matrix&); \ |
|
|
323 \ |
|
|
324 if (v.ndims () > 2) \ |
|
|
325 { \ |
|
|
326 error ("transpose not defined for N-d objects"); \ |
|
|
327 return octave_value (); \ |
|
|
328 } \ |
|
|
329 else \ |
|
|
330 return octave_value (v.TYPE ## _array_value().transpose ()); \ |
|
|
331 } \ |
|
|
332 \ |
|
|
333 /* DEFNCUNOP_METHOD (m_incr, TYPE ## _matrix, increment) */ \ |
|
|
334 /* DEFNCUNOP_METHOD (m_decr, TYPE ## _matrix, decrement) */ |
|
|
335 |
|
|
336 #define OCTAVE_MM_INT_ARITH_OPS(T1, T2) \ |
|
|
337 /* matrix by matrix ops. */ \ |
|
|
338 \ |
|
|
339 DEFNDBINOP_OP (mm_add, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, +) \ |
|
|
340 DEFNDBINOP_OP (mm_sub, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, -) \ |
|
|
341 \ |
|
|
342 /* DEFBINOP_OP (mm_mul, T1 ## _matrix, T2 ## _matrix, *) */ \ |
|
|
343 /* DEFBINOP_FN (mm_div, T1 ## _matrix, T2 ## _matrix, xdiv) */ \ |
|
|
344 \ |
|
|
345 DEFBINOPX (mm_pow, T1 ## _matrix, T2 ## _matrix) \ |
|
|
346 { \ |
|
|
347 error ("can't do A ^ B for A and B both matrices"); \ |
|
|
348 return octave_value (); \ |
|
|
349 } \ |
|
|
350 \ |
|
|
351 /* DEFBINOP_FN (ldiv, T1 ## _matrix, T2 ## _matrix, xleftdiv) */ \ |
|
|
352 \ |
|
|
353 DEFNDBINOP_FN (mm_el_mul, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, product) \ |
|
|
354 \ |
|
|
355 DEFNDBINOP_FN (mm_el_div, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, quotient) \ |
|
|
356 \ |
|
4952
|
357 DEFNDBINOP_FN (mm_el_pow, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, elem_xpow) \ |
|
4905
|
358 \ |
|
|
359 /* DEFBINOP (mm_el_ldiv, T1 ## _matrix, T2 ## _matrix) */ \ |
|
|
360 /* { */ \ |
|
|
361 /* CAST_BINOP_ARGS (const octave_matrix&, const octave_matrix&); */ \ |
|
|
362 /* */ \ |
|
|
363 /* return octave_value (quotient (v2.array_value (), v1.array_value ())); */ \ |
|
|
364 /* } */ |
|
|
365 |
|
|
366 #define OCTAVE_MM_INT_CMP_OPS(T1, T2) \ |
|
|
367 DEFNDBINOP_FN (mm_lt, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_lt) \ |
|
|
368 DEFNDBINOP_FN (mm_le, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_le) \ |
|
|
369 DEFNDBINOP_FN (mm_eq, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_eq) \ |
|
|
370 DEFNDBINOP_FN (mm_ge, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_ge) \ |
|
|
371 DEFNDBINOP_FN (mm_gt, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_gt) \ |
|
|
372 DEFNDBINOP_FN (mm_ne, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_ne) |
|
|
373 |
|
|
374 #define OCTAVE_MM_INT_BOOL_OPS(T1, T2) \ |
|
|
375 DEFNDBINOP_FN (mm_el_and, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_and) \ |
|
|
376 DEFNDBINOP_FN (mm_el_or, T1 ## _matrix, T2 ## _matrix, T1 ## _array, T2 ## _array, mx_el_or) |
|
|
377 |
|
|
378 #define OCTAVE_MM_INT_ASSIGN_OPS(TYPE) \ |
|
|
379 DEFNDASSIGNOP_FN (mm_assign, TYPE ## _matrix, TYPE ## _matrix, TYPE ## _array, assign) |
|
|
380 |
|
4952
|
381 #define OCTAVE_MM_POW_OPS(T1, T2) \ |
|
|
382 octave_value elem_xpow (T1 ## NDArray a, T2 ## NDArray b) \ |
|
|
383 { \ |
|
|
384 dim_vector a_dims = a.dims (); \ |
|
|
385 dim_vector b_dims = b.dims (); \ |
|
|
386 if (a_dims != b_dims) \ |
|
|
387 { \ |
|
|
388 gripe_nonconformant ("operator .^", a_dims, b_dims); \ |
|
|
389 return octave_value (); \ |
|
|
390 } \ |
|
|
391 T1 ## NDArray result (a_dims); \ |
|
|
392 for (int i = 0; i < a.length (); i++) \ |
|
|
393 { \ |
|
|
394 OCTAVE_QUIT; \ |
|
|
395 result (i) = pow (a(i), b(i)); \ |
|
|
396 } \ |
|
|
397 return octave_value (result); \ |
|
|
398 } |
|
|
399 |
|
4905
|
400 #define OCTAVE_MM_INT_OPS(TYPE) \ |
|
|
401 OCTAVE_M_INT_UNOPS (TYPE) \ |
|
4952
|
402 OCTAVE_MM_POW_OPS (TYPE, TYPE) \ |
|
4905
|
403 OCTAVE_MM_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
404 OCTAVE_MM_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
405 OCTAVE_MM_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
406 OCTAVE_MM_INT_ASSIGN_OPS (TYPE) |
|
|
407 |
|
|
408 #define OCTAVE_MM_INT_OPS2(T1, T2) \ |
|
|
409 OCTAVE_MM_INT_ARITH_OPS (T1, T2) \ |
|
|
410 OCTAVE_MM_INT_CMP_OPS (T1, T2) \ |
|
|
411 OCTAVE_MM_INT_BOOL_OPS (T1, T2) |
|
|
412 |
|
|
413 #define OCTAVE_INT_OPS(TYPE) \ |
|
|
414 OCTAVE_SS_INT_OPS (TYPE) \ |
|
|
415 OCTAVE_SM_INT_OPS (TYPE) \ |
|
|
416 OCTAVE_MS_INT_OPS (TYPE) \ |
|
4915
|
417 OCTAVE_MM_INT_OPS (TYPE) \ |
|
|
418 OCTAVE_CONCAT_FN (TYPE) |
|
4905
|
419 |
|
|
420 #define OCTAVE_INSTALL_S_INT_UNOPS(TYPE) \ |
|
|
421 INSTALL_UNOP (op_not, octave_ ## TYPE ## _scalar, s_not); \ |
|
|
422 INSTALL_UNOP (op_uminus, octave_ ## TYPE ## _scalar, s_uminus); \ |
|
|
423 INSTALL_UNOP (op_transpose, octave_ ## TYPE ## _scalar, s_transpose); \ |
|
|
424 INSTALL_UNOP (op_hermitian, octave_ ## TYPE ## _scalar, s_hermitian); \ |
|
|
425 \ |
|
|
426 /* INSTALL_NCUNOP (op_incr, octave_ ## TYPE ## _scalar, s_incr); */ \ |
|
|
427 /* INSTALL_NCUNOP (op_decr, octave_ ## TYPE ## _scalar, s_decr); */ |
|
|
428 |
|
|
429 #define OCTAVE_INSTALL_SS_INT_ARITH_OPS(T1, T2) \ |
|
|
430 INSTALL_BINOP (op_add, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_add); \ |
|
|
431 INSTALL_BINOP (op_sub, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_sub); \ |
|
|
432 INSTALL_BINOP (op_mul, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_mul); \ |
|
|
433 INSTALL_BINOP (op_div, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_div); \ |
|
4952
|
434 INSTALL_BINOP (op_pow, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_pow); \ |
|
4905
|
435 INSTALL_BINOP (op_ldiv, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_ldiv); \ |
|
|
436 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_el_mul); \ |
|
|
437 INSTALL_BINOP (op_el_div, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_el_div); \ |
|
|
438 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_el_pow); \ |
|
|
439 INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_el_ldiv); |
|
|
440 |
|
|
441 #define OCTAVE_INSTALL_SS_INT_CMP_OPS(T1, T2) \ |
|
|
442 INSTALL_BINOP (op_lt, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_lt); \ |
|
|
443 INSTALL_BINOP (op_le, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_le); \ |
|
|
444 INSTALL_BINOP (op_eq, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_eq); \ |
|
|
445 INSTALL_BINOP (op_ge, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_ge); \ |
|
|
446 INSTALL_BINOP (op_gt, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_gt); \ |
|
|
447 INSTALL_BINOP (op_ne, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_ne); |
|
|
448 |
|
|
449 #define OCTAVE_INSTALL_SS_INT_BOOL_OPS(T1, T2) \ |
|
|
450 /* INSTALL_BINOP (op_el_and, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_el_and); */ \ |
|
|
451 /* INSTALL_BINOP (op_el_or, octave_ ## T1 ## _scalar, octave_ ## T2 ## _scalar, ss_el_or); */ |
|
|
452 |
|
|
453 #define OCTAVE_INSTALL_SS_INT_OPS(TYPE) \ |
|
|
454 OCTAVE_INSTALL_S_INT_UNOPS (TYPE) \ |
|
|
455 OCTAVE_INSTALL_SS_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
456 OCTAVE_INSTALL_SS_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
457 OCTAVE_INSTALL_SS_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
458 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix) |
|
|
459 |
|
|
460 #define OCTAVE_INSTALL_SS_INT_OPS2(T1, T2) \ |
|
|
461 OCTAVE_INSTALL_SS_INT_ARITH_OPS (T1, T2) \ |
|
|
462 OCTAVE_INSTALL_SS_INT_CMP_OPS (T1, T2) \ |
|
|
463 OCTAVE_INSTALL_SS_INT_BOOL_OPS (T1, T2) |
|
|
464 |
|
|
465 #define OCTAVE_INSTALL_SM_INT_ARITH_OPS(T1, T2) \ |
|
|
466 INSTALL_BINOP (op_add, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_add); \ |
|
|
467 INSTALL_BINOP (op_sub, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_sub); \ |
|
|
468 INSTALL_BINOP (op_mul, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_mul); \ |
|
|
469 /* INSTALL_BINOP (op_div, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_div); */ \ |
|
|
470 /* INSTALL_BINOP (op_pow, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_pow); */ \ |
|
|
471 /* INSTALL_BINOP (op_ldiv, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_ldiv); */ \ |
|
|
472 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_el_mul); \ |
|
|
473 /* INSTALL_BINOP (op_el_div, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_el_div); */ \ |
|
4915
|
474 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_el_pow); \ |
|
4905
|
475 /* INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_el_ldiv); */ |
|
|
476 |
|
|
477 #define OCTAVE_INSTALL_SM_INT_CMP_OPS(T1, T2) \ |
|
|
478 INSTALL_BINOP (op_lt, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_lt); \ |
|
|
479 INSTALL_BINOP (op_le, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_le); \ |
|
|
480 INSTALL_BINOP (op_eq, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_eq); \ |
|
|
481 INSTALL_BINOP (op_ge, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_ge); \ |
|
|
482 INSTALL_BINOP (op_gt, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_gt); \ |
|
|
483 INSTALL_BINOP (op_ne, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_ne); |
|
|
484 |
|
|
485 #define OCTAVE_INSTALL_SM_INT_BOOL_OPS(T1, T2) \ |
|
|
486 /* INSTALL_BINOP (op_el_and, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_el_and); */ \ |
|
|
487 /* INSTALL_BINOP (op_el_or, octave_ ## T1 ## _scalar, octave_ ## T2 ## _matrix, sm_el_or); */ |
|
|
488 |
|
|
489 #define OCTAVE_INSTALL_SM_INT_OPS(TYPE) \ |
|
|
490 OCTAVE_INSTALL_SM_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
491 OCTAVE_INSTALL_SM_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
492 OCTAVE_INSTALL_SM_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
493 /* INSTALL_WIDENOP (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix, TYPE ## _matrix_conv); */ \ |
|
|
494 INSTALL_ASSIGNCONV (octave_ ## TYPE ## _scalar, octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _matrix) |
|
|
495 |
|
|
496 #define OCTAVE_INSTALL_SM_INT_OPS2(T1, T2) \ |
|
|
497 OCTAVE_INSTALL_SM_INT_ARITH_OPS (T1, T2) \ |
|
|
498 OCTAVE_INSTALL_SM_INT_CMP_OPS (T1, T2) \ |
|
|
499 OCTAVE_INSTALL_SM_INT_BOOL_OPS (T1, T2) |
|
|
500 |
|
|
501 #define OCTAVE_INSTALL_MS_INT_ARITH_OPS(T1, T2) \ |
|
|
502 INSTALL_BINOP (op_add, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_add); \ |
|
|
503 INSTALL_BINOP (op_sub, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_sub); \ |
|
|
504 INSTALL_BINOP (op_mul, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_mul); \ |
|
|
505 /* INSTALL_BINOP (op_div, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_div); */ \ |
|
|
506 /* INSTALL_BINOP (op_pow, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_pow); */ \ |
|
|
507 /* INSTALL_BINOP (op_ldiv, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_ldiv); */ \ |
|
|
508 \ |
|
|
509 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_el_mul); \ |
|
|
510 /* INSTALL_BINOP (op_el_div, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_el_div); */ \ |
|
4952
|
511 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_el_pow); \ |
|
4905
|
512 /* INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_el_ldiv); */ |
|
|
513 |
|
|
514 #define OCTAVE_INSTALL_MS_INT_CMP_OPS(T1, T2) \ |
|
|
515 /* INSTALL_BINOP (op_lt, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_lt); */ \ |
|
|
516 \ |
|
|
517 octave_value_typeinfo::register_binary_op \ |
|
|
518 (octave_value::op_lt, octave_ ## T1 ## _matrix::static_type_id (), \ |
|
|
519 octave_ ## T2 ## _scalar::static_type_id (), oct_binop_ms_lt); \ |
|
|
520 \ |
|
|
521 INSTALL_BINOP (op_le, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_le); \ |
|
|
522 INSTALL_BINOP (op_eq, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_eq); \ |
|
|
523 INSTALL_BINOP (op_ge, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_ge); \ |
|
|
524 INSTALL_BINOP (op_gt, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_gt); \ |
|
|
525 INSTALL_BINOP (op_ne, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_ne); |
|
|
526 |
|
|
527 #define OCTAVE_INSTALL_MS_INT_BOOL_OPS(T1, T2) \ |
|
|
528 /* INSTALL_BINOP (op_el_and, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_el_and); */ \ |
|
|
529 /* INSTALL_BINOP (op_el_or, octave_ ## T1 ## _matrix, octave_ ## T2 ## _scalar, ms_el_or); */ |
|
|
530 |
|
|
531 #define OCTAVE_INSTALL_MS_INT_OPS(TYPE) \ |
|
|
532 OCTAVE_INSTALL_MS_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
533 OCTAVE_INSTALL_MS_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
534 OCTAVE_INSTALL_MS_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
535 INSTALL_ASSIGNOP (op_asn_eq, octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _scalar, ms_assign) |
|
|
536 |
|
|
537 #define OCTAVE_INSTALL_MS_INT_OPS2(T1, T2) \ |
|
|
538 OCTAVE_INSTALL_MS_INT_ARITH_OPS (T1, T2) \ |
|
|
539 OCTAVE_INSTALL_MS_INT_CMP_OPS (T1, T2) \ |
|
|
540 OCTAVE_INSTALL_MS_INT_BOOL_OPS (T1, T2) |
|
|
541 |
|
|
542 #define OCTAVE_INSTALL_M_INT_UNOPS(TYPE) \ |
|
|
543 INSTALL_UNOP (op_not, octave_ ## TYPE ## _matrix, m_not); \ |
|
|
544 INSTALL_UNOP (op_uminus, octave_ ## TYPE ## _matrix, m_uminus); \ |
|
|
545 INSTALL_UNOP (op_transpose, octave_ ## TYPE ## _matrix, m_transpose); \ |
|
|
546 INSTALL_UNOP (op_hermitian, octave_ ## TYPE ## _matrix, m_transpose); \ |
|
|
547 \ |
|
|
548 /* INSTALL_NCUNOP (op_incr, octave_ ## TYPE ## _matrix, m_incr); */ \ |
|
|
549 /* INSTALL_NCUNOP (op_decr, octave_ ## TYPE ## _matrix, m_decr); */ |
|
|
550 |
|
|
551 #define OCTAVE_INSTALL_MM_INT_ARITH_OPS(T1, T2) \ |
|
|
552 INSTALL_BINOP (op_add, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_add); \ |
|
|
553 INSTALL_BINOP (op_sub, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_sub); \ |
|
|
554 /* INSTALL_BINOP (op_mul, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_mul); */ \ |
|
|
555 /* INSTALL_BINOP (op_div, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_div); */ \ |
|
|
556 INSTALL_BINOP (op_pow, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_pow); \ |
|
|
557 /* INSTALL_BINOP (op_ldiv, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_ldiv); */ \ |
|
|
558 INSTALL_BINOP (op_el_mul, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_mul); \ |
|
|
559 INSTALL_BINOP (op_el_div, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_div); \ |
|
4952
|
560 INSTALL_BINOP (op_el_pow, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_pow); \ |
|
4905
|
561 /* INSTALL_BINOP (op_el_ldiv, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_ldiv); */ |
|
|
562 |
|
|
563 #define OCTAVE_INSTALL_MM_INT_CMP_OPS(T1, T2) \ |
|
|
564 INSTALL_BINOP (op_lt, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_lt); \ |
|
|
565 INSTALL_BINOP (op_le, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_le); \ |
|
|
566 INSTALL_BINOP (op_eq, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_eq); \ |
|
|
567 INSTALL_BINOP (op_ge, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_ge); \ |
|
|
568 INSTALL_BINOP (op_gt, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_gt); \ |
|
|
569 INSTALL_BINOP (op_ne, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_ne); |
|
|
570 |
|
|
571 #define OCTAVE_INSTALL_MM_INT_BOOL_OPS(T1, T2) \ |
|
|
572 INSTALL_BINOP (op_el_and, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_and); \ |
|
|
573 INSTALL_BINOP (op_el_or, octave_ ## T1 ## _matrix, octave_ ## T2 ## _matrix, mm_el_or); |
|
|
574 |
|
|
575 #define OCTAVE_INSTALL_MM_INT_ASSIGN_OPS(TYPE) \ |
|
|
576 INSTALL_ASSIGNOP (op_asn_eq, octave_ ## TYPE ## _matrix, octave_ ## TYPE ## _matrix, mm_assign) |
|
|
577 |
|
|
578 #define OCTAVE_INSTALL_MM_INT_OPS(TYPE) \ |
|
|
579 OCTAVE_INSTALL_M_INT_UNOPS (TYPE) \ |
|
|
580 OCTAVE_INSTALL_MM_INT_ARITH_OPS (TYPE, TYPE) \ |
|
|
581 OCTAVE_INSTALL_MM_INT_CMP_OPS (TYPE, TYPE) \ |
|
|
582 OCTAVE_INSTALL_MM_INT_BOOL_OPS (TYPE, TYPE) \ |
|
|
583 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (TYPE) |
|
|
584 |
|
|
585 #define OCTAVE_INSTALL_MM_INT_OPS2(T1, T2) \ |
|
|
586 OCTAVE_INSTALL_MM_INT_ARITH_OPS (T1, T2) \ |
|
|
587 OCTAVE_INSTALL_MM_INT_CMP_OPS (T1, T2) \ |
|
|
588 OCTAVE_INSTALL_MM_INT_BOOL_OPS (T1, T2) |
|
|
589 |
|
|
590 #define OCTAVE_INSTALL_INT_OPS(TYPE) \ |
|
|
591 OCTAVE_INSTALL_SS_INT_OPS (TYPE) \ |
|
|
592 OCTAVE_INSTALL_SM_INT_OPS (TYPE) \ |
|
|
593 OCTAVE_INSTALL_MS_INT_OPS (TYPE) \ |
|
4915
|
594 OCTAVE_INSTALL_MM_INT_OPS (TYPE) \ |
|
|
595 OCTAVE_INSTALL_CONCAT_FN (TYPE) |
|
4905
|
596 |
|
|
597 /* |
|
|
598 ;;; Local Variables: *** |
|
|
599 ;;; mode: C++ *** |
|
|
600 ;;; End: *** |
|
|
601 */ |
|
|
602 |
