Mercurial > octave

diff src/ov-complex.cc @ 5900:c20eb7330d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-07-22 08:31:16 by jwe]
author jwe
date Sat, 22 Jul 2006 08:31:17 +0000
parents bd3041e30d97
children cdef72fcd206
line wrap: on
line diff
--- a/src/ov-complex.cc	Wed Jul 19 23:00:22 2006 +0000
+++ b/src/ov-complex.cc	Sat Jul 22 08:31:17 2006 +0000
@@ -347,6 +347,20 @@
 
 #endif
 
+mxArray *
+octave_complex::as_mxArray (void) const
+{
+  mxArray *retval = new mxArray (mxDOUBLE_CLASS, 1, 1, mxCOMPLEX);
+
+  double *pr = static_cast<double *> (retval->get_data ());
+  double *pi = static_cast<double *> (retval->get_imag_data ());
+
+  pr[0] = real (scalar);
+  pi[0] = imag (scalar);
+
+  return retval;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***