Mercurial > hg > octave-nkf

diff src/data.cc @ 3206:d0d2b69dc6c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-11-03 02:43:31 by jwe]
author jwe
date Tue, 03 Nov 1998 02:44:40 +0000
parents 81738e630f57
children fbb332b96e4f
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -786,6 +786,19 @@
   return retval;
 }
 
+DEFUN (isnumeric, args, ,
+  "isnumeric (x): return nonzero if x is a numeric object")
+{
+  octave_value retval;
+
+  if (args.length () == 1)
+    retval = args(0).is_numeric_type () ? 1.0 : 0.0;
+  else
+    print_usage ("is_list");
+
+  return retval;
+}
+
 DEFUN (is_list, args, ,
   "is_list (x): return nonzero if x is a list")
 {