Mercurial > octave-nkf

comparison src/OPERATORS/op-cm-scm.cc @ 7289:e5055ed23f52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-11 17:36:19 by jwe]
author jwe
date Tue, 11 Dec 2007 17:36:20 +0000
parents a1dbe9d80eee
children 1a446f28ce68
comparison
equal deleted inserted replaced
7288:1885f4c7e4b3 7289:e5055ed23f52
137 { 137 {
138 CAST_CONV_ARG (const octave_complex_matrix&); 138 CAST_CONV_ARG (const octave_complex_matrix&);
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
143 DEFNDASSIGNOP_FN (assign, complex_matrix, sparse_complex_matrix,
144 complex_array, assign)
142 145
143 void 146 void
144 install_cm_scm_ops (void) 147 install_cm_scm_ops (void)
145 { 148 {
146 INSTALL_BINOP (op_add, octave_complex_matrix, 149 INSTALL_BINOP (op_add, octave_complex_matrix,
181 octave_sparse_complex_matrix, el_or); 184 octave_sparse_complex_matrix, el_or);
182 185
183 INSTALL_CATOP (octave_complex_matrix, 186 INSTALL_CATOP (octave_complex_matrix,
184 octave_sparse_complex_matrix, cm_scm); 187 octave_sparse_complex_matrix, cm_scm);
185 188
189 INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix,
190 octave_sparse_complex_matrix, assign)
186 INSTALL_ASSIGNCONV (octave_complex_matrix, octave_sparse_complex_matrix, 191 INSTALL_ASSIGNCONV (octave_complex_matrix, octave_sparse_complex_matrix,
187 octave_sparse_complex_matrix); 192 octave_complex_matrix);
188 193
189 INSTALL_WIDENOP (octave_complex_matrix, octave_sparse_complex_matrix, 194 INSTALL_WIDENOP (octave_complex_matrix, octave_sparse_complex_matrix,
190 sparse_complex_matrix_conv); 195 sparse_complex_matrix_conv);
191 } 196 }
192 197