Mercurial > hg > octave-nkf
diff src/data.cc @ 2420:449f35baba49
[project @ 1996-10-16 18:46:25 by jwe]
author | jwe |
---|---|
date | Wed, 16 Oct 1996 18:46:26 +0000 |
parents | c90105b99479 |
children | e93b4c32457b |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -783,7 +783,8 @@ DEFUN (struct_contains, args, , "struct_contains (S, NAME)\n\ \n\ -return nonzero if S is a structure with element NAME") +Return nonzero if S is a structure with element NAME.\n\ +S must be a structure and NAME must be a string.") { octave_value_list retval; @@ -792,12 +793,15 @@ if (nargin == 2) { retval = 0.0; + if (args(0).is_map () && args(1).is_string ()) { string s = args(1).string_value (); - octave_value tmp = args(0).struct_elt_val (s); + octave_value tmp = args(0).struct_elt_val (s, true); retval = (double) tmp.is_defined (); } + else + print_usage ("struct_contains"); } else print_usage ("struct_contains");