Mercurial > octave-nkf
annotate examples/celldemo.cc @ 16033:23a7661e529a ss-3-7-2
snapshot version 3.7.2
* configure.ac (AC_INIT): Set version to 3.7.2.
(OCTAVE_RELEASE_DATE): Set to 2013-02-09.
(OCTAVE_COPYRIGHT): Update year.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sun, 10 Feb 2013 00:59:19 -0500 |
parents | db1f49eaba6b |
children | be41c30bcb44 |
rev | line source |
---|---|
6572 | 1 #include <octave/oct.h> |
2 #include <octave/Cell.h> | |
3 | |
12174 | 4 DEFUN_DLD (celldemo, args, , "Cell Demo") |
6572 | 5 { |
6 octave_value_list retval; | |
7 int nargin = args.length (); | |
8 | |
9 if (nargin != 1) | |
10 print_usage (); | |
11 else | |
12 { | |
13 Cell c = args (0).cell_value (); | |
14 if (! error_state) | |
15 for (octave_idx_type i = 0; i < c.nelem (); i++) | |
16 retval(i) = c.elem (i); | |
17 } | |
9053
4295d634797d
remove copyright notices from example files
John W. Eaton <jwe@octave.org>
parents:
7081
diff
changeset
|
18 |
6572 | 19 return retval; |
20 } |