Mercurial > octave
diff src/OPERATORS/op-scm-cm.cc @ 9931:fb6b6fcafa62
untabify files in src/OPERATORS directory
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 07 Dec 2009 14:49:48 -0500 |
parents | eb63fbe60fab |
children | ac4b97c6bf8b |
line wrap: on
line diff
--- a/src/OPERATORS/op-scm-cm.cc Mon Dec 07 13:17:13 2009 -0500 +++ b/src/OPERATORS/op-scm-cm.cc Mon Dec 07 14:49:48 2009 -0500 @@ -1,6 +1,6 @@ /* -Copyright (C) 2004, 2005, 2006, 2007, 2008 David Bateman +Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 David Bateman Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 Andy Adler This file is part of Octave. @@ -49,11 +49,11 @@ DEFBINOP (div, sparse_complex_matrix, complex_matrix) { CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, - const octave_complex_matrix&); + const octave_complex_matrix&); MatrixType typ = v2.matrix_type (); ComplexMatrix ret = xdiv (v1.complex_matrix_value (), - v2.complex_matrix_value (), typ); + v2.complex_matrix_value (), typ); v2.matrix_type (typ); return ret; @@ -74,7 +74,7 @@ Complex d = v1.complex_value (); if (d == 0.0) - gripe_divide_by_zero (); + gripe_divide_by_zero (); return octave_value (v2.complex_array_value () / d); } @@ -83,7 +83,7 @@ MatrixType typ = v1.matrix_type (); ComplexMatrix ret = xleftdiv (v1.sparse_complex_matrix_value (), - v2.complex_matrix_value (), typ); + v2.complex_matrix_value (), typ); v1.matrix_type (typ); return ret; @@ -106,20 +106,20 @@ DEFBINOP (el_pow, sparse_complex_matrix, complex_matrix) { CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, - const octave_complex_matrix&); + const octave_complex_matrix&); return octave_value (elem_xpow (v1.sparse_complex_matrix_value (), SparseComplexMatrix - (v2.complex_matrix_value ()))); + (v2.complex_matrix_value ()))); } DEFBINOP (el_ldiv, sparse_complex_matrix, matrix) { CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, - const octave_complex_matrix&); + const octave_complex_matrix&); return octave_value (quotient (v2.complex_matrix_value (), - v1.sparse_complex_matrix_value ())); + v1.sparse_complex_matrix_value ())); } DEFBINOP_FN (el_and, sparse_complex_matrix, complex_matrix, mx_el_and) @@ -128,7 +128,7 @@ DEFCATOP (scm_cm, sparse_complex_matrix, complex_matrix) { CAST_BINOP_ARGS (octave_sparse_complex_matrix&, - const octave_complex_matrix&); + const octave_complex_matrix&); SparseComplexMatrix tmp (v2.complex_matrix_value ()); return octave_value (v1.sparse_complex_matrix_value (). concat (tmp, ra_idx)); @@ -137,7 +137,7 @@ DEFASSIGNOP (assign, sparse_complex_matrix, complex_matrix) { CAST_BINOP_ARGS (octave_sparse_complex_matrix&, - const octave_complex_matrix&); + const octave_complex_matrix&); SparseComplexMatrix tmp (v2.complex_matrix_value ()); v1.assign (idx, tmp); @@ -148,51 +148,51 @@ install_scm_cm_ops (void) { INSTALL_BINOP (op_add, octave_sparse_complex_matrix, - octave_complex_matrix, add); + octave_complex_matrix, add); INSTALL_BINOP (op_sub, octave_sparse_complex_matrix, - octave_complex_matrix, sub); + octave_complex_matrix, sub); INSTALL_BINOP (op_mul, octave_sparse_complex_matrix, - octave_complex_matrix, mul); + octave_complex_matrix, mul); INSTALL_BINOP (op_div, octave_sparse_complex_matrix, - octave_complex_matrix, div); + octave_complex_matrix, div); INSTALL_BINOP (op_pow, octave_sparse_complex_matrix, - octave_complex_matrix, pow); + octave_complex_matrix, pow); INSTALL_BINOP (op_ldiv, octave_sparse_complex_matrix, - octave_complex_matrix, ldiv); + octave_complex_matrix, ldiv); INSTALL_BINOP (op_trans_mul, octave_sparse_complex_matrix, octave_complex_matrix, trans_mul); INSTALL_BINOP (op_herm_mul, octave_sparse_complex_matrix, octave_complex_matrix, herm_mul); INSTALL_BINOP (op_lt, octave_sparse_complex_matrix, - octave_complex_matrix, lt); + octave_complex_matrix, lt); INSTALL_BINOP (op_le, octave_sparse_complex_matrix, - octave_complex_matrix, le); + octave_complex_matrix, le); INSTALL_BINOP (op_eq, octave_sparse_complex_matrix, - octave_complex_matrix, eq); + octave_complex_matrix, eq); INSTALL_BINOP (op_ge, octave_sparse_complex_matrix, - octave_complex_matrix, ge); + octave_complex_matrix, ge); INSTALL_BINOP (op_gt, octave_sparse_complex_matrix, - octave_complex_matrix, gt); + octave_complex_matrix, gt); INSTALL_BINOP (op_ne, octave_sparse_complex_matrix, - octave_complex_matrix, ne); + octave_complex_matrix, ne); INSTALL_BINOP (op_el_mul, octave_sparse_complex_matrix, - octave_complex_matrix, el_mul); + octave_complex_matrix, el_mul); INSTALL_BINOP (op_el_div, octave_sparse_complex_matrix, - octave_complex_matrix, el_div); + octave_complex_matrix, el_div); INSTALL_BINOP (op_el_pow, octave_sparse_complex_matrix, - octave_complex_matrix, el_pow); + octave_complex_matrix, el_pow); INSTALL_BINOP (op_el_ldiv, octave_sparse_complex_matrix, - octave_complex_matrix, el_ldiv); + octave_complex_matrix, el_ldiv); INSTALL_BINOP (op_el_and, octave_sparse_complex_matrix, - octave_complex_matrix, el_and); + octave_complex_matrix, el_and); INSTALL_BINOP (op_el_or, octave_sparse_complex_matrix, - octave_complex_matrix, el_or); + octave_complex_matrix, el_or); INSTALL_CATOP (octave_sparse_complex_matrix, - octave_complex_matrix, scm_cm); + octave_complex_matrix, scm_cm); INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_complex_matrix, - octave_complex_matrix, assign); + octave_complex_matrix, assign); } /*