Mercurial > octave
diff src/ov-scalar.cc @ 5900:c20eb7330d13
[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-scalar.cc Wed Jul 19 23:00:22 2006 +0000 +++ b/src/ov-scalar.cc Sat Jul 22 08:31:17 2006 +0000 @@ -294,6 +294,18 @@ #endif +mxArray * +octave_scalar::as_mxArray (void) const +{ + mxArray *retval = new mxArray (mxDOUBLE_CLASS, 1, 1, mxREAL); + + double *pr = static_cast<double *> (retval->get_data ()); + + pr[0] = scalar; + + return retval; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***