Mercurial > hg > octave-jordi

comparison src/ov-range.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 (2006-07-22)
parents bd3041e30d97
children cdef72fcd206
comparison
equal deleted inserted replaced
5899:82c38ce145a7 5900:c20eb7330d13
469 return retval; 469 return retval;
470 } 470 }
471 471
472 #endif 472 #endif
473 473
474 mxArray *
475 octave_range::as_mxArray (void) const
476 {
477 mxArray *retval = new mxArray (mxDOUBLE_CLASS, dims (), mxREAL);
478
479 double *pr = static_cast<double *> (retval->get_data ());
480
481 int nel = numel ();
482
483 Matrix m = matrix_value ();
484
485 const double *p = m.data ();
486
487 for (int i = 0; i < nel; i++)
488 pr[i] = p[i];
489
490 return retval;
491 }
492
474 /* 493 /*
475 ;;; Local Variables: *** 494 ;;; Local Variables: ***
476 ;;; mode: C++ *** 495 ;;; mode: C++ ***
477 ;;; End: *** 496 ;;; End: ***
478 */ 497 */