Mercurial > octave

changeset 939:5d609adc8c28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Fri Nov 18 00:18:38 1994 +0000
+++ b/src/data.cc	Fri Nov 18 23:26:29 1994 +0000
@@ -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)
 {