Mercurial > hg > octave-lyh

diff src/data.cc @ 3204:81738e630f57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-10-30 23:28:29 by jwe]
author jwe
date Fri, 30 Oct 1998 23:28:30 +0000
parents 44d82b369c78
children d0d2b69dc6c2
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -786,6 +786,19 @@
   return retval;
 }
 
+DEFUN (is_list, args, ,
+  "is_list (x): return nonzero if x is a list")
+{
+  octave_value retval;
+
+  if (args.length () == 1)
+    retval = args(0).is_list () ? 1.0 : 0.0;
+  else
+    print_usage ("is_list");
+
+  return retval;
+}
+
 DEFUN (is_matrix, args, ,
   "is_matrix (x): return nonzero if x can be considered a matrix")
 {