Mercurial > octave-nkf
view examples/celldemo.cc @ 14205:fe2ace7a35da stable
Added tag release-3.6.0 for changeset 704f7895eef0
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sun, 15 Jan 2012 14:56:37 -0500 |
parents | db1f49eaba6b |
children | be41c30bcb44 |
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; }