Mercurial > hg > octave-lyh
diff src/data.cc @ 5677:a8f6903535c9
[project @ 2006-03-16 05:54:20 by jwe]
author | jwe |
---|---|
date | Thu, 16 Mar 2006 05:57:18 +0000 |
parents | 2618a0750ae6 |
children | 24f6a13878c2 |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -1112,6 +1112,40 @@ return retval; } +DEFUN (rows, args, , + "-*- texinfo -*-\n\ +@deftypefn {Built-in Function} {} rows (@var{a})\n\ +Return the number of rows of @var{a}.\n\ +@seealso{size, columns, length, isscalar, isvector, ismatrix}\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length () == 1) + retval = args(0).rows (); + else + print_usage ("rows"); + + return retval; +} + +DEFUN (columns, args, , + "-*- texinfo -*-\n\ +@deftypefn {Built-in Function} {} columns (@var{a})\n\ +Return the number of columns of @var{a}.\n\ +@seealso{size, rows, length, isscalar, isvector, and ismatrix}\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length () == 1) + retval = args(0).columns (); + else + print_usage ("columns"); + + return retval; +} + DEFUN (sum, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} sum (@var{x}, @var{dim})\n\