Mercurial > octave

diff src/OPERATORS/op-scm-m.cc @ 9931:fb6b6fcafa62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
untabify files in src/OPERATORS directory
author John W. Eaton <jwe@octave.org>
date Mon, 07 Dec 2009 14:49:48 -0500
parents a1dbe9d80eee
children ac4b97c6bf8b
line wrap: on
line diff
--- a/src/OPERATORS/op-scm-m.cc	Mon Dec 07 13:17:13 2009 -0500
+++ b/src/OPERATORS/op-scm-m.cc	Mon Dec 07 14:49:48 2009 -0500
@@ -1,6 +1,6 @@
 /*
 
-Copyright (C) 2004, 2005, 2006, 2007 David Bateman
+Copyright (C) 2004, 2005, 2006, 2007, 2009 David Bateman
 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 Andy Adler
 
 This file is part of Octave.
@@ -54,7 +54,7 @@
   MatrixType typ = v2.matrix_type ();
   
   ComplexMatrix ret = xdiv (v1.complex_matrix_value (), 
-			    v2.matrix_value (), typ);
+                            v2.matrix_value (), typ);
 
   v2.matrix_type (typ);
   return ret;
@@ -75,7 +75,7 @@
       Complex d = v1.complex_value ();
 
       if (d == 0.0)
-	gripe_divide_by_zero ();
+        gripe_divide_by_zero ();
 
       return octave_value (v2.array_value () / d);
     }
@@ -84,7 +84,7 @@
       MatrixType typ = v1.matrix_type ();
 
       ComplexMatrix ret = xleftdiv (v1.sparse_complex_matrix_value (), 
-				    v2.matrix_value (), typ);
+                                    v2.matrix_value (), typ);
 
       v1.matrix_type (typ);
       return ret;
@@ -104,17 +104,17 @@
 DEFBINOP (el_pow, sparse_complex_matrix, matrix)
 {
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 
-		   const octave_matrix&);
+                   const octave_matrix&);
   
   return octave_value 
     (elem_xpow (v1.sparse_complex_matrix_value (), SparseMatrix 
-		(v2.matrix_value ())));
+                (v2.matrix_value ())));
 }
 
 DEFBINOP (el_ldiv, sparse_complex_matrix, matrix)
 {
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 
-		   const octave_matrix&);
+                   const octave_matrix&);
 
   return octave_value
     (quotient (v2.matrix_value (), v1.sparse_complex_matrix_value ()));
@@ -156,22 +156,22 @@
   INSTALL_BINOP (op_gt, octave_sparse_complex_matrix, octave_matrix, gt);
   INSTALL_BINOP (op_ne, octave_sparse_complex_matrix, octave_matrix, ne);
   INSTALL_BINOP (op_el_mul, octave_sparse_complex_matrix, octave_matrix, 
-		 el_mul);
+                 el_mul);
   INSTALL_BINOP (op_el_div, octave_sparse_complex_matrix, octave_matrix, 
-		 el_div);
+                 el_div);
   INSTALL_BINOP (op_el_pow, octave_sparse_complex_matrix, octave_matrix, 
-		 el_pow);
+                 el_pow);
   INSTALL_BINOP (op_el_ldiv, octave_sparse_complex_matrix, octave_matrix, 
-		 el_ldiv);
+                 el_ldiv);
   INSTALL_BINOP (op_el_and, octave_sparse_complex_matrix, octave_matrix, 
-		 el_and);
+                 el_and);
   INSTALL_BINOP (op_el_or, octave_sparse_complex_matrix, octave_matrix, 
-		 el_or);
+                 el_or);
 
   INSTALL_CATOP (octave_sparse_complex_matrix, octave_matrix, scm_m);
 
   INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_complex_matrix, octave_matrix, 
-		    assign);
+                    assign);
 }
 
 /*