Mercurial > octave-nkf

comparison src/OPERATORS/op-s-scm.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
71 } 71 }
72 } 72 }
73 73
74 DEFBINOP (pow, scalar, sparse_complex_matrix) 74 DEFBINOP (pow, scalar, sparse_complex_matrix)
75 { 75 {
76 CAST_BINOP_ARGS (const octave_scalar&, 76 CAST_BINOP_ARGS (const octave_scalar&,
77 const octave_sparse_complex_matrix&); 77 const octave_sparse_complex_matrix&);
78 return xpow (v1.scalar_value (), v2.complex_matrix_value ()); 78 return xpow (v1.scalar_value (), v2.complex_matrix_value ());
79 } 79 }
80 80
81 DEFBINOP (ldiv, scalar, sparse_complex_matrix) 81 DEFBINOP (ldiv, scalar, sparse_complex_matrix)
82 { 82 {
83 CAST_BINOP_ARGS (const octave_scalar&, 83 CAST_BINOP_ARGS (const octave_scalar&,
84 const octave_sparse_complex_matrix&); 84 const octave_sparse_complex_matrix&);
85 85
86 double d = v1.double_value (); 86 double d = v1.double_value ();
87 octave_value retval; 87 octave_value retval;
88 88
105 DEFBINOP_FN (el_div, scalar, sparse_complex_matrix, x_el_div) 105 DEFBINOP_FN (el_div, scalar, sparse_complex_matrix, x_el_div)
106 DEFBINOP_FN (el_pow, scalar, sparse_complex_matrix, elem_xpow) 106 DEFBINOP_FN (el_pow, scalar, sparse_complex_matrix, elem_xpow)
107 107
108 DEFBINOP (el_ldiv, scalar, sparse_complex_matrix) 108 DEFBINOP (el_ldiv, scalar, sparse_complex_matrix)
109 { 109 {
110 CAST_BINOP_ARGS (const octave_scalar&, 110 CAST_BINOP_ARGS (const octave_scalar&,
111 const octave_sparse_complex_matrix&); 111 const octave_sparse_complex_matrix&);
112 112
113 double d = v1.double_value (); 113 double d = v1.double_value ();
114 octave_value retval; 114 octave_value retval;
115 115
134 134
135 DEFCONV (sparse_complex_matrix_conv, scalar, sparse_complex_matrix) 135 DEFCONV (sparse_complex_matrix_conv, scalar, sparse_complex_matrix)
136 { 136 {
137 CAST_CONV_ARG (const octave_scalar&); 137 CAST_CONV_ARG (const octave_scalar&);
138 138
139 return new octave_sparse_complex_matrix 139 return new octave_sparse_complex_matrix
140 (SparseComplexMatrix (v.complex_matrix_value ())); 140 (SparseComplexMatrix (v.complex_matrix_value ()));
141 } 141 }
142 142
143 void 143 void
144 install_s_scm_ops (void) 144 install_s_scm_ops (void)
153 INSTALL_BINOP (op_le, octave_scalar, octave_sparse_complex_matrix, le); 153 INSTALL_BINOP (op_le, octave_scalar, octave_sparse_complex_matrix, le);
154 INSTALL_BINOP (op_eq, octave_scalar, octave_sparse_complex_matrix, eq); 154 INSTALL_BINOP (op_eq, octave_scalar, octave_sparse_complex_matrix, eq);
155 INSTALL_BINOP (op_ge, octave_scalar, octave_sparse_complex_matrix, ge); 155 INSTALL_BINOP (op_ge, octave_scalar, octave_sparse_complex_matrix, ge);
156 INSTALL_BINOP (op_gt, octave_scalar, octave_sparse_complex_matrix, gt); 156 INSTALL_BINOP (op_gt, octave_scalar, octave_sparse_complex_matrix, gt);
157 INSTALL_BINOP (op_ne, octave_scalar, octave_sparse_complex_matrix, ne); 157 INSTALL_BINOP (op_ne, octave_scalar, octave_sparse_complex_matrix, ne);
158 INSTALL_BINOP (op_el_mul, octave_scalar, octave_sparse_complex_matrix, 158 INSTALL_BINOP (op_el_mul, octave_scalar, octave_sparse_complex_matrix,
159 el_mul); 159 el_mul);
160 INSTALL_BINOP (op_el_div, octave_scalar, octave_sparse_complex_matrix, 160 INSTALL_BINOP (op_el_div, octave_scalar, octave_sparse_complex_matrix,
161 el_div); 161 el_div);
162 INSTALL_BINOP (op_el_pow, octave_scalar, octave_sparse_complex_matrix, 162 INSTALL_BINOP (op_el_pow, octave_scalar, octave_sparse_complex_matrix,
163 el_pow); 163 el_pow);
164 INSTALL_BINOP (op_el_ldiv, octave_scalar, octave_sparse_complex_matrix, 164 INSTALL_BINOP (op_el_ldiv, octave_scalar, octave_sparse_complex_matrix,
165 el_ldiv); 165 el_ldiv);
166 INSTALL_BINOP (op_el_and, octave_scalar, octave_sparse_complex_matrix, 166 INSTALL_BINOP (op_el_and, octave_scalar, octave_sparse_complex_matrix,
167 el_and); 167 el_and);
168 INSTALL_BINOP (op_el_or, octave_scalar, octave_sparse_complex_matrix, 168 INSTALL_BINOP (op_el_or, octave_scalar, octave_sparse_complex_matrix,
169 el_or); 169 el_or);
170 170
171 INSTALL_CATOP (octave_scalar, octave_sparse_complex_matrix, s_scm); 171 INSTALL_CATOP (octave_scalar, octave_sparse_complex_matrix, s_scm);
172 172
173 INSTALL_ASSIGNCONV (octave_scalar, octave_sparse_complex_matrix, 173 INSTALL_ASSIGNCONV (octave_scalar, octave_sparse_complex_matrix,
174 octave_complex_matrix); 174 octave_complex_matrix);
175 175
176 INSTALL_WIDENOP (octave_scalar, octave_sparse_complex_matrix, 176 INSTALL_WIDENOP (octave_scalar, octave_sparse_complex_matrix,
177 sparse_complex_matrix_conv); 177 sparse_complex_matrix_conv);
178 } 178 }