Mercurial > hg > octave-max

diff src/data.cc @ 3209:fbb332b96e4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-11-03 20:48:54 by jwe]
author jwe
date Tue, 03 Nov 1998 20:48:58 +0000
parents d0d2b69dc6c2
children bf61c443a366
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -753,6 +753,21 @@
   return retval;
 }
 
+DEFUN (is_bool, args, ,
+  "is_bool (x): return nonzero if x is a boolean object")
+{
+  octave_value retval;
+
+  if (args.length () == 1)
+    retval = args(0).is_bool_type () ? 1.0 : 0.0;
+  else
+    print_usage ("is_bool");
+
+  return retval;
+}
+
+DEFALIAS (islogical, is_bool);
+
 DEFUN (is_complex, args, ,
   "is_complex (x): return nonzero if x is a complex numeric object")
 {