Mercurial > octave
view doc/interpreter/celldemo.cc @ 6569:81a8ab62b2b9
[project @ 2007-04-24 23:01:29 by jwe]
author | jwe |
---|---|
date | Tue, 24 Apr 2007 23:03:43 +0000 |
parents | |
children |
line wrap: on
line source
#include <octave/oct.h> #include <octave/Cell.h> DEFUN_DLD (celldemo, args, , "Cell Demo") { octave_value_list retval; int nargin = args.length(); if (nargin != 1) print_usage (); else { Cell c = args (0).cell_value (); if (! error_state) for (octave_idx_type i = 0; i < c.nelem (); i++) retval(i) = c.elem (i); } return retval; }