Mercurial > octave

diff src/OPERATORS/op-cm-s.cc @ 3766:df962bbf1788

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-01-29 14:33:07 by jwe]
author jwe
date Mon, 29 Jan 2001 14:33:08 +0000
parents 0ff7323dab8b
children 7690958e7726
line wrap: on
line diff
--- a/src/OPERATORS/op-cm-s.cc	Wed Jan 17 18:41:30 2001 +0000
+++ b/src/OPERATORS/op-cm-s.cc	Mon Jan 29 14:33:08 2001 +0000
@@ -33,6 +33,7 @@
 #include "gripes.h"
 #include "ov.h"
 #include "ov-cx-mat.h"
+#include "ov-re-mat.h"
 #include "ov-scalar.h"
 #include "ov-typeinfo.h"
 #include "ops.h"
@@ -61,7 +62,12 @@
 
 DEFBINOP (ldiv, complex_matrix, scalar)
 {
-  BINOP_NONCONFORMANT ("operator \\");
+  CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_scalar&);
+
+  ComplexMatrix m1 = v1.complex_matrix_value ();
+  Matrix m2 = v2.matrix_value ();
+
+  return octave_value (xleftdiv (m1, m2));
 }
 
 DEFBINOP_FN (lt, complex_matrix, scalar, mx_el_lt)