Mercurial > octave-antonio
diff src/ov-cell.cc @ 5900:c20eb7330d13
[project @ 2006-07-22 08:31:16 by jwe]
author | jwe |
---|---|
date | Sat, 22 Jul 2006 08:31:17 +0000 |
parents | 426b94346d70 |
children | 8dbf3f9f22dc |
line wrap: on
line diff
--- a/src/ov-cell.cc Wed Jul 19 23:00:22 2006 +0000 +++ b/src/ov-cell.cc Sat Jul 22 08:31:17 2006 +0000 @@ -1167,6 +1167,23 @@ return retval; } +mxArray * +octave_cell::as_mxArray (void) const +{ + mxArray *retval = new mxArray (dims ()); + + mxArray **elts = static_cast<mxArray **> (retval->get_data ()); + + int nel = numel (); + + const octave_value *p = matrix.data (); + + for (int i = 0; i < nel; i++) + elts[i] = new mxArray (p[i]); + + return retval; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***