1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 1996-2021 The Octave Project Developers
4 //
5 // See the file COPYRIGHT.md in the top-level directory of this
6 // distribution or <https://octave.org/copyright/>.
7 //
8 // This file is part of Octave.
9 //
10 // Octave is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 3 of the License, or
13 // (at your option) any later version.
14 //
15 // Octave is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Octave; see the file COPYING. If not, see
22 // <https://www.gnu.org/licenses/>.
23 //
24 ////////////////////////////////////////////////////////////////////////
25
26 #if defined (HAVE_CONFIG_H)
27 # include "config.h"
28 #endif
29
30 #include "ovl.h"
31 #include "ov.h"
32 #include "ov-scalar.h"
33 #include "ov-float.h"
34 #include "ov-flt-complex.h"
35 #include "ov-complex.h"
36 #include "ov-cx-mat.h"
37 #include "ov-flt-cx-mat.h"
38 #include "ov-typeinfo.h"
39 #include "ops.h"
40 #include "xdiv.h"
41 #include "xpow.h"
42
43 // scalar by complex scalar ops.
44
45 DEFBINOP_OP (add, float_scalar, float_complex, +)
46 DEFBINOP_OP (sub, float_scalar, float_complex, -)
47 DEFBINOP_OP (mul, float_scalar, float_complex, *)
48
DEFBINOP(div,float_scalar,float_complex)49 DEFBINOP (div, float_scalar, float_complex)
50 {
51 const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
52 const octave_float_complex& v2 = dynamic_cast<const octave_float_complex&> (a2);
53
54 return octave_value (v1.float_value () / v2.float_complex_value ());
55 }
56
DEFBINOP_FN(pow,float_scalar,float_complex,xpow)57 DEFBINOP_FN (pow, float_scalar, float_complex, xpow)
58
59 DEFBINOP (ldiv, float_scalar, float_complex)
60 {
61 const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
62 const octave_float_complex& v2 = dynamic_cast<const octave_float_complex&> (a2);
63
64 return octave_value (v2.float_complex_value () / v1.float_value ());
65 }
66
67 DEFCMPLXCMPOP_OP (lt, float_scalar, float_complex, <)
68 DEFCMPLXCMPOP_OP (le, float_scalar, float_complex, <=)
69 DEFCMPLXCMPOP_OP (eq, float_scalar, float_complex, ==)
70 DEFCMPLXCMPOP_OP (ge, float_scalar, float_complex, >=)
71 DEFCMPLXCMPOP_OP (gt, float_scalar, float_complex, >)
72 DEFCMPLXCMPOP_OP (ne, float_scalar, float_complex, !=)
73
74 DEFBINOP_OP (el_mul, float_scalar, float_complex, *)
75
DEFBINOP(el_div,float_scalar,float_complex)76 DEFBINOP (el_div, float_scalar, float_complex)
77 {
78 const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
79 const octave_float_complex& v2 = dynamic_cast<const octave_float_complex&> (a2);
80
81 return octave_value (v1.float_value () / v2.float_complex_value ());
82 }
83
DEFBINOP_FN(el_pow,float_scalar,float_complex,xpow)84 DEFBINOP_FN (el_pow, float_scalar, float_complex, xpow)
85
86 DEFBINOP (el_ldiv, float_scalar, float_complex)
87 {
88 const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
89 const octave_float_complex& v2 = dynamic_cast<const octave_float_complex&> (a2);
90
91 return octave_value (v2.float_complex_value () / v1.float_value ());
92 }
93
DEFBINOP(el_and,float_scalar,float_complex)94 DEFBINOP (el_and, float_scalar, float_complex)
95 {
96 const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
97 const octave_float_complex& v2 = dynamic_cast<const octave_float_complex&> (a2);
98
99 return octave_value (v1.float_scalar_value ()
100 && (v2.float_complex_value () != 0.0f));
101 }
102
DEFBINOP(el_or,float_scalar,float_complex)103 DEFBINOP (el_or, float_scalar, float_complex)
104 {
105 const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
106 const octave_float_complex& v2 = dynamic_cast<const octave_float_complex&> (a2);
107
108 return octave_value (v1.float_scalar_value ()
109 || (v2.float_complex_value () != 0.0f));
110 }
111
DEFNDCATOP_FN(fs_fcs,float_scalar,float_complex,float_array,float_complex_array,concat)112 DEFNDCATOP_FN (fs_fcs, float_scalar, float_complex, float_array,
113 float_complex_array, concat)
114
115 DEFNDCATOP_FN (s_fcs, scalar, float_complex, float_array,
116 float_complex_array, concat)
117
118 DEFNDCATOP_FN (fs_cs, float_scalar, complex, float_array,
119 float_complex_array, concat)
120
121 void
122 install_fs_fcs_ops (octave::type_info& ti)
123 {
124 INSTALL_BINOP_TI (ti, op_add, octave_float_scalar, octave_float_complex, add);
125 INSTALL_BINOP_TI (ti, op_sub, octave_float_scalar, octave_float_complex, sub);
126 INSTALL_BINOP_TI (ti, op_mul, octave_float_scalar, octave_float_complex, mul);
127 INSTALL_BINOP_TI (ti, op_div, octave_float_scalar, octave_float_complex, div);
128 INSTALL_BINOP_TI (ti, op_pow, octave_float_scalar, octave_float_complex, pow);
129 INSTALL_BINOP_TI (ti, op_ldiv, octave_float_scalar, octave_float_complex, ldiv);
130 INSTALL_BINOP_TI (ti, op_lt, octave_float_scalar, octave_float_complex, lt);
131 INSTALL_BINOP_TI (ti, op_le, octave_float_scalar, octave_float_complex, le);
132 INSTALL_BINOP_TI (ti, op_eq, octave_float_scalar, octave_float_complex, eq);
133 INSTALL_BINOP_TI (ti, op_ge, octave_float_scalar, octave_float_complex, ge);
134 INSTALL_BINOP_TI (ti, op_gt, octave_float_scalar, octave_float_complex, gt);
135 INSTALL_BINOP_TI (ti, op_ne, octave_float_scalar, octave_float_complex, ne);
136 INSTALL_BINOP_TI (ti, op_el_mul, octave_float_scalar, octave_float_complex,
137 el_mul);
138 INSTALL_BINOP_TI (ti, op_el_div, octave_float_scalar, octave_float_complex,
139 el_div);
140 INSTALL_BINOP_TI (ti, op_el_pow, octave_float_scalar, octave_float_complex,
141 el_pow);
142 INSTALL_BINOP_TI (ti, op_el_ldiv, octave_float_scalar, octave_float_complex,
143 el_ldiv);
144 INSTALL_BINOP_TI (ti, op_el_and, octave_float_scalar, octave_float_complex,
145 el_and);
146 INSTALL_BINOP_TI (ti, op_el_or, octave_float_scalar, octave_float_complex,
147 el_or);
148
149 INSTALL_CATOP_TI (ti, octave_float_scalar, octave_float_complex, fs_fcs);
150 INSTALL_CATOP_TI (ti, octave_scalar, octave_float_complex, s_fcs);
151 INSTALL_CATOP_TI (ti, octave_float_scalar, octave_complex, fs_cs);
152
153 INSTALL_ASSIGNCONV_TI (ti, octave_float_scalar, octave_float_complex,
154 octave_float_complex_matrix);
155 INSTALL_ASSIGNCONV_TI (ti, octave_scalar, octave_float_complex,
156 octave_complex_matrix);
157 }
158