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