Mercurial > hg > octave-avbm
changeset 939:5d609adc8c28
[project @ 1994-11-18 23:26:29 by jwe]
author | jwe |
---|---|
date | Fri, 18 Nov 1994 23:26:29 +0000 |
parents | 639f497359fa |
children | 16062e9a6b7e |
files | src/data.cc |
diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -698,6 +698,28 @@ return retval; } +DEFUN ("is_struct", Fis_struct, Sis_struct, 1, 1, + "is_struct (x): return nonzero if x is a structure") +{ + Octave_object retval; + + int nargin = args.length (); + + if (nargin == 1) + { + tree_constant arg = args(0); + + if (arg.is_map ()) + retval = 1.0; + else + retval = 0.0; + } + else + print_usage ("is_struct"); + + return retval; +} + static void check_dimensions (int& nr, int& nc, const char *warnfor) {