Mercurial > hg > octave-nkf
diff src/data.cc @ 8458:d254a21e0120
reimplement full as method of octave_base_value
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Mon, 12 Jan 2009 13:06:06 +0100 |
parents | 3292bd1bbaa4 |
children | d17874a6f161 |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -4584,6 +4584,23 @@ return retval; } +DEFUN (full, args, , + "-*- texinfo -*-\n\ +@deftypefn {Loadable Function} {@var{FM} =} full (@var{SM})\n\ + returns a full storage matrix from a sparse, diagonal, permutation matrix or a range.\n\ +@seealso{sparse}\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length () == 1) + retval = args(0).full_value (); + else + print_usage (); + + return retval; +} + // Compute various norms of the vector X. DEFUN (norm, args, ,