Mercurial > octave-nkf
diff examples/celldemo.cc @ 6572:8e7148b84b59
[project @ 2007-04-25 04:13:44 by jwe]
author | jwe |
---|---|
date | Wed, 25 Apr 2007 04:14:49 +0000 |
parents | |
children | 4270ded9ddc6 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/examples/celldemo.cc Wed Apr 25 04:14:49 2007 +0000 @@ -0,0 +1,19 @@ +#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; +}